最新CASIOfx-5800P计算与道路坐标放样计算
CASIO fx—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：方位角２、坐标反算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：待求点里程。
CASIOfx-5800P编程计算器在建筑工程放样中的运用
CASIO fx-5800P编程计算器在建筑工程放样中的运用摘要：CASIO fx-5800P计算器的编程功能为施工放样提供了方便、快捷、灵活的计算方式。
仅仅需要两个控制点、任何一根轴线上的两个点坐标及图纸轴线的相对关系。
就能快速的完成作业关键词：CASIO fx-5800P；建筑工程；放样；程序一、概述自从全站仪出现以后，测绘行业得到了飞速的发展。
无论是测量精度还是工作效率都得到了很大的提高。
虽然全站仪采用极坐标法放样已经很方便了，但是灵活度还是不够。
施工现场随时有设备及材料的堆放，容易导致通视受限的影响。
此时选用自由设站加CASIO fx-5800P的程序的方法就可以提高工作效率、节约人力、物力。
笔者以三峡巴基斯坦第一风力发电站项目的实例说明CASIO fx-5800P编程计算器在建筑工程放样中的运用。
二、主要程序名称及编码1、坐标反算（FS）程序编码：Fix 4:“XA=”?→A:“YA=”?→B:Lbl 1：“XB=”?→C:“YB=”?→D:1.A→E:D-B→F:√(E²+F²)→S:Tan-1(F/E)→RI F E<0: THEN R+180→R:Goto 2:IFEND:F<0 R+360→R←Lbl 2：“S=”:S◢“R=”:R►DMS◢Goto 1程序运行说明：在全站仪设站的过程中需要用“坐标反算”程序校核平距及方位角，确定设站的准确性。
输入已知点A(XA,YA),B(XB,YB)坐标，计算出A至B的方位角及距离。
1.测边交会法计算测站坐标（CBJH）程序编码：Fix 4:“XA=”?→A:“YA=”?→B:“XB=”?→C:“YB=”?→D:“SA=”?→P:“SB=”?→Q:C-A→G:D-B→H:√(G²+H²)→I:(P²+I²-Q²)/2/I→E:√(P²-E²)→F:H/I→M:G/I→N“X=”:A+EN+FM◢“Y=”:B+EM-FN◢“END”程序运行说明：全站仪自由设站的过程中，若仪器无内置程序，则需要用“边角交会法计算测站坐标”程序计算出仪器站点坐标。
卡西欧Fx5800p道路三维坐标计算程序(线元法)
卡西欧5800p道路三维坐标计算程序（线元法）QXJS-000 主程序（文件名）Lbl 4：＂1.SZ=>NE＂:＂2.NE=>SZ＂:?Q:?S: Prog＂QXJS-SUB0＂↙Lblθ:Q=1 => Goto1:Q=2 => Goto2:↙θ为阿拉伯数字零Lbl 1:?Z:Prog＂QXJS-SUB1＂:Cls：＂N=＂:Locate5,1,N: （X坐标在第一行第五列显示）＂E=＂:Locate4,2,E: （Y坐标在第二行第四列显示）＂ZH=＂:Locate4,3,S:Locate9,3,＂BJ=＂:Locate12,3,Z: （桩号在第三行第四列显示）F▶DMS◢（方位角在第四行显示）Prog＂SQX-000＂: Goto4↙Lbl 2: ＂N=＂:?B: ＂E=＂:?C:B→N: C→E:Prog＂QXJS-SUB2＂: ＂S=＂:S ◢＂Z=＂:Z◢Goto4↙QXJS-SUB0 平面数据库子程序（文件名）Goto1↙Lbl 1 :IF S<***（线元终点里程）:Then***→A（线元起点方位角）:***→O （线元起点里程）:***→U（线元起点X）:***→V（线元起点Y）:***→P（线元起点曲率半径）:***→R（线元终点曲率半径）: ***→L（线元起点至终点长度）: Return:IfEnd↙ (一个完整的线元)。
IF S<***:Then***→A:***→O:***→U:***→V:***→P:***→R: ***→L: Return:IfEnd↙ (下一个完整的线元)，……无限添加线元。
QXJS-SUB1 正算子程序（文件名）0.5（1÷R-1÷P）÷L→D:S-O→X↙U+∫( cos(A+(X÷P+DX2)×180÷π,θ,X)→N↙V+∫( sin(A+(X÷P+DX2)×180÷π,θ,X)→E↙A+(X÷P+DX2)×180÷π→F↙N+Zcos(F+90) →N:E+Zsin(F+90) →EQXJS-SUB2 反算子程序（文件名）Lbl1:θ→Z:1→Q：Prog＂QXJS-SUB0＂: Prog＂QXJS-SUB1＂↙Pol(N-B+10^(-46), E-C+10^(-46)):Isin(F-90-J) →W:S+W→S↙Abs(W)>0.0001 => Goto1↙Lbl 2: θ→Z：Prog＂QXJS-SUB1＂:(C-E) ÷sin(F+90) →Z使用使用说明：1、规定以道路中线的前进方向（即里程增大的方向）区分左右；当线路左转时，P、R取负值，当线路右转时，P、R取正值，当线路为直线时，P、R以10的45次方代替，即10^(45)。
CASIOfx5800程序
公路施工放线测量公式及程序（CASIO fx5800P)
一、已知座标，求平距和方位角(座标反算)： 公式： D=√（Xp-Xo）+（Yp-Yo） α =arctg(Yp-Yo)/(Xp-Xo) 程序：“A”？→A：“B”？→B：Lbl 0:“X”？→X：“Y”？→Y：（X-A）→M： （Y-B）→N：“D=”：√（M +N ）⊿ tan-1(N/M) →C:If M＜0:Then “Q=”：180+C →Q ⊿ Else If N＞0: Then “Q=”：C→Q ⊿ Else “Q=”：360+C→Q ⊿ If End : If End : Goto 0 说明：（A，B）为测站点坐标，（X，Y）为所求点坐标。输出：D为平距，Q为方位角。 二、已知直线的坐标方位角Q和直线起点坐标（Xo,Yo），求直线上任一点的中桩坐标（X， Y），左右边桩坐标（XL，YL）、（XR，YR）： 公式：X =Xo+LcosQ Y=Yo+LsinQ 程序：“C”？→C：“D”？→D：“Q”？→Q：“Z”？→Z：“U”→U：“T”？→T： “V”？→V：Lbl 1: “L”？→L：Abs（L-Z）→W：“X=”：C+W*cos(Q)→X ⊿“Y=”： D+W*sin(Q)→Y ⊿ If U≤0:Then Goto1:Else “XL=”:X+U*cos(Q-V)→A ⊿“YL=”： Y+U*sin(Q-V)→B⊿“XR=”:X+T*cos(Q+V)→E⊿“YR=”：Y+T*sin(Q+V)→F⊿ Goto 1 说明：（C，D）为直线起点坐标，Q为直线方位角，Z为起点桩号，L为所求坐标点桩号。 “U”为左边距，“T”为右边距，“V”为偏角；U=0时不算边桩坐标。输出：（X，Y）为中 桩坐标，（XL，YL）为左边桩坐标，（XR，YR）为右边桩坐标。 三、已知圆曲线起点坐标（U，V），切线方位角Q，桩号Z和圆半径R，求圆曲线上桩号为 L的点中桩坐标（X，Y），左右边桩坐标（XL，YL）、（XR，YR）： 公式： ψ =90L/(л R) (偏角公式） C=2Rsin ψ (对应弧的弦长公式） 弦的方位角:Q=Qo±ψ （曲线左转时为“-”） 程序：“U”？→U：“V”？→V：“Q”？→Q：“R”？→R：“Z”？→Z：“W=-1，1”： ？→W：“ZJ=”：？→Z[1]：“YJ=”：？→Z[2]：“PIAN JIAO”：？→T：Lbl 2: “L”？→L：180*（L-Z）/（2π *R）→J：R*2sin(J)→K:If W=-1:Then “X=”:U+K*cos (Q-J）→X⊿ “Y=”：V+K*sin(Q-J)→Y ⊿“Q=”：Q-180*（L-Z）/（π R）→O⊿ Else If W=1:Then“X=”:U+K*cos(Q+J）→X⊿“Y=”：V+K*sin(Q+J)→Y ⊿ “Q=”：Q+180* （L-Z）/（π R）→O⊿ IfEnd:IfEnd:T=0=＞Goto 2：“XL=”:X+Z[1]*cos(O-T)→F⊿ “YL=”：Y+Z[1]*sin(O-T)→P ⊿“XR=”:X+Z[2]*cos(O+T)⊿“YR=”：Y+Z[2]*sin(O+T) ⊿ Goto 2 说明：W=-1时曲线左转, W=1时曲线右转。“ZJ=”为左边距，“YJ=”为右边距，“PIAN JIAO”为偏角，偏角输0时不算边桩坐标。输出：（X，Y）为中桩坐标，“Q=”为所求点 方位角，（XL，YL）为左边桩坐标，（XR，YR）为右边桩坐标。 四、已知直缓点坐标（M，N）、方位角Q、桩号Z，缓和曲线全长S和连接圆半径R，求缓和 曲线上任一点（桩号为L）的中桩坐标（X，Y），左右边桩坐标（XL，YL）、（XR，YR）： 公式： θ =30L/(π RLs) C=L-L/(90R Ls) α =α ±90Ls/(π A) 程序：“M”？→M：“N”？→N：“R”→R：“A”？→A：“S”→S：“Z”？→Z：“Q” ？→Q：“W=-1，1”：？→W：“ZJ=”？→Z[1]：“YJ=”？→Z[2]：“PIAN JIAO”：？→ T：Lbl 3:“L”？→L：Abs (L-Z)→H:30*H/(π RS)→D:H-H/(90R S )→C:If W=-1:Then “X=”：M+C*cos(Q-D)→X⊿“Y=”：N+C*sin(Q-D)→Y ⊿ A =0 =＞Goto 3:“Q=”:Q-90H /(π A）→E ⊿ Else If W=1:Then “X=”：M+C*cos(Q+D)→X⊿“Y=”：N+C*sin(Q+D)→Y ⊿ A=0 =＞Goto 3:“Q=”:Q+90*H/(π A）→E ⊿IfEnd:IfEnd:T=0=＞Goto 3：“XL=”: X+Z[1]*cos(E-T)⊿“YL=”：Y+Z[1]*sin(E-T) ⊿“XR=”:X+Z[2]*cos(E+T)⊿“YR=”： Y+Z[2]*sin(E+T)⊿ Goto 3 说明：“A”为缓和曲线参数，W=-1时曲线左转, W=1时曲线右转。“ZJ=”为左边距，“YJ=” 为右边距，“PIAN JIAO”为偏角，偏角输0时不算边桩坐标。输出：（X，Y）为中桩坐标， “Q=”为所求点方位角，（XL，YL）为左边桩坐标，（XR，YR）为右边桩坐标。 五、已知卵形曲线（即非完整缓和曲线）大圆半径R，小圆半径r，缓和曲线参数A，以大圆 的圆缓点为起点，其坐标为（C，D），其方位角为Q，其桩号为Z，求桩号为L的点的中桩坐
CASIOfx5800任意平曲线极坐标与直角坐标放样求里程及边距
CASIO-fx5800 (任意平曲线极坐标与直角坐标放样,求里程及边距)湖南津市赵济汉主程序PQXDeg : Fix 3 : “XZ→0:YZ→1”？A : If A = 1: Then Goto 1 : IfEnd ↙If A = 0 : Then “ BS→0:XY→1:AND→2:DK→3:L(I)→4 ” ？O : IfEnd ↙If O = 4: Then Goto 1 : IfEnd ↙If O = 3: Then Prog “ F.2 ” : If X= 0 : Then Goto 1 : IfEnd : IfEnd ↙If O ≠ 1: Then “ X1 ” ？X : “ Y1” ？Y : X→Z［11］: Y→Z［12］: “ X2 ” ？P : “ Y2” ？Q : Pol( P－X , Q－Y) : If J﹤0 : Then J + 360→J : IfEnd : Cls : “ S12= ” : Locate 6 ,1, I : “ B12= ” : J ►DMS◣1→B : IfE nd ↙If O = 1: Then “XY(0) →0: ≠﹥1” ? B: IfEnd ↙Lbl 1 : If A = 1 And O = 3 :Then Prog “ F.2 ” : IfEnd : Prog “ Q.1 ”子程序PPQX （给定综合曲线属性）“ ZQX →0: *** →1: *** →2 ******* ” ？C ↙If C=0: Then 100→Z［98］: n0 →Z［99］: IfEnd ↙If C=1: Then m1→Z［98］: n1 →Z［99］: IfEnd ↙If C=2: Then m2→Z［98］: n2 →Z［99］: IfEnd ↙*******Prog “ PQX ”其中： mi为第i条综合曲线矩阵变量起始单元，(第1条综合曲线矩阵变量起始单元应自100开始，以便其他程序临时使用100以前的矩阵变量，综合曲线中每一基本单元需8个矩阵存储单元)；ni为第i条综合曲线中基本单元数，每增加一个条综合曲线则增加一行If C=*******→Z［99］: IfEnd↙语句。
卡西欧fx-5800p计算器 公路测量常用程序
FX-5800p计算器公路测量常用程序一、程序功能本程序由6个主程序、5个次子程序及5个参数子程序组成。
主要用于公路测量中坐标正反算，设计任意点高程及横坡计算,桥涵放样，路基开挖口及填方坡脚线放样。
程序坐标计算适应于任何线型.二、源程序1.主程序1：一般放样反算程序(①正算坐标、放样点至置仪点方位角及距离；②反算桩号及距中距离)程序名:1ZD-XYLb1 0:Norm 2F=1：(正反算判别，F=1正算，F=2反算,也可以改F前加？，改F为变量)Z[1]=90（与路线右边夹角）Prog＂THB＂：F=1=>Goto 1:F=2=>Goto 2Lb1 1:Ｆix 3:＂Ｘ=＂：Locate 6,4,Ｘ◢＂Ｙ＝＂：Locate 6,4,Ｙ◢Ｐrog＂3JS”:Goto 0:Lb1 2:Fix 3:＂ＫＭ＝＂：Locate 6,4,Ｚ◢Ｇoto 0２．主程序２：高程序横坡程序(设计任意点高程及横坡)程序名：2GCLbI 0:Norm 2“KM”?Z:?D:Prog”H”:Fix3:”H=”:Locate 6,4,H◢“I=”: Locate 6,4,I◢Goto 03.主程序3：极坐放样计算程序(计算放样点至置仪点方位角及距离)程序名：3JSX：Y：1268．123→K(置仪点X坐标)2243．545→L（置仪点Y坐标，都是手工输入,也可以建导线点数据库子程序,个人认为太麻烦）Y-L→E：X-K→F：Pol(F,E):IF J<0:ThenJ+360→J:Int(J)+0.01Int(60Frac(J))+0.006Frac(60Frac(J)) →J:(不习惯小数点后四位为角度显示的，也可以用命令J◢DMS◢来直接显示) Fix 4:” FWJ=”: Locate 6,4,J◢(不习惯小数点后四位为角度显示的，也可以用命令J◢DMS◢来直接显示)Fix 3:”S=”:Locate 6,4,I◢4．主程序4：涵洞放样程序（由涵中心桩号计算出各涵角坐标、在主程序3中输入置仪点坐标后计算放样点至置仪点方位角及距离)程序名：4JH-XYLbI 0:Norm 290→Z[1](涵洞中心桩与右边夹角，手工输入，也可以修改成前面加？后变为变量)1→F:Prog”THB”:?L:Z[2]-Z[1] →E:X+Lcos(E) →X:Y+Lsin(E) →Y:Fix 3: ＂Ｘ=＂：Locate 6,4,Ｘ◢＂Ｙ＝＂：Locate 6,4,Ｙ◢Ｐrog＂3JS”:Goto 0:5．主程序5:路基开挖边线及填方坡脚线放样程序（输入大概桩号及测量坐标、地面标高计算出偏移距离、桩号、距中距离、填挖高度）程序名：5FBXLbI 0:Norm 2: 18→DimZ:2→F:90→Z[1]:Prog“THB”:Z:D:”M0”?M:M→Z[4]:D→Z[3]:Prog”6GD”:L→Z[6]:If D<0:Then 0.75-L→D:GotoH:Else L-0.75→D:Goto H:IfEndLbI H:Prog”H”:H-0.03-Z[4] →Z[5]:Z[6] →L:If Z[5]<0:Then –z[5] →G:Goto W:Else Z[5] →G:Goto T:LbI W:Prog “W0”:Z[10]+Z[11] →A: If G>A:Then Goto 1:Else If G>Z[10]:Then Goto 2:Else Goto 3:IfEnd:LbI 1:L+Z[12]+Z[13]+Z[14]+(G-A)×Z[9]+Z[11]×Z[8]+Z[10]×Z[7]:Goto Z:LbI 2:L+Z[12]+Z[13]+(G-Z[10])×Z[8]+Z[10]×Z[7]:Goto Z:LbI 3:L+Z[12]+G×Z[7]:Goto z:LbI T:L+0.5→N:If G>Z[17]:Then (N+Z[18]+(G-Z[17])×Z[16]+Z[17]×Z[15])→S:Goto Z:Else (N+G×Z[15])→S:Goto z:LbI Z:Z[3]→D:Fix 2:Abs(D)-S→T:”L0=”:L Locate 6,4,T◢＂Ｄ＝＂：Locate 6,4,Ｄ◢“TW=”: Locate 6,4,Z[5]◢Goto 06．主程序6：路基标准半幅宽度计算程序(对于设计有加宽渐变的有用，如路基宽度无变化，则把此程序直接输入半幅宽度值至L)程序名：6GDProg “G0”Z-C→E:(B-A)×E/S+A→L:L:7．坐标计算次程序（ＴＨＢ）程序名：THB18→DimZ：＂ＫＭ＂?Z：Prog ＂Ｘ０＂1÷P→Ｃ： (P-R)÷(2HPR) →Ｓ：180÷π→Ｅ：Ｆ=1=>Goto 1：Ｆ=2=>Goto 2←┘Lbl 1：?Ｄ： Abs(Ｚ－O) →W：Prog "Ａ"：X：Ｙ：Ｇoto 3LbI 2:Ｘ：Ｙ：Ｘ→I：Ｙ→J：Prog ＂Ｂ＂：Ｏ＋Ｗ→Z：Ｄ→Ｄ：Ｇoto 3LbI 3:IF Ｆ＝１Then Ｘ：Ｙ：Else Ｚ：Ｄ8. 正算子程序(Ａ)程序名：A0.1184634425→A： 0.2393143352→B：0.2844444444→N 0.046910077→K：0.2307653449→L：0.5→M： U+W(Acos(G+QEKW(C+KWＳ))+Bcos(G+QELW(C+LWＳ))+Ncos(G+QEMW(C+MWＳ))+Bcos(G+QE(1-L)W(C+(1-L)WS))+Acos(G+QE(1-K)W(C+(1-K)WS))) →X：V+W(Asin(G+QEKW(C+KWＳ))+Bsin(G+QELW(C+LWＳ))+Nsin(G+QEMW(C+MWS))+Bsin(G+QE(1-L)W(C+(1-L)WS))+Asin(G+QE(1-K)W(C+(1-K)WＳ))) →Y：G+QEW(C+WＳ)+Ｚ［１］→Ｚ［２］：X+Ｄcos（Ｚ［２］）→Ｘ： Y+Ｄsin（Ｚ［２］）→Ｙ9. 反算子程序(Ｂ)程序名：BG-90→Ｔ： Abs((Y-V)cos(T)-(X-U)sin(T)) →Ｗ：0→Ｄ：Lbl 0：Prog "Ａ"： T+QEW(C+WＳ) →Ｌ： (J-Y)cos(L)-(I-X)sin(L)→Ｄ：IF Abs(Ｄ)<0.01:Then Goto1：Else W+Ｄ→W:Goto 0←┘Lbl 1:0→D：Prog "Ａ"：(J-Y)÷sin(Ｚ［２］) →D:10．高程计算子程序（H）程序名：HProg “S0”:R:T:C:G:I:C-T→F:Z-F→L:C+T→E:G-TI→Q:If T=O:Then Q+LI→H:Goto 0:Else IfZ<F:Then Q+LI→H:Goto 0:Else If Z≤E:Then Q+LI+L2÷2÷R→H:Goto 0:LbI 0:H:If D=0:Then Goto I:Else Prog “I”:H+V→H:Goto I:LbI I:H:I:11.高程超高计算程序（I）程序名：IProg”I0”:W=1=> Goto 0:W=2=>Goto 1:LbI 0:If L=0:Then Abs(D)×M→V:Goto 2:Else Abs(D)×((N-M)×(Z-C)÷L+M)→V:Goto 2:IfEnd: LbI 1:If L=0:Then Abs(D)×M→V:Goto 2:ElseAbs(D)×(((3((Z-C)÷L)2-2((Z-C)÷L)∧(3))×(N-M))+M)→V:Goto 2:IfEnd:LbI 2:Abs(D)→E:V÷E→I:I(E-K)→V:12．数据子程序(附后示例)①程序名：X0（坐标计算要素程序）If Z≥25900 And Z≤26615.555:Then 25900→O:11587.421→U:1847.983→V:101。
道路直线段中边桩坐标放样计算CASIOfx-5800P程序090405
道路直线段中边桩坐标放样计算CASIO fx-5800P
程序
发表于2009年04月05日23:21阅读（200）评论（14）分类:
举报
王中伟 技术交流
三、数学模型
如图所示，已和輕甲元的起点坐标0（%必）、起点切絃方位角旳、直统甲元伙產z・
.V
亘妹孕元的终点（或直裟上呆点〉坐标ZU..X；）计算如下］
£=兀■厶COS偽I y.m + Zfink f
•四、程序代码
五、程序变量清单
道苗
五、计算流程示例需要对设计文件中的逐桩坐标进行验算，将断链前后两段路线分别进行计算。
1.计算断链前路段的中桩坐标使用道路直线段中边桩坐标放样计算程序LINE 的操作流程见下表。
2-计算断链后路段的中桩坐标使用道路直线段中边桩坐标放样计算程序LINE的操作流程见下表。
卡西欧fx5800p计算器与道路施工放样程序
套餐编号
内容
价格
套餐 1 套餐 2 套餐 3
书稿纸质稿+全新 5800 计算器（程序已经输入）+1 年的技术服 700
务（程序自行输入）
书稿纸质稿+计算器程序传输（计算器由使用者寄过来，作者负责
寄回）+1 年的技术服务（程序自行输入）
20
可通过网上银行付款到如下帐户： 开户行：招商银行长沙井湾子支行 户名：王中伟 帐号：6226 0973 1015 7756 联系电话：13973170180
付款后请尽快将姓名、工作单位（或项目部名称）、联系电话、电子 邮件等信息发到作者邮箱，以便做好后续服务工作。
2
目录
第 1 章 卡西欧 fx-5800P 计算器及其基本操作方法......................................................................................... 1 1.1 卡西欧编程计算器简介......................................................................................................................... 1 1.1.1 卡西欧编程系列计算器.............................................................................................................. 1 1.1.2 卡西欧编程计算器的工程应用...................................
fx-5800p全线坐标放样（交点法）正反算程序
fx-5800p全线坐标放样（交点法）正反算程序fx-5800p全线坐标放样（交点法）正反算程序【QXFYZFS】（主程序名）20→Dim?〝1.ZS.2.FS〞？J：J≠1?Goto2：90→H：〝X（CZ）〞？U：〝Y（CZ）〞？V?Lbi1：〝Kp＝〞？P：〝Z-Y+〞？D：Prog〝SUJUKU〞：M+O→N：Prog〝SUBA〞：Prog〝SUBB〞：F-Dcos(Z-H)→F：G-Dsin(Z-H)→G：〝X=〞〝Y=〞〝〞Z?DMS◢U=0?Goto1:Pol(F-U,G-V):J＜0?360+J→J：〝DH〞〝〞J?DMS◢Goto1?Lbi2：〝GAILUE(Kp＝)〞?P:〝X=〞？U:〝Y=〞?V?Lbi3：Prog〝SUJUKU〞:M+O→N:Prog〝SUBA〞:Prog〝SUBB〞:Z-90→A:(V-G)cos(A)-(U-F)sin(A)→H:IfAbs(H)＞0.0001：ThenH+P→P:Goto3:IfEnd:(G-V)÷sin(A)→D〝=〞〝〞Goto2?使⽤说明：20→Dim：扩展额外变量寄存器〝1.ZS.2.FS〞：选择正反算（正算=1反算≠1）90→H：边桩与线路正交〝X（CZ）〞〝Y（CZ）〞：输⼊测站点X、Y坐标值〝Kp＝〞、〝Z-Y+〞：输⼊所求点桩号和距中（左-右+中0）〝GAILUE(Kp＝)〞：反算时，输⼊所求点概略桩号〝X=〞〝Y=〞：反算时，输⼊所求点X、Y坐标值〝X=〞〝Y=〞〝〞：显⽰所求点X、Y值及所求点切线⽅位⾓。
〝DH〞〝〞：显⽰所求点放样距离及放样⽅位⾓（放样）。
10.〝〞〝〞：反算时，显⽰所求点桩号及距中（左-右+中0）。
〝U=0?Goto1〞〝〞〝〞【SUBA】⼦程序AIfO＜0:Then-1→W:Else1→W:IfEnd:WO→A?B2÷24÷R-B^(4)÷2688÷R^(3)+B^(6)÷506880÷R^(5)→Z[6]:C2÷24÷R-C^(4)÷2688÷R^(3)+C^(6)÷506880÷R^(5)→Z[7]:B÷2-B^(3)÷240÷R2+B^(5)÷34560÷R^(4)→Z[8]C÷2-C^(3)÷240÷R2+C^(5)÷34560÷R^(4)→Z[9]Z[8]+(R+Z[7]-(R+Z[6]cos(A))÷sin(A)→S:Z[9]+(R+Z[6]-(R+Z[7]cos(A))÷sin(A)→T:ARπ÷180+（B+C）÷2→L:L-B-C→Q：（R+(Z[6]+Z[7])÷2）cos(A÷2)-R→E：K-S→Z[1]:Z[1]+B→Z[2]:Z[1]+L-C→Z[4]:Z[4]+C→Z[5]【SUBB】⼦程序BX–Scos（M→F:Y-sin(M→G:P＞Z[1]?Goto1:X→F:Y→G:P-K→Z[16]:0→Z[17]:M→A:M→Z:Goto5?Lbl1:P＞Z[2]?Goto2:P-Z[1]→L:L→Z[14]:B→Z[15]:Prog〝SUBC〞:WZ[17]→Z[17]:M→A：M+90WL(BRπ→Z：Goto5:Lbl2:P＞Z[4]?Goto3:P-Z[1]→L:90(2L-B)÷R÷π→A:Rsin(A)+Z[8]→Z[16]:W(R(1-cos(A))+Z[6]→Z[17]:M+WA→Z:M→A:Goto5:Lbl3:P＞Z[5]?Goto4:Z[5]-P→L:L→Z[14]:C→Z[15]:Prog〝SUBC〞:X+Tcos(N→F:Y+Tsin(N→G:-Z[16]→Z[16]:WZ[17]→Z[17]:N→A:N-90WL2÷(CRπ→Z:Goto5:Lbl4:X→F:Y→G:P-Z[5]+T→Z[16]:0→Z[17]:N→A:N→Z:Goto5:Lbl5:F+Z[16]cos(A)-Z[17]sin(A→F:G+Z[16]sin(A)+Z[17]cos(A→G:Z＜0?360+Z→Z【SUBC】⼦程序CIfZ[14]=0:Then0→Z[16]:0→Z[17]:ElseZ[14]-Z[14]^(5)÷40÷(RZ[15])2+Z[14]^(9)÷3456÷(RZ[15])^(4)→Z[16]:Z[14]^(3)÷6÷(RZ[15])-Z[14]^(7)÷336÷(RZ[15])^(3)+Z[14]^(11)÷42240÷(RZ[15])^(5)→Z[17]:IfEnd 【】IfP＜1000:Then522.056→K：5683.105→X：1447.559→Y:183°17°55.68°→M:-19°37°25.5°→O:2500→R:0→B:0→C:Return：IfEnd?IfP＜2000:Then1182.2→K：5317.799→X：868.262→Y:337°0°1.8°→M:10^(-50)→O:1→R:0→B:0→C:Return：IfEnd?IfP＜3000:Then……0→B:0→C:Return：IfEnd?1182.2→K”。
卡西欧5800计算器全线坐标计算放样正反算(线路测量必备)
5800计算器全线坐标计算放样正反算（定稿）5800计算器全线坐标计算放样正反算程序（定稿）彭赐明主程序坐标正反算程序名称：ZBZFSLB1 A↙Cls : Fix 4 : 30→Dim Z :"0=ZS,1=FS，2=FY"?Z ↙If Z=0:Then Goto B:IfEnd↙(Z=0进入里程点坐标正算）If Z=1:Then Prog"FSLCBZ ": Goto A:IfEnd↙(Z=1进入反算里程边桩）If Z=2:Then Goto C:IfEnd↙Lb1 B ↙“K=”?K ：（计算里程）Prog"SJK1 ":”XI=”:Locate6,4,Z[18]:”YI=”: Locate6,4,Z[19]◢“PJ=”?P:”PD=”?D:Z[18]+D*Cos(T+P)→Z[20]:Z[19]+D*Sin(T+P)→Z[21]:Z[18]- D*Cos(T+P) →Z[22]: Z[19]-D*Sin(T+P)→Z[23]:”XLP=”:Locate6,4,Z[22]:”YLP=”: Locate6,4,Z[23]: ”XRP=” :Locate6,4,Z[20]:”YRP=”: Locate6,4,Z[21] ◢Goto B↙Lb1 C"XZJ="?M(置镜点X):"YZJ="?N(置镜点Y): “XHS="?G(后视点X):"YHS="?L(后视点Y): Pol(G-M,L-N):"DH=":I(后视距)◢J<0=>J+360→J:"FH=":J→DMS◢(后视方位角)Lb1 D ↙“K=”?K ：（计算里程）Prog"SJK1 ": Prog" ZBFY " :Goto D子程序数据库SJK1IF K<本段曲线终点里程AND K≥上段曲线终点里程：THEN 本段曲线终点里程→Z[1] : 上段曲线终点里程→Z[2] ：1→O （注：左偏曲线输入-1→O,右偏曲线输入1→O）: 半径→R : 曲线偏角→A:第一缓和曲线→Z[6] : 第二缓和曲线→Z[7] : 交点X→B :交点Y→C : 小里程向交点方位角→E : 交点向大里程方位角→F : Prog”XLZBJSCX”:Return: IFEND ↙IF…………Prog”XLZBJSCX”:Return:IFEND（曲线段分段输入）↙补充直线段输入如下(单独直线段）IF K<本段直线终点里程AND K≥本段直线起点里程:THEN 本段直线终点里程→Z[3]:终点X→Z[16]:终点Y→Z[17]:方位角→E: Z[16]+ (K- Z[3])*COS E→Z[18]:Z[17]+ (K- Z[3])*SIN E→Z[19] : Return:IFEND子程序坐标正算，名称：XLZBJSCXLB1 2 ↙（曲线要素计算）Z[6]/2- Z[6]^3/(240*R^2)+ Z[6]^5/(34560*R^4) →Z[8] ↙（M1）Z[7]/2- Z[7]^3/(240*R^2)+ Z[7]^5/(34560*R^4) →Z[9] ↙（M2）Z[6]^2/(24*R)- Z[6]^4/(2688*R^3) →Z[10] ↙（P1）Z[7]^2/(24*R)- Z[7]^4/(2688*R^3) →Z[11] ↙（P2）π*A*R/180+0.5*( Z[6]+ Z[7])→Z[25] ↙（曲线总长）90* Z[6]/(R*π) →Z[14] ↙（第一缓和曲线总偏角）90* 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]- Z[25]→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] AND K> Z[3] : THEN GOTO 5 : IFEND ↙IF K≤Z[5] AND K> Z[4] : THEN GOTO 6 : IFEND ↙IF K≤Z[1] AND K> Z[5] : THEN GOTO 7 : IFEND ↙LB1 4 ↙（里程小于直缓点直线独立坐标）K- Z[3] →Z[23] : 0→Z[24] : E→T : GOTO 8↙LB1 5 ↙（第一缓和曲线独立坐标）K- Z[3] →H ↙H-H^5/(40*R^2* Z[6]^2)+H^9/(3456*R^4* Z[6]^4) →Z[23] ↙H^3/(6*R* Z[6])-H^7/(336*R^3* Z[6]^3) →Z[24] ↙90*H^2/( R*π* Z[6]) →T ↙IF O>0 ：THEN T +E→T : ELSE E-T →T : T<0=>360+T→T : IFEND ↙GOTO 8 ↙LB1 6 ↙（圆曲线独立坐标）K- Z[4] →H ↙H*180/( R*π)+ Z[14]→T ↙R*SIN T+ Z[8]→Z[23] ↙R*(1-COS T)+ Z[10]→Z[24] ↙IF O>0 ：THEN T +E→T : ELSE E-T →T : T<0=>360+T→T : IFEND ↙GOTO 8 ↙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→Z[23] ↙Z[13]*SIN A-U*SIN A+V*COS A→Z[24] ↙IF O>0 ：THEN F-T→T : T<0=>360+T→T : ELSE F+T →T : IFEND ↙GOTO 8 ↙LLb1 8IF O<0 : THEN - Z[24]→Z[24] : IFEND ↙Z[16]+Z[23]*COS E-Z[24]*SIN E→Z[18] ↙Z[17]+Z[23]*SIN E+Z[24]*COS E→Z[19] ↙ReTurn↙子程序反算里程边桩，名称：FSLCBZLb1 1↙"XK="?X:"YK="?Y↙（输入任意测点的XY坐标）:“K=”?K （试算里程，任意输入标段内里程点即可，也可以输入大致的估算里程加快速度）↙Lb1 2↙Prog"SJK1 ":T-90 →W:W<0=>360+W→W:Abs((Y-Z[19])*Cos W-(X-Z[18])*Sin W)→S↙If S<0.0001:Then Goto 4:Else Goto 3:Ifend↙Lb1 3↙K+S→K: Prog"SJK1":T-90 →W:W<0=>360+W→W:Abs((Y-Z[19])*Cos W-(X-Z[18])*Sin W)→Q↙If Q<0.0001 :Then Q→S: Goto 4:Else IF Q<S: THEN K+Q→K: Goto 2 :Else IF Q>S :THEN K-Q→K:Goto 2:Ifend:Ifend:Ifend↙Lb1 4↙Pol (X-Z[18],Y-Z[19]:"DP(-Z+Y)=":I◢(偏距）（由于该程序不能准确判断边桩左右方向，暂作修改，取消左右边判定）"K=":K+S→K◢（里程）Return↙子程序坐标放样：ZBFYLB1 0 ↙“QXJ=”:T◢（计算里程点切线方位角，可以不显示）Pol(Z[18]-M,Z[19]-N):"DI=":I(后视距)◢J<0=>J+360→J:"FI=":J→DMS◢(后视方位角)“XI=”: Z[18] ◢（中线X）“YI=”: Z[19] ◢（中线Y）“PJ=”?P:”PD=”?D:Z[18]+D*Cos(T+P)→Z[20]:Z[19]+D*Sin(T+P)→Z[21]Pol(Z[20]-M,Z[21]-N):"DP=":I◢J<0=>J+360→J:"FP=":J→DMS◢“XP=”: Z[20] ◢（边桩X）“YP=”: Z[21] ◢（边桩Y）Return↙。
卡西欧5800P计算器-道路中桩及边桩计算程序
卡西欧 5800P 计算器-道路中桩及边桩计算程序 Lbl 4:“1：KD￫ XY,2：XY￫ KD” ？N:?K If k<270.348:(第一段的终点桩号）Then0（0 是零，起点桩号） ￫ O（字母符）:355933.039(起点 x 坐标）￫ U:467305.867(起点 y 坐标）￫ V:0°15′46″（第一段 的方位角）￫ G:270.348(第一段的 距离） ￫ H:10^（45） （直线） ￫ P:3000(曲线半径）￫ R:0（数字） ￫ Q:Goto 0（数字）:Ifend If k<759.748：(第二段的终点桩 号）Then270.348(第一段的终点桩 号）￫O(字母） ：3559603.384(第一 ￫U:467307.108 段终点 x 坐标） （第 一段终点 y 坐标）￫V:0°15′46″ （ 第 二 段 起 点 方 位 角 ） ￫ G:489.4(第二段距离）￫H:3000(第 ￫P:3000(第二段曲线半径） ￫Q:Goto 二段曲线半径） ￫ R:1(右转） 0IfEen
￫Q:Goto 0(数字） ：IfEnd Lbl 0(数字） ：1÷P￫C:(P-R)÷(2HPR)￫D:180÷π￫E N=1Goto 1：Goto 2 Lbl 1:?Z:K￫S:Abs(S-O)￫W:Prog“SUB1”:“X=”:X◢（s-o,o 是字母 符） “Y=”:Y◢ “FWJ=”:F-90￫F◢ Goto4 Lbl 2:?X:?Y:X￫I:Y￫J:Prog“SUB2”:O+：线性是直线或圆曲线，缓和曲线不能用此程序。 “SUB1，SUB2” 是两个子程序。 “SUB1” 0.1739274226￫ A:0.3260725774￫ B:0.0694318442￫ P:0.3300094782￫ L:1-L￫ F:1-P￫ M:U+W(ACos （G+QEPW(C+PWD))+BCos(G+QELW(C+LWD))+BCos(G+QEFW(C+FWD))+AC os(G+QEMW(C+MWD)))￫ X:V+W(ASin(G+QEPW(C+PWD))+BSin(G+QELW(C+LWD))+BSin(G+QEFW(C +FWD） ）+ASin（G+QEMW(C+MWD)))￫ Y:G+QEW(C+WD)+90￫ F:X+ZCos(F) ￫ X:Y+ZSin(F)￫ Y “SUB2”程序
CASIO fx-5800p计算器测量实用程序加数据库
CASIO fx-5800p道路主线坐标放样程序简化使用程序说明：此程序是根据教科书结合工地实践应用继续开发，本程序包含一个母程序和两个子程序，本程序简化了部分详细输出内容，加快了实地放样计算的速度，本程序还有一大优点就是有“一劳永逸”的效果，先把子程序输入计算器，然后根据曲线要素表，用其中的数据代替母程序中的文字提示（包括括号），输入计算器，在运行母程序，然后检核，每一个曲线至少检查一个点，检核无误后即可，每次去工地放样就可以免带图纸，同时也大大的提高了野外放样计算的速度。
ZBFY(道路主线坐标放样程序母程序)：Lbl 0↵“KP=”?P↵If P<(第一个曲线的结束桩号)：Then↵（第一个曲线的交点x坐标）→X↵（第一个曲线的交点y坐标）→Y↵（第一个曲线的上一交点x坐标）→M↵（第一个曲线的上一交点y坐标）→N↵（第一个曲线的转角，左-右+）→O↵（第一个曲线的半径）→R↵（第一个曲线的第一缓和曲线长度）→B↵（第一个曲线的第二缓和曲线长度）→C↵（第一个曲线的交点桩号）→K↵Prog“-ZBFY”:Goto 0:IfEnd↵If P<(第二个曲线的结束桩号)：Then↵（第二个曲线的交点x坐标）→X↵（第二个曲线的交点y坐标）→Y↵（第二个曲线的上一交点x坐标）→M↵（第二个曲线的上一交点y坐标）→N↵（第二个曲线的转角，左-右+）→O↵（第二个曲线的半径）→R↵（第二个曲线的第一缓和曲线长度）→B↵（第二个曲线的第二缓和曲线长度）→C↵（第二个曲线的交点桩号）→K↵Prog“-ZBFY”:Goto 0:IfEnd↵...(重复If到IfEnd的语句，有n个曲线，就重复n-1次) ...（最后一个曲线的交点x坐标）→X↵（最后一个曲线的交点y坐标）→Y↵（最后一个曲线的上一交点x坐标）→M↵（最后一个曲线的上一交点y坐标）→N↵（最后一个曲线的转角，左-右+）→O↵（最后一个曲线的半径）→R↵（最后一个曲线的第一缓和曲线长度）→B↵（最后一个曲线的第二缓和曲线长度）→C↵（最后一个曲线的交点桩号）→K↵Prog“-ZBFY”:Goto 0 (结束)-ZBFY(带“-”号的程序表示子程序)：Deg:Fix3:26→DimZ↵Lbl0↵If O<0:Then -1→W:Else 1→W:IfEnd:W O→A↵B2÷24÷R-B∧(4) ÷2688÷R∧(3)+B∧(6)÷506880÷R∧(5)→Z〔6〕↵C2÷24÷R-C∧(4) ÷2688÷R∧(3)+C∧(6)÷506880÷R∧(5)→Z〔7〕↵B÷2-B∧(3)÷240÷R2+B∧(5)÷34560÷R∧(4)→Z〔8〕↵C÷2-C∧(3)÷240÷R2+C∧(5)÷34560÷R∧(4)→Z〔9〕↵Z〔8〕+(R+ Z〔7〕-（R+ Z〔6〕）cos(A))÷sin(A)→S↵Z〔9〕+(R+ Z〔6〕-（R+ Z〔7〕）cos(A))÷sin(A)→T↵RAπ÷180÷(B+C)÷2→L↵K-S→Z〔1〕↵Z〔1〕+B→Z〔2〕↵Z〔1〕+L÷2+(B-C) ÷4→Z〔3〕↵Z〔1〕+L-C→Z〔4〕↵Z〔4〕+ C→Z〔5〕↵Pol(X-M,Y-N):J →Z〔20〕:J+O→Z〔19〕↵X-Scos(Z〔20〕) →Z〔21〕↵Y-Ssin(Z〔20〕) →Z〔22〕↵X+Tcos(Z〔19〕) →Z〔23〕↵Y+Tsin(Z〔19〕) →Z〔24〕↵If P> Z〔1〕:Then Goto1:IfEnd↵Z〔1〕-P →L↵“XP=”:X-(S+L)cos(Z〔20〕) →F“YP=”:Y-(S+L)sin(Z〔20〕) →GZ〔20〕→Z↵Goto 5↵Lbl 1↵If P> Z〔2〕:Then Goto 2:IfEnd↵P- Z〔1〕→L:L→Z〔14〕:B→Z〔15〕:Prog”-FY”↵“XP=”: Z〔21〕+ Z〔16〕cos(Z〔20〕)-W Z〔17〕sin(Z〔20〕) →F“YP=”: Z〔22〕+ Z〔16〕sin(Z〔20〕)+W Z〔17〕cos(Z〔20〕) →GZ〔20〕+90WL2÷(BRπ)→Z↵Goto 5↵Lbl 2↵If P> Z〔4〕:Then Goto 3:IfEnd↵P- Z〔1〕→L:90(2L-B) ÷R÷π→Z〔13〕↵Rsin(Z〔13〕)+ Z〔8〕→Z〔16〕:R(1-cos(Z〔13〕))+ Z〔6〕→Z 〔17〕↵“XP=”: Z〔21〕+ Z〔16〕cos(Z〔20〕)-W Z〔17〕sin(Z〔20〕) →F“YP=”: Z〔22〕+ Z〔16〕sin(Z〔20〕)+W Z〔17〕cos(Z〔20〕) →GZ〔20〕+W Z〔13〕→Z↵Goto 5↵Lbl 3↵If P> Z〔5〕:Then Goto 4:IfEnd↵Z〔5〕-P→L:L→Z〔14〕:C→Z〔15〕:Prog”-FY”↵“XP=”: Z〔23〕- Z〔16〕cos(Z〔19〕)-W Z〔17〕sin(Z〔19〕) →F“YP=”: Z〔24〕- Z〔16〕sin(Z〔19〕)+W Z〔17〕cos(Z〔19〕) →GZ〔19〕-90WL2÷(CRπ)→Z↵Goto 5↵Lbl 4↵P- Z〔5〕→L↵“XP=”:X+(T+L)cos(Z〔19〕) →F“YP=”:Y+(T+L)sin(Z〔19〕) →GZ〔19〕→Z↵Lbl 5↵“D ANGLE”?H↵If H=0:Then Goto 9:IfEnd:?D↵“XB=”:F+Dcos(Z+H) →Z〔11〕“YB=”:G+Dsin(Z+H) →Z〔12〕Goto 5↵Lbl 9 (结束)-FY(子程序2)：If Z〔14〕=0:Then 0→Z〔16〕:0→Z〔17〕:Else↵Z〔14〕- Z〔14〕∧(5) ÷40(RZ〔15〕)2+ Z〔14〕∧(9) ÷3456÷(RZ 〔15〕)∧(4) →Z〔16〕↵Z〔14〕∧(3) ÷6÷(RZ〔15〕)- Z〔14〕∧(7) ÷336÷(RZ〔15〕)∧(3)+ Z〔14〕∧(11) ÷42240÷(RZ〔15〕)∧(5) →Z〔17〕↵IfEnd （结束）CASIO fx-5800p道路匝道坐标放样程序简化使用程序说明：本程序根据主线坐标放样程序的思想编写，原理相同，优点相同，使用相同。
卡西欧5800道路工程综合程序
卡西欧fx-5800P坐标正反算、高程及边坡放样程序《ZS》正算主程序Lb1 0：“K=”?S(所求里程)：“PJ=”?Z(偏距，左偏负右偏正)：Prog “PM-SJ”： Abs(S-O) → W：Prog "SUB1"↙Fix 3： "XS="：X◢（计算得X坐标）"YS="：Y◢（计算得Y坐标）Norm 2："FW=":F-90→F：F►DMS◢（所求里程设计线处切线方位角）Prog“SQX-SJ”： Prog“SQX”： Fix 3: “H=”：H◢（设计线处该里程的设计高程）Norm 2：Goto 0《FS》反算主程序Lb1 0：“GK=”?S（所求点的估计里程，目的调取数据库）：?X：?Y：Prog“PM-SJ”： X →I： Y→J：Prog "SUB2"：Fix 3:"K="： O+W→S◢（所求点的里程）"PJ="： Z◢(所求点的偏距，左偏负右偏正)Prog“SQX-SJ”：Prog“SQX”：“H=”：H◢（反算求的里程设计线处设计高程）Norm 2↙Goto 0（此处的Goto 0做《LJWF-2JBP》路基挖方2级边坡放样的子程序时要去掉）《SUB1》正算子程序1÷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+FWD))+Asin(G+QEMW(C+MWD))) → Y：G+QEW(C+WD)+90→F：X+Zcos(F)→ X：Y+Zsin(F)→Y《SUB2》反算子程序G-90→T： Abs((Y-V)cos(T)-(X-U)sin(T)) → W： 0→ Z：Lbl 0：Prog "SUB1"：T+QEW(C+WD) →L：(J-Y)cos(L)-(I-X)sin(L) → Z：If AbsZ<0.000001：then Goto1：Else W+Z→W：Goto 0：If End←┘Lbl 1：0→Z：Prog "SUB1"：(J-Y)÷sin(F)→ Z《PM-SJ》子程序（平面线形数据库）If S≥34600（线元起点里程）And S＜35613.616（线元止点里程）：Then 2467949.131 →U（线元起点X坐标）:536385.574 →V（线元起点Y坐标）：34600 →O（线元起点里程）：202°10°11.1°→G（线元起点切线方位角）：1013.616 →H（线元长度）：10^（45）→P （线元起点曲率半径）：10^（45）→R（线元终点曲率半径）：0 →Q（线元左右偏标志：左负右正，直线为0）：If End ↙If S ≥35613.616And S＜35723.616：Then 2467010.452→U：536003.084→V：35613.616→O：202°10°11.1°→G：110→H：10^（45）→P：2800→R：-1→Q：If End←┘If S≥35723.616And S＜36520.648：Then 2466908.316→U：535962.244→V：35723.616→O：201°02°39.47°→G：797.032→H：2800→P：2800→R：-1→Q：If End←┘If S≥36520.648 And S＜36630.648:Then 2466133.988 →U:535785.048→V：36520.648 →O:184°44°5.31°→G：110 →H：2800→P：10^（45）→R：-1 →Q：If End ↙If S ≥36630.648And S＜36687.250：Then2466024.256→U：535777.405→V：36630.648→O：183°36°33.68°→G：56.602→H：10^（45）→P：10^（45）→R：0→Q：If End ←┘（可以一直往下加数据库）《SQX-SJ》子程序（竖曲线数据库）If S≤36687.250（竖曲线终点里程）：Then +0.0053（前坡度：上坡正下坡负）→E：-0.004（后坡度：上坡正下坡负）→F：15000→R（竖曲线半径）：35500→G（变坡点里程）：98.920→C（变坡点高程）：If End←┘（可以一直往下加数据库）《SQX》子程序（竖曲线计算公式）E-F→J：If J＞0：Then-R→R：Else R→R：Abs（R×J÷2）→T：If End←┘If S≤G-T：Then G-S→L：C-LE→H：If End←┘If S＞G-T And S≤G： Then G-S→L：（S+T-G）^2÷2÷R→N：C-LE+N → H：If End←┘If S＞G And S≤G+T： Then S-G→L：（G +T- S）^2÷2÷R→N：C+LF+N → H：If End←┘If S＞G+T ：Then S-G→L： C+LF → H：If End←┘三、使用说明(1) 以道路中线的前进方向（即里程增大的方向）区分左右；当线元往左偏时，Q=-1；当线元往右偏时，Q=1；当线元为直线时，Q=0。
FX5800计算器公路全线坐标正、反算计算程序
5800计算器公路全线坐标正、反算计算程序FX5800全线贯通万能正、反算程序（一体化、超好用、短小、易懂）FX5800计算器的积分程序（正反算、全线贯通、新线路）终极版ZHUCHENGXU主程序"1.ZS,2.FS" ?→Q←┘输入1正算，输入2反算“NEW=0,OLD≠0”?Z←┘IfZ=0:Then“X0=”?A:“Y0=”?B:“C0=”?C:“1/R0=”?D:“1/RI=”?E:“SP=”?F:“EP=”?G:Ifend:Q=2=>Goto 2←┘Lbl1 :“KM=,<0 Stop”?H:H<0=>Stop:“PJ=”?O:“PY=”?L←┘LblZ:Z=1=> Prog“01”：Z=2=> Prog“02”←┘选择数据库文件，可增加H- F→X:0.5(E-D)÷(G-F)→N←┘C+(XD+NX2)*180÷π→P：P<0=>P+360→P：P>360=>P-360→P←┘-A+∫(cos(C+(XD+NX2)*180÷π),0,X)+Lcos(P+O)→U←┘B+∫(sin(C+(XD+NX2)*180÷π),0,X)+Lsin(P+O)→V←┘Q=2=>Goto4：Cls：Fix 3←┘"Xn=":Locate4，1，U："Yn=": Locate5，2，V：“FWJ=”：PDMS◢Norm 2：Cls：Goto1←┘Lbl2:“XD=,<0,STOP”？R：R<0=>Stop:“YD=”？S←┘“KMDG=”？H ：90→O:0→L：GotoZ←┘（H线路范围内的任意桩号）Lbl4:Pol（R-U，S-V）：J<0 => J+360→J←┘Whileabs（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 :Ifend:Goto3: Whileend：H+Icos（J-P）→H:GotoZ←┘Lbl3:Cls：Fix 3←┘“KM=”: Locate4，1，H：“PY=”: Locate4，2，L◢Norm 2：Cls：Goto2←┘01（数据库子程序）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、正算子程序为积分公式编写而成；反算子程序为角度趋近的方法编写，计算速度有点慢。
卡西欧5800p三维坐标计算程序(交点法)
卡西欧5800p 三维坐标计算程序(交点法)ROAD-000 Deg: Fix 3:20 →DimZ ↙ "ZS[1],FS[2]"?J If J=l: Then Goto θ:Else Goto 4: IfEnd ↙ Lbl θ↙ "XS"?U:"YS"?V ↙ Lbl 1↙ "KP"?P ↙ Prog "ROAD- DATA "↙ M+0→N ↙ Prog "ROAD- SUB1 "↙ Prog "ROAD- SUB2 "↙Cls ：＂XP=＂:Locate6,1,F:（X 坐标在第一行第六列显示）＂YP=＂:Locate5,2,G: （Y 坐标在第二行第五列显示）＂ZH=＂:Locate4,3,P:Locate12,3,＂FWJ=＂: （桩号在第三行第四列显示） Z ▶DMS ◢ Prog ＂SQX-JDF ＂ （方位角在第四行显示） If U=θ:Then Goto 3:Else Pol(F-U,G-V):IfEnd ↙Lbl 2↙ If J<θ: Then J+360→J: IfEnd ↙"A1=":J ▶DMS ◢ "Dl=":I ◢ Lbl 3↙"DANGLE"(输入边距夹角)?H:If H=θ:Then Goto 1:IfEnd:?D (输入边距)↙ "XB=":F+DCos(Z+H)→Z[11]:"YB=":G+DSin(Z+H)→Z[12]:Cls ：＂XB=＂:Locate6,1, Z[11]: （X 坐标在第一行第六列显示）＂YB=＂:Locate5,2, Z[12]: （Y 坐标在第二行第五列显示）＂ZH=＂:Locate4,3,P:Locate9,3,＂BJ=＂:Locate12,3,D: （桩号在第三行第四列显示） Prog ＂SQX-JDF ＂If U=θ:Then Goto 3:Else Pol(Z[ll]-U,Z[12]-V):IfEnd ↙Goto 2 ↙ Lbl4 ↙ "XB"?U:"YB"?V:"KP"?P ↙Lbl 5↙ Prog"ROAD-DATA"↙ M+0→N ↙Prog "ROAD-SUB1 "↙ Prog "ROAD-SUB2 "↙Z-90→A ↙ (V-G)Cos(A)-(U-F)Sin(A)→H ↙If Abs(H)>0.0001:ThenP+H →P:Goto 5:IfEnd ↙"K=":P ◢ "D=":(G-V)÷Sin(A)→D ◢ Goto4↙ROAD-SUBlIf O<θ: Then -1→W ：Else1→W:IFEnd: WO →A ↙B 2÷24÷R- B^(4)÷2688÷R^(3)+B^(6)÷506880÷R^(5)→Z[6]↙C 2+24÷R-C^(4)÷2688÷R^(3)+C^(6)÷506880÷R^(5)→Z[7]↙B÷2- B^(3)÷240÷R2+B^(5)÷34560÷R^(4)→Z[8]↙C÷2- C^(3)÷240÷R2+C^(5)÷3456÷R^(4)→Z[9]↙Z[8]+(R+Z[7]-(R+Z[6])Cos(A))÷Sin(A)→Z[18]↙Z[9]+(R+Z[6]-(R+Z[7])Cos(A))÷ Sin(A)→T↙RAπ÷180+(B+C)÷2→L↙ L-B-C→Z[19]↙(R+(Z[6]+Z[7])÷2)÷Cos(A÷2)-R→E↙K-Z[18]→Z[1]↙ Z[1]+B→Z[2]↙ Z[2]+ Z[19]÷2→Z[3]↙Z[1]+L- C→Z[4]↙ Z[4]+C→Z[5]↙ROAD-SUB2X- Z[18]cos(M)→F:Y- Z[18]in(M)→G↙If P>Z[1]:Then Goto 1: IfEnd↙X-F:Y→G:P-K→Z[16]:θ→Z(17]:M→A:M→Z:Goto 5↙Lbl1↙ If P>Z[2]: Then Goto2: IfEnd↙P-Z[1]→L:L→Z[14]: B→Z[15]: Prog "ROAD- SUB3"↙WZ[17]→Z[17]:M→A:M+90WL2÷(BRπ)→Z: Goto5↙Lbl2↙ If P>Z[4]: Then Goto 3: IfEnd↙P-Z[1]→L:90(2L-B)÷R÷π→A↙RSin(A)+Z[8]→Z[16]:W(R(l-Cos(A))+Z[6])→Z[17]↙M+WA→Z: M→A: Goto 5↙Lbl3↙ If P>Z[5]:Then Goto 4: IfEnd↙Z[5]-P→L:L→Z[14]:C→Z[15]: Prog "ROAD- SUB3"↙X+TCos(N)→F: Y+TSin(N)→G↙-Z[16]→Z[16]:WZ[17]→Z[17]:N→A:N-90WL2÷(CRπ)→Z:Goto5↙Lbl4↙X→F:Y→G:P-Z[5]+T→Z[16]:θ→Z[17]:N→A:N→Z:Goto5↙Lbl5↙F+Z[16]Cos(A)-Z[17]Sin(A)→F↙G+Z[16]sin(A)+Z[17]Cos(A)→G↙If Z<θ: Then Z+360 →Z: IfEnd↙ROAD-SUB3If Z[ 14] =θ:Thenθ→Z[16]:θ→Z[l7]:Else↙Z[14]-Z[14]^(5)÷40÷(RZ[15])2+Z[l4]^(9)÷3456÷(RZ[l5])^(4)→Z[16]↙Z[14]^(3)÷6÷(RZ[15])-Z[14]^(7)÷336÷(RZ[15])^(3)+Z[14]^(11)÷42240÷(RZ[15])^(5)→Z[17]↙IfEnd↙ROAD-DATA4695.549→D:6239.502→E:If P≦E:Then5065.776 → K:64971.195→X: 4498337.276→Y: 271°38’42.5”→M: -35°33°8.7°→ O: 600→R:80→B:80 → C: Goto 1:IfEnd↙E→D: 6721.764 → E:If P≦E: Then 6490.625 → K: 65936.919→ X: 498586.969→Y: 236°05'33.8"→M: 34° 36' 47.3" → O: 500→ R:120→B: 130→C:Goto 1:IfEnd↙E → D: xxx →E:If P≦E: Then …… Goto l:IfEnd↙Lbl 1:If P<4695.549 Or P>xxx:Then Cls:Locate 5,2,"KPERROR"◢Stop: Ifend: Return↙数据库说明:计算起点或本交点ZH桩号→D:计算终点或下一个交点ZH点桩号→E:If P ≦E:Then本交点桩号→K:交点X坐标→X:交点Y坐标→Y:交点上直线方位角→M:交点转角(左负右正)→O:本交点平曲线半径→R:第一缓和曲线长度→B:第二缓和曲线长度→C:Goto 1: IfEnd↙"使用使用说明：1、以道路中线的前进方向（即站在线路中线面向大里程方向）区分左右。
公路路线高程、坐标计算程序(fx-5800P)说明
3
公路路线高程、坐标联合计算程序说明（不能使用，仅供编程参考）
6、界面显示
首先启动你事先编制好的某路线的数据库（主程序），将会逐步显示下图信息：
说明
说明
转存竖曲线要素
L=0 =＞Return ：Cls：Norm 1 ” ZHC：GC YS”：Locate 10,3,L：2N+3L →DimZ For 1→B To L：Locate 5,3,B List X[B] →Z[2N +B]：List Y[B] →Z[2N+L+B]：List Freq[B] →Z[2N+2L+B]
7、程序清单
线元法主程序一
（程序名称任意，自己清楚就行；每条线路或每个匝道一个主程序。主程序其实是竖曲线要素和平曲线要素的数据库）
源程序
说明
竖曲线特征点个数→L ：平曲线特征点个数→N
反算点的范围（距中线的距离）→W
平曲线桩号 1 的 X 坐标
→X
平曲线桩号 1 的 Y 坐标
→Y
平曲线桩号 1 的切线方位角 →T
交点法计算主点 桩号 计算平曲线特征点
(主点) X、Y、α
转存竖曲线要素
线元法转存平曲 线要素 计算平曲线特征点 (主点) X、Y、α
正反算选择界面
正反算选择界面
显示平曲线有效桩 号范围，桩号输入
桩号 K 对应的设计 高程 H 和中桩坐标 X/Y
切线的坐标方位角
输入边桩距中桩的 距离 输入右边桩(或左 边桩与中桩的连线 在路线右侧的延长 线)与切线的右夹 角(0～180°) 左边桩坐标 LX/LY 和右边桩坐标 RX/RY
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”，输入曲线参数，计算曲线要素。
卡西欧CASIO fx-5800 道路坐标放样程序
卡西欧CASIO fx-5800 道路坐标放样程序源程序包括：一个主程序和两个子程序主程序：PRO-ROAD行号程序说明1 Deg：Fix3：26→DimZ2 “X（JD1）”?X：“Y(JD1)”?Y：“X（JD0）”?M：“Y(JD0)”?N3 Prog”SUB-QXYS1”4 Pol(X-M,Y-N)：J→Z[20]：J+O→Z[19]5 X-Scos(Z[20]) →Z[21]：Y-Ssin(Z[20]) →Z[22]6 X+Tcos(Z[19]) →Z[23]：Y+Tsin(Z[19]) →Z[24]7 “X0”?U：”Y0”?V8 Lbl 09 “KP”?P：IFP>Z[1]：Then Goto 1 ：IfEnd10 Z[1]-P→L11 “XP=“：X-(S+L)cos(Z[20]) →F12 “YP=“：Y-(S+L)sin(Z[20]) →G13 Z[20] →Z ：Goto 514 Lbl 115 If P>Z[2] ：Then Goto 2 ：IfEnd16 P-Z[1] →L ：L→Z[14]：B→Z[15]：Prog”SUB-HXY”17 “XP=“：Z[21]+Z[16]cos(Z[20]-WZ[17]sin(Z[20]) →F18 “YP=“：Z[22]+Z[16]cos(Z[20]-WZ[17]sin(Z[20]) →G19 Z[20]+90WLL÷(BRπ) →Z20 Goto 521 Lbl 222 If P>Z[4] ：Then Goto 3 ：IfEnd23 P-Z[1] →L ：90(2L-B)÷R÷π→Z[13]24 Rsin(Z[13])+Z[8] →Z[16]：R(1-cos(Z[13]))+Z[6] →Z[17]25 “XP=“：Z[21]+Z[16]cos(Z[20])-WZ[17]sin(Z[20]) →F26 “YP=“：Z[22]+Z[16]sin(Z[20])-WZ[17]cos(Z[20]) →G27 Z[20]+WZ[13] →Z28 Goto 529 Lbl 330 If P>Z[5]：Then Goto 4：IfEnd31 Z[5]-P→L：L→Z[14]：C→Z[15]：Prog”SUB-HXY”32 “XP=“：Z[23]-Z[16]cos(Z[19])－WZ[17]sin(Z[19]) →F33 “YP=“：Z[24]-Z[16]sin(Z[19])＋WZ[17]cos(Z[19]) →G34 Z[19]－90WLL÷(CRπ) →Z35 Goto 536 Lbl 437 P－Z[5] →L38 “XP=“：X＋(T+L)cos(Z[19]) →F39 “YP=“：Y＋(T+L)sin(Z[19]) →G子程序1：SUBQXYS1子程序2：SUB-HXY40 Z[19] →Z41 Lbl 542 If Z<0 ：Then Z+360→Z：IfEnd43 “BP=“：Z DMS44 If U=0：Then Goto 7：Else Pol(F-U,G-V)：IfEnd45 Lbl 646 If J<0：Then J+360→J：IfEnd47 “A1=“：J DMS48 “D1=“：I49 Lbl 750 “D ANGLE”?H：IfH=0：Then Goto 0 ：IfEnd ：?D51 “XB=“：F+Dcos(Z+H) →Z[11]52 “YB=“：G+Dsin(Z+H) →Z[12]53 If U=0：Then Goto 7：Else Pol(Z[11]-U,Z[12]-V)：IfEnd54 Goto 6行号程序说明1 “ANGLE”?O：?R：”LS1”?B：”LS2”?C：”K(JD1)”?K2 If O<0：Then -1→W：Else 1→W：IfEnd：WO→A3 B2÷24÷R－B^(4)÷2688÷R^(3)＋B^(6)÷506880÷R^(5) →Z[6]4 C2÷24÷R－C^(4)÷2688÷R^(3)＋B^(6)÷506880÷R^(5) →Z[7]5 B÷2－B^(3)÷240÷R2＋B^(5)÷34560÷R^(4) →Z[8]6 C÷2－C^(3)÷240÷R2＋C^(5)÷34560÷R^(4) →Z[9]7 “T1=“：Z[8]＋(R＋Z[7]－(R＋Z[6])cos(A))÷sin(A) →S8 “T2=“：Z[9]＋(R＋Z[6]－(R＋Z[7])cos(A))÷sin(A) →T9 “L=“：RAπ÷180＋(B＋C)÷2→L10 “LY=“：L－B－C→Q11 “E=“：(R＋(Z[6]＋Z[7])÷2)÷cos(A÷2)－R→E12 “K(ZH)=“：K－S→Z[1]13 “K(HY)=“：Z[1]＋B→Z[2]14 “K(QZ)=“：Z[1]＋L÷2＋(B－C)÷4→Z[3]15 “K(YH)=“：Z[1]＋L－C→Z[4]16 “K(HZ)=“：Z[4]＋C→Z[5]行号程序说明1 If Z[14]=0：Then 0→Z[16]：0→Z[17]：Else2 Z[14]－Z[14]^(5)÷40÷(RZ[15])2＋Z[14]^(9)÷3456÷(RZ[15])^(4) →Z[16]3 Z[14]^(3)÷6÷(RZ[15])－Z[14]^(7)÷336÷(RZ[15])^(3)＋Z[14]^(11) ÷42240÷(RZ[15])^(5) →Z[17]4 IfEnd。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
C A S I O f x-5800P计算与道路坐标放样计算
一、前言
本程序是《CASIO fx-5800P计算与道路坐标放样计算》中道路坐标放样计算程序的升级改进版本。
原道路坐标放样计算程序只基于道路的单个基本型曲线，有效计算范围仅包括平曲线部分和前后的两条直线段，使用时需要输入平曲线设计参数，无坐标反算桩号功能。
改进后的程序名称为：道路中边桩坐标放样正反算程序（全线贯通），增加了可实现全线贯通的数据库功能和坐标反算桩号功能，主要是：
1．使用道路平面数据库子程序，可将一段或若干段道路的交点法格式平面参数（可容易从直线、曲线及转角表中获得）以数据库子程序形式输入计算器，程序在计算时省却了输入原始数据的麻烦；
2．坐标正算方面，输入桩号即可进行道路的中、边桩坐标计算，若输入了测站坐标，还可同时计算全站仪极坐标放样数据（拨角和平距）；
3．坐标反算方面，输入平面坐标，即可计算对应的桩号和距中距离（含左右信息）；
4．对于存在断链的道路，可分段分别编写数据库子程序，然后在主程序中添加一个路段选择的功能即可实现
程序的特点：
1．可进行中桩坐标的正、反算，程序代码简洁，便于阅读和改写；
2．主程序通过调用数据库子程序，省却了使用时输入平面参数的繁琐；
3．使用数据库子程序，换项目只需改写数据库子程序，程序通用性强。
程序代码
计算器操作正算说明记住要输入正算1
C匝道计算结果。