fx5800计算器命令大全

合集下载

5800卡西欧计算器程序大全

5800卡西欧计算器程序大全

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

fx-5800P 程序命令

fx-5800P 程序命令

程序命令一、基本操作命令1、:(分隔符):不停止程序的执行。

2、/ (输入):暂停程序的执行并显示当前执行的结果。

3、一(变量赋值):将“一”符号左侧元索(数值、表达式、输入的数据)的值赋值给右侧的变量。

4、?(输入提示):通过按键输入的方法向变量赋值时的输入提示。

5、“ ”(显示):引号中的字母、数字、字符、命令或其他文本作为注释文本,在屏幕上显示出来。

二、转移命令1、Goto~Lbl (无条件转移):无需核对前提条件而被立即执行。

由Got。

n和Lbl n构成,当程序执行到Golo和一个标记名称时,在执行后会转至标记有相同标记名称的Lbl处。

如果在由Got。

n所处的同一程序中没有相应的Lbl n,则会发生转移错误(Go ERROR)。

2、O (条件转移):是对两个变量或算式进行比较,并根据结果决定程序如何转移至紧接于O后的语句。

其句法形式有两种:1)V表达式> V关系运算式> V表达式>OV语句1>:V语句2>:・・・2)V表达式>OV语句:<语句2>:该命令与关系运算子(=、≠∖>、V、2、≤)组合使用,其功能如下:句法I:如果“O”命令左侧的条件为真,则执行〈语句1>,然后执行〈语句2>,并依次执行后面的所有内容。

如果“O”命令左侧的条件为假,则跳过V语句1>,然后执行〈语句2>及其后面的所有内容。

句法2:“O”命令左侧的条件运算结果非零会解释为“真”,所以会执行〈语句1>,然后执行V语句2>及其后面的所有内容。

“O”命令左侧的条件运算结果为零会解释为“假”,因此会跳过V语句而执行〈语句2》及其后面的所有内容。

条件转移流程图(L:左边;R:右边;S:语句)(成立时)~~l关系运算子R c>S S-------- 1 ----- (不成立时)f3、计数转移计数转移有两种:Isz (递增)及Dsz (递减)。

其句法格式为:l)IszV变量>:V语句1>:<语句2>:・・・2) DszV变量>:<语句1>:<语句2>:・・・该语句被执行时,变量的值会被递增(或递减)1,此时变量值非为零,则执行〈语句1>,然后执行〈语句2>,并依次执行后面的所有内容。

卡西欧5800计算器程序

卡西欧5800计算器程序

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

fx5800简单实用程序

fx5800简单实用程序
直线反算------------:FC ?

X J : L X? Y? X1? Y1? A= L=
: : J = 1
? E J "
Y > :
: Lbl 1 X 3 I , 6

: -
" Y
X ) J
1 : -
" J 3
? < 6
E 0 0
:
=>
" J

Y + J
1 3 :
" 6 "
? 0 A
F °
=
计算公式:根据余弦定理,a=44.648m,b=66m,c=42.654m,∠A是a边与b边的夹角,已知b边 两个端点坐标,得∠A=cos-1((a2+b2-c2)÷(2ab),通过b边两端点坐标可以求之间的坐标方 位角,既可求去b边左端点至待求点的坐标方位角,距离已知,就可以求出其点坐标! 前方交会-----------:QFJH Lb1 1 E : : “ “ Y E X 2 1 ” X ” ? , ? F F X : : “ Y “ A ) Y 1 : 1 ” J ” ? < ? A 0 Y :
? : ( A * A *
E “ E + L + L
: S ÷ W

“ X 2 * *
D ” ) 9 9
2 ? * 0 0
” M √ ° °
? : ( ) )
F ? ( * *
: D E D D
? : ÷
A “ 2
: Lbl 1
X A Y A X? Y? D1? D2? A? ZY? SX? D? L=
注:已知两点,必须认定两点间连线与视线平行,左边为点1,右边为点2.

卡西欧fx5800计算器缓和曲线编程

卡西欧fx5800计算器缓和曲线编程

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坐标。

Fx-5800p常用程序

Fx-5800p常用程序

F x-5800p 常用程序1、坐标反算(FS )?X :?Y ?Y↙↙∟b ∣0:?:?A A :?:?B B ↙Pol(A-X,B-Y):J Pol(A-X,B-Y):J<<0=>J+360J+360→→J ↙“S=S=””:I :I◢◢“T=T=””:J :J►►DMS DMS◢◢Goto 0↙说明说明::X,Y X,Y——基点坐标A,B A,B——测点坐标2、坐标正算(ZS )∟b ∣0:0:??S :?:?T T :?:?A A :?:?B B ↙Rec(S,T)+A Rec(S,T)+A→→X ↙B+J B+J→→Y ↙“X=X=””:X ◢“Y=Y=””:Y :Y◢◢Goto 0↙说明说明::S —距离T —方位角A,B A,B——基点坐标X,Y X,Y——计算坐标3、坐标转换(ZH —H )?N :?:?E E :?:?Q Q ↙∟b ∣0:0:““1.S =>D ”:“2.D =>S ”:?F ↙I f F=1:Then Goto 1:Eles Goto 2:If End End↙↙∟b ∣1:1:??X :?:?Y Y ↙N+X cos cos((Q )—Y sin sin((Q )→U ↙E+X sin sin((Q )+Y cos cos((Q )→V ↙“X1=X1=””:U ◢:“Y1=Y1=””:V ◢Goto 0↙∟b ∣2:?:?X X :?:?Y Y ↙(X —N )cos cos((Q )+(Y —E )sin sin((Q )→U ↙(N —X )sin sin((Q )+(Y —E )cos cos((Q )→V ↙“X2=X2=””:U ◢“Y2=Y2=””:V ◢Goto 0↙说明:N ,E —施工坐标原点大地坐标Q —施工坐标X 轴在轴在大地坐标系大地坐标系大地坐标系中的中的中的方位角方位角X ,Y —需转换坐标F —判断符F=1F=1,施工,施工,施工→→大地,其他,大地大地,其他,大地→→施工4、竖曲线(SQX )?A :?B :?D :?T :?R :?Z ↙If Z ≥1:Then Goto 1:Eles Goto 2:If End End↙↙∟b ∣1:?:?C C :A+A+Abs(Abs(Abs(((B —A ))÷T (C —D )—(C —D )2÷(2R 2R))→H ↙“H=H=””:H ◢Goto 1↙∟b ∣2:?:?C C :A+A+Abs(Abs(Abs(((B —A ))÷T (C —D )+(C —D )2÷(2R 2R))→H ↙“H=H=””:H ◢Goto 2↙说明:说明:AA —起点(终点)高程B —切线交点高程C —需计算点的需计算点的桩号桩号D —起点(终点)桩号T —切线长R —半径H —C 桩号的高程Z —Z ≥1时为凸曲线,其他为凹曲线5、曲线任意里程坐标正反算1.主程序(TYQXJS)"1.SZ =>XY":"2.XY =>SZ"SZ"::?N :1÷P →C :(P-R)(P-R)÷÷(2HPR)→D:180180÷π÷π→E :If N =1:Then Goto 1:Else Goto 2↙Lbl 1:?:?S S :?:?Z Z :Abs(S-O)→W :Prog "SUB1""SUB1"::"XS=""XS="::X ◢"YS=""YS="::Y ◢Goto 1↙Lbl 2:?X :?:?Y Y :X →I :Y →J :Prog "SUB2""SUB2"::O+W →S:"S=""S="::S ◢"Z=""Z="::Z ◢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))+A sin(G+QEMW(C+MWD)))→Y:G+QEW(C+WD)+90→F:X+ZcosF→X:Y+ZsinF→Y:Return↙3.反算子程序(SUB2)G-90→T:Abs((Y-V)cosT-(X-U)sinT)→W:0→Z:Lbl0:Prog"SUB1":T+QEW(C+WD)→L:(J-Y)cosL-(I-X)sinL→Z:If AbsAbs((Z)<1E-6: Then Goto1:Else W+Z→W:Goto0↙(J-Y)÷÷sinF→Z:Return↙Lbl1:Z=0:Prog"SUB1":(J-Y)三、使用说明1、规定(1)以道路中线的前进方向(即里程增大的方向)区分左右;当线元往左偏时,Q=-1;当线元往右偏时,Q=1;当线元为直线时,Q=0。

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

卡西欧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 (直线)。

fx5800-计算程序

fx5800-计算程序

5800计算程序Fx-5800计算机程序QXJS-000 主程序Lbl 4:“1.SZ=>NE”:“2.NE=>SZ”:“1,2=”? →Q:”LICHENG=”? →S:Prog“QXJSSUB0”↙Lbl 0:IfQ=1:Then Goto1:IfEnd:IfQ=2:ThenGoto2:IfEnd↙Lbl 1:”OUT JL=”? →Z: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↙QXJSSUB0 (数据库)Goto1↙Lbl 1IF S<157687.528:THEN 2884169.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:THEN 2884148.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:THEN 2884095.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:THEN 2884069.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:THEN 2883008.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:THEN 2882981.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:THEN 2882890.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:THEN 2882856.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:THEN 2881008.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:THEN 2880976.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:THEN 2880920.4244→U:485762.1431→V:172204.6898→O:102°40′0.93″→A:130→L:-11000→P:-10^45→R: Return:IfEnd↙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+90) →N:E+Zsin(F+90) →EReturnQXJSSUB2 反算子程序Lbl 1:0→Z:1→Q:Prog“QXJSSUB0”: Prog“QXJSSUB1”: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) →ZReturn5800计算程序Fx-5800计算机程序QXJS-000 主程序Lbl 4:“1.SZ=>NE”:“2.NE=>SZ”:“1,2=”? →Q:”LICHENG=”? →S:Prog“QXJSSUB0”↙Lbl 0:IfQ=1:Then Goto1:IfEnd:IfQ=2:ThenGoto2:IfEnd↙Lbl 1:”OUT JL=”?→Z: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↙QXJSSUB0 (数据库)Goto1↙Lbl 1IF S<157687.528:THEN 2884169.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:THEN 2884148.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:THEN 2884095.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:THEN 2884069.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:THEN 2883008.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:THEN 2882981.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:THEN 2882890.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:THEN 2882856.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:THEN 2881008.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:THEN 2880976.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:THEN 2880920.4244→U:485762.1431→V:172204.6898→O:102°40′0.93″→A:130→L:-11000→P:-10^45→R: Return:IfEnd↙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+90) →N:E+Zsin(F+90) →EReturnQXJSSUB2 反算子程序Lbl 1:0→Z:1→Q:Prog“QXJSSUB0”: Prog“QXJSSUB1”: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) →ZReturn。

卡西欧 5800程序

卡西欧 5800程序

卡西欧 5800程序卡西欧FX5800全线贯通万能正、反算程序时间:2021-01-27 23:56:25 来源:本站作者:xdw_815101 我要投稿我要收藏投稿指南FX5800计算器的积分程序(正反算、全线贯通、新线路)终极版 ZHUCHENGXU 主程序 \1正算,输入2反算“NEW=0,OLD ≠0”?Z If Z=0:Then“X0=”?A:“Y0=”?B:“C0=”?C:“1/R0=”?D:“1/RI=”?E:“SP=”?F:“EP=”?G:Ifen d:Q=2=>Goto 2Lbl 1 :“KM=,<0 Stop”?H:H<0=>Stop:“PJ=”?O:“PY=”?LLbl Z:Z=1=> Prog“01”:Z=2=> Prog“02” 选择数据库文件,可增加 H-F→X:0.5(E-D)÷(G-F)→NC+(XD+NX2)*180÷π→P:P<0=>P+360→P:P>360=>P-360→PA+∫(cos(C+(XD+NX2)*180÷π),0,X)+Lcos(P+O)→UB+∫(sin(C+(XD+NX2)*180÷π),0,X)+Lsin(P+O)→V Q=2=>Goto 4:Cls:Fix 3\,1,U:\,2,V:“FWJ=”:P?DMS�� Norm 2:Cls:Goto 1Lbl 2:“XD=,<0,STOP”?R:R<0=>Stop:“YD=”?S“KMDG=”?H :90→O:0→L:Goto Z (H线路范围内的任意桩号) Lbl 4:Pol(R-U,S-V):J<0 => J+360→J While abs(Icos(J-P))≤0.001:P-J>180=> J+360→J: P-J P+360→P:IF P-J>0:then -I→L:else I→L ifendGoto 3: Whileend:H+Icos(J-P)→H:Goto Z Lbl 3:Cls:Fix 3“KM=”: Locate 4,1,H:“PY=”: Locate 4,2,L�� Norm 2:Cls:Goto 201(数据库子程序) If H<=第一曲线终点桩号:then 第一曲线起点X→A:第一曲线起点Y→B:第一曲线起点方位角→C:起点曲率→D:终点曲率→E:起点桩号→F:终点桩号→G:return:ifend ????? 程序说明:1、该程序可以计算任意线形(直线、圆曲线、缓和曲线、不完整曲线)任意桩号的坐标(正算,输入1),也可根据坐标计算该点到线路的距离及垂足桩号(反算,输入2);2、(NEW=0,OLD≠0)?如果要计算的点为数据库线路中的点,则输入数据库编号(以整数1、2、3?代替输入);如果在数据库中没有要计算线路的数据,则输入曲线要素X0:曲线起点X坐标; Y0:曲线起点Y坐标; C0:曲线起点方位角;R0-1、 RI-1:曲线起点、终点曲率,直线为0,曲线左偏输入负值,右偏输入正值;SP、 EP:曲线起点桩号,终点桩号; KM:待求点桩号; PJ:正斜交的设定;PY:偏中距离,线路上的点输入0,右偏输入+值,左偏输入-值;3、正算显示坐标及切线方位角;反算输入线路的任意桩号(此桩号越接近真实值计算速度越快)、待求点坐标,显示待求点桩号及偏中距离;4、正算子程序为积分公式编写而成;反算子程序为角度趋近的方法编写,计算速度有点慢。

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

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

1.Norm 1 指数显示Norm 2 小数显示2.?→x 只显示?字符+?→x 显示字符+??x 显示x?“字符”?x 显示字符+?有→则不显示该变量当前值3.(判断表达式)语句1 : 语句2。

如果判断表达式为真(或非零),则不跳过语句1.如果判断表达式为假(或是零),则会跳过语句1.4. If...then…else…ifend如果语句为真,则执行then(不执行else),然后执行ifend.如果语句为假,则执行else(不执行then),然后执行ifend.5. Break 中断语句中断For,Do,While循环,并从该循环的下个命令起继续运行6. Dsz使控制变量递减一,在变量的值为零时执行转移7. IszIsz<变量>:<语句1> <语句2>,变量应为A~Z以1 为增量逐次增加变量的值,当变量的值不等于0 时,执行语句1,否则执行语句28. ClsDsz<变量>:<语句1> <语句2>。

变量应为A~Z。

以1 为减量逐次减小变量的值,当变量的值不等于0 时,执行语句1,否则执行语句29. Locate 定位显示语句句法1:Locate <列数>, <行数>,<数值>句法2:Locate <列数>, <行数>,<表达式>句法3:Locate <列数>, <行数>, "字符串"fx-5800P 的屏幕最多可以显示4 行、16 列字符,因此定位语句中的列数值应为大于等于1、小于等于16 的整数,行数值应为大于等于1、小于等于4 的整数。

10. Lbi n ~ Goto n Goto n~Lbl n无条件转移至Lbi n 位置11. Getkey返回与上次按键相对应的代码,Getkey=12. DO ~ LpWhile循环语句Do <语句块> LpWhile<条件>先执行语句块,然后测试条件,条件为真时重复执行语句块,否则执行<条件>后的语句。

Fx5800计算器程序(对称平曲线)

Fx5800计算器程序(对称平曲线)

Fx-5800计算器程序一、程序名称:B-D-PQX(对称平曲线)Prog “ZJZB”:“A”?→A:“R”?→R:“LS”?→L:“JDL”?→N:“JX”?→U:“JY”?→V:“F”?→F:180/π/R→Z:ZL/2→B:L2/24/R- L^(4)/2688/R^(3)+L^(6)/506880/R^(5)→P:L/2-L^(3)/240/R^(2)+L^(5)/34560/R^(4) →Q“T=”:(R+P)tan(Abs(A/2))+Q→T▲“L=”:(Abs(A)-2B)/Z+2L→o▲“E=”(R+P)/Cos(Abs(A/2))-R→E▲“ZH=”:N-T→E▲“HY=”:E+L→Z〔1〕▲“QZ=”:E+o/2→Z〔2〕▲“YH=”:E+o-L→Z〔3〕▲“HZ=”:E+o→Z〔4〕▲LbI 8: “XL”?→M:Prog“ZBJS”:Goto 8二、子程序:ZBJS180/π/R→Z:ZL/2→B:L^(2)/24/R-L^(4)/2688/R^(3) +L^(6)/506880/R^(5)→P:L/2-L^(3)/240/R^(2)+L^(5)/34560/R^(4)→Q(R+P)tan(Abs(A/2))+Q→T(Abs(A)-2B)/Z+2L→o(R+P)/Cos(Abs(A/2))-R→EN-T→EE+L→Z〔1〕E+o/2→Z〔2〕E+o-L→Z〔3〕E+o→Z〔4〕0→W:0→Y:If M≤E:Then M-E→X:Goto 3:IfEnd:If M≤Z〔1〕:Then Goto 1:IfEnd:If M≤Z〔3〕:Then Goto 2:IfEnd:If M<Z〔4〕:Then Goto 1:IfEnd: If M≥Z〔4〕:Then Z〔4〕-M→X:Goto 3:IfEndLbI 1:If M≤Z〔1〕:Then M-E→G:EIse Z〔4〕-M→G: IfEnd:G-G^(5)/(40R^(2)L^(2))+G^(9)/3456/(RL)^(4) →X:G^(3)-(6RL)-G^(7)/(336R^(3)L^(3))+G^(11)/42240/(RL)^(5)→Y:ZG^(2)/2/L →W:Goto 3LbI 2:M- Z〔1〕→G:RSin(B+GZ)+Q→X:R-RCos(B+GZ)+P→Y:B+ZG→WLbI 3:If M≥Z〔3〕:Then F+A→C:If A>0:Then C+90→D:IfEnd:EIse C-90→D:IfEnd:EIse F+180→C:If A>0:Then F+90→D:EIse F-90→D: IfEnd: IfEnd“X=”:U+(T-X)Cos(C)+YCos(D)→Z〔7〕▲“Y=”: V+(T-X)Sin(C)+Y Sin(D)→Z〔8〕▲Z〔7〕→Z〔5〕: Z〔8〕→Z〔6〕:Prog “J”LbI 4:“BZ”?→S:If M≤Z〔3〕:Then Goto 5:EIse Goto 6:IfEndLbI 5:F→C:If A<0:Then -W→W:EIse W→W:IfEnd:Goto 7LbI 6:F+A→C:If A>0:Then -W→W:EIse W→W:IfEndLbI 7:“X=”:Z〔7〕+SCos(C+W+90)→Z〔5〕▲“Y=”:Z〔8〕+SSin(C+W+90)→Z〔6〕▲Prog“J”三、子程序:JI=PoI(Z〔5〕-H, Z〔6〕-K):If J<0:Then J+360→J:EIse J→J: IfEnd“F=”:J◆DMS“D=”:I▲四、子程序:ZJZB30→Dim Z:“HX”?→Z〔5〕:“HY”?→Z〔6〕: “ZX”?→H: “ZY”?→K:Prog“J”五、B-D-PQX(对称平曲线)说明1、▲——代表计算器中显示符号(黑色实心三角符号,在计算器中输入方法:SHIFT+X2)。

fx5800计算器命令大全

fx5800计算器命令大全

fx5800计算器命令大全卡西欧5800命令解析1.Norm 1 指数显示 Norm 2 小数显示2.?→x 只显示?字符+?→x 显示字符+??x 显示x?“字符”?x 显示字符+?有→则不显示该变量当前值3.(判断表达式)语句1 : 语句2。

如果判断表达式为真(或非零),则不跳过语句1.如果判断表达式为假(或是零),则会跳过语句1.4. If...then…else…ifend如果语句为真,则执行then(不执行else),然后执行ifend.如果语句为假,则执行else(不执行then),然后执行ifend.5. Break 中断语句中断For,Do,While循环,并从该循环的下个命令起继续运行6. Dsz使控制变量递减一,在变量的值为零时执行转移7. IszIsz:,变量应为A~Z以 1 为增量逐次增加变量的值,当变量的值不等于0 时,执行语句1,否则执行语句28. ClsDsz: 。

变量应为A~Z。

以1 为减量逐次减小变量的值,当变量的值不等于0 时,执行语句1,否则执行语句29. Locate 定位显示语句句法 1:Locate , ,句法2:Locate , ,句法3:Locate , , "字符串"fx-5800P 的屏幕最多可以显示4 行、16 列字符,因此定位语句中的列数值应为大于等于1、小于等于16 的整数,行数值应为大于等于1、小于等于4 的整数。

10. Lbi n ~ Goto n Goto n~Lbl n无条件转移至 Lbi n 位置11. Getkey返回与上次按键相对应的代码,Getkey=12. DO ~ LpWhile循环语句Do LpWhile先执行语句块,然后测试条件,条件为真时重复执行语句块,否则执行后的语句。

无,论条件是否为真,语句块至少被执行一次。

13. Pol计算两坐标点之间距离,坐标为(4,4),与原点的距离就是POL(4,4)=4√214. Abs求绝对值15. Fix取整数函数Fix(Rnd*11) ,取0 ~ 11的随机整数16. Rnd随机函数17. 角度单位设置语句Deg:设置角度单位为十进制度,按键输入Deg。

Fx-5800计算器程序(含定向及放样方位角、距离计算)

Fx-5800计算器程序(含定向及放样方位角、距离计算)

Fx-5800计算器程序一、道路放样(含定向及放样方位角、距离计算)1、主程序:1JDZB(利用第一交点坐标,第二交点坐标,第三交点坐标及里程,偏角,半径,缓和曲线长度计算)20→DimZ“JD1X=”:?X:X→Z[1]:“JD1Y=”:?Y:Y→Z[2]: 输入JD1坐标“JD2X=”:?X:X→U:“JD2Y=”:?Y:Y→V: 输入JD2坐标“JD3X=”:?X:X→Z[3]:“JD3Y=”:?Y:Y→Z[4]: 输入JD3坐标I=PoI(U-Z[1],V-Z[2]):If J<0:Then J+360→J:EIse J→J:IfEnd:J→F:"F12=":F►DMS▲显示起始边方位角I=PoI(Z[3]-U,Z[4]-V):If J<0:Then J+360→J:EIse J→J:IfEnd:J→Z[5]:"F23=":Z[5]►DMS▲显示结束边方位角F-Z[5]→A:If A<-180:Then A+360→A:EIse A→A:If End:"A=":A►DMS▲显示偏角Prog“2FJDA”2、次主程序:2FJDA(利用起始方位角,交点坐标及里程,偏角,半径,缓和曲线长度计算)"HX="?X:"HY="?Y: 输入定向(后视点)坐标"ZX="?H:"ZY="?K: 输入测站点坐标Prog“J”显示定向(后视点)距离和方位角“A=”?A:输入偏角(左“-”右“+”),当利用1JDZB程序时,不用再次输入“R=”?R:输入平曲线半径“LS=”?L:输入缓和曲线长度“JDL=”?N:输入平曲线交点里程“JDX=”?U:输入交点X坐标,当利用1JDZB程序时,不用再次输入“JDY=”?V:输入交点Y坐标,当利用1JDZB程序时,不用再次输入“F=”?F:输入起边方位角,当利用1JDZB程序时,不用再次输入180/R/π→Z:ZL/2→B: “B=”:B►DMS▲缓和曲线角“P=”:L^(2)/(24R)-L^(4)/(2688R^(3))→P▲内移距“Q=”:L/2-L^(3)/(240R^(2))+L^(5)/(34560R^(4))→Q▲切线增长“T=”:(R+P)tan(Abs(A/2))+Q→T▲显示平曲线切线长度“E=”:(R+P)/Cos(Abs(A/2))-R→E▲显示平曲线外距值“L=”:(Abs(A)-2B)/Z+2L→o▲显示平曲线曲线长度“D=”:2T-o→D▲显示球曲差30→DimZ“ZH=”:N-T→Z[1]▲显示直缓点里程“HY=”:Z[1]+L→Z[2]▲显示缓圆点里程“QZ=”:Z[1]+o/2→Z[3]▲显示曲中点里程“YH=”:Z[1]+o-L→Z[4]▲显示圆缓点里程“HZ=”:Z[1]+o→Z[5]▲显示缓直点里程“ZHX=”:U+Tcos(F+180)→Z[7]▲显示直缓点X坐标“ZHY=”:V+Tsin(F+180)→Z[8]▲显示直缓点Y坐标“HZX=”:U+Tcos(F+A)→Z[15]▲显示缓直点X坐标“HZY=”:V+Tsin(F+A)→Z[16]▲显示缓直点Y坐标0→C:0→W:L-L^(3)/(90R^(2))→C:ZL/6→W:If A<0:Then -W→W: EIse W→W: If End:“HYX=”:Z[7]+Ccos(F+W)→Z[9]▲显示缓圆点X坐标“HYY=”:Z[8]+Csin(F+W)→Z[10]▲显示缓圆点Y坐标“YHX=”:Z[15]+Ccos(F+A+180-W)→Z[13]▲显示圆缓点X坐标“YHY=”:Z[16]+Csin(F+A+180-W)→Z[14]▲显示圆缓点Y坐标If A<0:Then -B→B:EIse B→B:If End:0→S:0→C:0→W:o/2-L→S:SZ/2→W:2Rsin(W)→C:If A<0:Then -W→W: EIse W→W:If End:“QZX=”:Z[9]+Ccos(F+B+W)→Z[11]▲显示曲中点X坐标“QZY=”:Z[10]+Csin(F+B+W)→Z[12]▲显示曲中点Y坐标LbI8:“LP=”?→M:Prog“3ZBJS”:Goto8 输入放样点P里程3、子程序:3ZBJS20→DimZ0→S:0→W:0→D:0→G:If M≤Z[1]:Then F+180→W:F+90→G:N-M→S:U→P:V→Q:Goto5: Else If M≤Z[2]:Then M-Z[1]→S:Z[7]→P:Z[8]→Q:Goto1:Else If M<Z[4]:Then M-Z[2]→S:Z[9]→P:Z[10]→Q:Goto2:Else If M<Z[5]:Then Z[5]-M→S:Z[15]→P:Z[16]→Q:Goto1: Else F+A→W:W+90→G:T+M-Z[5]→S:U→P:V→Q:Goto5:If End:LbI 1:ZS^(2)/(6L)→W:3W→G:S-S^(5)/(90R^(2)L^(2))→S:If A<0:Then -W→W:-G→G:EIse W→W:G→G:If End:If M<Z[2]:Then F+W→W:F+G+90→G:EIse F+A+180-W→W:F+A+180-G-90→G:If End:Goto5:LbI 2:SZ/2→W:2W→G:2Rsin(W)→S:If A<0:Then -W→W:-G→G:EIse W→W:G→G:If End:F+B+W→W:F+B+G+90→G:Goto5:LbI 5:“X=”:P+Scos(W)→Z[13]▲“Y=”:Q+Ssin(W)→Z[14]▲Z[13]→X:Z[14]→Y:Prog“J”:显示放样点(前视点)距离和方位角Goto6:LbI 6:“BZ=”?D: 输入偏距(左“-”右“+”)“X=”:Z[13]+Dcos(G)→Z[17]▲“Y=”:Z[14]+Dsin(G)→Z[18]▲Z[17]→X:Z[18]→Y:Prog“J”显示放样点(前视点)距离和方位角4、子程序:JI=PoI(X-H,Y-K):If J<0:Then J+360→J:EIse J→J:IfEnd:"S=":I▲"F=":J►DMS▲。

卡西欧5800计算器的详细编程

卡西欧5800计算器的详细编程

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

fx-5800计算器编程(原创)-40页文档资料

fx-5800计算器编程(原创)-40页文档资料

第 1 页卡西欧Fx-5800P计算器一、Fx-5800P编程命令1、基本操作命令(1)分隔语句。

不停止程序的执行。

(2)(3)(4)2、关系运算子3、转移命令(1) n。

第 2 页(2)及后面的所有见容。

<变量>值为零,则会跳过语句1和语句2以及执行该命令后的所有内容。

(3)<变量>值非零,则执行语句1,然后执行语句2以及后面的所有见容。

<变量>值为零,则会跳过语句1和语句2以及执行该命令后的所有内容。

(4)4、控制结构命令:(1)(2)之间语句的执行重复进行,每次执行控制变量都加1(从始值开始)。

当控制变量的值到达终值时,执行会跳至Next后面的语句。

如果Next后面没有语句,则停止程序的执行。

(3)第 3 页(4)5、子程序调用命令(1)从当前程序(主程序)执行另一个其它程序(子程序)。

最多可以嵌套10层子程序。

6、程序控制命令(1)(2) 从子程序返回调用此子程序的程序。

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

(3) 强制终止程序执行。

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

7、输入/输出命令(1) 返回如下代码之一(对应按的最后一个键)。

如果未按键,则返回0。

8、显示屏幕命令(1) 显示为注释文本。

(2) 清除显示器中的所有表达式和计算结果。

(3)在指定的屏幕位置显示指定值或字符串。

9、逻辑运算子命令(1)运算两端的表达式(相等或不相等),并基于它们的逻辑积返回真或假。

(2)运算两端的表达式(相等或不相等),并基于它们的逻辑积返回真或假。

(3)运算后面紧邻的表达式(相等或不相等),并返回其非值。

10、清除命令(1)清除所有列表数据。

(2)将所有变量清零。

(3)清除所有矩阵存储器的内容。

(4)清除所有公式变量。

二、Fx-5800P涵数命令1、绝对值2、正弦涵数3、余弦涵数4、正切涵数第 4 页三、fx-5800P计算器编程1、线路坐标计算[XLJS](主程序)使用说明(1)功能计算线路中桩、边桩坐标。

CASIO fx-5800P计算器路线坐标高程计算程序

CASIO  fx-5800P计算器路线坐标高程计算程序

CASIO fx—5800P计算器路线坐标计算程序(单个交点)主程序名CALXY (计算中桩、边桩坐标)Lbl 1:“ZZ”? →Z[27] :“D(-+m)”? →D:If D≠0 :Then “∠(DMS)”? →V:Ifend』If Z[27]≤Z[17]:Then Z[18]+ (Z[27] —Z[17]) Cos( F)+D Cos( F+V):“X=”:Ans▲Z[19]+ (Z[27] —Z[17]) Sin( F )+D Sin( F+V):“Y=”:Ans▲:Ifend』If Z[27]>Z[17] And Z[27]≤Z[20]:Then Z[27] —Z[17] →L:Prog “HHXY”:Z[18] +I Cos( F+ JH)+D Cos( F+WH+V):“X=”:Ans▲:Z[19] +I Sin(F+ JH)+D Sin( F+WH+V):“Y=”:Ans▲:Ifend』If Z[27]>Z[20] And Z[27]≤Z[24] —Z[6]:Then Z[27] —Z[20] →L:Prog “YUXY”:Z[21] +I Cos( Z[23]+ JH)+D Cos( Z[23]+WH+V):“X=”:Ans▲:Z[22] +I Sin(Z[23]+ JH)+D Sin( Z[23]+WH+V):“Y=”:Ans▲:Ifend』If Z[27]>Z[24] —Z[6] And Z[27]≤Z[24]:Then Z[24] —Z[27] →L:Prog “HHXY”:Z[25] +I Cos( C—JH)—D Cos( C—WH+V):“X=”:Ans▲:Z[26] +I Sin(C—JH)—D Sin( C—WH+V):“Y=”:Ans▲:Ifend』If Z[27] >Z[24]:Then Z[25] —(Z[27] —Z[24]) Cos( C )—D Cos( C+V):“X=”:Ans▲Z[26] —(Z[27] —Z[24]) Sin( C —D Sin( C+V):“Y=”:Ans▲:Ifend』Goto 1子程序名JD (输入曲线参数,计算曲线要素)30→Dim Z:Fix 5:“JD”? →Z[1] :“XJD”? →Z[2] :“YJD”? →Z[3]:“F0(DMS)”? →F:“A(-+ DMS)”?→Z[4]:“R”? →R:“LH1”? →Z[5]:“LH2”? →Z[6]:√ ̄(Z[4]2)→A:Int(Z[4] ÷A)→H』Z[5] →S:Prog “PQ”:Q →Z[7]:P→Z[8]:B →Z[9]:R →S:Prog “PQ”:Q →Z[10]:P→Z[11] :B →Z[12] 』(R+ Z[8])Tan(A÷2)+ Z[7] —(Z[8] —Z[11]) ÷Sin(A)→Z[13] :“T1=”:Ans ▲(R+ Z[11])Tan(A÷2)+ Z[10] —(Z[8] —Z[11])÷Sin(A)→Z[14] :“T2=”:Ans▲』√ ̄((Z[13] —Z[7])2+( R+ Z[8])2) —R →Z[15]:“E=”:Ans▲R( A —Z[9] —Z[12] )÷57.2958+ Z[5] + Z[6] →Z[16]:“L=”:Ans▲』Z[1] —Z[13]→Z[17]:Z[2] —Z[13]Cos( F) →Z[18]:Z[3] —Z[13] Sin( F) →Z[19]:If Z[5]>0 :then Z[17] +Z[5]→Z[20]:Z[5] →L:Prog “HHXY”:Z[18] +I Cos( (F+ JH))→Z[21]:Z[19] +I Sin( (F+ JH))→Z[22]:(F+ WH)→Z[23] :Else Z[17]→Z[20]:Z[18]→Z[21]:Z[19]→Z[22]:F→Z[23]:Ifend』Z[17] + Z[16]→Z[24]:Z[2] +Z[14] Cos( (F+ Z[4]))→Z[25]:Z[3] +Z[14] Sin( (F+ Z[4]))→Z[26]:F+ Z[4] —180→C』Prog “CALXY”』子程序名PQS÷2—S3÷(240 R2)→Q:S2÷(24 R)—S4÷(2384 R3)→P:28.6479S ÷R→B』子程序名HHXYL—L5÷(40S2 R2)+L9÷(3456 R4S4) →X:L3÷(6S R)—L7÷(336S3 R3)+L11÷(42240 R5S5)→Y:28.6479L2÷(S R) →W:Pol(X,Y)』子程序名YUXY57.2958L÷R →W:RSin(W)→X:R(1—Cos(W))→Y:Pol(X,Y)』CASIO fx—5800P计算器路线坐标计算程序(单个交点)使用说明首先运行子程序“JD”,输入曲线参数,计算曲线要素。

casiofx5800程序ZH(K修改)

casiofx5800程序ZH(K修改)

文件名“ZH”:中线程序?R: ”LS”?S: ”ZH”?Z:?F:?P:?X:?Y:”ZX”?T:”ZY”?G:Lbl 1:?C:?D:?K:If C=Z:Then0→I:1→J:F→W:Goto 4:IfEnd:C-Z→M:Abs(M) →L:If M<0:ThenF+180→N: Else F→N:IfEnd:If L>S:Then Goto 2:IfEnd:L-L^(5)÷(40R2S2)+L^(9)÷(3456R^(4)S^(4))→V:L^(3)÷(6RS)-L^(7)÷(336R^(3)S^(3)) →O:90L2÷(∏RS) →U:Goto 3:Lbl 2:180(L-S÷2)÷R÷∏→W:S÷2-S^(3)÷240÷R2+Rsin (W)→V:S2÷24÷R-S^4÷(2384R^(3))+R-Rcos (W)→O:90(2L-S)÷R÷∏→U:If S=0:Then W→U:IfEnd:Lbl 3:Pol (V,O):If P>0:Then N+J→E:N+U→W: Else N-J→E:N-U→W:IfEnd: M÷L→J:Lbi 4:X+ I cos (E)+DJcos (W+90)+ Kcos w →A : Y+I sin (E)+DJsin (W+90)+Ksin w →B :”A=”:A◢”B=”:B◢Pol (A-T,B-G):If J<0:Then 360+J→J:IfEnd:”J(DMS)=”:J DMS◢”I(m)=”:I◢Goto 1注:文件名“ZH” (适用于casio5800)从ZH、ZY或者YZ、HZ点起算中桩及边桩坐标运行程序输入:R:半径;Ls:缓和曲线长(单圆曲线Ls=0;直线Ls=1E20;R≠0);ZH:直缓点(直圆点)、(圆直点)缓直点桩号;F:方位角(顺公路走向);P:判断左偏右偏(左=-1;右=1);X,Y:直缓点,直圆点,圆直点,缓直点的横纵坐标;ZX、ZY:置仪点的X、Y坐标C:所求点桩号;D:至中桩距离(左为负,右为正);K:正交状态下的待求点(前进为正、后退为负)至法线上的左或右D点的距离,如无,输入0。

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

卡西欧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←┘以下未完程序由读者完成。

卡西欧计算器fx-5800正反算超欠挖程序.

卡西欧计算器fx-5800正反算超欠挖程序.

5800正反算、隧道超欠挖程序.doc正算主程序(ZSLb1 0FIX4:?S:?Z:Prog “PM-SJ”:Abs(S-O → W:Prog "SUB1":"XS=":X◢-"YS=":Y◢F-90→F(需要时可以让他显示,不要时不必输入:Pro g“SQX-SJ”: Prog“SQX”:“H=”:H◢Goto 0反算主程序(FSLb1 0FIX4: ?S:?X:?Y:Prog“PM-SJ”:X→ I:Y→ J:Prog "SUB2":"S=":O+W→S◢"Z=":Z◢Prog“SQ X-SJ”:Prog“SQX” :“H=”:H◢Goto 0隧道3心圆放样主程序(SD-3XYLb1 0:Prog“FS”:1.5→A:1.65→B:0.89→G:2.27→C:3.3→D:2.41→E:0.51→J:“H1”:F:ifF≤H+A:then E-AbsZ→W:IfEn d:ifF>H+A AndF≤H+A+B:then√(D²-(F-H-A²-G-AbsZ→W:IfEn d:ifF>H+A+B:then√(C²-(F-H-A-J²-AbsZ→W:IfEn d:“W=”:W◢(水平方向的超欠挖:正为欠,负为超Goto0正算子程序(SUB11÷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+F WD+Asin(G+QEMW(C+MWD → Y:G+QEW(C+WD+90→F:X+ZcosF→X:Y+ZsinF→ Y反算子程序(SUB2G-90→T:Abs((Y-VcosT-(X-Usin(T → W:0→ Z:Lbl 0:Prog "SUB1":T+QEW(C+WD →L:(J-YcosL-(I-XsinL → Z:ifAbsZ<1E-6:thenGoto1: ElssW+Z → W:Goto 0:IfEnd←┘Lbl 1:0→ Z:Prog "SUB1":(J-Y÷sinF→ Z子程序(平面线形数据库PM-SJ-ifS≥500(线元起点里程AndS<769.256(线元止点里程:Then19942.837→U(线元起点X坐标:28343.561→V(线元起点Y坐标:500→O(线元起点里程:125°16°31°→G(线元起点方位角:269.265→H(线元长度: 10^(45→P(线元起点曲率半径:10^(45→R(线元终点曲率半径:0→Q (线元左右偏标志:左负右正:IfEnd←┘ifS ≥769.256(线元起点里程AndS<806.748(线元止点里程:Then19787.34→U(线元起点X坐标:28563.378→V(线元起点Y坐标:769.256→O(线元起点里程:125°16°31°→G(线元起点方位角:37.492→H(线元长度: 10^(45→P(线元起点曲率半径:221.75→R(线元终点曲率半径:-1→Q (线元左右偏标志:左负右正:IfEnd←┘ifS ≥806.748(线元起点里程AndS<919.527(线元止点里程:Then19766.566→U(线元起点X坐标:28594.574→V(线元起点Y坐标:806.748→O(线元起点里程:120°25°54.07°→G(线元起点方位角: 112.779→H(线元长度:221.75→P(线元起点曲率半径:221.75→R(线元终点曲率半径:-1→Q(线元左右偏标志:左负右正:IfEnd←┘ifS ≥919.527(线元起点里程AndS<999.812(线元止点里程:Then19736.072→U(线元起点X坐标:28701.893→V(线元起点Y坐标:919.527→O(线元起点里程:91°17°30.63°→G(线元起点方位角:80.285→H(线元长度:221.75→P(线元起点曲率半径:9579.228→R(线元终点曲率半径: -1→Q(线元左右偏标志:左负右正:IfEnd←┘ifS ≥999.812(线元起点里程:Then19744.038→U(线元起点X坐标:28781.659→V(线元起点Y坐标:999.812→O(线元起点里程:80°40°50°→G (线元起点方位角:100→H(线元长度:10^(45→P(线元起点曲率半径: 10^(45→R(线元终点曲率半径:0→Q(线元左右偏标志:左负右正:IfEnd←┘-子程序(竖曲线数据库SQX-SJifS≤999.812(竖曲线终点里程:then0.0357(前坡度:上坡正下坡负→E: 0.0227(后坡度:上坡正下坡负→F:600→R(竖曲线半径:780→G(变坡点里程:110→C(变坡点高程:IfEnd←┘子程序(竖曲线计算公式SQXE-F→J:ifJ>0:then-R→R:ElssR→R:Abs(R*J÷2→T:IfEnd←┘ifS≤G-T:thenG-S→L:C-LE→H:IfEnd←┘ifS>G-T And S≤G:thenG-S→L:(S+T-G²÷2÷R→N:C-LE+N→H: IfEnd←┘ifS>G And S≤G+T:then S-G→L:(G +T- S²÷2÷R→N:C+LF+N→H: IfEnd←┘ifS>G+T :thenS-G→L: C+LF→H:IfEnd←┘三、使用说明1、规定(1 以道路中线的前进方向(即里程增大的方向区分左右;当线元往左偏时,Q=-1;当线元往右偏时,Q=1;当线元为直线时,Q=0。

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

32. Return 返主程序语句
在子程序中应至少有一条Return 语句,当执行到该语句时,控制执行返回调用该子程序的主程序。主程序中一般不应有Return 语句,若在主程序中使用了Return 语句,程序执行到该语句时会停止执行。
33.Stop 终止程序语句
程序被Stop 语句终止后就不再执行任何语句,通常用于调试程序设置临时中断点,程序调试通过后,将其删除。
10. Lbi n ~ Goto n Goto n~Lbl n
无条件转移至 Lbi n 位置
11. Getkey
返回与上次按键相对应的代码,Getkey=
12. DO ~ LpWhile循环语句
Do <语句块> LpWhile<条件>
先执行语句块,然后测试条件,条件为真时重复执行语句块,否则执行<条件>后的语句。无,论条件是否为真,语句块至少被执行一次。
Rad:设置角度单位为弧度,按键输入Rad。执行该语句后,状态行显示。
Grd:设置角度单位为哥恩,按键输入Grd。执行该语句后,状态行显示。
18. Dim
定义变量
19. RCL
键面命令,Rcl+A 显示变量A的当前值
20. STO
键面命令,STO+A 给变量A赋值,显示→A
21. INS
键输入EngOn,执行该语句后,状态行显示ENG;EngOff 为关闭工程格式显示,按
键输入 EngOff,执行该语句后,状态行的ENG 消失。
36. END
结束程序运行
如果判断表达式为假(或是零),则会跳过语句1.
4. If...then…else…ifend
如果语句为真,则执行then(不执行else),然后执行ifend.
如果语句为假,则执行else(不执行then),然后执行ifend.
5. Break 中断语句
中断For,Do,While循环,并从该循环的下个命令起继续运行
键面命令,切换键标记样式,覆盖与插入切换
22. ←
键面命令,角度度分秒格式与小数格式转换
23. ?DMS
常将反三角函数计算出的十进制角度转换成六十进制度分秒形式,cos-1(x)?DMS
24. Pol
键面命令,将直角坐标转换为极坐标,Pol(△x,△y)
25. Rec
键面命令,将极坐标转换为直角坐标,Rec(r,θ)
26. CALC
键面命令,对一个表达式的变量代入不同的值
27. And,Or,Not
<条件1>And<条件2>,<条件1>与<条件2>同时为真时为真。
<条件1>Or<条件2>,<条件1>与<条件2>有一个为真时为真。
Not<条件>,<条件>为假时为真。
28. If~Then~Else~IfEnd
句法1:For <始值> <控制变量>To<终值> <语句块> Next控制变量的取值从始值开始,步长为1,重复执行语句块,直至终值为止。一般始值小于终值,如果始值大于终值,则不执行语句块而是直接执行Next 后的语句。
句法2:For <始值> <控制变量>To<终值>Step<步长> <语句块> Next
它与 For~To~Next 句法的功能相同,唯一区别是增加了步长语句Step
30. While~WhileEnd 循环语句
句法:While <条件> <语句块>WhileEnd
先测试条件,当条件为真时执行语句块,然后再测试条件,条件为真时重复执行语句块,直到,条件为假时执行WhileEnd 后的语句结束循环
的内容与维数。
⑤ ClrVar:清除内置公式变量及用户自定义公式变量的值。
其中后四个语句为按 (CLR)键调出清除语句菜单选择。
额外变量 Z[n]的数值没有专门的语句命令清除,只能执行语句0 DimZ 清除。
35. 数值显示格式设置语句
Fix <n>:n 为0~9 间的整数,设置以n 位固定小数格式显示计算结果,按键输
6. Dsz
使控制变量递减一,在变量的值为零时执行转移
7. Isz
Isz<变量>:<语句1><语句2>,变量应为A~Z
以 1 为增量逐次增加变量的值,当变量的值不等于0 时,执行语句1,否则执行语句2
8. Cls
Dsz<变量>:<语句1> <语句2>。变量应为A~Z。
卡西欧5800命令解析
1.
Norm 1 指数显示
Norm 2 小数显示
2.
?→x 只显示 ?
字符+?→x 显示 字符+?
?x 显示 x?
“字符”?x 显示 字符+?
有→则不显示该变量当前值
判断表达式为真(或非零),则不跳过语句1.
34. 清除语句
① Cls:清除屏幕显示的文字、表达式及计算结果。
② ClrStat:清除统计串列List X,List Y,List Freq。
③ ClrMemory:清除字母变量A~Z 与数值答案寄存器。
④ ClrMat:清除矩阵Mat A~Mat F 与矩阵答案寄存器Mat Ans
以1 为减量逐次减小变量的值,当变量的值不等于0 时,执行语句1,否则执行语句2
9. Locate 定位显示语句
句法 1:Locate <列数>, <行数>,<数值>
句法2:Locate <列数>, <行数>,<表达式>
句法3:Locate <列数>, <行数>, "字符串"
fx-5800P 的屏幕最多可以显示4 行、16 列字符,因此定位语句中的列数值应为大于等于1、小于等于16 的整数,行数值应为大于等于1、小于等于4 的整数。
13. Pol
计算两坐标点之间距离,坐标为(4,4),与原点的距离就是POL(4,4)=4√2
14. Abs
求绝对值
15. Fix
取整数函数Fix(Rnd*11) ,取0 ~ 11的随机整数
16. Rnd
随机函数
17. 角度单位设置语句
Deg:设置角度单位为十进制度,按键输入Deg。执行该语句后,状态行显示。
31. Prog~Return 调子程序语句
句法:Prog "subfilename"
按键输入Prog。
fx-5800P 的子程序是独立于主程序的程序,它也保存在计算器内存中,主程序与子程序的变量都是全局的,子程序执行完成后通过Return 语句返回主程序,继续执行主程序中Prog 语句后的语句.
入Fix。执行该语句后,状态行显示FIX。
Sci <n>:n 为0~9 间的整数,设置以n 位固定小数科学格式显示计算结果,按键
输入Sci。执行该语句后,状态行显示SCI。
Norm <n>:n 为1 或2,设置以正常格式显示计算结果,按键输入Norm。
ENG:其下有EngOn 与EngOff 两个语句,EngOn 为打开工程格式显示;按
句法1:If <条件> Then <语句块>IfEnd
条件为真时执行Then 后的语句块,否则从IfEnd 后开始执行
句法2:If <条件> Then <语句块1>Else<语句块2>IfEnd
条件为真时执行语句块1,否则执行语句块2,然后执行IfEnd 后的语句
29. For~To~Step~Next
相关文档
最新文档