一、程序功能
本程序由6個(gè)主程序、5個(gè)次子程序及5個(gè)參數(shù)子程序組成。主要用于公路測(cè)量中坐標(biāo)正反算，設(shè)計(jì)任意點(diǎn)高程及橫坡計(jì)算,橋涵放樣，路基開(kāi)挖口及填方坡腳線放樣。程序坐標(biāo)計(jì)算適應(yīng)于任何線型.
二、源程序
1.主程序1：一般放樣反算程序(①正算坐標(biāo)、放樣點(diǎn)至置儀點(diǎn)方位角及距離；②反算樁號(hào)及距中距離)
程序名:1ZD-XY
Lb10:Norm2
F=1：(正反算判別，F(xiàn)=1正算，F(xiàn)=2反算,也可以改F前加？，改F為變量)
Z[1]=90（與路線右邊夾角）
Prog＂THB＂：F=1=>Goto1:F=2=>Goto2
Lb11:Ｆix3:＂Ｘ=＂：Locate6,4,Ｘ◢
＂Ｙ＝＂：Locate6,4,Ｙ◢
Ｐrog＂3JS”:Goto0:
Lb12:Fix3:＂ＫＭ＝＂：Locate6,4,Ｚ◢
＂Ｄ＝＂：Locate6,4,Ｄ◢
Ｇoto0
２．主程序２：高程序橫坡程序(設(shè)計(jì)任意點(diǎn)高程及橫坡)
程序名：2GC
LbI0:Norm2
“KM”?Z:?D:
Prog”H”:Fix3:”H=”:Locate6,4,H◢
“I=”:Locate6,4,I◢
Goto0
3.主程序3：極坐放樣計(jì)算程序(計(jì)算放樣點(diǎn)至置儀點(diǎn)方位角及距離)
程序名：3JS
X：Y：
1268．123→K(置儀點(diǎn)X坐標(biāo))
2243．545→L（置儀點(diǎn)Y坐標(biāo)，都是手工輸入,也可以建導(dǎo)線點(diǎn)數(shù)據(jù)庫(kù)子程序,個(gè)人認(rèn)為太麻煩）
Y-L→E：X-K→F：Pol(F,E):IFJ<0:ThenJ+360→J:Int(J)+0.01Int(60Frac(J))+0.006Frac(60Frac(J))→J:(不習(xí)慣小數(shù)點(diǎn)后四位為角度顯示的，也可以用命令J◢DMS◢來(lái)直接顯示)Fix4:”FWJ=”:Locate6,4,J◢(不習(xí)慣小數(shù)點(diǎn)后四位為角度顯示的，也可以用命令J◢DMS◢來(lái)直接顯示)
Fix3:”S=”:Locate6,4,I◢
4．主程序4：涵洞放樣程序（由涵中心樁號(hào)計(jì)算出各涵角坐標(biāo)、在主程序3中輸入置儀點(diǎn)坐標(biāo)后計(jì)算放樣點(diǎn)至置儀點(diǎn)方位角及距離)
程序名：4JH-XY
LbI0:Norm2
90→Z[1](涵洞中心樁與右邊夾角，手工輸入，也可以修改成前面加？后變?yōu)樽兞?
1→F:Prog”THB”:?L:
Z[2]-Z[1]→E:X+Lcos(E)→X:Y+Lsin(E)→Y:Fix3:＂Ｘ=＂：Locate6,4,Ｘ◢
＂Ｙ＝＂：Locate6,4,Ｙ◢
Ｐrog＂3JS”:Goto0:
5．主程序5:路基開(kāi)挖邊線及填方坡腳線放樣程序（輸入大概樁號(hào)及測(cè)量坐標(biāo)、地面標(biāo)高計(jì)算出偏移距離、樁號(hào)、距中距離、填挖高度）
程序名：5FBX
LbI0:Norm2:18→DimZ:2→F:90→Z[1]:Prog“THB”:Z:D:”M0”?M:M→Z[4]:D→Z[3]:Prog”6GD”:L→Z[6]:IfD<0:Then0.75-L→D:GotoH:ElseL-0.75→D:GotoH:IfEnd
LbIH:Prog”H”:H-0.03-Z[4]→Z[5]:Z[6]→L:IfZ[5]<0:Then–z[5]→G:GotoW:ElseZ[5]→G:GotoT:
LbIW:Prog“W0”:Z[10]+Z[11]→A:IfG>A:ThenGoto1:ElseIfG>Z[10]:ThenGoto2:ElseGoto3:IfEnd:
LbI1:L+Z[12]+Z[13]+Z[14]+(G-A)×Z[9]+Z[11]×Z[8]+Z[10]×Z[7]:GotoZ:
LbI2:L+Z[12]+Z[13]+(G-Z[10])×Z[8]+Z[10]×Z[7]:GotoZ:
LbI3:L+Z[12]+G×Z[7]:Gotoz:
LbIT:L+0.5→N:IfG>Z[17]:Then(N+Z[18]+(G-Z[17])×Z[16]+Z[17]×Z[15])→S:GotoZ:Else(N+G×Z[15])→S:Gotoz:
LbIZ:Z[3]→D:Fix2:Abs(D)-S→T:”L0=”:LLocate6,4,T◢
＂ＫＭ＝＂：Locate6,4,Ｚ◢
＂Ｄ＝＂：Locate6,4,Ｄ◢
“TW=”:Locate6,4,Z[5]◢
Goto0
6．主程序6：路基標(biāo)準(zhǔn)半幅寬度計(jì)算程序(對(duì)于設(shè)計(jì)有加寬漸變的有用，如路基寬度無(wú)變化，則把此程序直接輸入半幅寬度值至L)
程序名：6GD
Prog“G0”Z-C→E:(B-A)×E/S+A→L:L:
7．坐標(biāo)計(jì)算次程序（ＴＨＢ）
程序名：THB
18→DimZ：＂ＫＭ＂?Z：Prog＂Ｘ０＂
1÷P→Ｃ：(P-R)÷(2HPR)→Ｓ：180÷π→Ｅ：Ｆ=1=>Goto1：Ｆ=2=>Goto2←┘
Lbl1：?Ｄ：Abs(Ｚ－O)→W：Prog"Ａ"：X：Ｙ：Ｇoto3
LbI2:Ｘ：Ｙ：Ｘ→I：Ｙ→J：Prog＂Ｂ＂：Ｏ＋Ｗ→Z：Ｄ→Ｄ：Ｇoto3
LbI3:IFＦ＝１ThenＸ：Ｙ：ElseＺ：Ｄ
8.正算子程序(Ａ)
程序名：A
0.1184634425→A：0.2393143352→B：0.2844444444→N0.046910077→K：0.2307653449→L：0.5→M：U+W(Acos(G+QEKW(C+KWＳ))+Bcos(G+QELW(C+LWＳ))+Ncos(G+QEMW(C+MWＳ))+Bcos(G+QE(1-L)W(C+(1-L)WS))+Acos(G+QE(1-K)W(C+(1-K)WS)))→X：
V+W(Asin(G+QEKW(C+KWＳ))+Bsin(G+QELW(C+LWＳ))+Nsin(G+QEMW(C+MWS))+Bsin(G+QE(1-L)W(C+(1-L)WS))+Asin(G+QE(1-K)W(C+(1-K)WＳ)))→Y：
G+QEW(C+WＳ)+Ｚ［１］→Ｚ［２］：X+Ｄcos（Ｚ［２］）→Ｘ：Y+Ｄsin（Ｚ［２］）→Ｙ
9.反算子程序(Ｂ)
程序名：B
G-90→Ｔ：Abs((Y-V)cos(T)-(X-U)sin(T))→Ｗ：0→Ｄ：Lbl0：Prog"Ａ"：T+QEW(C+WＳ)→Ｌ：(J-Y)cos(L)-(I-X)sin(L)→Ｄ：IFAbs(Ｄ)<0.01:ThenGoto1：ElseW+Ｄ→W:Goto0←┘
Lbl1:0→D：Prog"Ａ"：(J-Y)÷sin(Ｚ［２］)→D:
10．高程計(jì)算子程序（H）
程序名：H
Prog“S0”:R:T:C:G:I:C-T→F:Z-F→L:C+T→E:G-TI→Q:IfT=O:ThenQ+LI→H:Goto0:ElseIfZ<F:ThenQ+LI→H:Goto0:ElseIfZ≤E:ThenQ+LI+L2÷2÷R→H:Goto0:
LbI0:H:IfD=0:ThenGotoI:ElseProg“I”:H+V→H:GotoI:LbII:H:I:
11.高程超高計(jì)算程序（I）
程序名：I
Prog”I0”:
W=1=>Goto0:W=2=>Goto1:
LbI0:IfL=0:ThenAbs(D)×M→V:Goto2:ElseAbs(D)×((N-M)×(Z-C)÷L+M)→V:Goto2:IfEnd:
LbI1:IfL=0:ThenAbs(D)×M→V:Goto2:ElseAbs(D)×(((3((Z-C)÷L)2-2((Z-C)÷L)∧(3))×(N-M))+M)→V:Goto2:IfEnd:
LbI2:Abs(D)→E:V÷E→I:I(E-K)→V:
12．?dāng)?shù)據(jù)子程序(附后示例)
①程序名：X0（坐標(biāo)計(jì)算要素程序）
IfZ≥25900AndZ≤26615.555:Then25900→O:11587.421→U:1847.983→V:101。09’23.1”→G:715.555→H:1×1045→P:1×1045→R:0→Q:Goto0:IfEnd:
IfZ≥26615.555AndZ≤26915.555:Then26615.555→O:11448.97→U:2550.016→V:101。09’23.1”→G:300→H:1×1045→P:1800→R:1→Q:Goto0:IfEnd:
IfZ≥26915.555AndZ≤27316.952:Then26915.555→O:11382.792→U:2842.531→V:105。55’51.83”→G:401.396→H:1800→P:1800→R:1→Q:Goto0:IfEnd:
……
LbI0:O:U:V:G:H:P:R:Q:
程序字母說(shuō)明：O-線元起點(diǎn)樁號(hào)；U-起點(diǎn)X坐標(biāo)；V-起點(diǎn)Y坐標(biāo)；G-線元起點(diǎn)樁號(hào)切線方位角;Ｈ－線元長(zhǎng)度，Ｐ－線元起點(diǎn)曲率半徑，Ｒ－線元終點(diǎn)曲率半徑,Q－線元判別(以道路中線的前進(jìn)方向（即里程增大的方向）區(qū)分左右；當(dāng)線元往左偏時(shí)，Q=-1；當(dāng)線元往右偏時(shí)，Q=1；當(dāng)線元為直線時(shí)，Q=0)。
②程序名：SO(高程豎曲線要素子程序)
IfZ≥25900AndZ≤26157.8:Then-200000→R:157.8→T:26000→C:37.1→G:0.01222→I:Goto0:IfEnd:
IfZ≥26157.8AndZ≤27421.915:Then300000→R:171.915→T:27250→C:32.65→G:-0.00356→I:Goto0:IfEnd:
IfZ≥27421.915AndZ≤27889.029:Then1000000→R:134.029→T:27755→C:36.64→G:0.0079→I:Goto0:IfEnd:
……
LbI0:R:T:G:C:I:
程序字母說(shuō)明：C-豎曲線交點(diǎn)樁號(hào)；G-交點(diǎn)樁號(hào)高程（未豎曲線調(diào)整的）；T-豎曲線切線長(zhǎng)；R-豎曲線半徑（分正負(fù)：凹曲線為正，凸曲線為負(fù)）；I－豎曲線前縱坡
③程序名：I0（高程超高參數(shù)子程序）
1.5→K:2→W:IfD<0:ThenGotoL:ElseGotoR:IfEnd:
LbIL:IfZ≥25900AndZ≤26615.555:Then0→L:-0.02→M:Goto0:IfEnd:
IfZ≥26615.555AndZ≤26735.555:Then120→L:26615.555→C:-0.02→M:0.02→N:Goto0:IfEnd:
IfZ≥26735.555AndZ≤26795.555:Then60→L:26735.555→C:0.02→M:0.04→N:Goto0:IfEnd
IfZ≥26795.555AndZ≤27436.951:Then0→L:0.04→M:Goto0:IfEnd
……
LbIR:IfZ≥25900AndZ≤26735.555:Then0→L:-0.02→M:Goto0:IfEnd
IfZ≥26735.555AndZ≤26795.555:Then60→L:26735.555→C:-0.02→M:-0.04→N:Goto0:IfEnd
IfZ≥26795.555AndZ≤27436.951:Then0→L:-0.04→M:Goto0:IfEnd
……
LbI0K:W:L:C:M:N:
字程序中字母表示說(shuō)明：
K－中央分隔帶半幅寬（中樁標(biāo)高至中樁中線距離，無(wú)分隔帶則為0）；W－超高方式參數(shù)（W=1為一般直線方式超高，W=2為三次拋物線方式超高）;L－超高漸變段距離（不是漸變段則輸入0）；C-超高漸變段起點(diǎn)樁號(hào)（不是漸變段，無(wú)需輸入）；M－超高段起點(diǎn)橫坡，N-超高漸變段終點(diǎn)橫坡（不是漸變段，無(wú)需輸入）。
④程序名：GO(路基標(biāo)準(zhǔn)半幅寬度參數(shù)子程序)
IfD<0:ThenGotoL:ElseGotoR:IfEnd:
LbIL:IfZ≥25900AndZ≤28110.727:ThenZ→C:17.25→A:Goto0:IfEnd:
IfZ≥28110.727AndZ≤28200.727:Then28110.727→C:17.25→A:21.25→B:90→S:Goto0:IfEnd
……
LbIR:IfZ≥25900AndZ≤27927.478:ThenZ→C:17.25→A:Goto0:IfEnd
IfZ≥27927.478AndZ≤28172:Then27927.478→C:17.25→A:27.031→B:244.522→S:Goto0:IfEnd
……
LbI0C:A:B:S:
字程序中字母表示說(shuō)明：
C－寬度漸變段起點(diǎn)樁號(hào)（不是漸變段C=Z）；A－寬度漸變段起點(diǎn)寬度;B－寬度漸變段終點(diǎn)寬度（不是漸變段，無(wú)需輸入）；S-寬度漸變段距離（不是漸變段，無(wú)需輸入）。
⑤程序名：WO(路基填挖邊坡參數(shù)子程序)
0.75→Z[7]:1→Z[8]:1.25→Z[9]:10→Z[10]:10→Z[11]:2.6→Z[12]:2→Z[13]:2→Z[14]:
1.5→Z[15]:1.75→Z[16]:8→Z[17]:2→Z[18]
字程序中字母表示說(shuō)明：
Z[7]－挖方第一階邊坡邊率；Z[8]－挖方第二階邊坡邊率；Z[9]－挖方第三階邊坡邊率；Z[10]－挖方第一階高度；Z[11]－挖方第二階高度；Z[12]－挖方路基碎落臺(tái)及水溝寬度；Z[13]－挖方第二臺(tái)階平臺(tái)寬度；Z[14]－挖方第三臺(tái)階平臺(tái)寬度；
Z[15]－填方第一階邊坡邊率；Z[16]－填方第二階邊坡邊率;Z[17]－填方第一階高度；Z[18]-填方第二臺(tái)階平臺(tái)寬度。（注：本程序只做出挖方三個(gè)臺(tái)階，填方二個(gè)臺(tái)階，如需增加，先需在程序THB和5FBZ程序中增加變量。再如一標(biāo)段有坡率及坡高不一樣時(shí)，可以照其它參數(shù)程序一樣，用判別語(yǔ)句。）


三、使用說(shuō)明
1、規(guī)定
(1)Z“KM”為所求點(diǎn)樁號(hào)，反算時(shí)為輸入大概樁號(hào)
(2)當(dāng)所求點(diǎn)位于中線時(shí)，Ｄ=0；當(dāng)位于中線左鍘時(shí)，Ｄ取負(fù)值；當(dāng)位于中線中線右
側(cè)時(shí)，Ｄ取正值。
(3)當(dāng)線元為直線時(shí)，其起點(diǎn)、止點(diǎn)的曲率半徑為無(wú)窮大，以10的45次代替。
(4)當(dāng)線元為圓曲線時(shí)，無(wú)論其起點(diǎn)、止點(diǎn)與什么線元相接，其曲率半徑均等于圓
弧的半徑。
(5)當(dāng)線元為完整緩和曲線時(shí)，起點(diǎn)與直線相接時(shí)，曲率半徑為無(wú)窮大，以10的45次代替；與圓曲線相接時(shí)，曲率半徑等于圓曲線的半徑。止點(diǎn)與直線相接時(shí)，曲率半
徑為無(wú)窮大，以10的45次代替；與圓曲線相接時(shí)，曲率半徑等于圓曲線的半徑。
(6)當(dāng)線元為非完整緩和曲線時(shí)，起點(diǎn)與直線相接時(shí)，曲率半徑等于設(shè)計(jì)規(guī)定的
值；與圓曲線相接時(shí)，曲率半徑等于圓曲線的半徑。止點(diǎn)與直線相接時(shí)，曲率半徑等于設(shè)計(jì)規(guī)定的值；與圓曲線相接時(shí)，曲率半徑等于圓曲線的半徑。
2、輸入與顯示說(shuō)明
輸入部分：
1.Ｆ＝１：ＺＤ=>XY
2.Ｆ＝２：XY=>ＺＤ
Ｆ?選擇計(jì)算方式，輸入1表示進(jìn)行由里程、邊距計(jì)算坐標(biāo)；輸入2表示由坐標(biāo)反算里程和邊距。Ｚ［１］為線元邊樁與中線右?jiàn)A角。
ＫＭ？正算時(shí)所求點(diǎn)的里程（反算輸入大概樁號(hào)）
Ｄ？正算時(shí)所求點(diǎn)距中線的邊距(左側(cè)取負(fù)，值右側(cè)取正值，在中線上取零)
X0？反算時(shí)所求點(diǎn)的X坐標(biāo)（放樣程序中實(shí)測(cè)X坐標(biāo)）
Y0？反算時(shí)所求點(diǎn)的Y坐標(biāo)（放樣程序中實(shí)測(cè)Y坐標(biāo)）
顯示部分：
L?涵洞放樣程序中涵距中心樁號(hào)前后距離,前為正,后為負(fù).
M0?邊坡放樣程序中原地面標(biāo)高輸入
X=***正算時(shí)，計(jì)算得出的所求點(diǎn)的X坐標(biāo)
Y=***正算時(shí)，計(jì)算得出的所求點(diǎn)的Y坐標(biāo)
FWJ=***正算時(shí)，計(jì)算得出的所求點(diǎn)的至置儀點(diǎn)方位角（在3JS程序中應(yīng)輸入X、Y坐標(biāo)值于K、L）
S=***正算時(shí)，計(jì)算得出的所求點(diǎn)的至置儀點(diǎn)距離
ＫＭ=***反算時(shí)，計(jì)算得出的所求點(diǎn)的里程
Ｄ=***反算時(shí)，計(jì)算得出的所求點(diǎn)的邊距
H=***所求點(diǎn)位置設(shè)計(jì)路面頂標(biāo)高
I=***所求點(diǎn)位置設(shè)計(jì)路面橫坡
L0=***邊樁放樣程序中實(shí)測(cè)點(diǎn)至設(shè)計(jì)邊坡點(diǎn)距離，正向內(nèi)移，