Just thought I'd post the Mathematica code I'm working with:
Uo = 100
b = 6*10^(-11)
R = 60268000
r = R*Sin[76]
U = Uo*Exp[-b*(y^2)/(2*Uo)]
Ld = N[Sqrt[2*Uo/b]]
\[CapitalOmega] = N[(2*\[Pi]/(39 + 60*39 + 10*60*60))]
\[Beta] = 2*\[CapitalOmega]*Cos[(76) Degree]/R
Clear[y]
Uyy2 =...
Hey there, first timer poster here
Homework Statement
I'm working on a barotropic linear instability analysis and I've been having trouble getting an expression for the complex phase speed eigenvalue C = C_r + i*C_i for the purpose of plotting a dispersion diagram (C_i vs k or C_r vs...