WOLFRAM

Wolfram言語 ＆ システムドキュメントセンター

多次元配列を直接変換する

次元データにウェーブレット変換を行う．

Wolfram Language code: data = CrossMatrix[All, {8, 8, 8}];
Wolfram Language code: dwd = LiftingWaveletTransform[data, Automatic, 1];
Wolfram Language code: Column[{Graphics3D[{Orange, Specularity[White, 20], Sphere[#, 0.5]& /@ Position[data, 1]}, ImageSize -> 250, Boxed -> False, PlotRangePadding -> 0], Rotate[[image], -(π / 2)], Grid[Partition[Table[Graphics3D[{Specularity[White, 20], If[Positive[Extract[dwd[i][[1, 2]], #]], Red, Green], Sphere[#, 0.5]}& /@ Position[dwd[i][[1, 2]], u_ /; Abs[u] > 0], PlotRange -> Automatic, ImageSize -> 180, Boxed -> False, PlotRangePadding -> 0], {i, dwd["WaveletIndex"]}], 3, 3, {1, 1}, ""]]}, Alignment -> Center, Spacings -> 0]