WOLFRAM

Wolfram 语言与系统参考资料中心

直接转换多维数组

在 n 维数据上完成小波转换.

    
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]