(True Basic):60 REM MALLOWS的BATRACHION序列70 DIM q0(0到4000)80 LET q0(1)=1 90 LET qO(2)=1 91 FOR n=3到4000 92 LET q0(n)=q0(q0(n-2))+q0(n-q0(n-2))93 NEXT n 100 SET MODE“color”110 SET WINDOW 0,1024,0,750 301打印“MALLOWS反转”302打印罗杰·巴古拉2003年10月2日“303 DIM p(0到4000)310 FOR x=1到4000 311 REM如果p(q0(x))尚未使用,则已给p()一个值312 if(q0,x)=0,则LET p
(True Basic)
70 DIM q0(0到4000)
80 LET q0(1)=1
90 LET q0(2)=1
91适用于n=3至4000
92让q0(n)=q0(q0(n-2))+q0(n-q0(n-2))
93下一个n
100设置模式“颜色”
110设置窗口0、1024、0、750
302打印”罗杰·巴古拉2003年10月2日“
303 DIM p(0到4000)
310 x=1至4000
311 REM如果p(q0(x))尚未使用,则已经给p()一个值
312如果p(q0(x))=0,则LET p(q0(x))=x
380下一个x
381打开#1:name“CM1:MI_data”,创建新的组织文本
x=1至200时为390
391打印#1:p(x);", ";
392打印p(x);
393下一个x
394关闭#1
460结束
|