F=y^2+y;F1=x^3-x^2-3*x+2; F2=x^3-x^2-2*x+3;
RES1=Values[Flatten[Table[Solve[F==F1,y],
{x,Range[-2,2,.05]}]]];
RES2=Values[Flatten[Table[Solve[F==F2,y],
{x,Range[-2,2,.05]}]]];
Graphics[Table[{Hue[i/81],PointSize[Medium],
Point[{i,RES1[[i]]}],
Point[{i,RES2[[i]]}]},{i,162}],
Frame->True,AspectRatio->2/3,
ImageSize->{600,450},GridLines->Automatic]
No comments:
Post a Comment