Re: PolarPlot3D?
- To: mathgroup at smc.vnet.net
- Subject: [mg112440] Re: PolarPlot3D?
- From: "David Park" <djmpark at comcast.net>
- Date: Wed, 15 Sep 2010 04:41:39 -0400 (EDT)
With Presentations you can use the DrawingTransform3D command. He is an
example. The first plot is in r, phi coordinates and the second plot is in
Cartesian coordinates.
Needs["Presentations`Master`"]
f[r_, \[Phi]_] := r Cos[2 \[Phi]]
Draw3DItems[
{Draw3D[f[r, \[Phi]], {r, 0, 2}, {\[Phi], 0, 2 \[Pi]}]},
NiceRotation,
Axes -> True,
AxesLabel -> {r, \[Phi], f}]
Draw3DItems[
{(Draw3D[f[r, \[Phi]], {r, 0, 2}, {\[Phi], 0, 2 \[Pi]}] //
Normal) /. DrawingTransform3D[#1 Cos[#2] &, #1 Sin[#2] &, #3 &]},
NiceRotation,
Axes -> True,
AxesLabel -> {x, y, f}]
David Park
djmpark at comcast.net
http://home.comcast.net/~djmpark/
From: Alexei Boulbitch [mailto:alexei.boulbitch at iee.lu]
Dear Community,
sometimes I need to plot a 3D plot in cylindrical coordinates. That is
in {r,/phi,z}. Typically I use a boring way: express the r and /phi in
terms of x and y and apply Plot3D.
Is there a shorted way to directly plot a function f=f[r, phi] such that
the graph is in Cartesian axes?
Regards, Alexei
--
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.