第5节坐标定位画图方法

第五节坐标定位画图方法学习任务：1．认识LOGO语言中的坐标2．能用坐标命令编程画图一、认识坐标在图形窗口中Graphics中，我们把屏幕中心海龟的母位称为原点，过原点画的一条水平线叫做“x轴”，过原点画的一条竖直线叫做“y轴”，从原点开始，向上、向右为正，向下、向左为负（引入负号“-”概念）。这样屏幕上的点都可以用一对数（坐标）来表示其位置。例如：点A的坐标[-100，90]，点B的坐标[30，200]，原点O的坐标[0，0]。注意：LOGO坐标是用[]括起来的一对数来表示的。每步长表示一个单位。X坐标相同的点，它们在同一条竖直线上；Y坐标相同的点，他们在同一条水平线上。例1：请在LOGO坐标中画出点A[5030]，点B[800]，点C[70–20]。（坐标程序）TOADRAWHTBK3REPEAT20[FD6BK3RT90FD5LT90BK2REPEAT4[FD4BK2RT90FD5LT90BK2]BK1]FD6PUHOMEPDRT90BK3REPEAT8[FD6BK3RT90FD5LT90BK2REPEAT4[FD4BK2RT90FD5LT90BK2]BK1]FD6PUHOMEPDRT180BK3REPEAT20[FD6BK3RT90FD5LT90BK2REPEAT4[FD4BK2RT90FD5LT90BK2]BK1]FD6PUHOMEPDRT270BK3REPEAT10[FD6BK3RT90FD5LT90BK2REPEAT4[FD4BK2RT90FD5LT90BK2]BK1]FD6MAKEX50REPEAT3[PUSETXYSE-20:X+7PDTT:X/50*10MAKEX:X+50]MAKEX-50REPEAT3[PUSETXYSE-25:X+7PDTT:X/50*10MAKEX:X-50]MAKEX50REPEAT9[PUSETXYSE:X-7-7PDTT:X/50*10MAKEX:X+50]MAKEX-50REPEAT8[PUSETXYSE:X-9-7PDTT:X/50*10MAKEX:X-50]PUSETXYSE250150PDSETW3FD1BK1TT[A[5030]]PUSETXYSE4000PDSETW3FD1BK1TT[B[800]]PUSETXYSE350-100PDSETW3FD1BK1TT[C[70-20]]END例2：请在LOGO坐标中画出点A[030]，点B[600]，点C[-6030]。解：例3：请把下图LOGO坐标系中点A、点B、点C、点D、点E的坐标标出。解：A[020]B[300]C[70-20]D[20-30]E[-70-20]F[[30-10]二、坐标定位（向）命令SETX水平移动海龟到指定的点格式：海龟沿水平方向移动到X坐标值指定的点上。对海龟的指向和Y坐标无影响。如果原海龟的位置在母位，执行下面命令。SETX60时画出海龟从母位水平移至X坐标为60处如果原海龟的位置在母位，执行下面的命令SETX-60时画出海龟从母位水平移至X坐标为-60处如果原海龟的位置不在母位，执行SETX60结果情况举例如下：海龟原位置执行后海龟位置海龟移动情况[020][6020]水平右移60[10040][6040]水平左移40[-100-30][60-30]水平右移160[60140][60140]原地不动注意：无论海龟原位置在哪里，都将水平移到X坐标为60处。SETY竖直移动海龟到指定的点格式：SETYY坐标功能：海龟沿竖直方向移到Y坐标值指定的点上。对海龟的指向和X坐标无影响。如果原海龟的位置在母位，执行下面命令SETY60海龟从母位竖直移至Y坐标为60处如果原海龟的位置在母位，执行下面命令SETY-60海龟从母位竖直移至Y坐标为-60处请想一想：海龟原位置如果不在母位，情况怎样？SETXY移动海龟到指定的点格式：SETXY[X坐标Y坐标]SETXYSE:X:Y功能：海龟移到点[XY]的位置上。例：DRAWSETXY[5040]将海龟从母位移动到X坐标50和Y坐标40这一点上。DRAWSETXYSE5040作用同上。注意：SETXYSE:X:Y中的:X和:Y可以是常数也可以是变量,而SETXY[XY]中的XY只能是常数。执行FENCE命令后，用上述命令移动海龟并且超出窗口范围时屏幕显示：Attempttomoveturtleoutsidethefence.(企图将海龟移到围栏外)海龟保持原状。SETH海龟头转到指定的方向SETHEADING简称（SETH）格式：SETH:D指定海龟方向功能：使海龟转到指定的方向上。LOGO规定0度方向向上；90度方向向右；180度方向向下；270度方向向左。例：SETH60海龟头转到60度的方向例4：利用坐标定位命令作出如下图形。TOTXCSHTPUSETX-60PDSETY-60SETX0SETXYSE8080SETXYSE-600END例5：作个人上底为50，下底为90，高为40的等腰梯形。分析：如果将梯形的A点设置在原点（母位）则梯形的各顶点坐标为：A（0，0）B（90，0）C（70，40）D（20，40）程序如下：TODYTXDRAWHTSETX90SETXY[7040]SETX20SETXY[00]（也可用HOME命令）END三、坐标测试命令XCOR显示海龟当前位置的X坐标YCOR显示海龟当前位置的Y坐标GETXY显示海龟当前位置的X，Y坐标HEADING显示海龟当前角度例如：键入：CSFD100RT90FD60再键入：XCOR输出X的坐标60YCOR输出Y的坐标100GETXY输出海龟所在X及Y的坐标值[60100]HEADING测出海龟所指方向为90度例6：用测试命令和定位命令画楼梯TOLDRAWHTREPEAT5[SETYYCOR+20SETXXCOR+20]END练一练：1．标出下图中各点的坐标2．根据所给各点的坐标值，在平面上画出它们相对的点。A[2545]B[170120]C[500]D[-8045]E[-1000]F[-70-70]G[0-90]H[-110-150]3．根据下图给的参照点和坐标填空。4．填写下表，写出由原位置原方向分别SETX、SETY和FD后海龟的坐标。原位置原方向执行SETX40后执行SETY40后执行FD40后[-2030]0[1070]90[4070][1040][5070][3060]90[30-60]180[-30-60]180[040]270[-400]2705．画出运行结果。（1）TODDRAWSETY0-60SETX0-100SETXYSE00END执行D（2）TOADRAWFD110SETXY[-50-50]HOMESETY110SETXY[150-50]HOMEEND执行A（3）TOC:B1:B2REPEAT2[FD:B1RT90FD:B2RT90]ENDTOFANGHTCSPUSETXY[-80-60]PDC120160SETX15C8035PUSETXY[-4020]PDREPEAT4[C2030RT90]PUSETXY[-8060]PDSETXY[-60100]SETX60SETXY[8060]END执行：FANG（4）TOS:X:YIF:X120STOPSETX:XSETY:YS:X+20:Y+20END执行：S006．用坐标定位的方法编程完成下列图形。TOAREPEAT4[SETXXCOR+20SETYYCOR+20SETXXCOR-20SETYYCOR-20SETYYCOR+20SETXXCOR+10]ENDTOBDRAWHTREPEAT3[SETXXCOR+20SETYYCOR-20]SETXXCOR+20REPEAT3[SETYYCOR+20SETXXCOR+20]END