MathGroup Archive 2008

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

Search the Archive

Re: Graphics3D, missing part

  • To: mathgroup at smc.vnet.net
  • Subject: [mg87122] Re: Graphics3D, missing part
  • From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
  • Date: Tue, 1 Apr 2008 05:25:57 -0500 (EST)
  • Organization: Uni Leipzig
  • References: <fssr9u$bm5$1@smc.vnet.net>
  • Reply-to: kuska at informatik.uni-leipzig.de

Hi,

Show[G, G1, G2, G3, PlotRange -> All]

??

Regards
   Jens

wshun wrote:
> 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: Factorial equations
  • Next by Date: Re: Something very simple.....
  • Previous by thread: Graphics3D, missing part
  • Next by thread: Re: Re: Number of monominals