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 =---