>
>
>Date: Tue, 25 Oct 2005 21:06:27 -0700 (PDT)
> From: Narasimham Gudipaty <glnarasimham@...>
>Subject: Re: A new Clifford torus type surface using a six cordinate triaxial
model
>
>Interesting. Any special properties?(chirality etc.) Seems to be a
self-intersecting surface. PlotPoints->{41,21} increased surface smoothness of
g1 and g2. 3D viewing could be better with RealTime3D. Regards
>
>Roger Bagula <rlbagulatftn@...> wrote:A new Clifford torus type surface
using a six cordinate triaxial model:
>( Mathematica Notebook)
>x1 = Cos[t]; x2 = Cos[t + 2*Pi/3]; x3 = Cos[t - 2*Pi/3];
>y1 = Cos[p]; y2 = Cos[p + 2*Pi/3]; y3 = Cos[p - 2*Pi/3];
>x = x1*(Sqrt[2] + y1)/(Sqrt[2] + x3*y3)
>y = x2*(Sqrt[2] + y2)/(Sqrt[2] + x3*y3)
>z = 1/(Sqrt[2] + x3*y3)
>g1 = ParametricPlot3D[{x, y, z}, {t, 0, 2*Pi}, {p, 0, Pi}]
>g2 = ParametricPlot3D[{x, y, z}, {t, 0, 2*Pi}, {p, Pi, 2*Pi}]
>Show[{g1, g2}]
>Show[{g1, g2}, ViewPoint -> {-0.998, 0.828, 3.125}
>
The symmetrical version :
x=x1/(Sqrt[2]+y1)
y=x2/(Sqrt[2]+y2)
z=x3/(Sqrt[2]+y3)
is very pretty.
Roger L. Bagula { email: rlbagula@... or rlbagulatftn@... }

11759 Waterhill Road,
Lakeside, Ca. 92040 telephone: 619-561-0814