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

1、(1)20104302010第二套第二套大歪哥大歪哥9860GSD9860GSD路橋放樣與檢測程序路橋放樣與檢測程序（適合監(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功能子程序功能子程序計算下一點坐標(biāo)射線計算如果V=1把終點作為起算點(導(dǎo)線)輸線路號無數(shù)據(jù)時退出輸入線路號如有數(shù)據(jù)線

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