_______________________________________________
Gfs-users mailing list
Gfs-...@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/gfs-users
function vtr(x)
{
if (x < 1.)
return A*x*(1.-x**2)*(3.*sin(theta)**2-1.);
else
return A*x**(-2)*(x**(-2)-1.)*(3.*sin(theta)**2-1.);
}