5800计算程序
5800卡西欧计算器程序大全

5800卡西欧计算器程序大全1.基本数学运算程序-加法:输入两个数字,然后计算它们的和。
-减法:输入两个数字,然后计算它们的差。
-乘法:输入两个数字,然后计算它们的积。
-除法:输入两个数字,然后计算它们的商。
-平方根:输入一个数字,然后计算它的平方根。
-幂运算:输入两个数字,然后计算第一个数字的第二个数字次方。
2.科学计算程序-对数运算:输入一个数字和一个底数,然后计算它们的对数。
-三角函数:输入一个角度,然后计算它的正弦、余弦和正切值。
-阶乘计算:输入一个数字,然后计算它的阶乘。
-指数函数:输入一个数字,然后计算e的这个数字次方。
-随机数生成:生成一个随机数。
3.金融计算程序-终值计算:输入本金、利率和时间,然后计算将来其中一时刻的价值。
-现值计算:输入将来其中一时刻的价值、利率和时间,然后计算现在的价值。
-年金支付计算:输入每期支付的金额、利率和时间,然后计算总支付金额。
-贷款利率计算:输入贷款金额、每期支付金额和时间,然后计算贷款利率。
-折现计算:输入每期支付金额、利率和时间,然后计算折现值。
4.统计计算程序-平均值计算:输入一组数字,然后计算它们的平均值。
-中值计算:输入一组数字,然后计算它们的中值。
-方差计算:输入一组数字,然后计算它们的方差。
-标准差计算:输入一组数字,然后计算它们的标准差。
-相关系数计算:输入两组数字,然后计算它们的相关系数。
以上只是一部分5800卡西欧计算器程序的示例,卡西欧计算器还提供了更多的功能,例如单位转换、时间计算、日期计算等等,可以根据实际需求选择使用。
希望以上内容对您有所帮助。
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(0.5E) →FReC(Abs(F),D+0.5E):Cls"X=″:X+I+KCos(D+E+90) →A"Y=″:Y+J+KSin(D+E+90) →BD+E→o<0 360+o→0o"FWJ=″ 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(0.5R(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:待求点里程。
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程序

5800程序本程序由3个主程序、5个子程序及3个参数子程序组成。
主要用于公路测量中坐标正反算,设计任意点高程及横坡计算,程序坐标计算使用于任何线型。
一、主程序1、程序名:1ZD-XY(一般放样正反算程序,①正算坐标,放样点至置仪点方位角及距离;②反算桩号及距中线距离)Lbl 0:Norm 2:Deg:“F=”?F:(正反算判断,F=1正算,F=2反算)90→Z[1]:(与路线右边夹角)Prog“THB”:F=1=>Goto 1:F=2=>Goto 2:Lbl 1:Fix 3: “ X=”:Locate 6,4,X◢“ Y=”:Locate6,4,Y◢:Prog“3JS”: Goto 0:Lbl 2: Fix 3: “KM=”:Locate 6,4,Z◢:“ D=”:Locate 6,4,D◢:Goto 02、程序名:2GC(高程、横坡程序,计算任意点高程及横坡)Lbl 0:Norm 2:“KM”?Z:?D:Prog“H” :Fix 3: “ H=”:Locate6,4,H◢“ I=”:Locate6,4,I◢:Goto 03、程序名:3JS(极坐标放样计算程序,计算放样点至置仪点方位角及距离)X:Y:1234,123→K:(置仪点X坐标)4567,456→L:(置仪点Y坐标)Y-L→E:X-K→F:Pol(F,E):Lf J<0:Then J+360→J:IfEnd:“FWJ=”:J▲DMS◢Fix 3: “ S=”: Locate6,4,I◢二、子程序1、程序名:THB(坐标计算子程序)18→DimZ: “KM”?Z: Prog“X0”:1÷P→C:(P-R)÷(2HPR) →S:180÷π→E: F=1=>Goto 1:F=2=>Goto 2:Lbl 1:?D:Abs(Z-O)→W: Prog“A”:X:Y: Goto 3:Lbl 2:?X:?Y:X→I:Y→J: Prog“B”:O+W→Z:D→D: Goto 3:Lbl 3:If F=1:Then X:Y:Else Z:D:IfEnd注:Z为反算的桩号,D为反算的点到中线的距离。
卡西欧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程序

If Z≥26157.8 And Z≤27421.915:Then 300000→R:171.915→T:27250→C:32.65→G:-0.00356→I:Goto 0:IfEnd:
If Z≥26915.555 And Z≤27316.952:Then 26915.555→O:11382.792→U:2842.531→V:105。55’51.83”→G:401.396→H:1800→P: 1800→R:1→Q:Goto 0:IfEnd:
……
LbI 0:O:U:V:G:H:P:R:Q:
程序名:1ZD-XY
Lb1 0:Norm 2
F=1:(正反算判别,F=1正算,F=2反算,也可以改F前加?,改F为变量)
Z[1]=90(与路线右边夹角)
Prog"THB":F=1=>Goto 1:F=2=>Goto 2
Lb1 1:Fix 3:" X=":Locate 6,4,X◢
" Y=":Locate 6,4,Y◢
V+W(Asin(G+QEKW(C+KWS))+Bsin(G+QELW(C+LWS))+Nsin(G+QEMW(C+MWS))+Bsin(G+QE(1-L)W(C+(1-L)WS))+Asin(G+QE(1-K)W(C+(1-K)WS))) →Y:
G+QEW(C+WS)+Z[1]→Z[2]:X+Dcos(Z[2])→X: Y+Dsin(Z[2])→Y
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计算器程序(SQX,YQX,HHQX,ZBZS,ZBFS,XDZBZH)

5800计算器程序直线坐标反算:ZBFSLbI 0←┛“XZ”?P:“YZ”?U:“XH”?X:“YH”?Y←┛Sin-1((Y-U)÷(√((X-P) 2+(Y-U) 2 ))→N:If X-P<0:Then180º-N→N: Ifend←┛If N<0: Then N+360º→N : Ifend←┛“N=”: N►DMS◢“S=”: √((X-P) 2+(Y-U) 2 ) ◢Goto 0←┛直线坐标正算:ZBZSLbI 0←┛“X0”?A:“Y0”?B:“N”?C:“E”? E: “K1”? D:“K2”? F←┛“X=”:A+(F-D)cos(C)+Ecos(C+90) →X◢“Y=”:B+(F-D)sin(C)+Esin(C+90) →Y◢Goto 0←┛相对坐标转换:XDZBZH“ZX”?A: “ZY”?B: “K1”?T: “E1”?E: “ZN”?N←┛LbI 1←┛“X”?C: “Y”?D←┛Pol(C-A,D-B):J≤0=>J=J+360←┛“K=”:T+I*cos(J-N)◢“E=”:E+I* sin(J-N)◢Goto 1←┛显示说明:Z X?,ZY?(HZ点或直线起点坐标),K1?(HZ点或直线起点里程)E1?(已知点距中桩距离,左“-”右“+”),ZN?(HZ点或直线起点切线方位角),X,Y?(待求点坐标),输出部分:K=****.****,E=****.****,(待求点相对坐标即里程边距)。
缓和曲线:LbI 0←┛“W”?W:“XZ”?A:“YZ”? B:“NQ”?C:“L0”?D:“R”?R:“K1”?K:“K2”?T:“E”?E←┛T-K→F←┛F2*180÷(2RDπ)→G←┛F-F^(5)÷(40R2D2)→H←┛J=F^(3)÷(6RD)-F^(7)÷(336R^(3)*D^(3))→J←┛√(H2+J2)→L←┛tan-1(J÷H)→O←┛“NT=” :C+W G→N:N►DMS◢C+WG-90W→V←┛“X=” :A+Lcos(C+WO)+Ecos(V)→X◢“Y=”:B+Lsin(C+WO)+Esin(V)◢Goto 0←┛显示说明:W?(左转为-1,右转为1)XZ?,YZ?(输缓和曲线起点坐标(ZH)或HZ点坐标)NQ?(输缓和曲线起点切线方位角)L0? (输缓和曲线长)R?(缓和曲线终点曲率)K1?(ZH点里程或HZ点里程)K2?(待求点里程)E?(待求点距中桩距离,左为右负为正)输出部分:NT=xxxxxx(待求点切线方位角),X=xxxxxx.xxxx,Y=xxxxxx.xxxx(待求点坐标)。
- 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。
5800计算器程序
主程序ZBJS
5→Dimz:Cls
"1.SZ→ XY":"2.XY→ SZ":?→N
Lb16:?S:Prog“SUB0”
1÷P→C:(P-R)÷(2HPR) →D:180÷π→E:N=2 => Goto 2
Lbl 1:?Z: Abs(S-O)→W: Prog"SUB1":"XS=":X◢
"YS=":Y◢
"FS=":F-90 DMS◢
“XC” ?C:“YC” ? E:0→I:0→J:Pol(X-C,Y-E):“I=”:I ◢
If J∠0: Then “J=”: J+360DMS◢
IfEnd
If J >0:Then “J=”:JDMS◢
IfEnd:Goto 6
Lbl 2
?X:?Y:X→I:Y→J:Prog"SUB2":O+W→S:Cls:"S=":S◢
"Z=":Z◢
Goto 6
正算子程序 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
反算子程序 SUB2
G-90→T
(Y-V)cosT-(X-U)sin(T) →W
Abs(W)→W:0→Z
Lbl6: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:Goto6:IfEnd
数据库子程序 SUB0
Goto 1(线元可输入多条,分离式可在前多加一位,匝道一样。
例:左幅为K129+500,右幅输线元参数里程为1129+500,其他不变,前面1为任意数字,计算机便于区分)
Lbl 1:IF S<线元终点里程:Then@@@→O(线元起点里程) :@@@ →U(线元起点X坐标):@@@→V(线元起点Y坐标):@@@→G(线元起点计算方位角):@@@→P(线元起点半径):@@@→R(线元止点半径):@@@→H(线元长度):@@@→Q(线元左、右偏标志,左偏-1,右偏1,直线为0):Return:IfEnd
IF S<线元终点里程:Then@@@→O(线元起点里程) :@@@ →U(线元起点X坐标):@@@→V(线元起点Y坐标):@@@→G线元(起点计算方位角):@@@→P(线元起点半径):@@@→R(线元止点半径):@@@→H(线元长度):@@@→Q(线元左、右偏标志,左偏-1,右偏1,直线为0):Return:IfEnd 。
一程序功能
本程序由一个主程序(ZBJS)和3个子程——正算子程序(SUB1)、反算子程序( SUB2) 、数据库子程序(SUB0)构成,可以根据曲线段——直线、圆曲线、缓和曲线(完整或非完整型)的线
元要素(起点坐标、起点里程、起点切线方位角、线元长度、起点曲率半径、止点曲
率半径)及里程边距或坐标,对该曲线段范围内任意里程中边桩坐标进行正反算。
另
外也可以将本程序中核心算法部分的两个子程序移植到其它相关的程序中,用于对曲
线任意里程中边桩坐标进行正反算。
本程序也可以在CASIO fx-4500P计算器及CASIO fx-4850P计算器上运行。
二、使用说明
1、规定
(1) 以道路中线的前进方向(即里程增大的方向)区分左右;当线元往左偏时,Q=-1;当线元往右偏时,Q=1;当线元为直线时,Q=0。
(2) 当所求点位于中线时,Z=0;当位于中线左侧时,Z取负值;当位于中线中线右
侧时,Z取正值。
(3) 当线元为直线时,其起点、止点的曲率半径为无穷大,以10的45次代替。
(4) 当线元为圆曲线时,无论其起点、止点与什么线元相接,其曲率半径均等于圆
弧的半径。
(5) 当线元为完整缓和曲线时,起点与直线相接时,曲率半径为无穷大,以10
的45
次代替;与圆曲线相接时,曲率半径等于圆曲线的半径。
止点与直线相接时,曲率半
径为无穷大,以10的45次代替;与圆曲线相接时,曲率半径等于圆曲线的半径。
(6) 当线元为非完整缓和曲线时,起点与直线相接时,曲率半径等于设计规定的值;与圆曲线相接时,曲率半径等于圆曲线的半径。
止点与直线相接时,曲率半径等
于设计规定的值;与圆曲线相接时,曲率半径等于圆曲线的半径。
2、输入与显示说明
输入部分:
1. SZ => XY
2. XY = > SZ
S ? 选择里程 ,N?,Z?左或右偏距。
选择计算方式,1.表示进行由里程、边距计算坐标;输入2表示由坐标反算里程和边距。
显示部分:
XS=×××正算时,计算得出的所求点的X坐标
YS=×××正算时,计算得出的所求点的Y坐标
FS=×××正算时,所求点对应的中线点的切线方位角
XC=×××测站点X值
YC=×××测站点Y值
I=XXX 测站到放样点距离
J=XXX 测站到放样点方位角
S=×××反算时,计算得出的所求点的里程
Z=×××反算时,计算得出的所求点的边距
N=与切线方向的夹角,正交为90。