Commit 11fe0cf3 authored by andy's avatar andy
Browse files

ENH: Added stabilisation to NSRDS function

parent 4b375230
......@@ -105,9 +105,11 @@ public:
//- Evaluate the function and return the result
scalar f(scalar, scalar T) const
{
scalar t = 1.0 - T/Tc_;
scalar Tdash = min(T, Tc_ - ROOTVSMALL);
scalar t = 1.0 - Tdash/Tc_;
return
a_*a_/t + b_ - t
a_*a_/(t + ROOTVSMALL) + b_ - t
*(
2.0*a_*c_
+ t*(a_*d_ + t*(c_*c_/3.0 + t*(0.5*c_*d_ + 0.2*d_*d_*t)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment