卡西欧5800程序完整版

卡西欧5800程序完整版

＂ZS=1,FS=2＂？N: 1÷P →C:(P-R)÷(2HPH)→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+Q EFW（C+FWD））+Asin（G+QEMW（C+MWD）））→Y：G+QEW（C+WD）+9 0→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：El se If K≤176.9 And K＞126.9: Then Goto B:Else If K≤259.562 And K＞176.9: T hen Goto C:Else If K≤309.562 And K＞259.562: Then Goto D：IfEnd:IfEnd:IfEn d:IfEnd←┚

LbI A:92094.336（起点X坐标）→U:8287.962（起点Y坐标）→V:0起点桩号→O:1 45°11＇54＂（方位角）→G:126.9（曲线长度）→H:10^(45) （起点半径）→P:10^(4 5) （止点半径）→R:+1（路线左右偏，左负右正，直线输0）→Q:Prog ＂WN＂:Got o 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．当线元为直线时，其起点、止点的曲率半径为无穷大，以10的45次方代替。3．当线元为圆曲线时，无论其起点、止点与什么线元相接，其曲率半径均等于圆弧的半径。

4．当线元为完整的缓和曲线时，起点与直线相接时，曲率半径为无穷大，以10的4 5次方代替。与圆曲线相接时，曲率半径等于圆曲线的半径，止点跟直线相接时，曲率半径为无穷大，以10的45次方代替；与圆曲线相接时，曲率半径等于圆曲线的半径。5．当线元为非完整缓和曲线时，起点与直线相接时，曲率半径等于设计规定的值；与圆曲线衔接时，曲率半径等于圆曲线的半径。止点与直线相接时，曲率半径等于设计规定的值；与圆曲线衔接时，曲率半径等于圆曲线的半径。

二、运行跟输入与显示说明

1.运行：ZX-WN

2.显示“CZX”输入测站：X坐标，显示“CZY”输入测站：Y坐标

3.显示：“K”输入所计算的桩号

4、显示“ZS=1,FS=2”，选择计算方式，输入1正算；输入2反算

5.输1开始正算

6.显示“JJ”正交输90，斜交输跟路线的夹角

7.显示“PJ”输入边桩偏距，左负右正，中桩输0

8.显示“ZX=”所求点的X坐标

9.显示“ZY=”所求点的Y坐标10.显示“QXFWJ”所求点的切线方位角

11.显示“PJ1” 所求点再骗距离，输0为不再左右偏，可以直接出方位角、距离，本项适用于桥梁桥台、盖梁、涵洞八字墙等放样，以路线前进方向，左+，右-。只限于直线）

12. 显示“JJ1”再偏输入夹角（正交输90，）

13. 显示“X1”所求点X坐标

14. 显示“Y1”所求点Y坐标

15. JL=仪站与测点的距离

16. FWJ=仪站与测点的方位角

17. 反算时输入：显示“显示“ZS=1,FS=2”，选择计算方式，输入2反算

18. 显示“X？”输入反算时所求点的X坐标

19. 显示“Y？”输入反算时所求点的Y坐标

20. 显示FSZH=反算时，计算得出的所求点的里程

30. 显示FSJL=反算时，计算得出的所求点的边距（负为左偏，正为右偏）