- #1

- 3,003

- 3

*beta[M, θ]*that I am trying to define. beta is a nasty equation that is way too many lines for me to input at once, so I tried to break it up into pieces. However, the part that is showing up in red is giving me trouble. I haven't even gotten to the beta part of the code, but I expect it will give me the same problem.

I think you can see what I am trying to here. How can I get around the "scope" issue that Mathematica is giving me?

thanks!

Code:

```
lambda[M_, \[Theta]_] := ((M^2 - 1)^2 -
3*(1 + 0.2 M^2) (1 + 1.2 M^2)*Tan[\[Theta]]^2)^.5;
X[M_, \[Theta]_] := ((M^2 - 1)^3 -
9*(1 + 0.2 M^2)*(1 + 0.2 M^2 + 2.4/4 M^4) Tan[\[Theta]]^2)/
lambda[B][COLOR="Red"][M_][/COLOR][/B]^3;
beta[M_, \[Theta]_] :=
ArcTan[ (M^2 - 1 + 2 lambda*Cos[(4 Pi + ArcCos[X])/3])/(
3*(1 + .2 M^2)*Tan[\[Theta]])]*180/Pi;
```