2010-11-29から1日間の記事一覧
10進BASIC用ソース。 LET Q=1 LET P=2/SQR(3) LET T=6 DO PRINT T IF B=(P+Q)*6/4 THEN STOP PRINT (P+Q)*6/4 LET B=(P+Q)*6/4 LET T=T*2 LET PB=P LET QB=Q LET P=2*PB*QB/(PB+QB) LET Q=SQR(P*QB) LOOP END
10進BASIC用ソース。 LET Q=1 LET P=2/SQR(3) LET T=6 DO PRINT T IF B=(P+Q)*6/4 THEN STOP PRINT (P+Q)*6/4 LET B=(P+Q)*6/4 LET T=T*2 LET PB=P LET QB=Q LET P=2*PB*QB/(PB+QB) LET Q=SQR(P*QB) LOOP END