Re: stokes parameter
- To: mathgroup at smc.vnet.net
- Subject: [mg37666] Re: stokes parameter
- From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
- Date: Fri, 8 Nov 2002 02:14:05 -0500 (EST)
- Organization: Universitaet Leipzig
- References: <aqdkt5$111$1@smc.vnet.net>
- Reply-to: kuska at informatik.uni-leipzig.de
- Sender: owner-wri-mathgroup at wolfram.com
Hi,
something like
xyEllipse[{x_, y_}, a_, b_, gamma_] :=
{{x, y},
Table[{{Cos[gamma], Sin[gamma]},
{-Sin[gamma], Cos[gamma]}}.{a*Sin[phi],
b*Cos[phi]}, {phi, 0, 2Pi, 2Pi/32}]}
toSphere[{{phi_, th_}, pnts_}] :=
Module[{pos, nphi, nth},
pos = {Cos[phi]*Sin[th], Sin[phi]*Sin[th], Cos[th]};
nphi = {-Sin[phi] , Cos[phi] , 0};
nth = {Cos[phi] Cos[th], Cos[th] Sin[phi], -Sin[th]};
Line[
(pos + Plus @@ ({nphi, nth}*#)) & /@ pnts
]
]
xyellipses = toSphere /@ Flatten[Table[
(p = (1 + Cos[th])/2;
xyEllipse[{phi, th}, 0.1*(Sqrt[p] + Sqrt[1 - p]),
0.1*(Sqrt[p] - Sqrt[1 - p]), phi]), {th, 0, Pi, Pi/8},
{phi, 0,
2Pi, Pi/6}], 1];
gg = Show[
Graphics3D[
xyellipses, PlotRange -> All
]
]
or can you be more specific what you want ?
Regards
Jens
Beulah_Moses wrote:
>
> Could you suggest if there are ways by which stokes parameters can be
> plotted on a Poincare sphere?
>
> Thanks
> Beulah Moses
> -------------------------------------------------------------------------
> Beulah Moses
> Communication Research Group
> Dept. of Electronic and Information Engineering
> The Hong Kong Polytechnic University
> Hung Hom, Hong Kong
> Tel No: + 852 2766 4094
> Fax No:+ 852 2362 8439
> email: moses at eie.polyu.edu.hk