第5节 坐标定位画图方法.doc

第五节 坐标定位画图方法学习任务：1认识LOGO语言中的坐标2能用坐标命令编程画图一、认识坐标在图形窗口中Graphics中，我们把屏幕中心海龟的母位称为原点，过原点画的一条水平线叫做“x轴”，过原点画的一条竖直线叫做“y轴”，从原点开始，向上、向右为正，向下、向左为负（引入负号“-”概念）。这样屏幕上的点都可以用一对数（坐标）来表示其位置。例如：点A的坐标-100，90，点B的坐标30，200，原点O的坐标0，0。注意：LOGO坐标是用 括起来的一对数来表示的。每步长表示一个单位。X坐标相同的点，它们在同一条竖直线上；Y坐标相同的点，他们在同一条水平线上。例1：请在LOGO坐标中画出点A50 30，点B80 0，点C70 20。（坐标程序）TO ADRAW HTBK 3 REPEAT 20FD 6 BK 3 RT 90 FD 5 LT 90 BK 2 REPEAT 4FD 4 BK 2 RT 90 FD 5 LT 90 BK 2BK 1FD 6 PU HOME PD RT 90BK 3 REPEAT 8FD 6 BK 3 RT 90 FD 5 LT 90 BK 2 REPEAT 4FD 4 BK 2 RT 90 FD 5 LT 90 BK 2BK 1FD 6 PU HOME PD RT 180BK 3 REPEAT 20FD 6 BK 3 RT 90 FD 5 LT 90 BK 2 REPEAT 4FD 4 BK 2 RT 90 FD 5 LT 90 BK 2BK 1FD 6 PU HOME PD RT 270BK 3 REPEAT 10FD 6 BK 3 RT 90 FD 5 LT 90 BK 2 REPEAT 4FD 4 BK 2 RT 90 FD 5 LT 90 BK 2BK 1FD 6 MAKE X 50REPEAT 3PU SETXY SE -20 :X+7 PD TT :X/50*10 MAKE X :X+50MAKE X -50REPEAT 3PU SETXY SE -25 :X+7 PD TT :X/50*10 MAKE X :X-50MAKE X 50REPEAT 9PU SETXY SE :X-7 -7 PD TT :X/50*10 MAKE X :X+50MAKE X -50REPEAT 8PU SETXY SE :X-9 -7 PD TT :X/50*10 MAKE X :X-50PU SETXY SE 250 150 PD SETW 3 FD 1 BK 1 TT A50 30PU SETXY SE 400 0 PD SETW 3 FD 1 BK 1 TT B80 0PU SETXY SE 350 -100 PD SETW 3 FD 1 BK 1 TT C70 -20END例2：请在LOGO坐标中画出点A0 30，点B60 0，点C-60 30。解：例3：请把下图LOGO坐标系中点A、点B、点C、点D、点E的坐标标出。解：A0 20B30 0C70 -20D20 -30E-70 -20F30 -10二、坐标定位（向）命令SETX 水平移动海龟到指定的点格式：海龟沿水平方向移动到X坐标值指定的点上。对海龟的指向和Y坐标无影响。如果原海龟的位置在母位，执行下面命令。SETX 60时画出海龟从母位水平移至X坐标为60处如果原海龟的位置在母位，执行下面的命令SETX -60时画出海龟从母位水平移至X坐标为-60处如果原海龟的位置不在母位，执行SETX 60结果情况举例如下：海龟原位置执行后海龟位置海龟移动情况0 2060 20水平右移60100 4060 40水平左移40-100 -3060 -30水平右移16060 14060 140原地不动注意：无论海龟原位置在哪里，都将水平移到X坐标为60处。SETY 竖直移动海龟到指定的点格式：SETY Y坐标功能：海龟沿竖直方向移到Y坐标值指定的点上。对海龟的指向和X坐标无影响。如果原海龟的位置在母位，执行下面命令SETY 60海龟从母位竖直移至Y坐标为60处如果原海龟的位置在母位，执行下面命令SETY -60海龟从母位竖直移至Y坐标为-60处请想一想：海龟原位置如果不在母位，情况怎样？SETXY 移动海龟到指定的点格式：SETXY X坐标 Y坐标SETXY SE :X :Y功能：海龟移到点X Y的位置上。例：DRAW SETXY 50 40将海龟从母位移动到X坐标50和Y坐标40这一点上。DRAW SETXY SE 50 40作用同上。注意：SETXY SE :X :Y中的:X和:Y可以是常数也可以是变量,而SETXY X Y中的X Y只能是常数。执行FENCE命令后，用上述命令移动海龟并且超出窗口范围时屏幕显示：Attempt to move turtle outside the fence.(企图将海龟移到围栏外)海龟保持原状。SETH 海龟头转到指定的方向SETHEADING 简称（SETH）格式：SETH :D指定海龟方向功能：使海龟转到指定的方向上。LOGO规定0度方向向上；90度方向向右；180度方向向下；270度方向向左。例：SETH 60海龟头转到60度的方向例4：利用坐标定位命令作出如下图形。TO TX CS HT PU SETX -60 PDSETY -60 SETX 0 SETXY SE 80 80SETXY SE -60 0END例5：作个人上底为50，下底为90，高为40的等腰梯形。分析：如果将梯形的A点设置在原点（母位）则梯形的各顶点坐标为：A（0，0）B（90，0）C（70，40）D（20，40）程序如下：TO DYTXDRAW HTSETX 90SETXY 70 40SETX 20SETXY 0 0（也可用HOME命令）END三、坐标测试命令XCOR显示海龟当前位置的X坐标YCOR显示海龟当前位置的Y坐标GETXY显示海龟当前位置的X，Y坐标HEADING显示海龟当前角度例如：键入：CS FD 100 RT 90 FD 60再键入：XCOR输出X的坐标60YCOR输出Y的坐标100GETXY输出海龟所在X及Y的坐标值60 100HEADING测出海龟所指方向为90度例6：用测试命令和定位命令画楼梯TO LDRAW HTREPEAT 5SETY YCOR+20 SETX XCOR+20END练一练：1标出下图中各点的坐标2根据所给各点的坐标值，在平面上画出它们相对的点。A25 45 B170 120 C50 0 D-80 45 E-100 0 F-70 -70 G0 -90 H-110 -1503根据下图给的参照点和坐标填空。4填写下表，写出由原位置原方向分别SETX、SETY和FD后海龟的坐标。原位置原方向执行SETX 40后执行SETY 40后执行FD 40后-20 30010 709040 7010 4050 7030 609030 -60180-30 -601800 40270-40 02705画出运行结果。（1）TO DDRAWSETY 0-60SETX 0-100SETXY SE 0 0END执行 D（2）TO ADRAWFD 110 SETXY -50 -50HOMESETY 110SETXY 150 -50 HOMEEND执行 A（3）TO C :B1 :B2REPEAT 2FD :B1 RT 90 FD :B2 RT 90ENDTO FANGHT CS PU SETXY -80 -60 PD C 120 160SETX 15 C 80 35 PU SETXY -40 20PD REPEAT 4C 20 30 RT 90PU SETXY -80 60PD SETXY -60 100SETX 60 SETXY 80 60END执行：FANG（4）TO S :X :YIF :X120 STOPSETX :X SETY :YS :X+20 :Y+20END执行：S 0 06用坐标定位的方法编程完成下列图形。 TO A REPEA