(交点法)fx-5800P正反算放样程序
5800坐标计算程序交点法
CASIO FX—5800P交点法计算中边桩坐标1、主程序Lbl0 :90→C: "ZH”? Q：Prog“JDSJ”：“JL”? W：“J IAJIAO”? K:Goto1Lbl1： R= 0 => Goto3： Abs(B)πR÷180-(L+M)÷2→G：M→S: 1→Z Lbl2:S^2÷24÷R-S^(4)÷2688÷R^(3)→P:S÷2-S^(3)÷240÷R^2→O：IfZ=1:Then L→S:P→U:O→V:(R+U-(R+P)cos(Abs(B)))÷sin(Abs( B))+O→T:(R+P-(R+U)cos(Abs(B)))÷sin(Abs(B))+V→S:F-T→D:Q≤D=>Goto3If Q ≤ D+L: Then Q - D →J : L →U: Goto 4: IfEndIf Q ≤ D+L+G: Then Q-D-L→J: Goto 5: IfEndIf Q ≤ D+M+L+G: Then Q - D- L- M- G →J: M →U: Goto 4: IfEnd Q > D+M+L+G => Goto0Lbl3： N+(Q - F)cos(A) →X： E+(Q - F)sin(A) →Y：A+C→S： Goto9：Lbl4:J-J^(5)÷40÷(RU)^2+J^(9)÷3456÷(RU) ^(4)→H：J^(3)÷6÷(RU) -J^(7)÷336÷(RU) ^(3)+J^(11)÷42240÷(RU)^(5) →I: J = Q-D => Goto 6Goto7:Lbl5： 90(2Q - 2D- L)÷π÷R →U： Rsin(U)+o→H: R( 1 - cos(U)) + P →ILbl6： If B< 0: Then - I→I: IfEndN -Tcos(A)+Hcos(A) - Isin(A) →X： E-Tsin(A) + Hsin(A) +Icos(A) →Y：Goto8Lbl 7： If B> 0: Then –I →I: IfEndN+Scos(A+B)+Hcos(A+B)-Isin(A+B)→X：E+Ssin(A+B)+Hsin(A+B)+Icos(A+B) →YLbl 8：R →U： If B< 0: Then –R →U: IfEndIf J=Q-D: Then C+A+90J^2÷π÷U÷L→S: Goto9:IfEndIf J= Q-D -L- M- G: Then C+A+B - 90J^2÷π÷U÷M →S: Goto9: IfEndIfQ≤D+ L+ G: ThenQ-D-L →J : C+A+90L÷π÷U+180J÷π÷U→S: Goto9: IfEndLbl 9： X+Wcos(S-90+K) →X: Y+Wsin(S-90+K) →Y：“X=”: X◢“Y=”: Y◢“U=”:(S-90+K) ◢Goto02、子程序0.1739274226 →A:0.3260725774 →B:0.3300094782→L:0.0694318442 →K:1-L →F:1-K →M:1÷P→C:(P-R) ÷(2HPR) →D:180÷π→E:G+QEKW(C+KWD) →Z [1]: G+QELW(C+LWD) →Z [2] : G+QEFW(C+FWD) →Z [3] : G+QEMW(C+MWD) →Z [4]:A cos(Z [1]) →X:X+B cos(Z[2]) →X:X+B cos(Z [3]) →X: X+A cos(Z [4])→X:U+WX→X:A sin(Z [1]) →Y:Y+B sin(Z [2]) →Y:Y+B sin(Z [3]) →Y:Y+Asin(Z [4]) →Y:V+WY→Y:G+QEW(C+WD)+90→F:“F=”:F-90+J◢X+Z cos(F-90+J) →X:Y+Z sin (F-90+J) →Y3、曲线要素If Q≤桩号：Then 交点桩号→F:交点X坐标→N:交点Y坐标→E:起点方位角→A：夹角→B:第一缓和曲线长度→L:第二缓和曲线长度→M:GotoA:If End………………Lbl A:Return程序中各变量含义：JD ── 交点桩号 FJDX ── 交点X坐标NJDY ── 交点Y坐标 EFWJ ── 起始方位角 APJ ──偏角（左-- 右+） BR ── 圆曲线半径 RLS1 ── 第一缓和曲线长 LLS2 ── 第二缓和曲线长 M。
5800计算器全线坐标计算放样正反算程序
5800计算器全线坐标计算放样正反算程序此处无法提供完整的程序，但是可以提供一些关于全线坐标计算放样正反算的基本知识。
全线坐标计算放样是指将一条曲线按照一定比例进行分割，然后计算每个分段的坐标值，最终得到完整曲线上每个点的坐标。
这个过程可以分为正算和反算两部分。
正算是根据曲线的起点、终点以及每个分段的长度，通过数学公式计算出每个分段末点的坐标，最终得到完整曲线上每个点的坐标。
反算则是根据给定的曲线上某个点的坐标，以及曲线起点到该点的距离，计算出该点在曲线上的位置。
在实际工作中，使用计算器进行全线坐标计算放样非常常见。
通常使用的计算器有5800和2000等型号，这些计算器都有相应的程序可以使用。
以下是大致的步骤：
正算步骤：
1. 选择“坐标计算放样”功能；
2. 输入曲线的起点坐标和终点坐标；
3. 输入曲线分段长度以及分段数量；
4. 计算每个分段的末点坐标；
5. 输出所有点的坐标。
反算步骤：
1. 选择“坐标计算放样”功能；
2. 输入曲线的起点坐标和终点坐标；
3. 输入参考点的坐标；
4. 输入参考点到曲线起点的距离；
5. 计算参考点在曲线上的位置；
6. 输出参考点在曲线上的坐标。
全线坐标计算放样是一项非常重要的工程测量工作，也是计算器的常见应用之一。
需要结合具体需求和计算器机型进行操作。
工程测量放样CASIO fx-5800P 直线正反算坐标计算程序
工程测量放样CASIO fx-5800P 直线正反算坐标计算程序作者：张素辉来源：《城市建设理论研究》2013年第32期【摘要】介绍工程测量放样中CASIO fx-5800P直线正反算计算程序，主要应用于结构物的坐标计算。
【关键词】坐标；计算；CASIO；程序中图分类号：P123 文献标识码：A【引言】对于一个工程测量技术人员来说，能够掌握和运用测量基础知识，正确、熟练地使用计算器（如CASIO fx-5800P）编程和运用，才能在野外方便快捷的计算、复核大地坐标，并能结合全站仪准确、方便的放样。
在此谨以我在施工测量中编辑、调试、实用的CASIO fx-5800P 直线正反算程序奉送读者。
一、主程序名：ZXZFSDeg：Fix 3：20→DimZ↙（设置程序参数）＂DK(QD)＂?A（输入起点桩号）：＂X(QD)＂？B（输入起点坐标X）：＂Y(QD)＂？C （输入起点坐标X）：＂X(ZD)＂?U（输入终点坐标X）：＂Y(ZD)＂?V↙（输入终点坐标Y）“DJ=”：POL(U-B,V-C)：I → M◢(显示直线平距)“FWJ=”：if JGoto0↙ElseJ → N:N▲DMS◢ (显示直线方位角)Goto0 ↙(直线参数设置完成)Lbl 0↙N→F：＂1=>XY.2=>DK＂：＂J＂？W↙（条件选择：输入数字1为正算，输入数字2为反算）If W=1：Then Goto 1：Else If W=2：Then Goto 2：IfEnd↙Lb1 1↙（正算）＂JSDK＂？E（输入待求点的桩号）：＂PJ＂?G（输入待求点偏距）：＂PA＂？H↙（输入待求点偏角左-右+）＂X=＂：B+(E-A) ×cos(F)+G×cos(F+H)→X◢＂Y=＂：C+(E-A) ×sin(F)+G×sin(F+H)→Y◢（计算出待测点的坐标X,Y）＂CZD(X)＂？S ↙（设置全站仪测站坐标X）IfS=0：ThenGoto 1：Else （当测站坐标X输0时，不计算放样数据）＂CZD(Y)＂？T：↙（设置全站仪测站坐标Y）＂FY-PJ=＂：Pol(X-S，Y-T)：I→M◢＂FY-FWJ=＂：If JGoto1↙Else J→Z[1]：Z[1] ▲DMS◢（计算出放样平距及放样坐标方位角）Goto 1↙（正算循环）Lb1 2↙（反算）＂X=＂？K：＂Y=＂？L↙（输入全站仪测量点的坐标X,Y）Pol(K-B，L-C)：I→D：If JIf FSin(Ｏ)×D→Q↙＂DK=＂：A+Q÷tan(Ｏ)→R◢(反算测量点的桩号)＂PJ=＂：sin(Ｏ)×D→Q：If FGoto 2↙Else -1×Q→Q◢（反算出测量点距离直线的偏距：负值为左偏，正值为右偏） Goto2↙ ·（反算循环）备注：1、◢为显示指令。
曲线任意里程中边桩坐标正反算及放样fx-5800程序
曲线任意里程中边桩坐标正反算及放样fx-5800程序文章提要：利用Gauss-Legendre 5点通用公式结合FX-5800计算器，计算线路中边桩坐标并计算放样数据，利用待求点至线元起点切线作垂线，逐次迭代趋近原理反算里程及边距。
1 计算原理与程序功能1.1计算原理利用Gauss-Legendre 5点通用公式计算线路中边桩坐标并计算放样数据。
利用待求点至线元起点切线作垂线，逐次迭代趋近原理反算里程及边距。
1．2程序功能本程序由两个主程序——正算主程序(GSZS)、反算主程序(GSFS)和两个子程——子程序(SUB1)、线元数据库(DAT-1)构成，可以根据曲线段——直线、圆曲线、缓和曲线（完整或非完整型）的线元要素（起点坐标、起点里程、起点切线方位角、终点里程、起点曲率半径、止点曲率半径）及里程边距或坐标，对该曲线段范围内任意里程中边桩坐标进行正反算。
并且所有线形的计算模型公式只有一个,由于加入了数据库(DAT-1)，可实现坐标正反算的全线贯通。
一、坐标计算源程序1.主程序(zcx)Lbl 3 :”Z F”?V:IF V=Z:Then prog” DAT -1”: prog ” GSZS”:IfandIF V=F Then prog”dat-1”: prog ” GSFS”:IfEndGOto 32. 正算子程序(GSZS)I:S:O:G:H:P:R:Q:(P-R)/(2(H- O)PR)→D:K:”L(-z +y)”?L:”ANG(YJJ)”?M:Abs(k-O)→J: prog”SUB1”:”FWJ=”:F-M→F▲“X=”:X→X▲“Y=”:Y→Y▲3. 反算子程序(GSFS)“X”?→Z【2】: “Y”? →Z【3】:I:S: O:G:H:P:R:Q:(P-R)/(2(H- O)PR) →D:Abs((Y-S)COS(G-90)-(X-I)SIN(G-90) )→J：0→L:90→M: Lbl 0: prog”SUB1”:(Z【3】-Y)COS(G-90+QJ(1/P+JD)*180/π)-(Z【2】-X)SIN(G-90+QJ(1/P+JD)*180/π)→L:IfAbs(L)<1*10-6:Then GOTO 1:Else J+L→J:GOto 0:IfEnd:lbI 1:0→L:Prog“SUB1”:(Z 【3】-Y)/SIN(F) →L: “K=”: O+J→K▲“L=”:L→L▲3. 子程序(SUB1)4→DimZ:0.1184634425→A:0.2393143352→B：0.2844444444→Z【4】:0.0469100770→C：0.2307653449→E：0.5→Z【1】:I+J(ACOS(G+QCJ(1/P+CJD)*180/π)+BCOS(G+QEJ(1/P+EJD)*180/π)+Z【4】COS(G+QZ【1】J(1/P+ Z【1】JD)*180/π)+BCOS(G+Q(1-E)J(1/P+1-E)JD)*180/π)+ACOS(G+Q (1-C )J(1/P+(1-C)JD)*180/π))→X:S+J(ASIN(G+QCJ(1/P+CJD)*180/π)+BSIN(G+QEJ(1/P+EJD) *180/π)+Z【4】SIN(G+QZ【1】J(1/P+Z【1】JD)*180/π)+BSIN(G+Q(1-E)J(1/P+(1-E)JD)*180/π)+ASIN(G+Q(1-C)J(1/P+(1-C)JD)*180/π))→Y:G+QJ(1/P+JD) *180/π+M→F:X+LCOS（F）→X：Y+LSIN（F）→Y3. 数据库(DAT-1)“Lc”?K:If K≥(线元起点里程)And K≤(线元终点里程)：Then (线元起点X坐标) →I: (线元起点Y坐标) →S: (线元起点里程) →O: (线元起点切线方位角) →G: (线元终点里程) →H:（起点曲率）→P：（终点曲率）→R:(线元走向) →Q:IfEnd(注：如有多个曲线元要素继续添加入数据库DAT-1中)二、使用说明1、规定(1) 以道路中线的前进方向（即里程增大的方向）区分左右；当线元往左偏时，Q=-1；当线元往右偏时，Q=1；当线元为直线时，Q=0。
Fx-5800p常用程序
F x-5800p 常用程序1、坐标反算（FS ）?X :?Y ?Y↙↙∟b ∣0：？：？A A ：？：？B B ↙Pol(A-X,B-Y):J Pol(A-X,B-Y):J＜＜0=>J+360J+360→→J ↙“S=S=””:I :I◢◢“T=T=””:J :J►►DMS DMS◢◢Goto 0↙说明说明::X,Y X,Y——基点坐标A,B A,B——测点坐标2、坐标正算（ZS ）∟b ∣0:0:？？S ：？：？T T ：？：？A A ：？：？B B ↙Rec(S,T)+A Rec(S,T)+A→→X ↙B+J B+J→→Y ↙“X=X=””:X ◢“Y=Y=””:Y :Y◢◢Goto 0↙说明说明::S —距离T —方位角A,B A,B——基点坐标X,Y X,Y——计算坐标3、坐标转换（ZH —H ）？N ：？：？E E ：？：？Q Q ↙∟b ∣0:0:““1.S =>D ”：“2.D =>S ”：？F ↙I f F=1:Then Goto 1:Eles Goto 2:If End End↙↙∟b ∣1:1:？？X ：？：？Y Y ↙N+X cos cos（（Q ）—Y sin sin（（Q ）→U ↙E+X sin sin（（Q ）+Y cos cos（（Q ）→V ↙“X1=X1=””：U ◢：“Y1=Y1=””：V ◢Goto 0↙∟b ∣2：？：？X X ：？：？Y Y ↙（X —N ）cos cos（（Q ）+（Y —E ）sin sin（（Q ）→U ↙（N —X ）sin sin（（Q ）+（Y —E ）cos cos（（Q ）→V ↙“X2=X2=””：U ◢“Y2=Y2=””：V ◢Goto 0↙说明：N ，E —施工坐标原点大地坐标Q —施工坐标X 轴在轴在大地坐标系大地坐标系大地坐标系中的中的中的方位角方位角X ，Y —需转换坐标F —判断符F=1F=1，施工，施工，施工→→大地，其他，大地大地，其他，大地→→施工4、竖曲线（SQX ）？A ：？B ：？D ：？T ：？R ：？Z ↙If Z ≥1：Then Goto 1：Eles Goto 2：If End End↙↙∟b ∣1：？：？C C ：A+A+Abs(Abs(Abs(（（B —A )）÷T （C —D ）—（C —D ）2÷（2R 2R））→H ↙“H=H=””：H ◢Goto 1↙∟b ∣2：？：？C C ：A+A+Abs(Abs(Abs(（（B —A )）÷T （C —D ）+(C —D ）2÷（2R 2R））→H ↙“H=H=””：H ◢Goto 2↙说明：说明：AA —起点（终点）高程B —切线交点高程C —需计算点的需计算点的桩号桩号D —起点（终点）桩号T —切线长R —半径H —C 桩号的高程Z —Z ≥1时为凸曲线，其他为凹曲线5、曲线任意里程坐标正反算1.主程序(TYQXJS)"1.SZ =>XY"："2.XY =>SZ"SZ"::？N ：1÷P →C :(P-R)(P-R)÷÷(2HPR)→D：180180÷π÷π→E :If N =1:Then Goto 1：Else Goto 2↙Lbl 1:?:?S S :?:?Z Z :Abs(S-O)→W ：Prog "SUB1""SUB1"::"XS=""XS="::X ◢"YS=""YS="::Y ◢Goto 1↙Lbl 2:?X :?:?Y Y :X →I :Y →J :Prog "SUB2""SUB2"::O+W →S:"S=""S="::S ◢"Z=""Z="::Z ◢Goto 2↙2.正算子程序(SUB1)0.1739274226→A ：0.3260725774→B ：0.0694318442→K ：0.3300094782→L ：1-L →F :1-K→M:U+W(Acos(G+QEKW(C+KWD))+Bcos(G+QELW(C+LWD))+Bcos(G+QEFW(C+FWD))+ Acos(G+QEMW(C+MWD)))→X：V+W(Asin(G+QEKW(C+KWD))+Bsin(G+QELW(C+LWD))+Bsin(G+QEFW(C+FWD))+A sin(G+QEMW(C+MWD)))→Y：G+QEW(C+WD)+90→F：X+ZcosF→X：Y+ZsinF→Y:Return↙3.反算子程序(SUB2)G-90→T：Abs((Y-V)cosT-(X-U)sinT)→W：0→Z：Lbl0：Prog"SUB1"：T+QEW(C+WD)→L：(J-Y)cosL-(I-X)sinL→Z：If AbsAbs((Z)<1E-6: Then Goto1：Else W+Z→W：Goto0↙(J-Y)÷÷sinF→Z:Return↙Lbl1：Z=0：Prog"SUB1"：(J-Y)三、使用说明1、规定(1)以道路中线的前进方向（即里程增大的方向）区分左右；当线元往左偏时，Q=-1；当线元往右偏时，Q=1；当线元为直线时，Q=0。
卡西欧fx-5800 坐标正算程序
卡西欧fx-5800 坐标正算程序“SO”算方位Lbl 0“D”：Pol(X-A，Y-B) →D◢If J≥0:Then J◢Else “J”:J+360◢IfEnd“ZZ”正算直线坐标A+Rec(Abs(P-K),Q) →XB+J→Y“X”：X+Rec(D,Q+N×90) →X◢“Y”:Y+J→Y◢P?所求桩号 A，B：起点x,y K:起点桩号 Q：方位角D：边桩距离 N？左偏“-1”右偏：“+1”X= Y= 所求点坐标“YY”正算圆曲线坐标Q+C×（P-K）÷S×180÷∏→Z“X”：A+C×S×（Sin(Z)-Sin(Q)）+Rec(D,Z+N×90) →X◢“Y”:B-C×S×（Cos(Z)-Cos(Q)）+J→Y◢P:所求点桩号 A，B：起点x,y K：起点桩号Q：方位角 S：曲线半径 D？边桩距离N？左偏“-1”，右偏“+1”X= y= 所算点坐标 C：线路左转“-1”右转“+1”“H1”正算缓和曲线坐标Abs(P-K) →LT2÷L→HL2×180÷∏÷2÷T2→VQ+C×V→ZL-L∧（3）÷40÷H2+L∧（5）÷3456÷H∧（4）-L∧（7）÷H∧（6）÷599040→EL2÷6÷H- L∧（4）÷336÷H∧（3）+ L∧（6）÷42240÷H∧（5）- L∧（8）÷H∧（7）÷（6×1612800）→FIf C<0：Then-F→F：IfEndA+E×Cos(Q)-F×Sin(Q) →X“X”：X+Rec(D,Z+M×N×90) →X◢B+E×Sin(Q)+F×Cos(Q) →Y“Y”：Y+J◢P？所求点桩号 A，B：起点x,y K:起算点里程桩号Q：前切线方位角 T（是圆曲线要素的A1）=√（根号）缓曲总长×半径C=切线线路方向左转“-1”，右转“+1“M=第一缓曲“+1”，第二缓曲”-1“N：算边桩左偏“-1”，右偏“+1”D：边桩距离坐标正算数据库例子“肇兴隧道右线数据库”Lbl 0“P”?P:“N”？N：“D”？DIf P≥16836.5 And P≤17009.624:Then 66881.803→A：14635.782→B：16836.5→K:280032030.50→Q:902.044→T:1→C: 1→M:Prog“H1”：IfEnd (第一缓曲线)If P≥17009.624 And P≤17529.681:Then 66914.52→A：14465.781→B：17009.624→K:281035049.370→Q:4700→S：Prog“YY”:IfEnd （圆曲线）If P≥17539.681 And 17702.805≥P:Then 67102.343→A：13799.117→B：17702.805→K:108059031.50→Q:902.044→T:-1→C: -1→M:Prog“H1”：IfEnd (第二缓曲线)If P≥17702.805 And P≤19550:Then 67102.343→A：13799.17→B：17702.805→K:288059031.50→Q: Prog“ZZ”：IfEnd （直线）。
5800道路坐标(正反算)程序
5800道路坐标（正反算）程序（终极版）5800道路坐标（正反算）程序1. ZBJSCX (主程序)Lbl 4："ZHENG SUAN=1 "："FAN SUAN=2"：？N：“ZH”？S：Prog“SJK0”↙1÷P→C: (P-R)÷(2HPR) →D:180÷∏→E:N=1 => Goto1： Goto2：↙Lbl 1:“BD”? Z： Abs(S-O) →W：Prog "ZS"： "X="：X◢"Y="：Y◢F-90→F：“FWJ=”：F▲DMS◢Goto4↙Lbl 2：？X：？Y：X→I：Y→J：Prog“FS”：O+W→S：“ZH=”：S◢“BD=”：Z◢Goto4↙2. ZS (正算子程序)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）→Y3. FS (反算子程序)G-90→T： Abs((Y-V)cosT-(X-U)sinT) →W：0→Z：Lbl 0：Prog "ZS"：T+QEW(C+WD) →L： (J-Y)cos（L）-(I-X)sin（L）→Z：IF Abs（Z）<0.000001：ThenGoto1:ElseW+Z→W:IfEnd:Goto0↙Lbl1:0→Z:Prog "ZS": (J-Y)÷sin（F）→Z4,SJK0( 数据库子程序)Goto1↙ (同时保存多个曲线时的指针)Lbl 1：IF S<***（线元终点里程）:Then***→G（线元起点方位角）:***→O（线元起点里程）:***→U（线元起点X）:***→V（线元起点Y）:***→P（线元起点曲率半径）:***→R（线元终点曲率半径）: ***→H（线元起点至终点长度）：0或1、-1→Q：Return:IfEnd↙Lbl 1：IF S<***（线元终点里程）:Then***→G（线元起点方位角）:***→O（线元起点里程）:***→U（线元起点X）:***→V（线元起点Y）:***→P（线元起点曲率半径）:***→R（线元终点曲率半径）: ***→H（线元起点至终点长度）：0或1、-1（直线0、左偏-1、右偏1）→Q：Return:IfEnd……………..为了便于解读，每增加一个线元增加一行语句，每增加一条曲线增加一个Lbl，每增加一个工程增加一个文件。
5800使用程序说明
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进行放样，其它计算数据仅作参考对照用。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
fx-5800 放样程序（坐标正、方算） ROAD-2（主程序） “PASSWORDS” ?I:I回车 2012→C回车 密码设置 Cls:I≠C＝＞Step Deg:Fix 3:20→DimZ回车 “ZS［1］,FS［2］”?J 回车 IfJ=1:Then Goto 0:Else Goto 4:If End回车 Lb1 0回车 “X0”?U: “Y0”?V回车 Lb1 1回车 “KP”?P回车 Prog“ROAD-DATA1” 回车 M+O(欧)→N回车 Prog “SZK1” 回车 Prog“SZK2” 回车 “X=”:Locate6,4，f:“Y=”: Locate6,4,G:G=G回车 If U=0: Then Goto 3: Else Pol(F-U,G-V): If End回车 Lb1 2回车 J<0＝＞360+ J→J:Int(J)+0.01Int(60Frac(J))+0.006 Frac(60Frac(J))→J:“F-FWJ=”:Fix5：Locate6,4，J: “F-D=”:Locate6,4，I◢ 度分秒转换 Lb1 3回车 “DANGLE” ?H: If H=0: Then Goto 1: If End: “Z-,Y+”? D 回车 F+Dcos(Z+H)→Z[11] G+Dsin(Z+H)→Z［12］ “XP=”:Locate6,4，Z[11]:”YP=”:Locate6,4，Z[12]回车 If U=0: Then Goto 3: Else Pol(Z［11］-U, Z［12］-V): If End 回车 屏幕上显示坐标、距离、方位角 Goto 2回车 Lb1 4回车 “XB”?U:“YB”?V：“KP”?P回车 Lb1 5回车 Prog“ROAD-DATA1” 回车 M+O(欧)→N回车 Prog “SZK1” 回车 Prog“SZK2” 回车 Z-90→A回车 (V-G) cos(A)-(U-F) sin(A) →H回车 IfAbs(H)>0.0001: Then P+H→P: Goto 5: If End回车 (G-V)÷sin(A) →D “K+++=”:Locate6,4，P:”D=”:Locate6,4，D◢ Goto 4 ROAD-DATA1（数据库） If P＜（该曲线止点）HZ桩号15446.188：Then 15633.836→K:3069711.846→X:402535.111→Y:37°6′9″→M:-25°48′54″→O:600→R:100→B:100→C: If End
If P≥上HZ15816.521AndP＜下HZ16789.629：Then16166.71→K：3070239.279→X:402640.38→Y:11°17′16″→M:81°3′9″→O:350→R:100→B:100→C: If End
If P≥16789.629AndP＜17335.401：Then 16966.796→K:3070202.312→X：403544.972→Y: 9°20′24″→M:- 25°44′14″→O:600→R:80→B:80→C: If End
If P≥17335.401AndP＜17711.786：Then 17436.019→K:3070390.553→X：403980.033→Y:66°36′11″→M:- 20°00′26″→O:400→R:60→B:60→C: If End
If P≥17711.7861AndP＜17962.923：Then 17841.823→K:3070670.469→X：404275.991→Y:46°35′44″→M:- 41°30′49″→O:250→R:70→B:70→C: If End 数据库说明： If P≥上曲线缓直桩号AndP＜下曲线缓直桩号：Then交点桩号→K：交点X坐标→X：交点Y坐标→ Y:路线方位角→M:路线转角→O:半径→R: 为交点第一缓和曲线长→B: 为交点第二缓和曲线长→C: If End K=交点桩号：X=交点X坐标：Y=交点Y坐标：M=路线方位角：O=路线转角：R=半径：B=第一缓和曲线长：C=第二缓和曲线长 SZK1（子程序） If O(欧)<0:Then-1→W: Else 1→W: If End: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回车 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[2]+Q÷2→Z[3] 回车 Z[1]+L-C→Z[4] 回车 Z[4]+C→Z[5] 回车 SZK2（子程序） X-S cos(M)→F:Y-S sin(M) →G回车 IfP> Z[1]:Then Goto 1: If End回车 X→F: Y→G: P-K→Z[16]:0→Z[17]: M→A:M→Z: Goto 5回车 Lb1 1回车 If P> Z[2]: Then Goto 2: If End回车 P-Z[1] →L:L→Z[14]:B→Z[15]:Prog“ROAD-SUB3” 回车 WZ[17] →Z[17]:M→A:M+90WL2÷(BRπ)→Z: Goto 5回车 Lb1 2回车 If P>Z[4]: Then Goto 3: If End回车 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: Goto 5回车 Lb1 3回车 If P>Z[5]: Then Goto 4: If End回车 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：Goto 5回车 Lb1 4回车 X→F：Y→G：P-Z[5]+T→Z[16]：0→Z[17]：N→A：N→Z：Goto 5回车 Lb1 5回车 F+Z[16]cos(A)-Z[17]sin(A) →F回车 G+Z[16] sin(A)+Z[17]cos(A)→G回车 If Z<0: Then Z+360→Z: If End回车 SZK3（子程序） If Z［14］=0: Then 0→ Z［16］:0→ Z［17］: Else 回车 Z［14］-［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] 回车 If End回车
ZS[1],FS[2]？ 1为正算，2为反算 正算时 X0-为架仪点N坐标 Y0-为架仪点E坐标 反算时 XB-为所求点N坐标 YB-为所求点E坐标 此时KP-要输入大概桩号 KP-为所求桩号 DANGLE-为交角，其中输入0时，所计算坐标为中桩，输入90度时，所计算坐标为边桩。也可计算斜角角度的坐标。 D-为边距,计算斜交角时，边距输入（边距除cos斜交角），即斜长 数字库里长链处理如下：列如长链k20+600.296=k20+600 If P≥20001.718AndP＜20600.296：Then 20311.506→K:3072581.545→X：403891.418→Y: 300°30′59″→M: 58°37′20″→O:480→R:80→B:80→C: If End回车
If P≥20600.296AndP＜22018.59：Then 21808.72→K:3074127.345→X：403868.174→Y: 359°8′19″→M: 3°35′45″→O:3500→R:0→B:0→C: If End回车
JD5交点坐标: N:3072581.545 E:403891.418 交点桩号：K20+311.506 R=480 第一缓和曲线长：80 第二缓和曲线长：80 ZH:K20+001.718 HY:K20+081.718 QZ:K20+287.724 YH:K20+492.83 HZ:K20+572.83
JD6交点坐标: N:3074127.345 E:403868.174 交点桩号：K21+808.72 R=3500 第一缓和曲线长：0 第二缓和曲线长：0 ZH:K21+698.852 HY:K21+698.852 QZ:K21+808.684 YH:K21+918.514 HZ:K21+918.514