Message Boards Message Boards

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

orthogonal trajectories

Hello , how we can find the orthogonal trajectories by mathematica ? I want to find it to x^2 +y^2=c y ,thanks in advance

POSTED BY: Tasneem Smadi
2 Replies
POSTED BY: Tasneem Smadi

First ask yourself, how would I do this with a paper and pencil. Then you'll know what steps to take in Mathematica.

The first step is to use Implicit differentiation to find the value of y'. You can do that in Mathematica with:

D[x^2 + y[x]^2 == c y[x], x]

Solve[%, y'[x]]

{y'[x] -> (2 x)/(c - 2 y[x])}

The value orthogonal to this is -1/y'[x].

We can visualize the results:

cPlot = ContourPlot[x^2 + y^2 == 2 y, {x, -2, 2}, {y, -1, 3}, ContourStyle -> Red]

vPlot = VectorPlot[{-2 x, 2 - 2 y}, {x, -2, 2}, {y, -1, 3}]

Show[vPlot, cPlot]

enter image description here

POSTED BY: Sean Clarke
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