CASIO fx-5800P放样程序(长链反算)

卡西欧fx-5800P计算器参考线程序傻瓜教程文/白云面，按2：RUN//运行，选择相应程序名即可。

）命名一个叫CKX的名字，然后按EXE键，选1：COMP。

如下图：然后输入以下代码：Lb1 0:C1s:“K”？K：“A”？A：“B”？B：“C”？C：“D”？ D(回车）Po1（C-A,D-B）⊿IfJ≥0：ThenJ→T:E1seJ+360→T:IfEnd（回车）Lb1 1：Fix4：“X”?X(回车）X=0⇒Goto0：“Y”？Y:Po1（X-A,Y-B）→S:IfJ≥0：ThenJ→Q:E1seJ+360→Q:IfEnd：“L=”:K+cos（Q-T）×S⊿“O=”:sin(Q-T)×S⊿Goto1(回车）解释： K为起点桩号（A,B）(C,D)分别为直线L上的两个点，（X,Y）为P点坐再如，要输入Lb1。

先按FUNCTION键（函数），再按3：PROG键。

在弹出来的菜单中选择7：Lb1。

估计最易输错的，莫过于倒数第四排的“⇒”，这里重点介绍一下：按FUNCTION键（函数），再按3：PROG键。

按上下键，翻页至第3页，选3: ⇒。

在了点里程，可以输入0。

2第二步输入点A的X坐标，此时的X坐标用，用字母A代替，即A→X1计算机会默认给用户显示一个，如果按回车EXE，就代表使用默认值。

）这里要特别注意，当弹出默认值时，没有任何提示（或者，机算机是这样提示的：如上图左上角所示的“K？”。

它代表计算机问用户：K是不是等于0？若不是，请输入新值吧！）让用户输入数值。

这时候不用管，直接输入数值即可。

输入数值的具体操作，请按上图红色字体提示操作。

同理，第二步输入B→Y的坐标（同样会默认显示一个），回车1的坐标，回车第三步输入C→X2的坐标，回车第四步输入D→Y2如下图所示：显示AB两个点之间的距离r，AB直线的方位角θ。

【注意这个θ，一定要让它显示为角度，不能是弧度！否则在对中杆立在直线的第三、四象限（假设以A点为坐标原点）就会出现问题！】第五步输入全站仪现场测的点P的X坐标，回车。

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：方位角２、坐标反算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：方位角３、圆曲线〝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：偏移量４、竖曲线〝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计算器交点法正反算程序1、主程序程序名：1XY-KMLbI 0：7→DimZ：Norm 2:1→A：＂A:X,Y=1，KM,D=2＂?A:A=1=>Goto 1:A=2=>Goto 2:LbI 1:LbI A:Prog＂QX＂:90→B:＂PJ＂?B:B→Z[1]：LbI B:＂KM＂?Z:Z= -1=>Goto 0:Z=-2=>Goto A: Prog＂X1＂:?D: Prog "Z":I+D×COS(Z[2]+Z[1]→X: J+D×Sin(Z[2]+Z[1]→Y: Ｆix 3:＂Ｘ=＂：Locate 6,4,Ｘ：＂Ｙ＝＂：Loca te 6,4,Ｙ：◢Goto B:LbI 2：Prog＂QX＂:＂KM＂?Z：LbI C: Prog＂X1＂: ＂XO＂?X:X=-1=>Goto 0:X=-2=>Goto 2: ＂Y0＂?Y:Prog ＂ZX＂: Fix 3:＂ＫＭ＝＂：Locate 6,4,Ｚ：＂Ｄ＝＂：Loca te 6,4,Ｄ◢Goto C2. 交点法正算子程序(Z)程序名：ZH2÷R÷24-H∧(4)÷2688÷R∧(3)→A:H÷2-H∧(3)÷240÷R2→B:（（H2-N2）÷24÷R÷S in(Abs(P))-((H∧(4)-N∧(4))÷2688÷R∧(3))÷Sin(Abs(P→E:(R+A)tan(Abs(P)÷2)+B -E→T:P÷Abs(P→W:0→M:H→C: (R+N2÷R÷24-N∧(4)÷2688÷R∧(3))tan(Abs(P)÷2)+ N÷2-N∧(3)÷240÷R2+E→Z[6]: O-T+ΠR×Abs(P)÷180+H÷2-N÷2→Z[7]:If Z≤O-T:T hen 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≤Z[7]: Then 180(Z-O+T-0.5H)÷R÷Π→S : A+R (1-Cos(S))→B:H÷2-H∧(3) ÷240÷R2+Rsin(S)→A:R→M:G+WS→Z[2]: A-T→A:G→E :G oto 2: IfEnd:If Z≤Z[7]+N:Then Z[7]+N-Z→S:Z[6]→T :N→H:Prog “HX”:G+P→E:E-WK→Z[2]:T-A→A:C→H:Goto 2:IfEnd:Z-Z[7]-N+Z[6]→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→J3. 交点法缓和段子程序(HX)程序名：HXS-S∧(5)÷40÷R2÷H2+S∧(9)÷3456÷R∧(4) ÷H∧(4→A:S∧(3) ÷6÷R÷H-S∧(7)÷336÷R∧(3)÷H∧(3)+S∧(11)÷42240÷R∧(5) ÷H∧(5→B:90S2÷Π÷R÷H→K:RH÷S →M4. 交点法反算子程序(ZX)程序名：ZX0→D:Do:Z+D→Z:Prog“Z”:Pol(X-I,Y-J+.000000001: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)>0.001:Z+D→Z:S→D 5．线路选择子程序(线路选择输0时。

5800计算器全线坐标计算放样程序（修改版）“XLZBJSCX” ◢ （第一个程序）Lb1 0 ↙Cls : Fix 4 : 30→Dimz ↙“XHS="?G ( 后视点 X) :"YHS="?L ( 后视点 Y) :"XZJ="?M ( 置镜点 X) :"YZJ="?N ( 置镜点 Y) :Pol(G-M,L-N):"DH=":I ( 后视距) ◢ J<0=>J+360→J:"FH=":J►DMS ◢ ( 后视方位角 ) Lbl 1 ↙ ( If （如果的意思） And （和字的意思） Then （然后的意思） )“K=”?K ◢ （计算里程） ( 下面有色的是数据库 )If （如果） K< 51760.052 本曲线缓直点桩号 And （和）K≥ 51048.785 上一个曲线缓直点桩号： Then （然后）本曲线缓直点桩号51760.052 →Z[1] : 上一个曲线缓直点桩号51048.785 →Z[2] ： 1 -1 →O（注：左偏曲线输入 - 1→O, 右偏曲线输入1→O） : 偏角12 ’ 23 ’ 19.5 ’ →A ：半径3289.486 →R : 第一缓和曲线长度0 →Z[6] : 第二缓和曲线长度0 →Z[7] : 交点 X 坐标→B : 交点 Y 坐标→C : 小里程向交点方位角→E : 交点向大里程方位角→F : Goto 2 : IfEnd ↙ ( 重兰字是输入的数字 ) ………… （曲线段分段输入）补充直线段输入如下If （如果） K< 本段直线终点里程 And （和）K≥ 本段直线起点里程 :Then （然后）1→O: 本段直线终点里程→Z[3]: 终点坐标X→Z[16]: 终点坐标Y→Z[17]: 方位角→E:Goto 4:IfEnd ↙Lb1 2 ↙ （曲线要素计算）Z[6] ÷ 2- Z[6]^ 3 ÷ (240R^2)+ Z[6]^ 5 ÷ (34560*R^4) →Z[8] ↙ （ M1 不输）Z[7 ] ÷ 2- Z[7]^ 3 ÷ (240R^2)+ Z[7]^ 5 ÷ (34560 R^4) →Z[9] ↙ （ M2 不输）Z[6]^ 2 ÷ (24R)- Z[6]^ 4 ÷ (2688R^3) →Z[10] ↙ （ P1 不输）Z[7]^ 2 ÷ (24R)- Z[7]^ 4 ÷ (2688R^3) →Z[11] ↙ （ P2 不输）(πAR ) ÷ 180+0. 5 × ( Z[6]+ Z[7])→S ↙ （曲线总长）90 × Z[6 ] ÷ ( R × π) →Z[14] ↙ （第一缓和曲线总偏角）( ×÷以后自己改 )9 0 × Z[7 ] ÷ ( R × π) →Z[15] ↙ （第二缓和曲线总偏角 , 可以省略）Z[8] ＋（ R+Z[10])TAN(A/2)-(Z[10]-Z[11] )/SIN A→Z[12] ↙ ( 切线 T1)Z[9] ＋（ R+Z[11])TAN(A/2)+(Z[10]-Z[11] )/SIN A→Z[13] ↙ ( 切线 T2)B+ Z[12]*COS (E+180)→ Z[16] ↙ （ ZH 点 X ）C+ Z[12]*SIN(E+180)→ Z[17] ↙ （ ZH 点 Y ）Z[1]-S→Z[3] ↙ (ZH 点里程 )Z[3]+ Z[6]→Z[4] ↙ (HY 点里程 )Z[1]- Z[7]→Z[5] ↙ (YH 点里程 )GOTO 3 ↙LB1 3 ↙ ( 判断里程点与曲线关系 )If K≤Z[3] And K> Z[2] : Then Goto 4 : IfEnd ↙If K≤Z[4] A nd K> Z[3] : T hen Goto 5 : IfEnd ↙If K≤Z[5] A nd K> Z[4] : T hen Goto 6 : IfEnd ↙If K≤Z[1] A nd K> Z[5] : T hen Goto 7 : IfEnd ↙LB1 4 ↙ （里程小于直缓点直线独立坐标）K- Z[3] →X : 0→Y : E→T : Prog“TYZBCX” ：Goto 1 ↙Lb1 5 ↙ （第一缓和曲线独立坐标）K- Z[3] →H ↙H-H^5/(40*R^2* Z[6]^2)+H^9/(3456*R^4* Z[6]^4) →X ↙H^3/(6*R* Z[6])-H^7/(336*R^3* Z[6]^3) →Y ↙90*H^2/( R*π* Z[6]) →T ↙IF O >0 ：Then T +E→T : Else E-T →T : T<0=>360+T→T : IfEnd ↙PRrog“TYZBCX” ：Goto 1 ↙Lb1 6 ↙ （圆曲线独立坐标）K- Z[4] →H ↙H*180/( R*π)+ Z[14]→T ↙R*SIN( T)+ Z[8]→X ↙R*(1-COS (T))+ Z[10]→Y ↙IF O >0 ：Then T +E→T : Else E-T →T : T<0=>360+T→T : IfEnd ↙Prog“TYZBCX” ：Goto 1 ↙Lb1 7 ↙ （第二缓和曲线独立坐标）Z[1] -K →H↙H-H^5/(40*R^2* Z[7]^2)+H^9/(3456*R^4* Z[7 ]^4) →U ↙H^3/(6*R* Z[7])-H^7/(336*R^3* Z[7]^3) →V ↙90*H^2/( R*π* Z[7]) →T ↙Z[13]COS (A)+ Z[12]-U*COS( A)-V*SIN (A)→X ↙Z[13]*SIN( A)-U*SIN( A)+V*COS (A)→Y ↙IF O >0 ： Then F-T→T : T<0=>360+T→T : Else F+T →T : IfEnd ↙Prog“TYZBCX” ：Goto 1 ↙子程序：“TYZBCX” ↙ （统一坐标计算）（第 2 个程序）IF O<0 : Then -Y→Y : IfEnd ↙“QXJ=” :T ◢ （计算里程点切线方位角，可以不显示）Z[16]+X*COS (E)-Y*SIN( E)→Z[18] ↙Z[17]+X*SIN (E ） +Y*COS (E ）→Z[19] ↙“XI=” : Z[18] ◢ （ XI 中线 X ）“ YI =” : Z[19] ◢ （ YI 中线 Y ）Pol(Z[18]-M,Z[19]-N):"DI=":I ◢ （中桩放样距）J<0=>J+360→J:"FI=": J ►DMS ◢ （中桩放样方位角）“ PJ =”?P ◢ ( 输入边桩与线路夹角 PJ ，左偏– 90 右 +90 )“ PD =”?D ◢ （输入边桩距 PD ）Z[18]+D*COS(T+P) →Z[20] ↙Z[19]+D*SIN(T+P) →Z[21] ↙“XP=”: Z[20] ◢ （ XP 边桩 X ）“YP=”: Z[21] ◢ （ YP 边桩 Y ）Pol(Z[20]-M,Z[21]-N):"DP=":I ◢ （边桩放样距）J<0=>J+360→J:"FP=":J ►DMS ◢ （边桩放样方位角）Return ↙ （以上都要输进计算器）注解不输K 里程 XI 中线 X YI 中线 Y PD 输入边桩距 XP 边桩 X 坐标YP 边桩 Y 坐标 I 边桩放样距 PJ 输入边桩与线路夹角，左偏– 90 右 +90 ) I 中桩放样距 T 计算里程点切线方位角，可以不显示卡西欧FX5800全线贯通万能正、反算程序FX5800计算器的积分程序（正反算、全线贯通、新线路）终极版ZHUCHENGXU 主程序"1.ZS,2.FS" ?→Q输入1正算，输入2反算“NEW=0,OLD≠0”?ZIf Z=0:Then “X0=”?A:“Y0=”?B:“C0=”?C:“1/R0=”?D:“1/RI=”?E:“SP=”?F:“EP =”?G:Ifend:Q=2=>Goto 2Lbl 1 :“KM=,<0Stop”?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)→VQ=2=>Goto 4：Cls：Fix 3"Xn=":Locate 4，1，U："Yn=": Locate 5，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→JWhile abs（Icos（J-P））≤0.001:P-J>180=> J+360→J： P-J<-180=> P+360→P:IF P-J>0:then -I→L:else I→L ifendGoto 3: Whileend：H+Icos（J-P）→H:Goto ZLbl 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、正算子程序为积分公式编写而成；反算子程序为角度趋近的方法编写，计算速度有点慢。

道路直线段中边桩坐标放样计算CASIO fx-5800P程序一、前言应网友（西北狼232471254）的要求，以及忻阜高速测量工程师（狼行天下吃肉785731843）的实际需求，编写本道路直线段中边桩坐标放样计算程序。

.主要功能有：1．输入起点坐标、桩号及直线方位角即可计算道路直线段的中边桩坐标；2．若输入测站点坐标，可计算输出中边桩的放样数据拨角及距离。

程序的特点：使用简单。

二、示例项目基本资料（忻阜高速测量工程师（狼行天下吃肉785731843）提供）某一直线段道路，中间有断链，具体参数如下：起点里程：K2+793.878坐标：X=4265666.762，Y=388264.136终点里程：K3+441.16坐标：X=4265542.507，Y=388913.680直线段的方位角：100-49-46.82断链长：K2+824.04=K2+810坐标：X=4265661.095，Y=388293.762本段逐桩坐标表如下：.三、数学模型.四、程序代码.五、程序变量清单.五、计算流程示例需要对设计文件中的逐桩坐标进行验算，将断链前后两段路线分别进行计算。

1．计算断链前路段的中桩坐标使用道路直线段中边桩坐标放样计算程序LINE的操作流程见下表。

. 2．计算断链后路段的中桩坐标使用道路直线段中边桩坐标放样计算程序LINE的操作流程见下表。

.5800计算程序（正反结合）2选1ZFS结合Lbl 0: ”1→ZS,2→FS=”:?QQ=1: =＞Goto1 ：Q=2: =＞Goto3Lbl 1: ”XA”?A: ”YA”?B:Lbl 2: ”JULI”?C: ”FWJ”？D”XB=”：cos(D)*C+A→X ◢”YB=”：sin(D)*C+B→Y◢Goto0Lbl 3:”XA”？A：”YA”？B：”XB”？C：”YB”？DPol (C-A，D-B)：ClsIf J∠0：Then J+360→F：Else J→F：IfEnd”Ju Li =”：I◢”FWJ =”：F◆DMS◢Goto0第一步输入1 是坐标正么，第二是反算，如果你只想要反算，就只输LBi3就可以，后面改一下goto3就行。

卡西欧5800P计算器曲线任意⾥程中边桩坐标正反算卡西欧5800P计算器曲线任意⾥程中边桩坐标正反算⼀、程序功能本程序由⼀个主程序(ZHUCHENXU)和⼏个⼦程序——正算⼦程序(SUB1)、反算⼦程序(SUB2)、数据库(SUB3)、算⽅位⾓程序(FA)、使⽤⽅位⾓算坐标(NE)、边坡放样程序(BIANPO)、隧道圆⼼放样程序（SDYX）构成，可以根据直线、圆曲线、缓和曲线（完整或⾮完整型）的线元要素（起点坐标、起点⾥程、起点切线⽅位⾓、线元长度、起点曲率半径、⽌点曲率半径）及⾥程边距或坐标，对该曲线段范围内任意⾥程中边桩坐标进⾏正反算。

⼆、源程序增加变量16→DimZ1.主程序(ZHUCHENXU)"1.SZ → XY，2.XY → SZ，3.SDYX，4. BIANPO "？N：Lbl 1：”ZHUANGHAO=”?S：Prog "SUB3"：N≥2=>Goto 2：Abs(S-O)→W：”BIANZHU=”?→Z:Prog "SUB1"："XS=”:X→X ◢"YS=”:Y→Y◢"FS=”:(F-90) →F:F►DMS◢Prog "FA"：Goto 1:Lbl 2：”CX=”?X:X→I：”CY=”?Y: Y→J：”DMG=”?→Z[7]：Prog "SUB2"："S=":(O+W) →S◢"Z="Z→Z◢If N=3:ThenProg”SDYX”:IfEnd ：If N=4:Then Prog”BIANPO”:IfEnd:Goto 22. 正算⼦程序(SUB1)0.1739274226 →Z[1]：0.3260725774→B：0.0694318442→K：0.3300094782→L：(1-L) →F：(1-K)→M：U+W(Z[1]cos(G+QEK W(C+KWD))+Bcos(G+QELW(C+LWD))+Bcos(G+QEFW (C+FWD))+Z[1]cos(G+QEMW(C+MWD)))→X：V+W(Z[1]sin(G+QEKW(C+KWD))+Bsin(G+QELW(C+LWD))+Bsin(G+QEFW(C+FWD))+Z[1]sin(G+QEMW(C+MWD))) →Y：G+QEW(C+WD)+90→F：X+ZcosF→X：Y+ZsinF→Y3. 反算⼦程序(SUB2)G-90 →Z[2]：Abs((Y-V)cosZ[2]-(X-U)sinZ[2]) →W：0→Z：Lbl 0：Prog "SUB1"：Z[2]+QEW(C+WD) →L：(J-Y)cosL-(I-X)sinL→Z：If Abs(Z)<1E-6:Then Goto1：Else W+Z→W：Goto 0: IfEndLbl 1：0→Z：Prog "SUB1"：(J-Y)÷sinF→Z4. 数据库(SUB3)If S<226100:Then Cls:Stop: IfEndIf S<226255.833:Then 226100→O：99037.9736→U：4282.3590→V：201.3266304→G：1045→P：1045→R：253.543→H：0→Q: Goto 1:IfEnd…………If S>236005.651:Then Cls:Stop: IfEndLbl 1: 1÷P→C：(P-R)÷(2HPR) →D：180÷π→E：5. 算⽅位⾓程序(FA)LbI0：“XC=”? A : “YC=”? T :X：Y0→J：POI（X-A，Y-T）→I：“BC=”：I◢If J＜0 Then 360+J→J：ElseJ→J :IfEnd“FW=”：J►DMS◢ Goto06. 使⽤⽅位⾓算坐标(NE)LbI0：“X=”? X: “Y=”? Y: “L=”? L:“F0”?F：L×Cos（F）+X→N: “N=”N◢L×Sin（F）+Y→E: “E=”E◢Goto07. 边坡放样程序(BIANPO)“QPDJL=”? → Z[3]: “QPDGD=”? → Z[4]: “PG=” ? → Z[5]：2→Z[6]：“P1=” ? → Z[8]：“P2=” ? → Z[9]：“P3=” ? → Z[10] (没有的话就删)：Z[7]-Z[4] → Z[11]：If Z[11]〈0 Then AbsZ[11] →Z[11]: “T=”：Z[11] ◢Else“W=”：Z[11] ◢IfEndZ[11]÷Z[5] →Z[12]：If Z[12]〈1 Then Z[8]×Z[11] →Z[13]：Else Z[8]×Z[5]+Z[9]×Z[5]×（Z[12]-1）→Z[13]：IfEnd:AbsZ-（Z[13]+Z[6]×Int Z[12]+Z[3]）→Z[14]:“BP+C-J=”: Z[14] ◢说明：Z[3]= QPDJL ………………起坡点离中桩距离Z[4]=“QPDGD” ……………起坡点设计标⾼Z[5]=“PG” ………………坡⾼Z[6]=“PTK” ……………… 平台宽度Z[7]=“DMG” ………………实测地⾯⾼度Z[8]=“P1” ………………⼀级边坡坡度Z[9]=“P2” ………………⼆级边坡坡度Z[10]=“P3” ……………… 三级边坡坡度(没有的话就删)Z[14]=“BP+C-J=” ………………边坡超⽋挖宽度（+表超，-表⽋）8. 隧道圆⼼放样程序（SDYX）IF S<229000:THEN 243.997+0.0205×(S-226520)-(S-227318)^2/2/16000+1.503 →Z[10]:“NGC=”：Z[10] ◢ELSE 286.385-0.023×(S-230500)- (S-230593.753)^2/2/165000+1.503→Z[10]:“YLJ=”：Z[10] ◢IfEndZ[10]- Z[7] →Z[15]:“+SG,-JD”：Z[15] ◢√（Z[15]^2+(ABS(Z)-6.8)^2）→Z[16]: “R=”:Z[16] ◢三、使⽤说明1、规定(1) 以道路中线的前进⽅向（即⾥程增⼤的⽅向）区分左右；当线元往左偏时，Q=-1；当线元往右偏时，Q=1；当线元为直线时，Q=0。

算程序》班刚立：整理2013.03.16《2013卡西欧CASIO fx-5800P坐标计算程序》班刚立：整理2013.03.16《2013卡西欧CASIO fx-5800P坐标计算程序》班刚立：整理2013.03.16算程序》班刚立：整理2013.03.16简介：卡西欧CASIO fx-5800P编程计算器，语言简单易懂，使用范围广泛，是工程测量技术人员的一项重要指标。

适用：卡西欧CASIO fx-5800P计算器使用。

《2013卡西欧CASIO fx-5800P坐标计算程序》班刚立：整理2013.03.16算程序》班刚立：整理2013.03.16NO.1：CASIO fx-5800P CYT 综合曲线坐标正反算程序V3.0说明：本程序适用于计算器 CASIO fx-5800P，可计算：第一夹直线段、第一缓和曲线段、圆曲线段、第二缓和曲线段、第二夹直线段的线路中、边桩坐标及切线方位角和坐标正反算、竖曲线高程。

下载：点击下载NO.2：CASIO fx-5800P ZXZFS 直线正反算坐标计算程序说明：该程序适用于计算器 CASIO fx-5800P，针对直线正反算设计，正算可算直线中边桩坐标及其斜交、反算可推算直线距线路中心的里程偏距。

下载：点击下载NO.3：CASIO fx-5800P QXZF隧道超欠挖坐标计算程序Beta1.21说明：适用于铁路隧道三圆心，超欠挖检测和轮廓线放样。

下载：点击下载NO.4：CASIO fx-5800P线元法坐标计算程序说明：该程序适用于CASIO fx5800P计算器，坐标正算、反算一体程序，适用性广（包括：复曲线、S型曲线、匝道）等。

下载：点击下载NO.5：CASIO fx-5800P FWJ方位角和距离计算程序说明：本程序可计算两坐标点之间距离和方位角。

下载：点击下载NO.6：CASIO fx-5800P多边形面积计算程序说明：适用于地形测量计算特征点多边形面积。

卡西欧5800P曲线坐标放样程序摘要：本文介绍了卡西欧5800P编程的程序源代码，程序编制依据原理和程序使用说明，旨在完善全站仪软件功能的不足之处，在现场施工测量中，能极大提高工作效率。

关键词：不等长缓和曲线；交点法；逐次渐进试算法；卡西欧5800P编程Abstract: This paper introduces the Casio 5800P programming source code, programming compilation basis principle and procedures instructions for use, designed to improve the inadequacies of the total station software features, in the measurement of the on-site construction can greatly improve work efficiency.Key words: unequal length of transition curve; the intersection of law; try successive approximation algorithm; Casio 5800P programming中图分类号：U212.33+2.2 文献标识码：A 文章编号：2095-2104（2012）03-00一、引言在铁路、公路、市政道路的工程建设中，避不开各种曲线的测量，曲线测量大量的计算工作，是现场施工测量的必不可少的一个重要环节，数据计算的准确于否，测量成果的好坏，直接关系到工程质量、进度。

传统的测量方法，总是拿着提前计算好的曲线数据，进行外业测量。

但施工现场，各种障碍物及不可预测的客观因素的存在，往往是提前算好的数据无法在施工现场进行实地测量，需要在施工现场根据实际情况进行机动调整而重新进行曲线的数据计算，如何快捷、准确、有效的在施工现场进行大量的计算工作，能以最少的时间做出最多的作业效率？卡西欧5800P编程计算器的使用，大幅度提高了计算速度与作业效率，有效地解决了这一实际问题。

Fx-5800程序使用说明本程序为本人自编含正反算、高程、超高、加宽及水准测量一体；可进行路基填挖坡角、高程放样；还可以换算路面各种结构成进行放样。

特别是反算可以对任意点进行反算坐标、高程并计算得出坡角，在实际应用中（1人看全站仪，1人拿棱镜，1人打桩）速度达可以让拿棱镜和打桩人员跑起来工作）。

其实有了本程序，测量是一件很轻松的工作，如果你还在用传统的程序测量方法，还在为计算标高、换算坡角等天天晚上加班计算后第二天还要移桩，真应该认真看看本程序，它可以让你的测量速度快最少一至两倍以上。

一份好的程序必须结合设计施工图进行编程可以让测量达到最快速度，如果有谁想要代编程序请联系：QQ：9286330；以下为某二级公路放样程序使用说明：一、运行A—XY程序：1、 X1？………………….输入测站点X位标；2、 Y1？………………….输入测站点Y位标；3、 X2？………………….输入后视点X位标；4、 Y2？………………….输入后视点Y位标；5、 Z2？………………….（1）输入测站点Z位标；或（2）输入后视点Z位标6、A=…………………….显示全站仪对后视的方位角（此时可将全站仪转到5800上显示的方位角并固定好水平位置，按仪器锁定方位角，然后将仪器对准后视点（为了保证更好精度，对准棱镜杆与后视控制点交叉处也可），放开锁定方位角即可进行测量）7、S=…………………….显示全站仪与后视点水平距离；8、 HS？………………….输入高差：（1）、若Z2？时输入测站点Z，则输入数据0；（2）、若Z2？时输入后视点Z，则输入全站仪对后视的高差数据；9、 LJG？……………….. 输入仪器高或棱镜高：（1）、若Z2？时输入测站点Z，则输入仪器仪高；（2）、若Z2？时输入后视点Z，则输入棱镜高；注意：5、8、9三步的关联，否则实测高程计算不对10、 LM？…………………输入路线号（如有匝道等多条线路时选择数据，若只有一条路则按“EXE”进入下一步，即选默认路线）11、 K？…………………输入预测点大概桩号（如测站测K25+200~K25+800，则可输入其桩号之间的数，如K25+300即输入25300即可，此桩号仅用于当数据多时加快后面的计算器运行速度）二、运行A—FY程序（当运行A—XY程序时自动运行，若不换测站点时才能直接运行本程序，即不用输入第一步数据，但换站时必需运行A—XY程序）（一）、正算放样（即根据已知桩号和边桩距离放样）1、 KX1：AK2：XK3：XY4：SP5：Stop6？…..输入进行测量的方法（输入：1）2、Q？………………….输入测量边桩与路线夹角（默认为90度）；3、K？………………….输入放样点桩号；4、B？………………….输入放样点（左、右边桩）距中线距离（左边桩为负数，右边桩为正数，中桩为“0”）；5、A=…………………….显示全站仪与放样点的方位角（此时可将全站仪转到5800上显示的方位角进行对放样点方向）；6、S=…………………….显示全站仪与放样点水平距离HD；7、CS？………………….输入放样点与测站点的高差VD；8、LJG？………...…….. 输入放样点的棱镜高；9、PQ B=…………… ...显示实测点根据高程计算后需向路内（或外）移动“水平”距离（注：向中线为负值，向路外侧为正值，若为原地面放样还应按此值估算因地面坡度增加的水平距离进行加减）；若需移位大应按第13步重测放出真正的填（挖）坡角；10、显示：a、填方：T=（放样点至路床顶填土高度）、T0=（放样点至路面填土高度）、SC B=（按测点高程计算出的距中边距B，左边桩为负数，右边桩为正数）；b、挖方：W=（放样点至路床顶挖土深度）、W0=（放样点至路面挖土深度）、SC B=（按测点高程计算出的距中理论边距B，即坡角边距）；11、显示：实测点X、Y坐标；12、显示：H=（实测点高程）、H0=（设计高程）（中桩为中线高程，边桩为路肩设计高程）、JK=（设计加宽值）13、重复反回第1步进行重新放样；（若对同一桩号按第9步数据计算需移位较大时，必需对同一桩号按数据移位后重测复核至找到坡角为此，一般重测一次即可）（注：重测复核时，在输入B值时会显示出SC B=（按刚测完点移位后的理论宽度）方便输入预测点B值，若地面不平就用SC B值加（减）上地面坡度造成的水平距离增加）（二）、反算放样一：（即根据在任意点先测出方位角、距离、高差反算出：路线桩号及填、挖土边桩坡角进行放样）1、 KX1：AK2：XK3：XY4：SP5：Stop6？…..输入进行测量的方法（输入：2）2、Q？………………….输入测量边桩与路线夹角（默认为90度）；3、A3？…………………输入全站仪与放样点的方位角（即全站仪上方位角读数）；4、S3？………………….输入全站仪与放样点水平距离HD；5、CS？………………….输入放样点与测站点的高差VD；7、LJG？………...…….. 输入放样点的棱镜高；8、PQ B=…………… ...显示实测点根据高程计算后需向路内（或外）移动“水平”距离（注：向中线为负值，向路外侧为正值，若为原地面放样还应按此值估算因地面坡度增加的水平距离进行加减）；若需移位大应按第3步重测放出真正的填（挖）坡角；9、显示：K=…………….显示放样点桩号；B=…………….显示放样点（左、右边桩）距中线距离（左边桩为负数，右边桩为正数，中桩为“0”）；10、显示：a、填方：T=（放样点至路床顶填土高度）、T0=（放样点至路面填土高度）、SC B=（按测点高程计算出的距中边距B，左边桩为负数，右边桩为正数）；b、挖方：W=（放样点至路床顶挖土深度）、W0=（放样点至路面挖土深度）、SC B=（按测点高程计算出的距中理论边距B，即坡角边距）；11、显示：实测点X、Y坐标；12、显示：H=（实测点高程）、H0=（设计高程）（中桩为中线高程，边桩为路肩设计高程）、JK=（设计加宽值）13、重复反回第1步进行重新放样；（若对同一桩号按第8步数据计算需移位较大时，必需对同一桩号按数据移位后重测复核至找到坡角为此，一般重测一次即可）（注：重测复核时，在输入B值时会显示出SC B=（按刚测完点移位后的理论宽度）方便输入预测点B值，若地面不平就用SC B值加（减）上地面坡度造成的水平距离增加）（三）、反算放样二：（即根据在任意点先测出XY坐标、高差反算出：路线桩号及填、挖土边桩坡角进行放样）1、 KX1：AK2：XK3：XY4：SP5：Stop6？…..输入进行测量的方法（输入：3）2、Q？………………….输入测量边桩与路线夹角（默认为90度）；3、X3？…………………输入全站仪上X坐标；；4、Y3？………………...输入全站仪上Y坐标；5~13步说明与(二)相同：（四）、已知设计坐标进行放样（如桥梁已知坐标放样等）：1、KX1：AK2：XK3：XY4：SP5：Stop6？…..输入进行测量的方法（输入：4）2、使用说明与第（三）条只差在多显示方位角A、距离S进行放样，其它计算数据仅作参考对照用。

CASIOfx-5800pSUPER-FX PLUS1：【Z—F1】 (坐标反算)Deg：Fix3："X0="?A："Y0="?BCIrStat：0→NLb1 0："Xn=,(<0→END)"?CWhiIe C>0N+1→N"Yn="?DPol(C-A,D-B) ：CIsIf J<0：Then J+360→F：EIse J→F：IfEnd"DISTO→n(m)=" ：I◢"BEARO→n(DMS)=" ：F▼DMS◢I→List X[N] ：F→List Y[N]Goto 0：WhiIeEnd"END"2：【Z—F2】 (坐标反算)Deg：Fix3："C"?C："D"?DPol(C-A,D-B) ：CIsJ<0=> J+360→J"D(M)=" ：I◢"J=" ：J▲DMS◢3：【Z—Z】 (坐标正算)Lb1 0"S"?S："T"?T (先输入已知点(A,B)坐标。

S-距离、T-方位角)"J=" ：A+Rec（S，T）◢(未知点坐标)"D=" ：B+J◢(未知点坐标)Goto 04：【HUANZHOU 】(坐标换轴)Lb1 1"C"?C："D"?D (先输入已知点(A,B)坐标、K-方位角)"X=" ：cos( K)（C-A）+sin ( K)（D-B）◢(X轴线偏移)"Y=" ：cos( K)（D-B）-sin ( K)（C-A）◢(Y轴线偏移)Goto 15：【YUAN NU】(园弧)Lb1 0Prog "Z—F2""K"?K："R"?R ："S"?S (先输入已知点(A,B)圆心坐标、K-起始方位角、R-半径、S-起始桩号)"Q=" ：J -K→Q(弧度夹角)"L=" ：（RπQ/180）→L (弧长)"O=" ：I-R→O◢ (中心线)"P=" ：S+L→P◢ (里程桩号)Goto 16：【YUAN ZUOBIAO 】(园弧坐标计算)Lb1 1"L"?L："M"?M："R"?R ："T"?T (先输入(A,B)圆心坐标、L-弧长、R-半径、T-大、小半径)"Q=" ：90°-(180L)/(πR)→Q (弧度夹角) 左边为““-””；右边为““+”” Rec（T，Q）"X=" ：I+A◢(未知点坐标)"Y=" ：J+B◢(未知点坐标)Goto 17：【YUAN ZUOBIAO 】(园弧坐标计算)Lb1 1"L"?L："M"?M："R"?R ："T"?T ："K"?K (先输入(A,B)圆心坐标、L-任意桩号、M -圆弧起始桩号、R-半径、T-大、小半径、K -圆弧起始方位角) "H=" ：L-M→L"Q=" ：K±(180H)/(πR)→Q (弧度夹角)左边为““-””；右边为““+””Rec（T，Q）"X=" ：I+A◢(未知点坐标)"Y=" ：J+B◢(未知点坐标)Goto 18：【ZUOSHANG2396 】(左岸上游2396高程以上计算)Lb1 1"X"?X："Y"?Y："H"?H (输入未知点:X、Y、H)"SJG="：2510-(X/1.25) →O ◢ (设计高程)"T="：H-O →T◢(高差)"S="：0.75T→S (平距)"SJBX="：18.44+Xtan10°30´47.19"`→B ◢(设计边线)"KAI KOU="：Y-(B+S) →P◢ (边坡开口)"XIE JU="：√(T²+S²) →Q◢ (边坡斜距)Goto 19：【ZUO XIA 2396 】(左岸下游2396高程以上计算)Lb1 1"X"?X："Y"?Y："H"?H (输入未知点:X、Y、H)"SJG="：2510-(X/1.25) →O ◢ (设计高程)"T="：H-O →T◢(高差)"S="：0.75T→S ◢(平距)"SJBX="：22.44+Xtan10°30´47.19"→B ◢ (设计边线)"KAI KOU="：Y-(B+S) →P◢ (边坡开口)"XIE JU="：√(T²+S²) →Q◢ (边坡斜距)Goto 110：【Z-S2340～2396】 (左岸上游2340～2396高程计算)Lb1 1"X"?X："Y"?Y："H"?H (输入未知点:X、Y、H)"U="： X-142.5→U"SJG="：2396-(U/1.30) →O ◢ (设计高程)"T="：H-O →T◢(高差)"S="：0.75T→S ◢(平距)"SJBX="：44.88+Utan10°07´46.56"→B ◢(设计边线)"KAI KOU="：Y-(B+S) →P◢(边坡开口)"XIE JU="：√(T²+S²) →Q◢(边坡斜距)Goto 111：【Z-X2340～2396】(左岸下游2340～2396高程计算)Lb1 1"X"?X："Y"?Y："H"?H (输入未知点:X、Y、H)"U="： X-142.5→U"SJG="：2396-(U/1.30) →O ◢ (设计高程)"T="：H-O →T◢(高差)"S="：0.75T→S ◢(平距)"SJBX="：48.88+Utan10°07´46.56"→B ◢ (设计边线)"KAI KOU="：Y-(B+S) →P◢(边坡开口)"XIE JU="：√(T²+S²) →Q◢ (边坡斜距)Goto 112：【CHIC2502.957】(左岸齿槽2502.957-2391.672高程计算)0+000.000-0+139.105Lb1 1"X"?X："Y"?Y："H"?H (输入未知点:X、Y、H)"SJG="：2502.957-(X/1.25) →O ◢ (设计高程)"T="：H-O →T◢(高差)"S="：0.39T→S ◢(平距)"KAI KOU="：Y-(3+S) →P◢(边坡开口)"XIE JU="：√(T²+S²) →Q◢ (边坡斜距)Goto 113：【CHIC2391.672】(左岸齿槽2391.672-2345.000高程计算) 0+139.105-0+199.800Lb1 1"X"?X："Y"?Y："H"?H (输入未知点:X、Y、H)"U="： X-139.105→U"SJG="：2391.672-(U/1.30) →O ◢ (设计高程)"T="：H-O →T◢(高差)"S="：0.39T→S ◢(平距)"KAI KOU="：Y-(3+S) →P◢(边坡开口)"XIE JU="：√(T²+S²) →Q◢ (边坡斜距)Goto 1QH1—4(坐标反算)QH2—7（交点法非对称基本性曲线坐标正、反算程序可输入测站与后视点坐标，就是极坐标放样参数）SUBQ2—71SUBQ2—72SUBQ2—73SUBQ2—74SUBQ2—75SUBQ2—76SUBQ2—77QH2—8（100公里任意路线或匝道曲线坐标正反算万能程序；功能说明：线元法任意路线与匝道曲线坐标正、反算程序可输入测站与后视点坐标，计算极坐标放样参数。