全線公路測(cè)量程序(個(gè)人自編).doc

貴臺(tái)至防城二級(jí)公路工程N(yùn)o 5標(biāo)全線測(cè)量程序A（主程序）Fix3:“X0”?A:“Y0”?B:IfA0:Then Goto 1:IfEnd:“J”?D:Lbl 0:“K”?C:IfC30942.044計(jì)算范圍，超出報(bào)錯(cuò)。 r C39158.64計(jì)算范圍，超出報(bào)錯(cuò)。:Then Cls:Locate 4,2，“MATH ERRER” Goto 0:IfEnd “B”?E:Prog“Z”: Prog“Z5”:If E0:Then Z4+D+180Z4:X+Rec(-E,Z4)X:Y+JY:Prog“Z4”:IfEndIf E0:Then Z4+DZ4:X+Rec(E,Z4)X:Y+JY:Prog“Z4”:IfEndProg“Z0”: Prog“Z6”:“SH=”:Z2 Goto 0:Lbl 1:“X”?X:“Y”?Y:Prog“Z4”:Goto 1B（已知坐標(biāo)反算樁號(hào)和距中距離程序）Lbl 0:“X”?U:“Y”?V:Lbl 1:0E:Prog“Z”:Prog“Z5”:Pol(U-X, V-Y):If J0:Then J+360J:IfEnd:J-Z4J:If J0:Then J+360J:IfEnd:Icos(J):If Abs(Ans)0.5m:Then C+AnsC:Goto 1:IfEnd:If J180:Then -IE:Else IE:IfEndCls:Locate 1,1，“K=”:Locate 8,2,C:Locate 1,3，“B=”:Locate 8,4,C Cls:Goto 0Z（數(shù)據(jù)輸入均按有直線、兩段緩和曲線和圓曲線的情況輸入）IfC30942.044計(jì)算樁號(hào)范圍，超出報(bào)錯(cuò)。 r C39158.64計(jì)算范圍，超出報(bào)錯(cuò)。:Then Cls:Locate 4,2，“MATH ERRER” Return:IfEndIfC30942.044直線起點(diǎn)（HZ）或（YZ）樁號(hào)AndC31269.023第二緩和曲線或圓曲線終點(diǎn)（HZ）、（YZ）或（GQ）樁號(hào):Then424868.233第一緩和曲線或圓曲線起點(diǎn)即（ZH）或（ZY）點(diǎn)坐標(biāo)N（X）F:539039.488第一緩和曲線或圓曲線起點(diǎn)即（ZH）或（ZY）坐標(biāo)E（Y）G:31089.862第一緩和曲線或圓曲線起點(diǎn)即（ZH）或（ZY）點(diǎn)樁號(hào)H:21744前交點(diǎn)至本交點(diǎn)前進(jìn)方位角K:65緩和曲線長(zhǎng)，無(wú)則輸0L:49.162圓曲線長(zhǎng)Z1:260曲線半徑M:25927交點(diǎn)轉(zhuǎn)角,左“”，右“”R:424753.659第二緩和曲線或圓曲線終點(diǎn)（HZ）、（YZ）或（GQ）坐標(biāo)N（X）S:538904.642第二緩和曲線或圓曲線終點(diǎn)（HZ）、（YZ）或（GQ）坐標(biāo)E（Y）T:31269.023第二緩和曲線或圓曲線終點(diǎn)（HZ）、（YZ）或（GQ）樁號(hào)Z2:Return:IfEndIfC31269.023AndC31455.754:Then424753.659F:538904.642G:31269.023H:2421331K:70L:46.73Z1:252.13M:-263136R:424632.753S:538765.742T:31455.754Z2:Return:IfEndIfC31455.754AndC31905.062:Then424457.546F:538639.849G:31671.5H:2154155K:80L:73.562Z1:187.809M:-465052R:424238.917S:538592.28T:31905.062Z2:Return:IfEndIfC31905.062AndC32258.66:Then424185.303F:538602.847G:31959.708H:168513K:95L:108.952Z1:160M:7326R:423941.939S:538487.454T:32258.66Z2:Return:IfEndIfC32258.66AndC32265.278:Then423938.82F:538481.616G:32263.383H:241539K:0L:0Z1:0M:0R:0S:0T:0Z2:Return:IfEndIfC32265.278AndC32270.001:Then Cls:Locate 4,2，“MATH ERRER” Return:IfEndIfC32270.001AndC32745.669:Then423817.442F:538254.43G:32527.579H:241539K:0L:218.091Z1:1.5kM:-81950R:0S:0T:32745.669Z2:Return:IfEndIfC32745.669AndC33148.834:Then423618.867F:537958.885G:32884.055H:2333320K:85L:94.779Z1:200M:-513011R:423396.37S:537841.557T:33148.834Z2:Return:IfEndIfC33148.834AndC33478.937:Then423396.37F:537841.557G:33148.834H:18239K:0L:330.103Z1:2175.42M:84139R:0S:0T:33478.937Z2:Return:IfEndIfC33478.937AndC33694.124:Then423068.638F:537804.798G:33478.937H:1904448K:0L:215.187Z1:3230.11M:-3491R:0S:0T:33694.124Z2:Return:IfEndIfC33693.616AndC34048.433:Then422856.046F:537771.742G:33693.616H:1865547K:120L:114.817Z1:600M:222524R:422522.132S:537662.336T:34048.433Z2:Return:IfEndIfC34048.433AndC35364.044:Then421555.603F:537118.77G:35157.325H:2092111K:70L:66.719Z1:406.06M:-191729R:421362.389S:537049.562T:35364.044Z2:Return:IfEndIfC35364.044AndC35720.49:Then421362.388F:537049.562G:35364.044H:190342K:115L:126.446Z1:243.936M:564239R:421100.018S:536841.482T:35720.49Z2:Return:IfEndIfC35720.49AndC35907.298:Then421100.018F:536841.482G:35720.49H:2464621K:65L:56.808Z1:201.254M:-344041R:420981.351S:536702.868T:35907.298Z2:Return:IfEndIfC35907.298AndC36156.901:Then420981.352F:536702.868G:35907.298H:212540K:85L:79.602Z1:300.549M:312246R:420816.815S:536521.511T:36156.901Z2:Return:IfEndIfC36159.206AndC36368.13:Then420816.815F:536521.511G:36159.206H:2432826K:70L:68.924Z1:279.721M:-282722R:420682.546S:536365.707T:36368.13Z2:Return:IfEndIfC36368.13AndC36593.463:Then420682.546F:536365.707G:36368.13H:21513K:75L:75.333Z1:443.804M:192430R:420523.598S:536208.295T:36593.463Z2:Return:IfEndIfC36593.463AndC36962.447:Then420523.598F:536208.295G:36593.463H:2342533K:120L:128.984Z1:600.381M:-234540R:420254.683S:535961.489T:36962.447Z2:Return:IfEndIfC36962.447AndC37094.871:Then420254.683F:535961.489G:36962.447H:2103953K:50L:32.424Z1:467.111M:10636R:420147.387S:535884.333T:37094.871Z2:Return:IfEndIfC37094.871AndC37529.613:Then420064.093F:535812.499G:37204.862H:2204629K:105L:114.751Z1:402.085M:311850R:419887.88S:535546.958T:37529.613Z2:Return:IfEndIfC37529.613AndC38108.237:Then419887.88F:535546.958G:37529.613H:252519K:190L:198.624Z1:454.177M:-49134R:419515.328S:535139.31T:38108.237Z2:Return:IfEndIfC38108.237AndC39158.64:Then418902.311F:534878.309G:38774.503H:203345K:125L:134.136Z1:300M:-492929R:418536.142S:534889.069T:39158.64Z2:Return:IfEndZ0(豎曲線數(shù)據(jù))IfC30950.956豎曲線起點(diǎn)樁號(hào)AndC31101.514豎曲線后直線段終點(diǎn)樁號(hào):Then31000變坡點(diǎn)樁號(hào)F:42.27變坡點(diǎn)高程G:13.72m第一坡度i1H:-47.59m第二坡度i2K:49.044切線長(zhǎng)TM:-1.6kR:0.752外距ES:T:Z2:Return:IfEndIfC31101.514AndC31282.294:Then31164.924F:34.422G:-47.59mH:34.23mK:63.41M:1550R:1.297S:Return:IfEndIfC31282.294AndC31735.755:Then31360F:41.1G:34.23mH:-59.96mK:77.706M:-1650R:1.83S:Return:IfEndIfC31735.755AndC32265.278:Then31810F:14.12G:-59.96mH:1.92mK:74.245M:2.4kR:1.148S:Return:IfEndIfC32265.278AndC32270.001:Then Cls:Locate 4,2，“MATH ERRER” Return:IfEndIfC32270.001AndC32583.387:Then32270.00099F:14.992G:0H:1.92mK:0M:0R:0S:Return:IfEndIfC32583.387AndC32759.696:Then32645F:15.71G:1.92mH:13.88mK:61.613M:10.3kR:0.184S:Return:IfEndIfC32759.696AndC32937.415:Then32810F:18G:13.88mH:48.57mK:50.304M:2.9kR:0.436S:Return:IfEndIfC32937.415AndC33349.745:Then33020F:28.2G:48.57mH:-23.87mK:82.585M:-2.28kR:1.496S:Return:IfEndIfC33349.745AndC33526.412:Then33410F:18.89G:-23.87mH:-12.06mK:60.255M:10.2kR:0.178S:Return:IfEndIfC33693.617AndC34081.183:Then33693.61699F:16.199G:0H:-5.32mK:0M:0R:0S:Return:IfEndIfC33526.412AndC33694.125:Then33585F:16.78G:-12.06mH:-5.32mK:58.588M:17.4kR:0.099S:Return:IfEndIfC34081.183AndC34495.227:Then34165F:13.69G:-5.32mH:4.04mK:83.817M:17.9kR:0.196S:Return:IfEndIfC34495.227AndC34688.017:Then34560F:15.288G:4.04mH:17mK:64.773M:10kR:0.21S:Return:IfEndIfC34688.017AndC34936.828:Then34750F:18.518G:17mH:-13.99mK:61.983M:-4kR:0.48S:Return:IfEndIfC34936.828AndC35202.491:Then35045F:14.39G:-13.99mH:5.67mK:108.172M:11kR:0.532S:Return:IfEndIfC35202.491AndC35444.29:Then35260F:15.61G:5.67mH:-7.86mK:57.509M:-8.5kR:0.195S:Return:IfEndIfC35444.29AndC36156.901:Then35540F:13.41G:-7.86mH:3.47mK:95.71M:16.9kR:0.271S:Return:IfEndIfC36159.206AndC36188.028:Then36159.20599F:15.55G:0H:3.47mK:0M:0R:0S:Return:IfEndIfC36188.028AndC36675.254:Then36260F:15.9G:3.47mH:-3.29mK:71.972M:-21.3kR:0.122S:Return:IfEndIfC36675.254AndC37676.39:Then36780F:14.19G:-3.29mH:1.27mK:104.746M:46kR:0.119S:Return:IfEndIfC37676.39AndC38328.938:Then37815F:15.5G:1.27mH:9.98mK:138.61M:31.8kR:0.302S:Return:IfEndIfC38328.938AndC38563.939:Then38415F:21.49G:9.98mH:-30.05mK:86.062M:-4.3kR:0.861S:Return:IfEndIfC38563.939AndC38866.358:Then38635F:14.88G:-30.05mH:5.48mK:71.061M:4kR:0.631S:Return:IfEndIfC38866.358AndC39303.58:Then38965F:16.69G:5.48mH:-4mK:98.642M:-20.8kR:0.234S:Return:IfEndZ1(直線段計(jì)算子程序)F+Rec(Abs(C-H)，Z4)X:G+JY:ReturnZ2(圓曲線段計(jì)算子程序)180Abs(C-H-L)(M)N:90L(M)Z3:L2(24M):L2-L3(240M2)P:Msin(N+Z3)+PX:M(1-cos(N+Z3)+Y:F+Rec(，Abs(Z4+tan-1(YX)X:G+JY:ReturnZ3(緩和曲線段計(jì)算子程序)Abs(C-H)N:N-N5(40M2L2)P:N3(6ML)-N7(336M3L3)Q:tan-1(QP):F+Rec(，Abs(Z4+)X:G+JY:ReturnZ4(計(jì)算結(jié)果顯示子程序)Pol(X-Abs(A),Y-B):If J0:Then J+360J:IfEnd:Int(J)U:60Frac(J)V:6mFrac(V)W:U+10mInt(V)+WJ:Cls:Locate 1,1，“X=”:Locate 1,3，“D=”:Fix4:Locate 1,4,“F=”:Locate 7,4,J:Fix3:Locate 7,3,I:Locate 7,1,X:Locate 1,2,“Y=”:Locate 7,2,YCls:Fix3:ReturnZ5(判斷子程序)If CH:Then K+180Z4:Prog“Z1”:KZ4:Return:IfEndIf CH And CZ2-L-Z1:Then KAbs(R)RZ4:Prog“Z3”:Abs(Z4+90N2(ML)Z4:Return:IfEndIf CH+L And CZ2-L:Then KAbs(R)RZ4:Prog“Z2”:Abs(Z4+N+Z3)Z4:Return:I