７　コンピュータについて

　次のプログラムは，ＢＡＳＩＣで書いてある。数学の授業で，コンピュータを取り上げるのは難しいし，またこのＷｉｎｄｏｗｓ時代に，古い言語という感もある。しかし，フラクタルはその作成手順上，漸化式の処理，つまりn=n+1 NEXT n　といった，反復代入の文法の練習に特に適している。またなにより，コンピュータを電卓代わりに使う無意味な代数計算よりも，正しい式・正しい翻訳よって出来るものが，興味ある不思議な図形であれば，価値あるのではないだろうか？

８　プログラムリスト

10 REM -----KOCH CURVE-----
20 CLS 3 : CONSOLE 0,25,0,1 : SCREEN 3,0
30 WINDOW(-1,-1.5)-(2,0.3)
40 DIM XX(16380),YY(16380)
50 A1=0 : A2=0 : B1=0.5 : B2=0.2887 : C1=0 : C2=0 : D1=0.5 : D2=-0.2887
60 S=0 : U=0 : Y=0 : CLS
70 X1=(A1+B1)*X+(-A2+B2)*Y : Y1=(A1-B1)*Y+(A2+BW)*X
80 X2=(C1+D1)*X+(-C2+D2)*Y+(-C1-D1+1) : Y2=(C1-D1)*Y+(C2+D2)*X+(-C2-D2)
90 S=S+1 : XX(S)=X1 : YY(S)=Y1
100 S=S+1 : XX(S)=X2 : YY(S)=Y2
110 PSET(X1,-Y1),5 : PSET(Y2,-Y2),6
120 U=U+1 : X=XX(U) : Y=YY(U)
130 IF S>16375 THEN S=16375
140 IF U>6000 THEN 160
150 GOTO 70
160 BEEP : END