Re: discrete points in 3D polar
- To: mathgroup at smc.vnet.net
- Subject: [mg113402] Re: discrete points in 3D polar
- From: Alexei Boulbitch <alexei.boulbitch at iee.lu>
- Date: Wed, 27 Oct 2010 05:16:04 -0400 (EDT)
Hi, Igor,
I am not quite sure that have understood you right. This is the list with your points:
lst = {{0.27, -2.17, 1.89}, {0.24, -0.92, 1.7}, {0.28, -1.61, 1.18}};
It seems that you want to visualize this (or another) list in CARTESIAN space, while the coordinates of the points
are given in spherical coordinates, right? Since if you would want to draw them in spherical axes {R,teta,phi} you
would simply use PlotPointPlot3D[lst], is not it?
If yes, try this::
g[{r_, \[CurlyPhi]_, \[Theta]_}] := {r*Sin[2 \[Pi]*\[Theta]/360]*
Cos[2 \[Pi]*\[CurlyPhi]/360],
r*Sin[2 \[Pi]*\[Theta]/360]*Sin[2 \[Pi]*\[CurlyPhi]/360],
r*Cos[2 \[Pi]*\[Theta]/360]};
ListPointPlot3D[Map[g, lst], PlotStyle -> PointSize[Large]]
and play a bit with the PlotStyle and other options.
Have fun, Alexei
Hi,
I am trying to plot a list of discrete points in 3D polar (spherical)
space. The data is in the format (r, phi, psi) where the r value
represents a normalized radial distance, phi (in degrees) is the
inclination (polar angle), and psi (in degrees) is the azimuth
(azimuthal angle). For this specific problem, we have a spherical
object that was divided in half by a plane. From the center of the
sphere (the origin), a line was drawn to the sphere edge on this plane
such that a vector (1,0,0) represents the main axis. All the
coordinates are reported with respect to this axis and the radial
distance is normalized to this vector. For example, if I have two
spheres of different size and specify the main axis in the same manner
in both cases, the spherical coordinates for a "relative" location in
one sphere would correspond to the same "relative" location in the
other sphere. Some sample data is shown below (CSV file is also
attached):
Structure, R, Phi (degrees), Psi (degrees)
Target 1, 0.27, -2.17, 1.89
Target 2, 0.24, -0.92, 1.7
Target 3, 0.28, -1.61, 1.18
I am unfortunately a novice in mathematica (a physician) and despite
spending some time playing with the program, I could not create a nice
3D graph to display this information. I would very much appreciate
your help and suggestions to solve this display problem. I believe
that another system has a function called "3D polar plot" (based on my
websearch) but I could not find an equivalent function in Mathematica.
I don't think that RevolutionPlot3D works here because it only
accepts a function and not discrete points for input. Please advise.
Thank you in advance for your help and suggestions.
- Igor
--
Alexei Boulbitch, Dr. habil.
Senior Scientist
Material Development
IEE S.A.
ZAE Weiergewan
11, rue Edmond Reuter
L-5326 CONTERN
Luxembourg
Tel: +352 2454 2566
Fax: +352 2454 3566
Mobile: +49 (0) 151 52 40 66 44
e-mail: alexei.boulbitch at iee.lu
www.iee.lu
--
This e-mail may contain trade secrets or privileged, undisclosed or
otherwise confidential information. If you are not the intended
recipient and have received this e-mail in error, you are hereby
notified that any review, copying or distribution of it is strictly
prohibited. Please inform us immediately and destroy the original
transmittal from your system. Thank you for your co-operation.