新计算器测量编程 教学课件 冯大福 第6讲转移语句及循环语句(For).pptVIP

地质与测绘工程学院 地质与测绘工程学院 在线教务辅导网： 教材其余课件及动画素材请查阅在线教务辅导网 QQ:349134187 或者直接输入下面地址： 计算器编程 测量教研室 2014年2月 上周布置的作业：根据经度计算带号 6度带公式 带号=INT（L÷6）+1 3度带公式 带号=INT（（L+1.5）÷3） 如果知道6度带带号，L6＝6n-3 如果知道3度带带号，L3＝3n 如果编程 ？？？ 程序： ===L—N=== “L”？→L “6°”:INT(L/6)+1▲ “3°”:INT((L+1.5)/3) 一、转移语句 句法： …… Goto n …… lb1 n …… 示例： ？→A lb1 1 ？→B A×B÷2▲ Goto 1 成对出现 数字一样即可，0，1，2 二、循环语句 句法： …… For 表达式 初值→变量 TO 终值 STEP步长……NEXT 例子： …… For 1→A TO 100 STEP 3：A3 → B：B▲NEXT 简化： For 1→A TO 100 ：A3 → B：B▲NEXT 三、支导线坐标计算（1） 已知数据： A（X，Y） B（X，Y） 观测数据： 水平角 X[I] 水平距 Y[I] 未知数据： 各边方位角F 各点坐标X、Y 三、支导线坐标计算（2） 公式： POL（C-A，D-B） F=F+L-180 X=P+S×COSF Y=Q+S×SINF 三、支导线坐标计算（3）---程序说明 XA——A YA——B XB——C YB——D L——L 水平角（右角为-） S——S 水平距离 J——上一条边的方位角 F——方位角 P——上一点的X坐标 Q——上一点的Y坐标 K——判断，负值向前推算 X——前视点X坐标 Y——前视点y坐标 推算路线为：A-B-1-2-3-4 三、支导线坐标计算（4） 程序： Deg “XA=”?A: “YA=”?B “XB=”?C: “YB=”?D POL（C-A，D-B） “DAB=”:I▲ J0 =J+360→J “FAB=”:J DMS▲ A→P：B →Q Lb1 0 “L=”?L:“S=”?S J+L-180 →F F0 =F+360→F F DMS▲ P+S×cosF →X ▲ Q+S×sinF →Y ▲ “K=”?K K≥0 = GOTO 0 X→P:Y→Q:F→J Goto 0 四、归纳 1 转移语句 2 循环语句 3 支导线计算程序（注意右角为负） 4 在程序前加Deg可设置角度，加fix可设置小数取位，加DMS可直接变成度分秒的形式。 5 作业：用本程序计算地形测量书中的相关例子。 本讲结束, 谢谢大家! 地质与测绘工程学院 地质与测绘工程学院