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}

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