quadmath 0.1.0

data/ext/quadmath/main.c

@@ -0,0 +1,31 @@
+/*******************************************************************************
+    main.c -- QuadMath EntryPoint
+    
+    Author: Hironobu Inatsuka
+*******************************************************************************/
+#include <ruby.h>
+#include <quadmath.h>
+#define USE_GLOBAL_VARIABLE
+#include "rb_quadmath.h"
+#include "internal/rb_quadmath.h"
+#include "missing/ool_quad2str.c"
+
+void InitVM_Float128(void);
+void InitVM_Complex128(void);
+void InitVM_Numerable(void);
+void InitVM_QuadMath(void);
+
+// EntryPoint
+void
+Init_quadmath(void)
+{
+	rb_cFloat128 = rb_define_class("Float128", rb_cNumeric);
+	rb_cComplex128 = rb_define_class("Complex128", rb_cNumeric);
+	rb_mQuadMath = rb_define_module("QuadMath");
+	
+	InitVM(Float128);
+	InitVM(Complex128);
+	InitVM(Numerable);
+	InitVM(QuadMath);
+}
+

data/ext/quadmath/missing/cerfcq.c

@@ -0,0 +1,158 @@
+// Written by Takuya Ooura
+#include <quadmath.h>
+
+__complex128
+cerfcq(__complex128 x)
+{
+	const __float128
+	pv = 1.8419880743036792792631929248006767493e+01Q,
+	ph = 9.4599403715183963963159646240033837464e+00Q,
+	p0 = 2.1093083061644187538279122968913808152e-01Q,
+	p1 = 1.6713797949733065528971052035163045322e-01Q,
+	p2 = 1.0494102880451803704489103456267864462e-01Q,
+	p3 = 5.2209624806229062497556308453704817574e-02Q,
+	p4 = 2.0582158194044619069754225289969978299e-02Q,
+	p5 = 6.4293391618431334949721030322694803569e-03Q,
+	p6 = 1.5913908100149480106505036886507485785e-03Q,
+	p7 = 3.1212060500464898607481297780989148689e-04Q,
+	p8 = 4.8506855193831619356742051276480109919e-05Q,
+	p9 = 5.9733626677651815061875193953000538326e-06Q,
+	p10 = 5.8286735523223186734841193923199386322e-07Q,
+	p11 = 4.5066690471880700341073630648957059945e-08Q,
+	p12 = 2.7610653454261808871589140980422088532e-09Q,
+	p13 = 1.3403949680961254958324655659147790094e-10Q,
+	p14 = 5.1561314110869289752886735305964573946e-12Q,
+	p15 = 1.5716297853674992841622413214543994197e-13Q,
+	p16 = 3.7958724379391814374198930599398267061e-15Q,
+	p17 = 7.2645388829894728683842661597496303959e-17Q,
+	p18 = 1.1016397065175311063529497475707242525e-18Q,
+	p19 = 1.3237506731591609005566634525737840832e-20Q,
+	p20 = 1.2603985415835627864680027724651354389e-22Q,
+	p21 = 9.5092151781247278003169665785149729821e-25Q,
+	p22 = 5.6848177046496801634666761604409403206e-27Q,
+	p23 = 2.6929202705338711046737832028758053393e-29Q,
+	p24 = 1.0108006977320702265677957534508423789e-31Q,
+	p25 = 3.0063715680065086923565072577882673057e-34Q,
+	p26 = 7.0852448481490904907112832127691803349e-37Q,
+	q0 = 2.9088820866572159615394846141476878557e-02Q,
+	q1 = 2.6179938779914943653855361527329190702e-01Q,
+	q2 = 7.2722052166430399038487115353692196393e-01Q,
+	q3 = 1.4253522224620358211543474609323670493e+00Q,
+	q4 = 2.3561944901923449288469825374596271631e+00Q,
+	q5 = 3.5197473248552313134627763831187023054e+00Q,
+	q6 = 4.9160107264506949750017289979095924762e+00Q,
+	q7 = 6.5449846949787359134638403818322976754e+00Q,
+	q8 = 8.4066692304393541288491105348868179031e+00Q,
+	q9 = 1.0501064332832549621157539457073153159e+01Q,
+	q10 = 1.2828170002158322390389127148391303444e+01Q,
+	q11 = 1.5387986238416672436543873608841268757e+01Q,
+	q12 = 1.8180513041607599759621778838423049098e+01Q,
+	q13 = 2.1205750411731104359622842837136644468e+01Q,
+	q14 = 2.4463698348787186236547065604982054867e+01Q,
+	q15 = 2.7954356852775845390394447141959280294e+01Q,
+	q16 = 3.1677725923697081821164987448068320749e+01Q,
+	q17 = 3.5633805561550895528858686523309176233e+01Q,
+	q18 = 3.9822595766337286513475544367681846745e+01Q,
+	q19 = 4.4244096538056254775015560981186332286e+01Q,
+	q20 = 4.8898307876707800313478736363822632855e+01Q,
+	q21 = 5.3785229782291923128865070515590748453e+01Q,
+	q22 = 5.8904862254808623221174563436490679079e+01Q,
+	q23 = 6.4257205294257900590407215126522424733e+01Q,
+	q24 = 6.9842258900639755236563025585685985416e+01Q,
+	q25 = 7.5660023073954187159641994813981361128e+01Q,
+	q26 = 8.1710497814201196359644122811408551868e+01Q,
+	r0 = 1.0857833597842664924141880507518822324e-01Q,
+	r1 = 1.9330394605384376865851659517702988226e-01Q,
+	r2 = 1.3634629684679999083131393208557974008e-01Q,
+	r3 = 7.6204577450604403788088248675471849578e-02Q,
+	r4 = 3.3748451951221171387030636574487677141e-02Q,
+	r5 = 1.1843000251292400843913857684704052043e-02Q,
+	r6 = 3.2930983812757205929921213829383580821e-03Q,
+	r7 = 7.2557574646222760967368809292892366817e-04Q,
+	r8 = 1.2667645289367856821531300675005701424e-04Q,
+	r9 = 1.7524438664090954799894562703988992670e-05Q,
+	r10 = 1.9210002539217758384351411001702958461e-06Q,
+	r11 = 1.6685753127194156512431242433234203465e-07Q,
+	r12 = 1.1484161468186100454021914187739990566e-08Q,
+	r13 = 6.2630784459909945721312231747915945961e-10Q,
+	r14 = 2.7065216004464856039123247342635784082e-11Q,
+	r15 = 9.2676629018209927646524369276088075961e-13Q,
+	r16 = 2.5145718215575387941885792873856026053e-14Q,
+	r17 = 5.4062104214337911880413049229210178595e-16Q,
+	r18 = 9.2099427616964263777001122276945386232e-18Q,
+	r19 = 1.2432429403206980797482152563988923532e-19Q,
+	r20 = 1.3298117235769445146920469835700830835e-21Q,
+	r21 = 1.1270920794418483512403852639398106151e-23Q,
+	r22 = 7.5694395178532891627960685040600391752e-26Q,
+	r23 = 4.0281268032076992671072314251173518774e-28Q,
+	r24 = 1.6985472346741765564942981815307583270e-30Q,
+	r25 = 5.6752788970027027984246568768226680280e-33Q,
+	r26 = 1.5025601745064174185565587049015131885e-35Q,
+	s1 = 1.1635528346628863846157938456590751423e-01Q,
+	s2 = 4.6542113386515455384631753826363005692e-01Q,
+	s3 = 1.0471975511965977461542144610931676281e+00Q,
+	s4 = 1.8616845354606182153852701530545202277e+00Q,
+	s5 = 2.9088820866572159615394846141476878557e+00Q,
+	s6 = 4.1887902047863909846168578443726705123e+00Q,
+	s7 = 5.7014088898481432846173898437294681972e+00Q,
+	s8 = 7.4467381418424728615410806122180809107e+00Q,
+	s9 = 9.4247779607693797153879301498385086526e+00Q,
+	s10 = 1.1635528346628863846157938456590751423e+01Q,
+	s11 = 1.4078989299420925253851105532474809222e+01Q,
+	s12 = 1.6755160819145563938467431377490682049e+01Q,
+	s13 = 1.9664042905802779900006915991638369905e+01Q,
+	s14 = 2.2805635559392573138469559374917872789e+01Q,
+	s15 = 2.6179938779914943653855361527329190702e+01Q,
+	s16 = 2.9786952567369891446164322448872323643e+01Q,
+	s17 = 3.3626676921757416515396442139547271612e+01Q,
+	s18 = 3.7699111843077518861551720599354034610e+01Q,
+	s19 = 4.2004257331330198484630157828292612637e+01Q,
+	s20 = 4.6542113386515455384631753826363005692e+01Q,
+	s21 = 5.1312680008633289561556508593565213775e+01Q,
+	s22 = 5.6315957197683701015404422129899236887e+01Q,
+	s23 = 6.1551944953666689746175494435365075027e+01Q,
+	s24 = 6.7020643276582255753869725509962728196e+01Q,
+	s25 = 7.2722052166430399038487115353692196393e+01Q,
+	s26= 7.8656171623211119600027663966553479619e+01Q;
+	__complex128 y = x * x;
+	
+	if (fabsq(crealq(x))+fabsq(cimagq(x)) < ph)
+	{
+		__complex128 z = cexpq(pv*x);
+		
+		if (crealq(z) >= 0)
+			y = cexpq(-y)*x*(p26/(y+q26)
+			    +p25/(y+q25)+p24/(y+q24)+p23/(y+q23)
+			    +p22/(y+q22)+p21/(y+q21)+p20/(y+q20)
+			    +p19/(y+q19)+p18/(y+q18)+p17/(y+q17)
+			    +p16/(y+q16)+p15/(y+q15)+p14/(y+q14)
+			    +p13/(y+q13)+p12/(y+q12)+p11/(y+q11)
+			    +p10/(y+q10)+p9/(y+q9)+p8/(y+q8)+p7/(y+q7)
+			    +p6/(y+q6)+p5/(y+q5)+p4/(y+q4)+p3/(y+q3)
+			    +p2/(y+q2)+p1/(y+q1)+p0/(y+q0))+2/(1+z);
+		else
+			y = cexpq(-y)*x*(r26/(y+s26)
+			    +r25/(y+s25)+r24/(y+s24)+r23/(y+s23)
+			    +r22/(y+s22)+r21/(y+s21)+r20/(y+s20)
+			    +r19/(y+s19)+r18/(y+s18)+r17/(y+s17)
+			    +r16/(y+s16)+r15/(y+s15)+r14/(y+s14)
+			    +r13/(y+s13)+r12/(y+s12)+r11/(y+s11)
+			    +r10/(y+s10)+r9/(y+s9)+r8/(y+s8)+r7/(y+s7)
+			    +r6/(y+s6)+r5/(y+s5)+r4/(y+s4)+r3/(y+s3)
+			    +r2/(y+s2)+r1/(y+s1)+r0/y)+2/(1-z);
+	}
+	else
+	{
+		y = cexpq(-y)*x*(p26/(y+q26)
+		    +p25/(y+q25)+p24/(y+q24)+p23/(y+q23)
+		    +p22/(y+q22)+p21/(y+q21)+p20/(y+q20)
+		    +p19/(y+q19)+p18/(y+q18)+p17/(y+q17)
+		    +p16/(y+q16)+p15/(y+q15)+p14/(y+q14)
+		    +p13/(y+q13)+p12/(y+q12)+p11/(y+q11)
+		    +p10/(y+q10)+p9/(y+q9)+p8/(y+q8)+p7/(y+q7)
+		    +p6/(y+q6)+p5/(y+q5)+p4/(y+q4)+p3/(y+q3)
+		    +p2/(y+q2)+p1/(y+q1)+p0/(y+q0));
+		if (crealq(x) < 0) y=y+2;
+	}
+	return y;
+}

data/ext/quadmath/missing/cerfq.c

@@ -0,0 +1,35 @@
+// Written by Takuya Ooura
+#include <quadmath.h>
+
+__complex128
+cerfq(__complex128 x)
+{
+	const __float128
+	p0 = 1.1283791670955125738961589031215451717e+00Q,
+	p1 =-3.7612638903183752463205296770718172390e-01Q,
+	p2 = 1.1283791670955125738961589031215451717e-01Q,
+	p3 =-2.6866170645131251759432354836227265993e-02Q,
+	p4 = 5.2239776254421878421118467737108572763e-03Q,
+	p5 =-8.5483270234508528325466583569814028158e-04Q,
+	p6 = 1.2055332981789664251027338708563516792e-04Q,
+	p7 =-1.4925650358406250977462419353459592218e-05Q,
+	p8 = 1.6462114365889247401612962522198079652e-06Q,
+	p9 =-1.6365844691234924317393003677039026555e-07Q,
+	p10 = 1.4807192815879217239546050945892452597e-08Q,
+	p11 =-1.2290555301717927352982888136906778836e-09Q,
+	p12 = 9.4227590646504109706202142382951971074e-11Q,
+	p13 =-6.7113668551641103779346255258512799910e-12Q;
+	
+	if (fabsq(crealq(x))+fabsq(cimagq(x)) > 0.125)
+		if (crealq(x) >= 0)
+			return 1.q-cerfcq(x);
+		else
+			return cerfcq(-x)-1.q;
+	else
+	{
+		__complex128 y = x * x;
+		return (((((((((((((p13*y+p12)*y+p11)*y+p10)*y
+		       +p9)*y+p8)*y+p7)*y+p6)*y+p5)*y+p4)*y
+		       +p3)*y+p2)*y+p1)*y+p0)*x;
+	}
+}

data/ext/quadmath/missing/cl2norm2q.c

@@ -0,0 +1,43 @@
+#include <quadmath.h>
+
+/* hypot()実装: Moler-Morrison法 */
+static inline __float128
+hypot_mm_method(__float128 x, __float128 y)
+{
+	__float128 t;
+	static int iter_cnt = 4;  // float = 2, double = 3, __float128 = 4
+	
+	// x = fabs(x);  y = fabs(y);
+	if (x < y)  {  t = x;  x = y;  y = t;  }
+	if (y == 0)  return x;
+	for (int i = 0; i < iter_cnt; i++)
+	{
+		t = y / x;  t *= t;  t /= 4 + t;
+		x += 2 * x * t;  y *= t;
+	}
+	return x;
+}
+
+
+__float128
+cl2norm2q(__complex128 z, __complex128 w)
+{
+	__float128 z_real = crealq(z), z_imag = cimagq(z),
+	           w_real = crealq(w), w_imag = cimagq(w);
+	
+	if (z_imag == 0 && w_imag == 0)
+		return hypotq(z_real, w_real);
+	else if (finiteq(z_real) && finiteq(z_imag) &&
+	         finiteq(w_real) && finiteq(w_imag))
+	{
+		__float128 abs_z = cabsq(z), abs_w = cabsq(w);
+		return hypot_mm_method(abs_z, abs_w);
+	}
+	else if (isnanq(z_real) || isnanq(z_imag) ||
+	         isnanq(w_real) || isnanq(w_imag))
+	{
+		return nanq("");
+	}
+	else
+		return HUGE_VALQ;
+}

data/ext/quadmath/missing/clgammaq.c

@@ -0,0 +1,61 @@
+// Written by Takuya Ooura
+#include <quadmath.h>
+
+__complex128
+clgammaq(__complex128 x)
+{
+	const __float128
+	pi = 3.1415926535897932384626433832795028842e+00L,
+	pv = 1.7073384106072256336552635469768405988e+01L,
+	pr = 9.6430280376084227593136665415665434890e-08L,
+	p0 = 1.4885966277379481312144836654780489977e-05L,
+	p1 = 9.8197319346551593835492039252950643250e-04L,
+	p2 = 3.6452833584596387259416230162968814334e-02L,
+	p3 = 8.4440218943313053279736838769169637475e-01L,
+	p4 = 1.2799395416392675659501629085367313130e+01L,
+	p5 = 1.2958416314697458304456172805819466959e+02L,
+	p6 = 8.7934757442085093139482632461747688925e+02L,
+	p7 = 3.9603132208822057375892166788749852003e+03L,
+	p8 = 1.1570567689267327614796506829853701257e+04L,
+	p9 = 2.1118371610821741632467257070275867771e+04L,
+	p10 = 2.2735240766521371105419781548988441852e+04L,
+	p11 = 1.3237220278612707484073165339915814580e+04L,
+	p12 = 3.6413985805433870475220843772414784920e+03L,
+	p13 = 3.7799827284494982250871944924580183350e+02L,
+	p14 = 9.7548265781613156543352803894655242645e+00L,
+	p15 = 2.4781878010146311991379531059279396603e-02L,
+	q1 = 9.9999999999999999999999999999999505954e-01L,
+	q2 = 2.0000000000000000000000000000054314870e+00L,
+	q3 = 2.9999999999999999999999999979818447021e+00L,
+	q4 = 4.0000000000000000000000003832010974513e+00L,
+	q5 = 4.9999999999999999999999549613824869296e+00L,
+	q6 = 6.0000000000000000000036828053823278869e+00L,
+	q7 = 6.9999999999999999997722128314314457093e+00L,
+	q8 = 8.0000000000000000114079473554600382027e+00L,
+	q9 = 8.9999999999999995074649343321072905406e+00L,
+	q10 = 1.0000000000000019570887665497626544354e+01L,
+	q11 = 1.0999999999999226781739409388855954774e+01L,
+	q12 = 1.2000000000033685360735653796874490304e+01L,
+	q13 = 1.2999999998107373865740824582565523337e+01L,
+	q14 = 1.4000000179833580993347884693337842721e+01L,
+	q15 = 1.4999950264715053014007976344403787119e+01L;
+	__complex128 w = x, y;
+	__float128 r, s;
+	
+	if (crealq(x) < 0)  w = 1 - x;
+	
+	y = clogq((((((((((((((((p15/(w+q15)+p14)/(w+q14)
+	    +p13)/(w+q13)+p12)/(w+q12)+p11)/(w+q11)
+	    +p10)/(w+q10)+p9)/(w+q9)+p8)/(w+q8)
+	    +p7)/(w+q7)+p6)/(w+q6)+p5)/(w+q5)+p4)/(w+q4)
+	    +p3)/(w+q3)+p2)/(w+q2)+p1)/(w+q1)+p0)/w+pr)
+	    +(w-0.5q)*clogq(w+pv)-w;
+	
+	if (crealq(x) < 0)  y = clogq(pi/csinq(pi*x))-y;
+	
+	// FIXME: 虚部に$2\pi$分が加減算されない。FORTRANの近接丸め関数はCの近接丸め関数とは異なる
+	r = 0.5L-(1i * y)/(2*pi);
+	s = floorq(r)-1.q;
+	
+	return y + (0.q + ((2*pi)*(floorq(r-s)+s)) * 1i);
+}

data/ext/quadmath/missing/ctgammaq.c

@@ -0,0 +1,56 @@
+// Written by Takuya Ooura
+#include <quadmath.h>
+
+__complex128
+ctgammaq(__complex128 x)
+{
+	const __float128
+	pi = 3.1415926535897932384626433832795028842e+00Q,
+	pv = 1.7073384106072256336552635469768405988e+01Q,
+	pr = 9.6430280376084227593136665415665434890e-08Q,
+	p0 = 1.4885966277379481312144836654780489977e-05Q,
+	p1 = 9.8197319346551593835492039252950643250e-04Q,
+	p2 = 3.6452833584596387259416230162968814334e-02Q,
+	p3 = 8.4440218943313053279736838769169637475e-01Q,
+	p4 = 1.2799395416392675659501629085367313130e+01Q,
+	p5 = 1.2958416314697458304456172805819466959e+02Q,
+	p6 = 8.7934757442085093139482632461747688925e+02Q,
+	p7 = 3.9603132208822057375892166788749852003e+03Q,
+	p8 = 1.1570567689267327614796506829853701257e+04Q,
+	p9 = 2.1118371610821741632467257070275867771e+04Q,
+	p10 = 2.2735240766521371105419781548988441852e+04Q,
+	p11 = 1.3237220278612707484073165339915814580e+04Q,
+	p12 = 3.6413985805433870475220843772414784920e+03Q,
+	p13 = 3.7799827284494982250871944924580183350e+02Q,
+	p14 = 9.7548265781613156543352803894655242645e+00Q,
+	p15 = 2.4781878010146311991379531059279396603e-02Q,
+	q1 = 9.9999999999999999999999999999999505954e-01Q,
+	q2 = 2.0000000000000000000000000000054314870e+00Q,
+	q3 = 2.9999999999999999999999999979818447021e+00Q,
+	q4 = 4.0000000000000000000000003832010974513e+00Q,
+	q5 = 4.9999999999999999999999549613824869296e+00Q,
+	q6 = 6.0000000000000000000036828053823278869e+00Q,
+	q7 = 6.9999999999999999997722128314314457093e+00Q,
+	q8 = 8.0000000000000000114079473554600382027e+00Q,
+	q9 = 8.9999999999999995074649343321072905406e+00Q,
+	q10 = 1.0000000000000019570887665497626544354e+01Q,
+	q11 = 1.0999999999999226781739409388855954774e+01Q,
+	q12 = 1.2000000000033685360735653796874490304e+01Q,
+	q13 = 1.2999999998107373865740824582565523337e+01Q,
+	q14 = 1.4000000179833580993347884693337842721e+01Q,
+	q15 = 1.4999950264715053014007976344403787119e+01Q;
+	__complex128 w = x, y;
+	
+	if (crealq(x) < 0)  w = 1 - x;
+	
+	y = ((((((((((((((((p15/(w+q15)+p14)/(w+q14)
+	    +p13)/(w+q13)+p12)/(w+q12)+p11)/(w+q11)
+	    +p10)/(w+q10)+p9)/(w+q9)+p8)/(w+q8)
+	    +p7)/(w+q7)+p6)/(w+q6)+p5)/(w+q5)+p4)/(w+q4)
+	    +p3)/(w+q3)+p2)/(w+q2)+p1)/(w+q1)+p0)/w+pr)
+	    *cexpq((w-0.5)*clogq(w+pv)-w);
+	
+	if (crealq(x) < 0)  y = pi/(y*csinq(pi*x));
+	
+	return y;
+}