歪哥哥版 Casio5800水准仪测量高程现场计算小程序

合集下载

卡西欧5800多功能实用坐标正反算小程序(附后方交会程序)

说明：第一个照准点坐标（XA , YA），平距为D1，第二个照准点坐标（XB , YB），平距为D2 ,第一点，第二点及测站点如果是顺时针方向排列Q = 1，逆时针Q =－1。（XP , YP）为待求点的坐标。
Goto0:
Lbl3:Cls：”X1=”?A:”Y1=”?B:?F: ”X2=”?X:”Y2=”?Y:
(X-A)cos(F)+(Y-B)sin(F)→I:
(Y-B)cos(F)-(X-A)sin(F)→Z:
Cls:“L=”: “Z=”:Locate4,1,I:Locate 4,2,Z◢
Goto0
注：程序中的“=>”是一个双箭号，按FUNCTION选3下翻两页选3 即可输入。方Biblioteka 角L距离Z
偏距
R
斜交偏距的转角（顺时针为正数，正交输入0）
2程序名：HFJH（距离后方交会）
LBI 1 :〝XA〞?A :〝YA〞?B :〝XB〞?C :〝YB〞?D :〝D1〞?E :〝D2〞?F :?Q : 0→J : POL（C－A , D－B）→G : J+Q Cos－1（（GG+EE－FF）÷（2GE））→H :〝XP=〞: A+E Cos（H）→X▲〝YP=〞: B+E Sin（H）→Y▲Goto1
显示及操作说明：
显示
功能
1.XY→LF
2.LF→XY
3.XYF→LZ
1.输入两点坐标计算距离与方位角
2.输入起点坐标及方位角、距离、偏距、偏距的转角
3.输入起点坐标及方位角，输入实测坐标，计算实测点与起点的垂直距离和垂直偏距
显示
输入及显示说明
X1、Y1
第一点（起点）坐标
X2、Y2

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计算器具有更多的功能和测量计算程序。

用户可以根据需要自行设计和编写更复杂的程序。

CASIO5800坐标正反算计算程序

CASIO5800坐标正反算计算程序CASIO 9860/5800坐标正反算计算程序1. 坐标正算主程序(命名为ZBZS)第1行：Lbl 0:”K=”?K:”BIAN=”? Z:”α=”?B第2行：Prog “A”第3行：”X=”:N+Zcos(F+B)◢第4行：”Y=”:E+Zsin(F+B)◢第5行：”F=”:F◢第6行：Goto 0K——计算点的里程BIAN——计算点到中桩的距离（左负右正）α——取前右夹角为正2. 坐标反算桩号和偏距主程序(命名为ZBFS)第1行：”X1=”? C:”Y1=”?D: ”K1=”?K第2行：Lbl 0:Prog “A”第3行：Pol(C-N,D-E)第4行：List Ans[1]→I第5行：List Ans[2]→J第6行：Icos(F-J)→S:K+S→K第7行：Abs(S)>0.0001=>Goto 0第8行：”K1=”:K◢第9行：”BIAN=”:Isin(J-F)→Z◢X1——取样点的X坐标Y1——取样点的Y坐标K1——输入时为计算起始点(在线路内即可)，输出时为反算点的桩号Z——偏距（左负右正）3. 计算坐标子程序(命名为XYF)为了简洁，本程序由数据库直接调用，上述中的正反算主程序不直接调用此程序第1行：K-A→S：(Q-P)÷L→I第2行：N+∫(cos(F+X(2P+XI)×90÷π),0,S)→N第3行：E+∫(sin(F+X(2P+XI)×90÷π),0,S)→E第4行：F+S(2P+SI)×90÷π→F4. 数据库（命名为A）第1行：K≤175.191=>Stop第2行：175.191→A:428513.730→N:557954.037→E:92°26′40″→F:0→P:1/ 240→Q:70.417→L:K≤A+L =>GoTo 1（第一缓和曲线，圆半径为240）第3行：245.607→A: 428507.298→N:558024.092→E: 100°50′59.4″→F: 1/240→P:1/240→Q:72.915→L: K≤A+L =>Goto 1（第圆曲线，半径为240）第4行：318.522→A: 428482.988→N:558092.538→E: 118°15′25.2″→F: 1/240→P: 0→Q: 55.104→L: K≤A+L =>Goto 1（第二缓和曲线，圆半径为240）第5行：373.627→A:428453.283→N:558138.912→E:124°50′4.5″→F:0→P:-1/180→Q:67.222→L:K≤A+L=>Goto 1:Stop（第一缓和曲线，圆半径为180）第6行：Lbl 1:Prog “XYF”A——曲线段起点的里程N——曲线段起点的x坐标E——曲线段起点的y坐标F——曲线段起点的坐标方位角P——曲线段起点的曲率(左负右正)Q——曲线段终点的曲率(左负右正)L——曲线段长度（尽量使用长度，为计算断链方便）说明：（1）在9860中，程序中所有公式和部分函数结果均存储在ListAns列表数组中，要想多次调用最好随公式取出结果，并赋给变量。

CASIO fx—5800计算器工程测量与公路测量程序

CASIO fx—5800计算器工程测量与公路测量程序1、坐标正算〝X0=〞?X:〝Y0=〞?Y:〝I=〞?I:〝J=〞?JX+ICos(J)→U:Y+ISin(J)→V〝X=〞:U （待求点的X坐标）〝Y=〞:V （待求点的Y坐标）说明：X0 Y0：已知点坐标I：两点的距离J：方位角２、坐标反算Lbl 0〝X1=〞?X:〝Y1=〞?Y:〝X2=〞?U:〝Y2=〞?VPol(U-X,V-Y):J<0 J+360→J〝I=〞:I〝J=〞:J DMSGOTO 0说明：X1Y1：第一点的坐标，X2Y2第二点的坐标，I：两点的距离，J：方位角３、圆曲线〝X0=〞?X: 〝Y0=〞?Y:〝FWJ=〞?D:〝QDHAO=〞?G: 〝ZDHAO=〞?C: 〝R=〞?R Lbl 1〝DQHAO=〞?LL<G Or L﹥C GOTO 2〝PY=〞?K180(L-G)÷(πR) →E2RSin(0.5E) →FReC(Abs(F),D+0.5E)：Cls〝X=〞:X+I+KCos(D+E+90) →A〝Y=〞:Y+J+KSin(D+E+90) →BD+E→o:o<0 360+o→0o〝FWJ=〞:o DMSGoto 1Lbl 2〝END〞说明：X0Y0：起始点的坐标，FWJ：起始点的方位角，QDHAO：起点里程，ZDHAO 终点里程，R：半径，DQHAO：待求点里程，PY：偏移量４、竖曲线〝QZHAO =〞?J: 〝H+B〞=?B:〝I1=〞?C:〝I2=〞?D:〝R=〞?R:〝T=〞?T: ((D-C)÷100) ÷Abs((D-C) ÷100)→A:Abs(0.5R(D-C) ÷100)→S〝T〞:SJ-T→XJ＋T→YLbl 0〝DQ=〞?LIf L<X:Then Goto 1:Else If L﹥Y:Then Goto 1:If End:If End〝GC=〞:B+C(L-J) ÷100+A(L-J+T) ÷(2R) →HGoto 0Lbl 1〝END〞说明：QZHAO：曲中点里程，H+B：曲中点高程，I1：第一坡度，I2：第二坡度，R：半径，T：切线长，DQ：待求点里程。

CASIO-5800测量程序

CASIO-5800测量程序CASIO-5800测量程序5800中边桩任意点坐标计算程序一、文件名：HZ ZH 输入文件名Deg:Fix 4 基本设置"FWJ∠α="？Q8起点切线方位角"ZX(m)="？O: "ZY(m)= "？P8 置镜点坐标"HX(m)= "？M: "HY(m)= "？N 8 后视点坐标Pol(A－O,B－P) 8If J<0:Then J＋360"H:Else J"H:IfEnd8"QX(m)="?U: "QY(m)="?V: "QDK(m)="?G8 起算点坐标和里程Ldl 08"GDK(m)="?Z 8 观测点里程G－Z"C8"GX(m)=":U＋cos(Q) ×C"Ay 置镜点至中桩X坐标"GY(m)=":V＋sin(Q) ×C"By 置镜点至中桩Y坐标Pol(A－O,B－P) 8 置镜点到中桩方位角J－H"J8If J－H<O:Then J＋360"J:Else J"J:IfEnd8"SPJ∠α=":J}DMSy显示顺拔夹角"I(m)=":Iy 置镜点至中桩距离Ldl 18"BJ(m)= "?S 8 边距If S=0:Then Goto 0:IfEnd8"JIA JIAO L(-),R(+)="?E8Q＋E"W8"GX(m)=":A＋cos(W) ×S"Xy 显示观测点X 坐标"GY(m)=":B＋sin(W) ×S"Yy 显示观测点Y 坐标Pol(X－O,Y－P) 8If J<0:Then J＋360"J:IfEnd8J－H"J8 置镜点到观测点方位角If J<0:Then J＋360"J:Else J"J:IfEnd8"SPJ∠α=":J}DMSy显示顺拔夹角"I(m)=":Iy 显示置镜点到观测点距离Goto 1 回到前面重复下一观测点二、文件名：ZH HY 缓和曲线段内任意点坐标计算程序“Deg:Fix 4“FWJ∠a =”？Q“ZX(m)=”?O:”ZY(m)=”?P“HX(m)=”?M:”HY(m)=”?N Pol(M-O,N-P)If J<0:Then J+360→H：Else J→H:IfEnd “HWJ∠a =”:H?DMS◢“ZHUAN XIANG L（-1），R（1）=”？T“R（m）=”?R“LS(m)=”?D“KZH=”?G“ZH X(m)=”?U“ZH Y(m)=”?VLbI 0“QDK=”?ZAbs(Z-G)→CC-C^5/(40R^2D^2)+C^9/(3456 R^4D^4) →WC^3/(6RD)-C^7/(336R^3D^3)+C^11/(42240R^5D^5)→KQ+(C^2/(2RD)×(180/Π)) →FIf J<0:Then F+360→F：Else F→F:IfEnd “QFWJ ∠a =”:F?DMS◢“QS X（m）=”：U+W×Cos(Q)+K×Cos(Q+90) →A: A ◢“QS Y（m）=”：V+W×Sin(Q)+K×Sin(Q+90) →B: B ◢Pol(A-O,B-P)If J<0:Then J+360→J：Else J→J:IfEnd J-H→JIf J<0:Then J+360→J：Else J→J:IfEnd“SPJ∠a=”:J?DMS◢“I（m）=”:I◢LbI 1“BJ(m)=”?SIf S=0:Then Goto 0: IfEnd“JIA JIAO L(-),R(+) =”?E“BZ X=”：A+SCos(F+E) →X: X ◢“BZ Y=”：B+S Sin(F+E) →Y：Y ◢Pol(X-O,Y-P)If J<0:Then J+360→J：Else J→J:IfEnd J-H→JIf J<0:Then J+360→J：Else J→J:IfEnd “∠BIAN ZHUANG PJ=”:J?DMS◢“I（m）=”:I◢Goto 0三、文件名：HY YH 园和曲线段内任意点坐标计算程序“Deg:Fix 4“FWJ∠a=”？Q起算点方位角“ZX(m)=”?O:”ZY(m)=”?P置镜点坐标“HX(m)=”?M:”HY(m)=”?N后视点坐标Pol(M-O,N-P)If J<0:Then J+360→H：Else J→H:IfEnd “HFWJ ∠a=”:H?DMS◢后视方位角“ZHUAN XIANG L（-1），R（1）=”？T曲线转向左负右正“R（m）=”?R曲线半径“LS(m)=”?D缓和曲线长度“KZH(m)=”?G曲线起点ZH里程“XZH(m)=”?U曲线起点X“YZH(m)=”?V曲线起点YLbI 0“QDK(m)=”?Z观测点里程Abs(Z-G)→CR×Sin(180×(C- D）/（πR）+90D/（πR）)+D/2-D^3/(240R ^2)→WR×（1-Cos(180(C-D）)/（πR）+90D/（πR））+ D^2/(24R)- D^4/(2688R ^3)→KQ+(180（C-D）/（πR）+90D/（πR）)→F If F<0:Then F+360→J：Else F→J:IfEnd “Q FWJ=”：F?DMS◢观测点切线方位角“QS X(m)=”：U+√(W²+K²)×Cos((Q)+tan?¹(K÷W)) →A: A ◢观测点X坐标“QS Y(m)=”：V+√(W²+K²)×Sin((Q)+tan?¹(K÷W)) →B: B ◢观测点Y坐标Pol(A-O,B-P)If J<0:Then J+360→J：Else J→J:IfEndJ-H→JIf J<0:Then J+360→J：Else J→J:IfEnd“SPJ∠a=”:J?DMS◢观测点所拨偏角“I（m）=”:I◢置镜点到观测点距离“BIAN JU(m)=”?S边距，左负右正If S=0:Then Goto 0: IfEnd“JIA JIAO L(-),R(+) =”?E边桩至中桩切线方向的夹角左负右正“BZ X(m)=”：A+SCos(F+E) →X: X ◢“BZ Y(m)=”：B+S Sin(F+E) →Y：Y ◢Pol(X-O,Y-P)If J<0:Then J+360→J：Else J→J:IfEnd J-H→JIf J<0:Then J+360→J：Else J→J:IfEnd “BZ ∠a =”:J?DMS◢“I（m）=”:I◢Goto 0四、文件名：YH HZ 另一端缓和曲线段内任意点坐标计算程序“Deg:Fix 4“FWJ∠a=”？Q起算点方位角“ZX(m)=”?O:”ZY(m)=”?P置镜点坐标“HX(m)=”?M:”HY(m)=”?N后视点坐标Pol(M-O,N-P)If J<0:Then J+360→H：Else J→H:IfEnd “HFWJ ∠a=”:H?DMS◢后视方位角“ZHUAN XIANG L（-1），R（1）=”？T曲线转向左负右正“R（m）=”?R曲线半径“LS(m)=”?D缓和曲线长度“KZH(m)=”?G曲线起点ZH里程“XZH(m)=”?U曲线起点X“YZH(m)=”?V曲线起点YLbI 0“QDK(m)=”?Z观测点里程Abs(G-Z)→CC-C^5/(40R^2D^2)+C^9/(3456 R^4D^4) →WC^3/(6RD)-C^7/(336R^3D^3)+C^11/(42240R^5D^5)→KQ-(C^2/(2RD)×(180/Π)) →FIf F<0:Then F+360→F：Else F→F:IfEnd If F>360:Then F-360→F：Else F→F:IfEnd “QFWJ∠a =”：F?DMS◢“QS X(m)=”：U-W×Cos(Q)+K×Cos(Q+90) →A: A ◢“QS Y(m)=”：V-W×Sin(Q)+K×Sin(Q+90) →B: B ◢Pol(A-O,B-P)If J<0:Then J+360→J：Else J→J:IfEndJ-H→JIf J<0:Then J+360→J：Else J→J:IfEnd“SPJ∠a=”:J?DMS◢“I（m）=”:I◢LbI 1“BJ(m)=”?SIf S=0:Then Goto 0: IfEnd“JIA JIAO L(-),R(+) =”?E“BZ X=”：A+SCos(F+E) →X: X ◢“BZ Y=”：B+S Sin(F+E) →Y：Y ◢Pol(X-O,Y-P)If J<0:Then J+360→J：Else J→J:IfEnd J-H→JIf J<0:Then J+360→J：Else J→J:IfEnd “BZ∠a =”:J?DMS◢“I（m）=”:I◢Goto 0。

5800全线高程计算程序

CASIO fx5800p全线高程计算程序GAOCHEN 主程序Lbl 1“KM=，<0,Stop”:?K：K<0=>Stop:“PY=”？L：Prog”GK”C-D→E:Abs(RE/2)→T：R(Abs(E)/E)→RIf K≤B-T:Then 0→H:Else:If K≥B+TThen 0→H:D→C:Else K-B+T→H:Ifend:IfendA-(B-K)C-H2/(2R)→G：Cls“KM=”：Locate 4，1，K：Locate 10，1，“PY=”：Locate 13，1，L：Fix 3“H=”：Locate 4，2，GProg “PODU”：（E-B）/（D-A）（K-A）+B→I：(F-C)/（D-A）（K-A）+C→J “HL=”：G+IL→X：Locate 4，3，X：Locate 11，3，“I=”：Locate 13，3，I*100 “HR=”：G+JL→Y：Locate 4，4，Y：Locate 11，4，“I=”：Locate 13，4，J*100◢显示中边桩高程Cls：Norm 2：“BM+HS≤0,Goto 1”？Z：Z≤0=> Goto 1：Cls (输入视线高)“KM=”：Locate 4，1，K：Locate 10，1，“PY=”：Locate 13，1，L：Fix 3 “QSM=”: Locate 6，2，Z-G (显示中桩读数)“QSL=”: Locate 6，3，Z-X (显示左桩读数)“QSR=”: Locate 6，4，Z-Y◢(显示右桩读数)Norm 2：Cls：Goto1（后面可加已知视线高计算读数部分，不想计算读数则视线高输入0或负数如不想显示麻烦，可将Locate语句去掉）以下两个子程序不需运行，只是两个独立的数据库赋值程序，字母重复不影响计算结果GK 数据库子程序If K≤第二曲线起点桩号：Then 第一曲线交点高程→A：第一曲线交点桩号→B：第一曲线前坡→C：第一曲线后坡→D：第一曲线半径→R（凸正凹负）：Return：Ifend…………….（有几个变坡点编几个If语句）If K≤76004：Then 622.890→A：75400→B：-0.005→C：-0.026→D：20000→R：Ret urn：IfendIf K≤77150：Then 602.350→A：76190→B：-0.026→C：0.005→D：12000→R：Retu rn：IfendIf K≤78420：Then 608.300→A：77380→B：0.005→C：--0.018→D：20000→R：Ret urn：IfendIf K≤79310：Then 585.260→A：78660→B：-0.018→C：-0.024→D：80000→R：Ret urn：IfendIf K≤80518.50：Then 564.380→A：79530→B：-0.024→C：-0.016→D：55000→R：R eturn：IfendIf K≤82230：Then 545.340→A：80720→B：-0.016→C：0.015→D：13000→R：Ret urn：IfendPODU 计算坡度子程序If K≤第一变（非变）坡段终点：Then 第一曲线起点桩号→A：第一曲线起点左坡→B：第一曲线起点右坡→C：第一曲终点桩号→D：第一曲终点左坡→E：第一曲终点右坡→F：Return：Ifend………………（每一个超高变化线元一个If语句）If K≤75884.442：Then 75000→A：-0.02→B：-0.02→C：75984.442→D：-0.02→E：-0.02→F：Return：Ifend(直线段)If K≤75984.442：Then 75884.442→A：-0.02→B：-0.02→C：75984.442→D：-0.03→E：0.03→F：Return：Ifend(JD66)If K≤76452.111：Then 75984.442→A：-0.03→B：0.03→C：76452.111→D：-0.03→E：0.03→F：Return：Ifend(JD66)If K≤76552.111：Then 76452.111→A：-0.03→B：0.03→C：76552.111→D：-0.02：-0.02→F：Return：Ifend(JD66)If K≤78271.813：Then 76552.111→A：-0.02→B：-0.02→C：78271.813→D：-0.02→E：-0.02→F：Return：Ifend(直线段)If K≤78371.813：Then 78271.813→A：-0.02→B：-0.02→C：78371.813→D：-0.03→E：0.03→F：Return：Ifend(JD67)If K≤78870.831：Then 78371.813→A：-0.03→B：0.03→C：78870.831→D：-0.03→E：0.03→F：Return：Ifend(JD67)If K≤78970.831：Then 78870.831→A：-0.03→B：0.03→C：78970.831→D：-0.02→E：-0.02→F：Return：Ifend(JD67)If K≤79284.976：Then 78970.831→A：-0.02→B：-0.02→C：79284.976→D：-0.02 3→E：-0.02→F：Return：Ifend(直线段)If K≤79404.976：Then 79284.976→A：-0.02→B：-0.02→C：79404.976→D：0.04→E：-0.04→F：Return：Ifend(JD68)If K≤79687.747：Then 79404.976→A：0.04→B：-0.04→C：79687.747→D：0.04→E：-0.04→F：Return：Ifend(JD68)If K≤79767.747：Then 79687.747→A：0.04→B：-0.04→C：79767.747→D：0→E：0→F：Return：Ifend(JD68)If K≤79847.747：Then 79767.747→A：0→B：0→C：79847.747→D：-0.04→E：0.04→F：Return：Ifend(JD69)If K≤80232.429：Then 79847.747→A：-0.04→B：0.04→C：80232.429→D：-0.04→E：0.04→F：Return：Ifend(JD69)If K≤80312.429：Then 80232.429→A：-0.04→B：0.04→C：80312.429→D：0→E：0→F：Return：Ifend(JD69)If K≤80392.429：Then 80312.429→A：0→B：0→C：80392.429→D：0.04→E：-0.04→F：Return：Ifend(JD70A)结果显示：高程显示KM=0000.000 PY=0.000H= 00.000HL=00.000 I=-1.5HR=00.000 I=-1.5读数显示KM=0000.000 PY=0.000 QSM= 00.000QSL= 00.000QSR= 00.000。

CASIO-5800公路高程及加宽计算程序

CASIO-5800公路高程及加宽计算程序全线路基中桩高程左右超高值以及路基加宽计算程序.要素子程序输入简便,在5800中输入待求点中桩桩号,计算器自动显示待求桩左,中,右,高程.左右路基宽.1主程序KG【路基宽度与超高值计算程序】Deg:21→DimZ:“PEG=”？Z:Goto1Lbl0:“PEG=”？Z:IfZ≥Z[3]-UAndZ≤Z[6]:ThenGoto2:IfEndLbl1:Prog“Z”:R=0=>Goto2: (本节计算曲线要素)IfA＜0:Then-1→I:Ele1→I:IfEnd确认路线转向,左负右正I→Z[7]:Ab（A）→AL^(2)÷(24R)→P:L÷2-L^(3)÷(240R^(2))→Q:90L÷(πR）→B(R+P)tan（A÷2)+Q→TR(A-2B)π÷180→O计算切线长计算圆曲线长计算曲线长计算ZH点计算HY点计算YH点计算HZ点R(A-2B)π÷180+2L→CK-T→Z[3]Z[3]+L→Z[4]Z[4]+O→Z[5]Z[5]+L→Z[6]Lbl2:Prog“K1”:(本节计算路基宽与左右超高值)待求点位于直线线元时IfR=0:ThenZ[21]某Z[20]→Z[1]:Z[1]→Z[2]:Goto3:IfEnd待求点位于ZH前的直线段时IfZ≤Z[3]:ThenZ[20]某Z[21]→Z[1]:Z[1]→Z[2]:Goto3:IfEnd全线路基中桩高程左右超高值以及路基加宽计算程序.要素子程序输入简便,在5800中输入待求点中桩桩号,计算器自动显示待求桩左,中,右,高程.左右路基宽.待求点位于笫一缓和曲线时IfZ＞Z[3]AndZ＜Z[4]:ThenZ[21]→J:M→N:Z[20]→D:Z[4]-Z[3]→S:Z-Z[3]→F:Prog“ZG”:V→Z[1]-M→N:W→D:(Z[4]-Z[3])÷2→S:IfZ≤Z[3]+SAndZ＞Z[3]:ThenZ[21]D→Z[2]:Goto3:EleZ-(Z[3]+S)→E:Prog“ZG”:V→Z[2]:Goto3:IfEnd:IfEnd待求点位于圆曲线时IfZ≥Z[4]AndZ≤Z[5]:ThenZ[20]M→Z[1]:IfZ[3]=Z[4]:ThenZ[1]→Z [2]:Goto3:EleW→D:-MD→Z[2]:Goto3:IfEnd:IfEnd待求点位于笫二缓和曲线时IfZ＞Z[5]AndZ≤Z[6]:ThenM→J:Z[21]→N:Z[20]→D:Z[6]-Z[5]→S:Z-Z[5]→E:Prog“ZG”:V→Z[1]-M→J:W→D:(Z[6]-Z[5])÷2→S:IfZ＞Z[5]+SAndZ≤Z[6]:ThenZ[21]D→Z[2]:Goto3:EleZ-Z[5]→E:→Prog“ZG”:V→Z[2]:IfEnd:IfEndLbl3:0→D:Prog“H”:Cl:Fi某2“H=”:Locate8,1,H:线路右转时IfZ[7]＞0:Then“L=”:Locate8,1,Z[1]+H:“R=”:Locate8,3,Z[2]+H:左设计高右设计高路基总宽路基左宽(本节显示计算结果)显示中桩设计高程“KUAN=”:Locate10,4,W+Z[20]◢Cl:“KUANL=”:Locate11,1,Z[20]:全线路基中桩高程左右超高值以及路基加宽计算程序.要素子程序输入简便,在5800中输入待求点中桩桩号,计算器自动显示待求桩左,中,右,高程.左右路基宽.“R=”:Locate11,2,W:线路左转时路基右宽Ele“L=”:Locate8,2,Z[2]+H:“R=”:Locate8,3,Z[1]+H:左设计高右设计高路基总宽“KUAN=”Locate10,4,W+Z[20]◢Cl:“KUANL=”:Locate11,1,W:路基左宽“R=”:Locate11,2,Z[20]:IfEnd:路基右宽Goto02子程序K1【路基宽度计算程序】4.25→Z[20]:-0.0212→Z[21]:Prog“Z”:Z[20]为路基半幅宽,Z[21]为路基横坡值IfZ＞Z[3]AndZ＜Z[4]:T hen2Z[20]→A:G→B:Z[4]-Z[3]→C:Z-Z[3]→E:IfEnd待求点位于笫一缓和曲线IfZ＞Z[5]AndZ≤Z[6]:ThenG→A:2Z[20]→B:Z[6]-Z[5]→C:Z-Z[5]→E:IfEnd(B-A)E÷C+A→WZ≤Z[3]=>2Z[20]→W待求点位于ZH前的直线段时待求点位于笫二缓和曲线时IfZ≥Z[4]AndZ≤Z[5]:ThenG→W:IfEnd待求点位于圆曲线时R=0=>2Z[20]→W待求点位于直线线元时Fi某2:W-Z[20]→W:Return3子程序H【路基高程中桩计算程序】Prog“S0”:I÷100→I:C-T→E:Z-F→L:C+T→E:G-TI→Q:IfT=0:全线路基中桩高程左右超高值以及路基加宽计算程序.要素子程序输入简便,在5800中输入待求点中桩桩号,计算器自动显示待求桩左,中,右,高程.左右路基宽.ThenQ+LI→H:Goto0:EleIfZ＜F:ThenQ+LI→H:Goto0:EleIfZ≤E:ThenQ+LI+L^(2)÷2÷R→H:Goto0:IfEn d:IfEnd:IfEndLbl0:IfD≠0:ThenProg“I”:H+V→Z[8]:IfEnd:Return4子程序ZG【路基超高值计算程序】D((N-J)E÷S+J)→V:Return5子程序Z【路基坐标宽度超高值要素程序】(也是路基坐标计算子程序)IfZ＞74009.522AndZ≤74262.228:Then137.4033→U:362°51′35″→F:74205. 803→K:3015783.911→某:522375.5984→Y:120→R:45→L:-33°34′0.6″→A:10→G:0.0588→M:IfEndU-直线长度;F-方位角;K-交点桩号;某-交点某坐标;Y-交点Y坐标;R-曲线半径;L-缓和曲线长;A-转角值(左负右正);G-路基整幅宽;M-路基超高值.IfZ＞72900.557AndZ≤72959.892:Then0→R:72900.557→Z[3]:3014697.12→Z[ 16]:522932.0175→Z[17]:302°4′54.3″→F:IfEnd直线线元及断链时的解决方式R-曲线半径;Z[3]-直线段起点桩号;Z[16]-起点中桩某坐标;Z[17]-起点中桩Y坐标;F-方位角.6子程序S0【高程竖曲线要素程序】IfZ≥74003.6AndZ≤74134.2:Then-1200→R:34.2→T:74100→C:2022.92→G:3.6→I:IfEndR-竖曲线半径(凸负凹正);T-竖曲线切线长;C-竖曲线交点桩号;全线路基中桩高程左右超高值以及路基加宽计算程序.要素子程序输入简便,在5800中输入待求点中桩桩号,计算器自动显示待求桩左,中,右,高程.左右路基宽.G-交点高程;I-直线段坡度(上正下负)。

卡西欧5800计算器程序坐标正反算（含高程）

卡西欧5800计算器程序坐标正反算（含高程）功能:坐标正反算(含高程),把要素内置化(无需改程序文件,即可更换路线,同时存两条线要素)另含两个边仰(一个横向坡,一个纵向坡)坡放样模块.帮助文件未完成程序浏览:FileName:RESET 初始化程序Norm 1:50→C:12345→J"RESET PW"I:I=J=>500→DimZ 为数据库增加额外变量500个，在SET、SETPFDYS程序根据实际再增减变量50→Z[C+22]"PASSWORDS"I:I→Z[C+39] 重设要素保护密码Cls:StopFileName:DATLOCK 要素保护密码确定认程序Cls:Norm 1:50→C"PASSWORDS"I:Cls:I≠Z[C+39]=>StopFileName:SHELL(外壳程序)50→C ;在扩充变量预留前50个给别的程序用。

如不够就适量加大。

RESET，SHELL，SET，SETPFDYS，这几个程序中C值必需一致Z[C+35]→I:"STATION-N"I:I→Z[C+35] 设置测站N坐标Z[C+36]→I:"STATION-E"I:I→Z[C+36] 设置测站E坐标Z[C+44]→I:"STATION-Z"I:I→Z[C+44] 设置测站Z坐标Z[C+45]→I:"STATION-HI"I:I→Z[C+45] 设置仪高Z[C+41]→I:"GC-DH"I:I→Z[C+41] 放样点高差常数Norm 1Z[C+23]→N 当前分段要素N坐标Z[C+24]→E 当前分段要素E坐标Z[C+25]→M 当前分段要素起点桩号Z[C+26]→H 当前分段要素起点方位角（正北）单位：弧度Z[C+27]→A 当前分段要素起点曲率有左偏负右偏正（注意不半径）Z[C+28]→R 当前分段要素终点曲率有左偏负右偏正（注意不半径）Z[C+29]→L 当前分段要素长度Z[C+3]→WZ[C+32]→I:"DAT1 2 3"I:I→Z[C+32] 平曲线要素数库类型选择1为内置式，2文件式，3实时输入(查看当前要素值)0→IZ[C+4]→I:"1 2 3"I:I→Z[C+4] 选择本程序模式默认为坐标正算，1坐标反算，2横向边仰坡放样，3，纵向边仰坡放样(隧道进出口用到) Lbi 1Z[C+4]→II=1=>Prog"TURNZH"I=2=>Prog"HXBYP"I=3=>Prog"ZXBYP"Lbi ADeg:Norm 1:ClsZ[C+1]→G:"ZH"G:G→Z[C+1] ;G桩求桩号Z[C+2]→B:"JL"B:B→Z[C+2] ;B横向距离，左正右负Lbi BProg "ZBJS" ;坐标正算Prog "GCJS" ;高程计算Fix 3:Cls ;设置三位小数"ZH＝":Locate 4,1,G ;第一行显示桩号"X＝":Locate 3,2,X ;第二行显示X(N)坐标"Y＝":Locate 3,3,Y ；第三行显示Y(E)坐标Prog "GCJS" ;高程计算"Z":Locate 2,4,Z+Z[C+41] ；第四行显示Z坐标Locate 10,4,Z[C+2] ；第四行显示横向距离Do:I+1→I:I=1000=>Goto 1:LpWhile Not(Getkey=57 Or Getkey=27) ;锁定键盘，并在几十秒后自动返回Getkey=57=> Goto 1Z+Z[C+41]+Z[C+49]-Z[C+44]-Z[C+45]→Z[C+48]Pol(Z[C+35]-X,Z[C+36]-Y)Cls:"DL":Locate 3,1,I:Locate 12,1,Z[C+45]"DH":Locate 3,2,Z[C+48]:Locate 12,2,Z[C+49]"FWJ"J<0=J+360→J:J◤DMS◢J→Z[C+46]I→Z[C+47]Goto 1FileName：ZBJS 坐标计算程序Prog"READDAT"RadG-M→QIF AR=0 :Then If A=R :Then 1→J:Else 3→J :IfEnd:Else If A=R :Then 2→J:Else 3→J:IfEnd:IfEndIf J=1 :Then H→F:N+QCos(H)→X:E+QSin(H)→Y:IfEnd 直线段直接计算If J=2 :Then H+QR→F:Rec(Abs(2Sin(Abs)÷R),H+QR÷2):N+I→X:E+J→Y:IfEnd 圆弧段直接计算If J=3 :Then Goto 5 :IfEndX+BCos(F+W)→XY+BSin(F+W)→YDeg:ReturnLbi 5 用五点通用坐标计算计算缓和段(R-A)÷L→KKQ2→J→P:H+IP+JP2→U→P:H+IP+JP2→V→P :H+IP+JP2→D→P:H+IP+JP2→F→P:H+IP+JP2→T→I→J→ON+Q(ICos(U)+JCos(V)+OCos(D)+JCos(F)+ICos(T))→XE+Q(ISin(U)+JSin(V)+OSin(D)+JSin(F)+ISi n(T))→YH+AQ+KQ2→FX+BCos(F+W)→XY+BSin(F+W)→YDeg:ReturnFileName:TURNZH(坐标反算)Norm 1Z[C+37]→I:"DQD-N"I:I→Z[C+37] 输入待求点N坐标I=-1=>Prog"INFWJDLDH"Z[C+38]→I:"DQD-E"I:I→Z[C+38] 输入待求点E坐标0→B：M+L÷2→G：Prog"ZBJS"Lbi S:RadZ[C+37]-X→I:Z[C+38]-Y→JIf I=0 And J=0 :Then Goto A:IfEndPol(I,J)Lbi A:Rec(I,J-F):J→Z[C+2]G+I→G:IF Abs(I)> :Then Prog"ZBJS":Goto S↙G→Z[C+1]FileName：INFWJDLDH 实测坐标（用方位角，距离，高差）输入程序Deg:Norm 1:ClsZ[C+46]→J:"DQD-FWJ"J:J→Z[C+46]Z[C+47]→I:"DQD-DL"I:I→Z[C+47]Z[C+48]→K:"DQD-DZ"K:K→Z[C+48]Z[C+49]→P:"RHT"P:P→Z[C+49]Rec(I,J)Z[C+35]+I→Z[C+37]Z[C+36]+J→Z[C+38]Z[C+44]+Z[C+45]+K-P→Z[C+43]FileName:HXBYP 横向边仰坡放样程序Cls:Norm 1Z[C+40]→I:"QPD-DL"I:I→Z[C+40] 输入起坡点与中桩距离常数Z[C+41]→I:"QPD-DZ"I:I→Z[C+41] 输入起坡点与中桩高差常数Z[C+42]→I:"i"I:I→Z[C+42] 输入边仰坡坡度，左仰坡(路堑)为正，右仰坡(路堑)为负，左边坡为负，右边坡为正Cls:Z[C+43]→I:"DQD-Z"I:I→Z[C+43] 输入实测高程Prog"TURNZH"Prog "GCJS"(Z[C+43]-Z-Z[C+41])Z[C+42]+Z[C+40]→BFix 3:B-Z[C+2]◢显示与上一次测点的偏差B→Z[C+2]FileName:ZXBYP 纵向仰坡放样程序(隧道进口使用)Cls:Norm 1:Z[C+33]→I:"QPD-ZH"I:I→Z[C+33] 输入起坡点桩号Z[C+34]→I:"QPD-Z"I:I→Z[C+34] 输入起坡点高程Z[C+42]→I:"i"I:I→Z[C+42] 仰坡时(隧道进出口仰坡)，进口为正，出口为负)Cls:Z[C+43]→I:"DQD-Z"I:I→Z[C+43] 输入实测高程Prog"TURNZH"Z[C+42](Z[C+43]-Z[C+34])+Z[C+33]→GFix 3:G-Z[C+1]◢显示与上一次测点的偏差G→Z[C+1]FileName:SET 设置程序Lbi SNorm 150→C50→Z[C+22]0→KZ[C+5]→I:"1 Or 2"I:I→Z[C+5] ;选择1线或者2线180Z[C+3]÷π→J:"XZJJ"J:Jπ÷180→Z[C+3] ;斜桩夹角If I=1:Then Z[C+8]→Z[C+6]:Z[C+9]→Z[C+7]Z[C+12]→Z[C+16]:Z[C+13]→Z[C+17]:Z[C+18]→Z[C+20]Else Z[C+10]→Z[C+6]:Z[C+11]→Z[C+7]Z[C+14]→Z[C+16]:Z[C+15]→Z[C+17]::Z[C+19]→Z[C+20]Z[C+7]+3→Z[C+31]0→I:"1PQX,2SQX,3YSDS"I ;1输入平曲线要素，2输入竖曲线要素，3输入1、2线夹平竖曲线交点(变坡点)数量以让程序规划内存建立要素数据为，其它值退出本程序I=1 => Goto 1:I=2 => Goto 2:I=3 => Goto 3I≠0=>Prog"DATLOCK"Prog"SETPFDYS"StopLbi 1 ;平曲线要素输入部分Z[C+6]→D-1→Z[D+3]For 1→J T o Z[C+16]Cls:"PQX":Locate 9,1,JZ[D+1]→I:"N"I:I→Z[D+1] ;请输入N坐标Z[D+2]→I:"E"I:I→Z[D+2] ;请输入E坐标Z[D+3]→I:"R"I:I→Z[D+3] ;请输入半径RZ[D+4]→I:"LS1"I:I→Z[D+4] ;请输入缓和曲线1长度Z[D+5]→I:"LS2"I:I→Z[D+5] ;请输入缓和曲线2长度Next1→Z[D-2]Goto SLbi 2 ;竖曲线要素输入部分Z[C+7]→D-1→Z[D+3]For 1→J T o Z[C+17]Cls:"SQX":Locate 9,1,JZ[D+1]→I:"BPDZH"I:I→Z[C+1] ;请输入变坡点桩号Z[D+2]→I:"BPDGC"I:I→Z[C+2] ;请输入变坡点高程Z[D+3]→I:"R"I:I→Z[C+3] ;请输入半径RD+3→DNext1→Z[D]Goto SLbi 3 ;要素点数输入部分Z[C+12]→I:"1PQXDS"I:I→Z[C+12] ;输入1线平曲线点数,最小值为3Z[C+13]→I:"1SQXDS"I:I→Z[C+13] ;输入1线竖曲线点数,最小值为3Z[C+18]→I:"1JDZH"I:I→Z[C+18] ;输入1线平曲线第一个交点的交点桩号Z[C+14]→I:"2PQXDS"I:I→Z[C+14] ;输入2线平曲线点数,最小值为3Z[C+15]→I:"2SQXDS"I:I→Z[C+15] ;输入2线竖曲线点数,最小值为3Z[C+19]→I:"2JDZH"I:I→Z[C+19] ;输入2线平曲线第一个交点的交点桩号C+Z[C+22]→Z[C+8] 1线路平曲线要素指针偏移基数Z[C+8]+5Z[C+12]→Z[C+9] 1线路竖曲线要素指针偏移基数Z[C+9]+3Z[C+13]→Z[C+10] 2线路平曲线要素指针偏移基数Z[C+10]+5Z[C+14]→Z[C+11] 2线路竖曲线要素指针偏移基数Z[C+11]+3Z[C+15]→Z[C+21] 要素数据库结束指针Z[C+21]+1→Z[C+30]Z[C+21]→DimZ 增加额外变量-1→KGoto SFileName:SETPFDYS 交点要素=>分段要素Norm 150→CRadZ[C+6]+5→DZ[C+21]+1→FF+6→DimZ-1→Z[F] ; 设置分段要素开始标志Z[C+20]→V ; 从数据库读入当前线第一个平曲线交点桩号0→GPol(Z[D+1]-Z[D-4],Z[D+2]-Z[D-3]) ；计算第一条直线的距离I，计算方位角JJ→HZ[D-4]→Z[F+1] 直线段Z[D-3]→Z[F+2]V-I→Z[F+3]For 1→G T o Z[C+16]-2Pol(Z[D+1]-Z[D-4],Z[D+2]-Z[D-3]) ；计算第本交点与下一交点的距离I，计算方位角JI→W:J→HPol(Z[D+6]-Z[D+1],Z[D+7]-Z[D+2])J-H→K ；计算转角K，负值是左转角，正值是右转角IF Abs(K)>π:Then If K>0:Then K-2π→K:Else K+2π→K:IfEnd:IfEndZ[D+3]→R ;从数据库读入半径RZ[D+4]→L ;从数据库读入缓和曲线1长度Z[D+5]→M ;从数据库读入缓和曲线2长度L÷2÷R→B ;计算缓和曲线1的B0角M÷2÷R→O ;计算缓和曲线2的B0角(Abs(K)-B-O)R→P ;计算圆曲线长度L2÷24÷R-L^(4) ÷2384÷R^(3) →Q ;内移值计算方法2L÷2-L^(3) ÷240÷R2→S ;切线增长值计算方法2M2÷24÷R-M^(4) ÷2384÷R^(3) →J ;内移值计算方法2M÷2-M^(3) ÷240÷R2→I ;切线增长值计算方法2Abs(π÷2- Abs(K)) →ARtan(Abs(K÷2))+S+J÷Cos(A)-QTan(A)→T ;计算切线1Rtan(Abs(K÷2))+I+Q÷Cos(A)-JTan(A)→U ;计算切线2H<0=>H+2π→HK<0 =>-1→AH→Z[F+4]0→Z[F+5]0→Z[F+6]F+6→FF+6→DimZRec(T,H) 缓和段1 Z[D+1]-I→NZ[D+2]-J→EN→Z[F+1]E→Z[F+2]V-T→Z[F+3]L=0=>Goto AH→Z[F+4]0→Z[F+5]A÷R→Z[F+6]F+6→DimZLbi A 圆弧段0→I:0→JL=0=>Goto BPol(L-L^(3)÷40÷R2,L2÷6÷R-L^(4)÷336÷R^(4)) Lbi B Rec(I,H+AJ)N+I→NE+J→EN→Z[F+1]E→Z[F+2]V-T+L→Z[F+3]H+AB→Z[F+4]A÷R→Z[F+5]A÷R→Z[F+6]F+6→FF+6→DimZM=0=>Goto C 缓和段2 Rec(2RSin÷R),H+AB+AP÷R÷2) N+I→NE+J→EN→Z[F+1]E→Z[F+2]V-T+L+P→Z[F+3]H+AB+AP÷R→Z[F+4]A÷R→Z[F+5]0→Z[F+6]Lbi CF+6→FF+6→DimZRec(U,H+K)Z[D+1]+J→Z[F+1]Z[D+2]+I→Z[F+2]V-T+L+P+M→Z[F+3]V-T+L+P+M-U+I→VD+5→DNextH+K→Z[F+4]0→Z[F+5]0→Z[F+6]F+9→DimZ1→Z[F+7]V→Z[F+9] 要素终点桩号DegFileName：READDATZ[C+32]→II=3=>Prog"READDAT3"If GM+L :Then ;验证要素是否可用，否则重设要素I=1=>Prog"READDAT1"I=2=>Prog"READDAT2"Prog"REALDAT3"IfEndFileName:READDAT1 平曲线分段要素读取程序1Z[C+30]→F0→JLbi 1 搜索要素If G<z[f+3]:then< p="">-1=Z[F]=>Goto E:F-6→F:-1→J:Goto 1Else 1=Z[F+1]=>Goto E:-1=J=>Goto 2:1→J:F+6→F:Goto 1 IfEndLbi 2F→Z[C+30]Z[F+1]→Z[C+23] 当前分段要素N坐标Z[F+2]→Z[C+24] 当前分段要素E坐标Z[F+3]→Z[C+25] 当前分段要素起点桩号Z[F+4]→[C+26] 当前分段要素起点方位角（正北）Z[F+5]→Z[C+27] 当前分段要素起点曲率有左偏负右偏正（注意不半径）Z[F+6]→Z[C+28] 当前分段要素终点曲率有左偏负右偏正（注意不半径）</z[f+3]:then<>。

1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。

Casio5800水准仪测量高程现场计算小程序
（歪哥哥2009版）
程序功能目的：输入水准仪现场前视读数快速计算出该点的实测高程！程序名: HC
LbI A:Cls:“HS”?X:“BM-H”?Y:X+Y→S:Cls:“SXG=”:Locate 6,1,S◢
LbI B:Cls: “QS”?D:If D≥0 :Then Goto D:Else Goto C:IfEn d↙LbI C: M→Y:Abs（D）→X: Goto A↙
LbI D:S-D→M: Cls:“QS=”: “HC=”Locate 6,1,D: Locate 6,2,M ◢
Goto B↙
符号说明：
HS? 输入水准点上之后视读数
BM-H?输入水准点之设计高程
SXG= 显示视线高程
QS?输入该点的前视读数（注：当有转点时则转点的前视读数输入后显示HC为转点的高程，紧接着当再次提示QS?时将转点所测的后视读数以负值输入连续两次EXE即可显示转点后的视线高程，即可进行转点后的正常计算！）
QS=显示所输入的该点的前视读数
HC=显示计算所得的该点的实测高程
歪哥哥QQ：512477648。