UNPKG

@stdlib/math-base-special-gamma1pm1

Version:
17 lines (16 loc) 3.37 kB
"use strict";var v=function(r,e){return function(){return e||r((e={exports:{}}).exports,e),e.exports}};var l=v(function(J,f){ function h(r){var e,a,i;return r===0?-.01803556856784494:(r<0?e=-r:e=r,e<=1?(a=-.01803556856784494+r*(.02512664961998968+r*(.049410315156753225+r*(.0172491608709614+r*(-.0002594535632054381+r*(-.0005410098692152044+r*(-3245886498259485e-20+r*0)))))),i=1+r*(1.962029871977952+r*(1.4801966942423133+r*(.5413914320717209+r*(.09885042511280101+r*(.008213096746488934+r*(.00022493629192211576+r*-22335276320861708e-23))))))):(r=1/r,a=0+r*(-3245886498259485e-20+r*(-.0005410098692152044+r*(-.0002594535632054381+r*(.0172491608709614+r*(.049410315156753225+r*(.02512664961998968+r*-.01803556856784494)))))),i=-22335276320861708e-23+r*(.00022493629192211576+r*(.008213096746488934+r*(.09885042511280101+r*(.5413914320717209+r*(1.4801966942423133+r*(1.962029871977952+r*1))))))),a/i)}f.exports=h });var p=v(function(K,o){ function w(r){var e,a,i;return r===0?.04906224540690395:(r<0?e=-r:e=r,e<=1?(a=.04906224540690395+r*(-.09691175301595212+r*(-.4149833583594954+r*(-.4065671242119384+r*(-.1584135863906922+r*(-.024014982064857155+r*-.0010034668769627955))))),i=1+r*(3.0234982984646304+r*(3.4873958536072385+r*(1.9141558827442668+r*(.5071377386143635+r*(.05770397226904519+r*.001957681026011072)))))):(r=1/r,a=-.0010034668769627955+r*(-.024014982064857155+r*(-.1584135863906922+r*(-.4065671242119384+r*(-.4149833583594954+r*(-.09691175301595212+r*.04906224540690395))))),i=.001957681026011072+r*(.05770397226904519+r*(.5071377386143635+r*(1.9141558827442668+r*(3.4873958536072385+r*(3.0234982984646304+r*1)))))),a/i)}o.exports=w });var q=v(function(L,c){ function E(r){var e,a,i;return r===0?-.029232972183027003:(r<0?e=-r:e=r,e<=1?(a=-.029232972183027003+r*(.14421626775719232+r*(-.14244039073863127+r*(.05428096940550536+r*(-.008505359768683364+r*(.0004311713426792973+r*0))))),i=1+r*(-1.5016935605448505+r*(.846973248876495+r*(-.22009515181499575+r*(.02558279715597587+r*(-.0010066679553914337+r*-8271935218912905e-22)))))):(r=1/r,a=0+r*(.0004311713426792973+r*(-.008505359768683364+r*(.05428096940550536+r*(-.14244039073863127+r*(.14421626775719232+r*-.029232972183027003))))),i=-8271935218912905e-22+r*(-.0010066679553914337+r*(.02558279715597587+r*(-.22009515181499575+r*(.846973248876495+r*(-1.5016935605448505+r*1)))))),a/i)}c.exports=E });var m=v(function(M,g){ var s=require('@stdlib/math-base-special-ln/dist'),P=require('@stdlib/constants-float64-eps/dist'),R=l(),b=p(),j=q(),k=.15896368026733398,y=.5281534194946289,A=.45201730728149414;function B(r,e,a){var i,t,u,n;if(r<P)return-s(r);if(e===0||a===0)return 0;if(t=0,r>2){if(r>=3){do r-=1,a-=1,t+=s(r);while(r>=3);a=r-2}return u=a*(r+1),n=R(a),t+=u*k+u*n,t}return r<1&&(t+=-s(r),a=e,e=r,r+=1),r<=1.5?(u=b(e),i=e*a,t+=i*y+i*u,t):(u=a*e,n=j(-a),t+=u*A+u*n,t)}g.exports=B });var d=v(function(O,N){ var S=require('@stdlib/math-base-special-gamma/dist'),Y=require('@stdlib/math-base-special-expm1/dist'),C=require('@stdlib/math-base-special-log1p/dist'),D=require('@stdlib/math-base-assert-is-nan/dist'),I=m();function F(r){return D(r)?NaN:r<0?r<-.5?S(1+r)-1:Y(-C(r)+I(r+2,r+1,r)):r<2?Y(I(r+1,r,r-1)):S(1+r)-1}N.exports=F });var G=d();module.exports=G; /** @license Apache-2.0 */ /** @license Apache-2.0 */ /** @license Apache-2.0 */ /** @license Apache-2.0 */ //# sourceMappingURL=index.js.map