F<-function(x)
{
x+3/4-16/9*(1/3*x^3+1/3*(3/4)^3)
} 

F(3/4)
F(0)