我的5800p测量程序及公式

合集下载

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

fx-5800P 程序直线段中边桩坐标计算程序(PM10-9) (1) 计算原理在图 10-11 中,已知路线直线段起点 A 的桩号 Z A 及其平面坐标( x A , y A ),端点的已知数据可以是 B 点的平面坐标( x B , y B ),也可以是 AB 的方位角 α AB 与平距 D AB . 设直线上任意点 j 的桩号为 Z j , j 点的则中桩坐标为 x j = x A + ( Z j Z A ) cos α AB (10-34) y j = y A + ( Z j Z A ) sin α AB 左边桩坐标为图 10-11 直线段中边桩坐标计算原理 x jL = x j + wL cos(α AB 90°) y jL = y j + wL sin(α AB 90°) 右边桩坐标为 (10-35) x jR = x j + wR cos(α AB + 90°) y jR = y j + wR sin(α AB + 90°) 式中, wL 为路线左半幅宽, wR 为路线右半幅宽. (10-36) (2) 程序 PM10-9,占用内存 746 字节. "LINE COORDINATE PM10-9" 显示直线段坐标计算标题 Deg:Fix 3 基本设置 4 DimZ 定义额外变量用于暂存左,右边桩点坐标 "A MILEAGE PEG(m)="?Z 输入以 m 为单位的 A 点桩号 "XA(m)="?A 输入起点 A 的 x 坐标 "YA(m)="?B 输入起点 A 的 y 坐标 "XB(m), 0 To BEAR A B(Deg)="?C 输入已知点 A 的 x 坐标或输入≤0 的数值 If C>0:Then "

fx-5800p匝道(线元法)测量程序

fx-5800p匝道(线元法)测量程序1.ZDZS(匝道正算程序)Do:〝1.AZD 2.BZD 3.CZD 4.DZD 5.EZ D↙ZD=〝？→Z[1]:Lpwhile Z[1]>6 Or Z[1]≤0(零):〝X0(零)=〞？J:〝Y0(零)=〞？N↙J→Z[2]:N→Z[3]↙LbI 0(零):〝K=〞？S:90→T(如将90→T改为〝Q°=〞？T可计算斜交)：〝D=〞？Z:Z[1]=1=＞Prog〝AZD〞: Z[1]=2=＞Prog〝BZD〞: Z[1]=3=＞Prog〝CZD〞: Z[1]=4=＞Prog〝DZD〞: Z[1]=5=＞Prog 〝EZD〞↙〝X=〞:X+Zcos(F+T)→X◢〝Y=〞:Y+Zsin(F+T)→Y◢Prog〝A〞:Goto 0(零)↙本程序中输入及显示说明：输入部分：ZD=? 输1为运行A匝道、输2为运行B匝道、输3为运行C匝道、输4为运行D匝道、输5为运行E匝道；X0=? 输入测站点X坐标；Y0=? 输入测站点Y坐标；K=? 输入待求点桩号；D=? 输入待求点距中桩距离。

(以线路前进方向区分左右、当待求点位于中桩时D=0(零)；当待求点位于中桩左侧时D取负值；当待求点位于中桩右侧时D取正值。

）显示部分：X= 显示待求点X坐标；Y= 显示待求点Y坐标；FWJ= 显示测站点至待求点方位角(即水平角)；HD= 显示测站点至待求点水平距离。

若测站X0坐标输入0(零)时、不论测站Y0坐标输入多少，都不显示FWJ=、HD=两项。

2.ZDFS(匝道反算程序)Do:〝1.AZD 2.BZD 3.CZD 4.DZD 5.EZ D↙ZD=〝？→Z[1]:Lpwhile Z[1]>6 Or Z[1]≤0(零)↙LbI 0(零):〝K=〞？S:〝X=〞？I:〝Y=〞？J: Z[1]=1=＞Prog 〝AZD〞: Z[1]=2=＞Prog〝BZD〞: Z[1]=3=＞Prog〝CZD〞: Z[1]=4=＞Prog〝DZD〞: Z[1]=5=＞Prog〝EZD〞:Porg〝E〞:O(欧)+W→S:〝K=〞:S◢〝D=〞:Z◢Goto 0(零)↙本程序中输入及显示说明：输入部分：ZD=? 输1为运行A匝道、输2为运行B匝道、输3为运行C匝道、输4为运行D匝道、输5为运行E匝道；K=? 输入待求点大概桩号；X=? 输入待求点X坐标；Y=? 输入待求点Y坐标。

FX5800P计算器隧道测量程序

(以下程序是专业人士编写，本店铺不对程序负责，仅供您参考使用。

)紫金龙逸zijinlongyi0820@正反算辛普森5800程序2010年4月22日修改（可回头）仲项飞1.主程序(ZXC)2→DimZ(增加变量)Lbl 0：Z[9] →E:“1-ZS,2-FS” ?E：E→Z[9]↲Lbl1: ”XL LC” ?Z:Prog“DA TE1”:E≥2=＞Goto2 : 5.375(设计线路在线路中线右边为“-”，设计线路在线路中线左边为“+”,数值为设计线路与线路中线的距离，所有偏距以隧道中线起算;若算斜交，则改为0，则所有偏距以设计线路起算。

)→N:“DZX”?W:“PJ”?S:W+N→W:Abs(Z-F)→Q:Prog“XZS”:W-N→W:J-S→J:Cls:Locate1,1,”X=”: Locate 3, 2,X:Locate 1, 3,”Y=”:Locate 3, 4, Y◢"FWJ=”:J:J►DMS◢Goto 3Lbl 2:?X:?Y:Prog“XFS”: F+Q→Z:-5.375→N:W-N→W:Cls:Locate 1, 1,”K=”: Locate 3, 2,Z: Locate 1, 3, ”W=”: Locate 3, 4, W◢Goto 3Lbl 3：Prog “SQX1”DA TE1(数据库)7704.149→A:5024.7762→B:264°42'42.62"→C:1÷10^(45)→D: 1÷10^(45)→R:122020.554→F:124140.538→G:IfZ≤G:Then GotoA:IfEnd↲7508.761→A:2913.8154→B:264°42'42.62"→C:1÷10^(45)→D: 1÷(-750)→R: 124140.538→F:124360.538→G:IfZ≤G:Then GotoA:IfEnd↲………………(有几个线圆依次添加几个判断语句，顺序从小里程到大里程，次序不得颠倒)Lbl A………………(有几条线路就添加几个数据库。

5800计算器测量计算程序-3页精选文档

Casio Fx-5800P计算器公路测量计算程序王宏伟2009年8月1日非对称及对称曲线坐标计算程序源主程序1（DF）“X0”？O：“Y0”？ZPol（X-O，Y-Z）：I：“D=”：I◢J<0=>J+360→J：J：“FWJ=”：◢主程序2：（SIMI）（U÷V-U÷R）÷（Q-A）→T4→N（K-A）÷N→H90H÷л→SF+（（TNH+U÷R）+U÷R）NS→W1→GD+H÷6×（cos（F）+cos（W）+4∑（cos（F+（（G+0.5）HT+2U÷R）（G+0.5）S），G，0，（N-1））+2∑（cos（F+（THG+2U÷R）GS，G，1，（N-1）））+Lcos （W+P）→XE+H÷6×（sin（F）+sin（W）+4∑（sin（F+（（G+0.5）HT+2U÷R）（G+0.5）S），G，0，（N-1））+2∑（sin（F+（THG+2U÷R）GS，G，1，（N-1）））+Lsin （W+P）→Y坐标计算程序源：（BJL被交路）Lbl 0“K”？K：“L”？L：“P”？PK<1102=>Goto B：K<1498.2=>Goto C：K≤2917.2=>Goto DLbl B0→A：1102→Q：7700→R：7700→V：4211738.83→D：637209.588→E：269°4′11.4″→F：1→U：Goto 1Lbl C1102→A：1498.2→Q：7700→R：6000→V：4211799.713→D：636110.212→E：277°16′11.4″→F：0→U：Goto 1Lbl D1498.2→A：2917.2→Q：6000→R：6000→V：4211849.851→D：635717.198→E：277°16′11.4″→F：-1→U：Goto 1Lbl 1Prog“SIMI”W<0=>W+360→W：W：“FWJ=”：◢“X=”：X◢“Y=”：Y◢Prog“DF”： Goto 0程序说明K ……所计算桩号W“FWJ”……所计算桩号切线方位角A“QD”……起点里程Q“ZD”……终点里程R“RO”……起点半径V“RN”……终点半径D“XQ”……起点坐标E“YQ”……起点坐标F“F0”……起点方位角U……曲线转向（左-1、直0、右1）L……距中桩距离P……边桩与中线交角希望以上资料对你有所帮助，附励志名言3条：1、理想的路总是为有信心的人预备着。

CASIO5800P 程序

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。

5800P计算器程序

FX5800计算器公路测量常用程序集一、程序功能主要功能：采用交点法方式计算多条线路坐标正反算，可算任意复杂线型及立交匝道，包括C 型，S型、卵型、回头曲线等；极坐标放样，全线路基边坡开挖口及坡脚放样计算、路基任意点设计高程、横坡、设计半幅宽度.隧道欠超挖放样计算。

新版本优化：1、优化程序语句、2、取消原线元法计算，化线元法为交点法。

3、高程计算修改,4、附计算坐标及高程参数设计要素输入实例二、源程序（绿色为程序名；蓝色为输入计算器内容）红色为网友调试后修改笔误。

0.总主程序（1、坐标计算放样程序2、坐标反算程序；3、高程计算查阅程序；4、路基半幅标准宽度查阅程序；5、路基边坡及开挖口放样程序；6、路基标准距离放样；7、桥梁锥坡计算放样程序；8、极坐标计算程序；9、隧道超欠挖计算程序）运行后按1~9数子约半秒，则选择1至9的程序，返回时，在桩号输入-1,返回选择计算类型。

输入-2,返回选择线路。

程序名：0（数子0）1.主程序：一般坐标计算及放样程序程序名:1XYProg ＂DX＂:Prog＂QX＂:90→A: ＂PJ1＂?A:A→B: ＂PJ2＂?B:A→Z[1]:B→Z[9]: Do:＂KM＂?Z:Z=-1=>Stop:Z=-2=>Break: Prog＂K＂: ?D: 0→L: ＂L0＂?L:L→Z[10]: Porg＂A＂:Z[2]+Z[1] →A:A-Z[9]→E:I+Dcos(A)+Z[10]cos(E→X:J+Dsin(A)+Z[10]sin(E→Y:Prog＂XY＂:Prog＂JS＂:LpWhile Z≠-12.主程序：由大概桩号及坐标反算桩号及距离程序名:2ZDProg＂QX＂:Do: ＂KM＂?Z:Z=-1=>Stop:Z=-2=>Break: Prog＂K＂: ＂XO＂?X: ＂Y0＂?Y: Porg＂B＂: Prog＂ZD＂:LpWhile Z≠-13.主程序：任意点高程计算及横坡程序名:3GCProg＂QX＂:0→B: ＂H-B＂?B: B→Z[9]: Do: ＂KM＂?Z:Z=-1=>Stop:Z=-2=>Break:?D:Prog＂H＂:Fix 3: ＂H=＂:Lcoate 6,4,H-Z[9]：＂I=＂:Locate 6,4,I：LpWhile Z≠-14.主程序:任意桩号位置的标准路基宽度计算程序名:4GDProg＂QX＂: Do: ＂KM＂?Z:Z=-1=>Stop:Z=-2=>Break:-1→D:Prog＂C＂:L→P：1→D: Prog＂C＂:Fix 3: ＂LGD=＂:Lcoate 6,4,P：＂RGD=＂:Locate 6,4,L：LpWhile Z≠-15、主程序:路基开挖边线及填方坡脚线放样程序程序名：4BPProg ＂DX＂:Prog＂QX＂:0.5→B: ＂TH-GD＂?B: B→Z[7]: Do:＂KM＂?Z:Z=-1=>Stop:Z=-2=>Break: Prog＂K＂: “X0＂?X:＂Y0＂?Y:Z[8]→M：＂M0＂?M:M→Z[8]: Porg＂B＂:D→P :Prog＂C＂:If D<0:Then 0.75-L→D:Else L-0.75→D: IfEnd: Prog“H”:H-0.03-Z[8] →G: Prog “W1”:If G>0:Then Goto T: IfEnd:-G→H:If H>E+F:Then L+M+N+U+C(H-E-F)+BF+AE→S:Goto 0:IfEnd:If H>E:Then L+M+N+ B(H-E)+AE→S:Goto 0:IfEnd:If H<E:Then L+M+HA→S:Goto 0:IfEnd:LbI T:If G>W Then L+Z[7]+V+J(G-W)+IW→S:Else L+Z[7]+GI→S:IfEnd:LbI 0: Fix 2: P→D ：Abs（D）-S→T: ＂LX=＂:Locate 6,4,T：Prog＂ZD＂:＂TW=＂:Lcoate 6,4,G◢LpWhile Z≠-16、主程序：定值放样路基桩计算填挖值程序名：6FMProg ＂DX＂:Prog＂QX＂: Do:＂KM＂?Z:Z=-1=>Stop:Z=-2=>Break: Prog＂K＂: ?D: Porg＂A＂:Z[2]+90→A:I+Dcos(A→X:J+Dsin(A→Y:Prog＂XY＂:Prog＂JS＂:Z[8]→M:”M0”?M:M→Z[8]:Prog “H”:”TW=”:Locate 6,4,H-Z[8]: LpWhile Z≠-17、主程序：桥梁锥坡计算放样程序名：7ZPProg＂DX＂:Prog＂QX＂:＂Z0＂?Z:＂LD:Z-,Y+＂? D:Abs(D) →R: ＂LR＂?R: D→Z[7]:R→Z[10]:Z →Z[9]:Prog”C”:L→Z[10]:Prog”K”:Do:Z[10]→Y:＂L0:SZ+,DZ-＂?Y: Y=-1=>Stop:Y=-2=>Break: √(Z[7]2（1-Y2/Z[10]2）)→X：Z[9]+Y→Z: Prog”C”: If D>0:Then L+X→D:Else –L-X→D:IfEnd:Prog”A”: Z[2]+90→A :I+Dcos(A→X:J+Dsin(A→Y:Prog＂XY＂:Prog＂JS＂: LpWhile Y≠-18、主程序：由坐标计算方位角及距离程序名：8JSProg ＂DX＂:Do:?X: X=-1=>Stop:X=-2=>Break:?Y:Prog”JS”: LpWhile X≠-19、主程序：隧道超欠挖放样计算程序名：9SDProg＂DX＂:0.65→A:”CQHD”?A:A→Z[7]:Do:＂KM＂?Z:Z=-1=>Stop:Z=-2=>Break: Prog＂K＂: “X0＂?X:＂Y0＂?Y:Z[8]→M：＂M0＂?M:M→Z[8]: Porg＂B＂:D→Z[9]:0→D:Prog”H”:Prog”SD1”:Z[9] →D:Z[8]→M:Z[7]→X:Rcos(P→C:H+A→A:H+B→B:C+A→E:If M<E:Then R-V→S:S=0=>Goto 1: √(S2-(B-A)2)S÷Abs(S→T:Abs(D-Q)-T→T:√(T2+(M-B)2)-V-X→L:Goto 0:IfEnd:LbI 1:√((D-Q)2+(M-A)2)-R-X→L:LbI 0:Fix 2: ”LX=”: Locate 6,4,L:Prog”ZD”:“H0=”: Locate 6,4,M-H◢LpWhile Z≠-110. 交点法正算子程序(Ａ)程序名：AP÷Abs(P→W:O-T+ΠR×Abs(P)÷180+H÷2-N÷2→Q:H→C:0→M:If Z≤O-T:Then Z-O→S:G→Z[2]:Goto 1: IfEnd:If Z≤O-T+H:Then Z-O+T→S:Prog “HX”:G+WK→Z[2]:A-T→A:G→E:Goto 2:IfEnd:If Z≤Q: Then 180(Z-O+T-0.5H)÷R÷Π→S : Prog”AB”:A+R(1-Cos(S→E：B+Rsin(S→A:E→B:R→M:G+WS→Z[2]:A-T→A:G→E:Goto 2: IfEnd:If Z≤Q+N:Then Q+N-Z→S:N→H:Prog “HX”:G+P→E:E-WK→Z[2]:F-A→A:C→H:Goto 2:IfEnd:Z-Q-N+F→S:G+P→Z[2]: LbI 1:U+Scos(Z[2]→I:V+Ssin(Z[2]→J:Return:LbI 2:U+Acos(E)-WBsin(E→I:V+Asin(E)+WBcos(E→J11. 交点法反算子程序(Ｂ)程序名：B0→D:Do:Z+D→D:Prog”A”:Pol(X-I,Y-J+×10-9:J-Z[2] →J:Isin(J→S:Icos(J→D:If M≠0:Then Pol(M-WS,D:JMΠ÷180→D:IfEnd: LpWhile Abs(D>.001:Z+D→Z:S→D12.缓和曲线段直角坐标计算子程序(ＡB)程序名：ABH2÷R÷24-H∧(4)÷2688÷R∧(3)+H ∧(6)÷506880÷R∧(5)- H ∧(8)÷154828800÷R∧(7)→A:H ÷2-H∧(3)÷240÷R2+ H ∧(5)÷34560÷R∧(4)- H ∧(7)÷8386560÷R∧(6)+ H ∧(9)÷3158507520÷R∧(8)→B13. 计算缓和曲线段坐标增量及偏角子程序(HX)程序名：HXS-S∧(5)÷40÷R2÷H2+S∧(9)÷3456÷R∧(4)÷H∧(4)-S∧(13)÷599040÷R∧(6)÷H∧(6)+S∧(17)÷175472640÷R∧(8)÷H∧(8)→A:S∧(3)÷6÷R÷H-S∧(7)÷336÷R∧(3)÷H∧(3)+S∧(11)÷42240÷R∧(5)÷H∧(5)-S∧(15)÷9676800÷R∧(7)÷H∧(7)+S∧(19)÷3530097000÷R∧(9)÷H∧(9)→B:90S2÷Π÷R÷H→K:If S=0:Then 0→M:Else RH÷S→M:IfEnd14．高程计算子程序（H）程序名：HProg “S1”:N-I→A:A÷Abs(A→W:R×Abs(A÷2→T:If Z<C-T:Then G+I(Z-C→H:Goto 0:IfEnd:If Z<C+T:Then G-TI+(I+(Z-C+T)W÷2÷R)×(Z-C+T→H:Goto 0: IfEnd:N→I: G+I(Z-C→H:ILbI 0:If D=0:Then H→H:Return:Else Prog “I”:H+I(Abs(D)-K→H:IfEnd15.高程超高计算横坡子程序（I）程序名：IProg “I1”：If S=0:Then M→I: Return:Else If W=1:Then ((N-M)×(Z-C)÷S+M→I:Return:Else (((3((Z-C)÷S)2-2((Z-C)÷S)∧(3))×(N-M))+M→I:IfEnd:16．路基宽度子程序程序名： C1→S: Prog “G1”:Z-C→E:(B-A)E÷S+A→L17：极坐放样计算程序(计算放样点至置仪点方位角及距离)程序名：JSZ[5]→K：Z[6]→L:Pol(X-K, Y-L:IF J<0:Then J+360→J:IFEnd:Int(J)+0.01Int(60Frac(J))+0.006Frac(60Frac(J→J: Fix 4:”FWJ=”: Locate 6,4,J：Fix 3:”S=”:Locate 6,4,I◢18．导线点子程序（DX）程序名：DXZ[5]→K:Z[6]→L:“XZ”?K:”YZ”?L:K→Z[5]:L→Z[6]19．线路选择子程序(线路选择输0时。

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

卡西欧fx-5800p计算器内置公式及公式自定义在隧道测量中的应用

CASIOfx-5800p计算器内置公式及自定义公式在隧道测量中的应用工程测量过程中，计算器是数据处理的快捷工具。

在测量中，数据计算有很多都是重复计算，不能一次性通过计算得出结果，而是一个累计的过程。

因此，测量中我们就必须想办法使计算快速，而且又要准确的输出。

于是，编程的思想就融入了计算器中。

编程计算器是一种能够输入编写好的计算程序，可根据需要随时调用进行重复计算的一种高科技电子产品。

目前工程的施工测量中普遍使用的都是CASIO电子计算器，其计算器种类及型号很多：如今用于测量中的主要有fx-4850p、fx-5800p等等。

CASIOfx-5800p计算器于2006年10月面市，是CASIO编程计算器中的一款经典机型，主要功能与CASIOfx-4850p相比改进之处有：1.无需备用电池保存机器内的数据，即使取出电池也不会丢失内存中的程序与数据。

2.关机现场保护功能。

在任何操作界面下，包括正在执行程序，用户都可以按【SHIFT】【OFF】键关机，机器保存关机前现场的屏幕显示与运行状态，下次按【AC】（ON）时，机器自动恢复最近一次关机的屏幕显示与运行状态。

3.内置128个常用公式和40个科学常数。

4.可采用自然书写形式的函数输入和输出显示。

5.增加矩阵计算功能，最多可定义MatA～MatF六个矩阵，矩阵的阶数最大为10行×10列，可以对矩阵进行加、减、乘、行列式、转置与求逆计算。

6.可以计算二元～五元线性方程组及一元二次与一元三次方程的数值解。

7.程序使用类BASIC程序结构命令，实现条件语句，循环语句等命令的结构化，提供比以前功能更加强大的程序控制命令。

8.增加可数据串列，使统计计算中的样本数据便于编辑和修改。

9.数据存储器保护功能。

10.数据通信功能。

可使用通信线在两台fx-5800p计算器之间进行数据通讯，便于用户相互交换程序及其它数据。

CASIOfx-5800p与fx-4850p相比较，功能及应用更加适应工程中的测量，因此，从长远的角度上讲，CASIOfx-5800p的使用将越来越广泛。

工程测量实用程序--5800P-2013-3-31

YL自编“XØ”?C:“YØ”?D:Lbi 1:“X2”?X:“Y2”?Y:If(X-C)=Ø:Then Goto 2:E ls e Goto 3:IfEndLbi 2: If(Y-D)> Ø:Then“Q=”: 9Ø°→W◢Else“Q=”:27Ø°→W◢IfEnd:Goto 6Lbi 3: If (Y-D)= Ø: Then Goto4: E lse Goto 5: IfEndLbi 4: If(X-C)> Ø:Then“Q=”: Ø°→W◢Else“Q=”:18Ø°→W◢IfEnd: Goto 6Lbi 5: tan-1（（Y-D）÷（X-C））→W：If（X-C）<Ø :Then W+18Ø→W: I fE nd: If (X-C)>Ø and (Y-D)<Ø :Then W+360→W: IfEnd“Q=”: W°→W◢Lbi 6:“L=”:√¯((X-C)2+(Y-D)2)→T◢Goto 1说明:(已知两点坐标,反算方位角及两点间距离)先按FILE键,光标选择QL,按EXE运行。

输入：XØ？测站点（或起算点）X轴坐标，按EXEYØ？测站点（或起算点）Y轴坐标，按EXEX2？后视点（或方向点）X轴坐标，按EXEY2？后视点（或方向点）Y轴坐标，按EXE显示：Q 方位角，按EXEL 两点间距离再按EXE进行循环运算，重复输入X2？Y2？不进行循环运算按AC退出。

“XØ”?C: “YØ”?D: Lbi 1:“Q”?W:“L”?M：“X=”:C+Mcos(W)→X◢“Y=”:D+Msin(W)→Y◢Goto 1说明:(已知一点坐标，方位角、距离，求另一点坐标)先按FILE键,光标选择XY,按EXE运行。

CASIO Fx-5800P计算器测量计算程序

CASIO Fx-5800P计算器测量计算程序一、井下斜距改成平距和高差的计算程序“SJ=”？S：“CZJ=”？B：“YQG=”？C：“QSG=”？DS×cos(B)→LS×sin(B)-C+D→V“L=”：L◢“GC=”：V◢CLS说明：SJ→斜距；CZJ→垂直角；YQG→仪器高；QSG→前视高；L→平距；GC→高差。

二、测量基本控制导线坐标计算程序“L=”？L：“GC=”？V：“SBJ=”？AW+A→WIF W＜180：Then W+180→W: Else W-180→W: IFEndIF W＜360：Then W→W: Else W-360→W: IFEndIF W＜360：Then W→W: Else W-360→W: IFEndX+L×cos(W)→X:Y+ L×sin(W)→Y:Z+V→Z“FWJ=”:W DMS◢“X=”：X◢“Y=”：Y◢“Z=”：Z◢CLS说明：(1)、把已知的X坐标先存入X、Y坐标存入Y、高程存入Z、方位角存入W(2)、L→平距；GC→高差；SBJ→水平角；FWJ→方位角；X→X坐标；Y→Y坐标；Z→高程。

三、井下测量导线坐标计算程序“SJ=”？S：“CZJ=”？B：“YQG=”？C：“QSG=”？D ：“SBJ=”？A S×cos(B)→LS×sin(B)-C+D→VZ+V→ZW+A→WIF W＜180：Then W+180→W:Else W-180→W:IFEndIF W＜360：Then W→W:Else W-360→W:IFEndIF W＜360：Then W→W:Else W-360→W:IFEndX+L×cos(W)→X:Y+ L×sin(W)→Y:Z+V→Z“L=”：L◢“GC=”：V◢“FWJ=”:W DMS◢“X=”：X◢“Y=”：Y◢“Z=”：Z◢CLS说明：(1)、把已知的X坐标先存入X、Y坐标存入Y、高程存入Z、方位角存入W(2)、SJ→斜距；CZJ→垂直角；YQG→仪器高；QSG→前视高；L →平距；GC→高差；SBJ→水平角；FWJ→方位角；X→X坐标；Y→Y坐标；Z→高程。

卡西欧fx-5800p计算器内置公式及公式自定义在隧道测量中的应用共6页word资料

CASIOfx-5800p计算器内置公式及自定义公式在隧道测量中的应用工程测量过程中，计算器是数据处理的快捷工具。

在测量中，数据计算有很多都是重复计算，不能一次性通过计算得出结果，而是一个累计的过程。

因此，测量中我们就必须想办法使计算快速，而且又要准确的输出。

于是，编程的思想就融入了计算器中。

编程计算器是一种能够输入编写好的计算程序，可根据需要随时调用进行重复计算的一种高科技电子产品。

目前工程的施工测量中普遍使用的都是CASIO电子计算器，其计算器种类及型号很多：如今用于测量中的主要有fx-4850p、fx-5800p等等。

2.关机现场保护功能。

3.内置128个常用公式和40个科学常数。

4.可采用自然书写形式的函数输入和输出显示。

5.增加矩阵计算功能，最多可定义MatA～MatF六个矩阵，矩阵的阶数最大为10行×10列，可以对矩阵进行加、减、乘、行列式、转置与求逆计算。

6.可以计算二元～五元线性方程组及一元二次与一元三次方程的数值解。

7.程序使用类BASIC程序结构命令，实现条件语句，循环语句等命令的结构化，提供比以前功能更加强大的程序控制命令。

8.增加可数据串列，使统计计算中的样本数据便于编辑和修改。

9.数据存储器保护功能。

10.数据通信功能。

可使用通信线在两台fx-5800p计算器之间进行数据通讯，便于用户相互交换程序及其它数据。

CASIOfx-5800p与fx-4850p相比较，功能及应用更加适应工程中的测量，因此，从长远的角度上讲，CASIOfx-5800p的使用将越来越广泛。

碎步点测量(5800p)坐标计算程序

碎步点测量--坐标计算程序一.主程序：（SBD CL ZB JS 碎步点测量坐标计算）适用于5800P型计算器Lbl 0：〝X1〞？A:〝Y1〞？B:〝X2〞？C:〝Y2〞？HLbl 1：〝J〞？E:〝D13〞？F： Pol(C-A,H-B: 〝D12=〞:I◢If J<0:Then J+360 →J:〝F12=〞: J◆DMS◢J+E→G:〝F13=〞: G◆DMS◢Rec(F,G: 〝X3=〞: A+I→X◢〝Y3=〞: B+J→Y◢Lbl 2: ?N: If N=1: Then Goto 1: Else Goto 0:IfEnd二.屏幕提示：X1? 输入测站点的X1坐标；Y1? 输入测站点的Y1坐标；X2? 输入后视点的X2坐标；Y2? 输入后视点的Y2坐标；J？输入测站点至后视点为边至待求点的夹角；(顺时针旋转夹角输入正值；逆时针旋转夹角输入负值）D13? 输入测站点至待求点的距离；D12= 显示测站点至后视点的平距D；F12= 显示测站点至后视点的方位角F12;F13= 显示测站点至待求点的方位角F13;X3= 输入测站点的X3坐标；Y3= 输入测站点的Y3坐标；N? 输入条件常数(输入〝1〞，测站点和后视点不变，待求点变化，重新输入新待求点夹角和距离；输入除〝1〞以外的任意数即可返回，重新输入测站点坐标和后视点坐标等计算要素)。

三.程序算例:2.算例计算结果及操作步骤演示：特别声明：由于CASO系列程序在现场使用时，人为应用错误率较大，所以请广大使用者务必在完全理解和熟悉的情况下慎重使用，建议用多种方法检验其计算结果正确后方可使用，如若因错误使用本程序出现工程质量安全事故，本人概不负责，特此声明！。

卡西欧5800P完整程序(两套)

<ROAD-1>(逻辑运行运算公式主程序): Deg:Fix 3:20→DimZ（回车符号）“ZS[1]，FS[2]”？J（回车符号）If J=1：Then Goto 0：Else Goto 4：IfEnd（回车符号）Lbl 0（回车符号）“ROAD？[1-5]”?E(回车符号)“XS”？U：“YS”？V（回车符号）Lbl 1（回车符号）“KP”？P（回车符号）Prog “ROAD-DATA”（回车符号）M+O→N（回车符号）Prog “ROAD-SUB1”（回车符号）Prog “ROAD-SUB2”（回车符号）“XP=”：F（黑色三角）“YP=”：G（黑色三角）“BP=”：Z（黑色三角）DMS（黑色三角）If U=0：Then Goto 3:Else Pol(F-U，G-V)：IfEnd（回车符号）Lbl 2（回车符号）If J〈0：Then J+360→J：IfEnd（回车符号）“A1=”：J（黑色三角）DMS（黑色三角）“D1=”：I（黑色三角）Lbl 3（回车符号）“DANGLE”？H：If H=0：Then Goto 1：IfEnd：？D（回车符号）“XB=”：F+Dcos（Z+H）→Z[11]（黑色三角）“YB=”：G+Dsin(Z+H)→Z[12]（黑色三角）If U=0：Then Goto 3：Else Pol（Z[11]-U，Z[12]-V）：IfEnd（回车符号）Goto 2（回车符号）Lbl 4（回车符号）“ROAD？[1-5]”?E(回车符号)“XS”？U：“YS”？V（回车符号）Lbl 5（回车符号）“XB”？U：“YB”？V：“KP”？P（回车符号）Lbl 6（回车符号）Prog “ROAD-DATA”（回车符号）M+O→N（回车符号）Prog “ROAD-SUB1”（回车符号）Prog “ROAD-SUB2”（回车符号）Z-90→A（回车符号）（V-G）cos（A）-（U-F）sin（A）→H（回车符号）If Abs（H）＞0.0001：Then P+H→P：Goto 5：IfEnd（回车符号）“K=”：P（黑色三角）“D=”：（G-V）÷sin（A）→D（黑色三角）Goto 4（回车符号）ROAD-DATAIf E=1：Then Prog“ROAD-DATA1”：IfEnd（回车符号）If E=2：Then Prog“ROAD-DATA2”：IfEnd（回车符号）If E=3：Then Prog“ROAD-DATA3”：IfEnd（回车符号）If E=4：Then Prog“ROAD-DATA4”：IfEnd（回车符号）If E=5：Then Prog“ROAD-DATA5”：IfEnd（回车符号）注：ROAD-DATA编几段对应的计算数据库就编几段，比如此例有五段，那么就编五段“ROAD—DATA1、2、3......”。

5800平面坐标计算程序(万能公式)

卡西欧5800P型计算器道路平面坐标计算程序文件名：PMCX(E-D)÷Abs(G-F)→P: Abs(L-F)→Q: P×Q→I: C+（I+2D）×Q×90÷∏→J: “FV＝”:J►DMS◢↲0→U: 0→V: 0→W: 0→Z: 6→T: T→S ↲LbI０↲U+Cos(C+(I×(2S-1)÷(2T)+2D)×（Q÷2）×(2S-1)÷（2T）×180÷∏)→U ↲V+Sin(C+(I×(2S-1)÷(2T)+2D)×（Q÷2）×(2S-1)÷（2T）×180÷∏)→V ↲DszS↲Goto０↲T-1→S↲LbI1↲W+Cos(C+(IS÷T+2D)×(Q÷2)×(S÷T)×180÷∏)→W ↲Z+Sin(C+(IS÷T+2D)×(Q÷2)×(S÷T)×180÷∏)→Z↲DszS↲Goto1↲A+Q÷(6T)×(Cos(C)+4U+2W+Cos(J))→X：“XO=”:X◢B+Q÷(6T) ×(Sin(C)+4V+2Z+Sin(J))→Y：“YO=”:Y◢X+OCos(J+H+180)→U:“XL=”:U◢Y+OSin(J+H+180)→V:“YL=”:V◢X+RCos(J+H)→W:“XR”:W◢Y+RSin(J+H)→Z:“YR”:Z◢符号含意：O—路线左侧横断水平距离；H—路线右角：R—路线右侧横断水平距离；E—线元终点曲率1/R；左偏取“-”：右偏取“+”D—线元起点曲率1/R；左偏取“-”：右偏取“+”遇ZH：HZ：GQ点时输入０G—线元终点里程；F—线元起点里程；L—线元任意点里程；C—线元起点切线方位角；A—线元起点X坐标；B—线元起点Y坐标；说明：1.本程序支持直线；圆曲线；缓和曲线；回旋曲线等任意线型。

卡西欧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-5800p 部分程序

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=″?R Lbl 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：待求点里程。

5800程序功

5800程序功能目的：输入水准仪现场前视读数快速计算出该点的实测高程！程序名: HCLbI A:Cls:“HS”?X:“BM-H”?Y:X+Y→S:Cls:“SXG=”:Locate 6,1,S◢LbI B:Cls: “QS”?D:If D≥0 :Then Goto D:Else Goto C:IfEn d↙LbI C: M→Y:Abs（D）→X: Goto A↙LbI D:S-D→M: Cls:“QS=”: “HC=”Locate 6,1,D: Locate 6,2,M◢Goto B↙符号说明：HS? 输入水准点上之后视读数BM-H?输入水准点之设计高程SXG= 显示视线高程QS?输入该点的前视读数（注：当有转点时则转点的前视读数输入后显示HC为转点的高程，紧接着当再次提示QS?时将转点所测的后视读数以负值输入连续两次EXE即可显示转点后的视线高程，即可进行转点后的正常计算！）QS=显示所输入的该点的前视读数HC=显示计算所得的该点的实测高程5800本程序由一个主程序JD和三个子程序（JDA、JDB、JDC）构成，运行时只需运行主程序即可！本程序适用于单交点对称型、不对称型、无缓和曲线单圆曲线型一个交点范围内（含交点前后有直线段时）的曲线要素核对和坐标计算，手工输入要素，对设计图纸的“直线、曲线转角表”中交点数据进行复核验证，并为线元法程序提供起点坐标起点切线方位角等数据！当然本程序也可单独逐交点输入进行放样计算用！鉴于5800计算器的空间和以上所述本程序的主要目的，故此程序不修改为数据库版本！需要的自行修改结合XY框架自己修改为数据库反算程序等！主程序名：JD24→Dimz↙Cls :＂XC＂?U :＂YC＂?V :＂K（JD）＂?K :＂X（JD）＂?X :＂Y（JD）＂?Y :＂LS1＂?B :＂LS2＂?C : ?R :＂（ZH）FWJ°＂?M : ＂α（Z-,Y+）°＂?O : M+O→N : Prog ＂JDA＂↙Cls :＂T1=＂:＂T2=＂:＂L=＂:＂LY=＂: Locate 4,1,S : Locate 4,2,T : Locate 4,3,L : Locate 4,4,Q◢Cls :＂E=＂:＂K（ZH）=＂: Locate 7,1,E : Locate 7,2,Z[1]◢Cls : ＂K（HY）=＂:＂K（QZ）=＂:＂K（YH）=＂:＂K（HZ）=＂: Locate 7,1, Z[2] : Locate 7,2, Z[3] : Locate 7,3, Z[4] : Locate 7,4, Z[5]◢LbI 0 : ＂K×+×××＂?P : ＂Z＂?D : If D≠0:Then ＂RJ＂?H : IfEnd : Prog ＂JDB＂↙If D＜0:Then Cls : ＂X(L)=＂:＂Y(L)=＂: Locate 6,1,F : Locate 6,2,G◢Pol(F-U,G-V : Cls : ＂S(L)=＂: Locate 6,1,I : ＂F(L)=＂:360Frac((J+360)÷360▼DMS◢Goto 0 : IfEnd↙If D=0:Then Cls : ＂X(Z)=＂:＂Y(Z)=＂: Locate 6,1,F : Locate 6,2,G : ＂QXFWJ(Z)=＂: Z▼DMS◢Pol(F-U,G-V : Cls : ＂S(Z)=＂: Locate 6,1,I : ＂F(Z)=＂:360Frac((J+360)÷360▼DMS◢Goto 0 : IfEnd↙If D＞0:Then Cls : ＂X(R)=＂:＂Y(R)=＂: Locate 6,1,F : Locate 6,2,G◢Pol(F-U,G-V : Cls : ＂S(R)=＂: Locate 6,1,I : ＂F(R)=＂:360Frac((J+360)÷360▼DMS◢Goto 0 : IfEnd↙子程序1名： JDAIf O＜0 :Then-1→W : Else 1→W : IfEnd : WO→A ↙B2÷（24×R）-B^(4)÷（2688×R ^(3)）→Z[6] ↙C2÷(24×R)-C^(4)÷)2688×R ^(3)) →Z[7] ↙B÷2-B^(3)÷（240×R2）→Z[8] ↙C÷2-C^(3)÷(240×R2) →Z[9] ↙Z[8]+(R+Z[6])tan(A÷2)＋(Z[7]－Z[6])÷sin(A)→S↙Z[9]+ (R+Z[7])tan(A÷2)＋(Z[6]－Z[7])÷sin(A)→T↙RAπ÷180+(B+C) ÷2→L↙RAπ÷180-(B+C) ÷2→Q↙(R+(Z[6]+Z[7])÷2)÷cos(A÷2)-R→E↙K-S→Z[1] ↙↙Z[1]+B→Z[2] ↙↙Z[2]+Q÷2→Z[3]↙Z[1]+L-C→Z[4]↙Z[4]+C→Z[5]↙子程序2名： JDBX-Scos(M)→Z[19]:Y-Ssin(M)→Z[20]↙X+Tcos(N)→Z[21]:Y+Tsin(N)→Z[22]↙If P＞Z[1]:Then Goto 1 :IfEnd↙Z[1]-P→L↙X-(S+L)cos(M)+Dcos(Z+H)→F↙Y-(S+L)sin(M)+Dsin(Z+H)→G↙M→Z : Goto 5↙LbI 1 : If P＞Z[2]:Then Goto 2 :IfEnd↙P-Z[1]→L:L→Z[12]:B→Z[13]:Prog＂JDC＂↙Z[19]+Z[14]cos(M)-WZ[15]sin(M)+Dcos(Z+H)→F↙Z[20]+Z[14]sin(M)+WZ[15]cos(M)+Dsin(Z+H)→G↙M+90WL2÷(BRπ)→Z↙Goto 5↙LbI 2 : If P＞Z[4]:Then Goto 3 :IfEnd↙P-Z[1]→L:90(2L-B)÷R÷π→Z[11]↙Rsin(Z[11])+Z[8]→Z[14]:R(1-cos(Z[11]))+Z[6]→Z[15]↙Z[19]+Z[14]cos(M)-WZ[15]sin(M)+Dcos(Z+H)→F↙Z[20]+Z[14]sin(M)+WZ[15]cos(M)+Dsin(Z+H)→G↙M+WZ[11]→Z↙Goto 5↙LbI 3 : If P＞Z[5]:Then Goto 4 :IfEnd↙Z[5]-P→L:L→Z[12]:C→Z[13]:Prog＂JDC＂↙Z[21]-Z[14]cos(N)-WZ[15]sin(N)+Dcos(Z+H)→F↙Z[22]-Z[14]sin(N)+WZ[15]cos(N)+Dsin(Z+H)→G↙N-90WL2÷(CRπ)→Z↙Goto 5↙LbI 4 : P-Z[5]→L↙X+(T+L)cos(N)+Dcos(Z+H)→F↙Y+(T+L)sin(N)+Dsin(Z+H)→G↙N→Z↙Goto 5↙LbI 5 : 360Frac((Z+360)÷360→Z↙子程序3名： JDCIf Z[12]=0 :Then 0→Z[14]: 0→Z[15]:Else↙Z[12]- Z[12]^(5)÷40÷(RZ[13])2+ Z[12]^(9)÷3456÷(RZ[13])^(4) →Z[14]↙Z[12]^(3)÷6÷(RZ[13])-Z[12]^(7)÷336÷(RZ[13])^(3)+Z[12]^(11) ÷42240÷(RZ[13])^(5)→Z[15] ↙IfEnd↙程序说明：已知数据输入：XC ? 测站X坐标YC ? 测站Y坐标K（JD）?交点桩号X（JD）?交点X坐标Y（JD）?交点Y坐标LS1?第一缓和曲线长度LS2?第二缓和曲线长度R? 圆曲线半径（ZH）FWJ°?交点前（即前交点至本交点也即ZH点）的正切线方位角α（Z-,Y+）?本交点处线路转角（左转为负，右转为正，度分秒输入）K×+×××? 待求桩号Z ?待求桩号距中距离（左负值，右正值，中为0）RJ ?斜交右角（线路切线前进方向与边桩右侧夹角）计算结果显示：T1=第一切线长T2=第二切线长L=曲线总长LY=圆曲线长E=曲线外距K(ZH)=直缓点桩号K(HY)=缓圆点桩号K(QZ)=曲中点桩号K(YH)=圆缓点桩号K(HZ)=缓直点桩号X= Y=待求点的坐标（其中：L-左 Z-中 R-右）QXFWJ(Z)=待求点的中桩切线方位角（当求中桩坐标时显示）S= F=测站至待求点的水平距离、方位角（其中L-左 Z-中 R-右）一、CASIO fx-5800P输入法（2010年3月4日）2006年10月，卡西欧公司在停止fx-4800P/ fx-4850P编程计算器CPU 芯片生产的同时，推出了其升级产品fx-5800P。

我的5800p测量程序及公式

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

fx-5800p匝道(线元法)测量程序

FX5800P计算器 隧道测量程序

5800计算器测量计算程序-3页精选文档

CASIO5800P 程序

5800P计算器程序

CASIOfx-5800p程序编写操作步骤

卡西欧fx-5800p计算器内置公式及公式自定义在隧道测量中的应用

工程测量实用程序--5800P-2013-3-31

CASIO Fx-5800P计算器测量计算程序

卡西欧fx-5800p计算器内置公式及公式自定义在隧道测量中的应用共6页word资料

碎步点测量(5800p)坐标计算程序

卡西欧5800P完整程序(两套)

5800平面坐标计算程序(万能公式)

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

fx-5800p 部分程序

5800程序功

FX5800P计算器隧道测量程序