WOLFRAM

Wolfram 语言与系统参考资料中心
调制脉冲的周期图叠层

调制脉冲的周期图叠层

调制脉冲的二维功率谱叠层的三维可视化.

Wolfram Language code: data3D = Table[PadRight[ConstantArray[1, {15, 10}], {64, 64}] Table[Cos[(π/32) u[[1]] n] Cos[(π/32) u[[2]] m] , {n, 0, 63}, {m, 0, 63}], {u, Table[Round[{10 Cos[θ], 10 Sin[θ]} + 16], {θ, 0, 4 π - (2π/64), (2π/32)}]}]; power = PeriodogramArray[#][[1 ;; 32, 1 ;; 32]]& /@ data3D;
Wolfram Language code: Image3D[power, BoxRatios -> 1, ColorFunction -> "AvocadoColorsOpacity"]