Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2008

[Date Index] [Thread Index] [Author Index]

Search the Archive

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]


  • Prev by Date: how change color of directed edges for GraphPlot
  • Next by Date: Re: Re: Number of monominals
  • Previous by thread: how change color of directed edges for GraphPlot
  • Next by thread: Re: Graphics3D, missing part