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}

>Roger L. Bagula { email: rlbagula@... or rlbagulatftn@... }
>
>
11759 Waterhill Road,
Lakeside, Ca. 92040 telephone: 619-561-0814