大歪哥 9860g sd 路橋放樣與檢測(cè)程序（

1、(1)20104302010第二套第二套大歪哥大歪哥9860GSD9860GSD路橋放樣與檢測(cè)程序路橋放樣與檢測(cè)程序（適合監(jiān)理檢查適合監(jiān)理檢查）程序程序清單清單與步驟說明與步驟說明ZDo:Deg:ClrText“F1Fangyang”“F2Jiance”“F3suidao”‘FN:6→V:3→I:Prog“GN”‘XL:3→V:Prog“GN”Prog“FN”:ClrText“Cont”:1→W:Prog“SC”LpWhileF=1ZZ

2、List7[1]→I:List8[I]→I:1→VDo:I1→I:List9[I1]→QLpWhileKQList12[I1]List10[I]→M:List11[I]→NList16[I]→S:List17[I]→RList9[I]→Q:List12[I]→J6→W‘QH:QJ→Q:Prog“SC”:Prog“GN”KQ→J:1E20→B:List13[I]→OO1List17[I1]→BAbsO→O:(1RB)2O→CZX:IfJL

3、ist17[I1]→RAbsO→O:(1RB)2O→C7→W‘HQ:IfJStopDo:ClrText:“”:→I:IntAbsI1→ILpWhileIQ:I→List7[I]Return:IfEndIfV=4V=5:ThenList7[1]→IList6[I]→Q:List7[I]→M:IfV=5:ThenClrText“XL”:“QDK”:“ZDK”:Locate41I1Locate42Q:Locate43M:“K”→K:IfEnd

4、IfKM:Then0→I:“Kover”▲ElseList8[I]→I:IfEnd:Return:IfEndIfV=6:ThenDo:Do:8.9GetKey10→FLpWhileFracF≠0:LpWhileFI:Return:IfEndIfV=7:ThenDo:Prog“ZZ”:Prog“GN”Pol(XMYN):ListAns[1]→MRec(MListAns[2]S:ListAns[2]→JPlistAns[1](PJ)→Q:K

5、Q→K4→V:Prog“GN”:I=0=ReturnLpWhileAbsQ1milli:Return:IfEndIfV=8=:ThenList9[A]→θIfθQP:KQ→Q:List20[I]OQ→θQP→Q:Q0=θQ22N→θ:Return:IfEndIfV=9:ThenIfrN:IfEndElseDo:List22[I]→P:List24[I]→Q:I1→IList22[I]→N:List24[I]→O:LpWhileKN:If

6、End(KP)(NP)→P:3P^(2^S)2P^(3^S)→PQP(OQ)→I:Return:IfEndIfV=0:ThenD→I:Do:List25[I]→P:List26[I]→QI1→I:List25[I]→N:List26[I]→OLpWhileRO(RP)(NP)→P:QP(OQ)→Q:Return:IfEnd功能子程序功能子程序計(jì)算下一點(diǎn)坐標(biāo)射線計(jì)算如果V=1把終點(diǎn)作為起算點(diǎn)(導(dǎo)線)輸線路號(hào)無數(shù)據(jù)時(shí)退出輸入線路號(hào)如有數(shù)據(jù)線

7、路所在行號(hào)保存到List7[1]檢查里程取得起點(diǎn)里程終點(diǎn)里程線路起終點(diǎn)里程顯示已知數(shù)據(jù)提示輸入里程如果里程不在范圍則“K超范圍”否則輸出平曲線數(shù)據(jù)所在行號(hào)識(shí)別按鍵F1~FI只對(duì)F1~FI有效反算先算出中樁坐標(biāo)求出測(cè)點(diǎn)到中樁距離求出到切線垂直距離計(jì)算切線方向改正量檢驗(yàn)里程是否超限切線改正量小于1mm則結(jié)束計(jì)算中樁高程如果上次高程為手輸則詢問是保留F1是F2否F1用原數(shù)據(jù)F2重輸入手工輸入中樁高自動(dòng)計(jì)算中樁高讀出后坡半徑變坡里程前坡求坡差求