Message Boards Message Boards

0
|
8086 Views
|
1 Reply
|
1 Total Likes
View groups...
Share
Share this post:

Plot in spherical coordinates

Posted 9 years ago

Hello,

im actually trying to spherical plot in Wolframalpha.

I tried it with the documentation(http://reference.wolfram.com/language/ref/SphericalPlot3D.html)

But the examples are not working for me too.

Hopefully anyone can help me

thank you

This is what I would like to Plot:

Attachments:
POSTED BY: Stefan Warring

You have a vector-valued function to plot. You may try with VectorPlot3D or ListVectorPlot3D. Here is a custom plot using 3D graphic primitives:

er[r_, \[Theta]_, \[CurlyPhi]_] = 
  D[FromSphericalCoordinates[{r, \[Theta], \[CurlyPhi]}], r];
etheta[r_, \[Theta]_, \[CurlyPhi]_] = 
  D[FromSphericalCoordinates[{r, \[Theta], \[CurlyPhi]}], \[Theta]]/
   r;
ephi[r_, \[Theta]_, \[CurlyPhi]_] = 
  D[FromSphericalCoordinates[{r, \[Theta], \[CurlyPhi]}], \
\[CurlyPhi]]/(r*Abs[Sin[\[Theta]]]);
f[r_, \[Theta]_, \[CurlyPhi]_] = 
  Simplify[r*Cos[\[Phi]] er[r, \[Theta], \[CurlyPhi]] + 
    r*Sin[\[Phi]] ephi[r, \[Theta], \[CurlyPhi]] + 
    Sin[\[Theta]] etheta[r, \[Theta], \[CurlyPhi]]];
With[{r = 1, n = 10}, 
 Graphics3D[{Table[
    Evaluate[{Point[FromSphericalCoordinates[{r, \[Theta], \[Phi]}]], 
      Arrow[{FromSphericalCoordinates[{r, \[Theta], \[Phi]}], 
        FromSphericalCoordinates[{r, \[Theta], \[Phi]}] + .3 f[
           r, \[Theta], \[Phi]]}]}], {\[Theta], Pi/n, Pi - Pi/n, 
     Pi/n}, {\[Phi], 0, 2 Pi, Pi/n}], Opacity[.5], Sphere[]}]]

vector plot on a sphere

POSTED BY: Gianluca Gorni
Reply to this discussion
Community posts can be styled and formatted using the Markdown syntax.
Reply Preview
Attachments
Remove
or Discard

Group Abstract Group Abstract