OPTION ARITHMETIC decimal_high
PRINT 
PRINT "連分数を用いて数値を計算中 ・・・・"
PRINT
LET M=2
LET N=1500 !精度
LET d=2*N+1
LET e=d
LET f=d
LET g=d
FOR i=N TO 1 STEP -1
   LET d=(2*i-1)+i*i/d
   LET e=2+1/e
   LET f=1+1/f
   LET g=M+1/g
NEXT i
LET d=4/d
LET e=1+1/e
PRINT "＜ π ＞"
PRINT d
PRINT "誤差は、"
PRINT " ";PI-d
PRINT
PRINT "＜ ２の平方根 ＞"
PRINT e
PRINT "誤差は、"
PRINT SQR(2)-e
PRINT
PRINT "＜ 黄金比 ＞" 
PRINT f
PRINT "誤差は、"
PRINT " ";f-(1+sqr(5))/2
PRINT
PRINT "＜ χ^2 −";M;"χ − １ ＝ ０  の解 ＞"
PRINT g
PRINT "誤差は、"
IF ROUND(10^999*(g-(M+SQR(M^2+4))/2))=0 THEN 
   PRINT " 0"
ELSE 
   PRINT " ";g-(M+SQR(M^2+4))/2
END IF
END