Resolving Mathematica 5.0 Problem with Graphs

[Pengwuino]

Ok i type in all this stuff

<< Graphics`ImplicitPlot`
f[x_, y_] = 5 - 10 x*y - 4 x\^2 + 3 y - y\^4
fx[x_, y_] = D[f[x, y], x]
fy[x_, y_] = D[f[x, y], y]
p1 = ImplicitPlot[fx[x, y] == 0, {x, -4, 4}, {y, -4, 4}, PlotStyle -> RGBColor[1, 0, 0], PlotPoints -> 100]
p2 = ImplicitPlot[fy[x, y] == 0, {x, -4, 4}, {y, -4, 4}, PlotStyle -> RGBColor[0, 0, 1]]
Show[p1, p2]


And when i run it... i get a whole lot of trash. Hundreds of lines of just numbers. What i think the problem might be is that i used Mathematica 4.# at my university and emailed it to myself where i have 5.0. Does anyone know why i got all this garbage and the 2 graphs instead of just hte graphs?

 

[saltydog]

This is how I wrote it:

<<Graphics`ImplicitPlot`

f1=$5-10xy-4x^2+3y-y^4$;
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}];