5800 计算程序Fx-5800 计算器程序QXJS-000 主程序Fix 3:Deg:Lbl 4:“1.SZ=>XY”:“2.XY=>SZ”: “ 1,2= ” ? →Q:” LICHENG= ” ? →S:Prog“QXJSSUB0” ↙Lbl 0:IfQ=1:Then Goto1:IfEnd:IfQ=2:ThenGoto2:IfEnd ↙Lbl 1:”OUT JL=”? → Z: “OUT JD=”?G:Prog“QXJSSUB1”:“XZB=”:N →N ◢“YZB=”:E →E ◢“QXFWJ=”:F →F:F ▲ DMS ◢Goto4 ↙Lbl 2: “XZB=”? →B: “YZB=”? →C:B→N:C→E:Prog“QXJSSUB2”: “LICHENG=”:S →S ◢“OUT JL=”:Z →Z ◢Goto4 ↙说明：Q: 代表正反算，其中 1 为正算， 2 为反算； S: 代表里程； Z ：代表偏移距离； G ：代表偏移角度（以线路前进方向为 X 方向，顺时针转为正； N ： X 坐标； E ： Y 坐标； F ：切线方位角；QXJSSUB0 ( 数据库 )Goto1 ↙Lbl 1IF S<157687.528:THEN2884169.2517→U:471475.6573→V:157547.528→O:98 ° 32 ′ 43.08″ →A:140→L:10^45→P:10000→R: Return:IfEnd ↙IF S<157993.605:THEN2884148.1260→U:471614.0539→V:157687.528→O:98 ° 56 ′ 46.93″ →A:306.0771→L:10000→P:10000→R: Return:IfEnd ↙IF S<158133.605:THEN2884095.9086→U:471915.6318→V:157993.605→O:100 ° 42 ′ 0.22″ →A:140→L:10000→P:10^45→R: Return:IfEnd ↙IF S<163641.879:THEN2884069.2735→U:472053.0744→V:158133.605→O:101 ° 6 ′ 4.07″ →A:5508.274→L:10^45→P:10^45→R: Return:IfEnd ↙IF S<163781.879:THEN2883008.7030→U:477458.2815→V:163641.879→O:101 ° 6 ′ 4.08″ →A:140→L:10^45→P:10000→R: Return:IfEnd ↙IF S<164195.661:THEN2882981.4268→U:477595.5984→V:163781.879→O:101 ° 30 ′ 7.93″ →A:413.7833→L:10000→P:10000→R: Return:IfEnd ↙IF S<164335.661:THEN2882890.5519→U:477999.2492→V:164195.6623→O:103 ° 52 ′22.82 ″ →A:140→L:10000→P:10^45→R: Return:IfEnd ↙IF S<171831.142:THEN2882856.3502→U:478135.0069→V:164335.6623→O:104 ° 16 ′26.67 ″ →A:7495.481→L:10^45→P:10^45→R: Return:IfEnd ↙IF S<171961.1406:THEN2881008.2613→U:485399.0830→V:171831.1404→O:104 ° 16 ′26.65 ″ →A:130→L:-10^45→P:-11000→R: Return:IfEnd ↙IF S<172204.6898:THEN2880976.4567→U:485525.1322→V:171961.1406→O:103 ° 56 ′7.81 ″ →A:243.5492→L:-11000→P:-11000→R: Return:IfEnd ↙IF S<172334.6898:THEN2880920.4244→U:485762.1431→V:172204.6898→O:102 ° 40 ′0.93 ″ →A:130→L:-11000→P:-10^45→R: Return:IfEnd ↙说明： S ：里程； 157547.528→O 为线元终点里程；2884169.2517→U 为线元起点 X 坐标； 471475.6573→V 为线元起点Y 坐标； 98 ° 32 ′ 43.08 ″ →A 线元起点切线方位角； 0^45→P 线元起点半径（左转为负右转为正）； 10000→R 线元终点半径（左转为负右转为正）QXJSSUB1 正算子程序0.5 （ 1÷R-1÷P ） ÷L→D:S-O→X ↙U+∫(cos(A+(X÷P+DX2)×180÷π,0,X)→N ↙V+∫( sin(A+(X÷P+DX2)×180÷π,0,X)→E ↙A+(X÷P+DX2)×180÷π→F ↙N+Zcos(F+G) →N:E+Zsin(F+G) →EReturnQXJSSUB2 反算子程序Lbl 1:0→Z ： 1→Q ： Prog“QXJSSUB0”: 0.5 （ 1÷R-1÷P ）÷L→D:S-O→X ↙U+∫(cos(A+(X÷P+DX2)×180÷π,0,X)→N ↙V+∫( sin(A+(X÷P+DX2)×180÷π,0,X)→E ↙A+(X÷P+DX2)×180÷π→F ↙N+Zcos(F+90) →N:E+Zsin(F+90) →E :Pol(N-B+10^(-46), E-C+10^(-46)):Isin(F-90-J) →W:S+W→S ↙IfAbs(W)>0.0001 :Then Goto1:IfEnd ↙Lbl 2: 0→Z ： Prog“QXJSSUB1”:(C-E) ÷sin(F+90) →ZReturnH （高程主程序）Fix 3 ： Lb1 3: ” LICHENG= ” ?Z: Prog“SQXZL”:(P-Q) ÷Abs(P-Q) →W ↙If Z<(H-T):Then(H-Z) × P →X:Goto 2:IfEnd ↙If Z ≥ (H-T) And Z<H:Then (H-Z) × P+(Z-H+T)2 ÷ (2WR)→X:Else (H+T-Z)2 ÷ (2WR)-(Z-H) × Q→X: Goto 2:IfEnd ↙Lb1 2: ” GAO CHENG= ” D-X →X ◢Goto 3SQXZL （竖曲线数据库）Goto 1Lb1 1If Z ≤ 157893.75:Then25000→R:93.75→T:157800→H:421.977→D:-0.0045→P:0.003→Q:Return:IfEnd ↙If Z ≤ 159000:Then25000→R:150→T:158850→H:425.127→D:0.003→P:0.015→Q:Return:IfEnd↙If Z ≤ 165017.5:Then25000→R:117.5→T:164900→H:515.877→D:0.015→P:0.0056→Q:Return:IfEnd ↙If Z ≤ 168207.5:Then25000→R:107.5→T:168100→H:533.797→D:0.0056→P:-0.003→Q:Return:IfEnd ↙If Z ≤ 172175:Then25000→R:75→T:172100→H:521.797→D:-0.003→P:0.003→Q:Return:IfEnd ↙说明： 157893.75 代表竖曲线终点里程， 25000→R 代表竖曲线半径； 93.75→T 代表竖曲线切长； 421.977→D 代表边坡点标高（未改正之前）； -0.0045→P 代表前段坡度，上坡为正，下坡为负；0.003→Q 代表后段坡度，上坡为正，下坡为负；Fx-5800路线高程程序GCQX-000 主程序Lbl 1: Prog“GCQX-SUB000” ↙If R>10^8: Then B+(S-A)(D-B) ÷(C-A)→H: Goto2: IfEnd↙Pol(D-B,C-A):J-Sin-1(I÷2÷R)→F:B+R Cos(F+90)→X:A+RSin(F+90)→Y: Sin-1((S-Y) ÷R)→M:X+R Cos(M)→H: Goto2↙Lbl 2: “H=”:H: Goto1GCQX-000 数据库Goto0↙Lbl 0↙If S<***: Then ***→A(线元起点里程): ***→B(线元起点高程):***→R(线元半径左-右+): ***→C(线元终点里程): ***→D(线元终点高程): Return:IfEnd↙If S<***: Then ***→A: ***→B: ***→R: ***→C: ***→D: Return:IfEnd↙………………………..为了便于解读，每增加一个线元增加一行语句，每增加一条曲线增加一个Lbl，每增加一个工程增加一个文件。
文件名“TYQXJS”“1.KD=>XY”:“2.XY=>KD”:”N”?N:”XA”?U:”YA”?V:”DKA”?O:”CA”?G:”LS”?H:”RA”?P:”RB”?R:”Q”?Q: 1/P->C:(P-R)/(2HPR)->D:180/∏->E:IF N=1:THEN GOTO 1:ELSE GOTO 2:IFENDLbl 1:”DKI”?S:”D”?Z:ABS (S-O)->W:PROG “SUB1”:”XS”:X◢“YS”:Y◢GOTO 1Lbl 2:”X”?X:”Y”?Y:X->I:Y->J:PROG “SUB2”:O+W->S“S”:S◢“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(A COS(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“SUB2”G-90->T:ABS((Y-V)COS(T)-(X-U)SIN(T))->W:0->Z:Lbl0:PROG “SUB1”:T+QEW(C+WD)->L:(J-Y) COS(L)-(I-X)SIN(L)->Z:IF ABS(Z)<1*10^(-6):THEN GOTO 1:ELSE W+Z->W:GOTO 0:IFENDLbl 1: 0->Z:PROG”SUB1”：(J-Y)/SIN(F)->Z说明：输入与显示输入部分：1. SZ => XY2. XY = >SZN ? 选择计算方式，输入1表示进行由里程、边距计算坐标；输入2表示由坐标反算里程和边距。
5800卡西欧计算器程序大全1.基本数学运算程序-加法：输入两个数字，然后计算它们的和。
-减法：输入两个数字，然后计算它们的差。
-乘法：输入两个数字，然后计算它们的积。
-除法：输入两个数字，然后计算它们的商。
-平方根：输入一个数字，然后计算它的平方根。
-幂运算：输入两个数字，然后计算第一个数字的第二个数字次方。
2.科学计算程序-对数运算：输入一个数字和一个底数，然后计算它们的对数。
-三角函数：输入一个角度，然后计算它的正弦、余弦和正切值。
-阶乘计算：输入一个数字，然后计算它的阶乘。
-指数函数：输入一个数字，然后计算e的这个数字次方。
-随机数生成：生成一个随机数。
3.金融计算程序-终值计算：输入本金、利率和时间，然后计算将来其中一时刻的价值。
-现值计算：输入将来其中一时刻的价值、利率和时间，然后计算现在的价值。
-年金支付计算：输入每期支付的金额、利率和时间，然后计算总支付金额。
-贷款利率计算：输入贷款金额、每期支付金额和时间，然后计算贷款利率。
-折现计算：输入每期支付金额、利率和时间，然后计算折现值。
4.统计计算程序-平均值计算：输入一组数字，然后计算它们的平均值。
-中值计算：输入一组数字，然后计算它们的中值。
-方差计算：输入一组数字，然后计算它们的方差。
-标准差计算：输入一组数字，然后计算它们的标准差。
-相关系数计算：输入两组数字，然后计算它们的相关系数。
以上只是一部分5800卡西欧计算器程序的示例，卡西欧计算器还提供了更多的功能，例如单位转换、时间计算、日期计算等等，可以根据实际需求选择使用。
希望以上内容对您有所帮助。
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计算器具有更多的功能和测量计算程序。
用户可以根据需要自行设计和编写更复杂的程序。
