唸らせる こちらとも関連 三角関数の積として唸らせる 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…