# 다차원 배열의 직접 변환

n 차원 데이터의 웨이블릿 변환을 수행 합니다.
 In[1]:= Xdata = CrossMatrix[All, {8, 8, 8}];
 In[2]:= Xdwd = LiftingWaveletTransform[data, Automatic, 1];
 In[3]:= XColumn[{Graphics3D[{Orange, Specularity[White, 20], Sphere[#, 0.5] & /@ Position[data, 1]}, ImageSize -> 250, Boxed -> False, PlotRangePadding -> 0], Rotate[\!\(\* GraphicsBox[ {Thickness[0.05263157894736842], FaceForm[{RGBColor[1, 0, 0], Opacity[ 1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{9.9999, 18.}, {9.9999, 13.5}, {-0.00009999999999976694, 13.5}, {-0.00009999999999976694, 4.5}, {9.9999, 4.5}, {9.9999, 0.}, {18.9999, 9.}}}]}, AspectRatio->Automatic, ImageSize->{75., 44.}, PlotRange->{{0., 19.}, {0., 18.}}]\), -(\[Pi]/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]
 Out[3]=