Новое в системе Wolfram
Mathematica
9
◄
предыдущая
|
следующая
►
Новое в системе Wolfram
Mathematica
9
›
Встроенная обработка сигналов
Стек периодограмм модулированного импульса
Трехмерная визуализация стека двумерных энергетических спектров модулированного импульса.
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]=