```
{Sin[x+y],Cos[x-y],x^2+y^2-z}

```

I've tried to use the [`FindRoot`](https://reference.wolfram.com/language/ref/FindRoot.html) function, which gives me an answer. However, it also says "Failed to converge to the requested accuracy or precision within 100 iterations".

```
g1 = FindRoot[{Sin[x + y], Cos[x - y], x^2 + y^2 - z}, {x, 0, 2 Pi}, {y, 0, 2 Pi}, {z, 0, 2 Pi}]

```

I also tried:

```
NSolve[{Sin[x + y], Cos[x - y], x^2 + y^2 - z}]

```

but that said "inverse functions are being used by NSolve, so some solutions may not be found; use Reduce for complete solution information. When I use Reduce, I get the following as my answer "Reduce[{Sin[x + y], Cos[x - y], x^2 + y^2 -z}]".

I also tried to plot the three functions, to look to see where the graphs intersect, and then I would determine the roots by choosing an estimated value. However, I can't figure out the code for graphing all three of them because the last one has a third variable.