公路测量计算程序fx-5800P操作手册(无图片版).doc

fx-5800P矩阵编程计算器公路测量计算程序操作手册感谢您fx-5800P矩阵编程计算器公路测量计算程序！本次 fx-5800P 程序提供公路路线计算、高程计算、测量放样计算、交会计算等计算程序。本程序特色为公路测量的全部数据（包括路线平面曲线，竖曲线，横坡度，路基宽度，路面结构层，水准点，导线点数据）储存在一台计算器上，紧密结合计算，实现外业或计算过程只要计算器一台，无需设计图纸。愿它给您的工程测量工作带来更大的方便，有误或有改进的地方敬请向联系作者指出以便完善改进。本程序只能在 fx-5800P 中运行，不能在 fx-4500PA、fx-4800P 及 fx-4850P 中运行！ 主程序名都是以字符、“11”“23”开头命名的，其余字符开头的程序均为子序（见下表表备注栏），用户只能运行“11”“92”主程序，不能直接运行子程序。一、程序名及其功能列于表：序号程序名译名功能说明备注第1套功能：多个曲线的平面位置数据（放样）计算11FY放样计算输出路线放样坐标及方位角、距离主程序12CZZB测站坐标输入测站数据（XY），可输入已储存控制点编号主程序13ZW坐标计算计算输出路线设计坐标主程序GS改线储存改线数据子程序H缓（和曲线）内部计算缓和曲线数据（不输出）子程序DLP断链元素储存断链处理数据，（长短链）有不同的处理方法子程序P子程序PP储存平面曲线、加宽及超高数据子程序Q 、Q1、 Y 、Z子程序00自动检查平面数据的准确性主程序第2套功能：单个曲线的平面位置数据（放样）计算21XIN计算输出路线放样坐标及方位角、距离主程序22LAO输入平面曲线数据主程序23DSCZZB导线测站坐标输入导线点编号后设置测站坐标主程序0、1、10、2、3、4、5、6、8、9子程序第3套31SZ水准水准测量计算主程序第4套41CBJHF测边交会法测边交会法计算主程序第5套51XY-DJ坐标正算已知坐标计算方位角及距离主程序52DJ- XY坐标反算已知方位角及距离计算坐标主程序第6套61DSFWJ导线方位角导线方位角计算主程序62DS导线储存输出导线坐标（被61DSFWJ调用）主程序第7套71SZDBG水准点标高储存输出水准点标高主程序第8套81CJBG设计标高计算输出设计标高路基路面各层次各特征点（主程序）82ZZBG中桩标高计算输出中桩设计标高路基路面各层次（主程序）83DSQSBG单竖曲线标高计算输出单竖曲线标高单竖曲线（主程序）ZP纵坡储存竖曲线数据子程序第9套91HPD横坡度计算输出横坡度调用第1套PP主程序92LJKD路基宽度计算输出路基宽度调用第1套PP主程序二、各程序代码：1、程序11FY，计算输出路线放样坐标及方位角、距离。XZ 显示XZ （提示为测站X坐标）Locate 8,2,Z1 显示Z1值（测站X坐标） :YZ:W 换行后显示W值（测站Y坐标）Lbl 0 Prog 13ZW 调用13ZW Pol(X-Z1,Y-W)If J0:then J+360J:IfEnd 变量J的值在0360度之间Prog9 变量J的转换成度分秒Locate 9,3, J 在9列3行显示J的值Fix 3Locate 1,1, X 显示计算结果Locate 1,2, YLocate 1,3, J 角度（度分秒）Locate 1,4, D(m)Locate 8,4, I 程序暂停，等待用户输入EXE后继续ClsProgDLPGoto 0 2、程序12CZZB，输入测站数据（XY），可输入已储存控制点编号XZ？W 提示XZ，输入测站X坐标If W2000:Then Prog 62DS:Else WZ1 2000表示编号少于2000，如大于2000则认为是X坐标值YZ？WX:Z1 Y:W IfEnd 3、程序13ZW，输入桩号，计算设计坐标10DimZ 增加10个扩展变量LZ10 Z10为中间变量，以实现桩号自动递增或递减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注：本程序可设定改线范围后，参照程序PP储存数据。（无改线可为空） 6、程序DLP注：本程序可按设计分析断链位置后处理，方法不定，如长链可增一段一条线，短链可锁定桩号不予计算处理。（无断链可为空） 7、程序 PProg PP 运行主元素程序Prog GS 运行改线元素程序Prog QIf J0:Then J+360J:IfEndIf J360:Then J-360J:IfEnd 以上二条命令设置方位角J在0360度范围内 8、程序 PPLbl 09*109O 9*109的值为无限大，O的值为无限大OQ Q的值为无限大0Z2 超高变量置00Z3 加宽变量置0 70H 缓和曲线长为70，输入大多数的长度，与此数（70）不同的在下面程序中加入，一样的无需再输入，以节约空间、减少运行步数。L0L+20？L 提示L0L+20，输入桩号，输入少于等于0则桩号自动递增20计算If L0:Then Z10+20L:IfEnd 本句中的20为自动递增的数值，不同数值可在此改LZ10If L4000:Then Prog CYDD:Goto 8:IfEnd 设定一定的桩号范围运行一定的子程序，本例中桩号630700 Or L624000:Then “624000-630700”:Goto 0:IfEnd 设定桩号范围为624000-630700，执行以下数据语句。超出即返回Lbl 0重新输入，注意以上两句的前后顺序，否则无法执行，一般桩号从小到大。624234.84V 缓直点桩号(多条曲线重复语句起点)If L0:Then 1G:Else -1G:IfEnd 判断曲线的转角是左转或右转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(自动检查平面数据的准确性)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注：用主点桩号、切线长度、方位角、交点坐标、转角核对曲线元素的准确性，半径及缓和曲线长度无法核对。如以上核对有误则输入元素有误或存在断链，自动显示长短链长度。 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 转角值左正右负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 提示是否把计算结果作为测站坐标进行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 输入第二点（后视）的导线点编号Prog 62DSZ1 XWY1？W 输入第一点（测站）的导线点编号，运算后自动置为测站坐标Prog 62DSZ1 EWFProg 51XY-DJ 31、程序61DS?W 输入导线点编号If W=22 :Then25735.616Z126042.453WIfEnd(重复以上If IfEnd语句重复输入导线点编号及坐标，编号不能相同，否则以最后的作结果)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 以三位小数显示标高Goto 0 36、程序ZPIf L624240 :Then 第一竖曲线能计算的范围624100G: 变坡点桩号358.96F: 变坡点设计标高150000R: 半径140T: 切线长3.187I 输入变坡点前坡度（%）3J 输入变坡点后坡度（%）Else重复If L 至 上一句Else 段的语句重复输入多条曲线数据，桩号从小到大。如嵌套层数超出计算器允许范围，则新建子程序或新增另嵌套层后或在子程序中再输入。IfEnd 。IfEnd (以上输入多个条竖曲线元素则输入条数-1个IfEnd) 第9套37、程序91HPDProg PP