View source for Korifit76.cin

// [[korifit76.cin]] is the complex double [[C++]] implementation  of function [[korifit76]], that approximates function [[kori]]\((z)\) for \(|z|<40\).
//<poem><nomathjax><nowiki>

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;}
//</nowiki></nomathjax></poem>

//[[Category:Approximation]] [[Category:C++]] [[Category:Complex double]] [[Category:Kori]] [[Category:Morinaga function]]