Mathematica 9 is now available
Student Support Forum
-----
Student Support Forum: 'Plotting conics' topicStudent Support Forum > General > Archives > "Plotting conics"

Next Comment >Help | Reply To Topic
Author Comment/Response
Renaud
10/31/12 1:20pm

I'm trying to plot the resulting conic, calculated by a dot product.

Manipulate[
K = {Sin[t] Cos[p], Sin[t] Sin[p], Cos[t]};
oP = {x, y, 1};
noP = Assuming[Element[{t, x, y, z}, Reals], Simplify[Norm[oP]]];
nK = Assuming[Element[{t, p, x, y, z}, Reals], Simplify[Norm[K]]];
{(K.oP)^2 == (Cos[a]*nK*noP)^2, {x, -30, 30}, {y, -30, 30}},
{a, Pi/16, Pi, Pi/16, ControlPlacement -> Left},
{t, 0, \[Pi], \[Pi]/256, ControlPlacement -> Left},
{p, 0, \[Pi], \[Pi]/256, ControlPlacement -> Left}]

It does return a good conic equation, but whenever I try to graphic with

ParametricPlot[{equation}, {x, -10, 10}, {y, -10, 10}], it only plot the axes.
However,
=={equation} does plot it right.
Should I change my equation or switch ParametricPlot for something else?

URL: ,

Subject (listing for 'Plotting conics')
Author Date Posted
Plotting conics Renaud 10/31/12 1:20pm
Re: Plotting conics Michael 11/07/12 4:24pm
Next Comment >Help | Reply To Topic