################################################################################################## ######## Úkol 3.2 - f,df,ddf ############## fun <- function (x){ # # funkce vypocte f(x) pro polynom 6. radu vypocteny v ukolu 2.2 f = 6.897083*x^6 - 42.178317*x^5 + 105.737593*x^4 - 139.018432*x^3 + 101.130086*x^2 - 38.654829*x + 6.385422 return(f) } dfun <- function (x){ # # funkce vypocte derivaci f v x pro polynom 6. radu vypocteny v ukolu 2.2 df = 6*6.897083*x^5 - 5*42.178317*x^4 + 4*105.737593*x^3 - 3*139.018432*x^2 + 2*101.130086*x - 38.654829 return(df) } ddfun <- function (x){ # # funkce vypocte druhou derivaci f v x pro polynom 6. radu vypocteny v ukolu 2.2 ddf = 5*6*6.897083*x^4 - 4*5*42.178317*x^3 + 3*4*105.737593*x^2 - 2*3*139.018432*x + 2*101.130086 return(ddf) } # konec