140 likes | 336 Views
火眼金睛 说说过程实现的功能. TO SBX : B REPEAT 4 [ FD : B RT 360/ 4 ] END 运行: SBX 30. 步长为 30 的正四边形. TO YUAN : R REPEAT 36[ FD : R *3.14/18 RT 360/36 ] END 运行: YUAN 30. 半径为 30 的圆. 步长为 40 的正 7 角星. TO QJX : J REPEAT J [ FD 40 RT 180-180/ :J ] END 运行: QJX 7.
E N D
火眼金睛 说说过程实现的功能 TO SBX :B REPEAT4[ FD:BRT 360/4 ] END 运行:SBX 30 • 步长为30的正四边形 TO YUAN :R REPEAT 36[FD:R*3.14/18 RT 360/36 ] END 运行: YUAN 30 • 半径为30的圆 • 步长为40的正7角星 TO QJX :J REPEAT J[ FD40RT 180-180/:J ] END 运行:QJX7
大显身手 说说这些图形有什么特点? 由固定点开始由内向外逐圈旋绕而形成的曲线 ——螺旋线
执教人:景明佳园小学 王静雯 小学信息技术logo程序教学研究 画螺旋线
猜猜过程实现的功能 TO SBX:B FD :B RT 360/4 SBX :B END TO SBX :B REPEAT4[ FD:BRT 360/4 ] END 运行:SBX 30 TOSBLX :B FD :BRT 360/4 SBLX :B+10 END SBLX :B+10 运行:SBLX 30 运行:SBX 30 分步执行命令: FD 30 RT 90 FD 30 RT90 FD 30 RT90 FD 30 RT 90 FD 30RT90 …… 分步执行的命令: FD 30RT 90 分步执行命令: FD 30 RT 90 FD 30 RT90 FD 30 RT90 FD 30 RT90 FD 40 RT 90 FD 50 RT 90 FD60 RT90 FD70 RT90 ……
四边形螺旋线 TOSBLX :B FD :BRT 360/4 SBLX :B+10 END IF :B>100 THEN STOP 100 初始步长 30 SBLX :B+10 最终步长 100 步长增加值10 运行:SBLX 30 30
100 10 30 要求:1、以小组为单位,确定需要研究的因素以及实验的次数; 2、过程分别在不同编辑窗口中编辑,过程名必须不同 3、所有图形在一个图形窗口中显示但不重叠;
小海龟本领大 四边螺旋变化多 是什么因素让四边形螺旋线变化纷呈? 最终步长 初始步长 步长增加值
tosblx :b if :b>180then stop fd : brt360/4 sblx :b+10 end 多边形螺旋线 todblx :b :n if :b>180thenstop fd :b rt 360/:n dblx :b+10 :n end towblx:b if :b>180then stop fd : brt360/5 wblx :b+10 end tolblx :b if :b>180then stop fd : brt360/6 lblx :b+10 end ( b代表步长 n代表边数) ……
圆形螺旋线 分别运行: ylx 10 ylx 30 ylx 60 观察到: 起始半径值越大 圆形螺旋线() todblx :b :n if :b>180thenstop fd :brt 360/:n dblx :b+10 :n end 当n=36 b=3.14*:r/18 toylx :r if :r>100thenstop fd3.14*:r/18 rt 360/36 ylx :r+0.5 end
调用过程ylx ylx 60 ylx 10 ylx30
神笔小画家 起始步长为10 步长每次增加5 最长边长为100 起始步长为10 步长每次增加4 最长边长为100 起始半径为20 半径每次增加0.3 最长半径为120 起始步长为8 步长每次增加5 最长边长为150
TOSBLX :B IF :B>100 THEN STOP FD :BRT 360/4 SBLX :B+10 END 运行: SBLX 30 初始步长 30 最终步长 100 TOSBLX :B IF :B<30 THEN STOP FD :BRT 360/4 SBLX :B-10 END 运行: SBLX 100 初始步长 100 最终步长 30
多角星螺旋线 todjxlx :b :j if :b>180then stop fd :b rt180-180/:j djxlx :b+10 :j end