Sqrt2f43l.cin

// Sqrt2f43e.cin is routine for evaluarion of abelexponent to base \(\sqrt{2}\) that approach 4 at \(-\infty\) and has value zero at 3.

z_type f43L(z_type z){ int n; z_type e,s; DB Uco[21]={1, -.44858743119526122890,       .21208912005491969757,  -.10218436750697167872,        0.49698683037371830337e-1, -0.2430759032611955221e-1,    0.11933088396510860210e-1, -0.587369764200886206e-2,     0.289686728710575713e-2, -0.1430908106079253664e-2,    0.7076637148565759223e-3, -0.3503296158729878e-3,       0.17357560046634138e-3, -0.86061011929162626e-4,      0.426959089012891e-4, -0.2119302906819844809e-4,    0.1052442259960e-4, -0.52285174354086e-5,         0.259844999161e-5, -0.129178211214818578e-5,     0.4e-6 }; z-=4.; s=Uco[19]; for(n=18; n>=0; n--){ s*=z; s+=Uco[n]; } return log(-s*z)/.32663425997828098238-1.90057764535874; } z_type F43L(z_type z){ DB b=sqrt(2.); if(abs(z-4.)>.4) return F43L(log(z)/log(b))+1. ;                        return f43L(z); }

//