卡西欧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→Y
3 反算子程序（ 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→Z
ZX-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 W
LbI 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 W
LbI 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 W
LbI 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 W
LbI 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 ◢ （仪站至测点的方位角）
Goto0
1．规定以道路中线前进方向（即里程增大的方向）区分左右；当线元往左偏时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? ：左右桩号再偏距离，不需要时输 0
22. JJ1? : 左右边桩再偏角度
23. JL= 仪站与测点的距离
24. FWJ= 仪站与测点的方位角
25. 反算时输入：
26. X ？反算时所求点的 X 坐标
27. Y ？反算时所求点的 Y 坐标
28. 结果
29. FSZH= 反算时，计算得出的所求点的里程
30. FSJL= 反算时，计算得出的所求点的边距（负为左偏，正为右偏）
出售 5800 计算器带主线正反算（正交 / 斜交），匝道全段正反算，全段高程（超高、加宽）中边桩
出售 5800 计算器带程序
1 、全路段主线坐标正反算（正交 / 斜交）
2 、匝道全段坐标正反算（正交 / 斜交 )
3 、全路段中边桩高程（带超高）
有电子版的范例，初学者包教会，使用简单，快捷 . 让你短时间成为一个熟练的测量者。