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=计算出的测站点至放样点方位角（已经是度分秒，直接用于放样）；

5800不管什么程序，运行完了始终都会返回最后一个变量的值。也就是说，你这个变量出现了两次才导致老是出现上次结果。

你还是从头到尾仔细看看有没有错吧，路基开挖放样其实没必要编什么程序，有个正反算就好了。高差*坡比分母+平台宽+边沟宽+路基半幅宽=开挖边距。何必搞那么复杂？而且只需要放一次开挖线就没啥用了，费那个劲。

---