Skip to content

Instantly share code, notes, and snippets.

@tenomoto

tenomoto/muc.m

Created July 12, 2016 08:22
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save tenomoto/0c2d1dc43da4a2503ccd034a5608fe6f to your computer and use it in GitHub Desktop.
Save tenomoto/0c2d1dc43da4a2503ccd034a5608fe6f to your computer and use it in GitHub Desktop.
Download ZIP
Calculate the critical value for the non dimensional wave number in the Eady problem
Raw
muc.m
#!/usr/bin/env octave -qf
function y = f(x)
y = coth(0.5*x) - 0.5*x;
endfunction
format long
fsolve("f", 1.0)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment