全线公路测量程序(个人自编).doc

贵台至防城二级公路工程No 5标 全线测量程序 A（主程序） Fix3:“X0”?A:“Y0”?B:IfA＜0:Then Goto 1:IfEnd:“J”?D:Lbl 0:“K”?C:IfC＜30942.044 Ｏr C＞39158.64:Then Cls:Locate 4,2，“MATH ERRER”◢ Goto 0:IfEnd “B”?E:Prog“Z”: Prog“Z5”:If E＜0:Then Z[4]+D+180°→Z[4]:X+Rec(-E,Z[4])→X:Y+J→Y:Prog“Z4”:IfEnd If E≥0:Then Z[4]+D→Z[4]:X+Rec(E,Z[4])→X:Y+J→Y:Prog“Z4”:IfEnd Prog“Z0”: Prog“Z6”:“SH=”:Z[2]◢ Goto 0:Lbl 1:“X”?X:“Y”?Y:Prog“Z4”:Goto 1 B（已知坐标反算桩号和距中距离程序） Lbl 0:“X”?U:“Y”?V:Lbl 1:0→E:Prog“Z”:Prog“Z5”:Pol(U-X, V-Y):If J＜0:Then J+360°→J:IfEnd:J-Z[4]→J:If J＜0:Then J+360°→J:IfEnd:Icos(J):If Abs(Ans)＞0.5m:Then C+Ans→C:Goto 1:IfEnd:If J＞180:Then -I→E:Else I→E:IfEnd Cls:Locate 1,1，“K=”:Locate 8,2,C:Locate 1,3，“B=”:Locate 8,4,C◢ Cls:Goto 0 Z（数据输入均按有直线、两段缓和曲线和圆曲线的情况输入） IfC＜30942.044 Ｏr C＞39158.64:Then Cls:Locate 4,2，“MATH ERRER”◢ Return:IfEnd IfC≥30942.044AndC≤31269.023:Then424868.233→F:539039.488→G:31089.862→H:217°4′4″→K:65→L:49.162→Z[1]:260→M:25°9′27″→R:424753.659→S:538904.642→T:31269.023→Z[2]:Return:IfEnd IfC＞31269.023AndC≤31455.754:Then424753.659→F:538904.642→G:31269.023→H:242°13′31″→K:70→L:46.73→Z[1]:252.13→M:-26°31′36″→R:424632.753→S:538765.742→T:31455.754→Z[2]:Return:IfEnd IfC＞31455.754AndC≤31905.062:Then424457.546→F:538639.849→G:31671.5→H:215°41′55″→K:80→L:73.562→Z[1]:187.809→M:-46°50′52″→R:424238.917→S:538592.28→T:31905.062→Z[2]:Return:IfEnd IfC＞31905.062AndC≤32258.66:Then424185.303→F:538602.847→G:31959.708→H:168°51′3″→K:95→L:108.952→Z[1]:160→M:73°2′6″→R:423941.939→S:538487.454→T:32258.66→Z[2]:Return:IfEnd IfC＞32258.66AndC≤32265.278:Then423938.82→F:538481.616→G:32263.383→H:241°53′9″→K:0→L:0→Z[1]:0→M:0→R:0→S:0→T:0→Z[2]:Return:IfEnd IfC＞32265.278AndC＜32270.001:Then Cls:Locate 4,2，“MATH ERRER”◢ Return:IfEnd IfC≥32270.001AndC≤32745.669:Then423817.442→F:538254.43→G:32527.579→H:241°53′9″→K:0→L:218.091→Z[1]:1.5k→M:-8°19′50″→R:0→S:0→T:32745.669→Z[2]:Return:IfEnd IfC＞32745.669AndC≤33148.834:Then423618.867→F:537958.885→G:32884.055→H:233°33′20″→K:85→L:94.779→Z[1]:200→M:-51°30′11″→R:423396.37→S:537841.557→T:33148.834→Z[2]:Retu