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]
>