- #1

joshmccraney

Gold Member

- 1,955

- 102

I'm trying to solve three equations in Mathematica, but NSolve is taking FOREVER. Am I missing perhaps an easier way? The equations are below:

Code:

```
NSolve[{1/2 r (r \[Theta] + (2 h + r Cos[\[Theta]]) Sin[\[Theta]]) ==
v, Cos[\[Alpha]] == -Sin[\[Theta] - \[Beta]],
Tan[\[Theta]] == (-h Cot[\[Beta]] +
Sqrt[-h^2 + r^2 Csc[\[Beta]]^2])/(
h + Cot[\[Beta]] Sqrt[-h^2 + r^2 Csc[\[Beta]]^2]) }, {r, \[Theta],
h}]
```