cnCalc计算器论坛

 找回密码
 注册
搜索
查看: 2774|回复: 1

[83/84] 求助啊。。 TI-84编程的。。。。急啊

[复制链接]
发表于 2011-6-18 22:26:16 | 显示全部楼层 |阅读模式
这是TL-84 Plus 计算器上的程序 ,关于分形的
求每一步的解释。。关键是Str1,2和3的选取。。。如果要换其他图形。。例如正方形的分形。。该怎么改???
急啊。。
拜托了。。。高手们   帮帮忙啊。。。

ClrHome
Degree
Fnoff
Axesoff
-10Ymin
10→Ymax
Zsquare
“FRRFRRF” →Str1
“FLFRRFLF” →Str2
Input “LEVEL=1 To 5”,N
For (Z,1,N-1)
“0” →Str3
Length(Str1) →T
For (I,1,T)
If sub(Str1,1,1)="F"
Then
Str3+Str2→Str3
Else
Str3+sub(Str1,1,1)
→Str3

End
If length(Str1)>1
sub(Str1,2,length(Str1)-1) →Str1
End
sub(Str3,2,length(Str3)-1) →Str1
End
60→θ
15/3^(N-1) →S
Xmin+(Xmax-Xmin)/4→X
Ymax-(Ymax-Ymin)/4→Y
0→A
Str1→Str2
Length(Str1) →T
For(I,1,T)
If sub(Str2,1,1)="L"
Then
A+θ→A
Else
If sub(Str2,1,1)="R"
Then
A-
θ→A

Else
Line(X,Y,X+S*cos(A),Y+S*sin(A))
X+S*cos(A) →X
Y+S*sin(A) →Y
End
End
If length(Str2)>1
Sub(Str2,2,length(Str2)-1) →Str2
End

相关帖子

发表于 2011-6-19 09:33:29 | 显示全部楼层
建议参考这里:
http://tibasicdev.wikidot.com/home
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|cnCalc计算器论坛

GMT+8, 2024-4-27 23:40 , Processed in 0.101509 second(s), 23 queries .

Powered by Discuz! X3.4

© 2001-2023 Discuz! Team.

快速回复 返回顶部 返回列表