t***r
发帖数: 157 | | F*******h
发帖数: 136 | 2 vect_r<-c(1:10)
theta<-c(0:999)/999*2*pi
c_theta<-cos(theta)
s_theta<-sin(theta)
cir.scatter<-function(r){
f<-array(0,c(1000,2))
f[,1]<-r*c_theta
f[,2]<-r*s_theta
return(f)
}
n<-length(vect_r)
sort_r<-sort(vect_r,decreasing=T)
plot(cir.scatter(sort_r[1]),type="l",xlab="x",ylab="y")
for(i in 2:n){
lines(cir.scatter(sort_r[i]))
}
【在 t***r 的大作中提到】
: 有没有什么比较简便的方法方程画10个同心圆
|
|
