LambertWoCoe.inc
Jump to navigation
Jump to search
// LambertWoCoe.inc describes in C++ the coefficients in the expansion of the LambertW function at zero.
// The C++ text below is generated with the C++ code /* #include<math.h> #include<stdio.h> #include<stdlib.h> main(){ int m,n; double c,p,q; FILE *o; p=1.; o=fopen("LambertWoCoe.inc","w"); fprintf(o,"DB LambertWoCoe[66]={1.\n"); for(m=1;m<51;m++){ p/=m; c=pow(m+1.,m-1); fprintf(o,",%28.14f\n",c*p);} fprintf(o,"};\n"); fclose(o); system("more LambertWoCoe.inc"); } */
DB LambertWoCoe[66]={1. , 1.00000000000000 , 1.50000000000000 , 2.66666666666667 , 5.20833333333333 , 10.80000000000000 , 23.34305555555556 , 52.01269841269841 , 118.62522321428571 , 275.57319223985894 , 649.78717234347448 , 1551.16051948051950 , 3741.44970295923895 , 9104.50024115801898 , 22324.30851270660423 , 55103.62197290384211 , 136808.86090394295752 , 341422.05066583841108 , 855992.96599660767242 , 2154990.20609108870849 , 5445552.92231446318328 , 13807330.00216663256288 , 35117044.98513923585415 , 89568002.56102797389030 , 229041684.61879497766495 , 587103504.11717987060547 , 1508256053.85779309272766 , 3882630161.29318952560425 , 10013943136.65483093261719 , 25873567362.65761184692383 , 66962097093.58074951171875 , 173571165959.91983032226562 , 450568046564.23547363281250 ,1171223178256.48754882812500 ,3048462517882.44677734375000 ,7944240398206.81152343750000 ,20726462893727.05468750000000 ,54134309927745.64062500000000 ,141537001323842.75000000000000 ,370420141783066.68750000000000 ,970343148988291.75000000000000 ,2544149870142830.00000000000000 ,6676186549945614.00000000000000 ,17533383884497606.00000000000000 ,46082787899842400.00000000000000 ,121208404038419968.00000000000000 ,319031756001941888.00000000000000 ,840290335422231168.00000000000000 ,2214659548716029696.00000000000000 ,5840571433838373888.00000000000000 ,15412168778694733824.00000000000000 };
// //