测绘者论坛5800程序.docVIP

因局部改线，或量距中发生错误等均会造成p里程桩号与实际距离不相符，这种在里程中间不连续的情况叫“断链”。 凡新桩号比老桩号大(新路线比老路线长)的叫“长链”。 凡新桩号比老桩号小(新路线比老路线短)的叫“短链”。 所谓“断链处理”就是不牵动全线桩号，允许中间断链，而出现桩号不连续。 仅在改动处用新桩号，其它不变动处仍用老桩号。 并就近在直线段选一个是整桩的老桩号为断链桩。在同一断链桩上分别标明新老两种里程及相互关系。 例：某路线A在定测时，在AK2+356.400处开始局部改线，老路线A、新改路线B各自经过一段连续里程后，新改路线B在BK3+426.200处又与老路线A重合，此处老桩号为AK3+641.600。 在这个重合点之后的直线段上有两个桩： AK3+660等同于BK3+444.600, AK3+655.400等同于BK3+440。 请问断链桩应选在何处？AK3+660处 此断链是长链还是短链？是短链（短链215.400米） 如何写该桩的桩志和桩号？断链桩BK3+444.600=AK3+660（短链215.4米） 若该断链桩之后还有一处断链现象，且为长链65.4米。则新路终点AK8+500的实际连续里程是多少？ 路线总长度=末桩里程+长链总和-短链总和 =8500.000+65.400-215.400=8350.000米 5800程序 Do:Deg:ClrText“F1 Fangyang”“F2 Jiance”“F3 suidao”‘FN:6→V:3→I:Prog “GN”‘XL:3→V:Prog “GN”Prog “FN”:ClrText“Cont”:1→W:Prog “SC”LpWhile F=1 ZZ List 7[1]→I:List 8→I:1→VDo:I+1→I:List 9→QLpWhile KQ-List 12List 10→M:List 11→NList 16→S:List 17→RList 9→Q:-List 12→J6→W‘QH:Q+J→Q:Prog “SC”:Prog “GN”K-Q→J:1E-20→B:List 13→OO0=1÷List 17→BAbsO→O:(1÷R-B)÷2÷O→CZX:If J0:Then Prog “SC”Return :IfEnd7→W‘HQ:If JO:Then Prog “SC”Return:IfEnd‘HY:O→J:Prog “SC”:Prog “GN”Q+O→Q:K-Q→J:List 14→O8→W‘YQ:If JO:Then Prog “SC”Return:IfEnd‘YH:O→J:Prog “SC”:Prog “GN”Q+O→Q:K-Q→J:List 15→O1÷R→B: 1E20→RO0=List 17→RAbs O→O: (1÷R-B)÷2÷O→C7→W‘HQ:If JO:Then Prog “SC”Return:IfEnd‘HZ:O→J: Prog “SC”:Prog “GN”K-Q-O→J6→W‘ZX:Prog “SC” FN ‘FY:If:F=1:Then Do:ClrText“Fangyang”5→V:Prog “GN”:I=0=ReturnProg “ZZ”:Prog “GN”Do:ClrText:4→W:0→L“F1 Daoxian”:“F2 Shexian”:“F3 2Bian”‘FN:6→V:3→I:Prog “GN”:F→V:F=3=2→V“J”?-r:r→J: “A”→θ: θ→A‘SX.DX:ClrText:Prog “GN”‘ “XY”:Prog “SC”‘SX:If F=3:Then -J→r:A→θProg “GN”:Prog “SC”:IfEnd: “OK”▲ClrText:“F1 Next”: “F2 K?”: “F3 Quit”‘FN:6→V:3→I:Prog “GN”LpWhile F=1:LpWhile F=2Return:IfEnd‘JC:If F=2:Then Do:ClrText“Jiance”:0→List 25[1]“F1 Lumian”:“F2 Bianpo”:“F3 2D”‘FN:6→V:3→I:Prog “GN”:F→U‘K?:5→V:Prog “GN”:I=0=ReturnDo:‘FS: “X”?→X:“Y”?→Y7→V:Prog “GN”: I=0=Return‘ “KJ”:ClrText:0→L:5→W:Prog “SC”If U≠3:Then “Z”?→ZList 7[1]→I:List 8→AIf List 25[1]=0:Then‘ZG:8→V:Prog “