火眼金睛 说说过程实现的功能

TO YUAN :R REPEAT 36[FD :R*3.14/18 RT 360/36 ]END 运行： YUAN 30

TO SBX :B REPEAT 4[ FD :B RT 360/4 ]END运行： SBX 30

TO QJX :J REPEAT J[ FD 40 RT 180-180/:J ]END运行： QJX 7

步长为 30 的正四边形

半径为 30 的圆

步长为 40 的正 7 角星

由固定点开始由内向外逐圈旋绕而形成的曲线 —— 螺旋线大显身手 说说这些图形有什么特点？

执教人：景明佳园小学 王静雯

小学信息技术 logo 程序教学研究

TO SBX :B FD :B RT 360/4 SBX :BEND

运行： SBX 30

TO SBLX :B FD :B RT 360/4 SBLX :B+10 END

分步执行的命令：FD 30 RT 90

运行： SBLX 30

分步执行命令：FD 30 RT 90FD 30 RT 90FD 30 RT 90FD 30 RT 90FD 30 RT 90……

FD 40 RT 90

FD 50 RT 90

FD 60 RT 90

FD 70 RT 90……

猜猜过程实现的功能

TO SBX :B REPEAT 4[ FD :B RT 360/4 ]END

运行： SBX 30

SBLX :B+10

分步执行命令：FD 30 RT 90FD 30 RT 90FD 30 RT 90FD 30 RT 90

TO SBLX :B

FD :B RT 360/4

SBLX :B+10

END

运行： SBLX 30

100

四边形螺旋线

IF :B>100 THEN STOP100

30

SBLX :B+10

初始步长

最终步长

30

步长增加值 10

小海龟本领大 四边螺旋变化多

我们打算：保持（ ）值不变，改变（ ）值观察螺旋线的变化！

可能因素

1 最终步长

2 步长增加

3 初始步长

我们的发现：

30

10

100

要求： 1 、以小组为单位，确定需要研究的因素以及实验的次数； 2 、过程分别在不同编辑窗口中编辑，过程名必须不同 3 、所有图形在一个图形窗口中显示但不重叠；

初始步长 最终步长

步长增加值

小海龟本领大 四边螺旋变化多

是什么因素让四边形螺旋线变化纷呈？

to sblx :bif :b>180 then stopfd : b rt 360/4sblx :b+10 end

多边形螺旋线

to dblx :b :n if :b>180 then stop fd :b rt 360/:n dblx :b+10 :nend

( b 代表步长 n 代表边数 )

to lblx :bif :b>180 then stopfd : b rt 360/6lblx :b+10 end

to wblx :bif :b>180 then stopfd : b rt 360/5wblx :b+10 end

……

当 n=36 b=3.14*:r/18 圆形螺旋线

to dblx :b :n if :b>180 then stop fd :b rt 360/:n dblx :b+10 :nend

to ylx :r if :r>100 then stop fd 3.14*:r/18 rt 360/36 ylx :r+0.5 end

分别运行： ylx 10 ylx 30 ylx 60 观察到： 起始半径值越大 圆形螺旋线（）

ylx 10 ylx 30 ylx 60

调用过程 ylx

神笔小画家

起始步长为 10步长每次增加 4最长边长为 100

起始半径为 20半径每次增加 0.3最长半径为 120

起始步长为 10步长每次增加 5最长边长为 100

起始步长为 8步长每次增加 5最长边长为 150

最终步长 30

初始步长 100

TO SBLX :B IF :B>100 THEN STOP FD :B RT 360/4 SBLX :B+10END运行： SBLX 30

初始步长 30

最终步长 100

TO SBLX :B IF :B<30 THEN STOP FD :B RT 360/4 SBLX :B-10END运行： SBLX 100

多角星螺旋线to djxlx :b :j

if :b>180 then stop

fd :b rt 180-180/:j

djxlx :b+10 :j

end