Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Needs["CustomTicks`"]
- temp = Table[
- If[{x, y, z} == {2, .2, .02}, 1, 0], {z, 0, .1, .005}, {y, 0,
- 1, .1}, {x, 0, 10, 2}];
- {xmax, ymax, zmax} = {10, 1, .1};
- {zdim, ydim, xdim} = Dimensions[colorArray][[;; 3]];
- Show[Image3D[#], ViewPoint -> {1.3, -2.4, 2}, SphericalRegion -> True,
- Boxed -> True, BoxRatios -> {1, 1, 1}, Axes -> True,
- AxesLabel -> {"X", "Y", "Z"}, ImageSize -> 350,
- ImageResolution -> 750,
- Ticks -> {LinTicks[0, 10,
- TickPostTransformation -> (# xdim/xmax &)],
- LinTicks[0, 1, TickPostTransformation -> (# ydim/ymax &)],
- LinTicks[0, .1,
- TickPostTransformation -> (# zdim/zmax &)]}] & /@ {temp,
- Reverse[temp, {1, 2, 3}], Reverse[temp, {1, 2}]}
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement