峰值峰值傅里叶[x_]:=最大值[Abs[Fourier[x]]]-最小值[Abs[Fourier[x]];
a={1};(*第一个元素*)
nmax=120;(*附加元素的数量*)
Do[If[peaktopeakfourier[Append[a,1]]<
峰值opeakfourier[Append[a,-1]],AppendTo[a,1],
如果[peaktopeakfourier[Append[a,1]]>
峰值opeakfourier[Append[a,-1]],AppendTo[a,-1-],
附加到[a,-a[[-1]]]],{j,nmax}];
a=a/。{-1 -> 0};
打印[a]
|