| Author |
Comment/Response |
Elizabeth
|
 07/25/02 11:10am
I would like to graph the curve of intersection between a plane and sphere, basically the great circles. My planar equations is xSin[thetap]+ySin[phip]+zCos[thetap]=0. I have graphed this by using: Plot3D[1/Cos[thetap] (-x Cos[phip] Sin[thetap]-ySin[phip], {x, -7, 7}, {y, -7, 7}, PlotRange->{-7, 7}], selecting specific values for thetap and and phip. I have graphed the sphere equation using: ParametricPlot3D[{6.4 Sin[theta] Cos[phi], 6.4 Sin[theta] Sin[phi], 6.4Cos[theta]}, {theta, 0, Pi}, {phi, 0, 2 Pi}]. Is there any way to find the equation of the curve of intersection between the sphere and plane, and then graph it using mathematica?
Thank you.
URL: , |
|
