Re: anyone good in stereographic projections?
- To: mathgroup at smc.vnet.net
- Subject: [mg40450] Re: anyone good in stereographic projections?
- From: "digrpat" <digrpat at aol.com>
- Date: Sun, 6 Apr 2003 04:34:05 -0400 (EDT)
- References: <b6m0c2$eh1$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
(* this clumsy program does something similiar to what you're asking.
The stereo effect is produced by slightly crossing your eyes *)
Table[ Show[
GraphicsArray[{
ParametricPlot3D[Evaluate[
Table[{Sin[ theta+mu] Cos[theta+mu],-Sin[ theta-mu] Cos[
theta-mu],mu+theta},
{mu,1,Pi,1/32}]],
{theta,omega-1/2,omega},
AspectRatio->Automatic,
Boxed-> False,Axes->False,
PlotPoints->100,DisplayFunction->Identity,
PlotRange->All,
ViewPoint-> {1,-1.3,0}
],
ParametricPlot3D[Evaluate[
Table[{Sin[ theta+mu] Cos[ theta+mu],-Sin[ theta-mu] Cos[
theta-mu],mu+theta},
{mu,1,Pi,1/32}]],
{theta,omega-1/2,omega},
AspectRatio->Automatic,
Boxed-> False,Axes->False,
PlotPoints->100,DisplayFunction->Identity,
PlotRange->All,
ViewPoint-> {.8,-1.3,0}
]},
GraphicsSpacing -> .001]],
{omega,Pi,2Pi,Pi/24}]
"yaw" <yawees at yahoo.com> wrote in message news:b6m0c2$eh1$1 at smc.vnet.net...
> I have a set of vectors eg{{12,21,22},{21,24,87},{-16,3,5}..........}} I
> will like to plot the stereographic projections of these. can anyone help?
>
>
>
----== Posted via Newsfeed.Com - Unlimited-Uncensored-Secure Usenet News==----
http://www.newsfeed.com The #1 Newsgroup Service in the World! >100,000 Newsgroups
---= 19 East/West-Coast Specialized Servers - Total Privacy via Encryption =---