5800计算机测量程序

合集下载

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测量坐标计算程序

一．使用说明：1.规定：（1）以道路中线的前进方向区分线路的左右偏转方向，线路左偏Q=-1，线路右偏Q=1，直线Q=0。

（2）当所求点位于线路中线时，Z=0；当位于左侧时，Z取负值；当位于右侧时，Z取正值。

（3）当线元为直线时，其起终点的曲率半径为无穷大，取10的45次方代替。

（4）当线元为圆曲线时，起终点曲率半径为圆曲线半径。

（5）当线元为缓和曲线时，起终点曲率半径与直线相接取10的45次方代替，与圆曲线相接取圆曲线半径。

2.输入与显示说明：（1）输入部分：N？：选择计算方式，输入1表示由里程边距计算坐标，输入2表示由坐标计算里程边距。

X0？线元起点X坐标。

Y0？线元起点Y坐标。

S0？线元起点里程。

F0？线元起点切线方位角。

LS？线元长度。

R0？线元起点曲率半径。

RN?线元终点曲率半径。

Q？线元左右偏标志（左偏=-1，右偏=1，直线=0）S?正算时所求点里程。

Z？正算时所求点距中线边距。

位于线路左侧输入负值，在右侧输入正值。

AR?斜交角度。

（为线路右角，在0-180度之间）X?反算时所求点X坐标。

Y？反算时所求点Y坐标。

（2）显示部分：XS=计算结果，所求点X坐标。

YS=计算结果，所求点Y坐标。

FS=计算结果，所求点切线方位角。

S=计算结果，反算时所求点里程Z=计算结果，反算时所求点边距。

二．程序清单1（用于任意曲线元的坐标计算）1.主程序(TYQXJS)″1.SZ=>XY″:″2.XY=>SZ″:?N:″X0″?U:″Y0″?V:″S0″?O: ″F0″?G:″LS″?H:″R0″?P:″RN″?R:?Q:1÷P→C:(P-R) ÷(2HPR) →D:180÷π→E:If N=1: THEN Goto 1:Else Goto 2:IfEnd:Lbl 1:?S:”D(Z-，Y+)=”?Z:90→T:”O=”?T:Abs(S-O) →W:Prog ″SUB1″:″XS″:X◢″YS″:Y◢″FS″:F◢Goto 1:Lbl 2:?X:?Y:I→X:J→Y:Prog ″SUB2″:″S″:O+W→S:◢″Z″:Z◢Goto 22.正算子程序(SUB1)0.1739274226→A:0.3260725774→B:0.0694318442→K:0.3300094782→L:1-L→F:1-K→M:U+W(Acos(G+QEKW(C+KWD))+Bcos(G+QELW(C+LWD))+Bcos(G+QEFW(C+FWD))+Acos(G+QEMW(C+MWD))) →X:V+W(Asin(G+QEKW(C+KWD))+Bsin(G+QELW(C+LWD))+Bsin(G+QEFW(C+FWD))+Asin(G+QEMW(C+MWD))) →Y:G+QEW(C+WD) →F:X+Zcos(F+T) →X:Y+Zsin(F+T) →Y3.反算子程序(SUB2)G-90→T:Abs((Y-V)cos(T)-(X-U)sin(T)) →W:0→Z:Lbl 0:Prog ″SUB1″:T+QEW(C+WD) →L:(J-Y)cos(L)-(I-X)sin(L)→Z:IF Abs(Z)<1E-6 :Then Goto 1:Else W+Z→W:Goto 0 : IfEnd:Lbl 1:0→Z:Prog ″SUB1″:(J-Y)÷sin(F)→Z 三．用于提前将曲线元要素输入子程序，计算时只输入里程桩号与边距。

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测量放样程序

卡西欧5800程序(修改于湘桂)R（主程序，通过里程求中桩、边桩坐标，在输入测站坐标后并求极坐标放样要素）1→M :“NEWZ CIRCLE”？M : If M=-1: Then “JD”？U :“1-TR-1-TL” ? N : “AT ” ? O : “JX” ? S : “JY ” ? P : “L0 ” ? H : “R” ? R : “ZJ” ? A : IfEnd↙“OPP NAME ”？W : If W=-1 : Then “OPPX”？B : “OPPY”？C : Else Prog“CONTREL”:IfEnd↙Lbl 0: “C”？K : If Int(K÷1000)>0 : Then Int(K÷1000)→V :Else “V”？V ：K+1000V→K：IfEnd↙If M=1:Then Prog“CIRCLE” IfEnd↙H÷2-H^(3)÷(240R2)+(R+H2÷(24R))tan（A÷2）→T:πR(A-180H÷π÷R)÷180+2H→L↙U-T→G:K→Q↙If Q≤G+L÷2:Then Q-G→Q: Else G+L-Q→Q: IfEnd↙If Q＜0:Then Prog “L”:Goto1: IfEnd↙If Q≤H:Then Q-Q^(5)÷(40R2H2)→X:Q^(3)÷(6RH)-Q^(7)÷(336R^(3)H^(3)) →Y:90Q2÷(πRH) →F: Else 180(Q-H÷2)÷(πR) →F:Rsin(F)+H÷2-H^(3)÷(240R2) →X:R(1-Cos(F))+H2÷(24R) →Y: IfEnd↙Pol(T-X,Y) ↙If K≤G+L÷2:Then O-180-NJ→E:NF+O→F: “F=”:F▲DMS◢ ElseNA+NJ+ O→E: O+NA-NF→F: “F=”:F▲DMS◢IfEnd↙“X=”:S+Icos(E)→X◢“Y=”:P+Isin(E)→Y◢If F＜0:Then 360+F→F: IfEnd↙If F≥360:Then F-360→F: IfEnd↙Lbl1: “÷1”？Z: If Z=1:Then Prog “I”: IfEnd↙If Z=2:Then Prog “LD”: IfEnd↙If Z=-1:Then Prog “Q”: “X=”:X◢“Y=”: Y◢IfEnd↙Prog “P”↙Goto 0↙P（子程序，受主程序R调用，求极坐标放样要素:方位角及平距）Pol(X-B,Y-C): “D=”:I◢If J＜0:Then 360+J→J: Else 0+J→J: IfEnd↙“AQ=”:J▲DMS◢L（子程序，受主程序R调用，求直线上点位坐标及切线方位角）T-Q→Q:If K＜G:Then O+180→E: O→F: “X=”:S+Qcos(E)→X◢“Y=”:P+Qsin(E) →Y◢ Else O+NA→F: “X=” S+Qcos(F) →X◢“Y=”:P+Qsin(F) →Y◢IfEnd↙I（子程序，受主程序R调用，求边桩坐标）“RA”？E：“D”？D:E+F→E: If E≥360:Then E-360→E: IfEnd↙X+Dcos(E)→X: Y+Dsin(E)→Y: “X=”: X◢“Y=”: Y◢E→F↙Q（子程序，受主程序R调用，求副线边桩坐标）“1A”？E：“1D”？D：E+F→E↙X+Dcos(E)→X: Y+Dsin(E)→Y:E→F↙“2R”？E: “2D”？D: E+F→E↙X+Dcos(E)→X: Y+Dsin(E)→Y↙E→F↙LD（子程序，受主程序R调用，通过坐标反求里程和偏距）40→DimZ↙O→Z[1]:U→Z[2]:S→Z[3]: P→Z[4] ↙H÷2-H^(3)÷(240R2)→M: H2÷(24R)-H^(4)÷(2688R^(3))→V:90H2÷(πR)→D:(R+V)Tan(A÷2)+M→T: πRA÷180+H→K:O+NA→J:Prog“JD”:J→Z[21]:U-T+K→Z[22]: S-Tcos(O)→Z[5]:P-Tsin(O)→Z[6]:Z[5]+Mcos(O)+(R+V)cos(O+90N)→Z[7]:Z[6]+Msin(O)+ (R+V)sin(O+90N)→Z[8] ↙H-H^(5)÷(40R2H2)→Z:H^(3)÷(6RH)-H^(7)÷(336R^(3)H^(3))→C: Pol(C,Z):90-J→J:Prog“JD”: O+JN→J:Prog“JD”↙Z[5]+Icos(J)→Z[9]:Z[6]+Isin(J)→Z[10]:S+Tcos(Z[21])→Z[11]: P+Tsin(Z[21])→Z[12] ↙Pol(Z[10]-Z[8],Z[9]-Z[7]):90-J→J:Prog“JD”:J→Z[13] ↙J+(A-2D)N→J: Prog“JD”: J→Z[14] ↙“CEDIAN”◢Lbl 0: ↙“B”？B:If B=0:Then Prog “R”: IfEnd↙“XN=”？X: “YN=”？Y:Pol(Y-Z[8],X-Z[7]) ↙90-J→J: Prog“JD”:J→W:J-Z[13]→J↙Prog“JD”:J→Z[15] ↙W-Z[14]→J↙Prog“JD”:J→Z[16] ↙If N=1:Then Goto 1: IfEnd↙If N=-1:Then Goto 2: IfEnd↙Lbl 1: ↙If Z[15]＞180：Then Goto 3: IfEnd↙If Z[16]≤180：Then Goto 5:Else Goto 4 : IfEnd↙Lbl 2: ↙If Z[15]＜180：Then Goto 3: IfEnd↙If Z[16] ＞180：Then Goto 5:Else Goto 4 : IfEnd↙Lbl 3: ↙“H1”◢Pol(Y-Z[6],X-Z[5]):90-J→J: Prog“JD”↙J-Z[1]+90→J: Prog“JD”↙Isin(J)→G↙If G＞0:Then 0→L:Goto 6: IfEnd↙If G≤0:Then “DK=”:Z[2]-T+G→Z[19]◢If N=1:Then “LD=”:-NIcos(J)→Z[20]◢Else “LD=”:NIcos(J) →Z[20]◢IfEnd↙“SD=1,LD≠1”？D:If D=1:Then Prog “SDCQJC”: IfEnd↙Goto 0↙Lbl 4: ↙“Y”◢If N=-1:Then 360-Z[15]→Z[15]: IfEnd: “DK=”:Z[2]-T+H+πR(Z[15])÷180→Z[19]◢If N=1:Then “LD=”:-(I-R)→Z[20]◢Else “LD=” :I-R→Z[20]◢IfEnd↙“SD=1,LD≠1”？D:If D=1:Then Prog “SDCQJC”: IfEnd↙Goto 0↙Lbl 5: ↙“H2”◢Pol(Y-Z[12],X-Z[11]):90-J→J: Prog“JD”:J→W:Z[21]-90→J: Prog“JD”:W-J→J: Prog“JD”:Isin(J)→G:If G＜0:Then 0→L: -G→G↙Goto 7: IfEnd↙If G≥0:Then “DK=”:Z[22]+G→Z[19]◢IfEnd: If N=1:Then “LD=”:-NIcos(J)→Z[20]◢Else “LD=”:NIcos(J)→Z[20]◢IfEnd↙“SD=1,LD≠1”？D:If D=1:Then Prog “SDCQJC”: IfEnd↙Goto 0↙Lbl 6: ↙L+G→L:L-L^(5)÷(40R2H2)→Z:L^(3)÷(6RH)-L^(7)÷(336R^(3)H^(3)) →C:Pol(C,Z):90-J→J: Prog“JD”:J→W:Z[1]+WN→J: Prog“JD”:Z[5]+Icos(J)→Z[17]: Z[6]+Isin(J) →Z[18] ↙J+2WN→J: Prog“JD”:J-90→J: Prog“JD”:J→W↙Pol（Y-Z[18],X-Z[17]）:90-J→J: Prog“JD”↙J-W→J: Prog“JD”:Isin(J)→G:If Abs(G)＞0.001:Then Goto 6: IfEnd↙“DK=”:Z[2]-T+L+G→Z[19]◢If N=1:Then “LD=”:-Ncos(J) →Z[20]◢Else“LD=”:NIcos(J) →Z[20]◢IfEnd↙“SD=1,LD≠1”？D:If D=1:Then Prog “SDCQJC”: IfEnd↙Goto 0↙Lbl 7: ↙L+G→L:L-L^(5)÷(40R2H2)→Z:L^(3)÷(6RH)-L^(7)÷(336R^(3)H^(3)) →C:Pol(C,Z):90-J→J: Prog“JD”:J→W:Z[21]-180-WN→J: Prog“JD”↙Z[11]+Icos(J)→Z[17]:Z[12]+Isin(J)→Z[18]:J-2WN→J: Prog“JD”↙J-90→J: Prog“JD”:J→W↙Pol(Y-Z[18],X-Z[17]):90-J→J: Prog“JD”↙J-W→J:Prog “JD”↙Isin(J)→G: If Abs(G)＞0.001:Then Goto 7:IfEnd↙“DK=”:Z[22]-L-G→Z[19]◢If N=1:Then “LD=”:NIcos(J)→Z[20]◢Else“LD=”:-NIcos(J) →Z[20]◢IfEnd↙“SD=1,LD≠1”？D:If D=1:Then Prog “SDCQJC”: IfEnd↙Goto 0↙JD（子程序，受LD程序调用，计算角度归化值）If J＜0:Then J+360→J: IfEnd↙If J≥360:Then J-360→J: IfEnd↙CIRCLE（子程序，线路平面曲线要素，受主程序R调用）If K≤缓直点里程:Then 交点里程→U:交点X坐标→S:交点Y坐标→P:转角值→A:-1（曲线段左偏）或1（曲线段右偏）→N:圆曲线半径→R:缓和曲线长→H:直线段起始方位角→O:Goto 1: IfEnd↙If K≤……（同上输完全部曲线要素为止）Lbl 1↙CONTREL（控制点坐标数据库子程序，受主程序R和ZBFS调用）If W=控制点点号:Then 控制点X坐标→B:控制点Y坐标→C: IfEnd↙If W=……（同上输完全部控制点数据为止）ZBFS（主程序，求两已知点方位角及平距,或已知两点求后方交会点坐标）Lbl 0:1→W: “NEW OPP”？W:If W=1:Then “OPPX”？X: “OPPY”？Y:Else Prog “CONTREL”:B→X:C→Y: IfEnd↙Lbl 1:-1→W: “NEW CPP”？W: If W=-1:Then “CPPX”？S: “CPPY”？T: Else Prog “CONTREL”:B→S:C→T: IfEnd↙Pol(S-X,T-Y): “D=”:I◢If J＜0:Then J+360→J: Else 0+J→J: IfEnd↙“AQ=”:J▲DMS◢Lbl 2:0→W: “ZBFS=0,SQS≠0”？W:If W=0:Then Goto 1: Else Prog “SQS”: IfEnd↙Goto 0↙SQS（子程序，受主程序ZBFS调用，通过角度边长求交会点坐标值）Lbl 0: “S1=”？A: “J1=？M: “J2=”？N: “S2=？D:N-M→Q: If Q ＜0:Then Q+360→Q: IfEnd↙If Q＜45°0′0″:Then “ERROR PLEASE REPEAT”◢Goto 0: IfEnd↙√(A2+D2-2ADos(Q))→E: “S3=”:E◢If Abs(A-D)≥60:Then “ERROR PLEASE REPEAT”◢Goto 0: IfEnd↙If Abs(I-E)＜0.01:Then cos-1((A2+E2-D2)÷(2AE))→R: cos-1((D2+E2-A2) ÷(2DE))→G: Else “ERROR PLEASE REPEAT”◢Goto 0: IfEnd↙If J＜0:Then J+360→J:IfEnd↙(X+Acos(J+R)+S+Dcos(J+180-G))÷2→F: “X=”:F◢(Y+Asin(J+R)+T+Dsin(J+180-G))÷2→P: “Y=”:P◢SQX（主程序，竖曲线求线路各里程点中桩设计高程）1→S：“NEWZ SQXK”？S: If S=-1:Then ？U:？R:？T:？N:？I:？F: “HB”？B: IfEnd↙Lbl 0: “C”？K : If Int(K÷1000)>0 : Then Int(K÷1000)→V :Else “V”？V ：K+1000V→K：IfEnd↙If S≠-1:Then Prog “SQXK”: IfEnd↙U-T→G:K→Q: If Q≤G:Then Q-U→Q: Else Q-G→W: IfEnd↙If Q≤G:Then “H=”:B+QN÷1000→H◢Goto 1↙Else If Q≤U+T:Then “H=”:B+(Q-U)N÷1000+FW2÷(2R)→H◢Goto 1↙Else If Q≥U+T:Then “H=”:B+(Q-U)I÷1000→H◢Goto 1:IfEnd↙Lbl 1: “P”？P: “O=”:H-P→O◢Goto 0↙SQXK（子程序，受主程序SQX调用，竖曲线要素）If K≤竖曲线圆直点里程：Then 变坡点里程→U:变坡点设计高程→B:竖曲线圆曲线半径→R:竖曲线切线长→T:竖曲线直线段坡度常数（上、下坡有正负之分）→N:变坡点常数（凸为-1，凹为1）→F: Goto 0: IfEnd↙If K≤……（同上输完全部竖曲线要素为止）Lbl 0↙SDCQJC（子程序，受LD程序调用，采集隧道支护位置坐标高程数据一次性计算出该支护位置的超欠挖量）40→DimZ↙Lbl 0:Z[19]→Z[23]:Prog “SQXZ”↙Z[24]-Z[27]→Z[30]: Z[23]→Z[31] ↙If Z[31]≤Z[30]:Then Z[31]-Z[24]→Z[31]:Else Z[31]-Z[30] →Z[32]: IfEnd↙If Z[31]≤Z[30]:Then Z[25]+(Z[31])×(Z[28])÷1000→Z[33]: Goto 1↙Else If Z[31]≤Z[24]+Z[27]:Then Z[25]+(Z[31]-Z[24])×(Z[28])÷1000+(Z[29])×(Z[32])2÷(2×Z[26])→Z[33]: Goto 1↙Else If Z[31]≥Z[24]+Z[27]:Then Z[25]+(Z[31]-Z[24])×I÷1000→Z[33]: Goto 1: IfEnd↙Lbl 1: “H0=”:Z[33]+内轨面至圆心高差常数→Z[33]◢“HN”？K: “Δh=”:K-Z[33]→Z[34]◢If Z[20]≥隧道中心线与设计中心线的偏移量ω:Then Z[20]-ω→Z[35]:Else ω- Z[20]→Z[35] : IfEnd↙“RN=”:√（（Z[34]）2+（Z[35]）2）→Z[36]◢“R0”？Z: “RCQ=”: Z[36]-Z→Z[37]◢SQXZ（子程序，受主程序SDCQJC调用，竖曲线要素）40→DimZ↙If Z[23]≤竖曲线圆直点里程：Then 变坡点里程→Z[24]:变坡点设计高程→Z[25]:竖曲线圆曲线半径→Z[26]:竖曲线切线长→Z[27]:竖曲线直线段坡度常数（上、下坡有正负之分）→Z[28]:变坡点常数（凸为-1，凹为1）→Z[29]:IfEnd↙If Z[23]≤……（同上输完全部竖曲线要素为止）Lbl 0↙。

卡西欧5800基本测量程序

卡西欧5800程序（完整版）Lbl 31If A>P-T+L:Then P-T+S-B-I^Z: Else P-T+B+I-Z:IfEndlIf K=l:Then If A<P-T+S-L:Then D-E -> B: Else E-D-B:IfEnd:IfEndlIf K=-l:Then If A<P-T+S-L:Then E・D - B: Else D ・E- B:IfEnd:IfEndFSHHQX1Z[5]->X:Z[6]->Y:Z[l]+90K->JlProg " HHQX u IX—Z[3]:Y—Z[4]lRYJ+2Fr+90K—JlProg " XZBH " IX—G:Y—Z1Z[3]->X:Z[4]->Y IProg、' DOTLINE u JDZBProg ” QDZB IZ[5]-Z[3]:Z[6]-Z[4] IIf O=-l:Then P-T+S—A: Prog n QDZB n :Z[3]^Z[5]:Z[4]^ Z[6]: Else Z[l]+90K+K(L^(6R))r^J:L-L A34-(9eR2)^C: Prog ”XZBH ” "End I(Z[6]-Y+Xtan(Z[2])-Z[5]tan(Z[l]))^(tan(Z[2])-tan(Z[l]))->G ItanZ[2](G-X)+Y->ZlProg n FWJ HZFXZ If M=6:Then Prog " ZSPD " : Else Prog n FSTJ n :IfEndFSLINE Prog ” QDZB IX—G:Y—Z:J—NlProg M FWJ H IN—J:F-J—FlIcos(F)-GlIf G<D:Then If A>P-T+S-L:Then P・T+S+G—Z:Isin(F)-B:Else P-T-G^Z:-Isin(F)^B:IfEnd :1-A:2-O: Else 0-A:IfEndXZBHX+Ccos(J)^XlY+Csin(J)-YHENG PO If A<P-T+L-Z[10] :Then Z[8]->V:Gotol:IfEndlE:Z[8] + （A-P+T-L+Z[10]）E->V: Goto l:IfEndlIf A<P-T+S-L:Then Z[9]^V:Goto l:IfEndlIf A<P-T+S-L+Z[10]:Then （Z[8]-Z[9]）vZ[10]->E:Z[9] + （A-P+T-S+L）E->V: Goto l:IfEndlZ[8]->V ILbl 1GAO CHENG……（交点桩号）-0：……（交点高程）-D:……（小桩号坡度）-N:……（切线长度）-G:……（圆曲线半径）-R I If A<O-G:Then 0^K: Goto l:IfEndlIf A<O+G:Then 1-K: Goto l:IfEndl（K=0为直线、K=1为凸圆、K二・l为凹圆）……（同上）Lbl l:Prog " HENG PO " IK （ A6G ） 2+（2R）-P ID+N（A-O）-P+WV^Fl FWJJS （测回法测坐标）A 1 XA u:B ” YA n :C H XB ':D " YB 1: K H CHANG DU ” :G11JIAO DU 11I=0:J=0:Pol（C-A,D-B）:J<0 J=J + 360zlE=J+GlJ " FWJ 1X"X " =A+KcosE，Y ' Y n二B+KsinE，”END M说明：H JIAO DU ”顺时钟为正、逆时针为负,“ XA “、' YA ”为测站点坐标.”XB“. ”YB”为后视点坐标，“X”. “Y”为前视即待测点坐标，" CHANG DU ”为测站点到待测点距离。

【测量程序】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:涵洞放样程序（输入置仪点坐标。

卡西欧计算器5800测量放样程序

卡西欧5800程序(修改于湘桂)R（主程序，通过里程求中桩、边桩坐标，在输入测站坐标后并求极坐标放样要素）1→M :“NEWZ CIRCLE”？M : If M=-1: Then “JD”？U :“1-TR-1-TL” ? N : “AT ” ? O : “JX” ? S : “JY ” ? P : “L0 ” ? H : “R” ? R : “ZJ” ? A : IfEnd↙“OPP NAME ”？W : If W=-1 : Then “OPPX”？B : “OPPY”？C : Else Prog“CONTREL”:IfEnd↙Lbl 0: “C”？K : If Int(K÷1000)>0 : Then Int(K÷1000)→V :Else “V”？V ：K+1000V→K：IfEnd↙If M=1:Then Prog“CIRCLE” IfEnd↙H÷2-H^(3)÷(240R2)+(R+H2÷(24R))tan（A÷2）→T:πR(A-180H÷π÷R)÷180+2H→L↙U-T→G:K→Q↙If Q≤G+L÷2:Then Q-G→Q: Else G+L-Q→Q: IfEnd↙If Q＜0:Then Prog “L”:Goto1: IfEnd↙If Q≤H:Then Q-Q^(5)÷(40R2H2)→X:Q^(3)÷(6RH)-Q^(7)÷(336R^(3)H^(3)) →Y:90Q2÷(πRH) →F: Else 180(Q-H÷2)÷(πR) →F:Rsin(F)+H÷2-H^(3)÷(240R2) →X:R(1-Cos(F))+H2÷(24R) →Y: IfEnd↙Pol(T-X,Y) ↙If K≤G+L÷2:Then O-180-NJ→E:NF+O→F: “F=”:F▲DMS◢ ElseNA+NJ+ O→E: O+NA-NF→F: “F=”:F▲DMS◢IfEnd↙“X=”:S+Icos(E)→X◢“Y=”:P+Isin(E)→Y◢If F＜0:Then 360+F→F: IfEnd↙If F≥360:Then F-360→F: IfEnd↙Lbl1: “÷1”？Z: If Z=1:Then Prog “I”: IfEnd↙If Z=2:Then Prog “LD”: IfEnd↙If Z=-1:Then Prog “Q”: “X=”:X◢“Y=”: Y◢IfEnd↙Prog “P”↙Goto 0↙P（子程序，受主程序R调用，求极坐标放样要素:方位角及平距）Pol(X-B,Y-C): “D=”:I◢If J＜0:Then 360+J→J: Else 0+J→J: IfEnd↙“AQ=”:J▲DMS◢L（子程序，受主程序R调用，求直线上点位坐标及切线方位角）T-Q→Q:If K＜G:Then O+180→E: O→F: “X=”:S+Qcos(E)→X◢“Y=”:P+Qsin(E) →Y◢ Else O+NA→F: “X=” S+Qcos(F) →X◢“Y=”:P+Qsin(F) →Y◢IfEnd↙I（子程序，受主程序R调用，求边桩坐标）“RA”？E：“D”？D:E+F→E: If E≥360:Then E-360→E: IfEnd↙X+Dcos(E)→X: Y+Dsin(E)→Y: “X=”: X◢“Y=”: Y◢E→F↙Q（子程序，受主程序R调用，求副线边桩坐标）“1A”？E：“1D”？D：E+F→E↙X+Dcos(E)→X: Y+Dsin(E)→Y:E→F↙“2R”？E: “2D”？D: E+F→E↙X+Dcos(E)→X: Y+Dsin(E)→Y↙E→F↙LD（子程序，受主程序R调用，通过坐标反求里程和偏距）40→DimZ↙O→Z[1]:U→Z[2]:S→Z[3]: P→Z[4] ↙H÷2-H^(3)÷(240R2)→M: H2÷(24R)-H^(4)÷(2688R^(3))→V:90H2÷(πR)→D:(R+V)Tan(A÷2)+M→T: πRA÷180+H→K:O+NA→J:Prog“JD”:J→Z[21]:U-T+K→Z[22]: S-Tcos(O)→Z[5]:P-Tsin(O)→Z[6]:Z[5]+Mcos(O)+(R+V)cos(O+90N)→Z[7]:Z[6]+Msin(O)+ (R+V)sin(O+90N)→Z[8] ↙H-H^(5)÷(40R2H2)→Z:H^(3)÷(6RH)-H^(7)÷(336R^(3)H^(3))→C: Pol(C,Z):90-J→J:Prog“JD”: O+JN→J:Prog“JD”↙Z[5]+Icos(J)→Z[9]:Z[6]+Isin(J)→Z[10]:S+Tcos(Z[21])→Z[11]: P+Tsin(Z[21])→Z[12] ↙Pol(Z[10]-Z[8],Z[9]-Z[7]):90-J→J:Prog“JD”:J→Z[13] ↙J+(A-2D)N→J: Prog“JD”: J→Z[14] ↙“CEDIAN”◢Lbl 0: ↙“B”？B:If B=0:Then Prog “R”: IfEnd↙“XN=”？X: “YN=”？Y:Pol(Y-Z[8],X-Z[7]) ↙90-J→J: Prog“JD”:J→W:J-Z[13]→J↙Prog“JD”:J→Z[15] ↙W-Z[14]→J↙Prog“JD”:J→Z[16] ↙If N=1:Then Goto 1: IfEnd↙If N=-1:Then Goto 2: IfEnd↙Lbl 1: ↙If Z[15]＞180：Then Goto 3: IfEnd↙If Z[16]≤180：Then Goto 5:Else Goto 4 : IfEnd↙Lbl 2: ↙If Z[15]＜180：Then Goto 3: IfEnd↙If Z[16] ＞180：Then Goto 5:Else Goto 4 : IfEnd↙Lbl 3: ↙“H1”◢Pol(Y-Z[6],X-Z[5]):90-J→J: Prog“JD”↙J-Z[1]+90→J: Prog“JD”↙Isin(J)→G↙If G＞0:Then 0→L:Goto 6: IfEnd↙If G≤0:Then “DK=”:Z[2]-T+G→Z[19]◢If N=1:Then “LD=”:-NIcos(J)→Z[20]◢Else “LD=”:NIcos(J) →Z[20]◢IfEnd↙“SD=1,LD≠1”？D:If D=1:Then Prog “SDCQJC”: IfEnd↙Goto 0↙Lbl 4: ↙“Y”◢If N=-1:Then 360-Z[15]→Z[15]: IfEnd: “DK=”:Z[2]-T+H+πR(Z[15])÷180→Z[19]◢If N=1:Then “LD=”:-(I-R)→Z[20]◢Else “LD=” :I-R→Z[20]◢IfEnd↙“SD=1,LD≠1”？D:If D=1:Then Prog “SDCQJC”: IfEnd↙Goto 0↙Lbl 5: ↙“H2”◢Pol(Y-Z[12],X-Z[11]):90-J→J: Prog“JD”:J→W:Z[21]-90→J: Prog“JD”:W-J→J: Prog“JD”:Isin(J)→G:If G＜0:Then 0→L: -G→G↙Goto 7: IfEnd↙If G≥0:Then “DK=”:Z[22]+G→Z[19]◢IfEnd: If N=1:Then “LD=”:-NIcos(J)→Z[20]◢Else “LD=”:NIcos(J)→Z[20]◢IfEnd↙“SD=1,LD≠1”？D:If D=1:Then Prog “SDCQJC”: IfEnd↙Goto 0↙Lbl 6: ↙L+G→L:L-L^(5)÷(40R2H2)→Z:L^(3)÷(6RH)-L^(7)÷(336R^(3)H^(3)) →C:Pol(C,Z):90-J→J: Prog“JD”:J→W:Z[1]+WN→J: Prog“JD”:Z[5]+Icos(J)→Z[17]: Z[6]+Isin(J) →Z[18] ↙J+2WN→J: Prog“JD”:J-90→J: Prog“JD”:J→W↙Pol（Y-Z[18],X-Z[17]）:90-J→J: Prog“JD”↙J-W→J: Prog“JD”:Isin(J)→G:If Abs(G)＞0.001:Then Goto 6: IfEnd↙“DK=”:Z[2]-T+L+G→Z[19]◢If N=1:Then “LD=”:-Ncos(J) →Z[20]◢Else“LD=”:NIcos(J) →Z[20]◢IfEnd↙“SD=1,LD≠1”？D:If D=1:Then Prog “SDCQJC”: IfEnd↙Goto 0↙Lbl 7: ↙L+G→L:L-L^(5)÷(40R2H2)→Z:L^(3)÷(6RH)-L^(7)÷(336R^(3)H^(3)) →C:Pol(C,Z):90-J→J: Prog“JD”:J→W:Z[21]-180-WN→J: Prog“JD”↙Z[11]+Icos(J)→Z[17]:Z[12]+Isin(J)→Z[18]:J-2WN→J: Prog“JD”↙J-90→J: Prog“JD”:J→W↙Pol(Y-Z[18],X-Z[17]):90-J→J: Prog“JD”↙J-W→J:Prog “JD”↙Isin(J)→G: If Abs(G)＞0.001:Then Goto 7:IfEnd↙“DK=”:Z[22]-L-G→Z[19]◢If N=1:Then “LD=”:NIcos(J)→Z[20]◢Else“LD=”:-NIcos(J) →Z[20]◢IfEnd↙“SD=1,LD≠1”？D:If D=1:Then Prog “SDCQJC”: IfEnd↙Goto 0↙JD（子程序，受LD程序调用，计算角度归化值）If J＜0:Then J+360→J: IfEnd↙If J≥360:Then J-360→J: IfEnd↙CIRCLE（子程序，线路平面曲线要素，受主程序R调用）If K≤缓直点里程:Then 交点里程→U:交点X坐标→S:交点Y坐标→P:转角值→A:-1（曲线段左偏）或1（曲线段右偏）→N:圆曲线半径→R:缓和曲线长→H:直线段起始方位角→O:Goto 1: IfEnd↙If K≤……（同上输完全部曲线要素为止）Lbl 1↙CONTREL（控制点坐标数据库子程序，受主程序R和ZBFS调用）If W=控制点点号:Then 控制点X坐标→B:控制点Y坐标→C: IfEnd ↙If W=……（同上输完全部控制点数据为止）ZBFS（主程序，求两已知点方位角及平距,或已知两点求后方交会点坐标）Lbl 0:1→W: “NEW OPP”？W:If W=1:Then “OPPX”？X: “OPPY”？Y:Else Prog “CONTREL”:B→X:C→Y: IfEnd↙Lbl 1:-1→W: “NEW CPP”？W: If W=-1:Then “CPPX”？S: “CPPY”？T: Else Prog “CONTREL”:B→S:C→T: IfEnd↙Pol(S-X,T-Y): “D=”:I◢If J＜0:Then J+360→J: Else 0+J→J: IfEnd↙“AQ=”:J▲DMS◢Lbl 2:0→W: “ZBFS=0,SQS≠0”？W:If W=0:Then Goto 1: ElseProg “SQS”: IfEnd↙Goto 0↙SQS（子程序，受主程序ZBFS调用，通过角度边长求交会点坐标值）Lbl 0: “S1=”？A: “J1=？M: “J2=”？N: “S2=？D:N-M→Q: If Q ＜0:Then Q+360→Q: IfEnd↙If Q＜45°0′0″:Then “ERROR PLEASE REPEAT”◢Goto 0: IfEnd↙√(A2+D2-2ADos(Q))→E: “S3=”:E◢If Abs(A-D)≥60:Then “ERROR PLEASE REPEAT”◢Goto 0: IfEnd↙If Abs(I-E)＜0.01:Then cos-1((A2+E2-D2)÷(2AE))→R: cos-1((D2+E2-A2) ÷(2DE))→G: Else “ERROR PLEASE REPEAT”◢Goto 0: IfEnd↙If J＜0:Then J+360→J:IfEnd↙(X+Acos(J+R)+S+Dcos(J+180-G))÷2→F: “X=”:F◢(Y+Asin(J+R)+T+Dsin(J+180-G))÷2→P: “Y=”:P◢SQX（主程序，竖曲线求线路各里程点中桩设计高程）1→S：“NEWZ SQXK”？S: If S=-1:Then ？U:？R:？T:？N:？I:？F: “HB”？B: IfEnd↙Lbl 0: “C”？K : If Int(K÷1000)>0 : Then Int(K÷1000)→V :Else “V”？V ：K+1000V→K：IfEnd↙If S≠-1:Then Prog “SQXK”: IfEnd↙U-T→G:K→Q: If Q≤G:Then Q-U→Q: Else Q-G→W: IfEnd↙If Q≤G:Then “H=”:B+QN÷1000→H◢Goto 1↙Else If Q≤U+T:Then “H=”:B+(Q-U)N÷1000+FW2÷(2R)→H◢Goto 1↙Else If Q≥U+T:Then “H=”:B+(Q-U)I÷1000→H◢Goto 1:IfEnd↙Lbl 1: “P”？P: “O=”:H-P→O◢Goto 0↙SQXK（子程序，受主程序SQX调用，竖曲线要素）If K≤竖曲线圆直点里程：Then 变坡点里程→U:变坡点设计高程→B:竖曲线圆曲线半径→R:竖曲线切线长→T:竖曲线直线段坡度常数（上、下坡有正负之分）→N:变坡点常数（凸为-1，凹为1）→F: Goto 0: IfEnd↙If K≤……（同上输完全部竖曲线要素为止）Lbl 0↙SDCQJC（子程序，受LD程序调用，采集隧道支护位置坐标高程数据一次性计算出该支护位置的超欠挖量）40→DimZ↙Lbl 0:Z[19]→Z[23]:Prog “SQXZ”↙Z[24]-Z[27]→Z[30]: Z[23]→Z[31] ↙If Z[31]≤Z[30]:Then Z[31]-Z[24]→Z[31]:Else Z[31]-Z[30] →Z[32]: IfEnd↙If Z[31]≤Z[30]:Then Z[25]+(Z[31])×(Z[28])÷1000→Z[33]: Goto 1↙Else If Z[31]≤Z[24]+Z[27]:Then Z[25]+(Z[31]-Z[24])×(Z[28])÷1000+(Z[29])×(Z[32])2÷(2×Z[26])→Z[33]: Goto 1↙Else If Z[31]≥Z[24]+Z[27]:Then Z[25]+(Z[31]-Z[24])×I÷1000→Z[33]: Goto 1: IfEnd↙Lbl 1: “H0=”:Z[33]+内轨面至圆心高差常数→Z[33]◢“HN”？K: “Δh=”:K-Z[33]→Z[34]◢If Z[20]≥隧道中心线与设计中心线的偏移量ω:Then Z[20]-ω→Z[35]:Else ω- Z[20]→Z[35] : IfEnd↙“RN=”:√（（Z[34]）2+（Z[35]）2）→Z[36]◢“R0”？Z: “RCQ=”: Z[36]-Z→Z[37]◢SQXZ（子程序，受主程序SDCQJC调用，竖曲线要素）40→DimZ↙If Z[23]≤竖曲线圆直点里程：Then 变坡点里程→Z[24]:变坡点设计高程→Z[25]:竖曲线圆曲线半径→Z[26]:竖曲线切线长→Z[27]:竖曲线直线段坡度常数（上、下坡有正负之分）→Z[28]:变坡点常数（凸为-1，凹为1）→Z[29]:IfEnd↙文档来源为:从网络收集整理.word版本可编辑.欢迎下载支持. If Z[23]≤……（同上输完全部竖曲线要素为止）Lbl 0↙。

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↙直线短链要将该直线分成二条直线来对待编制数据库文件即可，曲线长链要单独建判定语句子程序并然后编制二个数据库（按来向里程和去向里程分别推出曲线起终点里程，以此编制曲线段的数据库）。

卡西欧5800坐标计算程序(通俗易懂版)

卡西欧5800道路坐标测量程序（通俗易懂版）主程序（自己给取个名吧）2→Dimz“1.SZ＝﹥XY2.XY＝﹥SZ”◢“N=”?NIf N=1:Then Goto 1:Else Goto 2:IfEndLbl 1“S=”?S“Z=”?Z“J=”?TIf S﹤0:Then Prog “SYL”:Else Prog “SYR”:IfEnd(可拿掉)1÷P→C:(P-R) ÷(2HPR)→D:180÷∏→E:Abs(Abs(S)-O)→W:Prog “SUB1”“QJ=”:Z[1]◣DMS◢“X=”:X◢“Y=”:Y◢Goto 1Lbl 2“S=”?SIf S<0:Then Prog “SYL”:Else Prog “SYR”:IfEnd(可拿掉) 90→T1÷P→C:(P-R) ÷(2HPR)→D:180÷∏→E“X=”?X“Y=”?YX→I:Y→JProg “SUB2”O+W→S（红色加粗加下画线为字母，常规为零）“S=”:S◢Z→Z“Z=”:Z◢Goto 2子程序（SUB1）0.1739274226→A：0.3260725774→B:0.0694318442→K:0.3300094782→L:1-L→F:1-K→M:U+W(Acos(G+QEKW(C+KWD))+Bcos(G+QELW(C+LWD))+Bcos(G+QEFW(C +FWD))+Acos(G+QEMW(C+MWD)))→XV+W(Asin(G+QEKW(C+KWD))+Bsin(G+QELW(C+LWD))+Bsin(G+QEFW(C+F WD))+Asin(G+QEMW(C+MWD))) →YG+QEW(C+WD)→Z[1]Z[1]+T→FX+Zcos(F)→XY+Zsin(F)→YReturn子程序(SUB2)G-90→Z[2]:Abs((Y-V)cos(Z[2])-(X-U)sin(L)→W:0→ZLbl 0Prog “SUB1”Z[2]+QEW(C+WD)→L(J-Y)cos(L)-(I-X)sin(L)→ZIf Abs(Z)<10(-6):Then Goto 1:EIse W+Z→W:Goto 0:IfEndLb1 10→Z:Prog “SUB1”(J-Y)÷sin(F)→ZReturn数据库（SYR）If S>29599.031(本段线元计算范围起点里程) And S≤29759.031(本段线元计算范围终点里程):Then 3311072.206(本段线元起点X坐标)→U:502909.1014(本段线元起点Y坐标)→V: 29599.031(本段线元起点里程)→O:256-25-59.11(本段线元起点方位角)→G:160(本段线元长度)→H:1400(本段线元起点半径)→P:10(45)(本段线元终点半径)(直线段为10的45次方)→R:-1(线元转向标识)(左偏为-1,右偏为1,直线为0)→Q:IfEnd输入说明正算 1 输入 N:输入1进入计算坐标模式S:里程桩号Z:偏距J:与线路角度2 显示 QJ:切线方位角X:X坐标Y:Y坐标反算 1 输入 N:输入2进入坐标反算里程偏距模式S:输入相近里程X:输入X坐标Y:输入Y坐标2 显示 S:反算出的里程桩号Z:反算出的偏距。

卡西欧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：方位角2、坐标反算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：方位角3、圆曲线”X0=〃X: ”Y0=〃Y:”FWJ=〃D:”QDHAO=〃G: ”ZDHAO=〃C: ”R=〃RLbl 1”DQHAO=〃LL<G Or L＞C GOTO 2”PY=〃K180(L-G)÷(πR) →E2RSin →FReC(Abs(F),D+：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：偏移量4、竖曲线”QZHAO =〃J: ”H+B〃=B:”I1=〃C:”I2=〃D:”R=〃R:”T=〃T:((D-C)÷100) ÷Abs((D-C) ÷100)→A:Abs(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) →HLbl 1”END〃说明：QZHAO：曲中点里程，H+B：曲中点高程，I1：第一坡度，I2：第二坡度，R：半径，T：切线长，DQ：待求点里程。

卡西欧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：方位角2、坐标反算Lbl 0＂X1=″?X:＂Y1=″?Y:＂X2=″?U:＂Y2=″?V?Pol(U-X,V-Y):?J<0 J+360→J＂I=″:I＂J=″:J DMSGOTO 0说明：X1Y1：第一点的坐标，X2Y2第二点的坐标，I：两点的距离，J：方位角3、圆曲线＂X0=″?X: ＂Y0=″?Y:＂FWJ=″?D:＂QDHAO=″?G: ＂ZDHAO=″?C: ＂R=″?RLbl 1＂DQHAO=″?LL<G Or L＞C GOTO 2＂PY=″?K180(L-G)÷(πR) →E2RSin →FReC(Abs(F),D+：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：偏移量4、竖曲线＂QZHAO =″?J: ＂H+B″=?B:＂I1=″?C:＂I2=″?D:＂R=″?R:＂T=″?T:((D-C)÷100) ÷Abs((D-C) ÷100)→A:Abs(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：待求点里程。

FX5800计算器测量程序集2.4_版使用说明综述

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,返回选择计算类型，输入-2,返回选择线路。

计算内程序排例：0、01（测量资料专用）、02、0XYH 、1DAO XIAN、1SC （水准测量用）、1XY、2XY-S（由坐标计算面积）、2ZD、3GC、4GD、5BP、6FM、7ZP、8JS、9SD、A、AB、B、B6（测量表格检表6）、B7（检表7）、B8（检表8）、B9（检表9）、C、DX、DX0、F、G1、H、HX、I、I1、JS、M（度分秒转十进制）、QX、S、S1、SD0、SD1、T、W1、X1、XY、（五点通线元法计算坐标）、ZD带有不完整缓和曲线的线元转交点数据程序（T）。

5800测量程序(通用程序)

5800测量程序（不规则曲线也能计算）一、主程序由4800程序改编而成1．主程序（TYQXJS）Lbl4:”1.S Z﹦﹥XY”:”2.XY﹦﹥SZ”:?N:?S:Prog”SUB0”↙1÷P→C:(P-R) ÷(2HPR)→D:180÷∏→E:N=1﹦﹥Goto1:Goto2: ↙Lbl1:?Z:Abs(S-O)→W:Prog”SUB1”:”XS=”:X◢“YS=”:Y：◢◢Goto4↙F-90→F:”FS=”Lbl2:?X:?Y:X→I:Y→J:Prog”SUB2”:O+W→S:”S=”:S◢”Z=”:Z◢Goto4↙2．正算了程序(SUB1)0.1739274226→A:0.3260725774→B:0.0694318442→K:0.3300094782→L:1-L: →F:1-K→M:U+W(W(Acos(G+QEKW(C+KWD))+Bcos(G+QELW(C+LWD))+Bcos(G+QEFW(C+FWD))+Acos(G+QEMW(C+MWD)))V+W( Asin(G+QEKW(C+KWD))+Bsin(G+QELW(C+LWD))+Bsin(G+QEFW(C+FWD))+Asin(G+QEMW(C+MWD))) →Y:G+QEW(C+WD)+90→F:X+Zcos(F)→X:Y+Zsin(F)→Y2.反算子程序(SUB2)G-90→T:Abs((Y-V)cos(T)-(X-U)sin(T))→W:Q→Z:Lblo:Prog”SUB1”:T+QEW(C+WD)→L:(J-Y)cos(L)-(I-X)sin(L)→Z:IFAbs(Z)＜1*10^(-6):ThenGoto1:ElseW+Z→W:GotoQ:IFend Lb11:Q→Z:Prog”SUB1”(J-Y)/sin(F)→Z3．SUB0数据库子程序Goto1↙同时保存多个曲线时的指针Lbl1:IF S＜(输入线元的终点里程):Then(输入线元的起点方位角)→G:(输入线元的起点里程)→O:(输入起点X坐标) →X:(输入起点Y坐标)→V:(输入线元的起点曲线半径)→P:(输入线元的终点曲线半径)→R:(输入起点至终点的长度)→H:0或1、-1→Q：Return:IfEnd↙Lbl1:IF S＜(输入线元的终点里程):Then(输入线元的起点方位角)→G:(输入线元的起点里程)→O:(输入起点X坐标) →X:(输入起点Y坐标)→V:(输入线元的起点曲线半径)→P:(输入线元的终点曲线半径)→R:(输入起点至终点的长度)→H:0或1、-1→Q：Return:IfEnd↙…………………………每增加一个线元增加一行语句，每增加一条曲线增加一个Lbl，每增加一个工程增加一个文件。

CASIO-5800计算器公路测量常用程序

CASIO-5800计算器公路测量常用程序一、程序功能本程序由6个主程序、5个次子程序及5个参数子程序组成。

主要用于公路测量中坐标正反算，设计任意点高程及横坡计算,桥涵放样，路基开挖口及填方坡脚线放样。

程序坐标计算适应于任何线型.二、源程序1.主程序1：一般放样反算程序(①正算坐标、放样点至置仪点方位角及距离；②反算桩号及距中距离)程序名:1ZD-XYLb1 0:Norm 2F=1：(正反算判别，F=1正算，F=2反算,也可以改F前加？，改F为变量)Z[1]=90（与路线右边夹角）Prog＂THB＂：F=1=>Goto 1:F=2=>Goto 2Lb1 1:Ｆix 3:＂Ｘ=＂：Locate 6,4,Ｘ◢＂Ｙ＝＂：Locate 6,4,Ｙ◢Ｐrog＂3JS”:Goto 0:Lb1 2:Fix 3:＂ＫＭ＝＂：Locate 6,4,Ｚ◢＂Ｄ＝＂：Locate 6,4,Ｄ◢Ｇoto 0２．主程序２：高程序横坡程序(设计任意点高程及横坡)程序名：2GCLbI 0:Norm 2“KM”?Z:?D:Prog”H”:Fix 3:”H=”:Locate 6,4,H◢“I=”: Locate 6,4,I◢Goto 03.主程序3：极坐放样计算程序(计算放样点至置仪点方位角及距离)程序名：3JSX：Y：1268．123→K(置仪点X坐标)2243．545→L（置仪点Y坐标，都是手工输入,也可以建导线点数据库子程序,个人认为太麻烦）Y-L→E：X-K→F：Pol(F,E):IF J<0:ThenJ+360→J:Int(J)+0.01Int(60Frac(J))+0.006Frac(60Frac(J)) →J:(不习惯小数点后四位为角度显示的，也可以用命令J◢DMS◢来直接显示) Fix 4:” FWJ=”: Locate 6,4,J◢(不习惯小数点后四位为角度显示的，也可以用命令J◢DMS◢来直接显示)Fix 3:”S=”:Locate 6,4,I◢4．主程序4：涵洞放样程序（由涵中心桩号计算出各涵角坐标、在主程序3中输入置仪点坐标后计算放样点至置仪点方位角及距离)程序名：4JH-XYLbI 0:Norm 290→Z[1](涵洞中心桩与右边夹角，手工输入，也可以修改成前面加？后变为变量)1→F:Prog”THB”:?L:Z[2]-Z[1] →E:X+Lcos(E) →X:Y+Lsin(E) →Y:Fix 3: ＂Ｘ=＂：Locate 6,4,Ｘ◢＂Ｙ＝＂：Locate 6,4,Ｙ◢Ｐrog＂3JS”:Goto 0:5．主程序5:路基开挖边线及填方坡脚线放样程序（输入大概桩号及测量坐标、地面标高计算出偏移距离、桩号、距中距离、填挖高度）程序名：5FBXLbI 0:Norm 2: 18→DimZ:2→F:90→Z[1]:Prog“THB”:Z:D:”M0”?M:M→Z[4]:D→Z[3]:Prog”6GD”:L→Z[6]:If D<0:Then 0.75-L→D:Goto H:Else L-0.75→D:Goto H:IfEndLbI H:Prog”H”:H-0.03-Z[4] →Z[5]:Z[6] →L:If Z[5]<0:Then –z[5]→G:Goto W:Else Z[5] →G:Goto T:LbI W:Prog “W0”:Z[10]+Z[11] →A: If G>A:Then Goto 1:Else IfG>Z[10]:Then Goto 2:Else Goto 3:IfEnd:LbI 1:L+Z[12]+Z[13]+Z[14]+(G-A)×Z[9]+Z[11]×Z[8]+Z[10]×Z[7]:Goto Z:LbI 2:L+Z[12]+Z[13]+(G-Z[10])×Z[8]+Z[10]×Z[7]:Goto Z:LbI 3:L+Z[12]+G×Z[7]:Goto z:LbI T:L+0.5→N:If G>Z[17]:Then(N+Z[18]+(G-Z[17])×Z[16]+Z[17]×Z[15])→S:Goto Z:Else(N+G×Z[15])→S:Goto z:LbI Z:Z[3]→D:Fix 2:Abs(D)-S→T:”L0=”:L Locate 6,4,T◢＂ＫＭ＝＂：Locate 6,4,Ｚ◢＂Ｄ＝＂：Locate 6,4,Ｄ◢“TW=”: Locate 6,4,Z[5]◢Goto 06．主程序6：路基标准半幅宽度计算程序(对于设计有加宽渐变的有用，如路基宽度无变化，则把此程序直接输入半幅宽度值至L)程序名：6GDProg “G0”Z-C→E:(B-A)×E/S+A→L:L:7．坐标计算次程序（ＴＨＢ）程序名：THB18→DimZ：＂ＫＭ＂?Z：Prog ＂Ｘ０＂1÷P→Ｃ： (P-R)÷(2HPR) →Ｓ：180÷π→Ｅ：Ｆ=1=>Goto 1：Ｆ=2=>Goto 2←┘Lbl 1：?Ｄ： Abs(Ｚ－O) →W：Prog "Ａ"：X：Ｙ：Ｇoto 3LbI 2:Ｘ：Ｙ：Ｘ→I：Ｙ→J：Prog ＂Ｂ＂：Ｏ＋Ｗ→Z：Ｄ→Ｄ：Ｇoto 3 LbI 3:IF Ｆ＝１Then Ｘ：Ｙ：Else Ｚ：Ｄ8. 正算子程序(Ａ)程序名：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（Ｚ［２］）→Ｘ： Y+Ｄsin（Ｚ［２］）→Ｙ9. 反算子程序(Ｂ)程序名：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(Ｄ)<0.01:Then Goto1：Else W+Ｄ→W:Goto 0←┘Lbl 1:0→D：Prog "Ａ"：(J-Y)÷si n(Ｚ［２］) →D:10．高程计算子程序（H）程序名：HProg “S0”:R:T:C:G:I:C-T→F:Z-F→L:C+T→E:G-TI→Q:If T=O:ThenQ+LI→H:Goto 0:Else If Z<F:Then Q+LI→H:Goto 0:Else If Z≤E:ThenQ+LI+L2÷2÷R→H:Goto 0:LbI 0:H:If D=0:Then Goto I:Else Prog “I”:H+V→H:Goto I:LbI I:H:I: 11.高程超高计算程序（I）程序名：IProg”I0”:W=1=> Goto 0:W=2=>Goto 1:LbI 0:If L=0:Then Abs(D)×M→V:Goto 2:ElseAbs(D)×((N-M)×(Z-C)÷L+M)→V:Goto 2:IfEnd:LbI 1:If L=0:Then Abs(D)×M→V:Goto 2:ElseAbs(D)×(((3((Z-C)÷L)2-2((Z-C)÷L)∧(3))×(N-M))+M)→V:Goto 2:IfEnd: LbI 2:Abs(D)→E:V÷E→I:I(E-K)→V:12．数据子程序(附后示例)①程序名：X0（坐标计算要素程序）If Z≥25900 And Z≤26615.555:Then25900→O:11587.421→U:1847.983→V:101。

5800计算机测量程序

5800计算机测量程序1:主程序（SUB1）万功能“X0=“？U：”Y0=“？V：”S0=“？O：”F0=“？G：”LS=“？H：”R0=“？P：”RN=“？R：”Q=“？Q：↘(1÷P)→C:(P-R)÷(2HPR)→D:(180÷Π)→E↘Lb1 1↘”S=”?S:”Z=”? Z↘Abs(S-O)→W:0.1739274226→A：0.3260725774→B：0.0694318442→K：0.3300094782→L：1-L→F：1-K→M：↘U+W（Acos(G+QEKW（C+KWD）)+Bcos（G+QELW（C+LWD））+Bcos（G+QEFW（C+FWD））+Acos（G+QEMW（C+MWD）））→X↘V+W（Asin（G+ QEKW（C+KWD）)+ Bsin（G+QELW （C+LWD））+Bsin（G+QEFW（C+FWD））+Asin（G+QEMW （C+MWD）））→Y↘G+QEW（C+WD）+90→F：X+Zcos(F)→X：Y+Zsin（F）→Y↘”X=”:X◢”Y=”:Y◢F-90→F:”FS=”F▲DMS◢”N=”?N:”T=”?T↘Po1(X-N,Y-T) ↘If J<0:Then J+360→J:Else J→J:IfEnd↘”J=”:J▲DMS◢”I=”:I◢ GOTO 1使用说明：U：“XO”起点的X坐标，V：“YO”起点的Y坐标，O：“SO”起点的里程桩号G：“FO”起点的方位角，H：“LS”计算段线元的长度，P：“RO”线元起点的曲率半径，R：“RN”线元终点曲率半径，“Q ”线元图形信息（直线段Q=0，左偏Q=-1，右偏Q=1）以道路中线前进方向（即大里程方向）区分左右。

S:“待求点的里程桩号，Z:“待求点的里程偏距（在中线上取零，左侧取负值，右侧取正值）。

Lb1 0↘”N=”?N:”T=”?T:”X=”?X:”Y=”?Y↘Po1(X-N,Y-T) ↘IfJ<0:Then J+360→J:Else J→J:IfEnd↘”J=”:J▲DMS◢:I=”:I◢使用说明：N:T:是起点的坐标（X，Y）X：Y：是终点的坐标3：主程序（ZJZP）正算（直线）Lb1 1↘”D=”?D:”C=”?C:”H=”?H:”M=”?M↘Dcos(C)+H→X↘Dsim(C)+M→Y↘”X=”:X◢”Y=”:Y◢Goto 1使用说明：D:求点的里程，C：起点方位角H：M：起点坐标（X，Y）3：主程序（SQX）竖曲线高程“JDZH“：？U：“GC”？M：“T”？T：“I1”？I：“I2”？P：“R”？R↘Lb1 0↘”N”?N↘If N>U:Then Goto 1:IfEnd↘M-(U-N)I→Y↘(N-U+T) 2÷(2R)→G↘If I-P>0:Then Y-G→E:Else Y+G→E:IfEnd↘If N U-T:Then Y→Y◢Else E→Y◢IfEnd↘Goto 0↘Lb1 1↘M+(N-U)P→H↘(N-U-T) 2÷(2R)→C↘If I-P>0:Then H-C→F:Else H+C →F:IfEnd↘If N U+T:Then H→Y◢Else F→Y◢IfEnd:Goto 0↘使用说明：U:曲中里程，GC：曲中高程，T：线元长度，I1：第一坡度，I2：第二坡度R：线元半经，N：要求里的高程程Lb1 0↘”C=”?:”M=”?M↘((C÷2)2÷M)÷2→R↘“R=”：R◢Goto 0 5:主程序（QHC）求弧长L b1 8↘”A=”?A:”R=”?R↘A×R×Π÷180→L↘”L=”:L◢Goto 8↘6:主程序（QYXJ）求圆心Lb1 8↘”L=”?L:”R=”?R↘180L÷(ΠR)→A↘”A=”:A▲DMS◢Goto 8 5：主程序（XZJ）支距法Lb1 0↘”L=”?L:”S=”?S:”R=”?R↘50S(L-S)÷R÷100→F:”F=”:F◢Goto 06：主程序（ZX）“X”?X:”Y”?Y:” X3”?A:”Y3”?B :“X4”?E:”Y4”?F:”H”?H↘Lb1 3↘”K”?K:’D”?D↘Po1(E-A,F-B)↘√((K-H) 2+D2)→V↘J+tan -1(D÷(K-H))→W:A+Rec(V,W)→U↘B+J→Z↘”X=”:U◢”Y=”:Z◢Po1(U-X,Z-Y)↘If J<0:Then J+360→J:Else J→J:IfEnd↘”l=”:IDMS◢Goto 3◢”HR=”:J▲使用说明：X:Y:输入测站的坐标，X3:Y3:输入起点的坐标X4:Y4:输入终点的坐标，H:起点的里程，K:要求里程D:左（输入负-）中（输入零0）右（输入正+）6:主程序（YQX）圆曲线“X”?X:”Y”?Y:”N(=1),(=-1)”?N:”X5”?G:”Y5”?S:”X6”?O:”Y6”?P:’R”?R:”H”?H↘Po1 (O-G,P-S)↘J+N×cos-1(I÷2÷R) →W↘G+R×cos(w)→V↘S+R×sin(W)→T↘W+180→L↘Lb1 3↘”K”?K:”D"?D↘(180×(K-H)) ÷(ΠR)→M↘Rec(R-ND,L+NM) ↘V+I→U:T+J→Z↘”X=”:U◢”Y=”:Z◢Pol(U-X,Z-Y) ↘If J<0:Then J+360→J:Else J→J:IfEnd ↘”L=”:I◢”FWJ=”:J▲DMS◢Goto 3使用说明X:Y:输入测站的坐标，N(=1),(=-1):左右转，X5:Y5:输入起点的坐标，X6:Y6:输入终点的坐标，R：输入半径，H:起点的里程，K:要求里程D:左（输入负-）中（输入零0）右（输入正+）X:Y:输入测站的坐标，N(=1),(=-1):左右转，X3:Y3:输入起点的坐标，X4:Y4:输入终点的坐标，R：输入半径，H:起点的里程，K:要求里程D:左（输入负-）中（输入零0）右（输入正+）。

卡西欧5800测量实用程序(含直线、圆曲线、大地转施工程序)

卡西欧5800测量实用程序(含直线、圆曲线、大地转施工程序)一、直线计算程序0→I:0→J:”X0”?D:”Y0”?E:”X1”?B:”Y1”?C:Pol(B-D,C-E):J →A:If A<0:Then A+360→A:Else A→A:IfEnd:Lbl 0:?O:?S:If O≠0:Then Goto 1:IfEnd:D+Scos(A) →X:”X=”:X ◢E+Ssin(A) →Y:”Y=”:Y ◢Goto 0:Lbl 1:D+Scos(A)+Ocos(A+90) →X:”X=”:X ◢E+Ssin(A)+Osin(A+90) →Y:”Y=”:Y ◢Goto 0说明：输入程序时注意区别字母O 与数字0程序运行时符号说明X0? Y0? 分别输入直线起点的XY 坐标值X1? Y1? 分别输入直线终点的XY 坐标值O? 输入边桩与中桩的距离( 左边桩为负值, 右边桩为正值), 如计算中桩坐标输入0S? 输入所求点到直线起点的距离二、圆曲线计算程序0→I:0→J: ”X0”?C:”Y0”?D:”X1”?E:”Y1”?F:?R:”L:-1 R:1”?N:”ZY”?W:Lbl 0:”LN”?T:T-W→O:Pol(E-C,F-D):I→S:J→A: If A<0:Then A+360→A:Else A →A:IfEnd:sin-1(S÷(2R)) →K:2∏RK÷180→L:180O÷(2∏R) →G:(2R)sin(G) →H:C+Hcos(A-KN+GN) →X:”X=”:X ◢D+Hsin(A-KN+GN) →Y:”Y=”:Y ◢R-0.5√(4R2-H2) →Q:”Q=”:Q ◢“S=”?V:If V=0:Then Goto 0:IfEnd:”L:-90 R:90”?U:X+Vcos(A-KN+2GN+U) →X:”X=”:X ◢Y+Vsin(A-KN+2GN+U) →Y:”Y=”:Y ◢Goto 0说明：输入程序时注意区别字母O 与数字0程序运行时符号说明X0? Y0? 分别输入直线起点的XY 坐标值X1? Y1? 分别输入直线终点的XY 坐标值R? 输入圆曲线半径L:-1 R:1? 圆曲线向左转弯时输入-1, 向右转弯时输入1ZY? 输入起点桩号LN? 输入所求点桩号( 按下exe 键后显示中桩坐标)S? 输入所要求的边桩与中桩的距离L:-90 R:90 要求左边边桩输入-90, 右边边桩输入90( 按下exe 键后显示边桩坐标)三、大地转施工“QK=”？Z:“QX=”？A:“QY=”?B:“ZX=”？O :“ZY=”？Q ↙Pol( O -A,Q-B) ↙J<0=>J+360→J ↙J>360=>J-360→J ↙J→F:“JF=”：F ◆DMS ◢Lb1 0 ↙？X:?Y ↙Pol （X-A,Y-B):I→D ↙J<0=>J+360→J ↙J>360=>J-360→J ↙J-F→T:T→G ↙T<0=>T+360→G ↙T>360=>T-360→G ↙Z+Dcos （G)→K:“K=”：K ◢Dsin （G)→C:“C=”：C ◢GoTo 0 ↙说明：QK-- 输入线路起始点里程QX-- 输入线路起始点中桩X 坐标QY-- 输入线路起始点中桩Y 坐标ZX-- 输入线路前进方向中桩X 坐标ZY-- 输入线路前进方向中桩Y 坐标JF=-- 显示线路测量坐标方位角X-- 输入线路附近任意点测量X 坐标Y-- 输入线路附近任意点测量Y 坐标K-- 显示计算结果：里程桩号，即工程X 坐标C-- 显示计算结果：左右偏距，即工程Y 坐标, 中桩=0 ，左偏= 负值，右偏= 正值。