View Single Post
saltydog
saltydog is offline
#2
Mar30-05, 06:14 PM
Sci Advisor
HW Helper
P: 1,593
This is how I wrote it:

<<Graphics`ImplicitPlot`

f1=[itex]5-10xy-4x^2+3y-y^4[/itex];
f1x=D[f1,x];
f1y=D[f1,y];

plt1=ImplicitPlot[f1==0,{x,-4,4},{y,-4,4},PlotStyle->RGBColor[1,0,1]];
plt2=ImplicitPlot[f1x==0,{x,-4,4},{y,-4,4},PlotStyle->RGBColor[0,1,0]];
plt3=ImplicitPlot[f1y==0,{x,-4,4},{y,-4,4},PlotStyle->RGBColor[0,0,1]];

Show[{plt1,plt2,plt3}];