« View all new features in
Mathematica
9
◄
previous
|
next
►
New in
Mathematica
9
›
Built-in Signal Processing
Stack of Periodograms of a Modulated Pulse
3D visualization of a stack of 2D power spectra of a modulated pulse.
In[1]:=
X
data3D = Table[ PadRight[ConstantArray[1, {15, 10}], {64, 64}] Table[ Cos[\[Pi]/32 u[[1]] n] Cos[\[Pi]/32 u[[2]] m] , {n, 0, 63}, {m, 0, 63}], {u, Table[Round[{10 Cos[\[Theta]], 10 Sin[\[Theta]]} + 16], {\[Theta], 0, 4 \[Pi] - (2 \[Pi])/64, (2 \[Pi])/32}]}]; power = PeriodogramArray[#][[1 ;; 32, 1 ;; 32]] & /@ data3D;
In[2]:=
X
Image3D[power, BoxRatios -> 1, ColorFunction -> "AvocadoColorsOpacity"]
Out[2]=
