坐标定位画图方法.docVIP

第五节 坐标定位画图方法 学习任务： 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 A DRAW HT BK 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 90 BK 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 180 BK 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 270 BK 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 50 REPEAT 3[PU SETXY SE -20 :X+7 PD TT :X/50*10 MAKE X :X+50] MAKE X -50 REPEAT 3[PU SETXY SE -25 :X+7 PD TT :X/50*10 MAKE X :X-50] MAKE X 50 REPEAT 9[PU SETXY SE :X-7 -7 PD TT :X/50*10 MAKE X :X+50] MAKE X -50 REPEAT 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