主程序部分.docVIP

主程序部分 注：在本程序中﹛0﹜表示零，﹛Sin﹣1﹜表示Sin的反函数，{√（A2+B2）}表示根号下A的平方加B的平方， 角度输入时、比如输入﹛25°35′45.67″﹜只需要输入﹛25.354567﹜。 PQXY 极坐标向直角坐标转换 Deg:Fix 4:〝Xo=〞?→I:〝〞 程序设置，输入起始点坐标 Ldl 0 回车 〝Rn=〞？→R 回车 输入方位角） 〝Pn=〞？→P 回车 输入计算点边长 If P＜0：Then Goto 9：If End 回车 〝Pn=〞输入负数结束程序 Prog 〝ZDEG〞 回车 转子程序DEG R→Q : Prog〝ZQ＋－360〞 回车 Prog 〝ZPQ〞 : Prog 〝XYXS〞 回车 坐标计算和显示坐标 Goto 0 回车 Lbl 9 回车 〝PQXY→END〞 XYPQ 直角坐标向极坐标转换 Deg：Fix 4：〝Xo=〞？→I： 程序设置，输入起始点坐标 〝Yo=〞？→J 回车 Lbl 0 回车 〝Xn=〞？→D 回车 输入计算点坐标X If D＜0：Then Goto 9：If End 回车 〝Xn=〞输入负数结束程序 〝Yn=〞？→G 回车 输入计算点坐标Y D－I→E ：G-J→F 回车 坐标增量计算、E为△x、F为△y Prog 〝ZPOL〞回车 转坐标计算子程序 〝R=〞：R?DMS◢ 方位角计算结果显示 〝P=〞：P◢ 边长计算结果显示 Goto 0 回车 Lbl 9 回车 〝XYPQ→END〞 KWXBP 开挖线边破偏距计算 Deg：Fix 4：〝D=〞？→D： 输入起算偏距 〝Z=〞？→Z:Z→F： 〝H=〞? →H回车 输入起算高程〝Z〞、实测高程 H－Z→H◢ 显示〝△H〞 If H＜0:Then Goto 1: 判断〝H为正直〞挖方边跑 If End回车 〝H为负直〞填方边跑 〝DLBGKD〞? →E: 输入道路边沟宽度 D+E→D 〝P=〞？→P：〝B=〞？→B回车 输入挖方破比 〝FTGD〞? →G: 〝FTKD〞? →J回车 输入分台高度和宽度 Lbl 0回车 〝H=〞？→H：If H＜0: 循环输入实测高程〝H〞,判 Then Goto 9:IfEnd回车 〝H=〞输入〝负数〞结束程序 If H-F＞G:Then F+G→F:D+J→D:IfEnd回车 Prog 〝ZBPHS〞回车 转偏距增量计算子程序 〝D=〞：D＋S→D◢ 显示新的偏距 Goto 0 回车 Lbl 1回车 〝P=〞? →P: 〝B=〞? →B回车 输入填方破比 〝FTGD〞? →G: 〝FTKD〞? →J回车 输入分台高度和宽度 Lbl 2回车 〝H=〞？→H：If H＜0: 循环输入实测高程〝H〞,判 Then Goto 9:IfEnd回车 〝H=〞输入〝负数〞结束程序 If √﹙H-F﹚2＞G：Then F-G→F：D+J→D：IfEnd回车 Prog 〝ZBPHS〞回车 转偏距增量计算子程序 〝D=〞D－S→D◢ 显示新的偏距 Goto 2回车 Lbl 9回车 〝KWXBP→END〞 DJDJS 已知矩形两对角点和长宽，计算另外两点坐标 Lbl 0回车 Deg：Fix 4：〝Xo=〞？→I回车 输入起算点X If I＜0:Then Goto 9:IfEnd回车 〝Xo=〞输入〝负数〞结束程序 〝Yo=〞? →J: 〝Xd=〞? →D: 输入起算点Y和对角点X、Y 〝Yd=〞? →G回车 D－I→E:G－J→F回车 坐标增量计算 Prog 〝ZPOL〞回车 直角坐标转极坐标 〝P2=〞? →S回车 输入对边 边长 Sin﹣1（S÷P）→C回车 点2 点D R+C→Q : Prog〝ZQ＋－360〞: P2 〝P1=〞? →P回车 输入邻边边长 点O P1 点1 Prog 〝ZPQ〞: Prog 〝XYXS〞回车 计算并显示点1的坐标 Q－90→Q: Prog〝ZQ＋－360〞: 〝P2=〞? →P回车 输入对边边长 Prog 〝ZPQ〞: Prog 〝XYXS〞回车 计算并显示点2的坐标 Goto 0 回车 Lbl 9回车 〝DJDJS→END〞 ABDXY AB坐标转地方坐标 Deg：Fix 4：〝Xo=〞? →I：〝Yo=〞 输入起始点坐标和 ? →J:〝Ro=〞? →R: 0 →L 回车 起算方位角 Prog