Skip to content
Snippets Groups Projects
Commit 11fe0cf3 authored by andy's avatar andy
Browse files

ENH: Added stabilisation to NSRDS function

parent 4b375230
Branches
Tags
No related merge requests found
...@@ -105,9 +105,11 @@ public: ...@@ -105,9 +105,11 @@ public:
//- Evaluate the function and return the result //- Evaluate the function and return the result
scalar f(scalar, scalar T) const 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 return
a_*a_/t + b_ - t a_*a_/(t + ROOTVSMALL) + b_ - t
*( *(
2.0*a_*c_ 2.0*a_*c_
+ t*(a_*d_ + t*(c_*c_/3.0 + t*(0.5*c_*d_ + 0.2*d_*d_*t))) + t*(a_*d_ + t*(c_*c_/3.0 + t*(0.5*c_*d_ + 0.2*d_*d_*t)))
......
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