In[8]:=
f[x_, y_] := x - y^2 Cos[y] g[x_, y_] := -y + x Sin[x] FindRoot[{f[x, y] == 0, g[x, y] == 0}, {x, -6}, {y, 3}]
If your output will be a sequence of graphs, select a display option.
Display as:
individual images
a movie
both of the above
Out[8]=
{x -> -6.70018, y -> 2.71369}
Up to
1. Harvesting the Seeds