Message Boards Message Boards

0
|
3566 Views
|
2 Replies
|
1 Total Likes
View groups...
Share
Share this post:

[Solved] I have Plot issue in Mathematica code. Kindly sort it out.

Posted 4 years ago

Ergo sphere Plot

This graph is plotted from equation:

    M=1;a;0.7;b=1.1754;
    r^2 + a^2 Cos[\[Theta]]^2 - 2 M (1 - (2.718)^(-r^3/b^3)) r .
    M = 1; a = 0.4; b = 1; NSolve [{r^2 + a^2 Cos[\[Theta]]^2 - 
        2 M (1 - (2.718)^(-r^3/b^3)) r == 0, 0 <= r <= 8}, r]

    ParametricPlot[{rSin[\[Theta]], rCos[\[Theta]]} {\[Theta], -\[Pi], \[Pi]}]

It is solved numerically for r but no \theta is value initially put in the equation otherwise it gives a circle and I need the plot as above mentioned (Parametrically plotted or Polar Plotted).

POSTED BY: nani khan
2 Replies
Posted 4 years ago

Thank you for the reply. I am satisfied with your solution.

POSTED BY: nani khan
POSTED BY: Nikolay Shilov
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