Graphics3D, missing part
- To: mathgroup at smc.vnet.net
- Subject: [mg87112] Graphics3D, missing part
- From: wshun <cheungwaishun at gmail.com>
- Date: Tue, 1 Apr 2008 03:21:29 -0500 (EST)
I am trying to use Mathematica 5.1 to make a fractal tree. I get no
problem for Show[G1,G2,G3], but when I do Show[G, G1, G2, G3], the
problem part of the graph is missing. Have I done something wrong?
Any help is much appreciated.
wshun
coneF = Function[{x, y, z, r, h, t}, {{x + 0.6h*Cos[t], y +
0.6h*Sin[t], z + 0.6h, 0.4r, 0.4h, t}, {x + 0.6h*Cos[t], y +
0.6h*Sin[t], z + 0.6h, 0.4r, 0.6h, Mod[t + 2Pi/3, 2Pi]}, {x +
0.6h*Cos[t], y + 0.6h*Sin[t], z + 0.6h, 0.4r, 0.6h, Mod[t + 4Pi/3,
2Pi]}}]
coneG = Function[A, Flatten[Table[coneF[ Extract[A, {k, 1}],
Extract[A, {k, 2}], Extract[A, {k, 3}], Extract[A, {k, 4}],
Extract[A, {k, 5}], Extract[A, {k, 6}]], {k, Length[A]}], 1]]
DrawCone = Function[A, Table[ParametricPlot3D[{Extract[A, {k, 1}],
Extract[A, {k, 2}], Extract[A, {k, 3}]} + Extract[A, {k, 4}]*(1 - h/
Extract[A, {k, 5}])*{Cos[t], Sin[t], 0} + h*{Cos[Extract[A, {k, 6}]],
Sin[Extract[A, {k, 6}]], 1}, {h, 0, Extract[A, {k, 5}]}, {t, 0, 2Pi}],
{k, Length[A]}]]
A = {{0, 0, 0, 1, 6, 0}}; A1 = coneG[A]; A2 = coneG[A1]; A3 =
coneG[A2];
G = DrawCone[A]; G1 = DrawCone[A1]; G2 = DrawCone[A2]; G3 =
DrawCone[A3]
Show[G, G1, G2, G3]