0
|
8278 Views
|
|
1 Total Likes
View groups...
Share
GROUPS:

# 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:
 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[]}]]