PolarPlot3D?

[Alexei Boulbitch]

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: [phone]
Fax: [phone]
Mobile: [phone]

e-mail: ***@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.

[David Park]

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
***@comcast.net
http://home.comcast.net/~djmpark/


From: Alexei Boulbitch [mailto:***@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: [phone]
Fax: [phone]
Mobile: [phone]

e-mail: ***@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.

[Brett Champion]

Post by Alexei Boulbitch
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?

RevolutionPlot3D will do this using the syntax:

RevolutionPlot3D[f[r,phi], {r, r0, r1}, {phi, phi0, phi1}]

Brett Champion
Wolfram Research