Dismiss Notice
Join Physics Forums Today!
The friendliest, high quality science and math community on the planet! Everyone who loves science is here!

Mathematica 5.0 problem

  1. Mar 28, 2005 #1

    Pengwuino

    User Avatar
    Gold Member

    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?
     
  2. jcsd
  3. Mar 30, 2005 #2

    saltydog

    User Avatar
    Science Advisor
    Homework Helper

    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}];
     
Know someone interested in this topic? Share this thread via Reddit, Google+, Twitter, or Facebook

Have something to add?



Similar Discussions: Mathematica 5.0 problem
  1. Mathematica 5.0 (Replies: 1)

  2. Mathematica 5.0 (Replies: 1)

  3. Mathematica problem (Replies: 4)

  4. Mathematica problem (Replies: 2)

Loading...