PlanetaryAtmospheres: mypsi.m

File mypsi.m, 156 bytes (added by Jonathan, 9 years ago)
Line 
1function y = mypsi(x,lambda)
2syms yy
3 y=double(sqrt(vpasolve(yy - log(yy) == -3 - 4*log(lambda/2)+4*log(x)+2*lambda/x,yy,(x > lambda/2) * 100+.001)));
4end