f<-function(x)3*x^2-4*x+1
optim(0.3,f)
optim(0,f,method="Brent",lower = -100, upper = 100)

