2次無理数の連分数展開のプログラム(十進Basic)はUBASICに附属していたプログラムを単に移植しただけなので、アルゴリズムがよく分からない。今その解析をやっているところ。プログラム中分からないのは、repeatのあと。行番号200のところの意味がまだよく分からない。誰か教えて下さい。
このプログラムは、わけが分からないまま移植して、同じ結果(UBASICと)が出せたのですから、間違いはないと思います。
(再掲行番号200から)
200 ! repeat
210 LET k=INT((qn+a)/c) これは何となくOK
220 PRINT k;
230 LET a=c*k-a ここが分からない!
240 LET c=INT((n-a^2)/c) これも!
250 IF (a<>a1)OR(c<>c1) THEN GOTO 200
260 PRINT "]"
270 PRINT
280 GOTO 110
290 !
500 PRINT qn;"の2乗です。"
510 PRINT
520 GOTO 110
このプログラムは、わけが分からないまま移植して、同じ結果(UBASICと)が出せたのですから、間違いはないと思います。
(再掲行番号200から)
200 ! repeat
210 LET k=INT((qn+a)/c) これは何となくOK
220 PRINT k;
230 LET a=c*k-a ここが分からない!
240 LET c=INT((n-a^2)/c) これも!
250 IF (a<>a1)OR(c<>c1) THEN GOTO 200
260 PRINT "]"
270 PRINT
280 GOTO 110
290 !
500 PRINT qn;"の2乗です。"
510 PRINT
520 GOTO 110
※コメント投稿者のブログIDはブログ作成者のみに通知されます