Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2005
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2005

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

Search the Archive

cubic quaternion based surface

  • To: mathgroup at smc.vnet.net
  • Subject: [mg53465] cubic quaternion based surface
  • From: "Roger L. Bagula" <rlbtftn at netscape.net>
  • Date: Thu, 13 Jan 2005 03:12:08 -0500 (EST)
  • Sender: owner-wri-mathgroup at wolfram.com

Clear[x0,y0,z0,t,p,x,y,z]
(* four space coordinates*)
x0=Cos[t-0];
y0=Cos[t-Pi];
z0=Cos[t+2*Pi/3];
t0=Cos[t-Pi/6];
(*Clifford torus projection*)
x[t_]:=x0/(Sqrt[2]-t0)
y[t_]:=y0/(Sqrt[2]-t0)
z[t_]:=z0/(Sqrt[2]-t0)
g=ParametricPlot3D[{x[t],y[t],z[t]},{t,-Pi,Pi}]
(* this resulting surface is a projective plane of a quaternionic type*)
g2=ParametricPlot3D[{x[t]*z[p],y[t]*x[p],z[t]*y[p]},{t,-Pi,Pi},{p,-Pi,Pi},
     Boxed->False,Axes->False,PlotPoints->60,PlotRange->All]
Show[g2,ViewPoint->{0.001, -0.045, 3.383}]
Show[g2,ViewPoint->{-3.360, -0.024, 0.397}]


  • Prev by Date: Re: Mathematica is not very clever
  • Next by Date: PlotLabel in two lines
  • Previous by thread: Re: Mathematica is not very clever
  • Next by thread: Re: cubic quaternion based surface