最新fx-5800P计算器编程
5800P曲线坐标计算编程使用(非标准曲线)
曲线任意里程中边桩坐标正反算(CASIO fx-5800P计算器)程序曲线任意里程中边桩坐标正反算(CASIO fx-5800P计算器)程序一、程序功能本程序由一个主程序(TYQXJS)和两个子程——正算子程序(SUB1)、反算子程序(SUB2)序构成，可以根据曲线段——直线、圆曲线、缓和曲线（完整或非完整型）的线元要素（起点坐标、起点里程、起点切线方位角、线元长度、起点曲率半径、止点曲率半径）及里程边距或坐标，对该曲线段范围内任意里程中边桩坐标进行正反算。
另外也可以将本程序中核心算法部分的两个子程序移植到其它相关的程序中，用于对曲线任意里程中边桩坐标进行正反算。
本程序也可以在CASIO fx-4500P计算器及CASIO fx-5800 P计算器上运行。
特别申明：(1). 适用于弧长小于2倍半径的各种线元坐标正反算，精度优于1mm；(2). 在引用该核心计算部分时，请注明来源。
（3）该程序可计算标准、非标准曲线，但不可以计算与线路成斜交角的坐标二、源程序主程序(QXJS)"1.SZ => XY"："2.XY => SZ"?N:"X0"?U: "Y0"?V: "S0"?O: "FWJ0"?G: "LS"?H:"R0"?P?"RS"?R: "PX "?Q：1÷P→C：(P-R)÷(2HPR)→D：180÷π→E：If N=1:Then Goto 1：Else Goto 2:IfEndLbl 1: "KS"?Z:"ES"?S：Abs(Z-O)→W：Prog "QXZS":"XS=" :X→X◢"YS=": Y→Y◢"FWJS=":(F-90)DMS◢Prog "GC"Goto1Lbl 2："XS"?X:"YS"?Y：X→I：Y→J：Prog "QXFS":O+W→Z"KS=":Z→Z◢"ES=": S→S◢"FWJS=":(F-90)DMS◢Prog "GC"Goto 21.全线计算主程序(XLJS)"1.SZ => XY"："2.XY => SZ"："1 or 2"?N: Lbl 0："KS"?Z:"ES"?S：Prog "XXX":1÷P→C:(P-R)÷(2HP R)→D:180÷π→E：If N=1:Then Goto 1: Else Goto 2:IfEndLbl 1:Abs(Z-O)→W：Prog "QXZS":"XS=" :X→X◢"YS=": Y→Y◢"FWJS=":(F-90)DMS◢Prog "GC"Goto 0Lbl 2："XS"?X:"YS"?Y：X→I：Y→J：Prog "QXFS":O+W→Z"KS=":Z→Z◢"ES=": S→S◢"FWJS=":(F-90)DMS◢Prog "GC"Goto 22. 正算子程序(QXZS)0.1739274226→A:0.3260725774→B:0.0694318442→K:0.3300094782→L:(1-L)→F:(1-K)→M:(U+W(Ac os(G+QEKW(C+KWD))+Bcos(G+QELW(C+LWD))+Bcos(G+QEFW(C+FWD))+Acos(G+QEMW(C+MW D))))→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+Scos(F→X:Y+Ssin(F→YReturn3. 反算子程序(QXFS )G-90→T:Abs((Y-V)cos(T)-(X-U)sin(T))→W:0→S：Lbl 0：Prog " QXZS ":T+QEW(C+WD)→L:(J-Y)co s(L)-(I-X)sin(L)→S:If Abs(S)<10^(-6):Then Goto1:Else S+W→W:Goto 0:IfEndLbl 1:0→S：Prog " QXZS ":(J-Y)÷sin(F)→SReturn数据库：XXXLbl 1:If Z≤下一起点里程: Then本线路起点里程→O：本线路X→U：本线路Y→V:本线路方位角→G：本线路长度→H：本线路起点半径→P：本线路止点半径→R:±1→Q (左偏Q=-1，右偏Q=1，直线段Q=0）：Else If Z≤下一起点里程: Then本线路起点里程→O：本线路X→U：本线路Y→V:本线路方位角→G：本线路长度→H：本线路起点半径→P：本线路止点半径→R:±1→Q :IfEnd: IfEndReturn四、数据库1、线路平面数据库数据名：“XXX”可根据自己须要更改Lbl 1:If Z≤80(计算段终点里程) : Then 0→O (计算段起点里程): 62450.391→U(起点里程纵坐标): 56853.282→V (起点里程横坐标): 220°31′33″→G(计算段起点里程切线方位角): 80→H(缓和线): 10^45→P曲率半: 782.716→R(曲率半): -1→Q (线路左右偏): Else If Z≤xxx: Then0→O (计算段起点里程): 62450.391→U(起点里程纵坐标): 56853.282→V (起点里程横坐标): 220°31′33″→G(计算段起点里程切线方位角): 80→H(缓和线): 10^45→P曲率半: 782.716→R(曲率半): -1→Q: IfEnd: IfEndReturnO=80:U=62388.712:V=56802.348:G=²²²²²²²²²²²²注：数据库内数据为示意数据，编两曲线中直线段时“H=”为该段长；半径“P=”、“R=”详以上使用说明；坐标、方位角为计算段起点的。
Casio 5800P计算程序3
Casio fx- 5800P 道路中边桩计算（线元法）主程序QZFix 3:Deg:Lbl 4:″1.SZ=>XY″：″2.XY=>SZ″：″1，2″？Q：″S=″？S：Prog″Z1″↙Lbl 0:If Q=1:Then Goto 1:IfEnd:If Q=2:Then Goto 2:IfEnd↙Lbl 1: ″B=″?Z: ″F=″?G:Prog ″Z2″: ″X=″:N→N◢″Y=″:E→E◢″QXFWJ″:F→F:F DMS◢Goto 4↙Lbl 2: ″XZB=″?→B: ″YZB=″?→C:B→N:C→E:Prog ″Z3″: ″LICHENG=″:S→S◢″OUT JL=″:Z→Z◢Goto 4↙数据库子程序Z1Lb l 1↙If S<5126.802:Then 34304.063→U:72029.684→V:5046.802→O:99°09′36″→A:80→L:220→P:10^(45) →R:Return:IfEnd↙If S<5239.113:Then 34281.903→U:72106.431→V:5126.802→O:109°34′38.5″→A:112.311→L: 10^(45)→P:10^(45) →R:Return:IfEnd↙If S<5319.113:Then 34224.270→U:72212.249→V:5239.113→O:109°34′30″→A:80→L: 10^(45)→P:-200 →R:Return:IfEnd↙If S<5444.453:Then 34222.582→U:72289.106→V:5319.113→O:98°07′05.2″→A:125.34→L: -200→P:-200 →R:Return:IfEnd↙If S<5524.453:Then 34243.645→U:72410.593→V:5444.453→O:62°12′40.3″→A:80→L: -200→P: 10^(45) →R:Return:IfEnd↙If S<5644.634:Then 34289.939→U:72475.663→V:5524.453→O:50°45′04.7″→A:120.181→L: 10^(45)→P:10^(45) →R:Return:IfEnd↙If S<5724.634:Then 34365.976→U:72568.732→V:5644.634→O:50°45′05.2″→A:80→L: 10^(45)→P:200 →R:Return:IfEnd↙正算子程序Z205(1/r-1/p)/L→D:S-O→X↙U+∫(cos(A+(X/P+DX^2)*180/pi(),0,X)→N↙V+∫(sin(A+(X/P+DX^2)*180/pi(),0,X)→E↙A+(X/P+DX^2)*180/pi()→F↙N+Zcos(F+G)→N:E+Zsin(F+G)→E↙Return反算子程序 Z3Lbl 1:0→Z:1→Q:Prog”Z1”:0.5(1/R-1/P)/L→D:S-O→X↙U+∫(cos(A+(X/P+DX^2)*180/pi(),0,X)→N↙V+∫(sin(A+(X/P+DX^2)*180/pi(),0,X)→E↙A+(X/P+DX^2)*180/pi()→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↙If Abs(W)>0.0001:Then Goto 1:IfEnd↙Lbl 2:0→Z: ″Z2″:(C-E)/sin(F+90)→Z↙Retun注：1：数据库里面的角度为线元起算方位角；2：L，P为线元起始半径，直线以及缓和段取10^45,左负右正；3：主程序1为正算，2为反算，S所需算的桩号，B边桩距离，F边桩起算夹角，左负右正；“SQXJS”↙“KBPO=”?J:”BG=”?B:”I1=”?C:”I2=”?D:”R=”?R↙“QIEXIAN=”:R*Abs(D-C)/2→T◢“QIDIAN=”:J-T→X◢“ZHONGDIAN=”:J+T→Y◢If D-C>0:Then 1→V:Else -1→V:IfEnd↙LBl 0↙“JSK=”?L↙If L≤X:Then B-(T-(L-X))*C+V*(L-X)^2/(2R)→W:Else B+(T-(Y-L))*C+V*(Y-L)^2/(2R) →W:IfEnd↙“JSGC=”:W◢Goto 0↙Return“J表示变坡点桩号，B为变坡点高程，C前纵坡坡度，D后纵坡坡度，R为竖曲线半径，T切线长，X起点桩号，Y终点桩号，V计算参数（凹形取1，凸形取-1），L 需要计算的桩号，W计算点高程“ZBFS”↙Deg:ClsStat:FreqOn:Fix 3↙Lbl 0↙“XA(m)=”?A: “YA(m)=”?B↙“XB(m)=”?C: “YB(m)=”?D↙Pol(C-A,D-B):Cls↙If J<0:Then J+360→R:Else J→R:IfEnd↙“DIST A→B(m)=”:I◢“BEAR A→B(DMS)=”:R DMS ◢ClrStat:FreqOn↙Lbl 1↙0→M↙“ANGEL(Deg)=”?→Q↙“DIST(m)=”?→S↙Q+R→M↙A+S*cos(M)→X↙B+S*sin(M)→Y↙“XC(m)=”:X◢“YC(m)=”:Y◢0→N↙“ANGEL2(Deg)=”?→P↙“DIST2(m)=”?→T↙P+R→N↙A+T*cos(N)→U↙B+T*sin(N)→Z↙“XD(m)=”:U◢“YD(m)=”:Z◢“FAN=”?W↙If W=0:Then Goto 0:Else Goto 1:IfEnd↙Return。
FX-5800p编程
比积分公式快速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、当线元为直线时，其起点、止点曲率半径为零。
卡西欧FX5800P编程计算器应用及程序
程序示例
U“Z=0 Y≠0”=0
K0+=0 H0=3014.6 ≥=1/74.09 D=2.9 E=2.46 R=1.671
【1】 直线段
实测坐标（m）
圆拱段超欠(m) 直墙超欠(m) 底板超欠(m) 至拱肩高差(m)
111.139 93.763 64.030 94.543 116.748
18°52ˊ49.81" 91°24ˊ13.56" 88°26ˊ53.49" 49°40ˊ03.20" 60°41ˊ09.73"
移 动 值（m）
DV=、0.254 D∧=、0.700 DV=、0.049 DV=、0.140 DV=、0.168
据目录（个数）是利用“ ”，按 FUNCTION->7->2->1->EXE 就可以看到个数了。
在程序中调用统计储存器中的数据时，是利用 List 调用的。具体格式如下： List X［A］+Y［A］i->C
式中 A 是点号，C 是任意储存单元。具体示例详见“程序部分”->“极程序放样” （2）、利用统计计算（SD/REG）
2、以 形式计算。以坐标换算为例：
坐标重合点 A 旧坐标 98042.831->SHIFT->RCL->A 11430.122->SHIFT->RCL->B A+Bi->E 新坐标值均为零，就不必另行输值，新旧坐标方位角差值 69°56"23"->W。 要求计算施工坐标 X=27，Y=29.1 的 B 点的测量坐标。 计算赋值：27->U，29.1->V。U+Vi->F
<=、0.663 =>、0.023 <=、0.218 <=、0.561 =>、0.298
CASIO5800P 程序更新版
CASIO fx—5800P 计算程序1：曲线计算程序名：QXJS“L=”？L:“LI CHENG=”?W L为项目编号，W为里程；本程序按两个项目设计（预设置），5800P可满足多个100公里以上的项目计算，项目编号以此类推，添加类似语句即可。
0→D:1→VLbl 11→NL=1=＞Prog”L1”为快速查找项目1平面元素而设置了N初始值的转子程序，没必要时可删除L=2=＞Prog”L2”为快速查找项目2平面元素而设置了N初始值的转子程序，没必要时可删除For N→N to 50 循环语句终值50可根据交点的数量大小调整L=1=＞Prog“L1-XY”转项目编号为1的线路平曲线元素的子程序L=2=＞Prog“L2-XY”转项目编号为2的线路平曲线元素的子程序If W≥Rep(Z)And W≤Imp(Z):Then Goto 2: IfEnd:Next 当前里程与计算区间Z比较“Sto p！”:Stop 输入不在本项目范围的错误里程时停止运行Lbl 2If K<0:Then Q→X: 平曲线元素可能是交点里程、坐标时运行该条件语句，交点里程以负值输入元素表中0→Q:0→J:S+C→I: -K→K:Goto 6:IfEndGoto 5Lbl 3Q<0=＞360+Q→Q“LI CHENG=”?W 同上，此处是回到当前计算区间继续输入新里程Lbl 4If W≥Rep(Z) And W≤Imp(Z):Then Goto5:EIse“>>>>” :Goto1 :IfEnd同上，当前里程可能找不到计算元素而回到Lbl 1重新开始从头查找Lbl 50→Jμ0+Abs(W－Abs(K)→Iμ0是无穷小量，避免特殊情况错误运行，I为计算当前里程到ZH或HZ点长度W:K<0=＞－WIf Ans<K:Then 0→U:－I:Goto 7:IfEnd 为ZH或HZ两端直线上计算条件语句I>S+C=＞S+C→ILbl 6If 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 缓和曲线与综合曲线计算条件语句Lbl 7J+Anscos(Q)+Ans i Sin(Q) →J 坐标旋转、平移之变换计算语句If I=S+C:Then Q+ A→Q:－K－I－T→K:T→I:S→T:I→S:- R→R:Pr og“MP”:Goto 6: IfEnd ZH与HZ端换头计算语句，下同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 5:IfEndIf I=S:Then Q-180→Q:O+J→O:Goto 5:IfEndK <0=＞U+180→UQ+U→UD=1=＞Goto 8“BJ a+b i=”?E 输入水平边距和高程边距。
卡西欧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坐标。
卡西欧5800P矩阵编程计算器说明书
1、程序 PR1，计算一个起点至任意个端点的边长与方位角
"X,Y DIST And BEARING PR1" Deg:ClrStat:FreqOff:Fix 3 "X0(m)="?A:"Y0(m)="?B 0K
② 在您购买的 fx-5800P 上按 键打开机器电源，按
(LINK) (Receive)键使您
的机器处于接收数据状态，屏幕显示“Receiving…”，表示机器正等待接收母机发送来的数据；
③ 在代理商的母机上按 键打开机器电源，按
(LINK) (Transmit) (All)
(Yes)键启动代理商的母机发送数据，屏幕显示“Transmitting…”，表示正在发送数据。
六十进制的角度值，应将光标移动到 List Y 的某个单元，按
键。
2、程序 PR2，极坐标法放样元素计算
"POLAR SETTING-OUT PR2" Deg:ClrStat:FreqOff:Fix 3 "XO(m)="?A:"YO(m)="?B "X0(m)="?C:"Y0(m)="?D Pol(C-A,D-B):Cls If J<0:Then J+360 E:Else J E:IfEnd "DIST O 0(m)=":I "BEAR O 0(DMS)=":E DMS 1 K:I List X[K]:E List Y[K]
提示输入 n 点的 y 坐标 调用极坐标函数并清除屏幕显示
fx-5800P编程计算器的操作方法
∫
2
−2
1 e 2π
x2 − 2
dx
(5) 历史记录存储器与表达式重演 用户输入一个正确的表达式，按 键 计算器显示该表达式的计算结果 称一次表达式及其计算结果——一条历史记录。 fx-5800P设有127字节的历史记录存储器 用于存储用户已执行的历史记录。 当存满历史记录存储器时 机器将自动删除最早的历史记录 以腾出空间用于存储最近一次执行的历史记录。 线性格式时，一个函数符需占用1~2个字节 数学格式时，一个函数符需占用4个或更多的字节数。
(3) 多重语句的使用 由若干个表达式连接而成，用于连续计算。 如只需显示最后一个表达式的结果，用冒号:连接 需要显示计算结果的表达式用显示符\连接 按 键输入冒号——: 按 键输入显示符——\ ① 最后一个表达式无论是否使用显示符\ 都自动显示其计算结果。 多重语句中，后一个语句不能直接用前一个语句的结果。
(4) 按 键输入`DMS函数 用于将角度表达式计算的十进制角度值 转换为六十进制角度，常用于程序中。
3) 直角坐标与极坐标的换算 极坐标函数Pol，直角坐标函数Rec 用于直角坐标与极坐标的相互换算。 按 或 键输入函数符Pol( 按 或 键输入函数符Rec(。 Pol(Δx，Δy)函数计算结果为平距r，辐角θ r值——I变量，θ值——J变量。 Rec(r，θ)或Rec(r，α)函数计算直角坐标分量 Δx，Δy；Δx值——I变量，Δy值——J变量。
(4) 额外变量存储器Z[i] 数组变量Z[i]——额外变量存储器 数组Z使用前应先定义，句法——n¼DimZ 按 键输入DimZ n——1~2372间的整数或表达式 剩余内存容量不足以定义数组Z的维数时出错。 Z[i]中的i值≤n的正整数，可以是数值、变量或表达式。 定义额外变量存储器占用固定的26字节内存 每增加一个额外变量存储器需要12字节内存 额外变量存储器存储复数时，增加10字节内存。
casio fx-5800p 使用方法与编程技巧
机器自动恢复最近一次关机的屏幕显示与
运行状态。 ③ 类结构化 BASIC 语言，编写的程序
图 A-1 fx-5800P 计算器键面
更易于阅读。
④ 用串列存储统计数据，便于输入与编辑统计数据。
⑤ 数学格式显示允许按书写习惯输入与显示各种数学公式。
1
⑥ 内置 128 个常用的数学、物理、电子与测量公式供读者调用，公式变量可以 为大小写英文 字母变量及大小写希腊字母变量，且允许使用一个字符作为下标，使公式变量更贴近其实际意义。
命令、清除命令、统计计算命令、矩阵符 Mat、用户自定义公式中的英文小写字母变量、希腊大小
写字母变量及字母变量的下标字符等，详细列于表 A-5。
表 A-5 功能菜单的意义
功能选项 按键
意义
Math
输入∫dx，d/dX，d2/dX2，Σ(，X! ，Ran#，nPr，nCr，Abs，Int，Frac，Intg， Pol(，Rec(，logab，RanInt，sinh，cosh，tanh，sinh-1，cosh-1，tanh-1 等数学 函数符
一区别是赋值运算符。在 fx-4850P 中，赋值符与条件符都是“=”，而在 fx-5800P 中，赋值符变成
了“ ”，这也是将 fx-4850P 程序转换为 fx-5800P 程序需要修改最多的地方。
(2) 屏幕状态栏
通过按键可以使计算器处于某种模式或状态下，计算器当前所处模式或状态显示于屏幕顶部的
此，存储在串列中的观测数据与频度数据可以随时修改。而 fx-4850P 的观测数据与频度数据输入
后是不可以修改的。另外，串列在编程中，可以用于存储计算结果。例如，使用程序计算道路曲线
中桩坐标时，可以将中桩桩号存储在 List X 串列中，X 坐标存储在 List Y 串列中，Y 坐标存储在
CASIOfx-5800p程序编写操作步骤
6/5
键 EXE 按 673.133 值程高点知已入输 键 EXE 按 193.133 值测观程高点知已入输 键 EXE 按 568.9347 值标坐 y 点知已入输 键 EXE 按 478.9347 值测观标坐 y 点知已入输 键 EXE 按 135.8493 值标坐 x 点知已入输 键 EXE 按 484.8493 值测观标坐 x 点知已入输 键 EXE 按、2 和之长全线导示显 419.9511 = ) D ( Σ 示显 键 EXE 按 和之长边点#6 至边始起示显 419.9511 =)6−1D(Σ 示显 键 EXE 按 和之长边点#5 至边始起示显 412.178 =)5−1D(Σ 示显 键 EXE 按 和之长边点#4 至边始起示显 295.746 =)4−1D(Σ 示显 键 EXE 按 和之长边点#3 至边始起示显 259.935 =)3−1D(Σ 示显 键 EXE 按 和之长边点#2 至边始起示显 956.663 =)2−1D(Σ 示显 键 EXE 按 „„� �边条 6 有 只线导本为因�0 入输都�8�S 和)7(S�意注�)8(S 到直键 EXE 按)1(S 入输 键 EXE 按”CPXDHB“序程开打、1 �下如作操体具序程的步六第 。序程有所除删为 seli F llA �序程定指除删为 eli F enO �序程除删�键�ETELED� �序程�改修或�辑编�键�TIDE� �序程行�运或�执�键�NUR� �序程建�新或�创�键�WEN� 4 3 2 1
面画程编建新现
出�键
1
5
EDOM
NO/CA
按�能功程编器算计入进、1
和之长边长全线导算计 ]02[Z ⟶N+M+W+G+E+C+B+A:”=)D(Σ“ W+G+E+C+B+A:” �6−1�DΣ“ G+E+C+B+A:” �5−1�DΣ“ E+C+B+A:” �4−1�DΣ“ �推类下以�和之边条三第至边始起算计 C+B+A:” �3−1�DΣ“ 和之边条二第至边始起算计 B+A:” �2−1�DΣ“ 据数长边各边线导入输 ↲N?”=)8(S“:M?”=)7(S“ :W? ”=)6(S“ :G? ”=)5(S“ :E? ”=)4(S“ :C? ”=)3(S“ :B? ”=)2(S“ :A? ”=)1(S“ 序程子和之长边算计 HZCB
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
f x-5800P计算器编程fx-5800P计算器编程基于串列输入数据的边长与坐标方位角计算程序P0801fx-5800P设有List X、List Y、List Freq三个串列，串列的功能是用于存储单、双变量统计计算的样本数据，以便于用户查看与编辑样本数据。
在编程中也可用串列存储已知数据或程序计算结果，本程序是用于存储程序计算所需要的已知数据。
程序名：P0801"COOR SIDE And BEAR P0801"显示程序标题Deg: Fix 3十进制度，3位固定小数显示n N:"POINT NUM=":N提取与显示串列中的坐标点数Lbl 0:"START n="?O输入站点点号If O≤0 Or O>N:Then "START n OVER!":Goto 0:IfEnd判断站点点号的合法性Lbl 1:"END n="?E输入站点点号If E≤0 Or E>N Or E=O:Then "END n OVER!":Goto 1:IfEnd判断端点点号的合法性Pol(List X[E]-List X[O],List Y[E]-List Y[O]):Cls调用极坐标函数计算J<0J+360J判断方位角"D(m)=":I显示站点→镜点的平距"α(Deg)=":J显示站点→镜点的方位角Goto 0运行程序前，需按(COMP)(CLR)键，执行ClrStat命令，清除统计串列的数据；按(STAT)(FreqOn)键打开频度串列List Freq；按(REG)键进入双变量统计回归计算模式，在统计串列中依次输入图所示的坐标点数据，结果见表1所示1 输入在统计串列的坐标数据每在List X与List Y行输入一个点的坐标后，List Freq行的频度自动变为1，它用于统计总点数，请用户不要改变该数值。
完成已知数据输入后，执行程序P0801，用户只需分别输入站点号与镜点号，程序即能自动计算并显示站点→镜点的平距与坐标方位角。
当用户输入的站点号超出总点数或为负数时，程序自动要求用户重新输入站点号；当用户输入的镜点号超出总点数、为负数或等于站点号时，程序自动要求用户重新输入镜点号。
执行程序P0801，1→7，5→6点的平距与坐标方位角的步骤如下：只能按键终止运行，终止程序运行后，用户可以随时按(REG)键进入双变量统计回归计算模式，编辑已输入的坐标数据或添加新点的坐标数据。
特别提示：CASIO fx-5800p大礼包热销中，【购买1台fx-5800p，赠送《CASIO fx-5800p可编程计算器测绘计算实用程序》书籍1本，此书籍中测量程序可直接传输到计算器中，《CASIO fx-5800p新型编程计算器使用方法与编程技巧》1本，fx-5800p间数据传输线（SB-62）1条，《fx-4850p/fx-4800p与fx-5800p编程语言的主要区别》对比表1份】，数量有限，欲购从速，可以到全国各地测绘店购买及常用测量程序传输。
fx-5800p的8大功能优点总结:优点1、结构化的类BASIC编程语言，程序结构化强，便于编写和阅读，程序代码更加简洁”If～Then～Else～IfEnd, For～To～Step～Next,While～WhileEnd, Do～LpWhile”优点2、两台fx-5800p间的数据通讯，免除了手工输入程序的麻烦，节省时间，避免输入错误优点3、fx-5800p大容量的内存及闪存存储功能，断电情况下，程序不会丢失优点4、fx-5800p自然书写功能，自然书写形式输入与输出不出错优点5、fx-5800p的夜晶点阵显示屏幕，可以更加清晰的显示数字内容，分辨率高优点6、强大的数理统计分析，串列数据存储功能，用于编程，可批量存储计算结果，方便查看数据结果优点7、fx-5800p矩阵计算功能，最大可计算10×10的矩阵，测量平差方程的解算优点8、耗电量小，fx-5800p的7号电池方便更换与耐用一、程序功能主要功能：采用交点法方式计算多条线路坐标正反算，可算任意复杂线型及立交匝道，包括C型，S型、卵型、回头曲线等；极坐标放样，全线路基边坡开挖口及坡脚放样计算、路基任意点设计高程、横坡、设计半幅宽度.隧道欠超挖放样计算。
新版本优化：1、优化程序语句、2、以复数形式输入变量及做数据库，取消原矩阵数据库;3、修改隧道超欠挖程序为通用形，不受圆心个数限制、4、新增测量资料表计算二、源程序（绿色为程序名；蓝色为输入计算器内容）紫色为新版改动处（可以根据自己标段情况用相关主程序及子程序，再在0程序中汇总）0.汇总程序（1、坐标计算放样程序(1XY、A、AB、HX、JS、DX、QX、F、XY、X1)；2、坐标反算程序（2ZD、A、B、AB、HX、QX、F、ZD、X1)；3、高程计算查阅程序（3GC、H、I、QX、S1、I1）；4、路基半幅标准宽度查阅程序（4GD、C、QX、G1）；5、路基边坡及开挖口放样程序（5BP、A、B、AB、HX、H、I、C、JS、DX、QX、F、ZD、X1、S1、I1、G1、W1）；6、路基标准距离放样（6FM、A、AB、HX、H、I、JS、DX、QX、F、XY、X1、S1、I1)；7、桥梁锥坡计算放样程序（7ZP、A、AB、HX、C、JS、DX、QX、F、XY、X1、G1)；8、极坐标计算程序（8JS、JS、DS）；9、隧道超欠挖计算程序（9SD、A、B、AB、HX、H、I、QX、S、SD、F、ZD、X1、S1、I1、SD1）运行后按1~9数子约半秒，则选择1至9的程序，返回时，在桩号输入-1,返回选择计算类型。
输入-2,返回选择线路。
程序名：0（数子0）ClrMat:ClrVar:12→DimZ：Norm 2:Do:＂(XY=1，ZD=2 ，GC=3，GD=4，BP=5，FM=6，ZP=7，JS=8，SD=9)===>QING AN 1-9＂：Getkey→Z[3]:While Z[3]=35:Prog＂1XY＂:WhileEnd:While Z[3]=36:Prog＂2ZD＂：WhileEnd: While Z[3]=37:Prog＂3GC＂：WhileEnd: While Z[3]=21:Prog＂4GD＂：WhileEnd: While Z[3]=22:Prog＂5BP＂：WhileEnd: While Z[3]=23:Prog＂6FM＂：WhileEnd: While Z[3]=31:Prog＂7ZP＂：WhileEnd: While Z[3]=32:Prog＂8JS＂：WhileEnd: While Z[3]=33:Prog＂9SD＂：WhileEnd:LpWhile Z[3]≠25:”XIE XIE SHI YONG”:计算器内程序排例：0、01（测量资料专用）、1SC（水准测量用）、1XY、2XY-S（由坐标计算面积）、2ZD、3GC、4GD、5BP、6FM、7ZP、8JS、9SD、A、AB、B、B6（测量表格检表6）、B7（检表7）、B8（检表8）、B9（检表9）、C、DX、DX0、F、G1、H、HX、I、I1、JS、M （度分秒转十进制）、QX、S、S1、SD0、SD1、T、W1、X1、XY、XYH （五点通线元法计算坐标）、ZD5800计算器线路、匝道中边桩万能程序彭赐明改编网上类似程序于河南高速郑漯8标LB1 1↙Cls : Fix 4 : Deg :"XZJ="?R◢ (输入置镜点X）"YZJ="?S◢ (输入置镜点Y）LB1 2↙"K="?K◢ (输入计算点里程）If K<第一线元终点里程：THEN 线元起点X→A:线元起点Y→B:线元起点半径（直线起点终为10的45次方）→T:线元起点里程→D：线元起点方位角→E:线元终点半径（直线起终点为10的45次方）→U：线元终点里程→G:线元偏向（左偏－1右偏＋1）→W:Goto3:IfEnd↙………………………………（线元数据分段输入）LB1 3↙W*T→C:W*U→F:0→I:0→J:(C-F)/(2*C*F*(G-D))→H:K-D→X:E+(X/C+HX^2)×180/π→V:V<0=>V+360→V:"QXJ=":V→DMS◢(计算点切线方位角）A+∫(Cos(E+(X/C+HX^2)*180/π，0，X)→Z :B+∫(Sin(E+(X/C+HX^2)*180/π，0，X)→Y :"XI=":Z◢(计算点中心X）"YI=":Y◢(计算点中心Y）"PJ="?P◢(输入计算点边桩偏角左－右＋）"PD="?Q◢(输入计算点边桩偏距）Rec(Q,V+P):Z+I→Z :Y+J→Y:"XP=":Z◢(计算点边桩X）"YP=":Y◢(计算点边桩Y）Pol(Z-R,Y-S):J<0=>J+360→J:"FYJ=":J→DMS◢(放样方位角）"FYD=":I◢(放样距离）Goto 2↙提问人的追问2010-08-29 21:20fx5800计算器要的四大主点的坐标和方位角计算程序：LU-XIANClrstat:20→Dimz:Fix6:Lib0:"NO.J(2)="?S:"R="?R:"L(H)="?L:Prog"FANG- WEI":J+180→J:J-O→K:K<0＝＞K+360→K:K-180→F:If>0:ThenL(1):ElseR(1):IfEnd←L(1)＝＞-1→W:R(1)＝＞1→W:J+W(I*180/(2πR))→z[6]:"B(HY)=":(z[6]-180)▲DME◢ I*180/(2πR)→B:I/2-I^(3)/(240*R^(2)→G:I^(2)/(24R)→P:"T=":(R+P)*tan(Abs(F)/2)+G→z[7]→◢ "L(Y)=":πR(Abs(F)-2B)/180→z[8]◢ "NO.ZH=":S-z[7]→z[9]◢ "NO.HZ=":z[9]+2I+z[8]◢ "X-ZH=":C+z[7]*cos(J)→z[1]◢ "Y-ZH=":D+z[7]*sin(J)→z[2]◢ "X-HZ=":C+z[7]*cos(O)→z[3]◢ "Y-ZH=":D+z[7]*sin(O)→z[4]◢I-I^(3)/(40R^(2))+I^(5)/(3456*R^(4))-I^(7)/(599040R^(6)→z[5]:"X-HY=":z[1]+z[5]/cos(30I/(πR))*cos(J-180+30WI/(πR))◢"Y-HY=":z[2]+z[5]/cos(30I/(Rπ))*sin(J-180+30WI/(πR))◢"B(Y)=":O+(-W)*(180I/(2πR)◢ "X-YH=":z[3]+z[5]/cos(30I/(πR))*cos(O+180-30WI/(πR))◢ "Y-YH=":z[4]+z[5]/cos(30I/(πR))*sin(O+180-30WI/(πR))◢ Goto 0 ←NO.JD(2),R,L(H)分别为：交点里程，半径，缓和曲线长;T,L(Y),NO.ZH,NO.HZ,X-ZH,Y-ZH,X-HZ,Y-HZ,X-HY,Y-HY,X-YH,Y-YH,B(YH) 分别为:切线长，圆曲线长，直缓点里程，缓直点里程，四大主点的坐标和圆缓点方位角方位角计算程序：FANG-WEIClrstat:Deg:"X1="?A:"Y1="?B:"X2="?C:"Y2="?D:"X3="?E:"Y3="?F←C-A→X:D-B→Y:Arg(X+Yi)→J:J<0＝＞J+360→J:E-C→M:F-D→U:Arg(M+Ui)→O:O<0＝＞O+360→O:"J=":J▲DME◢←"O=":O▲DME◢X1,Y1,X2,Y2,X3,Y3:分别为三个交点的坐标。