Korifit76.cin

// korifit76.cin is the complex double C++ implementation of function korifit76, that approximates function kori$(z)$ for $|z|<40$.

//

z_type korifit76(z_type x){ z_type A,B,f;
A=1.
+x*(-0.04844698269548584
+x*( 0.0010028289633265202
+x*(-0.000011428855401098336
+x*( 7.61813379974462e-8
+x*(-2.8376606186641804e-10
+x* 4.651275051439759e-13 )))));
B=1.
+x*(0.03223483760044156
+x*(0.0004974915308429358
+x*(4.7768603073237505e-6
+x*(3.071615607112112e-8
+x*(1.292095753771865e-10
+x* 2.925186494186955e-13 )))));

f =1.-x*0.18979147951675412;
f*=1.-x*0.07722549225542492;
f*=1.-x*0.041593599918199144;
f*=1.-x*0.025941444416534207;
f*=1.-x*0.017709231336025616;
f*=1.-x*0.012853422997826148;

return f*A/B;}
//

//