3D imaging
- To: mathgroup at smc.vnet.net
- Subject: [mg109577] 3D imaging
- From: eric g <eric.phys at gmail.com>
- Date: Thu, 6 May 2010 04:51:21 -0400 (EDT)
hello group,
what is the best way to generate the 3D image or 3D graphics from a 3D
matrix. below img is the matrix would like to see in the same sense that
ArrayPlot[img[[4, All, All]], ColorFunction -> GrayLevel] will give me
the 4th-slide 2D image; or Image[img[[4,All,All]]]
best regards,
Eric
img = Table[Random[]/5., {4}, {256}, {256}];
For[i = 1, i <= 4, i++,
For[j = 1, j <= 256, j++,
For[k = 1, k <= 256, k++,
If[Mod[i, j] == 0 || Mod[i, k] == 0 || Mod[j, k] == 0,
img[[i, j, k]] = 1 + Random[]/5.];
]
]
]