公路測量計算程序fx-5800P操作手冊(無圖片版).doc

fx-5800P矩陣編程計算器公路測量計算程序操作手冊感謝您fx-5800P矩陣編程計算器公路測量計算程序！本次 fx-5800P 程序提供公路路線計算、高程計算、測量放樣計算、交會計算等計算程序。本程序特色為公路測量的全部數(shù)據(jù)（包括路線平面曲線，豎曲線，橫坡度，路基寬度，路面結(jié)構(gòu)層，水準點，導(dǎo)線點數(shù)據(jù)）儲存在一臺計算器上，緊密結(jié)合計算，實現(xiàn)外業(yè)或計算過程只要計算器一臺，無需設(shè)計圖紙。愿它給您的工程測量工作帶來更大的方便，有誤或有改進的地方敬請向聯(lián)系作者指出以便完善改進。本程序只能在 fx-5800P 中運行，不能在 fx-4500PA、fx-4800P 及 fx-4850P 中運行！ 主程序名都是以字符、“11”“23”開頭命名的，其余字符開頭的程序均為子序（見下表表備注欄），用戶只能運行“11”“92”主程序，不能直接運行子程序。一、程序名及其功能列于表：序號程序名譯名功能說明備注第1套功能：多個曲線的平面位置數(shù)據(jù)（放樣）計算11FY放樣計算輸出路線放樣坐標及方位角、距離主程序12CZZB測站坐標輸入測站數(shù)據(jù)（XY），可輸入已儲存控制點編號主程序13ZW坐標計算計算輸出路線設(shè)計坐標主程序GS改線儲存改線數(shù)據(jù)子程序H緩（和曲線）內(nèi)部計算緩和曲線數(shù)據(jù)（不輸出）子程序DLP斷鏈元素儲存斷鏈處理數(shù)據(jù)，（長短鏈）有不同的處理方法子程序P子程序PP儲存平面曲線、加寬及超高數(shù)據(jù)子程序Q 、Q1、 Y 、Z子程序00自動檢查平面數(shù)據(jù)的準確性主程序第2套功能：單個曲線的平面位置數(shù)據(jù)（放樣）計算21XIN計算輸出路線放樣坐標及方位角、距離主程序22LAO輸入平面曲線數(shù)據(jù)主程序23DSCZZB導(dǎo)線測站坐標輸入導(dǎo)線點編號后設(shè)置測站坐標主程序0、1、10、2、3、4、5、6、8、9子程序第3套31SZ水準水準測量計算主程序第4套41CBJHF測邊交會法測邊交會法計算主程序第5套51XY-DJ坐標正算已知坐標計算方位角及距離主程序52DJ- XY坐標反算已知方位角及距離計算坐標主程序第6套61DSFWJ導(dǎo)線方位角導(dǎo)線方位角計算主程序62DS導(dǎo)線儲存輸出導(dǎo)線坐標（被61DSFWJ調(diào)用）主程序第7套71SZDBG水準點標高儲存輸出水準點標高主程序第8套81CJBG設(shè)計標高計算輸出設(shè)計標高路基路面各層次各特征點（主程序）82ZZBG中樁標高計算輸出中樁設(shè)計標高路基路面各層次（主程序）83DSQSBG單豎曲線標高計算輸出單豎曲線標高單豎曲線（主程序）ZP縱坡儲存豎曲線數(shù)據(jù)子程序第9套91HPD橫坡度計算輸出橫坡度調(diào)用第1套PP主程序92LJKD路基寬度計算輸出路基寬度調(diào)用第1套PP主程序二、各程序代碼：1、程序11FY，計算輸出路線放樣坐標及方位角、距離。XZ 顯示XZ （提示為測站X坐標）Locate 8,2,Z1 顯示Z1值（測站X坐標） :YZ:W 換行后顯示W(wǎng)值（測站Y坐標）Lbl 0 Prog 13ZW 調(diào)用13ZW Pol(X-Z1,Y-W)If J0:then J+360J:IfEnd 變量J的值在0360度之間Prog9 變量J的轉(zhuǎn)換成度分秒Locate 9,3, J 在9列3行顯示J的值Fix 3Locate 1,1, X 顯示計算結(jié)果Locate 1,2, YLocate 1,3, J 角度（度分秒）Locate 1,4, D(m)Locate 8,4, I 程序暫停，等待用戶輸入EXE后繼續(xù)ClsProgDLPGoto 0 2、程序12CZZB，輸入測站數(shù)據(jù)（XY），可輸入已儲存控制點編號XZ？W 提示XZ，輸入測站X坐標If W2000:Then Prog 62DS:Else WZ1 2000表示編號少于2000，如大于2000則認為是X坐標值YZ？WX:Z1 Y:W IfEnd 3、程序13ZW，輸入樁號，計算設(shè)計坐標10DimZ 增加10個擴展變量LZ10 Z10為中間變量，以實現(xiàn)樁號自動遞增或遞減Prog PJJ?M 提示JJ，輸入與路線前進方向的右交角DR+L-?N 提示DR+L-，輸入與中樁的距離，右正左負F+MF 計算出中點至所要計算點的方位角Fix 3：X+Ncos(F) XClsLocate 8,1,X 輸出X坐標Y+Nsin(F) YLocate 8,2,Y 輸出Y坐標 4、程序HB-B(5)(40A(4)+B(9)3456A(8) CB(3)(6A2)-B(7)336A(6)+B(10)42240A(10) DB22A2180E 5、程序GS注：本程序可設(shè)定改線范圍后，參照程序PP儲存數(shù)據(jù)。（無改線可為空） 6、程序DLP注：本程序可按設(shè)計分析斷鏈位置后處理，方法不定，如長鏈可增一段一條線，短鏈可鎖定樁號不予計算處理。（無斷鏈可為空） 7、程序 PProg PP 運行主元素程序Prog GS 運行改線元素程序Prog QIf J0:Then J+360J:IfEndIf J360:Then J-360J:IfEnd 以上二條命令設(shè)置方位角J在0360度范圍內(nèi) 8、程序 PPLbl 09*109O 9*109的值為無限大，O的值為無限大OQ Q的值為無限大0Z2 超高變量置00Z3 加寬變量置0 70H 緩和曲線長為70，輸入大多數(shù)的長度，與此數(shù)（70）不同的在下面程序中加入，一樣的無需再輸入，以節(jié)約空間、減少運行步數(shù)。L0L+20？L 提示L0L+20，輸入樁號，輸入少于等于0則樁號自動遞增20計算If L0:Then Z10+20L:IfEnd 本句中的20為自動遞增的數(shù)值，不同數(shù)值可在此改LZ10If L4000:Then Prog CYDD:Goto 8:IfEnd 設(shè)定一定的樁號范圍運行一定的子程序，本例中樁號630700 Or L624000:Then “624000-630700”:Goto 0:IfEnd 設(shè)定樁號范圍為624000-630700，執(zhí)行以下數(shù)據(jù)語句。超出即返回Lbl 0重新輸入，注意以上兩句的前后順序，否則無法執(zhí)行，一般樁號從小到大。624234.84V 緩直點樁號(多條曲線重復(fù)語句起點)If L0:Then 1G:Else -1G:IfEnd 判斷曲線的轉(zhuǎn)角是左轉(zhuǎn)或右轉(zhuǎn)If LU:Then U-l+SI180CProg ZElse if L0:Then (HOP(O -P)AA2OBProg HCQDTEKIf L0:Then TI:OC:F-180FProg ZF-180F(KPQ(Q-P)AA2QBProg HCODSEHV-L+ A2QBProg HPol(C-O,D-S)H-JCProg ZF-G(E-H)+180FIfEnd: IfEnd: IfEnd 9、程序Q1Prog HPol(C-Q,D-T)J-KCProg ZF+G(E-K) F 10、程序Y90CPIProg Z(L-U-H)P180CF+90G-180FPIProg ZF-90G+180+GCF 11、程序ZX+Icos(F+GC) XY+Isin(F+GC) Y 12、程序00(自動檢查平面數(shù)據(jù)的準確性)0WLbl 0Prog PPXZ5YZ6VZ7TZ8F+JZ9While Z5=XL+100L 步長100米檢查是否同一曲線，可改，步長越少運行速度越慢Prog PPWhileEndU-Z7+Z8+SDX-(Z5+Dcos(Z9) PY-(Z6+Dsin(Z9) QIf Pol(P,Q)0.01:Then 1+WWDL:C+D-WPol(X-Z5,Y-Z6)-DVIfEndGoto 0注：用主點樁號、切線長度、方位角、交點坐標、轉(zhuǎn)角核對曲線元素的準確性，半徑及緩和曲線長度無法核對。如以上核對有誤則輸入元素有誤或存在斷鏈，自動顯示長短鏈長度。 13、程序21XINXT?V 輸入上一交點X坐標VL YT?W 輸入上一交點Y坐標WEXJ?M 輸入本交點X坐標MXYJ?N 輸入本交點Y坐標NYProg 0JHProg 4Prog 6Lbl 1L?KProg 8Prog 0XYProg 4Goto 1 14、程序22LAO10DimZJD?G 交點JD點樁號Z2 FZ+R-?F 轉(zhuǎn)角值左正右負FZ2-FFAbs(F2) Z1?R:LS?D 緩和曲線長度（本程序只能計算緩和曲線長度相同的曲線，否則要換算）DD24RP:D2-PD10RQT:Q+Tan(Z1)(R+PTL:RZ190+DLE(R+P)cos(Z10-REZH:G-TS 顯示曲線的其它元素：T切線長，L曲線長，E外距，ZHHZ為HY:S+DC 主點樁號QZ:S+L2UYH:S-D+LSHZ:G-T+LS 15、程序23DSCZZBProg 62DSZ1 AWB 16、程序0tan-1(Y-E)(X-L) JIf LX:Then J+180J:IfEnd(Y-E)2+(X-L)2) O 17、程序12U-G+T-KIIf KU:Then K-G+TI: IfEndIf I0:Then IX:0Y:0JElse 180(I-D2)RZRsin(Z)+QXR-Rcos(Z)+PY90DR180(I-D)RJIf I0:Then -OO: IfEndIf KF-UFU:Then -YY:H-F+180ZIfEnd 21、程序4If J0:Then J+360J: IfEndJDMSFix 3O 22、程序5XIM-Ysin(Z)+cos(Z)(I-T) XN+Ycos(Z)+sin(Z)(I-T) Y 23、程序6LCZ(9XY)?KProg 2XLYE 24、程序8If K0:Then ?X:?YElse Prog 1Prog 10Prog 3Prog 5IfEnd 25、程序9Fix 4If J0:Then 1V: Else -1V:IfEndPol(A-X,B-Y)(I2+H2-K2)(2IH)Qcos-1(Q) CJ+CVDXP=X+Hcos(D) E 顯示計算點的X坐標YP=Y+hsin(D) F 顯示計算點的Y坐標Pol(X-E,Y-F)A D=:I 顯示計算點至A點的距離If J0:Then J+360J: IfEndA J=:JDMS 顯示計算點至A點的方位角Pol(A-E,B-F)B D=:I 顯示計算點至B點的距離If J0?ZIf Z0:Then EZ1:FW: ALEADYCZZB 提示是否把計算結(jié)果作為測站坐標進行Else UNFINISHEDCZZB 計算。輸入大于0則置為測站坐標IfEnd 第5套28、程序51XY-DJ?E 輸入第一點X值?F 輸入第二點X值Lbl 0?X 輸入第二點Y值?Y 輸入第一點Y值Pol(X-E,Y-F):I 顯示水平距離If J0:Then J+360J: IfEndJDMS 以度分秒格式顯示方位角Goto 0 29、程序52DJ-XYFix 3?E 輸入第一點X值?F 輸入第二點X值Lbl 1D?I 輸入水平距離?J 輸入方位角Icos(J)+EX 顯示X坐標Isin(J)+FY 顯示Y坐標Goto 1 第6套30、程序61DSFWJ2?W 輸入第二點（后視）的導(dǎo)線點編號Prog 62DSZ1 XWY1？W 輸入第一點（測站）的導(dǎo)線點編號，運算后自動置為測站坐標Prog 62DSZ1 EWFProg 51XY-DJ 31、程序61DS?W 輸入導(dǎo)線點編號If W=22 :Then25735.616Z126042.453WIfEnd(重復(fù)以上If IfEnd語句重復(fù)輸入導(dǎo)線點編號及坐標，編號不能相同，否則以最后的作結(jié)果)If W2R+L-?V （-2左路肩-1左路面0中1右路面2右路肩）VZ5If Z50:Then Prog 91HPD (Z50則計算的不是中樁)Prog 92LJKD:IfEndIf Z90.75 And Z5=2:Then 1Z5: IfEnd Z9為至邊點（如6米）的距離，路面If Z90.75 And Z5=-2:Then -1Z5: IfEnd 5.25寬,至邊點0.75米If Z5= -2:Then Z4+(Z-0.75)M0.01-0.022H: IfEndIf Z5= -1:Then Z4+(Z-Z9)M0.01H: IfEndIf Z5= 1:Then Z4+(R-Z9)N0.01H: IfEndIf Z5=2:Then Z4+(R-0.75)N0.01-0.022H: IfEndIf Z50 And Z51 And Z52:Then Z4+0.01NZ5 H: IfEndIf Z50 And Z5-1 And Z5-2:Then Z4+0.01MZ5 H: IfEndH(注：本例中的路肩寬度為0.75,坡度均為-3%，0.75*-3%= -.022) 34、程序82ZZBG3OLbl 5？LIf L625050 Or L626640 :Then ERR :Goto 5: IfEnd （625050625120和626640626800兩段范圍不能計算）Prog ZPT22RET-G+LXIf XT:Then T-L+GX: IfEndX22RYIf IJ :Then -YY: IfEndIf LG+T :Then 0Y: IfEndIf LT :Then T-L+GX: IfEndX22RYIf IJ :Then -YY: IfEndIf LG+T :Then 0Y: IfEndIf LG :Then F-0.01I(T-X)+YHElse F+0.01J(T-X)+YH: IfEndFix 3:H 以三位小數(shù)顯示標高Goto 0 36、程序ZPIf L624240 :Then 第一豎曲線能計算的范圍624100G: 變坡點樁號358.96F: 變坡點設(shè)計標高150000R: 半徑140T: 切線長3.187I 輸入變坡點前坡度（%）3J 輸入變坡點后坡度（%）Else重復(fù)If L 至 上一句Else 段的語句重復(fù)輸入多條曲線數(shù)據(jù)，樁號從小到大。如嵌套層數(shù)超出計算器允許范圍，則新建子程序或新增另嵌套層后或在子程序中再輸入。IfEnd 。IfEnd (以上輸入多個條豎曲線元素則輸入條數(shù)-1個IfEnd) 第9套37、程序91HPDProg PP