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

第五节 坐标定位画图方法学习任务：1．认识 LOGO 语言中的坐标2．能用坐标命令编程画图一、认识坐标在图形窗口中 Graphics 中，我们把屏幕中心海龟的母位称为原点，过原点画的一条水平线叫做“x 轴” ，过原点画的一条竖直线叫做“y 轴” ，从原点开始，向上、向右为正，向下、向左为负（引入负号“- ”概念） 这样屏幕上的点都可以用一对数（坐标）来表示其位置例如：点 A 的坐标[-100 ，90]，点 B 的坐标[30，200] ，原点 O 的坐标[0 ，0]注意：LOGO 坐标是用[ ]括起来的一对数来表示的每步长表示一个单位X 坐标相同的点，它们在同一条竖直线上； Y 坐标相同的点，他们在同一条水平线上例 1：请在 LOGO 坐标中画出点 A[50 30]，点 B[80 0]，点 C[70 –20]坐标程序）TO ADRAW HTBK 3 REPEAT 20[FD 6 BK 3 RT 90 FD 5 LT 90 BK 2 REPEAT 4[FD 4 BK 2 RT 90 FD 5 LT 90 BK 2]BK 1]FD 6 PU HOME PD RT 90BK 3 REPEAT 8[FD 6 BK 3 RT 90 FD 5 LT 90 BK 2 REPEAT 4[FD 4 BK 2 RT 90 FD 5 LT 90 BK 2]BK 1]FD 6 PU HOME PD RT 180BK 3 REPEAT 20[FD 6 BK 3 RT 90 FD 5 LT 90 BK 2 REPEAT 4[FD 4 BK 2 RT 90 FD 5 LT 90 BK 2]BK 1]FD 6 PU HOME PD RT 270BK 3 REPEAT 10[FD 6 BK 3 RT 90 FD 5 LT 90 BK 2 REPEAT 4[FD 4 BK 2 RT 90 FD 5 LT 90 BK 2]BK 1]FD 6 MAKE "X 50REPEAT 3[PU SETXY SE -20 :X+7 PD TT :X/50*10 MAKE "X :X+50]MAKE "X -50REPEAT 3[PU SETXY SE -25 :X+7 PD TT :X/50*10 MAKE "X :X-50]MAKE "X 50REPEAT 9[PU SETXY SE :X-7 -7 PD TT :X/50*10 MAKE "X :X+50]MAKE "X -50REPEAT 8[PU SETXY SE :X-9 -7 PD TT :X/50*10 MAKE "X :X-50]PU SETXY SE 250 150 PD SETW 3 FD 1 BK 1 TT [A[50 30]]PU SETXY SE 400 0 PD SETW 3 FD 1 BK 1 TT [B[80 0]]PU SETXY SE 350 -100 PD SETW 3 FD 1 BK 1 TT [C[70 -20]]END例 2：请在 LOGO 坐标中画出点 A[0 30]，点 B[60 0]，点 C[-60 30]。

解：例 3：请把下图 LOGO 坐标系中点 A、点 B、点 C、点 D、点 E 的坐标标出解：A[0 20]B[30 0]C[70 -20]D[20 -30]E[-70 -20]F[[30 -10]二、坐标定位（向）命令SETX 水平移动海龟到指定的点格式：海龟沿水平方向移动到 X 坐标值指定的点上对海龟的指向和 Y 坐标无影响如果原海龟的位置在母位，执行下面命令SETX 60 时画出海龟从母位水平移至 X 坐标为 60 处如果原海龟的位置在母位，执行下面的命令SETX -60 时画出海龟从母位水平移至 X 坐标为 -60 处如果原海龟的位置不在母位，执行 SETX 60 结果情况举例如下：海龟原位置 执行后海龟位置 海龟移动情况[0 20] [60 20] 水平右移 60[100 40] [60 40] 水平左移 40[-100 -30] [60 -30] 水平右移 160[60 140] [60 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 40]SETX 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 100]HEADING 测出海龟所指方向为 90 度例 6：用测试命令和定位命令画楼梯TO LDRAW HTREPEAT 5[SETY YCOR+20 SETX XCOR+20]END练一练：1．标出下图中各点的坐标2．根据所给各点的坐标值，在平面上画出它们相对的点。

A[25 45] B[170 120] C[50 0] D[-80 45] E[-100 0] F[-70 -70] G[0 -90] H[-110 -150]3．根据下图给的参照点和坐标填空4．填写下表，写出由原位置原方向分别 SETX、SETY 和 FD 后海龟的坐标原位置 原方向 执行 SETX 40 后 执行 SETY 40 后 执行 FD 40 后[-20 30] 0[10 70] 90 [40 70] [10 40] [50 70][30 60] 90[30 -60] 180[-30 -60] 180[0 40] 270[-40 0] 2705．画出运行结果1）TO DDRAWSETY 0-60SETX 0-100SETXY SE 0 0END执行 D（2）TO ADRAWFD 110 SETXY [-50 -50]HOMESETY 110SETXY [150 -50] HOMEEND执行 A（3）TO C :B1 :B2REPEAT 2[FD :B1 RT 90 FD :B2 RT 90]ENDTO FANGHT CS PU SETXY [-80 -60] PD C 120 160SETX 15 C 80 35 PU SETXY [-40 20]PD REPEAT 4[C 20 30 RT 90]PU SETXY [-80 60]PD SETXY [-60 100]SETX 60 SETXY [80 60]END执行：FANG（4）TO S :X :YIF :X>120 STOPSETX :X SETY :YS :X+20 :Y+20END执行：S 0 06．用坐标定位的方法编程完成下列图形。

TO A REPEAT 4[SETX XCOR+20 SETY YCOR+20 SETX XCOR-20 SETY YCOR-20 SETY YCOR+20 SETX XCOR+10]ENDTO BDRAW HTREPEAT 3[SETX XCOR+20 SETY YCOR-20]SETX XCOR+20REPEAT 3[SETY YCOR+20 SETX XCOR+20]END。