第一个可能用极坐标要方便一点：
N<-1e3 #圆上取点的数量。可以改
theta<-seq(0,2*pi,length.out=N)
r<-2
plot(r*cos(theta),r*sin(theta),type="l",xlim=c(-r,r),ylim=c(-r,r),xlab="x1",ylab="x2")
第二个写成x2=x1^2-0.69可能方便一点：
x1<-seq(-2,2,length.out=N)#范围什么的可以改
plot(x1,x1^2-.69,type="l",xlab="x1",ylab="x2")
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024