the x is .8 or -.8
eq1<-function(x){x^2} eq2<-function(x){cos(x)} x<-seq(-1,1,by=.01) plot(x,eq1(x), type = "l") lines(x,eq2(x), type = "l")