2011-02-24 三角関数のk次積 R トーラス 干渉 唸らせる こちらとも関連 三角関数の積として唸らせる L<-10000 cycle<-100000 t<-seq(from=0,to=1,length.out=L)*2*pi*cycle Nstep<-20 w<-runif(Nstep)^(0.01^(1:Nstep))*100 x<-cos(w[1]*t) plot(x,type="l") for(i in 2:Nstep){ r<-runif(1) x<-x*(cos(w[i]*t)+r) } plot(x,type="l")