5800卡西欧计算器程序大全

合集下载

卡西欧5800正反算程序ZFS合集程序(23个子程序)

5800通用程序计算主程序ZFS(命令程序)Lbl 0：Z[10] →S“1XY=>ZLH,2ZL=>XYZ,3=>GAOCHENG,4=>GOUZAOWU”? S：S→Z[10]:If S=1 :Then Prog“ZBFS”:Goto 0 :IfEnd : If S=2 :Then Prog “T-1”:Prog“SATA”: Prog“POLXY”:Goto 0: IfEnd : If S=3 :Then Prog “100”: Goto 0 :IfEnd :If S=4 :Then Prog“T-1”:Prog“SATA”: Prog“NREC”: Goto 0: IfEnd : If S＜0 :Then Stop:IfEnd ←┘子程序1:POLXY(曲线坐标主程序)Z[3]+K→Z[8] : Z[8]+L→Z[6] : Z[6]+ πR (A-180C÷(πR )) ÷180→Z[7]：Z[4]+H→Z[9]←┘If S≥Z[3] And S≤Z[8]：Then Prog“ZZ”: IfEnd: If S＞Z[8] And S≤Z[6]：Then Prog“HX1”: IfEnd: If S＞Z[6] And S≤Z[7]：Then Prog“YX”: IfEnd: If S＞Z[7] And S≤Z[4]：Then Prog“HX2”: IfEnd: If S＞Z[4] And S≤Z[9]：Then Prog“ZZH”: IfEnd :Return←┘子程序2:NREC(结构物计算子程序)X→Z[8] : Y→Z[9] : J→B:“NREC-R”? Z←┘Lbl 1:“ZHONG XIAN:SUN+,FAN-”?H:If H=1000:Stop: IfEnd: “HENGXIANG:R+,L-”?C:0→A: 0→L: Z[8] +H*Cos(B)+C*Cos(B+Z) 0→X:Z[9] +H*Sin(B)+C* Sin (B+Z) 0→Y: Prog“XS”: Goto 1←┘子程序3:T-1(曲线坐标要素)Z[5] →S :Z[2] →M: “ZHUANGHAO=”? S：S→Z[5] :“XIAN LU=”? M: M →Z[2]子程序4:SATA(曲线坐标要素)If M=1：The Goto 1: Ifend : If M=2：The Goto 2:IfendLbl 1：If S≤133962.256(第一缓和曲线最后一个里程桩号HZ或YZ)：Then 132205.295(前一段缓和曲线HZ或YZ点桩号)→Z[3]: 133962.256→Z[4]: 756.81→T(切线长): 2450→R(半径): 166°47′29.4″→B(方位角):1→W(转角方向，左转-1右+1)：28°01′37.7″→A(转角)：290→C(缓和曲线长)：7723.072→G(第一缓和曲线交点X坐标): 6759.57→V(第一缓和曲线交点Y坐标):268.504→K(第一段缓和曲线的前切点与前一段曲线终点(HZ或YZ)间直线段长度)：0→H(第一段缓和曲线的后切点与下一段曲线起点(ZH或ZY)间直线段长度)：Goto 3: IfEnd :If S≤135701.233:Then 133962.256→Z[3]: 135701.233→Z[4]:538.663→T: 1250→R: 194°49′07.2″→B:-1→W：39°52′03″→A：170→C：5794.739→G: 6249.411→V: 699.202→K ：0→H: Goto 3: IfEnd : If S≤136719.362: Then 135701.233→Z[3]: 136719.362→Z[4]:395.034→T: 1200→R: 154°57′04.2″→B:1→W：28°57′02.1″→A：170→C：4729.811→G: 6747.1→V: 241.789→K ：0→H: Goto 3: IfEnd : If S≤138500.304: Then 136719.362→Z[3]: 138500.304→Z[4]:537.629→T: 1200→R: 183°54′06.3″→B:-1→W：41°18′05.8″→A：170→C：3055.115→G: 6632.879→V: 745.923→K ：358.217→H: Goto 3: IfEnd : Lbl 2：If S≤133966.874：Then 132208.893→Z[3]: 133966.874→Z[4]: 665.863→T: 2000→R: 166°47′29.4″→B:1→W：30°30′55.2″→A：240→C：7597.066→G: 6789.145→V:452.794→K：0→H：Goto 3: IfEnd : If S≤135806.291 :Then 133966.874→Z[3]: 135806.291→Z[4]:641.553→T: 1250→R: 197°18′24.6″→B:-1→W：47°58′10.5″→A：170→C：5754.159→G: 6214.901→V: 622.884→K ：0→H: Goto 3: IfEnd : If S≤136742.011: Then 135806.291→Z[3]: 136742.011→Z[4]:478.898→T: 1250→R: 149°20′14.4″→B: 1→W：33°20′54.4″→A：208.169→C：4790.364→G: 6786.312→V: 0→K ：0→H: Goto 3: IfEnd : If S≤138614.023: Then 136742.011→Z[3]: 138614.023→Z[4]:564.626→T: 1300→R: 182°41′08.7″→B: -1→W：40°05′08.2″→A：180→C：2966.347→G: 6700.747→V: 782.498→K ：219.48→H: Goto 3: IfEndLbl 3：子程序5:ZZ(曲线坐标子程序)Z[8] - Z[5]+T→Z[11]：G + Z[11] cos(B +180)→X:V + Z[11] sin (B +180)→Y:B →J: Prog“XS”: Return子程序6:YX(曲线坐标子程序)S- Z[6]→S：180S÷(πR) +180C÷（2πR）→P:C÷2-L^3÷（240 R2）→ J: G+T cos(B +180) →X: V+T sin (B +180) →Y: X+(R sinA+J)cosB+W( R(1-cosA)+ C2÷（24R）) cos(B+90)→ X:Y+(R sin A+J) sin B+W( R(1-cosA)+ C2÷（24R）) sin(B+90)→ Y :B+WA→ J: Prog“XS”:Return子程序7:HX1(曲线坐标子程序)S- Z[8]→S：G+T cos (B+180) →X :V+T sin (B +180) →Y:X+(S-S^5÷(40 R2C2))cosB+W( S^3÷ (6RC)-S^7÷（336R^3C^3）) cos(B+90)→ X :Y+(S-S^5÷(40 R2 C2))sinB+W( S^3÷ (6RC)-S^7÷（336R^3C^3）) sin(B+90)→ Y: B+180W S2÷ (2πR C)→ J: Prog“XS”: Return子程序8:HX2(曲线坐标子程序)Z[4] -S→S：G+T cos (B +WA) →X :V+T sin (B +WA) →Y: X+(S-S^5÷(40 R2C2))cos(B+WA+180)-W(S^3÷ (6RC)-S^7÷（336R^3C^3）) cos(B+WA+270)→X :Y+(S-S^5÷(40 R2 C2))sin(B+WA+180)-W(S^3÷ (6RC)-S^7÷（336R^3C^3）) sin(B+WA+270)→ Y: B+WA-180W S2÷ (2πR C)→ J: Prog“XS”: Return子程序9:ZZH(曲线坐标子程序)Z[5]-Z[4] +T→S:G+Scos(B+WA) →X:V+Ssin(B+WA) →Y: B+WA→J: Prog“XS”: Return子程序10 :ZBFS(坐标反算)Prog“T-1” : Z[1] →A: Z[13] →B: Z[15] →E: Z[16] →O: “X0”? E:“Y0”? O:“H0” ?A: “HOU DU=” ? B: A→Z[1]:B→Z[13] :E→Z[15]: O→Z[16]←┘Lbl 1: Prog“SATA” : Z[3] +K→Z:S-Z→L：Prog“HQ”：（X-E）sin（Q+90）-（Y-O）cos（Q+90）→H:While Abs H≥0.0001: S-H→S: Goto 1:WhileEnd:“S=”:S◢“D=”: (X-E) sinQ-(Y-O) cos(Q)→D◢Lbl 2：D→Z[6]：S→Z[5]:Prog”GC”: Z[3]→B←┘子程序11:Prog “HQ”ARπ÷180+C →K:C2÷（24R）-C^4÷（2688R^3）→ P:(R+P)tan(A÷2)+C÷2-C^3÷(240R2 )→T: -1→N:If L >K-C: Then K-L →L:1→N : IfEnd←┘If L≤0: Then L→X: 0→Y: 0→Q: Goto 1: IfEnd←┘If L≤C :Then L-L^5÷(40R2C2)→X: L^3÷(6RC)-L^7÷(336R^3C^3)→ Y: 90L2÷(πRC )→Q: Goto 1: IfEnd←┘If L≤K-C :Then 180(L-C)÷(Rπ)+90C÷（Rπ)→Q: RsinQ+C÷2-C^3÷(240 R2)→X:R(1-cosQ)+P→Y:IfEnd←┘Lbl 1: If N=1 :Then A-Q→Q: X→I: =Y →J: T+(T-I)cosA-JsinA →X: (T-I)sinA+J cosA→Y:IfEnd←┘X →I: W Y→J: G+Tcos(180+B)+IcosB-JsinB→X:V+Tsin(180+B)+IsinB+JcosB →Y: B+WQ→Q:Return隧道超欠挖子程序12：Prog “SD”Z[2] →M: If M=1 :Then Z[6]-5.9→D： Goto 1：Else Z[6]+5.9→D：Goto 2: IfEnd ←┘Lbl 1: If S≤136300: Then Goto 3 : IfEnd:If S≤137525: Then Goto 4 : IfEnd:If S≤137635: Then D+(Z[4] -137525)*(0.066÷110) →D: H+(Z[4] -137525)*(0.195÷110) →H: Goto 4: IfEnd：If S >137635: Then D+0.066 →D: H+0.195 →H: Goto 4: IfEndLbl 2:If S≤133730: Then D-0.049→D:H+0.151→D:Goto 3 : IfEnd:If S≤133830: Then D+(Z[5] -133730)*(0.017÷100)-0.049 →D: H-(Z[5] -133730)*(0.053÷100) +0.151→H: Goto 3: IfEnd：If S≤133897.5: Then D+(Z[5] -133830)*(0.032÷67.5)-0.032 →D: H-(Z[5] -133830)*(0.098÷67.5) +0.098→H: Goto 3: IfEnd：If S ≤136000: Then Goto 3: IfEnd: If S ≤136535: Then D-0.064→D:H+0.196→H:Goto 4 : IfEnd : If S ≤136605: Then D+(Z[5] -136535)*(0.032÷70)-0.064→D:H-(Z[5]-136535)*(0.098÷70)+0.196→H:Goto 4 :IfEnd: If S ≤136672.5: Then D+(Z[5]-136605)*(0.032÷67.5)-0.032→D:H-(Z[5]-136605)*(0.098÷67.5)+0.098→H:Goto 4 : IfEnd: If S ＞136672.5: Then Goto 4 : IfEndLbl 3: POl(Z[1]-H-1.55, D):”CQW=“：I-（5.65+ Z[13]）◢ReturnLbl 4: POl(Z[1]-H-1.5, D):”CQW=“：I-（5.7+ Z[13]）◢Return←┘子程序13：Prog “GC”Z[14] →B : Z[5] →K : K→S: “CQW≠0 AND GAOCHENG=0”? B:B→Z[14]:If B ≠0 : Then Goto 1 :IfEnd : If B=0 : Then Goto 2: IfEnd←┘Lbl1: If M=1:Then Prog“S1”:Goto 5:IfEnd：If M=2 :Then Prog“S2”:Goto 5:IfEnd←┘Lbl2: Z[17] →G : “FEN L≠0 AND ZHENG T=0”?G: G→Z[17]: If G≠0: Then Goto 4:Else Goto 3:IfEnd←┘Lbl3:If M=1 AND D >=0: :Then Prog“S1”:Prog“SQX”:Prog“C1”:Goto 6:IfEnd: If M=1 AND D <=0: :Then Prog“S1”: Prog“SQX”:Prog“C2”:Goto 6:IfEnd←┘Lbl4: If M=1: Then Prog“S1”:Prog“SQX”:Prog“C1”: Goto 7:IfEnd： If M=2: Then Prog“S2”: Prog“SQX”:Prog“C2”: Goto 7:IfEnd←┘Lbl5: Prog“SQX”:Prog“SD” : Return←┘Lbl6: Prog“GC1”: H +E*(Abs(D)-1)→H : Prog“GC3”：Return ←┘Lbl7: Prog“GC1”: Prog““GC2””: Return ←┘子程序14：Prog “SQX”Abs(R*Tan(Tan-1(I-J) ÷2))→T:R(I-J) ÷ Abs(I-J) →R:Z-T→N:Z+T→W: Abs(Z-K) →U:If K≤N：Then A-JU→H: Goto 2:IfEnd: If K≤Z：Then A-JU+(K-N)2÷(2R) →H: Goto 2:IfEnd: If K≤W：Then A+IU+(W-K)2÷(2R) →H: Goto 2:IfEnd: If K＞W：Then A+IU →H: H→Z[12]:Goto 2:IfEnd: Lbl 2:“H=”:H◢右线高程数据库子程15：Prog “S1”Lbl 1: If Z≤133450 (终点桩号)：Then 20000→R（半径）： 0.028→I（前坡度）：0.013→J（后坡度）： 133300→Z（交点桩号）： 414.25→A（交点高程）：Goto 2: IfEnd：If Z≤134519：Then 16000→R： -0.005→I： 0.028→J：134255→Z： 440.99→A：Goto 2:IfEnd：If Z≤135107.15：Then 10000→R： 0.036431→I：-0.005→J： 134900→Z： 437.765→A：Goto 2:IfEnd：If Z≤135635.9：Then 23846.153→R： 0.02→I：0.036431→J： 135440→Z： 457.437→A：Goto 2:IfEnd：If Z≤136465：Then 280000→R： 0.0185→I：0.02→J： 136255→Z： 473.737→A：Goto 2:IfEnd：If Z≤137415：Then 180000→R： 0.015→I：0.0185→J： 137100→Z： 489.37→A：Goto 2:IfEnd：If Z≤138250：Then 40000→R： 0.03→I：0.015→J： 137950→Z： 502.12→A：Goto 2:IfEnd Lbl 2左线高程数据库子程序16：Prog “S2”Lbl 1: If Z≤133495 (终点桩号)：Then 60000→R（半径）： 0.0265→I（前坡度）：0.02→J（后坡度）： 133300→Z（交点桩号）：416.358→A（交点高程）：Goto 2: IfEnd：If Z≤134527：Then 17000→R： -0.0055→I： 0.0265→J： 134255→Z： 441.665→A：Goto 2:IfEnd：If Z≤135109.65：Then10000→R： 0.036431→I：-0.0055→J： 134900→Z： 438.118→A：Goto2:IfEnd：If Z≤135633.8：Then 23589.743→R： 0.02→I：0.036431→J：135440→Z： 457.79→A：Goto 2:IfEnd：If Z≤136455：Then 100000→R：0.024→I：0.02→J： 136255→Z： 474.09→A：Goto 2:IfEnd：If Z≤137403.75：Then 45000→R： 0.0105→I：0.024→J： 137100→Z： 494.37→A：Goto 2:IfEnd：If Z≤138159.5：Then 30000→R： 0.0278→I：0.0105→J： 137900→Z： 502.77→A：Goto 2:IfEnd：Lbl 2右线平曲线超高数据库子程17：Prog “C1”If S≤134665：Then -0.02→E：Goto 1: IfEnd：If S≤133830：Then-0.02+(0.06÷165)*(S-133665)→E：Goto 1:IfEnd：f S≤135485：Then0.04→E ：Goto 1:IfEnd：If S≤135650：Then 0.04-(0.06÷165)*(S-135485)→E：Goto 1:IfEnd： I f S≤135980：Then -0.02→E：Goto 1:IfEnd：If S≤136100：Then -0.02-(0.02÷120)*(S-135980)→E：Goto 1:IfEnd：I f S≤136555：Then -0.04→E：Goto 1:IfEnd：If S≤136675：Then -0.04+(0.02÷120)*(S-136555)→E：Goto 1:IfEnd：I f S≤137470：Then -0.02→E：Goto 1:IfEnd：If S≤137635：Then-0.02+(0.06÷165)*(S-137470)→E：Else 0.04→E：Goto 1:IfEnd←┘Lbl 1: Return←┘左线平曲线超高数据库子程18：Prog “C2”Lbl 1: If S≤133730：Then 0.03→E：Goto 1: IfEnd：If S≤133830：Then0.03-(0.01÷100)*(S-133730)→E：Goto 1:IfEnd：f S≤133965：Then0.02-(0.04÷135)*(S-133830)→E：Goto 1:IfEnd：：Goto 1:IfEnd： I fS≤134600：Then -0.02→E：Goto 1:IfEnd：If S≤134755：Then-0.02-(0.02÷155)*(S-134600)→E：Goto 1:IfEnd：I f S≤135640：Then-0.04→E：Goto 1:IfEnd：If S≤135735：Then -0.04+(0.02÷95)*(S-135640)→E：Goto 1:IfEnd：If S≤135875：Then -0.02+(0.04÷140)*(S-135735)→E：Goto 1:IfEnd：If S≤136010：Then 0.02+(0.02÷135)*(S-135875)→E：Goto 1:IfEnd：I f S≤136535：Then 0.04→E：Goto 1:IfEnd：If S≤136605：Then 0.04-(0.02÷70)*(S-136535)→E：Goto 1:IfEnd：If S≤136740：Then 0.02-(0.04÷135)*(S-136605)→E：Goto 1:IfEnd：I f S≤137530：Then - 0.02→E：Goto 1:IfEnd：If S≤137700：Then -0.02-(0.02÷170)*(S-137530)→E：Else -0.04→E：Goto1:IfEnd←┘Lbl 1: Return←┘边桩高程子程19：Prog “GC1”Z[12]→H:Z[1]→C:Z[6]→D::H+ Z[13]→H:边桩高程子程20：Prog “GC2”If M=1: Then H +E*(D-1)→H：Prog “GC3”:IfEnd：If M=2: Then H-E*(D+1)→H：Prog “GC3”:IfEnd←┘边桩高程显示子程21：Prog “GC3”“HB=”:Locate 7,4,H: “GC=”:Locate 7,4,C-H◢高程主程序程22：Prog “100”Prog“T-1”:“PIAN JU=”? D:“HONG DU=”?N:N→Z[13]:”H0=”?C:C→Z[1]: Prog“GC”平面坐标显示子序程23：Prog “XS”“X=”:Locate 6,4,X: “Y=”:Locate 6,4,Y◢程序说明：进入主程序界面：？S输入计算判断数值：1~坐标反算~”ZHUAN GHAO”?(输入所要反算大概桩号，只要是上一段曲线的HZ点到下一段曲线的ZH点范围内都可以，不过输入的桩号越是接近计算速度会越快)←┘”XIAN LU=”?(主线输入1、左线输入2)←┘X0?输入实测X值←┘Y0?输入实测Y值←┘“H0”?输入实测高程←┘“HOU DU=”?计算超欠挖的时候输入衬砌厚度值，计算高程时输入路面厚度值（路面以下为负值，路面以上为正值）←┘计算显示结果“S=”(桩号)，“D=”(偏距)，“CQW≠0 AND GAOCHENG=0”?当进行隧道超欠挖计算时输入不等于零的值，当只是计算边桩或中桩高程是输入零←┘“FNE L≠0 AND ZHENG T=0”?判断是整体是路基还是分离式路基，整体式路基等于零，分离式路基不等于零。

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

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

卡西欧fx-5800p计算器测量程序

卡西欧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正反算程序

1.主程序(1-ZB ZFS)Deg:Fix 6Lbl 9:”I”:”2.YOU JIN”:”MI MA =”?C: Goto 1↙”Lbl 4："3.ZH =>BG"：”1.ZH =>XY”2.XY =>ZH "：”3.ZH =>BG 4.TF =>JS ”:"N="?N↙If N =3;Then Prog “BG JS 20M”: IfEnd↙If N =4: Then Prog “4-TFJS”; IfEnd↙If N ≥5: Then Cls:Stop; IfEnd↙Lbl 9:”ZH=”?S:Prog “1.1-ZFS”:If N=1:Then Goto3:IfEnd↙If N=2:Then Goto2:IfEnd↙Lbl3:”Z=”?Z:”J=”?J:Abs(S-O)→W:Prog”1.2-ZFS”:X+Zcos(F +J)→X:Y+Zsin(F+J) →Y↙If Z=0(带下划线的0为数字0):Then “X=”:X◢"Y="：Y◢F-90→F:“F WJ=”：F▼DMS◢(5800里面的度分秒的)Prog “123”：“BG =>Z”:D◢Goto4: IfEnd↙If Z=1: Then”(Y)X=”: X◢“(Y)Y=”：Y◢F-90→F:“F WJ=”：F▼DMS◢(5800里面的度分秒的)Prog “123”：“BG =>Z”:D◢Goto4: IfEnd↙If Z=-1: Then”(Z)X=”: X◢“(Z)Y=”：Y◢F-90→F:“F WJ=”：F▼DMS◢(5800里面的度分秒的)Prog “123”：“BG =>Z”:D◢Goto4: IfEnd↙If Z＞1: Then”(Y)X=”: X◢“(Y)Y=”：Y◢F-90→F:“F WJ=”：F▼DMS◢(5800里面的度分秒的)Prog “123”：“BG =>Z”:D◢Goto4: IfEnd↙If Z＜1: Then”(Z)X=”: X◢“(Z)Y=”：Y◢F-90→F:“F WJ=”：F▼DMS◢(5800里面的度分秒的)Prog “123”：“BG =>Z”:D◢Goto4: IfEnd↙Lbl 2：“(Q)X =”？X:“(Q)Y=” ?Y:X →I:Y →J: Prog"1.3-ZFS"：O+W→S：“(SQ)ZH=”：S◢“(SQ)Z=”：Z◢Goto 4↙Lbl 1:If C=1989:Then Goto 4:0→C:Else Stop:IfEnd↙(密码符号段把原来的密码调到后面去了 )2. 正算子程序(1.2-ZFS )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→F3. 反算子程序(1.3-ZFS)G-90→T：Abs((Y-V)cos(T)-(X-U)sin(T)) →W:0→Z：Lbl 0：Prog "1.2-ZFS"：T+QEW(C+WD)→L：(J-Y)cos（L）-(I-X)sin（L）→Z：If Abs(Z)< -6：Then Goto1: Else W+Z→W:Goto 0↙Lb1 1:0→Z:Prog"1.2-ZFS":(J-Y)÷sin (F)→Z↙4. 数据库子程序(1.1-ZFS)If S＜***:Then Cls:Stop:IfEnd(全线路的起点里程桩号如：If S＜1497534.054:Then Cls:Stop:IfEnd小于1497534.054的全部失败)If S〉*****:Then Cls:Stop:IfEnd↙（同上）If S≦***（线元终点里程）:Then***→U（线元起点X）:***→V（线元起点Y）: ***→O（线元起点里程）:***→G（线元起点方位角）: ***→H（线元起点至终点长度）：***→P（线元起点曲率半径,在这里声明下，如果是直线段的话输1.×10+45就是输1. +45）:***→R（线元终点曲率半径同上）: 0或1、-1→Q：Goto 1 :IfEnd ↙If S≦……………………………………………：Goto 1 :IfEnd ↙………………[注意：输入方法：ZH-HY(ZH点注意P输入1.×10+45就是输1.+45，HY R按照曲线要素半径),HY-YH(P和R都按照曲线要素输入半径),YH-HZ(YH P按照曲线要素半径，R输1.×10+45),HZ-ZH(P和R 都输1.×10+45) Q为转角值看曲线上是左转角-1还是右转角1HZ-ZH Q为0]最后结尾记得一定要输入Lbl 1:1÷P→C:(P-R)÷(2HPR)→D:180÷π→E：Return↙5.BG JS 20M (子程序)Deg; Fix3↙Lbl1:”ZH=”?:Prog“BG SJK”:”Z=”?Z↙If Z=0:Then A→D:”(0)BG =>Z”:D◢Goto1: IfEnd↙If Z=1:Then A→D:”(Y)BG =>Z”:D◢Goto1: IfEnd↙If Z=-1:Then A→D:”(Z)BG =>Z”:D◢Goto1: IfEnd↙If Z＞1:Then A+(Z-1)(C/100)→D:”(Y)BG =>Z”:D◢Goto1: IfEnd↙If Z＜-1:Then A+(-Z-1)(-B/100)→D:”(Z)BG =>Z”:D◢Goto1: IfEnd↙6.BG SJK(标高数据库)If S =K: Then H→A:i(Z)→B: i(Y)→C: IfEnd↙注：K 为桩号里程，H为中桩高程，i(Z)为左横坡，i(Y)为右横坡。

5800卡西欧计算器程序大全

FX5800计算器公路测量常用程序集一、程序功能本程序由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:L bI 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:Lb I 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。

卡西欧fx-5800p计算器测量程序

卡西欧5800程序

ZH-HY-YH-HZ程序：10→Dimz换行【【扩展变量Z为10个】】“JDKM”？→A：【【交点桩号】】“JDX”？→B：【【交点X坐标】】“JDY”？→C：【【交点Y坐标】】“FWJ”？→D：【【起点方位角】】“PJ”？→V：【【交点偏角，左偏输入负值；右偏输入正值】】“R”？→R：【【圆曲线半径】】“LS1”？→E：【【第一缓和曲线长度】】“LS2”？→F换行【【第二缓和曲线长度】】Lbi 0换行【【标签0】】E/2-E^（3）/（240R2）→Z[1]：【【第一缓和曲线切垂足】】F/2-F^（3）/（240R2）→Z[2]：【【第二缓和曲线切垂足】】E2/（24R）-E^（4）/（2688R^（3））→Z[3]：【【第一缓和曲线圆曲内移值】】F2/（24R）-F^（4）/（2688R^（3））→Z[4]：【【第二缓和曲线圆曲内移值】】Z[1]+（R+Z[3]）/tan(180-Abs(V))+ （R+Z[4]）/sin(180-Abs(V)) →Z[5]：【【曲线一切线长】】Z[2]+（R+Z[4]）/tan(180-Abs(V))+ （R+Z[3]）/sin(180-Abs(V)) →Z[6]：【【曲线二切线长】】Abs(V)*Rπ/180-(E+F)/2→L：【【圆曲线长度】】B-Z[5]*cos(D) →X：【【直缓点X坐标】】C-Z[5]*sin(D) →Y：【【直缓点Y坐标】】A-Z[5] →Z[7]：【【直缓点里程】】Z[7]+E→Z [8]：【【圆缓点里程】】Z[8]+L→Z [9]：【【缓圆点里程】】Z[9]+F→Z[10]换行【【缓直点里程】】Lbi 1换行【【标签1】】“P---K---M”? →P：【【待求点桩号】】“I I”? →K：【【边桩偏角度数，左偏输入负值；右偏输入正值】】“I------I”? →S：【【边桩距中桩距离，正值】】D→J:E→G：If P≤Z[7]：ThenD+K→H：P-Z[7] →M:0→N:Goto5:Else if P≤Z [8]:Then P-Z[7] →I:90*I2/(RπE) →H:V＜0＝＞ -H→H:H+K+D→H:Goto 3:Else If P≤ Z[9]:Then P-Z[8] →I:Goto4:Else Goto 2:IfEnd:IfEnd:IfEnd换行Lbi 2换行B+Z[6]*cos(D+V) →X:C+Z[6]*sin(D+V) →Y:D+V+180→J:G→F:If P≤ Z[10]:Then Z[10]-P→I:90*I2/(RπF) →H:V＞ 0＝＞ -H→H:H+J+K+180→HGoto 3:Else P-Z[10] →I:-I→M:0→N:J+K+180→H:Goto 5：IfEnd换行Lbi 3换行I-I^ (5)/(40R2G2) →M:I^ (3)/(6RG)-I^ (7)/(336R^ (3) G^（3)) →N:Goto 5换行Lbi 4换行90(E+2I)/( Rπ) →H:R*sin(H)+Z[1] →M:R*(1-cos(H))+Z[3] →N:V＜0＝＞ -H→H:J+H+K→H：Goto 5换行Lbi 5换行If P＜Z[9]:Then V＜0＝＞-N→N:Else V＞0＝＞- N→N:IfEnd：Goto 6：Lbi 6：X+M*cos(J)-N*sin(J)+S*cos(H) →X:”PX＝”:X▲Y+M*sin(J)+N*cos(J)+S*sin(H) →Y:”PY＝”:Y▲Goto 0功能：计算完整曲线（直+缓+圆+缓+直）任意点坐标;两缓和曲线可以不相等；可以不存在（提示时输入0即可）。

卡西欧fx-5800 坐标正算程序

卡西欧fx-5800 坐标正算程序“SO”算方位Lbl 0“D”：Pol(X-A，Y-B) →D◢If J≥0:Then J◢Else “J”:J+360◢IfEnd“ZZ”正算直线坐标A+Rec(Abs(P-K),Q) →XB+J→Y“X”：X+Rec(D,Q+N×90) →X◢“Y”:Y+J→Y◢P?所求桩号 A，B：起点x,y K:起点桩号 Q：方位角D：边桩距离 N？左偏“-1”右偏：“+1”X= Y= 所求点坐标“YY”正算圆曲线坐标Q+C×（P-K）÷S×180÷∏→Z“X”：A+C×S×（Sin(Z)-Sin(Q)）+Rec(D,Z+N×90) →X◢“Y”:B-C×S×（Cos(Z)-Cos(Q)）+J→Y◢P:所求点桩号 A，B：起点x,y K：起点桩号Q：方位角 S：曲线半径 D？边桩距离N？左偏“-1”，右偏“+1”X= y= 所算点坐标 C：线路左转“-1”右转“+1”“H1”正算缓和曲线坐标Abs(P-K) →LT2÷L→HL2×180÷∏÷2÷T2→VQ+C×V→ZL-L∧（3）÷40÷H2+L∧（5）÷3456÷H∧（4）-L∧（7）÷H∧（6）÷599040→EL2÷6÷H- L∧（4）÷336÷H∧（3）+ L∧（6）÷42240÷H∧（5）- L∧（8）÷H∧（7）÷（6×1612800）→FIf C<0：Then-F→F：IfEndA+E×Cos(Q)-F×Sin(Q) →X“X”：X+Rec(D,Z+M×N×90) →X◢B+E×Sin(Q)+F×Cos(Q) →Y“Y”：Y+J◢P？所求点桩号 A，B：起点x,y K:起算点里程桩号Q：前切线方位角 T（是圆曲线要素的A1）=√（根号）缓曲总长×半径C=切线线路方向左转“-1”，右转“+1“M=第一缓曲“+1”，第二缓曲”-1“N：算边桩左偏“-1”，右偏“+1”D：边桩距离坐标正算数据库例子“肇兴隧道右线数据库”Lbl 0“P”?P:“N”？N：“D”？DIf P≥16836.5 And P≤17009.624:Then 66881.803→A：14635.782→B：16836.5→K:280032030.50→Q:902.044→T:1→C: 1→M:Prog“H1”：IfEnd (第一缓曲线)If P≥17009.624 And P≤17529.681:Then 66914.52→A：14465.781→B：17009.624→K:281035049.370→Q:4700→S：Prog“YY”:IfEnd （圆曲线）If P≥17539.681 And 17702.805≥P:Then 67102.343→A：13799.117→B：17702.805→K:108059031.50→Q:902.044→T:-1→C: -1→M:Prog“H1”：IfEnd (第二缓曲线)If P≥17702.805 And P≤19550:Then 67102.343→A：13799.17→B：17702.805→K:288059031.50→Q: Prog“ZZ”：IfEnd （直线）。

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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