TakaPの数学日記

数学を教えていて感じたことや日常の感想などを記録しました。

プログラム解析中

2006年06月04日 09時40分30秒 | 数学
 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
コメント    この記事についてブログを書く
  • X
  • Facebookでシェアする
  • はてなブックマークに追加する
  • LINEでシェアする
« 休日の一日 | トップ | 選択数学から(最大公約数の... »
最新の画像もっと見る

コメントを投稿

数学」カテゴリの最新記事