1.開口（坡腳）線刷破放樣程序
SPFY
Deg：Lbl 0:L≥0=> Prog “SPSJK”： Goto 1△：{ABCDFGMNPQ}:N”JiaKuan”:F”1Jsjpd”:Q”1Jsjgd”: D”SJdlkd”:G”2Jsjpd”≤0=>Goto 1△：A”2Jsjgd”:P”1Jsjpt” :M”2Jsjpt”:B”3Jsjpd”≤0 =>Goto 1△C”3Jsjgd”
Lbl 1:{WVE}:W”FYkd”≤0 =>Goto 0△V”CL(H)”:E”SJ(H)”
Lbl 2:”(-W,+T)=”:H=E-V▲ （一般H小于0為挖方段，H大于0為填方段）
H=Abs H
H<Q => K=D+N+FH-W:Goto 3△
H<Q+A => K=D+N+FQ+G(H-Q)+P-W:Goto 3△
H<Q+A+C => K=D+N+FQ+GA+B(H-Q-A)+P+M-W△
Lbl 3:”PYjl=”:k▲
Goto 1
SPSJK
Z>0=> Goto 0：≠ > Goto 1 △(通過Z值判斷左右側)
Lbl 0 右側（按習慣規(guī)定Z大于0為右側）
S≥起點樁號=>S＜止點樁號=>N=？：F=？：Q=？：D=？:G=？：A=？：P=？：M=？：B=？△△ 【如果無第二級設計坡度即G=0，其他類似，下同】
S≥起點樁號=>S＜止點樁號=>N=？：F=？：Q=？：D=？:G=？：A=？：P=？：M=？：B=？△△
…………………
Goto 2
Lbl 1 左側
S≥起點樁號=>S＜止點樁號=>N=？：F=？：Q=？：D=？:G=？：A=？：P=？：M=？：B=？△△
S≥起點樁號=>S＜止點樁號=>N=？：F=？：Q=？：D=？:G=？：A=？：P=？：M=？：B=？△△
…………………
Lbl 2
說明（本程序適合挖方填方刷破放樣）：
L： 大于或等于零時進入數據庫模式
S: 為待放樣刷坡段（點）里程（樁號）
N”JiaKuan”：填方根據技術交底適當加寬，挖方為（碎落臺 + 排水溝）寬度
F”1Jsjpd”: 第一級設計坡度值（邊坡坡度為1：1.75，則F=1.75，下同）
Q”1Jsjgd”: 第一級設計坡高值
G”2Jsjpd”： 第二級設計坡度值
A”2Jsjgd”: 第二級設計坡高值
P”1Jsjpt”: 第一級設計平臺（護坡道）寬度值
M”2Jsjpt”: 第二級設計平臺（護坡道）寬度值
B”3Jsjpd”： 第三級設計坡度值
D”SJdlkd”： 半幅道路設計路寬
W”FYkd”: 實際假定放樣的寬度
V”CL(H)”: 放樣點的實際測量高程
E”SJ(H)”： 放樣點對應樁號邊樁的設計高程（即為挖方坡腳線或填方坡頂線設計高程）
H”(-W,+T)=”：放樣點超挖欠挖情況（-W表示欠挖，+T表示超挖）
K”PYjl=”: 放樣點應該沿垂直道路中線方向（即放樣點與放樣點對應樁號的連線）偏移值，正值向外負值向內移動
（注意：本程序只考慮了3級坡度和2級平臺和2級高度，實際超出的再加上。。。）
------------------------------------------------------------------------------------------------------------------------
2.有了它,上工地告別圖紙和資料
（程序中加入了路基抄平的計算）
QXZDGC
Lbl A (L表示待放樣點的樁號)
{L}:L"DKI"：Prog “S”：Prog “SQX”：Prog“P”：Prog“PQX”
“HO=”:Z◢ (顯示縱斷中樁設計值)
"HZ="O:◢ (顯示橫斷左邊樁設計值)
"HY="P:◢ (顯示橫斷右邊樁設計值)
Lbl B:{KM}:K=0=>Goto A⊿Y"HSGC":V"HSDS":M"QSDS"≤0=>{YV}:Goto B ⊿
"Hn=":N=Y+V-M◢ (測量點的實際高程)
D=0=>"E(HO=":W=Z-N◢ (中樁設計與實際高程之差,負挖正填,下同)
Goto A⊿
K=-1=>"E(HZ=":W=O-N◢ (左邊樁設計與實際高程之差)
Goto A⊿
K=1=>"E(HY=":W=P-N◢ (右邊樁設計與實際高程之差)
Goto A ⊿ (說明：程序中的K是個變化參數，等于 -1 計算左邊，等于 1 計算右邊)
SQX(豎曲線子程序)
T=Abs((I-J)R÷2):R=R((I-J)÷Abs(I-J)):N=A-T：W=A+T：U=Abs (A-L)
L≤N=>Z=H-JU-X"H0":Goto 1 ⊿ (H0 表示如路面到路基頂部的高度(結構層)等,下同)
L≤A=>Z=H-JU+(L-N)2÷(2R)-X"H0":Goto 1 ⊿
L≤W=>Z=H+IU+(W-L)2÷(2R)-X"H0":Goto 1 ⊿
L>W=>Z=H+IU -X"H0"⊿
Lbl 1
PQX(平曲線子程序)
L≤S=>E=.02:G=E:Goto 1 ⊿
L≤(S+B)=>E=.02-(L-S)÷B×(.02+C):G= -E:Abs (E) ≤.02=>G=.02: ⊿Goto 1:⊿
L≤(S+Q-B)=>E= -C:G= -E:Goto 1 ⊿
L≤(S+Q)=>E=.02-(S+Q-L)÷B×(.02+C):G= -E:Abs (E) ≤.02=>G=.02: ⊿Goto 1:⊿
L＞(S+Q)=>E=.02:G=E⊿
Lbl 1：{D} :T=D-.75:F=1=>"EZ="E ◢
"EY=":G ◢ (0.75表示中央分隔帶為0.75*2=1.5米寬,D為輸入邊樁距中樁距離)
O=Z-TE:P=Z-TG:≠>F=-1=>"EZ="G◢
"EY=":E ◢
O=Z-TG:P=Z-TE⊿⊿
S(數據庫豎曲線子程序) 【注意：豎曲線縱坡上坡為正值，下坡為負值】
L ≤145788.038(豎曲線終點樁號)=>R=40000(豎曲線半徑):A=145600(豎曲線中心樁號):H=411.313(變坡點高程):J=0.0049(變坡點前縱坡):I=-0.0045(變坡點后縱坡):Goto 1: ⊿
…
Lbl 1
P(數據庫平曲線子程序)
L ≤146999.541(平曲線超高終點樁號)=>B=120(超高緩和曲線長度):Q=612.094(超高曲線全長度):C=0.03(最大超高值):F=1(平曲線參數,左轉=-1，右轉=1):S=146387.447(超高緩和起點樁號):Goto 1: ⊿
…
Lbl 1
(一):三次拋物線超高公式:
前緩和曲線:K=(L-S)÷B
后緩和曲線:K=(S+Q-L)÷B
E=e-(e+c)(3K2-2K3) 或者 E=e-(e+c)(2K-K^2)
其中:E為待求斷面橫坡值;
L為待放樣點的樁號;
S為超高緩和起點樁號;
Q為超高曲線總長;
B為超高緩和曲線長度;
e為超高起點橫坡值;
c為超高終點橫坡值.
(二):線性超高公式:
前段緩和曲線超高公式:E=0.02-(L-S)÷B×(0.02+C):
后段緩和曲線超高公式:E=0.02-(S+Q-L)÷B×(0.02+C):
其中： B為超高緩和曲線長度
S為超高緩和起點樁號
L為放樣點樁號
C為最大超高值.
Q為超高曲線總長度
3.公路測量放樣正反計算程序【匝道版】（第五次修改-正式版）
1.QXZDJS （此子程序僅用于多條線路，如果只有一條則可刪除該程序）
M=1=>Prog "SJK1":Prog "SUBSJK"△
M=n=>Prog "SJKn":Prog "SUBSJK"△
2.SUBSJK
"1.SZ => XY"："2.XY => SZ"：｛N,S｝：N：S"DKI"：Prog “SJK1”：
Deg:S>H=>Goto AΔD=(P-R)÷2PR(H-O)：N=1=>Goto 1：≠>Goto 2Δ
Lbl 1：{ZT}：Z"BJ（-0+）"：T=90：W=Abs(S-O)：Prog "SUB1"：F=F-90：F<0=>F=F+360Δ 說明：邊距左負右正，T如果此處不賦值，表示線路為斜交。
"QX-FWJ="：F←DMS
"XS="：X◢
"YS="：Y◢
I=0：J=0：Pol（X-C"X0"，Y-E"Y0"）：J<0＝＞J=J+360：Δ“FWJ=”:J←DMS◢
“I=”：I◢ 說明：（X0，Y0）表示測站（置鏡）點坐標
Goto A
Lbl 2：{XY}：I=X：J=Y：Prog "SUB2"：
"S=":S=O+W◢
"Z=":Z◢ 說明：S，Z為反算時的樁號及邊距
Lbl A
3.SJK1
S≤本線元終點里程＝＞U=本線元起點X坐標：V=本線元起點Y坐標：G=本線元起點正切線方位角：P=本線元起點曲率半徑：R=本線元終點曲率半徑：O=本線元起點里程：H=本線元終點里程：Q=本線元偏向（左-1直0右+1）:Goto0Δ
… Goto0Δ
LB1 0
4.SUB1 （正算子程序）
A=0.1739274226：B=0.3260725774：K=0.0694318442：L=0.3300094782：X=U+W(Acos(G+180QKW(1÷P+KWD)÷π)+Bcos(G+180QLW(1÷P+LWD)÷π)+Bcos(G+180(1-L)QW(1÷P+(1-L)WD)÷π)+Acos(G+180(1-K)QW(1÷P+(1-K)WD)÷π))：Y=V+W(Asin(G+180QKW(1÷P+KWD)÷π)+Bsin(G+180QLW(1÷P+LWD)÷π)+Bsin(G+180(1-L)QW(1÷P+(1-L)WD)÷π)+Asin(G+180(1-K)QW(1÷P+(1-K)WD)÷π))：F=G+180QW(1÷P+WD)÷π+90：X=X+ZcosF：Y=Y+ZsinF
5.SUB2（反算子程序）
T=G-90：W=Abs((Y-V)cosT-(X-U)sinT)：Z=0：Lbl 0：Prog "SUB1"：L=T+180QW(1÷P+WD)÷π：Z=(J-Y)cosL-(I-X)sinL：AbsZ<1÷10^6=>Goto1：≠>W=W+Z：Goto 0Δ←┘
Lbl 1：Z=0：Prog "SUB1"：Z=(J-Y)÷sinF
(1) 當線元為直線時，其起止點的曲率半徑為無窮大，以10的45次代替。
(2) 當線元為圓曲線時，無論其起止點與什么線元相接，其曲率半徑均等于圓
弧的半徑。
(3) 當線元為完整緩和曲線時，起點與直線相接時，曲率半徑為無窮大；與圓曲線相接時，曲率半徑等于圓曲線的半徑。止點與直線相接時，曲率半徑為無窮大；與圓曲線相接時，曲率半徑等于圓曲線的半徑。
(4) 當線元為非完整緩和曲線時，起點與直線相接時，曲率半徑等于設計規(guī)定的
值；與圓曲線相接時，曲率半徑等于圓曲線的半徑。止點與直線相接時，曲率半徑等于設計規(guī)定的值；與圓曲線相接時，曲率半徑等于圓曲線的半徑。---------------------------------------------------------------------------------------------------------------------------
4.公路逐樁坐標計算程序
該程序適用于直線,圓曲線及完整對稱的緩和曲線中邊樁坐標計算及極坐標放樣
R
Lbl 0：Deg：{S}：S“DKI”：Prog “RSJK”：L=S-Z：K=A∏R÷180+C:P=C2÷24R-C4÷2688R3:
T=(R+P)tan (A÷2)+C÷2-C3÷240R2:N=-1：L>K-C=>L=K-L：N=1△
L≤0=>Q=0：X=L：Y=0：Goto 1△
L≤C=>Q=90L2÷∏RC：X=L-L5÷40R2C2：Y=L3÷6RC-L7÷336R3C3：Goto 1△
L≤K-C=>Q=180(L-C) ÷∏R+90C÷∏R:X=RsinQ+C÷2-C3÷240R2:Y=R(1-cosQ)+P△
Lbl 1:N=1=>Q=A-Q:I=X:J=Y:X=T+(T-I)cosA-JsinA:Y=(T-I)sinA+JcosA△
I=X:J=FY:X=G+Tcos(180+B)+IcosB-JsinB:Y=V+Tsin(180+B)+IsinB+JcosB:Q=B+FQ:{DH}:
D“BJ(-0+)”:D=0=>H=0△H=90:X=X+Dcos(Q+H):Y=Y+Dsin(Q+H):Q→DMS
X▲
Y▲
Pol(X-E“X0”,Y-O“Y0”):J<0=>J=J+360△“FWJ=”:J→DMS “L=”:I▲
Goto 0 注意：當H≠90度時表示線路斜交。
RSJK
S≤HY點(或者HZ點)里程樁號=>A=轉角:R=圓曲線半徑:C=緩和曲線長:B=起點正切線方位角:G=交點(角樁)的X坐標:V=交點(角樁)的Y坐標:F=曲線偏向(左偏=-1,右偏=1):Z=ZY點(或者ZH點)里程樁號:Goto 0△
…
Lbl 0----------------------------------------------------------------------------------------------------------
5.坐標正反算程序
ZBZFS(程序名)
Deg：M“ZS=>1,FS=>2”=1 =>Goto 0：≠=>Goto 1△
Lbl 0:{CD}:A”XO”:B”YO”:C”XH”≤0=>{AB}:Goto 0△
D”YH”:I=0:J=0:Pol(C-A,D-B):J<0=>J=J+360△
“Fwj=”:J->DMS “JL=”:I▲
Goto 0
Lbl 1：{CD}：A”XO”：Ｂ“YO”：Ｃ“JL”≤0=>{AB}：Goto 1△ D“Fwj”
“XH=”:X=A+Ccos D▲
“YH=”:Y=B+Csin D▲
Goto 1
說明（正算）：A：起點X坐標；B：起點Y坐標
C：終點X坐標；D：終點Y坐標
J->DMS：顯示為起點到終點的方位角
“JL=”： 顯示為起點到終點的距離
說明（反算）：A：起點X坐標；B：起點Y坐標
C：起點到終點的距離；D：起點到終點的方位角
“XH=”：顯示為終點的X坐標
“YH=”：顯示為終點的Y坐標
注意：方位角的起始方向，如M點到N點的方位角為a ,那么N點到M點的方位角為a±180
--------------------------------------------------------------------------------------
錐坡放樣程序
6.3.1 功能與應用
在錐坡施工放樣中，不少人還在用“拉線法”、“圖解等比例量距法”等原始方法進行放樣。本節(jié)介紹了一種全新的錐坡放樣方法，可用下述程序配合全站儀對各種正、斜交錐坡放樣。大大減輕了放樣人員的內外業(yè)勞動強度，減小了出錯機率。特別是對斜交錐坡放樣，其先進性和便捷性更是無與倫比。
6.3.2 基本原理與基本公式
基本原理：為使路堤與橋臺或擋土墻墻面等構造物連接處圓滑過渡，并使水流通暢，需在構造物兩側構筑呈錐體型土坡體，且為了保證構造物靠流水一側不受沖刷侵蝕，故在其表面砌石防護，稱為錐坡。
錐坡的形狀為四分之一個橢圓截錐體，當錐坡的填土高度小于6m時，錐坡的縱向即平行于路線方向的坡度一般為1：1；橫向即垂直于路線方向的坡度一般為1：1.5，與路基邊坡一致。當錐坡的填土高度超過6m時，路基面以下超過6m的坡體縱向由1：1變?yōu)?：1.25，橫向由1：1.5變?yōu)?：1.75。因為錐坡程序在本書中為非重點內容，故本程序中未考慮“二級變坡”，請使用者注意，如果在應用中出現“二級變坡”的情況，可先計算出橢圓的長、短半軸后，再將其換算成一個直坡，運行本程序，同樣可精確求解。
錐坡的常用測量方法有：橢圓曲線內側支距法、橢圓曲線外側支距法、縱橫等分圖解法、雙點雙距圖解法、雙圓垂直投影圖解法等，本書中是采用的橢圓曲線內側支距法計算橢圓縱橫支距參數，然后用坐標轉化公式將其轉化為大地坐標，可以將全站儀置于導線點上直接施測。
基本公式：
橢圓方程為：
圖6-3 橢圓內側支距法(正交)
根據坡比，橢圓長半軸為a=i1×(HS-HJ)，短半軸為b=i2×(HS-HJ)。令長半軸a上某點到錐尖的距離為n，如果構造物為斜交時，令斜角為α0。如圖6-3所示，正交時α0=0，于是在長半軸上距錐尖na處的橫、縱支距分別為：
再用坐標轉換公式
將其轉換成施工坐標。
式中 X、Y——在長半軸上距錐尖na處的大地坐標
xzj、yzj——錐尖處大地坐標（作起算值）
x、y——在長半軸上距錐尖na處的橫、縱支距
α——錐尖沿短半軸方向的方位角 α0——構造物與路基法線方向交角，左斜為正，右斜為負
6.3.3 源程序
程序名：【 ZPFYJS 】
Lbl0
Norm:Deg
D"X0"G"Y0"A"AZIMUTH"B"α0"H"HS"I"HJ"K"i1"L"i2"Z"1.LEFT 2.RIGHT"
J=0:N=0:Goto2
Lbl1
{N}:N"n"
N<0=>Goto0△
N>1=>Goto0△
Lbl2
J"POInt"=J+1◣…………………………………顯示坐標值的組數
E=K(H-I)N÷cosB:F=L(H-I)(1-N2) ………………………計算縱橫支距值
Z=1=>E=E≠>Z=2=>E= - E△………………………………判定錐坡在橋臺的左右方向
X=D+Ecos(A+90+B)+FcosA◣………………… 將支距轉換成X坐標并顯示
Y=G+Esin(A+90+B)+FsinA◣………………… 將支距轉換成Y坐標并顯示
J≥15=>Goto1△…………………………………如果算完第15組，N=1則轉到標記1處運行
N≥0.9=>N=N+0.02:Goto2△………………如果在0.9~1之間則以0.02為步長加密并轉到標記2處運行
N≥0=>N=N+0.1:Goto2△……………………如果在0~0.9之間則以0.1為步長計算并轉到標記2處運行
6.3.4 程序說明
一、程序中各注釋文的涵義
X0、Y0——錐坡尖點的橫、縱坐標
HS——錐坡尖點的標高
HJ——錐坡基礎頂面標高
i1——路基橫坡度（椎體長半軸方向），如果為1：1.5則輸入為1.5
i2——錐坡迎水面坡度（路線方向，短半軸方向），如果為1：1則輸入為1
AZIMUTH——錐尖沿短半軸方向指向錐坡邊緣方向的方位角
α0——構造物與路基法線方向交角，左斜為正，右斜為負。如圖6-5。
1.LEFT 2.RIGHT——如果要放樣的錐坡為左側錐坡則輸為1，反之輸為2
n——為橢圓長半軸等分數，其值應在0~1之間。當n值輸入的間隔越密集，則測出的點就越密集。
二、程序應用注意事項
在程序運行后，將直接輸出按橢圓長半軸上到錐尖的距離十等分后每個等分點對應在橢圓弧上的坐標，即自動得出從0a、0.1a……到0.9a、0.92a、0.94a、0.96a、0.98a、1.0a對應的橢圓弧上共15組坐標值。考慮到n值在0.9~1.0之間時輸出的點間隔較大，該程序已在0.9a~1.0a之間按0.02a的步長自動加密。當15組點輸出后考慮到有的點位需要復核重放或局部加密的需要，程序還可以根據用戶輸入的n值任意加密，例如，想在0.66a處加密，則輸入n=0.66，即可得出橢圓弧上對應于長半軸上0.66a處的大地坐標值。
在計算正交時可將α0輸入為0，斜交時按圖6-5中所示角度輸入，當錐坡左斜時，α0應輸入為正值，反之為負值。
圖6-4 正交橋臺錐坡示意圖
圖6-5 斜交橋臺錐坡示意圖
6.3.5 應用實例
因為本程序不考慮兩級放坡，但可以計算兩級放坡。關于一級放坡的例子就此略過，現在就看看兩級放坡用本程序如何計算。
例6-3：有一右斜U型橋臺，斜角為30°，錐坡尖點設計標高為HS=752.568m，錐坡基礎頂面設計標高為HJ=743.368m，錐坡尖點在施工坐標系內的坐標（x0，y0）為（73259.562，84293.358），方位角AZIMUTH=125°39′36″，以6m為變坡點設置兩級放坡。第一級放坡為1:i1=1:1.5；1:i2=1:1，第二級放坡為1:i12=1:1.75；1:i22=1:1.25。試計算左側錐坡的放樣數據。
解：對于兩級放坡的情況，我們可以通過計算將其轉化為一單向坡面。
先分別計算橢圓的長、短半軸長。
第一級：a1=i1×6=1.5×6=9m
b1=i2×6= 1.0×6=6m
第二級: a2=i12×(HS-HJ-6)=1.75×(752.568-743.368-6)=5.6m
b2=i22×(HS-HJ-6)=1.25×(752.568-743.368-6)=4m
故長、短半軸長分別為a=a1+a2=14.6m；b=b1+b2=10m
根據單坡面時長半軸a=i1×(HS-HJ)，短半軸b=i2×(HS-HJ)故可得到，在將其折算為單坡面時i1和 i2分別為：i1=14.6÷9.2=1.587；i2=10÷9.2=1.087 【注意：錐坡總高度 752.568-743.368-6=9.2】
再將HS=752.568、HJ=743.368、X0=73259.562、Y0=84293.358、α0=-30、AZIMUTH=125°39′36″、i1=1.587、i2=1.087、1.LEFT 2.RIGHT=1逐一輸入程序當中，即可算得基礎內緣的橢圓弧上各點的坐標值。
其值如下：
POInt=1;X=73253.732;Y=84301.483 POInt=8;X=73243.655;Y=84297.997
POInt=2;X=73252.084;Y=84301.276 POInt=9;X=73242.642;Y=84296.903
POInt=3;X=73250.494;Y=84300.987 POInt=10;X=73241.922;Y=84295.403
POInt=4;X=73248.967;Y=84300.610 POInt=11;X=73241.842;Y=84295.013
POInt=5;X=73247.508;Y=84300.140 POInt=12;X=73241.803;Y=84294.567
POInt=6;X=73246.125;Y=84299.563 POInt=13;X=73241.824;Y=84294.037
POInt=7;X=73244.832;Y=84298.861 POInt=14;X=73241.960;Y=84293.345
POInt=15;X=73242.785;Y=84291.695
-------------------------------------------------------------------------------------------------------------------------------------
線路坐標正反算程序
因為無4850計算器，故未對下面程序進行驗證，望有緣者驗證后告知運行如何
正算反算，支持不等長緩和曲線。注意：1E-9表示10的負9次方,Ο(字母),因為無計算器，故未對下面程序進行驗證，望有緣者驗證后告知運行如何
【1-(XY+ZS)(計算坐標及極坐標放樣),2-FS（反算樁號和邊距）】
J-PQX (主程序)
Defm 15：Deg
Lb1 A：{PZ}：P"DKI":Prog“SJK” (P"DKI"待求點樁號，反算時大致樁號)
E<1=>E=1E-9⊿K<1=>K=1E-9⊿Z[1]=EE÷24R-E∧4÷2688RRR:Z[2]=E÷2-EEE÷240RR:X=(EE-KK)÷24R÷sin Abs Ο :Z[3]“T1” =(R+Z[1])tan(Abs Ο ÷2)+Z[2]-X◢
Z[4]“T2” =(R+KK÷24R-K∧4÷2688RRR)tan(Abs Ο ÷2)+K÷2-KKK÷240RR+X◢
L=Abs ΟπR÷180+(E+K)÷2◢
J=tan-1((R+Z[1])÷(Z[3]-Z[2]):“E”:X=(R+Z[1])÷sin J-R◢
X=A-Z[3]:Y=X+E:E<1=>“ZY”:X◢
≠=>“ZH”:X◢
“HY”:Y◢
⊿“QZ”:Y=X+(L-K-E)÷2+E◢
Y=X+L-K:X=X+L:K<1=>“YZ”:X◢
≠=>“YH”:Y◢
“HZ”:X◢
⊿Z"1-(XY+ZS),2-FS"=1=>Goto 1≠=>Z=2=>Goto 2≠=>Goto A⊿⊿
Lb1 1 :{DW}:D“BJ”:W“JiaJiao”:Prog“JP”:“X=”:X◢(D邊距左負右正，W表示線路前進方向與右 邊樁法線夾角，下同)
“Y=”:Y ◢
I=0:J=0:Pol（X-S"X0"，Y-T"Y0"）：J<0＝＞J=J+360Δ (說明:(X0，Y0)表示測站(置鏡)點坐標)
“FWJ=”:J←DMS◢
“I=”：I◢
Goto A
Lb1 2 :{XYW}:X:Y:W“JiaJiao”:Prog“JF”: “P=”:P◢
“BJ=”:D◢
{X}:X<0=>Goto A≠=>Goto 2⊿
JP（平曲線正算子程序）
Fixm
Lb1 1 :J=F:X= B-Z[3]cos F :Y= C-Z[3]sin F :G=E
P≤A-Z[3]=>I=A-Z[3]-P:M=-I:N=0:H=F+W:Goto 5
≠=>P≤A-Z[3]+E=>I=P-A+Z[3]:H=90II÷REπ:Ο<0=>H=-H⊿H=H+W+F:Goto 3
≠=>P≤A-Z[3]+L-K=>I=P-A+Z[3]-E:Goto 4: ≠=>Goto 2⊿⊿
Lb1 2 :X= B+Z[4]cos(F+Ο :Y= C+Z[4]sin(F+Ο :J=F+Ο+180:G=K
P≤A-Z[3]+L=>I=A-Z[3]+L-P:H=90II÷RKπ:Ο>0=>H=-H⊿H=H+J+W+180:Goto 3
≠=>I=P-A+Z[3]-L:M=-I:N=0:H=J+W+180:Goto 5
Lb1 3 :M=I-I∧5÷40RRGG:N=III÷6GR-I∧7÷336RRRGGG:Goto 5
Lb1 4 :H=(E+2I)×90÷πR:M=R sin H+Z[2]:N=R(1-cos H)+Z[1]:Ο<0=>H=-H⊿H=J+H+W: Goto 5
Lb1 5 :P≤A-Z[3]+L-K=> Ο<0=>N=-N⊿≠=>Ο>0=>N=-N⊿⊿Goto 6
Lb1 6 :X =X+M cos J-N sin J+D cos H:Y =Y+M sin J+N cos J+D sin H
JF（平曲線反算子程序）
Fixm：U=X:V=Y:D=0:J=F-W:P=A+(Y-C)cos J-(X-B)sin J
Lb1 1:Prog“JP”:J=H-180:I=(V-Y)cos J-(U-X)sin J:Abs I<1E-4=>Goto 2:≠=>P=P+I:Goto 1⊿
Lb2: D=(V-Y)÷sinH
SJK（數據庫子程序）
S≤HY點(或者HZ點)里程樁號=>A=交點樁號:B=交點的X坐標:C=交點的Y坐標:F=起點正切線方位角:Ο=曲線轉角(左偏為負值,右偏為正值):R=圓曲線半徑:E=第一緩和曲線長(無輸0):K=第二緩和曲線長:Goto 0△
…
Lbl 0
---------------------------------------------------------------------------------
擴展變量操作（15個）：Defm 15 , O字母0數字←┚
J-SQX（豎曲線數據輸入）
“J-SQX”:{NHUVMQP}:Z[9]=N“SJD”:Z[10]=H“JDZ”:Z[11]=U“I1”:Z[12]=V“I2”:Z[13]=M“R”:Z[14]=Q“QD”:Z[15]=P“ZD”:“TO J-JSMS”
J-PQX (平面數據輸入，自行切換到J-JSMS)
A“JD” B“JDX” C“JDY” F“FJ” O“ZJ：Z-，Y+” RE“LS1” K“LS2”：E<1=>E=1E-9⊿K<1=>K=1E-9⊿Z[1]=EE÷24R-E∧4÷2688RRR:Z[2]=E÷2-EEE÷240RR:X=(EE-KK)÷24R÷sin Abs O :Z[3]“T1” =(R+Z[1])tan(Abs O ÷2)+Z[2]-X◢
Z[4]“T2” =(R+KK÷24R-K∧4÷2688RRR)tan(Abs O ÷2)+K÷2-KKK÷240RR+X◢
L=Abs OπR÷180+(E+K)÷2◢
J=tan-1((R+Z[1])÷(Z[3]-Z[2]):X“E”=(R+Z[1])÷sin J-R◢
X=A-Z[3]:Y=X+E:E<1=>X“ZY”◢
≠=>X“ZH”◢
Y“HY”◢
⊿Y“QZ”=X+(L-K-E)÷2+E◢
Y=X+L-K:X=X+L:K<1=>X“YZ”◢
≠=>Y“YH”◢
X“HZ”◢
⊿Prog“J-JSMS” ←┚
J-JSMS（放樣模式主程序）
“1-ZS,2-F1,3-FS”:“4-F2,5-Z0,6-DM”:Lb1 0:{Z}: Z“MS”≤2=>Goto 1: ≠=> Z≤4=> Goto2
:≠=> Goto 3⊿⊿←┚
Lb1 1 :{PDW}:PD“BZ”W“BJ”: Prog“JP”:X“X=”◢(4850輸入“X=”：X◢)
Y“Y=” ◢ (4850輸入“Y=”：Y◢)
Z<2=> Goto 1:≠=>Prog“JS”:Prog“JC”:H“Z”=H+G◢
Goto 1⊿←┚
Lb1 2 :{XYW}:XYW“BJ”: Prog“JF”: P“P=”◢(4850輸入“P=”：P◢)
D“BZ=”◢(4850輸入“BZ=”：D◢)
Z<4=>Goto 2:≠=>{Q}:Q“ZP”:Prog“JS”:Prog“JC”:Prog“JB”:Goto 2⊿←┚
Lb1 3 :{P}:P: Prog“JS”:H“Z0=”◢(4850輸入“Z0=”：H◢)
Z<6=>Goto 3:≠=>{D}:S“CGZ”:T“JKZ”:Z[8]=Q“LH”:D“BZ”:Prog“JC”:J“JK=”◢(4850輸入“JK=”：J◢)
G“Z”=H+G◢(4850輸入“Z=”：G=H+G◢)
Goto 0⊿
JS（豎曲線計算子程序）
P<Z[14]=>Prog“J-SQX” ⊿P>Z[15]=>Prog“SJ-SQX”⊿←┚
N=Z[9]:U=Z[11]:V=Z[12]:H=Z[13]:G=H Abs(U-V)÷200:P<N=>I=U:M=N-G:M>P=>M=P⊿≠=>I=V:
M=N+G:M<P=>M=P⊿⊿J=(P-M)2÷2H:U-V>0=>J=-J⊿H=Z[10]+(P-N)×I÷100+J
JP（平曲線正算子程序）
Fixm←┚
Lb1 1 :J=F:X= B-Z[3]cos F :Y= C-Z[3]sin F :G=E←┚
P≤A-Z[3]=>I=A-Z[3]-P:M=-I:N=0:H=F+W:Goto 5←┚
≠=>P≤A-Z[3]+E=>I=P-A+Z[3]:H=90II÷REπ:O<0=>H=-H⊿H=H+W+F:Goto 3←┚
≠=>P≤A-Z[3]+L-K=>I=P-A+Z[3]-E:Goto 4: ≠=>Goto 2⊿⊿←┚
Lb1 2 :X= B+Z[4]cos(F+O :Y= C+Z[4]sin(F+O :J=F+O+180:G=K←┚
P≤A-Z[3]+L=>I=A-Z[3]+L-P:H=90II÷RKπ:O>0=>H=-H⊿H=H+J+W+180:Goto 3 ←┚
≠=>I=P-A+Z[3]-L:M=-I:N=0:H=J+W+180:Goto 5 ←┚
Lb1 3 :M=I-I∧5÷40RRGG:N=III÷6GR-I∧7÷336RRRGGG:Goto 5 ←┚
Lb1 4 :H=(E+2I)×90÷πR:M=R sin H+Z[2]:N=R(1-cos H)+Z[1]:O<0=>H=-H⊿H=J+H+W: Goto 5
←┚
Lb1 5 :P≤A-Z[3]+L-K=> O<0=>N=-N⊿≠=>O>0=>N=-N⊿⊿Goto 6←┚
Lb1 6 :X =X+M cos J-N sin J+D cos H:Y =Y+M sin J+N cos J+D sin H
JF（平曲線反算子程序）
Fixm←┚
U=X:V=Y:D=0:J=F-W:P=A+(Y-C)cos J-(X-B)sin J←┚
Lb1 1:Prog“JP”:J=H-180:I=(V-Y)cos J-(U-X)sin J:Abs I<1E-4=>Goto 2:≠=>P=P+I:Goto 1⊿←┚
Lb2: D=(V-Y)÷sinH
JC（超高加寬計算子程序）
Fixm:Z[8]<1=>Z[8]=1E-8⊿
I=E:M=A-Z[3]:E<1=>I=Z[8]:M=M-I⊿G=K:N=A-Z[3]+L:K<1=>G=Z[8]:N=N+G⊿←┚
P≤0.5(N+M=>U=(P-M)÷I:≠=>U=(N-P)÷G⊿U<0=>U=0⊿U>1=>U=1⊿
J=UT 高次拋物線加寬J=T(1-3UU+2UUU ) : DO<0=>J=0⊿
I=1:Prog“JD”:I=US:G=I+UN-N:U=Abs D-V:⊿U<0=>U=O⊿U>M+J+Z[5]=>U=M+J+Z[5]⊿
Z[7]=1=>Goto 1
:≠=>Goto 2←┚
Lb1 1:I=G:DO>0=>I=-I:Abs I<N=>I=-N⊿⊿G=UI:N=I:Goto 3←┚
Lb1 2:N<I=>N=I⊿G=N(M-U)+Z[5]Z[6]:N=-N:DO<0=>G=G+2IU:N=I⊿Goto 3←┚
Lb1 3: U= M+J+V+Z[5]:Abs D≥U-0.01=>G=G-Z[5](N+Z[6])⊿
JB（路基邊樁放樣子程序）
H=H+G-Q:H<0=>I=2:H“W=”=Abs H◢
≠=>I=3 :H“T=”◢(4850輸入“T=”：H◢)
⊿Prog“JD”:G=H÷V:G<1=>I=MG:≠=>G<2=>I=M+N(G-1): ≠=>I=M+N+Z[6](G-2) ⊿⊿
I“BP”=Abs D-VI-Z[7]Int G-U-Z[5] ◢
G=V Frac G:G<1.5=>G“PT”◢
⊿
JD（斷面數據儲存子程序）
I=1=>M=4:N=0.015:Z[5]=0.25:Z[6]=0.015:V=0:Z[7]=2
:≠=> I=2=> Z[5]=1.1: M=0.5: N= 0.75: Z[6]=1.00: V=10: Z[7]=1.0
:≠=> Z[5]=0:M=1.50: N=1.75: Z[6]=2.00 : V=8: Z[7]=1.0⊿⊿
符號說明： ←┚ ◢ ⊿ ≠=> => ≤ ≥
一、 程序簡介
本套程序是共有2個主程序，7個子程序。包括了路線坐標正反算、豎曲線、超高加寬、邊坡放樣及斷面計算等程序。
適用于CASIO4800/4850，4850用戶需要修改清單內結果顯示的字段（例如： X“X=”◢ 改為 “X=”：X◢ 或 G“Z”=H+G◢ 改為“Z=”：G=H+G◢）。
二、 程序功能
本著用最懶的方法做最繁雜的事（當然認真更重要?。?，根據不同需要，本程序共設置了6種計算模式J-JSMS：
1-ZS，正算模式：適用于中、邊樁計算，里程樁號及邊距=>平面坐標。
2-FI，放樣1模式：適用于路面施工放樣，里程樁號及邊距=>平面坐標、路面高程。
3-FS，反算模式：適用于任意點里程、邊距計算，任意點坐標=>里程、邊距。
4-F2，放樣2模式：適用于路基施工放樣，任意點坐標=>里程、邊距、填挖高度，邊坡超欠挖寬度，最近平臺高度（<1.5）。
5-Z0，設計高程計算，即豎曲線計算，里程樁號=>設計高程。
6-DM，斷面計算，里程樁號、邊距=>設計高程、加寬值、指定邊樁的高程。
三、 計算范圍
平曲線：直線-緩和曲線（或無）-圓曲線-緩和曲線（或無）-直線中任意樁號，允許兩緩和曲線不等長，即可以算卵形曲線，回頭曲線
豎曲線：前交點SYZ到后交點SZY中的任意樁號
四、 數據輸入及各計算模式運行過程
1、正算模式：1-ZS，
運行主程序J-PQX（平曲線），計算過程如下：
顯示
輸入
計算結果
備注
DJ？
交點樁號
JDX？
交點X值
JDY？
交點Y值
FJ？
計算方位角
ZJ：Z-，Y+？
交點轉角
左轉為負值，右轉正值
R？
圓曲線半徑
LS1？
第一緩和曲線
LS2？
第二緩和曲線
T1=
前切線
T2=
后切線
L=
曲線長度
E=
外距
ZH=
ZH樁號
若不計算平曲線要素樁號，程序清單J-PQX內有下劃線部分可以不寫入計算器內。
HY=
HY樁號
QZ=
QZ樁號
YH=
YH樁號
HZ=
HZ樁號
1-ZS,2-F1,3-FS
4-F2,5-Z0,6-DM
MS？
計算模式選擇，此模式請輸入：1
總共有6種計算模式供選擇，符號說明見“二、程序功能”。
P？
待求點樁號
BZ？
邊樁距離
左邊為負值，右邊為正值，中樁輸0
BJ？
邊樁夾角
右邊樁與中線夾角，正交為90，斜交另輸
X=
X值
Y=
Y值
P？BZ？BJ？...
本模式循環(huán)計算
2、反算模式：3-FS，
運行主程序J-PQX（平曲線），運行過程同“1、1-ZS，正算模式”；若平曲線數據已經輸入了，或者計算交點同上次相同，可直接運行J-JSMS（計算模式）
顯示
輸入
計算結果
備注
······平曲線數據輸入過程·····
1-ZS,2-F1,3-FS
4-F2,5-Z0,6-DM
MS？
計算模式選擇，此模式請輸入：3
總共有6種計算模式供選擇，符號說明見“二、程序功能”。
X？
任意點P的X值
Y？
任意點P的Y值
BJ？
邊樁夾角
右邊樁與中線夾角，正交為90，斜交另輸
P=
P點樁號
BZ=
邊樁距離
負值為左邊樁，正值為右邊樁
X？Y？...
本模式循環(huán)計算
3、 縱斷面設計高程計算：5-Z0，
步驟1：首先運行J-SQX（豎曲線），此步驟只是豎曲線數據輸入，不進行計算。若計算交點與上次計算交點相同，可跳過此步驟。輸入過程如下：
顯示
輸入
計算結果
備注
SQX SJ
SJD？
豎曲線交點樁號
SQX SJ表示程序狀態(tài)，豎曲線數據輸入
JDZ？
交點高程
I1？
第一縱坡
往樁號增大方向，上坡為正值，下坡為負值，如，下坡2.00%，輸入-2即可
I2？
第二縱坡
R？
豎曲線半徑
QD？
允許計算樁號起點
QD即前交點SYZ樁號，ZD即后交點SZY樁號，
ZD？
允許計算樁號終點
TO J-JSMS
退出本程序進行下一步驟。
之所以分開兩個步驟，是因為當計算樁號超出計算范圍時程序會自動切換到豎曲線數據輸入狀態(tài)，避免出現低級失誤。而且將計算放在J-JSMS中會使程序更加靈活。
步驟2：運行J-JSMS進入模式5-Z0：
顯示
輸入
計算結果
備注
1-ZS,2-F1,3-FS
4-F2,5-Z0,6-DM
MS？
計算模式選擇，此模式請輸入：5
總共有6種計算模式供選擇，符號說明見“二、程序功能”。
P?
待求點P樁號
Z0=
P點設計高程
P？...
本模式循環(huán)計算
4、斷面計算：6-DM，
在此模式中可以輸入超高值、加寬值與及超高緩和長度，并進行計算?。?！
為了方便其它計算模式的切換，每次完成模式6計算后程序會返回模式選擇（MS？）。
斷面計算的主要內容是待求樁號P點的加寬值、指定邊樁的高程，因此運行前應輸入豎曲線數據（已輸入過或同上次計算可以跳過此步）。
顯示
輸入
計算結果
備注
······豎曲線數據輸入，運行J-JSMS·····
1-ZS,2-F1,3-FS
4-F2,5-Z0,6-DM
MS？
計算模式選擇，此模式請輸入：6
總共有6種計算模式供選擇，符號說明見“二、程序功能”。
P?
待求點樁號
Z0=
P點設計高程
縱斷面設計高程
CGZ？
超高橫坡
JKZ？
加寬值
LH？
超高緩和長度
當曲線沒有LS時輸入此項，否則跳過即可
BZ？
邊樁距離
JK=
P點加寬值
當外側邊樁時，計算結果為0。
Z=
P點高程
P點的邊樁高程，不一定是縱斷面設計高程
MS？
模式選擇：6
為了方便其它模式的切換，每次完成模式6程序會返回模式選擇。
5、放樣1模式：2-F1
此模式計算內容X，Y，Z，是將正算，豎曲線，超高結合起來計算的綜合模式，Z值是邊樁或中樁設計高程，計算過程如下（詳細的過程說明參照前面的模式說明）：
步驟:“J-SQX”→“J-PQX”→“J-JSMS”（自動切換）→6-DM→2-F1
顯示
輸入
計算結果
備注
1-ZS,2-F1,3-FS
4-F2,5-Z0,6-DM
MS？
計算模式選擇，此模式請輸入：2
總共有6種計算模式供選擇，符號說明見“二、程序功能”。
P？
待求點樁號
BZ？
邊樁距離
左邊為負值，右邊為正值，中樁輸0
BJ？
邊樁夾角
右邊樁與中線夾角，正交為90，斜交另輸
X=
X值
Y=
Y值
Z=
Z值
P?BZ?BJ? →X=,Y=,Z=→循環(huán)
6、放樣2模式：4-F2
此模式只有一個功能，就是路基放樣，也是整個程序最重要的功能。整個計算包括了正、反算，豎曲線，超高加寬，邊坡計算，計算過程如下（詳細的過程說明參照前面的模式說明）：
步驟:“J-SQX”→“J-PQX”→“J-JSMS”（自動切換）→6-DM→４-F２
顯示
輸入
計算結果
備注
1-ZS,2-F1,3-FS
4-F2,5-Z0,6-DM
MS？
計算模式選擇，此模式請輸入：4
總共有6種計算模式供選擇，符號說明見“二、程序功能”。
X？
任意點P的X值
Y？
任意點P的Y值
BJ？
邊樁夾角
右邊樁與中線夾角，正交為90，斜交另輸
P=
P點樁號
BZ=
邊樁距離
負值為左邊樁，正值為右邊樁
ZP?
地面高程
T=（W=）
填（挖）高度
BP=
邊坡超欠挖寬度
正值表示超挖，負值表示欠挖
PT=
距離平臺高度
當高度小于1.0時顯示，顯示范圍在程序清單內修改G<1.0=>G“PT”
X? Y?BJ? →P =, BZ =,→ZP? →Ｔ=（W=），BP=,PT=→循環(huán)
JD（斷面數據儲存子程序
I=1=>M=①:N=②:Z[5]= ③:Z[6]= ④:V=⑤:Z[7]= ⑥
①0.5路面寬度②路面橫坡③路肩寬度④路肩橫坡⑤0.5中央帶寬度⑥超高方式：1中，2邊
:≠=> I=2=> Z[5]= ①: M=②: N= ③: Z[6]= ④: V=⑤: Z[7]= ⑥
挖方路基①邊溝寬度②第一級邊坡率③第二級邊坡率④第三級邊坡率⑤每級最大坡高⑥平臺寬度
:≠=> Z[5]= ①:M=②: N=③: Z[6]= ④ : V=⑤: Z[7]= ⑥⊿⊿
填方路基①路堤超填寬度②第一級邊坡率③第二級邊坡率④第三級邊坡率⑤每級最大坡高⑥護道（平臺）寬度
必讀：
1、如果中途關機或已知數據與上次計算相同，直接運行J-JSMS計算即可，可不必重新輸入已知數據。
2、輸入豎曲線計算范圍樁號（QD，ZD）非常重要，當計算樁號超出豎曲線計算范圍時，程序會自動切換到J-SQX數據輸入狀態(tài)，完成輸入數據后程序仍然會繼續(xù)上一步的計算，而不需要退出計算模式。
3、程序內未加入長短鏈數據，涉及長短鏈的曲線計算時P值應該增加（或減少）長短鏈數值。
4、因為路肩橫坡的超高在各個工程中的不同，所以路肩的橫坡保持不變（不超高），但不影響其它計算。
