【测量程序】FX5800计算器测量程序集
CASIO5800计算器测量计算程序
CASIO5800计算器测量计算程序
程序功能：温度单位转换和体积计算
--------------------------------------------------------------
1.温度单位转换：
a.华氏度转摄氏度：C=(F-32)*5/9
b.摄氏度转华氏度：F=C*9/5+32
2.体积计算：
a.圆柱体体积计算：V=π*r^2*h
b.球体体积计算：V=(4/3)*π*r^3
--------------------------------------------------------------
程序开始：
1.清零操作：
a.按下【AC】键，确保计算器归零。
2.温度单位转换：
a.输入待转换的温度值，例如华氏度的数值。
b.使用【-】键计算华氏度转摄氏度，或者使用【+】键计算摄氏度转华氏度。
c.输入转换得到的温度值。
3.体积计算：
a.选择需要计算的体形，例如圆柱体或球体。
b.输入相应的参数，例如半径和高度。
c.使用【×】键计算圆柱体体积，或者使用【÷】键计算球体体积。
d.输入计算得到的体积值。
--------------------------------------------------------------
程序结束。
这只是一个简单的示例程序，CASIO5800计算器具有更多的功能和测量计算程序。
用户可以根据需要自行设计和编写更复杂的程序。
卡西欧5800计算器测量程序-txt
卡西欧fx-5800p计算器测量程序
卡西欧fx-5800p计算器测量程序（作者：水江华）1.坐标反算程序"ZBFS QH1-4"◢Deg：Fix 3←┘"X+YiS(m）="?A←┘Lb1 0:"X+YiE(m)，0=>END="?B←┘Abs（B）=0=>Goto E←┘Arg（B-A)→JJ<0=>J+360→J"DIST(m）="：Abs（B-A)◢"α（DMS)=":J▶DMS◢Goto 0←┘Lb1 E:"ZBFS QH1-4=>END"2.坐标正算程序"ZBZS QH1-3"◢Deg：Fix 3←┘"XS(m)= "？A:"YS(m)= "？B←┘Lb1 1:"DIST(m)= "？L←┘If L≤0:Then Goto 2:IfEnd←┘"α（Deg)="？R←┘A+Lcos（R）→C←┘B+Lsin（R）→D←┘Fix 3："XE(m)= ":C◢"YE(m)= ":D◢Goto 1←┘Lb1 2:"ZBZS QH1-3=>END"3.单一闭、附合导线近似平差程序"BFHDXPC QH1-8"◢Deg:Norm 1:FreqOn←┘n→N←┘If List Y[N]=0:Then N-1→DimZ:Goto 0←┘Else N→DimZ:Goto 1: IfEnd←┘Lb1 0: "CLOSE Or CONECT TRA VE"◢"ANGLE NUM=":N◢"SIDE NUM=":N-1◢"UNKNOWN P NUM=":N-2◢"CLOSE(0)，CONNECT(≠0)="?→Z←┘Fix 3："XA(m)，≤0=>αA→B(Deg)="？A←┘If A>0：Then "YA(m)= "？B：Else "αA→B(Deg)="？R：IfEnd←┘"XB(m)= "？C:"YB(m)= "？D←┘C+Di→U：U→V←┘If A>0：Then Pol（C-A，D-B）：Cls←┘J<0=>J+360→J：J→R←┘"DIST A→B(m)="：I◢"αA→B(DMS)="：R▶DMS◢IfEnd←┘If Z≠0：Then "XC(m)= "？E:"YC(m)= "？F←┘E+Fi→V←┘"XD(m)，≤0=>αC→D(Deg)="？G←┘If G>0：Then "YD(m)= "？H←┘Pol（G-E，H-F）：Cls←┘J<0=>J+360→J：J→S←┘"DIST C→D(m)="：I◢"αC→D(DMS)="：S▶DMS◢Else "αC→D(Deg)="？S：IfEnd←┘Else If R>180：Then R-180→S：Else R+180→S：IfEnd←┘IfEnd←┘∑y→M←┘For 1→I To N←┘If I=1：Then R+List X[I]→L：Else L+List X[I]→L：IfEnd←┘If L>180：Then L-180→L：Else L+180→L：IfEnd←┘Nent←┘3600(L-S)→T←┘"α CLOSE ERROR(S)="：T◢40→W←┘Abs(T)>W=>"α CLOSE ERROR OVRE!"←┘-T÷N÷3600→P：0→O←┘For 1→I To N←┘If I=1：Then R+List X[I]+P→L←┘Else L+List X[I] +P→L：IfEnd←┘If L>180：Then L-180→L：Else L+180→L：IfEnd←┘If I<N：Then List Y[I]<L→Z[I] ：Z[I]+O→O：IfEnd←┘Nent←┘3600(L-S)→T←┘"CHECK α CLOSE ERROR(S)="：T◢U+O-V→O←┘Int(M÷Abs(O))→K←┘"DELTA X(m)= "：ReP(O)◢"DELTA Y(m)= "：ImP(O)◢"RELAT CLOSE ERROR=1÷"：K◢K<4000=>"RELAT CLOSE ERROR OVER! "←┘For 1→I To N-1←┘Z[I]-OList Y[I]÷M→X←┘If I=1：Then U+X→Y：Else Y+X→Y：IfEnd←┘Norm 1："POINT n="：I◢Fix 3："X(m)= "：ReP(Y)◢"Y(m)= "：ImP(Y)◢Nent←┘Y-V→Q←┘"CHECK X (m)= "：ReP(Q)◢"CHECK Y (m)= "：ImP(Q)◢Goto E←┘Lb1 1："NO DIRECT TRA VE"◢"ANGLE NUM="：N-1◢"SIDE NUM="：N◢"UNKNOWN P NUM="：N-1◢"XA(m)= "？A:"YA(m)= "？B←┘"XB(m)= "？C:"YB(m)= "？D←┘A+Bi→U:C+Di→V←┘0→H:U+List Y[1]<H→Z[1]←┘For 1→I To N-1←┘H+List X[1]→H←┘If H>180：Then H-180→H：Else H+180→L：IfEnd←┘以下未完程序由读者完成。
fx5800测量程序
WDXCX （主程序名）"XJ="?G:"YJ="?H ：“1.SZ=>NE”:“2.NE=>SZ”:“1 or 2”?Q:↙Lbl 4: :＂DKI=＂?S:Prog“WDSJK”↙Lbl 0:Q=1 => Goto1:Q=2 => Goto2↙Lbl 1:＂Z=＂?Z:Prog“WDZS”↙Fix 4:Cls↙“X=”:Locate 3,1,N◢“Y=”:Locate 3,2,E◢“I=”:F→DMS◢ (注：→DMS为一个符号)P rog“WDJI”:Goto4↙Lbl 2: “N=”:?→B: “E=”: ? →C:B→N: C→E:Prog“WDFS”: “S=”:S◢“Z=”:Z◢Goto2↙主程序完，主程序经此改动后,即可加入测站点坐标进行距离与方位角的放样了;WDJI （注：方位角和距离放样子程序名,与主程序：“Prog“WDJI”:Goto4↙”对应）ClrStat↙Pol(N-G,E-H):Cls↙If J<0:ThenJ+360→Y:Else J→Y:IfEnd↙“FY J L=”:I◢“FY FWJ=”:Y→DMS◢ (注：→DMS为一个符号，方位角和距离放样子程序完)WDSJK 数据库子程序名Goto1↙同时保存多个曲线时的指针，通过更改序号（如：1改成2）变换曲线Lbl 1↙第一条曲线（如：左线数据库）IF S<***（线元终点里程）:Then***→A（线元起点方位角）:***→O（线元起点里程）:***→U（线元起点X）:***→V（线元起点Y）:***→P（线元起点曲率半径）:***→R （线元终点曲率半径）: ***→L（线元起点至终点长度）: Return:IfEnd↙IF S<***:Then***→A:***→O:***→U:***→V:***→P:***→R: ***→L: Return:IfEnd↙………………………..Lbl 2↙第二条曲线（如：右线数据库）IF S<***（线元终点里程）:Then***→A（线元起点方位角）:***→O（线元起点里程）:***→U（线元起点X）:***→V（线元起点Y）:***→P（线元起点曲率半径）:***→R （线元终点曲率半径）: ***→L（线元起点至终点长度）: Return:IfEnd↙IF S<***:Then***→A:***→O:***→U:***→V:***→P:***→R: ***→L: Return:IfEnd↙……………………….数据库子程序完。
【测量程序】FX5800计算器测量程序集
测量程序】FX5800 计算器测量程序集FX5800 计算器测量程序集2.0 版一、程序功能主要功能：计算多条线路坐标正反算，可算任意复杂线型及立交匝道，包括C型，S型、卵型、回头曲线等；极坐标放样，全线路基边坡开挖口及坡脚放样计算、路基任意点设计高程、横坡、设计半幅宽度.隧道欠超挖放样计算。
新版本特点：1、优化原所有主程序，所有参变量（如导线点置仪点坐标、正反算选择、偏角、线路选择等），全部在程序头次显示一次，以后运行不需输入。
运行中也可以返回再次选择线路、可以直接以矩阵形式调出线路参数。
2、坐标计算考虑了线元法与交点法相结合，即是一条线路也可以一段用线元法，一段用交点法。
参数置放矩阵中，输入和可读性极好。
3、新增隧道断面欠超挖值放样计算4、高程程序中考虑了初次输入线路选择、计算面与设计面高差，输出中加入显示本桩号路基标准宽度。
二、源程序1•主程序1: 一般放样正反算程序（①正算坐标、放样点至置仪点方位角及距离；②反算桩号及距中距离）程序名:1ZD-XY Lb1 Q: Norm 2:14 —DimZ : 1 —F: Prog” DX " :Lb1 X : Prog" QX" : 90—B:” PJ”？B: B—Z[1] : Lb1 0: Norm 2 : “KM”?Z：If Z=-1:Then Goto X:Else If Z=-2: Then 2 —F :Goto 0: Else If Z=-3: Then Goto 9:IfEnd: Prog ” KM ”：IfF=1:Then ?D:Else “X0”?X:“Y0”?Y: IfEnd: Prog ＂THB ＂:IfF=1: Then Goto 1: Else Goto 2 : Lb1 1: F ix 3:" X =" : Locate6,4, X^H Y = H: Locate 6,4, Y丄P rog" 6JS” :Goto 0:Lb1 2:Fix 3: H KM = H: Locate 6,4, Z^H D = H : Locate6,4, D丄G oto 0 : Lbl 9:Mat F AG oto Q 2 .主程序2:高程、横坡、宽度程序（计算设计任意点高程、横坡及路基设计标准宽度）程序名：2GC14 — DimZ : LbI 0:Norm 2: Prog " QX": 0—B:” H-B: ” ？B:B —Z[9]:Lbl H: Norm 2: “KM ” ?Z:Z=-1=> Goto 0:?D:Prog” H” :Fix 3:” H=” :Locate 6,4,HA“I=” : Locate 6,4,I A Prog" GD " : “ SJLG= ”： Locate 6,4丄A Goto H3 .主程序3:涵洞放样程序（输入置仪点坐标。
CASIO fx-5800计算器测量坐标程序
主程序坐标正反算程序名称：001XYLB1 A↙Cls : Fix 4 : 30→Dim Z :"v=1,v=0"?Z ↙If Z=1:Then Goto B:IfEnd↙(Z=1进入里程点坐标正算）If Z=0:Then Prog"FSLCBZ ": Goto A:IfEnd↙(Z=0进入反算里程边桩）Lb1 B ↙“K=”?K ：（计算里程）Prog"SJK1 ":Prog”ZBFY” :Goto A↙子程序数据库 SJK1IF K<本段曲线终点里程 AND K≥上段曲线终点里程：THEN 本段终点里程→Z[1] : 上段曲线终点里程→Z[2] ：1→O（注：左偏曲线输入-1→O,右偏曲线输入1→O）: 半径→R : 曲线偏角→A:第一缓和曲线→Z[6] : 第二缓和曲线→Z[7] : 交点X→B :交点Y→C : 小里程向交点方位角→E : 交点向大里程方位角→F : Prog”XLZBJSCX”:Return: IFEND↙IF…………Prog”XLZBJSCX”:Return:IFEND（曲线段分段输入）↙补充直线段输入如下(单独直线段）IF K<本段直线终点里程AND K≥本段直线起点里程:THEN 本段直线终点里程→Z[3]:终点X→Z[16]:终点Y→Z[17]:方位角→E: Z[16]+ (K- Z[3])*COS E→Z[18]:Z[17]+ (K- Z[3])*SIN E→Z[19] :E →T:Return:IFEND子程序坐标正算，名称：XLZBJSCXLB1 2 ↙（曲线要素计算）Z[6]/2- Z[6]^3/(240*R^2)+ Z[6]^5/(34560*R^4) →Z[8] ↙（M1）Z[7]/2- Z[7]^3/(240*R^2)+ Z[7]^5/(34560*R^4) →Z[9] ↙（M2）Z[6]^2/(24*R)- Z[6]^4/(2688*R^3) →Z[10] ↙（P1）Z[7]^2/(24*R)- Z[7]^4/(2688*R^3) →Z[11] ↙（P2）π*A*R/180+0.5*( Z[6]+ Z[7])→Z[25] ↙（曲线总长）90* Z[6]/(R*π) →Z[14] ↙（第一缓和曲线总偏角）90* Z[7]/(R*π) →Z[15] ↙（第二缓和曲线总偏角,可以省略）Z[8]＋（R+Z[10])TAN(A/2)-(Z[10]-Z[11] )/SIN A→Z[12]↙(切线T1)Z[9]＋（R+Z[11])TAN(A/2)+(Z[10]-Z[11] )/SIN A→Z[13]↙(切线T2)B+ Z[12]*COS (E+180)→ Z[16] ↙（ZH点X）C+ Z[12]*SIN(E+180)→ Z[17] ↙（ZH点Y）Z[1]- Z[25]→Z[3] ↙(ZH点里程)Z[3]+ Z[6]→Z[4] ↙(HY点里程)Z[1]- Z[7]→Z[5] ↙(YH点里程)GOTO 3 ↙LB1 3 ↙(判断里程点与曲线关系)IF K≤Z[3] AND K> Z[2] : THEN GOTO 4 : IFEND ↙IF K≤Z[4] AND K> Z[3] : THEN GOTO 5 : IFEND ↙IF K≤Z[5] AND K> Z[4] : THEN GOTO 6 : IFEND ↙IF K≤Z[1] AND K> Z[5] : THEN GOTO 7 : IFEND ↙LB1 4 ↙（里程小于直缓点直线独立坐标）K- Z[3] →Z[23] : 0→Z[24] : E→T : GOTO 8↙LB1 5 ↙（第一缓和曲线独立坐标）K- Z[3] →H ↙H-H^5/(40*R^2* Z[6]^2)+H^9/(3456*R^4* Z[6]^4) →Z[23]↙H^3/(6*R* Z[6])-H^7/(336*R^3* Z[6]^3) →Z[24] ↙90*H^2/( R*π* Z[6]) →T ↙IF O>0 ：THEN T +E→T : ELSE E-T →T : T<0=>360+T→T : IFEND ↙GOTO 8 ↙LB1 6 ↙（圆曲线独立坐标）K- Z[4] →H ↙H*180/( R*π)+ Z[14]→T ↙R*SIN T+ Z[8]→Z[23] ↙R*(1-COS T)+ Z[10]→Z[24] ↙IF O>0 ：THEN T +E→T : ELSE E-T →T : T<0=>360+T→T : IFEND ↙GOTO 8 ↙LB1 7 ↙（第二缓和曲线独立坐标）Z[1] -K →H ↙H-H^5/(40*R^2* Z[7]^2)+H^9/(3456*R^4* Z[7]^4) →U↙H^3/(6*R* Z[7])-H^7/(336*R^3* Z[7]^3) →V ↙90*H^2/( R*π* Z[7]) →T ↙Z[13]COS A+ Z[12]-U*COS A-V*S IN A→Z[23] ↙Z[13]*SIN A-U*SIN A+V*COS A→Z[24]↙IF O>0 ：THEN F-T→T : T<0=>360+T→T : ELSE F+T →T : IFEND ↙GOTO 8 ↙LLb1 8IF O<0 : THEN - Z[24]→Z[24] : IFEND ↙Z[16]+Z[23]*COS E-Z[24]*SIN E→Z[18] ↙Z[17]+Z[23]*SIN E+Z[24]*COS E→Z[19] ↙ReTurn↙子程序反算里程边桩，名称：FSLCBZLb1 1↙"POINT=X"?X:" POINT=Y"?Y↙（输入任意测点的XY坐标）:“K=”?K （试算里程，任意输入标段内里程点即可，也可以输入大致的估算里程加快速度）↙Lb1 2↙Prog"SJK1 ":T-90 →W:W<0=>360+W→W:Abs((Y-Z[19])*Cos W-(X-Z[18])*Sin W)→S↙If S<0.0001:Then Goto 4:Else Goto 3:Ifend↙Lb1 3↙K+S→K: Prog"SJK1":T-90 →W:W<0=>360+W→W:Abs((Y-Z[19])*Cos W-(X-Z[18])*Sin W)→Q↙If Q<0.0001 :Then Q→S: Goto 4:Else IF Q<S: THEN K+Q→K: Goto 2 :Else IF Q>S :THEN K-Q→K:Goto 2:Ifend:Ifend:Ifend↙Lb1 4↙Pol (X-Z[18],Y-Z[19]:"W(-Z,Y+)=":I◢(偏距）（由于该程序不能准确判断边桩左右方向，暂作修改，取消左右边判定）"K=":K+S→K◢（里程）Return↙子程序坐标放样：ZBFYLB1 0 ↙"P(N)="?M:"P(E)="?N ↙“a=”?P◢(输入边桩与线路夹角，左-右+)“W=”?D◢（输入边桩距）Z[18]+D*COS(T+P) →Z[20] ↙Z[19]+D*SIN(T+P) →Z[21] ↙“XP=”: Z[20] ◢（边桩X）“YP=”: Z[21] ◢（边桩Y）Pol(Z[20]-M,Z[21]-N):"HD=":I◢（边桩放样距）J<0=>J+360→J:"HAR=":J→DMS◢（边桩放样方位角）Return↙直线短链要将该直线分成二条直线来对待编制数据库文件即可，曲线长链要单独建判定语句子程序并然后编制二个数据库（按来向里程和去向里程分别推出曲线起终点里程，以此编制曲线段的数据库）。
Fx5800计算器公路测量程序设计
FX5800计算器测量程序集2.4 版一、程序功能主要功能：采用交点法方式计算多条线路坐标正反算，可算任意复杂线型及立交匝道，包括C型，S型、卵型、回头曲线等；极坐标放样，全线路基边坡开挖口及坡脚放样计算、路基任意点设计高程、横坡、设计半幅宽度.隧道欠超挖放样计算。
新版本优化：1、优化程序语句、2、以复数形式输入变量及做数据库，取消原矩阵数据库;3、修改隧道超欠挖程序为通用形，不受圆心个数限制、4、新增测量资料表计算二、源程序（绿色为程序名；蓝色为输入计算器内容）紫色为新版改动处（可以根据自己标段情况用相关主程序及子程序，再在0程序中汇总）0.汇总程序（1、坐标计算放样程序(1XY、A、AB、HX、JS、DX、QX、F、XY、X1)；2、坐标反算程序（2ZD、A、B、AB、HX、QX、F、ZD、X1)；3、高程计算查阅程序（3GC、H、I、QX、S1、I1）；4、路基半幅标准宽度查阅程序（4GD、C、QX、G1）；5、路基边坡及开挖口放样程序（5BP、A、B、AB、HX、H、I、C、JS、DX、QX、F、ZD、X1、S1、I1、G1、W1）；6、路基标准距离放样（6FM、A、AB、HX、H、I、JS、DX、QX、F、XY、X1、S1、I1)；7、桥梁锥坡计算放样程序（7ZP、A、AB、HX、C、JS、DX、QX、F、XY、X1、G1)；8、极坐标计算程序（8JS、JS、DS）；9、隧道超欠挖计算程序（A、B、AB、HX、H、I、QX、S、SD、F、ZD、X1、S1、I1、SD1）运行后按1~9数子约半秒，则选择1至9的程序，返回时，在桩号输入-1,返回选择计算类型。
输入-2,返回选择线路。
程序名：0（数子0）ClrMat:ClrVar:12→DimZ：Norm 2:Do:＂(XY=1，ZD=2 ，GC=3，GD=4，BP=5，FM=6，ZP=7，JS=8，SD=9)===>QING AN 1-9＂：Getkey→Z[3]:While Z[3]=35:Prog＂1XY＂:WhileEnd:While Z[3]=36:Prog＂2ZD＂：WhileEnd: While Z[3]=37:Prog＂3GC＂：WhileEnd: While Z[3]=21:Prog＂4GD＂：WhileEnd: While Z[3]=22:Prog＂5BP＂：WhileEnd: While Z[3]=23:Prog＂6FM＂：WhileEnd: While Z[3]=31:Prog＂7ZP＂：WhileEnd: While Z[3]=32:Prog＂8JS＂：WhileEnd: While Z[3]=33:Prog＂9SD＂：WhileEnd:LpWhile Z[3]≠25:”XIE XIE SHI YONG”:计算内程序排例：0、01（测量资料专用）、1SC（水准测量用）、1XY、2XY-S（由坐标计算面积）、2ZD、3GC、4GD、5BP、6FM、7ZP、8JS、9S D、A、AB、B、B6（测量表格检表6）、B7（检表7）、B8（检表8）、B 9（检表9）、C、DX、DX0、F、G1、H、HX、I、I1、JS、M（度分秒转十进制）、QX、S、S1、SD0、SD1、T、W1、X1、XY、XYH（五点通线元法计算坐标）、ZD程序内容无电子版。
casio-fx5800程序
卡西欧fx5800程序此程序只需输入桩号、中边夹角、中边距离、即可计算全线的中边桩坐标、高程。
（线形为对称形，非对称行因为没时间研究一直搁浅，其实只是加上Ls1、Ls2、T1、T2等要素，也可自行研究）1、主线坐标计算主程序A01ZB (子程序名B0ZB)8→DimZ （K待求点桩号）Lbl 9:Norm 1:”K”?K:Prog”B0ZB”:F-T→A:A+S→B:A+W→D: D-S→C If K<C:Then U→H:J→J:-1→O:Else V→H:-J→J:1→O:Ifend:N+OTcos(H)→Z[1]:E+OTsin(H)→Z[2]:Goto 0:Lbl 0 （K待求点桩号）K<A=>Goto 1:K<B=>Goto 2:K<C=>Goto 3:K<D=>Goto 4:K≥D=>Goto 5:Lbl 1:0→Z[3]:H+JZ[3]→Z[4]:(K-A)cos(H)→Z[7]:(K-A)sin(H)→Z[8]: Goto 6Lbl 2:30(K-A)^2/R/S/→Z[3]:H+3JZ[3]→Z[4](K-A)-(K-A)^(5)/90/R^2/S^2→ZZcos(H+JZ[3])→Z[7]:Zsin(H+JZ[3])→Z[8]:Goto 6Lbl 3:90S/R/+180(K-B)/R/→Z[3]:H+JZ[3]→Z[4]Rsin(Z[3])+S/2-S^(3)/240/R^2→IR(1-cos(Z[3]))+S^2/24/R→ZIcos(H)-JZsin(H)→Z[7]:Isin(H)+JZcos(H)→Z[8]:Goto 6Lbl 430(K-D)^(2)/R/S/→Z[3]:H+3JZ[3]→Z[4](D-K)-(D-K)^(5)/90/R^(2)/S^(2)→Z-Zcos(H+JZ[3])→Z[7]:-Zsin(H+JZ[3])→Z[8]:Goto 6Lbl 50→z[3]:H-JZ[3]→Z[4]:(K-D)cos(H)→Z[7]:(K-D)sin(H)→Z[8]:Goto 6 Lbl 6 边桩坐标Norm 1:”HR=”显示中线的方位角(度分秒)Fix 3:”X=”:Z[1]+Z[7]→“Y=”:Z[2]+Z[8]→Norm 1:”HJ”?Q:”DL”?P:Fix 3:”XL=”:X+Pcos(Z[4]-Q)→Z[5]“YL=”:Y+Psin(Z[4]-Q)→Z[6]Norm 1:”DR”?LFix 3:”XR=”:X+Lcos(Z[4]-Q+180)→”YR=”:Y+Lsin(Z[4]-Q+180)→Norm 1:”10x K(+,-)”?G:K+10G→K:Goto 9主程序完子程序(数据库，这是以哈大客运专线长春的一段为例，标段里程DK751000-DK775+036.5) B0ZBIf K≤754068.16:Then 750863.625→F:4912830.447→N:504790.687→E:-1→J:11000→R:370→S:911.477→T:1820.783→W:26°03′28.19″→U:18°30′4.05″→V:IfendIf K>754068.16:Then 755230.815→F:4916973.988→N:506177.187→E: 1→J:10000→R:430→S:1162.655→T:2319.528→W:18°30′4.05″→U:29°19′38.38″→V:IfendIf K>********:Then ********→F: ********→N: ********→E: ********→J: ********→R: ********→S: ********→T: ********→W:**°**′**″→U:**°**′**″→V:Ifend（If K>本交点的缓直点:Then 下一交点的桩号→F: 下一交点X坐标→N: 下一交点Y坐标→E: 转向→J: 半径→R: 缓和曲线全长→S: 切线→T: 曲线全长→W:前方位角→U:后方位角→V:Ifend）按此，全线要素可全部输入算例要素表与坐标表见附表0123456789 数字ABCDEFGHIJKLMNOPQRSTUVWXYZ 字母⊿转移结束符号DimZ、=>、→、DMS 、Lbl、If、Then、Else、Ifend、Goto、Norm、Fix均为一个整体2、高程主程序A02GC (子程序名B0GC 竖曲线要素，HP1、HP2横坡数据，V=-1为左半幅横坡，其他为右半幅)2→DimZLbl 0:?K:Prog”B0GC”:.005RAbs(I-L)→T:Z-T→A:Z+T→B:K-A→C:B-K →D:K-Z→EIf L>I:Then 1→J:Else L<I=>-1→J:IfendIf K<A:Then 0→C:Else K>B=>0→D:IfendIf K≦Z:Then I→Y:C→G:Else K>Z=>L→Y:D→G:IfendLbl 1:Fix 3:”H”:H+EY/100+JG^2/2/R→XNorm 1:”HD”?U:”Z=-1,Y=1”?V:If V<0:Then Goto 2:Else Goto 3:IfendLbl 2:Prog“HP1”:”Hi”:OGoto 4Lbl 3:Prog”HP2”:”Hi”:OGoto 4Lbl 4:Norm 1:”D”?P:Fix 3:”H1”:X-U+.01OP→“10x K(+,-)”?W:K+10W→K:Goto 0主程序完子程序数据库B0GCIf K≦753225:Then 749700→Z:181.776→H:30000→R:0→I:0.3→L:IfendIf K>753225:Then 753300→Z:192.576→H:30000→R:0.3→I:0.8→L:IfendIf K>下一竖曲线的前变坡点的桩号:Then下一竖曲线交点里程→Z: 下一竖曲线交点高程→H: 下一竖曲线半径→R:前纵坡→I:后纵坡→L:Ifend可输入全线竖曲线要素子程序（横坡数据库）HP1If K≦753225:Then -2→O: IfendIf K>753225:Then -2+(-1/100)*(K-753225)→O: IfendIf K>753325:Then -3→O: IfendIf K>******:Then *****→O: IfendIf K>横坡变坡点桩号:Then 横坡或者公式→O: Ifend高程程序就不举例子了3、卵形曲线（辛普生法则，匝道及主线均可算）此程序为廊坊至涿州段高速路面标的算例。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
【测量程序】FX5800计算器测量程序集FX5800计算器测量程序集2.0 版一、程序功能主要功能：计算多条线路坐标正反算，可算任意复杂线型及立交匝道，包括C型，S型、卵型、回头曲线等；极坐标放样，全线路基边坡开挖口及坡脚放样计算、路基任意点设计高程、横坡、设计半幅宽度.隧道欠超挖放样计算。
新版本特点：1、优化原所有主程序，所有参变量（如导线点置仪点坐标、正反算选择、偏角、线路选择等），全部在程序头次显示一次，以后运行不需输入。
运行中也可以返回再次选择线路、可以直接以矩阵形式调出线路参数。
2、坐标计算考虑了线元法与交点法相结合，即是一条线路也可以一段用线元法，一段用交点法。
参数置放矩阵中，输入和可读性极好。
3、新增隧道断面欠超挖值放样计算4、高程程序中考虑了初次输入线路选择、计算面与设计面高差，输出中加入显示本桩号路基标准宽度。
二、源程序1.主程序1：一般放样正反算程序(①正算坐标、放样点至置仪点方位角及距离；②反算桩号及距中距离)程序名:1ZD-XY Lb1 Q: Norm 2:14→DimZ：1→F：Prog＂DX＂:Lb1 X：Prog＂QX＂：90→B：＂PJ＂？B：B→Z[1]：Lb1 0: Norm 2 ：“KM”?Z：If Z=-1:Then Goto X:Else If Z=-2: Then 2→F :Goto 0: Else If Z=-3: Then Goto 9:IfEnd: Prog＂KM＂：IfF=1:Then ?D:Else “X0”?X:“Y0”?Y: IfEnd: Prog＂THB＂:If F=1: Then Goto 1: Else Goto 2：Lb1 1:Ｆix 3:＂Ｘ=＂：Locate 6,4,Ｘ◢＂Ｙ＝＂：Locate 6,4,Ｙ◢Ｐrog＂6JS”:Goto 0:Lb1 2:Fix 3:＂ＫＭ＝＂：Locate 6,4,Ｚ◢＂Ｄ＝＂：Locate 6,4,Ｄ◢Ｇoto 0：Lbl 9:Mat F◢Ｇoto Q２．主程序２：高程、横坡、宽度程序(计算设计任意点高程、横坡及路基设计标准宽度)程序名：2GC14→DimZ：LbI 0:Norm 2: Prog＂QX＂：0→B:”H-B:”?B:B→Z[9]:LbI H: Norm 2: “KM”?Z:Z=-1=> Goto 0:?D:Prog”H”:Fix 3:”H=”:Locate 6,4,H◢“I=”: Locate 6,4,I◢Prog＂GD＂：“SJLG=”: Locate 6,4,L◢Goto H3．主程序3：涵洞放样程序（输入置仪点坐标。
选择线路、输入路线右夹角、前进方向偏角、由涵中心桩号计算出各涵角坐标、计算放样点至置仪点方位角及距离)程序名：3JH-XY14→DimZ：Prog＂DX＂:LbI X:Norm 2: Prog＂QX＂：90→B：＂PJ1＂？B：B→C: ＂PJ2＂？C: B→Z[1]：C→Z[8]：LbI0:Norm 2:1→F: “KM”?Z：If Z=-1:Then Goto X: ?D:Prog”THB”:0→L:“L0”?L:Z[2]+Z[1]-Z[8] →E:X+Lcos(E) →X:Y+Lsin(E) →Y:Fix 3:＂Ｘ=＂：Locate 6,4,Ｘ◢＂Ｙ＝＂：Locate 6,4,Ｙ◢Ｐrog＂6JS”:Goto 0:4．主程序4:路基开挖边线及填方坡脚线放样程序（输入填方放宽值、大概桩号及测量坐标、地面标高计算出偏移距离、桩号、距中距离、填挖高度）程序名：4FBX17→DimZ：LbI B:Norm 2: Prog＂QX＂：0.5→B:“TH-GD”?B:B→Z[17]:LbI 0:Norm 2: 2→F:90→Z[1]: “KM”?Z：If Z=-1:Then Goto B: “X0”?X:“Y0”?Y: 0→M:“M0”?M:M→Z[4]:Prog”THB”:D→P:Prog”GD”:If DLbI H:Prog“H”:H-0.03-Z[4] →Z[4]: Prog “W1”:If Z[4]LbI W:Z[8]+Z[9] →A: If G>A:Then Goto 1:Else If G>Z[8]:Then Goto 2:Else Goto 3:IfEnd:LbI 1:L+Z[10]+Z[11]+Z[12]+(G-A)×Z[7]+Z[9]×Z[6]+Z[8]×Z[5] →S:Goto Z:LbI2:L+Z[10]+Z[11]+(G-Z[8])×Z[6]+Z[8]×Z[5] →S:Goto Z:LbI 3:L+Z[10]+G×Z[5] →S:Goto Z:LbI T:L+Z[17]→T:IfG>Z[15]:Then (T+Z[16]+(G-Z[15])×Z[14]+Z[15]×Z[13])→S:Goto Z:Else (T+G×Z[13])→S:Goto Z:LbI Z:Fix 2:Abs(P)-S →K:”L0=”: Locate 6,4,K◢Fix 3:＂ＫＭ＝＂：Locate 6,4,Ｚ◢＂Ｄ＝＂：Locate 6,4,P◢Z[4]>0=>Z[4]+I(T-L) →Z[4]:“TW=”: Locate 6,4,Z[4]◢Goto 05.主程序5.隧道超欠挖值计算放样程序（输入隧道线路，大概桩号、输入测量三维坐标，计算准确桩号及位置、计算欠超挖值）程序名：5SD15→DimZ：LbI B:Norm 2: Prog＂QX＂:LbI 0:Norm 2: 2→F:90→Z[1]: “KM”?Z：If Z=-1:Then Goto B: Prog“XD1”:”X0”?X:“Y0”?Y: 0→M:“M0”?M:M→Z[8]:Prog“THB”: D→Z[10]:0→D:Prog“H”:Cos(Z[10])*Z[4] →E: H+Z[5] →Z[5]: H+Z[7] →Z[7]: E+Z[5] →Z[10]:If Z[8]>Z[10]:Then Goto R:Else Goto S:IfEnd:LbI R: √((D-Z[9]) 2+(Z[8]-Z[5]) 2 )- Z[4] →L:Goto L:LbI S: Z[4]-Z[6] →S: √(S 2-(Z[7]-Z[5]) 2 ) →T:Abs(D-Z[9])-T→T:√(T 2+(Z[8]-Z[7]) 2 )- Z[6] →L:Goto L:LbI L: Fix 2:”L0=”: Locate 6,4,L◢Fix 3:＂ＫＭ＝＂：Locate 6,4,Ｚ◢＂Ｄ＝＂：Locate 6,4,Ｄ◢“H0=”: Locate 6,4,Z[8]-H◢Goto 06：极坐放样计算程序(计算放样点至置仪点方位角及距离)程序名：6JSX：Y：Z[11]→K(置仪点X坐标)Z[12]→L（置仪点Y坐标）Pol(X-K, Y-L):IF JFix 3:”S=”:Locate 6,4,I◢7．路基宽度次程序6：路基标准半幅宽度计算程序(对于设计有加宽渐变的有用，如路基宽度无变化，则把此程序直接输入半幅宽度值至L)程序名：GD1→S:If Z[3]=1:Then Prog“G1”:Goto 1:Else Prog “G2”:Goto 1: IfEndLbI 1:Z-C→E:(B-A)*E/S+A→L:8．坐标计算次程序（ＴＨＢ）程序名：THBIf Q=2:Then Goto J:1÷P→Ｃ：(P-R)÷(2HPR) →Ｓ：180/Π→E：If F=1:Then：Abs(Ｚ－0) →W：Prog 'Ａ'：Ｇoto 2:Else:Ｘ→I：Ｙ→J：Prog ＂Ｂ＂：Ｏ＋Ｗ→Z：Ｄ→Ｄ：Ｇoto 2: IfEnd:LbI J: If F=1:Then：Prog 'Z'：Ｇoto 1:Else: Prog ＂ZX＂：Ｇoto 2: IfEnd:LbI 1:I+D*COS(Z[2]+Z[1]) →X: J+D*Sin(Z[2]+Z[1]) →Y:LbI 2: 9. 线元法正算子程序(Ａ)程序名：A0.1184634425→A：0.2393143352→B：0.2844444444→N 0.046910077→K：0.2307653449→L：0.5→M：U+W(Acos(G+QEKW(C+KWＳ))+Bcos(G+QELW(C+LW Ｓ))+Ncos(G+QEMW(C+MWＳ))+Bcos(G+QE(1-L)W(C+(1-L)WS))+Acos(G+QE(1-K)W(C +(1-K)WS))) →X：V+W(Asin(G+QEKW(C+KWＳ))+Bsin(G+QELW(C+LWＳ))+Nsin(G+QEMW(C+MWS))+Bsin(G+QE(1-L)W(C+(1-L) WS))+Asin(G+QE(1-K)W(C+(1-K)WＳ))) →Y：G+QEW(C+WＳ)→Ｚ［２］：X+Ｄcos（Ｚ［２］+ Z[1]）→Ｘ：Y+Ｄsin（Ｚ［２］+ Z[1]）→Ｙ10. 线元法反算子程序(Ｂ)程序名：BG-90→Ｔ：Abs((Y-V)cos(T)-(X-U)sin(T)) →Ｗ：0→Ｄ：Lbl 0：Prog 'Ａ'：T+QEW(C+WＳ) →Ｌ：(J-Y)cos(L)-(I-X)sin(L)→Ｄ：IF Abs(Ｄ)Lbl 1:0→D：Prog 'Ａ'：(J-Y)÷sin(Ｚ［２］+90) →D:11. 交点法正算子程序(Z)程序名：ZH2/R/24-H∧(4)/2688/R∧(3)→A:H/2-H∧(3)/240/R2→B:(R+A)tan(Abs(P)/2)+B→T:O-T→C:C+H→L:L+ΠR*Abs(P)/180→N:N-H→E:P/Abs(P) →W:0→M:If ZO→S:G→Z[2]:Goto 2: IfEnd: If Z≥N:Then Z-N+T→S:G+P→Z[2]:Goto 2: IfEnd: If Z≥E:Then N-Z→S:Prog “HX”:G+P→S:S-WK→Z[2]:U+(T-A)Cos(S)-WBSin(S)→I:V+(T-A)Sin(S)+WBcos(S)→J:Goto 3: IfEnd:If Z>L:Then 180(Z-L+0.5H)/R/Π→S :H/2-H∧(3)/240/R2+Rsin(S)→A:H2/R/24-H∧(4)/2688/R∧(3)+R(1-Cos(S))→B:R→M:G+WS→Z[2]:Goto 4: IfEnd:Z-C→S:Prog “HX”:G+WK →Z[2]:LbI 4:U+(A-T)cos(G)-WBsin(G)→I:V+(A-T)Sin(G)+WBcos(G) →J: Goto 3:LbI 2:U+Scos(Z[2])→I:V+Ssin(Z[2]) →J: LbI 3:12. 交点法缓和段转化子程序(HX)程序名：HXS-S∧(5)/40/R2/H2+S∧(9)/3456/R∧(4)/H∧(4)→A:S∧(3)/6/R/H-S∧(7)/336/R∧(3)/H∧(3)+S∧(11)/42240/R∧(5)/H∧(5)→B:90S2/Π/R/H→K:RH/S→M:13. 交点法反算子程序(ZX)程序名：ZXZ:0→D:LbI 0:Prog“Z”:Pol(X-I,Y-J):J-Z[2] →J:Isin(J) →S:Icos(J) →I:IfAbs(I)LbI 2:14．高程计算子程序（H）程序名：HProg “S1”:C-T →F:Z-F→S:C+T→E:G-TI→Q:If T=O:Then Q+SI→H:Goto 0:Else If Z2÷2÷R→H:Goto 0:LbI 0:H:If D=0:Then GotoI:Else Prog “I”:H+V→H:LbI I: 15.高程超高计算程序（I）程序名：IIf Z[3]=1:Then Prog “I1”:Goto 1:Else Prog“I2”:Goto1: IfEnd:LbI 1: If W=1:Then:Goto Z:Else:Goto X: IfEndLbI Z:If S=0:Then Abs(D)×M→V:Goto 2:Else Abs(D)×((N-M)×(Z-C)÷S+M)→V:Goto 2:IfEnd:LbI X:If S=0:Then Abs(D)×M→V:Goto 2:Else Abs(D)×(((3((Z-C)÷S)2-2((Z-C)÷S)∧(3))×(N-M))+M)→V:Goto 2:IfEnd:LbI 2:Abs(D)→E:V ÷E→I:I(E-K)→V:16．导线点子程序（DX）程序名：DXZ[11] →K:Z[12] →L:“XZ”?K:”YZ”?L:K→Z[11]:L→Z[12]:17．线路选择子程序(线路选择输入0时。