2011-01-07から1日間の記事一覧

フーリエ変換資料

こちら x<-seq(from=0,to=2*pi,length.out=100) z<-cos(2*x)+2*cos(5*x) par(mfcol=c(2,2)) plot(z,type="l") y<-fft(z) plot(Re(y),type="l") plot(Re(y[1:10]),type="l") a<-fft(y, inverse = TRUE) / length(y) plot(Re(a),type="l") 資料(大きい角振動数…

フーリエ変換