x<-seq(1,10,length=200)
y<-x^2
plot(x,y)