include lib/fp3.4th
include lib/fbetacdf.4th

fclear 100 set-precision

." Calculated (fbetain)" 9 emit 9 emit ." Tabulated " cr cr
s" 0.01" s>float s" 0.5" s>float s" 0.5" s>float fbetain f. 9 emit 9 emit s" 0.200334842323119592691" s>float f. cr
s" 0.1" s>float s" 0.5" s>float s" 0.5" s>float fbetain f. 9 emit 9 emit s" 0.6435011087932843868028" s>float f. cr
s" 1" s>float s" 0.5" s>float s" 0.5" s>float fbetain f. 9 emit 9 emit s" 3.141592653589793238463" s>float f. cr
s" 0" s>float s" 1" s>float s" 0.5" s>float fbetain f. 9 emit 9 emit s" 0" s>float f. cr
s" 0.01" s>float s" 1" s>float s" 0.5" s>float fbetain f. 9 emit 9 emit s" 0.01002512578676009053104" s>float f. cr
s" 0.1" s>float s" 1" s>float s" 0.5" s>float fbetain f. 9 emit 9 emit s" 0.1026334038989724008007" s>float f. cr
s" 0.5" s>float s" 1" s>float s" 0.5" s>float fbetain f. 9 emit 9 emit s" 0.5857864376269049511983" s>float f. cr
s" 0.5" s>float s" 1" s>float s" 1" s>float fbetain f. 9 emit 9 emit s" 0.5" s>float f. cr
s" 0.1" s>float s" 2" s>float s" 2" s>float fbetain f. 9 emit 9 emit s" 0.00466666666666666666667" s>float f. cr
s" 0.2" s>float s" 2" s>float s" 2" s>float fbetain f. 9 emit 9 emit s" 0.01733333333333333333333" s>float f. cr
s" 0.3" s>float s" 2" s>float s" 2" s>float fbetain f. 9 emit 9 emit s" 0.036" s>float f. cr
s" 0.4" s>float s" 2" s>float s" 2" s>float fbetain f. 9 emit 9 emit s" 0.05866666666666666666667" s>float f. cr
s" 0.5" s>float s" 2" s>float s" 2" s>float fbetain f. 9 emit 9 emit s" 0.0833333333333333333333" s>float f. cr
s" 0.6" s>float s" 2" s>float s" 2" s>float fbetain f. 9 emit 9 emit s" 0.108" s>float f. cr
s" 0.7" s>float s" 2" s>float s" 2" s>float fbetain f. 9 emit 9 emit s" 0.1306666666666666666667" s>float f. cr
s" 0.8" s>float s" 2" s>float s" 2" s>float fbetain f. 9 emit 9 emit s" 0.149333333333333333333" s>float f. cr
s" 0.9" s>float s" 2" s>float s" 2" s>float fbetain f. 9 emit 9 emit s" 0.162" s>float f. cr
s" 0.5" s>float s" 5.5" s>float s" 5" s>float fbetain fs. 9 emit s" 4.835128128962753031186E-4" s>float fs. cr
s" 0.9" s>float s" 10" s>float s" 0.5" s>float fbetain f. 9 emit 9 emit s" 0.08606325015757300966498" s>float f. cr
s" 0.5" s>float s" 10" s>float s" 5" s>float fbetain fs. 9 emit s" 8.96930218219280719281E-6" s>float fs. cr
s" 1" s>float s" 10" s>float s" 5" s>float fbetain fs. 9 emit s" 9.99000999000999001E-5" s>float fs. cr
s" 0.5" s>float s" 10" s>float s" 10" s>float fbetain fs. 9 emit s" 5.41254411223451471129E-7" s>float fs. cr
s" 0.8" s>float s" 20" s>float s" 5" s>float fbetain fs. 9 emit s" 2.1639249470994688584E-6" s>float fs. cr
s" 0.6" s>float s" 20" s>float s" 10" s>float fbetain fs. 9 emit s" 1.071799815562617758717E-9" s>float fs. cr
s" 0.8" s>float s" 20" s>float s" 10" s>float fbetain fs. 9 emit s" 4.7465601998989890638E-9" s>float fs. cr
s" 0.5" s>float s" 20" s>float s" 20" s>float fbetain fs. 9 emit s" 3.62722227596242201843E-13" s>float fs. cr
s" 0.6" s>float s" 20" s>float s" 20" s>float fbetain fs. 9 emit s" 6.514065870190490256E-13" s>float fs. cr
s" 0.7" s>float s" 30" s>float s" 10" s>float fbetain fs. 9 emit s" 3.52546397647583772331E-11" s>float fs. cr
s" 0.8" s>float s" 30" s>float s" 10" s>float fbetain fs. 9 emit s" 1.1933087577077924988E-10" s>float fs. cr
s" 0.7" s>float s" 40" s>float s" 20" s>float fbetain fs. 9 emit s" 1.2527510093313245975E-17" s>float fs. cr
s" 0.1" s>float s" 1" s>float s" 0.5" s>float fbetain f. 9 emit 9 emit s" 0.1026334038989724008007" s>float f. cr
s" 0.2" s>float s" 1" s>float s" 0.5" s>float fbetain f. 9 emit 9 emit s" 0.211145618000168242872" s>float f. cr
s" 0.3" s>float s" 1" s>float s" 0.5" s>float fbetain f. 9 emit 9 emit s" 0.3266799469318489040437" s>float f. cr
s" 0.4" s>float s" 1" s>float s" 0.5" s>float fbetain f. 9 emit 9 emit s" 0.4508066615170332459283" s>float f. cr
s" 0.2" s>float s" 1" s>float s" 2" s>float fbetain f. 9 emit 9 emit s" 0.18" s>float f. cr
s" 0.2" s>float s" 1" s>float s" 3" s>float fbetain f. 9 emit 9 emit s" 0.1626666666666666666667" s>float f. cr
s" 0.2" s>float s" 1" s>float s" 4" s>float fbetain f. 9 emit 9 emit s" 0.1476" s>float f. cr
s" 0.2" s>float s" 1" s>float s" 5" s>float fbetain f. 9 emit 9 emit s" 0.134464" s>float f. cr
s" 0.3" s>float s" 2" s>float s" 2" s>float fbetain f. 9 emit 9 emit s" 0.036" s>float f. cr
s" 0.3" s>float s" 3" s>float s" 2" s>float fbetain f. 9 emit 9 emit s" 0.006975" s>float f. cr
s" 0.3" s>float s" 4" s>float s" 2" s>float fbetain f. 9 emit 9 emit s" 0.001539" s>float f. cr
s" 0.3" s>float s" 5" s>float s" 2" s>float fbetain fs. 9 emit s" 3.645E-4" s>float fs. cr