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;} //

//