Message Boards Message Boards

0
|
14306 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

Thank you so much Sean Clarke .but I want ask you another question if I solve this eq . I can solve it like homogenous eq. or exact eq. I get two equalivant solution how I can prove there equavilant by mathematica ???

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