5800程序自编

合集下载

卡西欧5800计算器如何编程

卡西欧5800计算器如何编程步骤一：进入编程模式首先，在计算器的主界面上找到“MODE”按钮，按下该按钮，进入模式选择界面。

在模式选择界面中，选择“PROGRAM”模式，按下“=”确认进入编程模式。

步骤三：编写程序指令1.输入指令：通过使用”INPUT”指令，可以要求用户输入一个数值。

例如，输入指令“INPUTA”表示将用户输入的数值存储到变量A中。

2.输出指令：通过使用“PRINT”指令，可以打印变量的值。

例如，输出指令“PRINTA”表示打印变量A的值。

3.运算指令：卡西欧5800支持基本的数学运算，如加法、减法、乘法和除法。

例如，运算指令“A=B+C”表示将变量B和变量C的值相加，并将结果存储到变量A中。

4.条件指令：卡西欧5800支持简单的条件操作。

例如，条件指令“IFA>BTHENPRINTAELSEPRINTB”表示如果变量A的值大于变量B的值，则打印变量A的值，否则打印变量B的值。

除了上述基本指令外，卡西欧5800还支持其他一些高级指令，如循环和调用子程序等。

但是，由于篇幅限制，无法在本文中详细介绍这些指令。

你可以查阅卡西欧5800的用户手册，以了解更多详细的编程指令和语法规则。

步骤四：保存和执行程序在程序执行过程中，计算器将按照你编写的指令顺序执行，执行完毕后，将输出结果或者执行下一步的操作。

需要注意的是，卡西欧5800的编程功能较为简单，适合用于一些基本的数学计算。

如果你需要进行更复杂的编程任务，可能需要使用更高级的计算器或其他编程工具。

总结：以上就是关于如何使用卡西欧5800进行编程的详细介绍。

通过简单的编程，你可以利用卡西欧5800解决一些常见的数学计算问题。

虽然卡西欧5800的编程功能相对简单，但对于初学者来说，它是一个很好的入门工具，帮助你了解和掌握基本的编程概念和语法。

卡西欧5800自改正反算程序(已经使用过)QD-ZBZFS交点法正反算程序

5800计算器交点法正反算程序(QD-ZFS)正算快，反算慢，不带高程程序（反算调试中）主程序：（QD-ZFS）Lb1 A ↙30→DIM Z :"1=ZS,2=FS"?Z ↙If Z=1:Then Goto B:IfEnd↙ (Z=1进入正算子程序）If Z=2:Then Prog"QD-FS"↙ (Z=2进入反算子程序）Lb1 B ↙Prog” QD-ZS” ↙子程序计算判别：（QD-JS）LB1 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 : Eles 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 : Eles 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*Sin(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 ↙Lb1 8 ↙if 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↙正算子程序：（QD-ZS）Lb1 0 ↙“XHS="?G(后视点X):"YHS="?L(后视点Y):"XZJ="?M(置镜点X):"YZJ="?N(置镜点Y):Pol(G-M,L-N):"DH=":I(后视距)◢J<0=>J+360→J:"FH=":JDMS◢(后视方位角)Lb1 1↙“K=”?K ：（输入所需计算里程）Prog" QD-SJK "↙XI : Z[18]↙YI : Z[19]↙Pol(Z[18]-M,Z[19]-N):"D=":I◢（放样距）J<0=>J+360→J:"F=":J DMS◢（放样方位角）“PJ=”?P↙ (输入桩与线路夹角)“PD=”?D↙ （输入桩距中线的距离）Z[18]+D*Cos(T+P) →Z[20] ↙Z[19]+D*Sin(T+P) →Z[21] ↙“X=”: Z[20] ◢ （放样坐标X）“Y=”: Z[21] ◢ （放样坐标Y）Pol(Z[20]-M,Z[21]-N):"D=":I◢（放样距）J<0=>J+360→J:"F=":JDMS◢（放样方位角）Goto 1↙反算子程序：(QD-FS)Lb1 1 ↙"XK="?X:"YK="?Y↙（输入任意测点的X、Y坐标）“K=”?K ↙（试算里程，任意输入标段内里程点即可，也可以输入大致的估算里程加快速度）Lb1 2 ↙Prog"QD-SJK":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"QD-SJK":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: ThenK+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]:"D=":( Z[19]-Y)/ Sin (W) →I◢(偏距,加此才能分辨左右{偏距少就+}）"K=":K+S→K◢（里程）Goto 1↙数据库：（QD-SJK）if 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” QD-JS”:Return: Ifend↙if…………Prog” QD-JS”: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] : Return:Ifend↙。

5800线元法修正版程序编写

5800线元法修正版程序编写1.2版本，添加了遗漏的标点符号，修改了竖曲线与隧道，让隧道测量步骤简化一些。

此程序根据4850线元法程序改编，本人第一次编写程序内容可能有些不尽人意敬请谅解.程序名称不可更改，包括符号，也不要擅自删减子程序，如需更改必须与各子程序相呼应，否则将无法调动程序进行计算。

1~16页为程序说明与应用步骤具体解释，17~26页为程序编写，所有S开头后面有横杠的为各项数据库，如换线路更改数据库即可完成各项计算。

注意：程序编写时有下划线字符为一次性输入字符，不可拆分。

置仪点X坐标输入时必须输入小数，如果无小数将默认调动导线点数据库（例如3843.000那么请输入3843.0001并不影响计算）程序名（0-0）主程序目录（U=1）:数据库输入原始数据计算中边桩*（U=2）: 数据库输入原始数据反算线外点垂桩距状态（线路任一点坐标反算桩号及偏距）*（U=3）:计算平面位置检查记录表（U=4）:人工输入原始数据计算中边桩（数据库计算线元方位角）* （U=5）:人工输入原始数据推算开挖、填筑桩状态（不常用）（U=6）:数据库输入原始数据推算开挖、填筑桩状态*（U=7/7.1）:计算斜交斜做涵洞单跨桥、斜交正做涵洞七点放样状态并能避免曲线内单跨桥涵进出水口长度不一致，同时适用于曲线桥扇形布桩的盖梁放样，曲线桥扇形布桩的支座放样。

*（U=8）: 数据库输入原始数据计算锥坡放样（U=9）: 后方交会（U=10）: 数据库输入原始数据求线外两点交路线的桩号与夹角（U=11）: 圆心辐射法隧道断面超欠挖（适合各种隧道线型）*（U=12）: 手动输入原始数据求多边型面积、亩数*（U=13）: 数据库输入原始数据求设计高程（竖曲线）*（U=14）: 坐标正反算小程序（U=1）数据库输入原始数据计算中边桩（Y）置仪点X坐标（也可输入导线点编号，输入导线点编号即可使用导线点数据库）（O）置仪点Y坐标（当X坐标输入导线点编号后则此行不显示，因数据库已装入X和Y坐标）（B）步长（步长就是间隔长度，当要计算大量有相同距离间隔且相同中边桩，步长就是好东西了，输入数量每次计算自动加减桩号距离）（Q）所求桩号（计算第二个桩开始Q已经自动加入步长不用手动输入，但仍然会显示给你看，并可修改成别的桩号）（V）中桩到边桩的方位角，即与中桩前进方向方位角的夹角（注意：左转为负数，右转为正数）（D）中桩到边桩的距离（中桩输入0）计算完成会显示四个成果：DMS放样方位角（置仪点与所求桩号的放样方位角）I放样距离（置仪点与所求桩号的放样距离）所求桩号的X坐标所求桩号的Y坐标按—号继续下一步放样计算（U=3）数据库输入原始数据计算中边桩（偏差检测、资料编写）（B）步长（步长就是间隔长度，当要计算大量有相同距离间隔且相同中边桩，步长就是好东西了，输入数量每次计算自动加减桩号距离）(MM)所允许的最大误差（毫米为单位，比如高速的中线最大误差是20MM，就输入20）（Q）所求桩号（计算第二个桩开始Q已经自动加入步长不用手动输入，但仍然会显示给你看，并可修改成别的桩号）（V）中桩到边桩的方位角，即与中桩前进方向方位角的夹角（注意：左转为负数，右转为正数）（D）中桩到边桩的距离（中桩输入0）计算完成会显示四行成果：DMS放样方位角（置仪点与所求桩号的放样方位角）I放样距离（置仪点与所求桩号的放样距离）所求桩号的X坐标所求桩号的Y坐标按（—）号显示偏差检测成果：所求桩号的X坐标所求桩号的Y坐标所求桩号的双轴偏差X轴偏差Y轴偏差按-号下一步计算（U=4）人工输入原始数据计算中边桩（线元角计算）（Y）置仪点X坐标（O）置仪点Y坐标（B）步长（H+）起算点桩号(E)起算点X坐标(F) 起算点Y坐标(A)起算点方位角(+-C)起算点曲率（即为半径分之一，也就是1/半径，直线为0，左转为负，右转为正）(+-Z)终算点曲率（即为半径分之一，也就是1/半径，直线为0，左转为负，右转为正）(G)终算点桩号(Q)所求桩号(既是起算点桩号，因程序内字符转换冲突只好再输入) (V)左右夹角（左转为负，右转为正，中桩输入0）(D)中边桩距离（中桩输入0）计算完成会显示四个成果：（此处可忽略，参照U=1计算成果）计算完成按（AC/on）一次，然后按（EXIT）将内容（Prog 0-0）清除输入字母(R)，再按（EXE）显示为线元方位角数字（注：必须用度，分，秒抄记，因为计算结果为百进位，度分秒为60进位）注：此计算成果谨适用于数据库线元角输入（即：数据库曲线段线元角ZH~HY、HY~YH、YH~HZ段）（U=5）:人工输入原始数据推算开挖、填筑桩状态（不常用）（Y）置仪点X坐标（O）置仪点Y坐标（H+）起算点桩号(E)起算点X坐标(F) 起算点Y坐标(A)起算点方位角(+-C)起算点曲率（即为半径分之一，也就是1/半径，直线为0，左转为负，右转为正）(+-Z)终算点曲率（同上）（G）终算点桩号（W）实测大地高程（S）变坡点设计高程(I) =变坡点设计高程与实测大地高程之高差（正为填方、负为挖方）(P) 填方或挖方的坡比（若1:0.75则输入0.75填挖坡比全为正）（B）中桩到变坡点的宽度（D）=推算的中桩到开挖、填筑桩距离（D?）采用的中桩到开挖、填筑桩距离（Q）所求开挖、填筑桩号(V)左右夹角（注：只能输入线路右边90和左边-90因为开挖、填筑桩总是垂直的）计算完成显示四个结果：（同U=6显示结果相同，按—号下一步计算）（U=6）:数据库输入原始数据推算开挖、填筑桩状态（Y）置仪点X坐标（O）置仪点Y坐标（W）实测大地高程（S）变坡点设计高程（距离地面最近的那个平台或路面高程）（I）=变坡点设计高程与实测大地高程之高差（自动计算所得结果，此处不需输入。

卡西欧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) 8 If 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"J8 If 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(+)="?E8 Q＋E"W8 "GX(m)=":A＋cos(W) ×S"Xy 显示观测点X 坐标"GY(m)=":B＋sin(W) ×S"Yy 显示观测点Y 坐标Pol(X－O,Y－P) 8 If J<0:Then J＋360"J:IfEnd8 J－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)=”?V LbI 0 “QDK=”?Z Abs(Z-G)→C C-C^5/(40R^2D^2)+C^9/(3456 R^4D^4) →W C^3/(6RD)-C^7/(336R^3D^3)+C^11/(42240R^5D^5) →K Q+(C^2/(2RD)×(180/Π)) →F If 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→J If J<0:Then J+360→J：Else J→J:IfEnd “SPJ∠a=”:J?DMS◢“I（m）=”:I◢LbI 1 “BJ(m)=”?S If 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→J If 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 曲线起点Y LbI 0 “QDK(m)=”?Z 观测点里程Abs(Z-G)→C R×Sin(180×(C- D）/（πR）+90D/（πR）)+D/2-D^3/(240R ^2)→W R×（1-Cos(180(C-D）)/（πR）+90D/（πR））+ D^2/(24R)- D^4/(2688R ^3)→K Q+(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:IfEnd J-H→J If 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→J If 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 曲线起点Y LbI 0 “QDK(m)=”?Z 观测点里程Abs(G-Z)→ C C-C^5/(40R^2D^2)+C^9/(3456 R^4D^4) →W C^3/(6RD)-C^7/(336R^3D^3)+C^11/(42240R^5D^5) →K Q-(C^2/(2RD)×(180/Π)) →F If 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:IfEnd J-H→J If J<0:Then J+360→J：Else J→J:IfEnd “SPJ∠a=”:J?DMS◢“I （m）=”:I◢LbI 1 “BJ(m)=”?S If 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→J If J<0:Then J+360→J：Else J→J:IfEnd “BZ∠a =”:J?DMS◢“I（m）=”:I◢。

5800计算器程序1

5800计算器程序15800计算器程序1计算器程序通常是用来进行基本的数学运算的工具，能够帮助用户进行加减乘除等运算。

下面是一个简单的5800计算器程序的实现，代码行数大约1200字以上。

```python# -*- coding: utf-8 -*-#定义一个函数，用于检查输入是否为有效的数值def is_valid_number(num_str):try:float(num_str)return Trueexcept ValueError:return Falseclass Calculator:def __init__(self):self.result = 0#加法运算def add(self, a, b):if is_valid_number(a) and is_valid_number(b): self.result = float(a) + float(b)return self.resultelse:return "请输入有效的数字！"#减法运算def subtract(self, a, b):if is_valid_number(a) and is_valid_number(b): self.result = float(a) - float(b)return self.resultelse:return "请输入有效的数字！"#乘法运算def multiply(self, a, b):if is_valid_number(a) and is_valid_number(b): self.result = float(a) * float(b)return self.resultelse:return "请输入有效的数字！"#除法运算def divide(self, a, b):if is_valid_number(a) and is_valid_number(b): if float(b) != 0:self.result = float(a) / float(b)return self.resultelse:return "除数不能为0！"else:return "请输入有效的数字！"#主程序if __name__ == '__main__':calculator = Calculatorprint("欢迎使用5800计算器程序！")while True:print("请输入要进行的操作：")print("1. 加法")print("2. 减法")print("3. 乘法")print("4. 除法")print("5. 退出程序")choice = input("请选择操作（输入序号）：")if choice == "1":num1 = input("请输入第一个数：")num2 = input("请输入第二个数：")print(f"结果为：{calculator.add(num1, num2)}")elif choice == "2":num1 = input("请输入第一个数：")num2 = input("请输入第二个数：")print(f"结果为：{calculator.subtract(num1, num2)}") elif choice == "3":num1 = input("请输入第一个数：")num2 = input("请输入第二个数：")print(f"结果为：{calculator.multiply(num1, num2)}") elif choice == "4":num1 = input("请输入第一个数：")num2 = input("请输入第二个数：")print(f"结果为：{calculator.divide(num1, num2)}")elif choice == "5":print("感谢使用5800计算器程序，再见！")breakelse:print("无效的操作！请重新输入。

5800程序编写

FX-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:Then J+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 If G>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 3LbI 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)÷sin(Ｚ［２］) →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:Then Q+LI→H:Goto 0:Else If Z<F:Then Q+LI→H:Goto 0:Else If Z≤E:Then Q+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:Else Abs(D)×((N-M)×(Z-C)÷L+M)→V:Goto 2:IfEnd:LbI 1:If L=0:Then Abs(D)×M→V:Goto 2:Else Abs(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:Then 25900→O:11587.421→U:1847.983→V:101。

5800程序（改的输入了计算器）

1. 主程序(TYQXJS)Lbl 4："1.SZ => XY"："2.XY => SZ"：？N：？S：Prog“SUB0”↙1÷P→C: (P-R)÷(2HPR) →D:180÷∏→E:N=1 => Goto1：Goto2：↙Lbl 1:? Z：Abs(S-O) →W：Prog "SUB1"："XS="：X◢"YS="：Y◢F-90→F：“FS=”：F▲DMS◢Goto4↙Lbl 2：？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(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 2. 反算子程序(SUB2)G-90→T：Abs((Y-V)cosT-(X-U)sinT) →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：Then0→Z:Prog "SUB1" ：(J-Y)÷sin（F）→Z：（这里的两个冒号是自己加的)Else W+Z→w：Goto0:IfEndSUB0 数据库子程序Goto1↙同时保存多个曲线时的指针Lbl 1：IF S<***（线元终点里程）:Then***→G（线元起点方位角）:***→O（线元起点里程）:***→U（线元起点X）:***→V（线元起点Y）:***→P（线元起点曲率半径）:***→R（线元终点曲率半径）: ***→H（线元起点至终点长度）：0或1、-1→Q：Return:IfEnd↙Lbl 1：IF S<***（线元终点里程）:Then***→G（线元起点方位角）:***→O（线元起点里程）:***→U（线元起点X）:***→V（线元起点Y）:***→P（线元起点曲率半径）:***→R（线元终点曲率半径）: ***→H（线元起点至终点长度）：0或1、-1→Q：Return:IfEnd……………..为了便于解读，每增加一个线元增加一行语句，每增加一条曲线增加一个Lbl，每增加一个工程增加一个文件。

卡西欧5800简易编程

1、主程序：程序名：ZCX输入：”K”?K←If K >540980.584 (直线起点里程) And K<= （小于等于符号）541358.301:（直缓点里程）Then 2890632.365→A: 526217.878→B:79°34′47.8″→F:540980.584→J:Prog”ZX”(A,B,F,J分别为起算点坐标，方位角，里程) Prog”PJ”(运行求偏距的程序)IfEndIf K>541358.301 （直缓点里程）And K<=541488.301：（缓圆点里程）Then 2890700.680→A:526589.366→B: 79°34′47.8″→F: 541358.301→J:1→G:3500→R:130→L:Prog”HHQX”（A,B,F,J,G,L分别为直缓点坐标，方位角，里程，偏向，圆曲线半径，缓和曲线长度）Prog”PJ”IfEndIf K>541488.301（缓圆点里程）And K<=541694.275:（圆缓点里程）Then 2890723.4→A: 526717.363→B:80°38′38.4″→F:541488.301→J:1→G:3500→R:Prog”YQX”（A,B,F,J,G,L分别为缓圆点坐标，方位角，里程，偏向，圆曲线半径，缓和曲线长度）Prog”PJ”IfEndIf K>541694.275 （圆缓点里程）And K<=541824.275：（缓直点里程）Then 2890762.83→A:527050.912→B: 85°04′47.7″→F: 541824.275→J:-1→G:3500→R:130→L:Prog”HHQX”（A,B,F,J,G,L分别为缓直点坐标，方位角，里程，偏向，圆曲线半径，缓和曲线长度）Prog”PJ”IfEndIf K>541824.275 （缓直点里程）And K<=542167.602：（下一段直缓点里程）Then 2890762.83→A:527050.912→B: 85°04′47.7″→F: 541824.275→J: Prog”ZX”(A,B,F,J分别为缓直点坐标，方位角，里程)注：以上程序为一段标准曲线（包括直线，缓和曲线，圆曲线，缓和曲线，直线）的主程序，程序名为ZX，HHQX，YQX2、直线程序程序名：ZXA+(K – J )xcos(F) →X:”X0=”:X◢B+(K – J )xsin(F) →Y:”Y0=”:Y◢F→W:”F=”:W◢3、圆曲线程序程序名：YQXA+2xRxSin（90x(K- J)÷∏÷R）XCos(F+90xGx(K- J) ÷∏÷R) →X:”X0=”:X◢B+2xRxSin（90x(K- J)÷∏÷R）XSin (F+90xGx(K- J) ÷∏÷R) →Y:”Y0=”:Y◢F+180xGx(K- J) ÷∏÷R→W: F=”:W◢4、缓和曲线程序程序名：HHQXA+((K- J)-(K- J)5÷(90xR²xL²))xcos(F+30xGx(K- J) ²÷∏÷R÷L) →X: “X0=”:X◢B+((K- J)-(K- J)5÷(90xR²xL²))xsin(F+30xGx(K- J) ²÷∏÷R÷L) →Y: “Y0=”:Y◢F+90xGx(K- J) ²÷∏÷R÷L→W:”F=”:W◢5、偏距程序50→DimZ“Z=”?Z:(Z为偏离线路中线的距离)X+Zxcos(W-90) →U:”XL=”:U◢(左边X坐标)Y+Zxsin(W-90) →V:”YL=”:V◢(左边Y坐标)X+Zxcos(W+90) →D:”XR=”:D◢(右边X坐标)Y+Zxsin(W+90) →E:”YR=”:E◢(右边Y坐标)Return。

5800计算器程序汇编

刘明5800计算器程序汇编程序SUB“CE:X”?M:“CN:Y”?NLbl 1:“K”？K：“N°(R)”?C:Prog“SUB2”Lbl 2:“-B，0，+B”?B：Prog“SUB1”Cls“X=”:Locate3,1,X：“Y=”： Locate3,2，Y◢Prog“SUB0”Goto1程序SUB0ClrStatPol(X-M,Y-N):ClsIf J＜0：Then J+360→J：Else J→J：IfEnd“FYJULI=”：I◢“FYFWJ=”:J▶DMS◢程序SUB1If K≤(D-T):Then Goto A:Else If K≤(D-T+S):Then Goto B:Else If K≤(D-T+S+Q):Then Goto C:Else If K≤(D-T+S+Q+H):Then Goto D:IfEndLb1 AD-K→LU+Lcos(F+180)+Bcos(F+C) →X:V+Lsin(F+180)+Bsin(F+C) →Y:ReturnLbl BK-D+T→LLˆ(3)÷(6RS)-Lˆ(7) ÷(336（RS）ˆ（3）)+Lˆ(11) ÷(42240(RS) ˆ(5))→JL-Lˆ(5) ÷(40(RS)2)+Lˆ(9) ÷(3456(RS) ˆ（4）) →IU+Tcos(F+180)+Icos(F)-GJsin(F)+Bcos(F+90GL2÷(πRS)+C) →X:V+Tsin(F+180)+Isin(F)+GJcos(F)+Bsin(F+90GL2÷(πRS)+C) →Y:ReturnLbl CK-D+T→LR(1-cos((180L-90S) ÷(πR)))+S2÷(24R) →JRsin((180L-90S)÷(πR))+S÷2-Sˆ(3) ÷(240R2) →IU+Tcos(F+180)+Icos(F)-GJsin(F)+Bcos(F+G(180L-90S) ÷(πR)+C) →X:V+Tsin(F+180)+Isin(F)+GJcos(F)+Bsin(F+G(180L-90S) ÷(πR)+C) →Y:ReturnLbl DD-T+S+Q+H-K→LL-Lˆ(5) ÷(40(PH)2)+Lˆ(9) ÷(3456(PH) ˆ(4)) →ILˆ(3) ÷(6PH)- Lˆ(7) ÷(336(PH) ˆ(3))+Lˆ(11) ÷(42240(PH) ˆ(5)) →JU+Wcos(F+GE)-Icos(F+GE)-GJsin(F+GE)+Bcos(F+GE-90GL2÷(πPH)+C) →X:V+Wsin(F+GE)-Isin(F+GE)+GJcos(F+EG)+Bsin(F+GE-90GL2÷(πPH)+C) →Y:Return程序SUB2曲线要素If K≤10275.715（曲线HZ点或者YZ点桩号，终点桩号）：Then 9982.568(交点桩号)→D：47845.143（交点X坐标）→U：36902.024（交点Y坐标）→V：256°58′14″（起点计算方位角）→F：33°11′41.6″（起点计算方位角）→E:1(左转为正，右转为负)→G:306.825(前段切线长) →T：T（后段切线长，如果前后切线等长则按照此输入，不等长则另外输入）→W：775(圆曲线半径)→R：R(前后半径相等时则按照此输入)→P：150.968(前段缓和曲线长度) →S：S(后段缓和曲线长度)→H：298.036（圆曲线长度）→Q：Return:IfEnd。

5800使用程序说明

Fx-5800程序使用说明本程序为本人自编含正反算、高程、超高、加宽及水准测量一体；可进行路基填挖坡角、高程放样；还可以换算路面各种结构成进行放样。

特别是反算可以对任意点进行反算坐标、高程并计算得出坡角，在实际应用中（1人看全站仪，1人拿棱镜，1人打桩）速度达可以让拿棱镜和打桩人员跑起来工作）。

其实有了本程序，测量是一件很轻松的工作，如果你还在用传统的程序测量方法，还在为计算标高、换算坡角等天天晚上加班计算后第二天还要移桩，真应该认真看看本程序，它可以让你的测量速度快最少一至两倍以上。

一份好的程序必须结合设计施工图进行编程可以让测量达到最快速度，如果有谁想要代编程序请联系：QQ：9286330；以下为某二级公路放样程序使用说明：一、运行A—XY程序：1、 X1？………………….输入测站点X位标；2、 Y1？………………….输入测站点Y位标；3、 X2？………………….输入后视点X位标；4、 Y2？………………….输入后视点Y位标；5、 Z2？………………….（1）输入测站点Z位标；或（2）输入后视点Z位标6、A=…………………….显示全站仪对后视的方位角（此时可将全站仪转到5800上显示的方位角并固定好水平位置，按仪器锁定方位角，然后将仪器对准后视点（为了保证更好精度，对准棱镜杆与后视控制点交叉处也可），放开锁定方位角即可进行测量）7、S=…………………….显示全站仪与后视点水平距离；8、 HS？………………….输入高差：（1）、若Z2？时输入测站点Z，则输入数据0；（2）、若Z2？时输入后视点Z，则输入全站仪对后视的高差数据；9、 LJG？……………….. 输入仪器高或棱镜高：（1）、若Z2？时输入测站点Z，则输入仪器仪高；（2）、若Z2？时输入后视点Z，则输入棱镜高；注意：5、8、9三步的关联，否则实测高程计算不对10、 LM？…………………输入路线号（如有匝道等多条线路时选择数据，若只有一条路则按“EXE”进入下一步，即选默认路线）11、 K？…………………输入预测点大概桩号（如测站测K25+200~K25+800，则可输入其桩号之间的数，如K25+300即输入25300即可，此桩号仅用于当数据多时加快后面的计算器运行速度）二、运行A—FY程序（当运行A—XY程序时自动运行，若不换测站点时才能直接运行本程序，即不用输入第一步数据，但换站时必需运行A—XY程序）（一）、正算放样（即根据已知桩号和边桩距离放样）1、 KX1：AK2：XK3：XY4：SP5：Stop6？…..输入进行测量的方法（输入：1）2、Q？………………….输入测量边桩与路线夹角（默认为90度）；3、K？………………….输入放样点桩号；4、B？………………….输入放样点（左、右边桩）距中线距离（左边桩为负数，右边桩为正数，中桩为“0”）；5、A=…………………….显示全站仪与放样点的方位角（此时可将全站仪转到5800上显示的方位角进行对放样点方向）；6、S=…………………….显示全站仪与放样点水平距离HD；7、CS？………………….输入放样点与测站点的高差VD；8、LJG？………...…….. 输入放样点的棱镜高；9、PQ B=…………… ...显示实测点根据高程计算后需向路内（或外）移动“水平”距离（注：向中线为负值，向路外侧为正值，若为原地面放样还应按此值估算因地面坡度增加的水平距离进行加减）；若需移位大应按第13步重测放出真正的填（挖）坡角；10、显示：a、填方：T=（放样点至路床顶填土高度）、T0=（放样点至路面填土高度）、SC B=（按测点高程计算出的距中边距B，左边桩为负数，右边桩为正数）；b、挖方：W=（放样点至路床顶挖土深度）、W0=（放样点至路面挖土深度）、SC B=（按测点高程计算出的距中理论边距B，即坡角边距）；11、显示：实测点X、Y坐标；12、显示：H=（实测点高程）、H0=（设计高程）（中桩为中线高程，边桩为路肩设计高程）、JK=（设计加宽值）13、重复反回第1步进行重新放样；（若对同一桩号按第9步数据计算需移位较大时，必需对同一桩号按数据移位后重测复核至找到坡角为此，一般重测一次即可）（注：重测复核时，在输入B值时会显示出SC B=（按刚测完点移位后的理论宽度）方便输入预测点B值，若地面不平就用SC B值加（减）上地面坡度造成的水平距离增加）（二）、反算放样一：（即根据在任意点先测出方位角、距离、高差反算出：路线桩号及填、挖土边桩坡角进行放样）1、 KX1：AK2：XK3：XY4：SP5：Stop6？…..输入进行测量的方法（输入：2）2、Q？………………….输入测量边桩与路线夹角（默认为90度）；3、A3？…………………输入全站仪与放样点的方位角（即全站仪上方位角读数）；4、S3？………………….输入全站仪与放样点水平距离HD；5、CS？………………….输入放样点与测站点的高差VD；7、LJG？………...…….. 输入放样点的棱镜高；8、PQ B=…………… ...显示实测点根据高程计算后需向路内（或外）移动“水平”距离（注：向中线为负值，向路外侧为正值，若为原地面放样还应按此值估算因地面坡度增加的水平距离进行加减）；若需移位大应按第3步重测放出真正的填（挖）坡角；9、显示：K=…………….显示放样点桩号；B=…………….显示放样点（左、右边桩）距中线距离（左边桩为负数，右边桩为正数，中桩为“0”）；10、显示：a、填方：T=（放样点至路床顶填土高度）、T0=（放样点至路面填土高度）、SC B=（按测点高程计算出的距中边距B，左边桩为负数，右边桩为正数）；b、挖方：W=（放样点至路床顶挖土深度）、W0=（放样点至路面挖土深度）、SC B=（按测点高程计算出的距中理论边距B，即坡角边距）；11、显示：实测点X、Y坐标；12、显示：H=（实测点高程）、H0=（设计高程）（中桩为中线高程，边桩为路肩设计高程）、JK=（设计加宽值）13、重复反回第1步进行重新放样；（若对同一桩号按第8步数据计算需移位较大时，必需对同一桩号按数据移位后重测复核至找到坡角为此，一般重测一次即可）（注：重测复核时，在输入B值时会显示出SC B=（按刚测完点移位后的理论宽度）方便输入预测点B值，若地面不平就用SC B值加（减）上地面坡度造成的水平距离增加）（三）、反算放样二：（即根据在任意点先测出XY坐标、高差反算出：路线桩号及填、挖土边桩坡角进行放样）1、 KX1：AK2：XK3：XY4：SP5：Stop6？…..输入进行测量的方法（输入：3）2、Q？………………….输入测量边桩与路线夹角（默认为90度）；3、X3？…………………输入全站仪上X坐标；；4、Y3？………………...输入全站仪上Y坐标；5~13步说明与(二)相同：（四）、已知设计坐标进行放样（如桥梁已知坐标放样等）：1、KX1：AK2：XK3：XY4：SP5：Stop6？…..输入进行测量的方法（输入：4）2、使用说明与第（三）条只差在多显示方位角A、距离S进行放样，其它计算数据仅作参考对照用。

AU5800自编资料

维护保养1.准备样品探针清洗液：使用浓度为1.0% 的次氯酸钠溶液作为样品探针清洁剂时，遵循这些预防措施。

—为保持清洁的有效性，必须维持氯浓度。

洗涤剂每周准备一次。

—如果系统有两天或更长时间不进行分析，将清洁剂从系统中取出单独存放，以防止对系统造成腐蚀。

—避免手或衣物接触清洁剂。

如果接触清洁剂，立即用水彻底清洗。

如果操作员的眼睛或嘴意外接触到清洁剂，立即用水彻底冲洗，并尽快就医。

—避免清洁剂溅到系统上。

如果清洁剂溅到系统上，用蘸水的软布或纸巾擦拭溅出区域，然后用干布擦拭两到三次。

—避免将清洁剂与其它化合物混合。

如果清洁剂与其它化合物混合，在进行适当中和后扔弃。

使用浓度为1.0% 的次氯酸钠溶液作为样品探针清洁剂时，遵循这些预防措施。

—为保持清洁的有效性，必须维持氯浓度。

洗涤剂每周准备一次。

—如果系统有两天或更长时间不进行分析，将清洁剂从系统中取出单独存放，以防止对系统造成腐蚀。

—避免手或衣物接触清洁剂。

如果接触清洁剂，立即用水彻底清洗。

如果操作员的眼睛或嘴意外接触到清洁剂，立即用水彻底冲洗，并尽快就医。

—避免清洁剂溅到系统上。

如果清洁剂溅到系统上，用蘸水的软布或纸巾擦拭溅出区域，然后用干布擦拭两到三次。

—避免将清洁剂与其它化合物混合。

如果清洁剂与其它化合物混合，在进行适当中和后扔弃。

在分析仪和ISE 单元上的清洗液瓶位置为每个探针安装清洗液瓶。

对于正常分析：在DET-1 位置和DET-2 位置安装同样的清洗液。

••一个60 mL 的清洗剂瓶内大约有50 mL 2% 的清洗液。

对于预计会对样品探针造成严重污染的分析：如果预计分析的总样品量过多或者透析病人的样品会对样品探针造成严重污染，在DET-1 位置和DET-2 位置安装不同的清洗剂。

••DET-1 位置：一个60 mL 的清洗剂瓶内大约有50 mL 2% 的清洗液。

••DET-2 位置：一个60 mL 的清洗剂瓶内大约有50 mL 有效氯浓度为1.0% 的次氯酸钠溶液。

卡西欧5800计算程序自己编写实用计算程序

1．单圆曲线(YQX1)（张队提供）“KO”?O:“X0”?A:“Y0”?B：“JDX”?X：“JDY”？Y：“FWJ”？J：“FO”？F：?N：?R：6→DimZ←┘（K0为输入起算点桩号，X0为输入起算点X坐标，Y0为输入起算点Y坐标，JDX输入曲线所在交点X坐标，无输入0，JDY为输入曲线所在的Y坐标，无输入0，FWJ为输入起算点的方位角，F0为输入交点处的转角，带正负号，N为转角方向，线路左转输入+1，线路右转输入-1，R为输入曲线半径）Abs(F)÷2→G◢“T=”：Rtan(G)→T◢（计算切线长）“L=”：GRπ÷90→L◢（计算圆曲线长）“E=”：R÷cos(G)-R→E◢（计算外距，即交点到QZ点的距离）LbI 1←┘?K：180N（K-O）÷(πR)→V：2Rsin(0.5NV)→M←┘（K为输入待求点的桩号）V为带求点与起算点间的弦长说对应的圆心角“XZ=”:A+Mcos(J+0.5V)→Z[1]◢（计算出的中桩X坐标）“YZ=”:B+Msin(J+0.5V)→Z[2]◢（计算出的中桩Y坐标）tan-1（（Z[2]-Y）÷（Z[1]-X））→U←┘If U＜0:Then U+360→U:Else U→U:If End←┘“FW=”?U :U DMS◢（计算出的中桩与交点的方位角）?W:“XL=”：Z[1]-NWcos（J+V+90）→Z[3]◢（W为输入路半宽，计算出的左边桩X坐标）“YL=”：Z[2]-NWsin（J+V+90）→Z[4]◢（计算出的左边桩Y坐标）“XR=” Z[1]+NWcos（J+V+90）→Z[5]◢（计算出的右边桩X坐标）“YR=”：Z[2]+NWsin（J+V+90）→Z[6]◢（计算出的右边桩Y坐标）“OK”？S：If S=1：Then Goto 1：Else“STOP”:Stop（S输入1返回继续计算下一点，输入其他值退出程序）2.YQX-ZB(圆曲线中边桩放样)“R”?R:（圆曲线半径）“P”?P：(线路转角)“F”?F:（起始方位角）“G”?G:（线路转向信息，左转为-1，右转为+1）“ZY-X”?M:?N:(ZY点坐标)“L=”πRP÷180→A◢(曲线弧长)F+90G→F(ZY点的径向方位角)“O-X”:M+Rcos (F) →A◢（圆心X坐标）“O-Y”:N+Rsin (F)→B◢（圆心Y坐标）“ZY-ZH”:?Z(ZY点桩号)Lb1 0:“JM-ZH”:?K: (加密点桩号)K-Z→V: (加密点曲线弧长)180V÷(πR) →U: (加密点曲线弧长所对应的圆心角)F+180+GU→U: (圆心至加密点的方位角)“XP=”:A+Rcos(U) →S◢(加密点中桩X坐标)“YP=”:B+Rsin(U) →T◢(加密点中桩Y坐标)“BZ”:?W: (边桩宽度)“XL=”:S+GWcos(U)◢(左边桩X坐标)“YL=”:T+GWsin(U)◢(左边桩Y坐标)“XR=”:S-GWcos(U)◢(右边桩X坐标)“YR=”:T-GWsin(U)◢(右边桩Y坐标)Goto 0：3．(ZX-ZB) 直线段中边桩放样“QD-X,Y”:?A:?B: (起点坐标（A,B）)“QD-ZH”:?Z: (起算点桩号)“ZD-X,Y”:?C:?D: (终点坐标（C,D）)Pol(C-A,D-B):J<0=>J+360→J: (线路方位角) LbI 0：“ZD-ZH”:?K: (加密点桩号)K-Z→V: (加密点到起算点极径)“XP=”:A+Rec(K,F) →M◢(加密点中桩X坐标)“YP=”:B+J →N◢(加密点中桩Y坐标) “BZ”:?W: (边桩宽度)F-90→U(中桩到边桩向量的方位角)“XL=”:M+Rec(W,U)◢(左边桩X坐标)“YL=”:N+J◢(左边桩Y坐标)“XR=”:M-I◢(右边桩X坐标)“YR=”:N-J◢(右边桩Y坐标)Goto 0：。

5800简单全线坐标计算程序

5800全线任意坐标计算程序1. 正算主程序(ZHCX) （不运行）8→DimZ1÷P→Z[4 ]：(P-R)÷(2HPR)→D: 180÷π→E“Z=”?Z:”YJJ=”?A:Abs(S-O)→W0.26→Z[1 ]: 0.74→B: 0.02→K: 0.82→Z[3 ]: 1-Z[3 ]→F:1-K→Z[2 ]U+W(Z[1 ]cos(G+QEKW(Z[4 ]+KWD))+Bcos(G+Z[3 ]QEW(Z[4 ]+ Z[3 ]WD))+Bcos(G+QEFW (Z[4 ]+FWD))+ Z[1 ]cos(G+ Z[2 ]QEW(Z[4 ]+ Z[2 ]WD)))→X:V+W(Z[1 ] sin (G+QEKW(Z[4 ]+KWD))+B sin(G+ Z[3 ]QEW(Z[4 ]+ Z[3 ]WD))+B sin(G+QEFW (Z[4 ]+FWD))+ Z[1 ] sin(G+ Z[2 ]QEW(Z[4 ]+ Z[2 ]WD)))→Y：G+QEW(Z[4 ]+WD)→F：X+Zcos(F+A)→X：Y+Zsin(F+A)→Y:If F≧360:Then F-360→F:IfEnd”X=”:X→X◢”Y=”:Y→Y◢If F﹤0:Then F+360→F:IfEnd”QX FWJ=”:F▼DMS◢“C=1=>XX: C=2=>XZ”: ”C=”?C: ”QHJU=”?L: If C=1：Then Goto 1:Else Goto 2: IfEnd 可以计算斜交斜做或斜交正做的桥涵坐标Lbi 1X+L cos(F)→X：Y+Lsin(F)→Y: Goto 3Lbi 2X+L cos(F+A-90)→X：Y+Lsin(F+A-90)→Y: Goto 3Lbi 3“QH-X=”: X →X◢“QH-Y=”: Y →Y◢Prog “FY”2 . 参数子程序（直接运行）M(主线) 一条线路一个名称“S=”?SIf S≦线元终点：Then 线元起点X值→U: 线元起点Y值→V:线元起点切线方位角→G:线元起点桩号→O:线元长度→H：线元起点半径→P：线元终点半径→R：（左偏-1，或右偏 1）→Q:Goto 1:IfEnd……If S≦线元终点：Then 线元起点X值→U: 线元起点Y值→V:线元起点切线方位角→G:线元起点桩号→O:线元长度→H：线元起点半径→P：线元终点半径→R：（左偏-1，或右偏 1）→Q:Goto 1:IfEndLbi 1Prog “ZBJS”3. 放样程序（FY）（不运行）“X0=”?M:“Y0=”？NPol((X-M, Y-N)If J﹤0:Then J+360→J:IfEnd“FWJ=”:J▲DMS◢“JU-LI=”:I◢说明：一、程序功能及原理1.功能说明：本程序由一个主程序和两个子程——正算主程序(ZH)、参数子程序（M）、放样程序（FY），可以根据曲线段——直线、圆曲线、缓和曲线（完整或非完整型）的线元要素（起点坐标、起点里程、起点切线方位角、线元长度、起点曲率半径、止点曲率半径、左偏或右偏）及里程边距或坐标，对该线元段范围内任意里程中边桩坐标进行正算。

卡西欧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-5800坐标计算源程序1.主程序(QXCX)"1.SZ => XY"："2.XY => SZ"："S0"?S："N0"?N：Prog "SUB8":1÷P→C：(P-R)÷(2HPR)→D：180÷π→E：If N=1：ThenGoto 1：IfEnd：Goto 2←┘Lbl 1←┘"S1"?S："Z1"?Z：Abs(S-O)→W：Prog "SUB1"←┘"XS="：X→X◢"YS="：Y→Y◢"FS="：F-90→F◢Goto 1←┘Lbl 2←┘"X1"?X："Y1"?Y：X→I←┘Y→J←┘Prog "SUB2"←┘"S="：O+W→S◢"Z="：Z→Z◢Prog "SUB3":"H="：H→H◢"H1="：H+3.1◢"H2="：H+6.98◢"H1"?→Z[1]:Prog "SUB4":"A="：A→A◢Goto 2←┘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)))→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←┘3. 反算子程序(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 AbsZ<10^(-6)：ThenGoto1：IfEnd：(W+Z)→W：Goto 0←┘Lbl 1：0→Z：Prog "SUB1"：(J-Y)÷sin(F)→Z←┘4. 高程子程序(SUB3)If S<67549.755 AND S≥66894.3 :Then -0.00052→A : 0→B : 67394.3→K : 67.37→G : 600000→R : Goto 2 : I fEnd↙If S<68708.391 AND S≥67549.755 :Then -0.0048→A : -0.00052→B : 68494.3→K :66.8→G : 100000→R : Goto 2 : IfEnd↙If S<本段竖曲线终点里程AND S≥前一竖曲线终点里程:Then -0.0048→前坡（大里程向）A : -0.00052→后坡（小里程向）B : 68494.3→竖曲线交点里程K :66.8→交点高程G : 100000→曲率半径R : Goto 2 : IfEnd↙If s<67549.755 AND s≥66894.3 :Then Goto 6 : IfEnd↙If s<67549.755 AND s≥66894.3 :Then Goto 7 : IfEnd↙依次类推，计算原始数据完成输入，坡度换算成小数。

卡西欧5800自编程序

＂Ａ＂？Ａ：＂Ｒ＂？Ｒ：＂ＺＨ＂？Ｅ：＂ＦＷＪ＂？Ｖ：＂Ｌ１＂？Ｌ：＂Ｌ２＂？Ｍ：＂Ｘ０＂？Ｇ：＂Ｙ０＂？Ｈ：＂Ｌ：－１Ｒ：１＂？Ｗ：Ａ＝９０＝＞Ａ－１μ→Ａ： LbI ０：＂ＬＮ＂？Ｚ：Ａbs （Ｚ－Ｅ）→Ｋ：０．５Ｌ－Ｌ３／（２４０Ｒ２→Ｎ：０．５Ｍ－Ｍ３／２４０／Ｒ２→Ｏ：Ｌ２／（２４Ｒ）－Ｌ４／（２６８８Ｒ３→Ｐ：Ｍ２／２４／Ｒ－Ｍ４／２６８８／Ｒ３→Ｑ：Ｎ－（Ｒ＋Ｐ）／tan Ａ＋（Ｒ＋Ｑ）／sin Ａ→Ｔ：Ｏ－（Ｒ＋Ｑ）／tan Ａ＋（Ｒ＋Ｐ）／sin Ａ→Ｕ：∏ＲＡ／１８０＋０．５（Ｌ＋Ｍ）→Ｓ：Ｚ＜Ｅ＝＞Ｖ＋１８０→Ｆ：Ｚ＞Ｅ＝＞ＧＯＴＯ１＂Ｘ＝＂：Ｇ＋Ｋcos Ｆ▲＂Ｙ＝＂：Ｈ＋Ｋsin Ｆ▲＂Ｓ＂？Ｃ：Ｃ≠０＝＞ＧＯＴＯ６ＧＯＴＯ０LbI ６：＂Ｘ＝＂：Ｘ＋Ｃcos Ｆ＋９０▲＂Ｙ＝＂：Ｙ＋Ｃsin Ｆ＋９０▲ＧＯＴＯ０LbI １：Ｋ＞Ｌ＝＞ＧＯＴＯ２：９０Ｋ２／（∏ＲＬ→Ｂ：Ｋ－Ｋ５／（２４０Ｒ２Ｌ２→Ｘ：Ｋ３／（６ＲＬ）－Ｋ７／（３３６Ｒ３Ｌ３→Ｙ：ＧＯＴＯ５：LbI ２：Ｋ＞Ｓ－Ｍ＝＞ＧＯＴＯ３：１８０（Ｋ－０．５Ｌ）／（∏Ｒ）→Ｂ：Ｎ＋Ｒsin Ｂ→Ｘ：Ｐ＋Ｒ（１－cos Ｂ）→Ｙ：ＧＯＴＯ５：LbI ３：Ｋ＞Ｓ＝＞ＧＯＴＯ４：Ａ－９０（Ｓ－Ｋ）２／（∏ＲＭ→Ｂ：Ｔ＋Ｒec(Pol(Ｕ－（Ｓ－Ｋ）＋（Ｓ－Ｋ）５／（４０Ｒ２Ｍ２，（Ｓ－Ｋ）３／（６ＲＭ）－（Ｓ－Ｋ）７／（３３６Ｒ３Ｍ３，Ａ＋Ｊ→Ｘ：Ｊ→Ｙ：ＧＯＴＯ５：LbI ４：Ａ→Ｂ：Ｔ＋Ｒec （Ｕ＋Ｋ－Ｓ，Ｂ→Ｘ：Ｊ→Ｙ：LbI ５：Ｉ＝Pol （Ｘ，Ｙ：Ｊ→Ｊ：＂Ｘ＝＂：Ｇ＋Ｉcos （Ｖ＋ＪＷ▲＂Ｙ＝＂：Ｈ＋Ｉsin （Ｖ＋ＪＷ▲＂Ｓ＂？Ｃ：Ｃ≠０＝＞ＧＯＴＯ７ＧＯＴＯ０LbI ７：＂Ｘ＝＂：Ｘ＋Ｃcos （Ｖ＋ＷＢ＋９０▲＂Ｙ＝＂：Ｙ＋Ｃsin （Ｖ＋ＷＢ＋９０▲ＧＯＴＯ０Ａ为JD 点转角 R 为半径 ZH 为起点里程FWJ 为起点方位角 L1、L2为缓和曲线长 X0、Y0为起点坐标 L ：－１ R ：1为路线方向左为负、右为正 LN 为所求点里程 S 为左右边桩：左为负、右为正＂Ｈ＝＂？Ｈ：＂Ｋ＝＂？Ｋ：＂Ｔ＝＂？Ｔ：＂Ｒ＝＂？Ｒ：＂Ｉ１＝＂？Ａ：＂Ｉ２＝＂？Ｂ：Lbl０：＂Ｐ＝＂？Ｐ：Ｐ<(Ｋ－Ｔ)=>GOTO 1:P>(K+T) =>GOTO 2If Ｋ≥Ｐ：Ｔhen –A→C:Else P-K→G:ifEndIf Ｋ≤Ｐ：Ｔhen B→C:Else K-P→G:ifEndA-B→QIf Q<0：Ｔhen 1→M: ifEndIf Q>0：Ｔhen -1→M: ifEnd＂ＨＰ＝＂：Ｈ＋ＣＧ＋Ｍ（Ｔ－Ｇ）２／（２Ｒ◢GOTO 0Lbl１：＂ＨＰ＝＂：Ｈ－Ａ(Ｋ－Ｐ◢GOTO 0Lbl 2：”HP=”：H+B(P－K◢GOTO 0H 为交点高程K为交点里程T为切线R为半径I1、I2 为坡度P为所求点里程＂Ｘ０＂？Ｃ：＂Ｙ０＂？Ｄ：＂Ｘ１＂？Ｅ：＂Ｙ１＂？Ｆ：＂Ｒ＂？Ｒ：pol（E-C，F-D）：cls：I→S：IF J＜０：Ｔhen J+360→A:Else J→A:ifend:＂-L,+R(Deg)＂?Q:IF Q<0:Then -1→N:Else 1→1:IFend: ＂ZY＂?WLbl 0:＂LN＂?T:T-W→O:Sin-1 (S/2/R) →K:90O/(πR)→G:2RSin(G)→H: ＂X=＂:C+Hcos(A-KN+GN)→Z[3]◢＂Y=＂:D+Hsin(A-KN+GN)→Z[4]◢＂S＂?V:V≠0=>GOTO 1GOTO 0Lbl 1:＂X=＂:Z[3]+Vcos(A-KN+2GN+90◢＂Y=＂:Z[4]+Vsin(A-KN+2GN+90◢GOTO 0X0、Y0为起点坐标X1、Y1为终点坐标R为半径Q为路线转角左为—1、右为+1 ZY为起始点里程LN为所求点里程S为边桩距离左为负数、右为正数“X”?C:”Y0”?D:”R”?R:”FWJ”?V:”L-1 R:1”?W:”ZY”?QLbl 0:”LN”?Z:Z-O→L:180L/(πR)→B:R Sin(B→X:R(1-cos(B→Y:pol（X,Y→I:J→J: IF J＜０：Ｔhen J+360→J:Else J→J:ifend:”X=”:C+I cos(V+JW◢”X=”:D+ISin (V+JW◢GOTO 0＂Ｘ０＂？Ｃ：＂Ｙ０＂？Ｄ：＂Ｘ１＂？Ｅ：＂Ｙ１＂？Ｆ：＂Ｒ＂？Ｒ：pol（E-C，F-D）：cls：I→S：IF J＜０：Ｔhen J+360→A:Else J→A:ifend:＂-L,+R(Deg)＂?Q:IF Q<0:Then -1→N:Else 1→1:IFend: ＂ZY＂?WLbl 0:＂LN＂?T:T-W→O:Sin-1 (S/2/R) →K:90O/(πR)→G:2RSin(G) →H: ＂X=＂:C+Hcos(A-KN+GN)→Z[3]◢＂Y=＂:D+Hsin(A-KN+GN)→Z[4]◢＂S＂?V:V≠0=>GOTO 1GOTO 0Lbl 1:＂X=＂:Z[3]+Vcos(A-KN+2GN+90◢＂Y=＂:Z[4]+Vsin(A-KN+2GN+90◢GOTO 0X0、Y0为起点坐标X1、Y1为终点坐标R为半径Q为路线转角左为—1、右为+1 ZY为起始点里程LN为所求点里程S为边桩距离左为负数、右为正数＂X0＂？Ｃ：＂Ｙ０＂？Ｄ：＂Ｘ１＂？Ｅ：＂Ｙ１＂？Ｆ：＂Ｑ＂？Ｑ：Ｐol(E-C,F-D):Cls:IF J<0:Then J+360→A:Else J→A:IFEndLbl 0:”S”?S:S-Q→O:＂X=＂:C+Ocos(A)→Z[1]◢＂Y=＂:D+Osin(A)→Z[2]◢＂B＂?B:≠0=>GOTO 1GOTO 0Lbl 1：＂X=＂:Z[1]+Bcos(A+90◢＂Y=＂:Z[2]+Bsin(A+90◢GOTO 0X0、Y0为起点坐标X1Y1为终点坐标Q为起点里程S为所求点里程B为边桩距离左为负数右为正数。

自编卡西欧5800程序(简单易懂-有说明1)

一、直线段中边桩坐标计算Deg:Fix3（设置角度单位为十进制，3位固定小数显示）“QD:K=”？→A: “QD:X=”？→B: “QD:Y=”？→C: “QD:FWJ=”？→D （输入起点桩号、坐标、方位角）Lbl 1（设置程序标签）“K=”?→E:“L=”?→F：“JJ=”?→J（输入待求点桩号；边距：左负右正）B+(E-A)cos(D)+Fcos(D+J)→HC+(E-A)sin(D)+Fsin(D+J)→I“Xn=”:H◢“Yn=”:I◢（计算并显示待求点坐标）Goto 1（转向程序标签1继续执行程序）二、圆曲线中边桩坐标计算Deg:Fix3（设置角度单位为十进制，3位固定小数显示）“ZY:K=”？→A: “ZY:X=”？→B: “ZY:Y=”？→C: “ZY:FWJ=”？→D: “R=”？→E: “ZJ=”？→F（输入ZY点桩号、坐标、方位角，圆曲线半径，转角：左负右正）Lbl 1（设置程序标签）“K=”?→G:“L=”?→H：“JJ=”?→S（输入待求点桩号；边距：左负右正）（G-A）×180°÷π÷E→J（计算圆心角）D+J→M（计算P点的切向方位角）2Esin(J÷2) →K（计算弦长）If F＞0:Then （D+J÷2)→L :Else（D-J÷2)→L :IfEnd（计算ZY到P点的方位角）B+Kcos(L)+Hcos(M+S) →NC+Ksin(L)+Hsin(M+S) →O“Xn=”:N◢“Yn=”:O◢“a=”:M◢（计算并显示待求点坐标、路线切向方位角）Goto 1（转向程序标签1继续执行程序）三、第一完整缓和曲线中边桩坐标计算Deg:Fix3（设置角度单位为十进制，3位固定小数显示）“ZH:K=”？→A:“ZH:X=”？→B:“ZH:Y=”？→C:“ZH:FWJ=”？→D:“R=”？→E:“L1=”？→F:“ZJ=”？→G（输入起点桩号、坐标、方位角，圆曲线半径，缓和曲线长度，转角：左负右正）Lbl 1“K=”?→H:“L=”?→I ：“JJ=”?→V（输入待求点桩号；边距：左负右正） (H-A)- (H-A)5÷40÷E 2÷F 2→K(H-A)3÷6÷E ÷F-(H-A)7÷336÷E 3÷F 3→L(H-A)2×90°÷π÷E ÷F →MIf G ＞0:Then D+M →N : Else D-M →N: IfEnd任意点的切向方位角TL K →+22计算弦长If G ＞0:Then D+M ÷3→U : Else D-M ÷3→U: IfEnd计算弦的方位角 B+TcosU+Icos(N+V) →R C+TsinU+Isin(N+V) →S“Xn=”:R ◢ “Yn=”:S ◢ “a=”:N ◢ Goto 1四、第二完整缓和曲线中边桩坐标计算 Deg:Fix3（设置角度单位为十进制，3位固定小数显示） “HZ:K=”？→A:“JD:X=”？→B:“JD:Y=”？→C: “ZH:FWJ=”？→D: “ZJ=”？→E :“T2=”？→F:“L2=”？→G: “R=”？→H（输入终点桩号，交点坐标，起点方位角，转角：正左负右，第二缓和曲线长度、切线长，圆曲线半径）If E＜0:Then D+180°-(180°+E)→I:IfEnd: If E＞0:Then D+180°+(180°-E)→I :IfEndB+Fcos(I) →KC+Fsin(I) →L“HZ:X=”:K◢“HZ:Y=”:L◢“a=”:I◢Lbl 1“K=”?→M:“L=”?→N:“JJ=”?→O（输入待求点桩号；边距;夹角：正左负右）(A-M)- (A-M)5÷40÷H2÷G2→P(A-M)3÷6÷H÷G-(A-M)7÷336÷H3÷G3→QIf E＜0:Then I+180°+180°+90°→R :IfEnd: If E＞0:Then I+180°+180°-90°→R :IfEnd(A-M)2×180°÷2÷π÷H÷G→UIf E＜0:Then I+180°+(180°-U)→V:IfEnd: If E＞0:Then I+180°-(180°-U)→V :IfEndK+Pcos(I+180°)+QcosR+Ncos(X+180°+O)→SL+Psin(I+180°)+QsinR+Nsin(X+180°+O)→T“Xn=”:S◢“Yn=”:T◢“a=”:V◢Goto 1二、圆曲线中边桩坐标计算Deg:Fix3（设置角度单位为十进制，3位固定小数显示）“ZY:K=”？→A: “ZY:X=”？→B: “ZY:Y=”？→C: “ZY:FWJ=”？→D: “R=”？→E: “ZJ=”？→F（输入ZY点桩号、坐标、方位角，圆曲线半径，转角：左负右正）Lbl 1（设置程序标签）“K=”?→G:“L=”?→H：“JJ=”?→S（输入待求点桩号；边距：左负右正）（G-A）×180°÷π÷E→J（计算圆心角）D+J→M（计算P点的切向方位角）If F＞0:Then （D+90°)→L :Else（D-90°)→L :IfEnd（计算ZY到圆心O的方位角）If F＞0:Then （L+180°+J)→X:Else（L+180°-J)→X :IfEndB+Ecos(L)+(E+H)cos(X) →NC+Esin(L)+(E+H)sin(X) →O“Xn=”:N◢“Yn=”:O◢“a=”:M◢（计算并显示待求点坐标、路线切向方位角）Goto 1（转向程序标签1继续执行程序）。

5800万能程序

5800万能曲线计算程序（分段计算）一：ZBJS (母程序)Lb1 1: "DKI"?H:Prog"M"↓(E-D)÷Abs(G-F) →P: Abs(H-F) → Q: P×Q→I↓C＋（I＋2D）×Q×90÷π→J↓"J=":J▲C＋（I÷8＋2D）×Q×45÷（4π）→M↓C＋（3I÷8＋2D）×Q×135÷（4π）→N↓C＋（5I÷8＋2D）×Q×225÷（4π）→U↓C＋（7I÷8＋2D）×Q×315÷（4π）→V↓C＋（I÷4＋2D）×Q×45÷（2π）→K↓C＋（I÷2＋2D）×Q×45÷π→W ↓C＋（3I÷4＋2D）×Q×135÷（2π）→Z↓?T↓A＋Q÷24×（cosC＋4×（cosM＋cosN＋cosU＋cosV）＋2×（cosK＋cosW＋cosZ）＋cosJ）→X↓B＋Q÷24×（sinC＋4×（sinM＋sinN＋sinU＋sinV）＋2×（sinK＋sinW＋sinZ）＋sinJ）→Y↓"X=":X▲"Y=":Y▲"DL"？O: "DR"？R↓"XL=":X+Ocos(J-（180-T）)▲"YL=":Y+Osin(J-（180-T）) ▲"XR=":X+Rcos(J+T) ▲"YR=":Y+Rsin(J+T) ▲Goto 1↓二、M（子程序）（数据库）If H≤19052.852（终点桩号）：Then（起点桩号）18892.852→F:（终点桩号）19052.852→G：（起点X坐标）2521815.012→A:（起点Y坐标）405844.892→B：（起点切线方位角）181.2275833→C：起点曲率→D:终点曲率→E: Goto 0:If End换行If H≤19152.874（终点桩号）：Then（起点桩号）19052.852→F:（终点桩号）19152.874→G：（起点X坐标）2521655.036→A:（起点Y坐标）405811.512→B：（起点切线方位角）177.9535388（弧度）→C：起点曲率→D:终点曲率→E: Goto 0:If End换行同上下一个线元要素。

卡西欧5800计算器编程入门程序集

卡西欧5800计算器编程入门程序集编程入门程序集：1.输入输出控制：程序的第一步是实现输入输出控制，以便用户能够与程序进行交互。

以下是一个简单的输入输出程序示例：```PROGRAM HelloWorld;BEGINPRINTLN("Hello, World!");PAUSE;END.```这个程序会在计算器的屏幕上显示"Hello, World!"，并暂停等待用户的确认，直到用户按下任意键时继续执行。

2.简单的计算：接下来，我们来看一个简单的计算程序示例：```PROGRAM SimpleCalculator;VARnum1, num2, result: INTEGER;BEGINPRINTLN("Enter the first number: ");READLN(num1);PRINTLN("Enter the second number: ");READLN(num2);result := num1 + num2;PRINTLN("The sum is: ");PRINTLN(result);PAUSE;END.```这个程序会要求用户输入两个数字，然后计算它们的和，并在屏幕上显示结果。

3.条件语句：条件语句可以根据条件执行不同的操作。

以下是一个条件语句的示例程序：```PROGRAM EvenOrOdd;VARnum: INTEGER;BEGINPRINTLN("Enter a number: ");READLN(num);IF num MOD 2 = 0 THENPRINTLN("The number is even.");ELSEPRINTLN("The number is odd.");PAUSE;END.```这个程序会要求用户输入一个数字，并判断它是偶数还是奇数，并在屏幕上显示相应的信息。