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]