5800，求一简单新手级别的放样程序

5800放样程序

1、 主程序：ROAD SETUP

“XST”？X：“YST”?Y：“XBL”?C：“YBL”?D：Prog“XYSA”：“XJD”?O： “YJD”?U：“FWJ”?G：“A（AZ+，AY-）”?A：“R”?R： “LS”?L： “ZH ZH”?Z： L÷2-L^3÷(240R2)→M:13751L÷(480R) →B: L2÷(24R)-L^4÷(2688R^3) →P: M+tan(AbsA÷2)(P+R) →T:“T=”:T⊿

∏R(AbsA-2B)÷180+2L→S: “QXC=”:S⊿

P+R）（1÷cos（AbsA÷2））-R→E: “E=”:E⊿

Lbl 0:Fix3: “INPUT ZH”?H: “LK(IN-,OUT+)”?K: “XIE JIAO”?F: Abs(H-Z) →Q:IF H≥S+Z:THEN Goto4:ELSE IF H≤Z:THEN Goto5:IFEND:IFEND﹄（回车）

IF Q﹥S-L:THEN Goto2: ELSE IF Q≥L:THEN Goto1:IFEND:IFEND﹄（回车）13751Q2÷(480RL)+F→E: Prog“HHQX”： Goto3﹄（回车）

Lbl 1: 13751(Q-L)÷(240R)+B+F→E: Rsin(13751(Q-0.5L)÷(240R))

+M→C: R(1-cos(13751(Q-0.5L) ÷(240R)))+P→D: Goto3﹄（回车）

Lbl 2: S-Q→Q: AbsA-13751Q2÷(480RL)+F→E: Prog“HHQX”： C→V: D→D: T+(T-V)cosAbsA-WsinAbsA→C: (T-V)sinAbsA+WcosAbsA→D﹄（回车）

Lbl 3: C+KsinE→C: D-KcosE→D: C→V: -DA÷AbsA→D: G+180→N:

O+Rec(T,N)+VcosG-WsinG→C: U+J+VsinG+WcosG→D: Goto7﹄（回车）

Lbl 4: G+90KA÷(Abs(K+10^-7) AbsA)+360-A+F→E: O+Rec(H-S-Z+T,

G-A) →C: U+J→D: Goto6﹄（回车）

Lbl 5: G-90KA÷(Abs(K+10^-7) AbsA)+540 +F→E:

O+Rec(Z-H+T,G+180) →C： U+J→D﹄（回车）

Lbl 6： C+cosEAbsK→C: D+sinEAbsK→D﹄（回车）

Lbl 7:FIX:3:“XP=”:C⊿

“YP=”:D ⊿

Prog“XYSA”: Goto0﹄（回车）

2、 子程序：XYSA

0→I: 0→J:Pol(X-C.Y-D):Fix3:“SS=”:I⊿

Fix4: J+180→J:IntJ+Int(60FracJ)÷100+6 Frac(60FracJ)÷1000→J:“SS=”:J⊿

3、 子程序：HHQX

Q-Q^5÷(40R2L2) →C: Q^3÷(6RL)-Q^7÷(336R^3×L^3) →D

说明：

XST？输入测站点X坐标；YST？输入测站点Y坐标；XBL？输入后视点X坐标；XBL？输入后视点Y坐标； SS=计算出的测站点至后视点距离；AA=计算出的测站点至后视点方位角（已经是度分秒，直接用于对后视）；XJD？输入交点X坐标；YJD？输入交点Y坐标；FWJ？输入前一个交点至本交点的方位角；A（AZ+，AY-）？输入曲线转角（左转输正，右转输负）；R？输入半径；LS？输入缓和曲线长：ZH ZH？输入直缓点桩号：T=计算出的切线长度；QXC=计算出的曲线总长；E=计算出的外距；INPUT ZH？输入放样点桩号；LK（IN-，OUT+）？输入放样点至中桩的距离；XIE JIAO？放样点至中桩连线与法线的夹角；XP=计算出的放样点X坐标；YP=计算出的放样点Y坐标；SS=计算出的测站点至放样点距离；AA=计算出的测站点至放样点方位角（已经是度分秒，直接用于放样）；

正算子程序（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． 当线元为直线时，其起点、止点的曲率半径为无穷大，以10的45次方代替。

3． 当线元为圆曲线时，无论其起点、止点与什么线元相接，其曲率半径均等于

---