<<Optimization`UnconstrainedProblems`

FindRootPlot[{x^2 +y^2-3,x+Sin[y]},{{x,1},{y,0}}]

FindRootPlot[{x^2 - 3 y,Sin[x^2 + y^2]},{{x,1},{y,1}}]