5800交点法正反算放样程序 (可用)

合集下载

卡西欧5800程序坐标正反算[1]

卡西欧5800程序坐标正反算修改 ZX-WN （其他的程序不用改,所有程序输完后退出进行扩展变量：5→Dimz 按EXE出现Done就OK了）WN(子程序不运行）＂ ZS=1,FS=2 ＂？N: 1÷P →C:(P-R)÷(2HPR)→D:180÷π→E: If N=1: Then Goto 1: Else Goto 2: IfEnd← ┚LbI 1:1 →I:0 →Z ： Abs(K- Ｏ) →W: Prog ＂ ZS ＂← ┚F-90→F← ┚＂ JJ ＂ ?K: ＂ PJ ＂ ?L: ＂ ZX= ＂：X+Lcos(F+K) →Z[3] ◢＂ ZY= ＂: Y+Lsin(F+K) →Z[4] ◢＂ QXFWJ= ＂:F DMS ◢Abs(Z) →Z:Goto 8← ┚LbI 2: ＂ X ＂ ?I: ＂ Y ＂ ?J: Prog ＂ FS ＂ : ＂ FSZH= ＂ : Ｏ+W→K ◢＂ FSJL= ＂:Z ◢Lbl 8正算子程序（ ZS ）（不运行）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+ZcosF→X ：Y+ZsinF→Y3 反算子程序（ FS ）（不运行）G-90→T ： Abs （（ Y-V ）） cos （ T ） - （ X-U ） sin （ T ）→W ：0→Z← ┚Lbl 0← ┚prog ＂ ZS ＂： T+QEW （ C+WD ）→L ：（ J-Y ） cosL- （ I-X ）sinL→Z ：If Abs(Z) ＜ 0.001: Then Goto1 ：Else W+Z→W ：IfEnd :Goto 0← ┚ Lbl 1 ：0→Z ： Prog ＂ ZS ＂：（ J-Y ）÷sinF→ZZX-WN主程序（运行主程序是一个数据库），该程序适用于匝道，对全段完整非对称曲线计算太过麻烦）＂ CZX ＂ ?S( 仪站 X 坐标 ): ＂ CZY ＂ ?W （仪站 Y 坐标）LbI 0: ＂ K ＂?K: If K≤126.9 （第 1 条单一曲线的终点下面同上） : Then Goto A ：Else If K≤176.9 And K ＞126.9: Then Goto B:Else If K≤259.562 And K ＞176.9: Then Goto C:Else If K≤309.562 And K ＞ 259.562: Then Goto D ：IfEnd:IfEnd:IfEnd:IfEnd← ┚LbI A:92094.336 （起点 X 坐标）→U:8287.962 （起点 Y 坐标）→V:0 起点桩号→O:145°11 ＇ 54 ＂（方位角）→G:126.9 （曲线长度）→H:10^(45) （起点半径）→P:10^(45) （止点半径）→R:+1 （路线左右偏，左负右正，直线输 0 ）→Q:Prog ＂ WN ＂ :Goto WLbI B:91990.134→U:8360.388→V:126.9→O:145°11 ＇ 54 ＂→G:50→H:10^(45) →P:150 →R:+1→Q:Prog ＂ WN ＂ :Goto WLbI C:91947.609→U:8386.570→V:176.9→O:154°44 ＇ 51 ＂→G:82.662→H:150 →P:150 →R:+1→Q:Prog ＂ WN ＂ :Goto WLbI D:91867.101→U:8399.992→V:259.562→O:186°19 ＇ 19 ＂→G:50→H:150 →P: 10^(45) →R:+1→Q:Prog ＂ WN ＂ :Goto WLbI W: ＂ PJ1 ＂?T← ┚ （该项是只左右边桩再左右偏距，输 0 为不再左右偏，可以直接出方位角、距离，适用于桥梁桥台、盖梁、涵洞八字墙等放样，以路线前进方向，前 - ，后 + ）If T=0 ：Then Z[3]→Z: Z[4]→M: Goto P: Else Goto V: IfEnd← ┚LbI V: ＂ JJ1 ＂? O← ┚ （左右边桩再偏夹角，用180° 减去路线夹角）＂ X1= ＂ : Z[3]+Tcos （ F+N+ O ）→U ◢＂ Y1= ＂ :Z[4]+Tsin （ F+N+ O ）→V ◢U→Z: V→M: GotoP← ┚LbI P:Pol(Z-S,M-W): If J≤0 ：Then J+360°→J: IfEnd← ┚＂ JL= ＂:I ◢ （仪站至测点的距离）＂ FWJ= ＂:J DMS ◢ （仪站至测点的方位角）Goto01．规定以道路中线前进方向（即里程增大的方向）区分左右；当线元往左偏时Q=-1 ；当元线往右偏时， Q=1 ：当元线为直线时，Q=0 °2．当所求点位于中线时， Z=0 ；当位于中线左侧时， Z 取负值：当位于中线右侧时， Z 取正值°当线元为直线时，其起点、止点的曲率半径为无穷大，以 10 的 45 次方代替°3．当线元为圆曲线时，无论其起点、止点与什么线元相接，其曲率半径均等于圆弧的半径°4．当线元为完整的缓和曲线时，起点与直线相接时，曲率半径为无穷大，以 10 的 45 次方代替°与圆曲线相接时，曲率半径等于圆曲线的半径，止点跟直线相接时，曲率半径为无穷大，以 10 的 45 次方代替；与圆曲线相接时，曲率半径等于圆曲线的半径°5．当线元为非完整缓和曲线时，起点与直线相接时，曲率半径等于设计规定的值；与圆曲线衔接时，曲率半径等于圆曲线的半径°止点与直线相接时，曲率半径等于设计规定的值；与圆曲线衔接时，曲率半径等于圆曲线的半径°二、输入与显示说明1. 输入部分：2. . 输入3. ZS=1 ， FS=2 ，选择计算方式，输入 1 正算；输入 2 反算4. 数据库的输入5. U ？线元起点的 X 坐标6. V ？线元起点的 Y 坐标7. O ？线元起点的里程8. G ？线元的起点切点方位角9. H ？线元的长度10. P ？线元起点的曲率的半径11. R ？线元止点的曲率的半径 .12. ZY ？线元左右偏标志（左偏 Q=-1 ，右偏 Q=1 ，直线段 Q=0 ）13. 计算时：14. K ？正算时所求的里程15. JJ ？夹角，（正交90 °，斜交直接输角度）16. PJ ？偏距（左负右正）17. . 结果18. ZX= 正算时，计算得出的测点的 X 坐标19. ZY= 正算时，计算得出的测点的 Y 坐标20. QXFWJ= 正算时，测点对应中线点的切线方位角21. PJ1? ：左右桩号再偏距离，不需要时输 022. JJ1? : 左右边桩再偏角度23. JL= 仪站与测点的距离24. FWJ= 仪站与测点的方位角25. 反算时输入：26. X ？反算时所求点的 X 坐标27. Y ？反算时所求点的 Y 坐标28. 结果29. FSZH= 反算时，计算得出的所求点的里程30. FSJL= 反算时，计算得出的所求点的边距（负为左偏，正为右偏）出售 5800 计算器带主线正反算（正交 / 斜交），匝道全段正反算，全段高程（超高、加宽）中边桩出售 5800 计算器带程序1 、全路段主线坐标正反算（正交 / 斜交）2 、匝道全段坐标正反算（正交 / 斜交 )3 、全路段中边桩高程（带超高）有电子版的范例，初学者包教会，使用简单，快捷 . 让你短时间成为一个熟练的测量者。

5800公路坐标正反算程序(线元法数据输入)

坐标正反算程序程序变量说明：D：选线。

E、F:置仪点坐X、Y。

K：待算点桩号。

B：待算点距离。

Q：待算点与线路交角（以顺时针方向）。

L：线元起点至待算点长度。

O：待算点方位角。

S：线元长度。

U：线元起点半径。

V：线元终点半径。

程序运行内容说明：开机运行程序后，1、进入主程序，选择正算或反算，1为正算，2为反算。

2、选择线路，1为第线。

2为第线。

3为第线等等。

3、如果上一次计算过的话提示是不更新数线路参数，十秒钟不操作更新，按EXE不更新。

如果上一次不是计算现在要计算的线路的话直接更新数据库（数据库更新会倒计时提示）。

3、正算。

提示入入置仪点坐标。

提示输入待算点桩号。

提示输入离中桩距离。

提示输入与线路方向夹角。

结果：坐标X、Y。

距置仪点距离和方位角。

再次提示输入待算点桩号。

反算。

提示输入实测点坐标X、Y。

结果：待算点桩号程距中桩距离。

再次提示输入实测点坐标X、Y。

程序特点：1、输入参数少，只要输入线路起点的桩号、半径、方位角、XY坐标以及各线元的桩号和半径(左+右-直线×1045)即可。

2、调用变量少，本程还有A、G、H、M、N、P、R、W字母变量未使用，可以用于其它程序而不会和本程序产生冲突。

3、数据库独立，更换工程时数据更换方便。

4、界面友好，尽量做到人人都容易上手，操作一学就会。

5、程序尽量运用5800计算器各种指令，使程序速度提高。

并能够起到帮助大家学习5800各指令工作原理，以便更好掌握编程。

5800计算器公路全线坐标正、反算计算程序

5800计算器公路全线坐标正、反算计算程序正算主程序(ZS)Lb1 0FIX4：?S：?Z：Prog “PM-SJ”：Abs(S-O) → W：Prog "SUB1"："XS="：X◢"YS="：Y◢F-90→F(需要时可以让他显示，不要时不必输入)：Prog“SQX-SJ”: Prog“SQX”：“H=”：H◢Goto 0反算主程序(FS)正算子程序(SUB1)：(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+F WD))+Acos(G+QEMW(C+MWD))) → X：V+W(Asin(G+QEKW(C+KWD))+Bsin(G+QELW(C+LWD))+Bsin(G+QEFW(C+F WD))+Asin(G+QEMW(C+MWD))) → Y：G+QEW(C+WD)+90→ F：X+ZcosF→ X：Y+ZsinF→ Y反算子程序(SUB2)：Abs((Y-V)cosT-(X-U)sin（T）) → W：0→ Z：Lbl 0：Prog "SUB1"：T+QEW(C+WD) →L：(J-Y)cosL-(I-X)sinL → Z：ifAbsZ<1E-6：thenGoto1：ElssW+Z → W：Goto 0：IfEnd←┘：0→ Z：Prog "SUB1"：(J-Y)÷sinF→ Z子程序（平面线形数据库）PM-SJ1÷P→ CG-90→TLbl 1ifS ≥500（线元起点里程）AndS＜769.256（线元止点里程）：Then19942.837 →U （线元起点X坐标）：28343.561 →V（线元起点Y坐标）：500 →O（线元起点里程）：125°16°31°→G（线元起点方位角）：269.265 →H（线元长度）：10^（45）→P（线元起点曲率半径）：10^（45）→R（线元终点曲率半径）：0 →Q （线元左右偏标志：左负右正）：IfEnd←┘ifS ≥769.256（线元起点里程）AndS＜806.748（线元止点里程）：Then19787.34 →U （线元起点X坐标）：28563.378→V（线元起点Y坐标）：769.256→O（线元起点里程）：125°16°31°→G（线元起点方位角）：37.492→H（线元长度）：10^（45）→P（线元起点曲率半径）：221.75→R（线元终点曲率半径）：-1→Q（线元左右偏标志：左负右正）：IfEnd←┘ifS ≥806.748（线元起点里程）AndS＜919.527（线元止点里程）：Then19766.566→U （线元起点X坐标）：28594.574→V（线元起点Y坐标）：806.748→O（线元起点里程）：120°25°54.07°→G（线元起点方位角）：112.779→H（线元长度）：221.75→P（线元起点曲率半径）：221.75→R（线元终点曲率半径）：-1→Q（线元左右偏标志：左负右正）：IfEnd←┘ifS ≥919.527（线元起点里程）AndS＜999.812（线元止点里程）：Then19736.072 →U（线元起点X坐标）：28701.893 →V（线元起点Y坐标）：919.527→O（线元起点里程）：91°17°30.63°→G（线元起点方位角）：80.285→H（线元长度）：221.75→P（线元起点曲率半径）：9579.228→R（线元终点曲率半径）：-1→Q （线元左右偏标志：左负右正）：IfEnd←┘ifS ≥999.812（线元起点里程）：Then19744.038 →U（线元起点X坐标）：28781.659→V（线元起点Y坐标）：999.812→O（线元起点里程）：80°40°50°→G （线元起点方位角）：100→H（线元长度）：10^（45）→P（线元起点曲率半径）：10^（45）→R（线元终点曲率半径）：0 →Q（线元左右偏标志：左负右正）：IfEnd←┘子程序（竖曲线数据库）SQX-SJifS≤999.812（竖曲线终点里程）：then0.0357（前坡度：上坡正下坡负）→E：0.0227（后坡度：上坡正下坡负）→F：600→R（竖曲线半径）：780→G（变坡点里程）：110→C（变坡点高程）：IfEnd←┘子程序（竖曲线计算公式）SQXE-F→J：ifJ＞0：then-R→R：ElssR→R：Abs（R*J÷2）→T：IfEnd←┘ifS≤G-T：thenG-S→L：C-LE→H：IfEnd←┘ifS＞G-T And S≤G：thenG-S→L：（S+T-G）²÷2÷R→N：C-LE+N → H：IfEnd←┘ifS＞G And S≤G+T：then S-G→L：（G +T- S）²÷2÷R→N：C+LF+N → H：IfEnd←┘ifS＞G+T ：thenS-G→L：C+LF → H：IfEnd←┘三、使用说明1、规定(1) 以道路中线的前进方向（即里程增大的方向）区分左右；当线元往左偏时，Q=-1；当线元往右偏时，Q=1；当线元为直线时，Q=0。

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交点法计算中边桩坐标程序

交点法正反算程序主程序JD—NELBI 1："JDk="？C："JDμ="？D："Li"？L："R="？R："JDX="？U："JDY="？V："JDA="？A："（+1R，-1L）"？M："Z（+R，—L）"？B："K="？P：Prog："JD—NE1"："X="？X"▲Y="？Y▲"F="？F▲Goto 1↙子程序JD—NE1（（R+L²÷（24R））tan（D÷2）+L÷2—L³÷（240R²）→T↙C—T→I↙I+L→J↙J+πDR÷180—L→H↙H+L→K↙If P＜I：Then U+（C-P）cos（A+180°）+Bcos（A+90°）→X ↙V+（C-P）sin（A+180°）+Bsin（A+90°）→Y↙A→F：Return：IfEnd↙If P＞I And P＜J ：Then A+M×30°×（P—I）²÷（πRL）→O↙（P—I）—（P—I）²÷（90R²）→G↙U+Tcos（A+180°）+Gcos（O）→X↙V+Tsin（A+180°）+Gsin（O）→Y↙90°×（P—I）²÷（πRL）→W↙X+Bcos（A+MW+90°）→X↙Y+Bsin（A+MW+90°）→Y↙A+MW→F：Return：IfEnd↙If P＞J And P＜H ：Then A+M×90°×（L+P—J）÷（πR）→O↙2Rsin（（P—J）×90°÷（πR））→G↙U+Tcos（A+180°）+（L—L³÷（90R²））cos（A+M（30°×L）÷（πR））+Gcos（O）→X↙V+Tsin（A+180°）+（L—L³÷（90R²））sin（A+M（30°×L）÷（πR））+Gcsin（O）→X↙90°×（P—J）÷（πR）→W↙X+Bcos（O+MW+90°）→X↙Y+Bsin（O+MW+90°）→Y↙O+MW→F：Return：IfEnd↙If P＞HAnd P＜K ：Then A+MD+180°—M×30°×（P—K）²÷（πRL）→O↙K—P—（K—P）³÷（90R²）→G↙U+Tcos（A+MD）+Gcos（O）→X↙V+Tsin（A+MD）+Gsin（O）→Y↙（P—K）²×90°÷（πRL）→W↙X+Bcos（A+MD—MW+90°）→X↙Y+Bsin（A+MD—MW+90°）→Y↙A+MD—MW→F：Return：IfEnd↙If P＞K ：Then U+（T+P—K）cos（A+MD）+Bcos（A+MD+90°）→X↙V+（T+P—K）sin（A+MD）+Bsin（A+MD+90°）→Y↙A+MD→F：Return：IfEnd↙变量说明：JDk——交点桩号CJDμ——交点转角DLi——缓和曲线长度LR——圆曲线半径RJDX——交点X坐标UJDY——交点Y坐标VJDA——交点方位角A（+1R，—1L）——偏向MZ（+R，—L）——（边桩到中桩距离）BK——待求桩号PX——待求点X坐标Y——待求点Y坐标F——待求点的方位角本程序已经测试通过，第二缓和曲线起点附近有时会有1公分误差，是公式简化过程中产生的。

5800正反算、边坡放样、隧道超欠挖

正算Fix 4：?S：?Z：Prog “PM-SJ”：Abs(S-O)→W：Prog "SUB1"："XS="：X◢"YS="：Y◢F-90→F：Pro g“SQX-SJ”:Prog“SQX”：“H=”：H◢反算Fix 4: ?S：?X：？Y：Prog“PM-SJ”：X→I：Y→J：Prog "SUB2"："S="：O+W→S ◢"Z="：Z◢Prog“SQX-SJ”：Prog“SQX”：“H=”：H◢子程序(ZCXZ)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+FW D))+Asin(G+QEMW(C+MWD))) →Y：G+QEW(C+WD)+90→F：X+ZcosF→X：Y+Z sinF→Y子程序(ZCXF)G-90→T：Abs((Y-V)cos T-(X-U)sin（T）) →W：0→Z：Lbl 0：Prog "SUB1"：T+QE W(C+WD)→L：(J-Y)cos L-(I-X)sin L →Z：if Abs Z<10-6：thenGoto1：Elss W+Z →W：Goto 0：IfEnd←┘Lbl 1：0→Z：Prog "SUB1"：(J-Y)÷sin F→Z数据库SJQIf S ≥21000And S＜24242.49（线元止点里程）：Then 4688621.278→U（线元起点X坐标）：603512.559→V（线元起点Y坐标）：47016.736→O（线元起点里程）：143.47.22.47→G （线元起点方位角）：1567.632→H（线元长度）：1200→P（线元起点曲率半径）：800→R（线元终点曲率半径）：0→Q（线元左右偏标志：左负右正）：IfEnd←┘If S ≥48971.454（线元起点里程）And S＜50492.578（线元止点里程）：Then 4686877.7 32→U（线元起点X坐标）：604789.129→V（线元起点Y坐标）：48971.454→O（线元起点里程）：29/56/38.28/→G（线元起点方位角）：532.571→H（线元长度）：800→P（线元起点曲率半径）：1400→R（线元终点曲率半径）：1→Q（线元左右偏标志：左负右正）：IfEnd←┘If S ≥806.748（线元起点里程）And S＜919.527（线元止点里程）：Then 19766.566→U （线元起点X坐标）：28594.574→V（线元起点Y坐标）：806.748→O（线元起点里程）：120°25°54.07°→G（线元起点方位角）：112.779→H（线元长度）：221.75→P（线元起点曲率半径）：221.75→R（线元终点曲率半径）：-1→Q（线元左右偏标志：左负右正）：IfEnd←┘If S ≥919.527（线元起点里程）And S＜999.812（线元止点里程）：Then 19736.072→U （线元起点X坐标）：28701.893→V（线元起点Y坐标）：919.527→O（线元起点里程）：91°17°30.63°→G（线元起点方位角）：80.285→H（线元长度）：221.75→P（线元起点曲率半径）：9579.228→R（线元终点曲率半径）：-1→Q（线元左右偏标志：左负右正）：IfEnd←┘If S ≥999.812（线元起点里程）：Then 19744.038→U（线元起点X坐标）：28781.659→V（线元起点Y坐标）：999.812→O（线元起点里程）：80°40°50°→G（线元起点方位角）：100→H（线元长度）：10^（45）→P（线元起点曲率半径）：10^（45）→R（线元终点曲率半径）：0→Q（线元左右偏标志：左负右正）：IfEnd←┘子程序（竖曲线数据库）SQX-SJIf S≤999.812（竖曲线终点里程）：Then 0.0357（前坡度：上坡正下坡负）→E：0.0227（后坡度：上坡正下坡负）→F：600→R（竖曲线半径）：780→G（变坡点里程）：110→C（变坡点高程）：IfEnd←┘子程序（竖曲线计算公式）SQXE-F→J：If J＞0：Then -R→R：Else R→R：Abs（R*J÷2）→T：IfEnd←┘If S≤G-T：Then G-S→L：C-LE→H：IfEnd←┘If S＞G-T And S≤G：Then G-S→L：（S+T-G）²÷2÷R→N：C-LE+N→H：IfEnd←┘If S＞G And S≤G+T：Then S-G→L：（G +T- S）²÷2÷R→N：C+LF+N→H：IfEnd ←┘If S＞G+T ：Then S-G→L： C+LF→H：IfEnd←┘三、使用说明1、规定(1) 以道路中线的前进方向（即里程增大的方向）区分左右；当线元往左偏时，Q=-1；当线元往右偏时，Q=1；当线元为直线时，Q=0。

CASIO5800坐标正反算计算程序

CASIO 9860/5800 坐标正反算计算程序1. 坐标正算主程序（命名为ZBZS）第1 行：Lbl 0: ” K= K: ” BIAN=” Z: ” a =” B第2 行：Prog “ A”第3 行：” X仝：N+Zcos（F+B）丄第4 行：” 丫仝:E+Zsin（F+B）丄第5行：” F=” :F丄第6 行：Goto 0K――计算点的里程BIAN --- 计算点到中桩的距离（左负右正）a ---- 取前右夹角为正2. 坐标反算桩号和偏距主程序（命名为ZBFS）第1 行：” X1=” C: ” 丫1=” D: ” K1=” K第2 行：Lbl 0:Prog“A”第3 行：Pol(C-N,D-E)第4 行：List Ans[1]T I第5 行：List Ans[2]T J第6 行：Icos(F-J) T S:K+S T K第7 行：Abs(S)>=>Goto 0第8行：” K仁”：K丄第9 行：” BIAN=” ：lsin（J-F）Z JX1——取样点的X坐标Y1——取样点的Y坐标K1――输入时为计算起始点（在线路内即可），输出时为反算点的桩号Z――偏距（左负右正）3. 计算坐标子程序（命名为XYF）为了简洁，本程序由数据库直接调用，上述中的正反算主程序不直接调用此程序第1 行：K-A T S：（Q-P）- L T I第2N+/ (cos(F+X(2P+XI) X 90-n ),0,S) T N行：第3E+/ (sin(F+X(2P+XI) X 90-n ),0,S) T E行：第4F+S(2P+SI) X 90-nT F行：4. 数据库(命名为A)第1 行：K< =>Stop第2 行A: T N: T E:92 ° 26' 40 F:0 f P:1/240 f Q: f L:KC A+L =>GoTo 1 (第一缓和曲线，圆半径为240)第3 T A: T N:T E: 100 °50'"T F: 1/240 T P:1/240 T Q:T L: K C A+L =>Goto 1 (第圆曲线，半径为240)第4 T A: T N:T E: 118 °15'"T F: 1/240 T P: 0 T Q:f L: K C A+L =>Goto 1 （第二缓和曲线，圆半径为240）第5 T A: T N:T E:124 °50'"T F:0 T P:-1/180 T Q:T L:K C A+L=>Goto 1:Stop （第一缓和曲线，圆半径为180）第6 行：Lbl 1:Prog “ XYF”A――曲线段起点的里程N 曲线段起点的x坐标E 曲线段起点的y坐标F ---- 曲线段起点的坐标方位角P――曲线段起点的曲率（左负右正）Q曲线段终点的曲率（左负右正）L――曲线段长度（尽量使用长度，为计算断链方便）说明：（1 ）在9860中，程序中所有公式和部分函数结果均存储在List Ans列表数组中,要想多次调用最好随公式取出结果，并赋给变量。

卡西欧5800坐标正反算程序

卡西欧5800坐标正反算程序卡西欧5800坐标正反算程序1.主程序(TYQXJS)Lb1 4:“1.SZ=>XY”：“2.XY=>SZ”:？N:？S:Prog“SUB0”↙1÷P→C：（P-R）÷（2HPR）→D：180÷π→E:N=1=>Goto 1:Goto 2: ↙Lb1 1:?Z:Abs(S-O) →W: Prog“SUB1”:“XS=”：X◢“YS=”:Y◢F-90→F:“FS=”F▲DMS◢ Goto 4↙Lb1 2:?X:?Y:X→I:Y→J:Prog“SUB2”：O+W→S:“S=”：S◢“Z=”:Z◢Goto 4↙2.正算子程序（SUB1）0.1739274226→A:0.3260725774→B:0.0694318442→K:0.330 0094782→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+MW D)))→X:V+W(Asin(G+QEKW(C+KWD))+Bsin(G+QELW(C+LWD)) +Bsin(G+QEFW(C+FWD))+Asin(G+QEMW (C+MWD))) →Y:G+QEW(C+WD)+90→F:X+Zcos(F) →X:Y+Zsin(F) →Y↙3. 反算子程序（SUB2）G-90→T:Abs((Y-V)cos(T)-(X-U)sin(T)) →W:0→Z:Lb1 0:Prog“SUB1”:T+QEW(C+WD) →L:(J-Ycos(L)-(I-X)s in(L) →Z:If Abs(Z)〈0.000001：Then 0→Z:Prog“SUB1”:(J-S)÷sin(F) →Z:Else W+Z→W:Goto 0:IfEnd↙4. 数据库子程序（SUB0）Goto1↙同时保存多个曲线时的指针Lb1 1:If S〈 000.000（线元终点里程）：Then 000.000→G(线元起点方位角)：000.000→O （线元起点里程）：000.000→U(线元起点X坐标)：000.000→Y（线元起点Y坐标）：000.000→P(线元起点曲率半径)：000.000→R（线元终点曲率半径）：000.000→H（线元起点至终点长度）：0或1、-1→Q：Eeturn:IfEnd↙Lb1 1:If S〈 000.000（线元终点里程）：Then 000.000→G(线元起点方位角)：000.000→O （线元起点里程）：000.000→U(线元起点X坐标)：000.000→Y（线元起点Y坐标）：000.000→P(线元起点曲率半径)：000.000→R（线元终点曲率半径）：000.000→H（线元起点至终点长度）：0或1、-1→Q：Eeturn:IfEnd↙………………….为了便于解读，每增加一个线元增加一行语句，每增加一条曲线增加一个Lb1，每增加一个工程增加一个文件。

1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。

1 FX5800交点法正反算程序高程及隧道超欠挖（注：高程要算第二遍才是正确的）输入图中交点要素，输入桩号及中桩距离正算本标段任意点坐标，及坐标放样的方位角及距离：由输入大概桩号及实测坐标，反算准确桩号及距中桩距离。

1、主程序 1XY-KM LbI 0:26→DimZ: No （Norm代表一个字母） rm2:1→A: “A:X,Y= 1, KM, D=2，SD=3”?A :A=1Goto 1:A=2 Goto 2: A=3 Goto 3:LbI 1: ”XZ”?K：” YZ” ?L:K→Z[4]: L→Z [5]LbI A:Prog” QX”:90→B:”PJ”?B: B→Z[1]:LbI B:”LC ”?Z:Z=-1Goto 0: Z=－2Goto A:Prog ”X1”:Z→Q: Prog” G”: Prog” S1”:?D: Prog”Z”:I+D×COS (Z[2]+Z[1] → X:J+D ×Sin(Z[2]+Z[1] →Y 2

: Fix 3 : ”X= ” : Loca te 6, 4 ,X : ”Y=”:Lo cate6,4,Y:”FWJ”

:Locate 6,4,Z[2] :”SJG=”: Locate 6 ,4,Z[12] ◢ Prog”JS”: Goto B : 回车 LbI 2:Prog”QX”: ”LC”?Z:LbI C:pro g “X1”:”X0”?X:X= －1Goto 0:X=－2G oto 2:”Y0”?Y:Pro g “ZX”:Fix3:”LC =”:Locate 6,4,Z: ”PJ=”:Locate 6,4 ,D：Z→Q: Prog”G”: Prog”S1: Fix 3: “SJG=”: Locate 6, 4,Z[12]◢ Goto C 回车 LbI 3:Prog”QX”: “LC”?Z: LbI D: Pro 3

g “X1“：“X0”?X:X= -1Goto 0:X=－2G oto 2:”Y0”?Y:Pro g “ZX”:Fix3:”LC =”:Locate 6,4,Z:

”PJ=”:Locate 6,4 ,D：Z→Q: Prog”G”: Prog”S1: Fix 3: “SJG=”: Locate 6 , 4,Z[12]: Prog “SD “◢ Goto D 回车

2、交点法正算程序名:Z H2÷R÷24-H∧(4)÷26 88÷R∧(3)→A:H÷2-H ∧(3)÷240÷R2→B:（（

H2-N2）÷24÷R÷Sin( 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→ 4

W:0→M:H→C: (R+N2÷ R÷24-N∧(4)÷2688÷ R∧(3))tan(Abs(P) ÷2)+N÷2-N∧(3)÷24 0÷R2+E→Z[6]: O -T+ ΠR×Abs(P)÷180+H÷ 2-N÷2→Z[7]:If Z≤ O -T:Then Z-O→S:G

→Z[2]:Goto 1: IfE nd: If Z≤O -T+H:Th en 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 :Go to 2: IfEnd: 回车

If Z≤Z[7]+N:Then Z[7]+N-Z→S:Z[6] 5

→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: Retu rn:LbI 2:U+Acos( E)-WBsin(E→I:V+A Sin(E)+WBcos(E→J

3、交点法缓和段子程序（HX） S-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→M

4、交点法反算子程序名(ZX) 6

0→D:Do:Z+D→Z:Pro g“Z”:Pol(X-I,Y- J+.000000001:J-Z [2]→J:Isin(J→S:I cos(J→D: If M≠0:T hen Pol(M-WS,D:J MΠ÷180→D:IfEnd: L pWhile Abs(D)>0. 001:Z+D→Z:S→D

5、线路选择子程序（线路选择0时，则输入曲线参数(QX) 程序名：QX 1→A:”QX:？=0，X1=1 ,X2=2”?A:A→Z[3]: If A=0:Then ”JDK M”?O:”XJ”?U:”YJ” ?V:”FW”?G:”LS1”? H:“LS2”？N：“JDZJ” ？P:?R:IfEnd

6、坐标计算参数矩阵调出子程序(F) 程序名：F Mat F[1,1]→O: Mat 7

F[1,2]→U: Mat F[ 1,3]→V: Mat F[1,4 ]→G: Mat F[1,5]→H : Mat F[1,6]→N: Ma t F[1,7]→P: Mat F [1,8]→R

7：极坐放样计算程序(计算放样点至置仪点方位角及距离) 程序名：JS Z[4]→K：Z[5]→L：Po l(X-K, Y-L+.00000 00001): J<0=>J+360 →J: Int(J)+0.01In t(60Frac(J))+0.0 06Frac(60Frac(J) ) →J: Fix 4:” FWJ=” : Locate 6,4,J：回车 Fix 3:” S=”:Locat e 6,4,I

8、子程序编辑：X1 （坐标计算要素程序、暂例子只给二条线路参数） Z[3]=0 Return: Z[ 3]=1 Goto1 Z[3] 8

=2 Goto 2: 回车（第一条线路参数） LbI 1 ：If Z≤交点HZ点桩号(或者直线段桩号)36328 .621：Then[[交点桩号3615 1.464，交点X坐标2804834.57 2，交点Y坐标563823.777，前交点至止交点方位角38度 34分56.5秒，交点前段缓和曲线长度65，交点后段缓和曲线长度70，交点转角6 7度25分14.3秒，圆半径280]] →Mat F: Prog”F”: Return: IfEnd: „„„„„„„„„„„„„„„„继续添加下一交点（第二条线路参数） LbI 2:If Z≤396.166:Then [[213.698, 2600569.493, 514256.323, 238°49′17.1″,107.584,120.474, 64°39′40″, 250]]→Mat F: Prog”F”: Return: IfEnd: „„„„„„„„„„„„„„„„继续添加下一交点注：转角分正负，左偏为（负），右偏为（正）.加粗O为子母..Z[2]值为所计算点切线方位角。

9、竖曲线程序 G Lbl 0: 回车 Mat C[1,1]→Z[11] : Mat C[1,2]→Z[8] 9

: Mat C[1,3]→Z[16 ]: Mat C[1,4]→Z[9 ]: Mat C[1,5]→Z[1 0] 回车 Q→Z[13] 回车 (Z[10]- Z[9])÷100 →Z[15] :Abs(Z[16] ×Z[15]/2) →Z[14]: Z[13]≤Z[11]- Z[14 ]=> Z[8]- Z[9]÷100× (Z[11]- Z[13]) →Z[ 12] 回车 Z[13]≥Z[11]- Z[14 ]=> Z[8]- Z[9]÷100× (Z[11]- Z[13])+( Z [13]+ Z[14]- Z[11] ) 2Abs（Z[15]）÷(2 Z [15]Z[16]) →Z[12] 回车 Z[13]≥Z[11]=> Z[8] - Z[10]÷100×(Z[11 ]- Z[13])+ (Z[13]- Z[11]- Z[14]) 2Abs （Z[15]）÷(2 Z[15]Z