卡西欧5800p计算器所有编程命令解释

5800卡西欧计算器程序大全1.基本数学运算程序-加法：输入两个数字，然后计算它们的和。

-减法：输入两个数字，然后计算它们的差。

-乘法：输入两个数字，然后计算它们的积。

-除法：输入两个数字，然后计算它们的商。

-平方根：输入一个数字，然后计算它的平方根。

-幂运算：输入两个数字，然后计算第一个数字的第二个数字次方。

2.科学计算程序-对数运算：输入一个数字和一个底数，然后计算它们的对数。

-三角函数：输入一个角度，然后计算它的正弦、余弦和正切值。

-阶乘计算：输入一个数字，然后计算它的阶乘。

-指数函数：输入一个数字，然后计算e的这个数字次方。

-随机数生成：生成一个随机数。

3.金融计算程序-终值计算：输入本金、利率和时间，然后计算将来其中一时刻的价值。

-现值计算：输入将来其中一时刻的价值、利率和时间，然后计算现在的价值。

-年金支付计算：输入每期支付的金额、利率和时间，然后计算总支付金额。

-贷款利率计算：输入贷款金额、每期支付金额和时间，然后计算贷款利率。

-折现计算：输入每期支付金额、利率和时间，然后计算折现值。

4.统计计算程序-平均值计算：输入一组数字，然后计算它们的平均值。

-中值计算：输入一组数字，然后计算它们的中值。

-方差计算：输入一组数字，然后计算它们的方差。

-标准差计算：输入一组数字，然后计算它们的标准差。

-相关系数计算：输入两组数字，然后计算它们的相关系数。

以上只是一部分5800卡西欧计算器程序的示例，卡西欧计算器还提供了更多的功能，例如单位转换、时间计算、日期计算等等，可以根据实际需求选择使用。

希望以上内容对您有所帮助。

比积分公式快速CASIO fx-5800P放样程序（比积分公式快速）正算主程序[ZD-KB]“1,2,3,4,5”?Z:?X:?YLbl 1:Fix 4:?K:?B:?A:0→P:0→RZ=1＝＞Prog“YS-1”Z=2＝＞Prog“YS-2”Z=3＝＞Prog“YS-3”Z=4＝＞Prog“YS-4”Z=5＝＞Prog“YS-5”Prog“ZDYS”:M-X→I:N-Y→J:Prog“C”: Cls:Locate 1,1,“J=”:Locate 4,1, J°:Locate 1,2,“I=”:Locate 10,2,I:Locate 1,3,“M=”:Locate 7,3,M:Locate 1,4,“N=”:Locate 7,4,N◢Cls:Goto 1反算主程序[ZD-MN]“1,2,3,4,5”?Z:?KLbl 0:Fix 4:?M:?N:M→D:N→ELbl 1:90→A:0→B:0→P:0→RZ=1＝＞Prog“YS-1”Z=2＝＞Prog“YS-2”Z=3＝＞Prog“YS-3”Z=4＝＞Prog“YS-4”Z=5＝＞Prog“YS-5”Prog“ZDYS”:Pol(D-M+×10-9,E-N+×10-9:Isin(L-J→A:Icos(L-J→BIf Abs(A)＞0.001:Then K+A→K:Goto 1:Else Cls:Locate 1,1,“K=”:Locate 9,2, K:Loc ate 1,3,“B=”:Locate 10,4,B◢IfEnd:Goto 0子程序[C]I+×10-9→I:J+×10-9→J:Pol(I,J:J＜0＝＞J+360→J数据库子程序[YS-1]If K＜线元终点里程:Then线元起点切线方位角→C:线元起点X坐标→U:线元起点Y 坐标→V:线元起点里程→O:线元长度→F:±线元起点曲率半径(左转为负，右转为正，直线为零)→P:±线元止点曲率半径(左转为负，右转为正，直线为零)→R:Return:IfEn dIf K＜下一条线元终点里程:Then线元起点切线方位角→C:线元起点X坐标→U:线元起点Y坐标→V:线元起点里程→O:线元长度→F:±线元起点曲率半径(左转为负，右转为正，直线为零)→P:±线元止点曲率半径(左转为负，右转为正，直线为零)→R:Re turn:IfEnd子程序[ZDYS]P=0＝＞×1045→P:R=0＝＞×1045→R:If PR＞0:Then 1→Q:Else -1→Q:IfEnd:PR≥×1090＝＞0→Q:R＜0＝＞-1→Q:Abs(P→P:Abs(R→R:1÷P→H:180÷π→J:(P-R)÷(2FPR→I:Abs(K-O→W:0.1739274226→N:0.3260725774→M:0.0694318442→S:0.3300094782→L:1-L→G:C+QJSW(H+SWI→T:C+QJLW(H+LWI→L:C+QJGW(H+GWI→G:C+QJ W(1-S)(H+WI(1-S→F:A+C+QJW(H+WI→CU+W(Ncos(T)+Mcos(L)+Mcos(G)+Ncos(F→I:V+W(Nsin(T)+Msin(L)+Msin(G)+Nsin(F →J:C→L:I+Bcos(L→M:J+Bsin(L→N正算主程序[KB-MN]输入：1,2,3,4,5---选择待正算的线路X---测站X坐标Y---测站Y坐标 K---桩号B---距中（左负右正中零）结果：J=测站到放样点的方位角I=测站到放样点的平距M=放样点X坐标N=放样点Y坐标若果求斜交时边桩坐标，主程序[KB-MN]中90→A修改为斜交角度→A反算主程序[MN-KB]输入：1,2,3,4,5---选择待反算的线路K---待反算点附近的大概桩号M---待反算点X坐标 N---待反算点Y坐标结果：K=反算点的桩号 B=反算点的距中（左负右正中零）使用说明：(数据库[YS-1]中，当P或R的值为零时，可以省略输入0→P或0→R)输程序时，例“×1045→P”的小“×10”为计算器面板的白色键“×10X”子程序[ZDYS]中×1045→P相当于10∧(45)→PPR≥×1090＝＞0→Q即PR≥10∧(90)＝＞0→Q1、当线元为直线时，其起点、止点曲率半径为零。

卡西欧5800P坐标正反算程序超好用5800P坐标正算反算程序U：“XO”起点的X坐标，V：“YO”起点的Y坐标，O：“SO”起点的里程桩号，G：“FO”起点的方位角，H：“LS”计算段线元的长度，P：“RO”线元起点的曲率半径，R：“RN”线元终点曲率半径，“Q ”线元图形信息（直线段Q=0，左偏Q=-1，右偏Q=1）以道路中线前进方向（即大里程方向）区分左右。

DY=ZB:LC：输入1为正算，既输入里程桩号和偏距算坐标，输入2为反算，既输入坐标算里程桩号和偏距。

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

1．当线元为直线时，其起点，终点的曲率半径为无穷大，以10的45次方代替。

2．当线元为圆曲线时，无论其起点，终点与什么线元相接，其曲率半径均等于圆曲线的半径。

3．当线元为完整缓和曲线时，起点与直线相接时，曲率半径为无穷大，以10的45次方代替，与圆曲线相接时，曲率半径等于圆曲线半径。

终点与直线相接时，曲率半径为无穷大，以10的45次方代替，与圆曲线相接时，曲率半径等于圆曲线半径。

4．当线元为非完整缓和曲线时，起点与直线相接时，曲率半径等于设计规定的值，与圆曲线相接时，曲率半径等于圆曲线半径，终点与直线相接时，曲率半径等于设计规定值，与圆曲线相接时，曲率半径等于圆曲线半径。

1．坐标正反算主程序A-ZBZS3U：“XO ”？U：V：“YO”？V：O：“SO”？O：G：“FO”？G：H：“LS”？H：P：“RO”？P：R：“RN”？R：“Q”？Q：(1÷P)->C:(P-R)÷(2HPR)->D:(180÷Π)->E:N：“DY=ZB:LC”?N:If N=1:Then Goto 1:Else Goto 2:IfEnd:Lbl1:S:“LC”？S：Z:“PJ”？Z：Abs（S-O）->W：Prog“SUB1”：“XS=”：X◢“YS=”：Y◢“FS=”：F-90◢Goto 1:Lbl 2:“X”?X: “Y”?Y:X->I:Y->J:Prog “SUB2”:S: “LC=”:O+W->S◢Z: “PJ=”:Z◢Goto 2:2．坐标正算子程序SUB10.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.坐标反算子程序SUB2G-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)<10^(-3):Then Goto 1:Else W+Z->W:Goto 0:IfEnd:Lbl 1:0->Z:Prog “SUB1”:(J-Y)÷sin(F)->Z:。

1fx－5800P计算器编程缓和曲线程序14→DimZ ：“ZHK”：?K：?R ：? A：?L：? T：? F：“Y＋1，Z－1”：?P：“JDX”：?Q：“JDY”：?W：180÷（πR）→Z：0.5L－L^3÷(240R2)→Z[8]：“LZ”：ZL÷2→B：A÷Z＋L→Z[13]◢“ZHK=”：K◢“HYK=”：K+L→Z[1]◢“YHK=”：K+ Z[13] －L→Z[2]◢“HZK=”：K+ Z[13]→Z[3]◢“ZHX=”：Q+Tcos(F+180)→U◢“ZHY=”：W+Tsin(F+180)→V◢“HZX=”：Q+ Tcos(F+PA)→Z[6]◢“HZY=”：W+ Tsin (F+PA)→Z[7]◢Lb1 0：“CDZH”：?MIf M≤K：Then Goto 6：Else If M≤Z[1] ：Then Goto 1：Else If M≤Z[2] ：Then Goto 2：Else If M≥Z[3] ：Then Goto 7：Else If M≥Z[2] ：Then Goto 5：If End：If End：If End：If End：If EndLb1 1：M－K→G：√（（G－G^(5)÷(40L2R2)＋G^(9)÷(3456R^(4)L^(4)))2＋(G^(3)÷(6RL)－G^(7)÷(336R^(3)L^(3)) ＋G^(11)÷(42240R^(5)L^(5)))2）→D F＋PZG2÷(6L)→C：F＋PBG2÷L2→H：Goto 3Lb1 2：M－Z[1]→G：R（1－cos（B＋ZG））＋L2÷（24R）→Z[9]：√（Z[9]2＋（Rsin（B＋ZG）＋Z[8]）2）→DF＋Ptg-1(Z[9]÷(Rsin(B＋ZG)＋Z[8]))→C：F＋P(B＋ZG)→HLb1 3“X=”:U＋Dcos(C)→X◢“Y=”:V＋Dsin(C)→Y◢Lb1 B：“ZBJS1，FY－1”：?JIf J>0：Then Goto 4：Else If J〈0：Then Goto A：If End：If EndLb1 4：“ZB”：?S“ZBX”:X＋Scos（H－90）◢“ZBY”:Y＋Ssin（H－90）◢“YB”：?N“YBX”:X＋Ncos（H＋90）◢“YBY”:Y＋Nsin（H＋90）◢Goto 0Lb1 5：Z[3]－M→G：（T－G＋G^(5)÷(40L2R2)－G^(9)÷(3456R^(4)L^(4))) sin(A) ＋(G^(3)÷(6RL)－G^(7)÷(336R^(3)L^(3))＋G^(11)÷(42240R^(5)L^(5))) cos(A)→Z[4]：T＋（T －G＋G^(5)÷(40L2R2)）cos(A) －(G^(3)÷(6RL)－G^(7)÷(336R^(3)L^(3))) sin(A)→Z[5]：√（Z[4]2＋Z[5]2）→D ：F＋Ptg-1(Z[4]÷Z[5])→C：F＋P(A－BG2÷L2) →H：Goto 3Lb1 6：K－M→D：F＋180→C：F→H：Goto 3Lb1 7：M－Z[3]→D：F＋PA→C：C→H：Goto 9Lb1 9：“X=”: Z[6]＋Dcos(C)→X◢“Y=”: Z[7]＋Dsin(C)→Y◢Goto BLb1 A：“N”：?N:“E”：?S：“H”：?I“X=”:（N－X）cos(H)＋(S－Y)sin(H)＋M→Z[10]◢“Y=”:（S－Y）cos(H)－(N－X)sin(H) →Z[11]◢“MS”：1711.15+0.004(Z[10]-85030) →E◢If I≥E+2 ：Then“+－R1”：6.57－√((I－E－2)) 2+ Z[11] 2→OElse If I<E+2 ：Then“+R2”：7.47－√((E+2－I) 2+(Abs( Z[11])+0.9) 2→O◢“﹦＞DB”:(I－E+0.5)→O◢Z[10] →M：If End：If EndGoto 01.1程序说明“DimZ”—内存变量扩充“ZHK”—输入直缓点桩号“R”—输入曲半径“L”—输入缓和曲线长“A”—输入偏角“Y＋1，Z－1”—路线右转输＋1，左转输－1“FWJ”—输入起算方位角“JDX”—输入交点X坐标“JDY”—输入交点Y坐标“ZHK=”：得出直缓点桩号“HYK=”：得出缓圆点桩号“YHK=”：得出圆缓点桩号“HZK=”：得出缓直点桩号“ZHX=”：得出直缓点X“ZHY=”：得出直缓点Y“HZX=”：得出缓直点X“HZY=”：得出缓直点Y“CDZH”—输入待测点桩号“X=”：得出测点桩号中心桩N“Y=”：得出测点桩号中心桩E“ZBJS1，FY－1”—①（坐标计算）施工坐标转大地坐标输+1，“ZB”—输入中桩到左边桩的距离；“ZBX”: 得出待测点左边N值“ZBY”: 得出待测点左边E值“YB”—输入中桩到右边桩的距离；“YBX”: 得出待测点右边N值“YBY”: 得出待测点右边E值②（放样）大地坐标转施工坐标输－1，“N”—输入大地坐标的N坐标；“E”—输入大地坐标的E坐标。

CASIO5800P1：程序名：QXJS CO“L=”？L:“LI CHENG=”?W↓提示输入里程桩号LbI A↓For 1→N To 20↓输入交点编号为1至20L=1=＞Prog“1XY”←当输入L=1时，启用数据库“1XY”。

If W>Rep(Z)AndW<Imp(Z):Then Prog“MP”:Goto 0: IfEnd:Next↓“--LI CHENG---？”:Stop↓当输入里程Z大于或小于所启用的数据库的里程范围时停止计算LbI 0↓If K<0:Then Q→X:0→Q:0→J:S+C→I:AbS(K) →K:Goto 3 :IfEnd↓Goto 2↓LbI 1↓Q<0=＞360+Q→Q↓“LI CHENG=”?W↓If W>Rep(Z) AndW<Imp(Z):Then Goto 2:EIse“>>>>”:Goto A :IfEnd↓LbI 2↓0→J↓μ0+Abs(W-Abs(K))→I↓W:K<0=＞-W↓If Ans<K:Then 0→U:-I:Goto 4:IfEnd↓I>S+C=＞S+C→I↓LbI 3↓If I<S:Then I2r÷(2RS) →U:I-I∧(5) ÷(40R2S2)+i(I∧(3)÷(6RS)-I∧(7) ÷(336R∧(3)S∧(3)) :EIse (2I-S) r ÷(2R) →U:Z[2]+R(Sin(U)-icos(U)+i):IfEnd↓LbI 4↓J+Anscos(Q)+AnsiSin(Q) →J↓If I=S+C:Then Q+A→Q: -K-I-T→K:T→I:S→T:I→S:-R→R:Prog“MP”:Goto 3:IIfEnd↓If Q+A=0:Then X-A-180→Q:K+Rep(J)+Imp(J) ÷tan(A) →K:O+Imp(J)(cos(Q)+i sin(Q)) ÷sin(A)→O:Goto 2:IfEnd↓If I=S:Then Q-180→Q:O+J→O:Goto 2:IfEnd↓K <0=＞U-180→U↓Q+U→U↓“BIAN JU=”?E↓Rep(O)+Rep(J)-Esin(U) →X:Imp(O)+Imp(J)+Ecos(U) →Y↓CIs:Fix3:Locate1,1, “X=”: Locate7,2,X: Locate 1,3, “Y=”: Locate 7,4,Y▲If E=x10-6:Then Prog “BYXY”:Goto1:IfEnd↓Goto 1↓Prog“ZBFS”:Goto1↓备注：程序中“↓”为回车键，“-”CASIO计算器的（-）键，“i”虚数i。

单圆曲线(YQXJS)“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坐标）特别注意：1.进行反向计算（大桩号往小桩号计算）时，起算点桩号应设为0；待求桩号与起算点距离多远桩号就为多少；3.起算点方位角应与起算点之前的线形所对应的方位角一致。

第 1 页卡西欧Ｆｘ－５８００Ｐ计算器一、Ｆｘ－５８００Ｐ编程命令１、基本操作命令（１）分隔语句。

不停止程序的执行。

（２）（３）（４）２、关系运算子３、转移命令（１） ｎ。

第 2 页（２）及后面的所有见容。

＜变量＞值为零，则会跳过语句１和语句２以及执行该命令后的所有内容。

（３）＜变量＞值非零，则执行语句１，然后执行语句２以及后面的所有见容。

＜变量＞值为零，则会跳过语句１和语句２以及执行该命令后的所有内容。

（４）４、控制结构命令：（１）（２）之间语句的执行重复进行，每次执行控制变量都加１（从始值开始）。

当控制变量的值到达终值时，执行会跳至Ｎｅｘｔ后面的语句。

如果Ｎｅｘｔ后面没有语句，则停止程序的执行。

（３）第 3 页（４）５、子程序调用命令（１）从当前程序（主程序）执行另一个其它程序（子程序）。

最多可以嵌套１０层子程序。

６、程序控制命令（１）（２） 从子程序返回调用此子程序的程序。

在主程序中，此命令会终止程序。

（３） 强制终止程序执行。

在子程序中执行此命令会终止所有执行，包括所有子程序和主程序。

７、输入／输出命令（１） 返回如下代码之一（对应按的最后一个键）。

如果未按键，则返回０。

８、显示屏幕命令（１） 显示为注释文本。

（２） 清除显示器中的所有表达式和计算结果。

（３）在指定的屏幕位置显示指定值或字符串。

９、逻辑运算子命令（１）运算两端的表达式（相等或不相等），并基于它们的逻辑积返回真或假。

（２）运算两端的表达式（相等或不相等），并基于它们的逻辑积返回真或假。

（３）运算后面紧邻的表达式（相等或不相等），并返回其非值。

１０、清除命令（１）清除所有列表数据。

（２）将所有变量清零。

（３）清除所有矩阵存储器的内容。

（４）清除所有公式变量。

二、Ｆｘ－５８００Ｐ涵数命令１、绝对值２、正弦涵数３、余弦涵数４、正切涵数第 4 页三、ｆｘ－５８００Ｐ计算器编程１、线路坐标计算［ＸＬＪＳ］（主程序）使用说明（１）功能计算线路中桩、边桩坐标。

1．公路铁路任意线型单元路线中桩边桩坐标及放样极坐标的通用计算程序(ZHYDLDY ZBJS)作者：琚新涛QQ：25425579一、线路中线的线型分析公路铁路线路按照线型分类，可分为直线、圆曲线线路和曲线线路。

一般情况下，缓和曲线是连接直线与圆曲线的过渡性曲线，该缓和曲线称为完全的缓和曲线。

在特殊的情况下（公路立交匝道），截取完全缓和曲线上的一段，其两端外连接两个不等半径的圆曲线，即将一个半径逐渐过渡到另一半径，这种缓和曲线称为不完全缓和曲线。

所以，缓和曲线分为完全的缓和曲线和不完全的缓和曲线两种。

那么，一条很长的公路铁路线路可划分为一个一个单一线型的线路单元。

即直线单元，圆曲线单元，完全缓和曲线单元和不完全缓和曲线单元。

各类线型线路单元具有各自不同的几何性质，直线单元式半径无穷大而曲率为零且始终保持不变的线型。

圆曲线单元是始终保持某一半径和相应曲率不变的线型。

缓和曲线单元是半径和曲率都处处不等且均匀渐变的线型，即半径和曲率随线路中线点位呈线性变化。

完全缓和曲线单元是将直线的零曲率均匀渐变到另一半径圆曲线曲率的线型，不完全缓和曲线单元是将某一半径圆曲线曲率均匀渐变到另一半径圆曲线曲率的线型。

于此可见，不完全缓和曲线路线是所有线型线路单元中最一般的线型单元。

LbI D:Fix 3:Deg:“GTL ZHY ZBZ FYJS”:”CZD ZBN(X)=”?R:”CZD ZB E(Y)=”?S:”DY QD ZBN(X)=”?A:”DY QD ZB E(Y)=”?B:”DY QDBJ(R1)=”?T:”DY QD LC(L1)=”?D:”DY QD QX FWJ=”?E:”DY ZD BJ(R2)=”?U:”DY ZD LC(L2)=”?G:”DYQD—ZD QXZX(Z=-1,Y=+1)=”?WWT→C:WU→F:0→I:0→J:(C-F)÷(2CF(G-D))→HLbI A:”FYD DY ZZ LC=”?O：IF O=-1:Then Goto C:IfEnd:If O＜D:Then Goto B:IfEndIF O＞G:Then Goto B:IfEnd“ZZ-BZ FXJ(Z-,Y+)=”?P:”ZZ-BZ PJ=”?Q:E+((O-D)÷C+H(O-D)2)r→V:If V＜0:Then V+360→V:IfEndIf V≥360:Then V-360→V:IfEnd“ZZD QX FWJ=”:V▶DMS◢Rad:A+∫(cos(E。

卡西欧5800p计算器所有编程命令解释卡西欧5800p计算器所有编程命令解释1. 句法 1:Locate <列数>, <行数>,<数值> Norm 1 指数显示句法2:Locate <列数>, <行数>,<表达式> Norm 2 小数显示句法3:Locate <列数>, <行数>, "字符串"fx-5800P 的屏幕最多可以显示4 行、16 列字符，2. 因此定位语句中的列数值应为大于等于1、小于等??x 只显示, 于16 的整数，行数值应为大于等于1、小于等于字符+??x 显示字符+, 4 的整数。

10. Lbi n ~ Goto n Goto n~Lbl n ,x 显示 x?“字符”,x 显示字符+,无条件转移至 Lbi n 位置有?则不显示该变量当前值11. Getkey3.(判断表达式) 语句1 : 语句2。

如果判断表达式为真(或非零)，则不跳过语句1. 返回与上次按键相对应的代码,Getkey=如果判断表达式为假(或是零)，则会跳过语句1.12. DO ~ LpWhile循环语句4. If...then…else…ifendDo <语句块> LpWhile<条件> 如果语句为真，则执行then(不执行else),然后先执行语句块，然后测试条件，条件为真时重复执执行ifend. 行语句块，否则执行<条件>后的语句。

无,论条件如果语句为假，则执行else(不执行then),然后是否为真，语句块至少被执行一次。

执行ifend.13. Pol5. Break 中断语句计算两坐标点之间距离,坐标为(4，4),与原点的距离就是POL(4，4)=4?214. Abs 中断For，Do，While循环，并从该循环的下个命令起继续运行求绝对值15. Fix6. Dsz 取整数函数Fix(Rnd*11) ,取0 ~ 11的随机整数16. Rnd使控制变量递减一，在变量的值为零时执行转移随机函数17. 角度单位设置语句 7. Isz Deg:设置角度单位为十进制度，按键输入Deg。

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：待求点里程。

一、功能及原理说明1. 功能说明：本程序由一个主程序(1-MAIN)和七个子程序——正算子程序(1-SUB-ZS)、反算子程序(1-SUB-FS)等构成，可以根据曲线段——直线、圆曲线、缓和曲线（完整或非完整型）的线元要素（起点坐标、起点里程、起点切线方位角、线元长度、起点曲率半径、止点曲率半径）及里程边距或坐标，对该曲线段范围内任意里程中边桩坐标进行正反算。

本修改版程序既可实现正算全线贯通，亦可实现反算全线贯通。

本程序在CASIO FX-5800P计算器运行。

2．计算原理：利用Gauss-Legendre 5点通用公式正算线路中边桩坐标、线外测点至曲线元起点和终点的垂距的符号是否相异（即Dca×Dcb<=0=>该测点在其线元内）进行判断并利用该线元要素反算中桩里程、支距，最后计算出反算结果。

3. 程序输入计算器后，请根据统计串列List X，Y，freq[N]在程序中实际可能被使用的维数，将其统计矩阵串列改为包含相应维数的任意数据的矩阵，即在list列表中随机输入相应维数的数据，保证矩阵大小符合维数要求。

4. 本程序正算速度在1-2秒左右，反算比正算慢点，可根据需要调整精度加快速度。

本程序可建立曲线要素数据库及高程变坡点数据库，一次输入整条线路数据，计算时自动调用数据库，实现全线贯通，也可临时手动输入线元计算要素进行计算。

5. 本程序由小骆在前人的基础上改进而成，经个人测试可用。

学识浅薄，不足之处，在所难免，欢迎提出改进意见。

交流邮箱：716118673@二、源程序1.主程序(1-MAIN)Deg:fix 320→DimZLbl 0:cls：“INPUT(0),ZX(1),YX(2)”?I (选择手动输入计算参数0，还是调用线路数据1,2）If I=0:Then Prog “1-DAT1”:IfEnd“SZ=>XY(1),XY=>SZ(2)”?N（正算，反算）If N=1 :Then Goto 1Else If N=2 :Then Goto 2Else Goto 3IfEnd:IfEndLbl 1:“KP=”?S（输入待求桩号）If S<0:Then Goto 0:IfEnd“JL(m)=”?Z （输入偏距）If Z≠0:Then “ANGLE→R(Deg)=”?M:IfEnd （输入斜交右角）If I≠0:Then Prog “1-DAT2”:IfEndS-O→W:If W<0:Then Goto 0:Else If W>H:Then cls:locate 6,2,"KP OUT"◢Goto 0:IfEnd:IfEnd(前半条针对“DAT”情况，后半条针对“INPUT”情况。

卡西欧fx-5800p计算器测量程序（作者：水江华）1.坐标反算程序"ZBFS QH1-4"◢Deg：Fix 3←┘"X+YiS(m）="?A←┘Lb1 0:"X+YiE(m)，0=>END="?B←┘Abs（B）=0=>Goto E←┘Arg（B-A)→JJ<0=>J+360→J"DIST(m）="：Abs（B-A)◢"α（DMS)=":J▶DMS◢Goto 0←┘Lb1 E:"ZBFS QH1-4=>END"2.坐标正算程序"ZBZS QH1-3"◢Deg：Fix 3←┘"XS(m)= "？A:"YS(m)= "？B←┘Lb1 1:"DIST(m)= "？L←┘If L≤0:Then Goto 2:IfEnd←┘"α（Deg)="？R←┘A+Lcos（R）→C←┘B+Lsin（R）→D←┘Fix 3："XE(m)= ":C◢"YE(m)= ":D◢Goto 1←┘Lb1 2:"ZBZS QH1-3=>END"3.单一闭、附合导线近似平差程序"BFHDXPC QH1-8"◢Deg:Norm 1:FreqOn←┘n→N←┘If List Y[N]=0:Then N-1→DimZ:Goto 0←┘Else N→DimZ:Goto 1: IfEnd←┘Lb1 0: "CLOSE Or CONECT TRA VE"◢"ANGLE NUM=":N◢"SIDE NUM=":N-1◢"UNKNOWN P NUM=":N-2◢"CLOSE(0)，CONNECT(≠0)="?→Z←┘Fix 3："XA(m)，≤0=>αA→B(Deg)="？A←┘If A>0：Then "YA(m)= "？B：Else "αA→B(Deg)="？R：IfEnd←┘"XB(m)= "？C:"YB(m)= "？D←┘C+Di→U：U→V←┘If A>0：Then Pol（C-A，D-B）：Cls←┘J<0=>J+360→J：J→R←┘"DIST A→B(m)="：I◢"αA→B(DMS)="：R▶DMS◢IfEnd←┘If Z≠0：Then "XC(m)= "？E:"YC(m)= "？F←┘E+Fi→V←┘"XD(m)，≤0=>αC→D(Deg)="？G←┘If G>0：Then "YD(m)= "？H←┘Pol（G-E，H-F）：Cls←┘J<0=>J+360→J：J→S←┘"DIST C→D(m)="：I◢"αC→D(DMS)="：S▶DMS◢Else "αC→D(Deg)="？S：IfEnd←┘Else If R>180：Then R-180→S：Else R+180→S：IfEnd←┘IfEnd←┘∑y→M←┘For 1→I To N←┘If I=1：Then R+List X[I]→L：Else L+List X[I]→L：IfEnd←┘If L>180：Then L-180→L：Else L+180→L：IfEnd←┘Nent←┘3600(L-S)→T←┘"α CLOSE ERROR(S)="：T◢40→W←┘Abs(T)>W=>"α CLOSE ERROR OVRE!"←┘-T÷N÷3600→P：0→O←┘For 1→I To N←┘If I=1：Then R+List X[I]+P→L←┘Else L+List X[I] +P→L：IfEnd←┘If L>180：Then L-180→L：Else L+180→L：IfEnd←┘If I<N：Then List Y[I]<L→Z[I] ：Z[I]+O→O：IfEnd←┘Nent←┘3600(L-S)→T←┘"CHECK α CLOSE ERROR(S)="：T◢U+O-V→O←┘Int(M÷Abs(O))→K←┘"DELTA X(m)= "：ReP(O)◢"DELTA Y(m)= "：ImP(O)◢"RELAT CLOSE ERROR=1÷"：K◢K<4000=>"RELAT CLOSE ERROR OVER! "←┘For 1→I To N-1←┘Z[I]-OList Y[I]÷M→X←┘If I=1：Then U+X→Y：Else Y+X→Y：IfEnd←┘Norm 1："POINT n="：I◢Fix 3："X(m)= "：ReP(Y)◢"Y(m)= "：ImP(Y)◢Nent←┘Y-V→Q←┘"CHECK X (m)= "：ReP(Q)◢"CHECK Y (m)= "：ImP(Q)◢Goto E←┘Lb1 1："NO DIRECT TRA VE"◢"ANGLE NUM="：N-1◢"SIDE NUM="：N◢"UNKNOWN P NUM="：N-1◢"XA(m)= "？A:"YA(m)= "？B←┘"XB(m)= "？C:"YB(m)= "？D←┘A+Bi→U:C+Di→V←┘0→H:U+List Y[1]<H→Z[1]←┘For 1→I To N-1←┘H+List X[1]→H←┘If H>180：Then H-180→H：Else H+180→L：IfEnd←┘以下未完程序由读者完成。

卡西欧5800程序完整版＂ZS=1,FS=2＂？N: 1÷P →C:(P-R)÷(2HPH)→D:180÷π→E: If N=1: Then Goto 1: Else Goto 2: IfE nd←┚LbI 1:1 →I:0 →Z：Abs(K-Ｏ) →W: Prog＂ZS＂←┚F-90→F←┚＂JJ＂?K:＂PJ＂?L: ＂ZX=＂：X+Lcos(F+K) →Z[3]◢＂ZY=＂: Y+Lsin(F+K) →Z[4]◢＂QXFWJ=＂:F DMS◢Abs(Z) →Z:Goto 8←┚LbI 2:＂X＂?I:＂Y＂?J: Prog＂FS＂:＂FSZH=＂:Ｏ+W→K◢＂FSJL=＂:Z◢Lbl 8正算子程序（ZS）（不运行）1÷P→C:(P-R)÷(2HPR) →D: 180÷π→E←┚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+ZcosF→X：Y+ZsinF→Y3反算子程序（FS）（不运行）G-90→T：Abs（（Y-V））cos（T）-（X-U）sin（T）→W：0→Z←┚Lbl 0←┚prog＂ZS＂：T+QEW（C+WD）→L：（J-Y）cosL-（I-X）sinL→Z：If Abs(Z)＜0.001: Then Goto1：E lse W+Z→W：IfEnd :Goto 0←┚Lbl 1：0→Z：Prog＂ZS＂：（J-Y）÷sinF→ZZX-WN（运行主程序，该程序适用于匝道，对全段完整非对称曲线计算太过麻烦）＂CZX＂?S(仪站X坐标):＂CZY＂?W（仪站Y坐标）LbI 0: ＂K＂?K: If K≤126.9（第1条单一曲线的终点下面同上）: Then Goto A：Else If K≤176.9 And K＞126.9: Then Goto B:Else If K≤259.562 And K＞176.9: Then Goto C:Else If K≤309.562 And K ＞259.562: Then Goto D：IfEnd:IfEnd:IfEnd:IfEnd←┚LbI A:92094.336（起点X坐标）→U:8287.962（起点Y坐标）→V:0起点桩号→O:145°11＇54＂（方位角）→G:126.9（曲线长度）→H:10^(45) （起点半径）→P:10^(45) （止点半径）→R:+1（路线左右偏，左负右正，直线输0）→Q:Prog ＂WN＂:Goto WLbI B:91990.134→U:8360.388→V:126.9→O:145°11＇54＂→G:50→H:10^(45) →P:150 →R:+1→Q:Pr og ＂WN＂:Goto WLbI C:91947.609→U:8386.570→V:176.9→O:154°44＇51＂→G:82.662→H:150 →P:150 →R:+1→Q:Pr og ＂WN＂:Goto WLbI D:91867.101→U:8399.992→V:259.562→O:186°19＇19＂→G:50→H:150 →P: 10^(45) →R:+1→Q: Prog ＂WN＂:Goto WLbI W:＂PJ1＂?T←┚（该项是只左右边桩再左右偏距，输0为不再左右偏，可以直接出方位角、距离，适用于桥梁桥台、盖梁、涵洞八字墙等放样，以路线前进方向，前-，后+）If T=0：Then Z[3]→Z: Z[4]→M: Goto P: Else Goto V: IfEnd←┚LbI V:＂JJ1＂? O←┚（左右边桩再偏夹角，用180°减去路线夹角）＂X1=＂: Z[3]+Tcos（F+N+ O）→U◢＂Y1=＂:Z[4]+Tsin（F+N+ O）→V◢U→Z: V→M: GotoP←┚LbI P:Pol(Z-S,M-W): If J≤0：Then J+360°→J: IfEnd←┚＂JL=＂:I◢（仪站至测点的距离）＂FWJ=＂:J DMS◢（仪站至测点的方位角）Goto0备注：1．规定以道路中线前进方向（即里程增大的方向）区分左右；当线元往左偏时Q=-1；当元线往右偏时，Q=1：当元线为直线时，Q=0。