UNPKG

@stdlib/math-base-special-rempio2

Version:
12 lines (11 loc) 4.39 kB
"use strict";var m=function(x,r){return function(){return r||x((r={exports:{}}).exports,r),r.exports}};var g=m(function(c0,S){ var L=require('@stdlib/math-base-special-floor/dist'),T=require('@stdlib/math-base-special-ldexp/dist'),W=require('@stdlib/array-base-zeros/dist'),w=[10680707,7228996,1387004,2578385,16069853,12639074,9804092,4427841,16666979,11263675,12935607,2387514,4345298,14681673,3074569,13734428,16653803,1880361,10960616,8533493,3062596,8710556,7349940,6258241,3772886,3769171,3798172,8675211,12450088,3874808,9961438,366607,15675153,9132554,7151469,3571407,2607881,12013382,4155038,6285869,7677882,13102053,15825725,473591,9065106,15363067,6271263,9264392,5636912,4652155,7056368,13614112,10155062,1944035,9527646,15080200,6658437,6231200,6832269,16767104,5075751,3212806,1398474,7579849,6349435,12618859],Y=[1.570796251296997,7549789415861596e-23,5390302529957765e-30,3282003415807913e-37,1270655753080676e-44,12293330898111133e-52,27337005381646456e-60,21674168387780482e-67],G=16777216,h=5960464477539063e-23,c=W(20),b=W(20),N=W(20),F=W(20);function M(x,r,a,_,u,f,t,E,n){var v,i,o,A,e,D,P,O,I;for(A=f,I=_[a],O=a,e=0;O>0;e++)i=h*I|0,F[e]=I-G*i|0,I=_[O-1]+i,O-=1;if(I=T(I,u),I-=8*L(I*.125),P=I|0,I-=P,o=0,u>0?(e=F[a-1]>>24-u,P+=e,F[a-1]-=e<<24-u,o=F[a-1]>>23-u):u===0?o=F[a-1]>>23:I>=.5&&(o=2),o>0){for(P+=1,v=0,e=0;e<a;e++)O=F[e],v===0?O!==0&&(v=1,F[e]=16777216-O):F[e]=16777215-O;if(u>0)switch(u){case 1:F[a-1]&=8388607;break;case 2:F[a-1]&=4194303;break}o===2&&(I=1-I,v!==0&&(I-=T(1,u)))}if(I===0){for(O=0,e=a-1;e>=f;e--)O|=F[e];if(O===0){for(D=1;F[f-D]===0;D++);for(e=a+1;e<=a+D;e++){for(n[E+e]=w[t+e],i=0,O=0;O<=E;O++)i+=x[O]*n[E+(e-O)];_[e]=i}return a+=D,M(x,r,a,_,u,f,t,E,n)}for(a-=1,u-=24;F[a]===0;)a-=1,u-=24}else I=T(I,-u),I>=G?(i=h*I|0,F[a]=I-G*i|0,a+=1,u+=24,F[a]=i):F[a]=I|0;for(i=T(1,u),e=a;e>=0;e--)_[e]=i*F[e],i*=h;for(e=a;e>=0;e--){for(i=0,D=0;D<=A&&D<=a-e;D++)i+=Y[D]*_[e+D];N[a-e]=i}for(i=0,e=a;e>=0;e--)i+=N[e];for(o===0?r[0]=i:r[0]=-i,i=N[0]-i,e=1;e<=a;e++)i+=N[e];return o===0?r[1]=i:r[1]=-i,P&7}function Z(x,r,a,_){var u,f,t,E,n,v,i,o,A;for(f=4,E=_-1,t=(a-3)/24|0,t<0&&(t=0),v=a-24*(t+1),o=t-E,A=E+f,i=0;i<=A;i++)o<0?c[i]=0:c[i]=w[o],o+=1;for(i=0;i<=f;i++){for(u=0,o=0;o<=E;o++)u+=x[o]*c[E+(i-o)];b[i]=u}return n=f,M(x,r,n,b,v,f,t,E,c)}S.exports=Z });var X=m(function(N0,V){ var J=require('@stdlib/math-base-special-round/dist'),K=require('@stdlib/number-float64-base-get-high-word/dist'),$=.6366197723675814,q=1.5707963267341256,z=6077100506506192e-26,j=6077100506303966e-26,y=20222662487959506e-37,r0=20222662487111665e-37,e0=84784276603689e-45,Q=2047;function a0(x,r,a){var _,u,f,t,E,n,v;return u=J(x*$),t=x-u*q,E=u*z,v=r>>20|0,a[0]=t-E,_=K(a[0]),n=v-(_>>20&Q),n>16&&(f=t,E=u*j,t=f-E,E=u*y-(f-t-E),a[0]=t-E,_=K(a[0]),n=v-(_>>20&Q),n>49&&(f=t,E=u*r0,t=f-E,E=u*e0-(f-t-E),a[0]=t-E)),a[1]=t-a[0]-E,u}V.exports=a0 });var U=m(function(W0,k){ var v0=require('@stdlib/constants-float64-high-word-abs-mask/dist'),f0=require('@stdlib/constants-float64-high-word-exponent-mask/dist'),i0=require('@stdlib/constants-float64-high-word-significand-mask/dist'),x0=require('@stdlib/number-float64-base-get-high-word/dist'),u0=require('@stdlib/number-float64-base-get-low-word/dist'),E0=require('@stdlib/number-float64-base-from-words/dist'),t0=g(),l=X(),I0=0,o0=16777216,B=1.5707963267341256,s=6077100506506192e-26,R=2*s,p=3*s,d=4*s,_0=598523,F0=1072243195,O0=1073928572,n0=1074752122,D0=1074977148,B0=1075183036,s0=1075388923,A0=1075594811,P0=1094263291,H=[0,0,0],C=[0,0];function H0(x,r){var a,_,u,f,t,E,n,v;if(u=x0(x),f=u&v0|0,f<=F0)return r[0]=x,r[1]=0,0;if(f<=n0)return(f&i0)===_0?l(x,f,r):f<=O0?x>0?(v=x-B,r[0]=v-s,r[1]=v-r[0]-s,1):(v=x+B,r[0]=v+s,r[1]=v-r[0]+s,-1):x>0?(v=x-2*B,r[0]=v-R,r[1]=v-r[0]-R,2):(v=x+2*B,r[0]=v+R,r[1]=v-r[0]+R,-2);if(f<=A0)return f<=B0?f===D0?l(x,f,r):x>0?(v=x-3*B,r[0]=v-p,r[1]=v-r[0]-p,3):(v=x+3*B,r[0]=v+p,r[1]=v-r[0]+p,-3):f===s0?l(x,f,r):x>0?(v=x-4*B,r[0]=v-d,r[1]=v-r[0]-d,4):(v=x+4*B,r[0]=v+d,r[1]=v-r[0]+d,-4);if(f<P0)return l(x,f,r);if(f>=f0)return r[0]=NaN,r[1]=NaN,0;for(a=u0(x),_=(f>>20)-1046,v=E0(f-(_<<20|0),a),E=0;E<2;E++)H[E]=v|0,v=(v-H[E])*o0;for(H[2]=v,t=3;H[t-1]===I0;)t-=1;return n=t0(H,C,_,t,1),x<0?(r[0]=-C[0],r[1]=-C[1],-n):(r[0]=C[0],r[1]=C[1],n)}k.exports=H0 });var C0=U();module.exports=C0; /** @license Apache-2.0 */ /** @license Apache-2.0 */ /** @license Apache-2.0 */ //# sourceMappingURL=index.js.map