編號(hào) 主程序名（其中文含義） 程序計(jì)算功能
一 FANG YANG （ 放 樣 ） 計(jì)算路線中、邊樁坐標(biāo)，測(cè)站點(diǎn)與路線中、邊樁坐標(biāo)間的距離和方位角等
二 CHAO GAO (超高) 計(jì)算設(shè)計(jì)高程、左右兩側(cè)路基橫坡度、寬度、左中右處設(shè)計(jì)標(biāo)高之差值及設(shè)計(jì)高程
三 YYLDFWJ (任意兩點(diǎn)方位角) 計(jì)算任意兩點(diǎn)間的距離和方位角
四 SQXBG（豎曲線標(biāo)高） 計(jì)算豎曲線設(shè)計(jì)標(biāo)高
五 TIAN WA G-C(填挖高差) 計(jì)算左、中、右處填挖高差
六 BZZB （邊樁坐標(biāo)） 主要進(jìn)行橋梁及涵洞各點(diǎn)放樣計(jì)算
七 ZHUI PO （錐坡） 進(jìn)行錐坡放樣計(jì)算
編號(hào) 子程序名（其中文含義） 程序計(jì)算功能
1 XY （坐標(biāo)計(jì)算子程序） 利用交點(diǎn)參數(shù)數(shù)據(jù)庫(kù)進(jìn)行計(jì)算
2 P-Q-X J-S （平曲線計(jì)算子程序） 利用交點(diǎn)坐標(biāo)進(jìn)行計(jì)算曲線要素
3 YAO-SU (平曲線要素計(jì)算子程序) 進(jìn)行平曲線要素計(jì)算
4 ZB (平曲線的坐標(biāo)計(jì)算子程序) 進(jìn)行平曲線的坐標(biāo)計(jì)算
5 X1 （曲線要素?cái)?shù)據(jù)庫(kù)子程序） 曲線要素?cái)?shù)據(jù)庫(kù)（按樁號(hào)先后順序依次輸入）
6 ZHONG ZHUANG（中樁坐標(biāo)計(jì)算之子程序） 計(jì)算任意點(diǎn)中樁坐標(biāo)及其切線方位角
7 ZH HY（直緩點(diǎn) 緩圓點(diǎn)處中樁坐標(biāo)計(jì)算之子程序） 計(jì)算ZH至HY間中樁坐標(biāo)及其切線方位角
8 HY YH（緩圓點(diǎn) 圓緩點(diǎn)坐標(biāo)計(jì)算之子程序） 計(jì)算HY至YH間中樁坐標(biāo)及其切線方位角
9 YH HZ（圓緩點(diǎn) 直緩點(diǎn)坐標(biāo)計(jì)算之子程序） 計(jì)算YH至HZ間中樁坐標(biāo)及其切線方位角
10 S0（緩和曲線長(zhǎng)度等于零坐標(biāo)計(jì)算之子程序） 計(jì)算S=0的圓曲線中樁坐標(biāo)及其切線方位角
11 ZXZB（直線段坐標(biāo)計(jì)算之子程序） 計(jì)算直線段中樁坐標(biāo)及其切線方位角
12 CHAO GAO-1（超高計(jì)算之子程序） 計(jì)算左右兩側(cè)路基橫坡度、寬度、左中右處設(shè)計(jì)標(biāo)高之差值
13 JK--B[2]（加寬計(jì)算之子程序） 計(jì)算內(nèi)側(cè)路基寬度
14 JU-LI FWJ(任意兩點(diǎn)間距離、方位角計(jì)算之子程序) 計(jì)算任意兩點(diǎn)間的距離和方位角
15 SQXBG-1（豎曲線標(biāo)高計(jì)算之子程序） 計(jì)算豎曲線設(shè)計(jì)標(biāo)高
16 SQX CAN SHU（豎曲線參數(shù)） 輸入各個(gè)豎曲線相關(guān)參數(shù)（按樁號(hào)先后順序依次輸入）
17 CAN SHU（圓曲線參數(shù)） 輸入各個(gè)平曲線相關(guān)參數(shù)（按樁號(hào)先后順序依次輸入）
18 S244-QIAO（S244 線橋梁坐標(biāo)參數(shù)） S244 線橋梁坐標(biāo)參數(shù)數(shù)據(jù)庫(kù)（按樁號(hào)先后順序依次輸入）
19 S244-BM（S244 線橋梁附近的導(dǎo)線點(diǎn)參數(shù)） S244 線橋梁附近的導(dǎo)線點(diǎn)參數(shù)數(shù)據(jù)庫(kù)（按樁號(hào)先后順序依次輸入）
常用字母的一般含義：（輸入時(shí)）
1. 判斷參數(shù)M，當(dāng)M≥0時(shí)，調(diào)用子程序相應(yīng)參數(shù)；當(dāng)M＜0時(shí)，直接輸入相應(yīng)參數(shù)。任意點(diǎn)的樁號(hào)為Z。
2. 圓曲線（ZH）起點(diǎn)樁號(hào)Q，其坐標(biāo)為（X，Y），方位角為A；圓曲線（HZ）起點(diǎn)樁號(hào)C，其坐標(biāo)為（N，E），方位角為B；圓曲線半徑為R，緩和段長(zhǎng)度為S，內(nèi)側(cè)路基最大加寬值為J，路面寬度為K（半幅寬度），路拱橫坡度為B（必須取負(fù)數(shù)），最大超高橫坡度為H（必須取非負(fù)數(shù)）。
3. 豎曲線：第一坡度值為I（上坡為正值，下坡為負(fù)值），第二坡度值為J（上坡為正值，下坡為負(fù)值），豎曲線半徑為R，變坡點(diǎn)樁號(hào)為N，變坡點(diǎn)高程為H。
4. 計(jì)算邊樁坐標(biāo)時(shí)： V為旋轉(zhuǎn)角度（左為負(fù)值，右為正值。正交時(shí)V取90或-90），K為邊樁到中樁的距離。

主程序名及內(nèi)容 備 注
一 FANG YANG （ 放 樣 ）
[原名為 JU-LI FWJ FY (距離 方位角 放樣 即偏角法放樣)]
M“1-11 XY，2-12 JU-LI，3-13 XY JU-LI，4-14 YSZH，M≤0-INPUT JDXY”：V=M：Z[67]= 0
M＞10﹦> Goto W：≠> M≤0﹦> Goto 3
Lbl 7：{T}：T“INPUT QIAN-HOU JU-LI（QIAN +，HOU -）”： Z[51]=T：{U}：U“INPUT P（ZHUANG WEI SHU）”：Z[52]=U：Goto 1
Lbl 3: Z[67]= -1：Prog “P-Q-X J-S”
Lbl W: V=14﹦>Prog “X1”
V=14﹦>Goto V
V＞10﹦>V=V-10：Z[67]= 1:≠> V=V
V=Abs V：V=1﹦> Z[67]= 1:Goto 6:≠> V＞1﹦> V＜4﹦>“INPUT CE-ZHAN-DIAN X，Y”：{X，Y}：≠> V=4﹦> Goto V
Lbl 6:Goto 7
Lbl 9:Z：Z[67]= 1﹦> Prog “X1”
Prog “YAO-SU” ：Prog “XY”
Z[67]=-1﹦>K=Z[15]
Goto 9
Lbl 1:
{P}：P“SHI FUO INPUT V，K（P＞0，N O P＜0，YES）”： Z[65]=P：
P＜0﹦> Goto K
V=Z[55]：K=Z[61]：“INPUT V[1]=”：{V}：Z[55]=V：“INPUT K[1]=”：{K}：Z[61]=K：Z[52]=1﹦> Goto K
V=Z[56]：K=Z[62]：“INPUT V[2]=”：{V}：Z[56]=V：“INPUT K[2]=”：{K}：Z[62]=K：Z[52]=2﹦> Goto K
V=Z[57]：K=Z[63]：“INPUT V[3]=”：{V}：Z[57]=V：“INPUT K[3]=”：{K}：Z[63]=K：Z[52]=3﹦> Goto K
V=Z[58]：K=Z[64]：“INPUT V[4]=”：{V}：Z[58]=V：“INPUT K[4]=”：{K}：Z[64]=K
Lbl K: Z[67]=1﹦> Goto 9
M=1﹦> Goto 0
“INPUT CE-ZHAN-DIAN X,Y”:I“X”：J“Y”
Z：Z[1]=I:Z[2]=J：“INPUT HOU-SHI-DIAN N,E”:NE：Z[10]=N：Z[11]=E:P=N-I：F=E-I：Prog “JU-LI FWJ”
“HOU-SHI-DIAN”: “JU-LI=”:L▲
“FWJ=”:W->DMS▲
Z[12]=W
Lbl 0:Z:Prog“CAN SHU”
M≠4﹦> Goto 2
“ZH=”:Q▲
“X=”:X▲
“Y=”: Y▲
“A-FWJ=”:A▲
“HZ=”:C▲
“N=”:N▲
“E=”:E▲
“B-FWJ=”:B▲
“R=”:R▲
“S=”:S▲ (輸入M值，當(dāng)M〈0時(shí)，則需要輸入圓曲線交點(diǎn)參數(shù)；當(dāng)M≥0,則直接調(diào)用子程序中的對(duì)應(yīng)參數(shù)，M=1，2，3，4時(shí)調(diào)用其自程序《CAN SHU》的參數(shù)，M=11，12，13，14時(shí)，調(diào)用《X1》的參數(shù)。）
輸入前后距離，前為正值，后為負(fù)值。
輸入每個(gè)斷面的樁數(shù)（為1～4）。
輸入測(cè)站點(diǎn)坐標(biāo)X、Y值。
是否輸入V，K值，當(dāng)輸入正數(shù)時(shí)，計(jì)算過(guò)程中不必輸入V，K；當(dāng)輸入負(fù)值時(shí)，計(jì)算過(guò)程中需要輸入V，K。
輸入第1～4個(gè)樁位的K，V值：K為邊樁到中樁的距離（左為負(fù)值，右為正值）， V為旋轉(zhuǎn)角度（左為負(fù)值，右為正值。正交時(shí)V取90或-90）；當(dāng)V或K為負(fù)值時(shí)，計(jì)算左側(cè)邊樁；當(dāng)V、K同時(shí)為正值時(shí)，計(jì)算右側(cè)邊樁；當(dāng)K=0時(shí)，計(jì)算中樁。
輸入測(cè)站點(diǎn)坐標(biāo)X、Y值。
輸入后視點(diǎn)坐標(biāo)N、E值。
顯示結(jié)果含義：
HOU-SHI-DIAN （后視點(diǎn)）；
JU-LI=為測(cè)站點(diǎn)與后視點(diǎn)的計(jì)算距離；
FWJ=為測(cè)站點(diǎn)與后視點(diǎn)的計(jì)算方位角。
曲線的ZH樁號(hào)、坐標(biāo)X、Y、方位角；
曲線的HZ樁號(hào)、坐標(biāo)N、E、方位角；
曲線半徑R；
緩和段長(zhǎng)度S；
主程序名及內(nèi)容 備 注

“JIA-KUAN-ZHI=”:J▲
“CHAO-GAO-ZHI=”:H▲
Goto 0
Lbl 2:Prog“ZHONG ZHUANG”
Z[3]=W:Z[4]=N[1]:Z[5]=E[1]：Z[53]=0
Lbl B:D=Z:K=Z[7]:Z[53]=1+Z[53]
Z[65] <0﹦> Goto N
P=Z[53]：V=Z[54+P]：K=Z[60+P]：Goto P
Lbl N:{K}：K=0﹦> V=90：Goto P
{V}
Lbl P:K＜0﹦> V=-AbsV：K=AbsK：≠>V＜0﹦> V=-AbsV：K=AbsK：≠>V=AbsV：K= AbsK
P=Z[4]+cos(Z[3]+V) ×K-Z[1]
F=Z[5]+sin(Z[3]+V) ×K-Z[2]
V＜0﹦> V=AbsV：K=-AbsK：≠>V=AbsV：K= AbsK
M=2﹦> Goto 5
“N[2]=”：P+Z [1]▲
“E[2]=”：F+Z [2]▲
M=1﹦> Goto 8
Lbl 5: Prog “JU-LI FWJ”
“FWJ=”:W▲
“JU-LI=”:L▲
M≠3﹦> Goto 8
“SHUI PING JIAO=”：W=Abs(W-Z[12]):W->DMS▲
Lbl 8:I=Z[1]:J=Z[2]:N=Z[10]:E=Z[11]:Z[7]=K
U=Z[52]:T=Z[51]
“NOW Z=”:Z▲
Z[53]=U﹦> Z=Z+T
“NO.”：Z[53] ▲
“NEXT Z=”:{Z}：Z=D﹦> Goto B:≠> Goto 0
Lbl V：V=14﹦>Prog “P-Q-X J-S”
V=14﹦>{Z}：Goto W
加寬值；
超高值。
輸入樁位的K，V值：K為邊樁到中樁的距離（左為負(fù)值，右為正值）， V為旋轉(zhuǎn)角度（左為負(fù)值，右為正值。正交時(shí)V取90或-90）；當(dāng)V或K為負(fù)值時(shí)，計(jì)算左側(cè)邊樁；當(dāng)V、K同時(shí)為正值時(shí)，計(jì)算右側(cè)邊樁；當(dāng)K=0時(shí)，計(jì)算中樁。
N[2]=為該樁位的X坐標(biāo)值；
N[1]=為該樁位的Y坐標(biāo)值；
FWJ=為測(cè)站點(diǎn)與路線中、邊樁坐標(biāo)間的方位角。
JU-LI=為測(cè)站點(diǎn)與路線中、邊樁坐標(biāo)間的距離；
SHUI PING JIAO=為測(cè)站點(diǎn)與后視點(diǎn)及測(cè)站點(diǎn)與路線中、邊樁間的水平夾角。
NOW Z=為現(xiàn)在的樁號(hào)；
NO.為現(xiàn)在的樁號(hào)的第幾個(gè)樁位；
NEXT Z=為下一樁位的樁號(hào)。
二 CHAO GAO (超高)
M“SHI FUO INPUT CAN SHU（M＞0，N O M＜0，YES）”
M≥0﹦> Goto 0
“INPUT V ZUO﹦> V<0 YOU﹦> V≥0”: VQC：S“S1=”:Z[1]=S:
{S}：S“S2=”：Z[20]=S：S=Z[1]：JBH:Z[8]=C:Z[4]=V:Z[9]=K:
Z[10]=J：Lbl 0: {Z}:M<0﹦> Goto A
I“INPUT I （I≥0﹦> SHE-JI GAO-CHENG≠>JI-SUAN CHAO-GAO）”
Z[15]=I：Prog “SQSBG-1”: Z[8]=G
Z[15]<0﹦> Goto 1
“SHE-JI GAO-CHENG=”：G▲
Lbl 1:Prog “CAN SHU”
A<B﹦> Z[4]=1:≠> Z[4]=-1
B=Z[6]：Goto B
Lbl A:C=Z[8]:V=Z[4]:K=Z[9]:J=Z[10]
Lbl B: Prog “CHAO GAO-1”
“I[1]=”：100*I[1] ▲
“I[2]=”：100*I[2] ▲
“B[1]=”：B[1] ▲
“B[2]=”：B[2] ▲
“Z[1]=”：Z[1] ▲ 計(jì)算設(shè)計(jì)高程、左右兩側(cè)路基橫坡度、寬度、左中右處設(shè)計(jì)標(biāo)高之差值及設(shè)計(jì)高程
輸入M值，當(dāng)M〈0時(shí)，則需要輸入圓曲線參數(shù)；當(dāng)M≥0,則直接調(diào)用子程序中的對(duì)應(yīng)參數(shù)。
[輸入v值，當(dāng)圓曲線為左轉(zhuǎn)彎時(shí)，則V為負(fù)值 , 當(dāng)圓曲線為右轉(zhuǎn)彎時(shí)，則V為正值 。
圓曲線（ZH）起點(diǎn)樁號(hào)Q，圓曲線（HZ）起點(diǎn)樁號(hào)C，緩和段長(zhǎng)度為S，路面寬度為K（半幅寬度），內(nèi)側(cè)路基最大加寬值為J，路拱橫坡度為B（必須取負(fù)數(shù)），最大超高橫坡度為H（必須取非負(fù)數(shù)）。]
顯示結(jié)果含義：G為設(shè)計(jì)高程。
I[1]為左側(cè)路面橫坡度，負(fù)值為左側(cè)低于中樁，正值為左側(cè)高于中樁。

I[2] 為右側(cè)路面橫坡度，負(fù)值為右側(cè)低于中樁，正值為右側(cè)高于中樁。
B[1]為左側(cè)路面寬度
B[2]為右側(cè)路面寬度
主程序名及內(nèi)容 備 注
（接上頁(yè)）
“Z[2]=”：Z[2] ▲
“Z[3]=”：Z[3] ▲
M<0﹦> Goto 0
“H[1]=”：H[1]=Z[8]+Z[1] ▲
“H[2]=”：H[2]=Z[8]+Z[2] ▲
“H[3]=”：H[3]=Z[8]+Z[3] ▲
Goto 0 Z[1]為左側(cè)路面邊緣與設(shè)計(jì)高程之差
Z[2]為中樁處與設(shè)計(jì)高程之差
Z[3]為右側(cè)路面邊緣與設(shè)計(jì)高程之差
H[1]為左側(cè)路面邊緣設(shè)計(jì)標(biāo)高
H[2]為中樁處設(shè)計(jì)標(biāo)高
H[3]為右側(cè)路面邊緣設(shè)計(jì)標(biāo)高
三 YYLDFWJ (任意兩點(diǎn)方位角)
Lbl 0:XYNE：P=N-X：F=E-Y
Prog “JU-LI FWJ”
“JU-LI=”:L▲
“FWJ=”:W▲
{XYNE}: Goto 0 計(jì)算任意兩點(diǎn)間的距離和方位角
輸入第一點(diǎn)的坐標(biāo)X，Y；輸入第一點(diǎn)的坐標(biāo)N，
E。
顯示結(jié)果含義：
L為任意兩點(diǎn)間的距離
W為任意兩點(diǎn)間的方位角
四SQXBG（豎曲線標(biāo)高）
M:M≥0﹦> Goto 1
IJRNH：Lbl 1: {Z}：Prog “SQSBG-1”
“SHE-JI GAO-CHENG=”：G▲
Goto 1 計(jì)算豎曲線設(shè)計(jì)標(biāo)高
(輸入M值，當(dāng)M〈0時(shí)，則需要輸入圓曲線參數(shù)；
當(dāng)M≥0,則直接調(diào)用子程序中的對(duì)應(yīng)參數(shù)。）
顯示結(jié)果含義：G為設(shè)計(jì)高程
五 TIAN WA G-C(填挖高差)
N “INPUT JIE-GOU-CENG-HOU-DU”
H “INPUT SHI-XIAN-GAO-CHENG”:M=3
Z[8]=N:Z[9]=H:Z
Lbl A:D=Z
Prog“SQSBG-1”
Z[15]=G:Prog“CAN SHU”
A<B﹦>Z[4]=1:≠>Z[4]=-1
B=Z[6]: Prog “CHAO GAO-1”
Z[5]=I[1]: “INPUT V(V=1,2,3 ZUO ZHONG YOU)”:{V}
V=1﹦>Goto 1:≠> V=2﹦>Goto 2:≠> V=3﹦>Goto 1:≠>
Goto 4
Lbl 1:J=Z[11]: “KUAN-DU>=SHE-JI﹦>J>=0≠>J〈0”
{J,F}:Z[11]=J
V=1﹦>I=Z[5]:H=Z[1]: ≠> I=Z[2]:H=Z[3]
Z[7]=Z[10]+H Z[8]-Z[9]+F：Goto 3
Lbl 2:J=Z[12]：“ZUO﹦>J〈0≠>YOU J>0≠>ZHONG J=0”
{J，F(xiàn)}:Z[12=J：J>0﹦>I=Z[5]：≠>I=-I[2]
Z[7]=Z[15]+Z[2]-IJ-Z[8]-Z[9]+F▲
Lbl 3:“TIAN-WA GAO-CHA=”：Z[7] ▲
Lbl 4:N=Z[8]：H=Z[9]：{Z}:Z=D﹦> Goto B:≠> Goto A
計(jì)算左、中、右處填挖高差（必須調(diào)用平、豎曲線參數(shù)才能進(jìn)行計(jì)算）
輸入結(jié)構(gòu)層厚度N值（即本結(jié)構(gòu)層頂面至設(shè)計(jì)高程之差值）；輸入視線高程H值。輸入樁號(hào)Z值。
輸入v值，當(dāng)計(jì)算左側(cè)邊樁高差時(shí)，則V=1；當(dāng)計(jì)算中樁高差時(shí)，則V=2, 當(dāng)計(jì)算右側(cè)邊樁高差時(shí)，則V=3值 。輸入邊樁加寬值J，當(dāng)邊樁至中樁之距離大于該側(cè)設(shè)計(jì)路基寬度時(shí)，則J為正值；當(dāng)邊樁至中樁之距離小于該側(cè)設(shè)計(jì)路基寬度時(shí)，則J為負(fù)值。輸入中樁或邊樁處的前視讀尺數(shù)F值。當(dāng)V=2時(shí)，J為偏左或偏右的距離，左為負(fù)值，右為正值，不偏離 J=0；鋪穩(wěn)定層適用中樁左右偏離，其他J=0。
顯示結(jié)果含義：
為所側(cè)點(diǎn)至本結(jié)構(gòu)層頂面之填挖高差（正值為
填，負(fù)值為挖）。
主程序名及內(nèi)容 備 注
六 BZZB （邊樁坐標(biāo)）
I“INPUT I （I≥0﹦>JU-LI FWJ FY ≠>X，Y FY）”：Z[15]=I
M“INPUT M （M=244﹦>S244-QIAO）”：M≠244﹦>Goto B
Lbl A:Z“INPUT LI-CHENG”：Z≥148﹦>Z/1000
Z≥148﹦> Goto A
Z＞130﹦>Prog “S244-QIAO” P=N-X：F=E-Y：“QIAO-LIANG ZHONG-XIN ZHUANG-HAO Z=”：Z▲
Prog “JU-LI FWJ”
N=（X+N）/2：E=（Y+E）/2：Z[15]＜0﹦>Goto C
I“INPUT BM BIAN-HAO”：Z[13]=I：Prog “S244-BM”
“X=”：X▲
“Y=”：Y▲
“H=”：H▲
Goto C
Lbl B: Z[15]＜0﹦>Goto 1
“INPUT CE-ZHAN-DIAN X,Y”:XY
Lbl 1:“JI-SUAN-YUAN-DIAN N，E，F(xiàn)WJ”：NE：W=Z[2]：{W}
Lbl 0: Z=Z[14]：{Z}：Z“INPUT QIAN-HOU JU-LI（QIAN +，HOU ）”：{VK}：Z[14]=Z：Z≥0﹦>A=0：Z[1]=Z：≠>A=180：Z[1]=-1
N[2]=N+cos(W+A)×Z[1]+cos(W+V)×K
E[2]=E+sin(W+A)×Z[1]+sin(W+V)×K
I=Z[15]：Z=[14]：Z[15]＜0﹦>Goto 2
P=N[2]-X：F=E[2]-Y：Prog “JU-LI-FWJ”
“FWJ=”:W▲
“JU-LI=”:L▲
W=Z[2]：Goto 0
Lbl 2:“N[2]=”：N[2]▲
“E[2]=”：E[2]▲
Goto 0 主要進(jìn)行橋梁及涵洞各點(diǎn)坐標(biāo)計(jì)算放樣
輸入I值（距離方位角放樣時(shí)I≥0，坐標(biāo)放樣時(shí)I＜0）。
輸入M值（M=244時(shí)，進(jìn)行S244線橋梁放樣計(jì)算）。
輸入S244線橋梁的里程樁號(hào)。
顯示橋梁中心樁號(hào)
輸入橋梁附近的導(dǎo)線點(diǎn)編號(hào)
輸入測(cè)站點(diǎn)坐標(biāo)
輸入計(jì)算原點(diǎn)的坐標(biāo)N、E。
輸入前后距離，角度及左右距離。
顯示測(cè)站點(diǎn)與計(jì)算點(diǎn)的方位角和距離。
顯示計(jì)算點(diǎn)的坐標(biāo)。
7 ZHUI PO （錐坡）
I“INPUT I（I≥0﹦>JU FWJ FY ≠>X，Y FY）”：ABWVXYKM：Z[3]=W：
I<0﹦> Goto 0
“INPUT CE-ZHAN-DIAN N,Y”:{NE}
Lbl 0:Z[1]=M/K：Z[2]=B√（1-Z[1]2）
N[2]=X+A*Z[1]cosW+Z[2]cos(W+V)
E[2]=Y+A*Z[1]sinW+Z[2]sin(W+V)
I<0﹦> Goto 1
P=N[2]-X：F=E[2]-Y：Prog “JU-LI-FWJ”
“FWJ=”:W▲
“JU-LI=”:L▲
W=Z[3]：Goto 2
Lbl 1:“N[2]=”：N[2]▲
“E[2]=”：E[2]▲
Lbl 2:{M}：Goto 0 進(jìn)行錐坡放樣計(jì)算
子程序名及內(nèi)容 備 注
1 XY （坐標(biāo)計(jì)算子程序）
Prog “ZB”：Z[53]=0
Lbl B:Z[69]=Z:B=Z[70]:Z[53]=1+Z[53]
Z[65]<0﹦> Goto N
P=Z[53]：U=Z[54+P]：B=Z[60+P]
Lbl P:B＜0﹦> U=AbsU：B=-AbsB：≠>U＜0﹦> U=AbsU：B=-AbsB：≠>U=AbsU：B= AbsB
Goto 3
Lbl N:{B}：B“K（ZUO-，YOU +）”：B≠0﹦>U=Z[68]:{U}：U“V（ZHENG JIAO V=+90）”：U=AbsU： Z[68]=U
Lbl 3:N[2]=N+Bcos（W+U）：E[2]=E+Bsin（W+U）
V＞1﹦>I=PoL(N[2]-X,E[2]-Y:J＜0﹦>J=J+360: ≠> J=J
V=2﹦> Goto A
“N[2]=”:N[2]▲
“E[2]=”:E[2]▲
V=1﹦> Goto 9
“FWJ=”：J->DMS▲
“JU-LI=”:I▲
V=2﹦> Goto 9
J＞S“HOU-SHI-DIAN-FWJ0” ﹦>F=J-S: ≠> F=J+360-S
“JI-SUAN SHUI-PING-JIAO0=”:F->DMS▲
{I}:I“CE-JU-LI”:“CE-X=”: Rec(I,J)+X▲
“CE-Y=”:J+Y▲
Lbl 9 “NOW Z=”:Z▲
Z[53]=Z[52]﹦> Z=Z+Z[51]
“NO.”：Z[53] ▲
“NEXT Z=”:{Z}：Z=Z[69]﹦> Goto B
Lbl 2
利用交點(diǎn)參數(shù)數(shù)據(jù)庫(kù)進(jìn)行計(jì)算
當(dāng)M輸入11時(shí)，計(jì)算并顯示坐標(biāo)；輸入12時(shí)，為距離方位角放樣；輸入13時(shí)，計(jì)算并顯示施檢表（6、7）中的各項(xiàng)數(shù)據(jù)；輸入4時(shí)，計(jì)算并顯示交點(diǎn)要素，并可與施工圖紙中的直線、曲線及轉(zhuǎn)角表的數(shù)據(jù)相核對(duì)，檢驗(yàn)子程序X1的要素輸入是否正確。

N[2]=為施檢表（7）中的X設(shè)計(jì)坐標(biāo)；
E[2]=為施檢表（7）中的Y設(shè)計(jì)坐標(biāo)；
FWJ=為施檢表（7）中的計(jì)算方位角；
JU-LI=為施檢表（7）中的計(jì)算距離；
HOU-SHI-DIAN-FWJ0輸入測(cè)站點(diǎn)至后視的方位角；
JI-SUAN SHUI-PING-JIAO0=為施檢表（7）中的計(jì)算水平角；
CE-JU-LI輸入測(cè)站點(diǎn)至求算點(diǎn)的實(shí)測(cè)距離；
CE-X=為施檢表（7）中的X實(shí)測(cè)坐標(biāo)；
CE-Y=為施檢表（7）中的Y實(shí)測(cè)坐標(biāo)；
2 P-Q-X J-S （平曲線計(jì)算子程序,利用交點(diǎn)坐標(biāo)計(jì)算）
V=14﹦> Goto 1
“QI-DIAN”：XY：Z[1]=X：Z[2]=Y：“JD”：NE：P=1：Z[3]=N=N：Z[4]=E：K“JD-Z=”：K：“ZHONG-DIAN”：U“X=”：B“Y=”：Z[5]=U：Z[6]=B：R：H“S1=”：Z[19]=H：L“S2=”：Z[20]=L
Lbl 1：Prog “YAO-SU”
“JD0=”：A->DMS▲
“FWJ0=”：F->DMS▲
“T1=”：T▲
“T2=”：C▲
“L=”：D▲
“E=”：（R+H2/24R）/sin(tan-1((R+H 2/24R）/(T-(H/2-H3/240R2 )))-R▲
“ZH=”:O▲
“HY=”:O+H▲
“QZ=”:O+H+(AbsAR3.1415927/180-H/2-L/2)/2▲
“YH=”:OL▲
“HZ=”:O+D▲
V≠14﹦> K=Z[15]
利用交點(diǎn)坐標(biāo)進(jìn)行計(jì)算曲線要素
（顯示計(jì)算結(jié)果，與主程序聯(lián)合使用或單獨(dú)使用均可。）
QI-DIAN含義為起點(diǎn)，依次輸入起點(diǎn)的坐標(biāo)X、Y，交點(diǎn)的坐標(biāo)N、E、樁號(hào)，終點(diǎn)的坐標(biāo)X、Y，及該曲線的半徑R、第一緩和段長(zhǎng)度S1、第二緩和段長(zhǎng)度。
顯示含義：
JD0為交點(diǎn)偏角；
FWJ0為該曲線的起點(diǎn)處方位角；
T1為第一切線長(zhǎng)度；
T2為第二切線長(zhǎng)度；
L為該緩和曲線總長(zhǎng)度；E為曲中至交點(diǎn)的距離；
ZH為直緩點(diǎn)樁號(hào)；
HY為緩圓點(diǎn)樁號(hào)；
QZ為曲中點(diǎn)樁號(hào)；
YH為圓緩點(diǎn)樁號(hào)；
HZ為緩直點(diǎn)樁號(hào)。
子程序名及內(nèi)容 備 注
3 YAO-SU (平曲線要素計(jì)算子程序)

進(jìn)行平曲線要素計(jì)算
（不顯示計(jì)算結(jié)果，必須與主程序聯(lián)合使用，不能單獨(dú)使用。）
4 ZB (平曲線的坐標(biāo)計(jì)算子程序)
Z≤O﹦>C=O-Z：N=Rec(C,F+180)+G：E=J+M：W=F
Z≥O﹦>Z≤O+H﹦>C=Z-O：T=C-C5/40R2H2：K=C3/6RH-C7/336R3H3：
I=PoL（T，K：J=J：N=Rec(I,F+J（A/AbsA)）+G：E=J+M：
W=90C2/RH*3.1415927（A/AbsA)+F`
Z≥O+H﹦>Z≤(O+D)-L﹦>C=Z-（O+H）：W=F-90(A/AbsA)+(A/AbsA)（90H+180C）/R*3.1415927：N=Rec(R,W)+G：E=J=J+M：W=W90（A/AbsA) `
Z≥(O+D)-L﹦>Z≤O+D﹦>C=(O+D)-Z：T=C-C5/40R2L2：
K= C3/6RH-C7/336R3H3：I=PoL（T，K：J=J：N=Rec(I,F+180J（A/AbsA)）+G：E=J+M：
W=-90C2/RL*3.1415927（A/AbsA)+F+A`
Z≥O+D﹦>C=Z-（O+D）：N=Rec(C,F+A)+G：E=J+M：W=F+A
進(jìn)行平曲線的坐標(biāo)計(jì)算
（不顯示計(jì)算結(jié)果，必須與主程序聯(lián)合使用，不能單獨(dú)使用。）
5 X1 （曲線要素?cái)?shù)據(jù)庫(kù)子程序）
Z[1]= ：Z[2]= : Z[3]== : Z[4]== : Z[5]= : Z[6]== : Z[7]== : Z[8]== : Z[9]== : Z[10]= : Z[11]== : Z[12]==
……………………
Z[n*2+1]= ：Z[n*2+2]= ：Z[n*2+3]= ：Z[n*2+4]=
Z≥QI DIAN（起點(diǎn)樁號(hào)）﹦>Z≤HZ-1（JD1 的HZ）﹦>P=1：K= ：R= ：H= ：L= ：Goto A
Z≤HZ-2（JD2 的HZ）﹦>P=2：K= ：R= ：H= ：L= ：Goto A
Z≤HZ-3（JD3 的HZ）﹦>P=3：K= ：R= ：H= ：L= ：Goto A
……………………
Z≤HZ-（n-1）（JDn-1 的HZ）﹦>P=n-1：K= ：R= ：H= ：L= ：Goto A
Z＞HZ-(n-1)（JDn-1 的HZ）﹦>Z≤ZHONG DIAN（終點(diǎn)樁號(hào)）﹦>P=n：K= ：R= ：H= ：L= ：
Lbl A 曲線要素?cái)?shù)據(jù)庫(kù)
Z[1]為路線起點(diǎn)的X坐標(biāo)；Z[2]為路線起點(diǎn)的Y坐標(biāo)；
Z[3]為交點(diǎn)JD1的X坐標(biāo)；Z[3]為交點(diǎn)JD1的Y坐標(biāo)；
Z[4]為交點(diǎn)JD2的X坐標(biāo)；Z[5]為交點(diǎn)JD2的Y坐標(biāo)；
……………………
Z[n*2+1]為交點(diǎn)JDn的X坐標(biāo)；Z[n*2+2]為交點(diǎn)JDn的X坐標(biāo)；Z[n*2+3]為路線終點(diǎn)的X坐標(biāo)；Z[n*2+4]為路線終點(diǎn)的X坐標(biāo)；
P為計(jì)算圓曲線的編碼，分別以1、2、3……n順序輸入。K為交點(diǎn)里程樁號(hào)。R為圓曲線半徑。H為第一緩和段長(zhǎng)度。L為第二緩和段長(zhǎng)度。
（不顯示計(jì)算結(jié)果，必須與主程序聯(lián)合使用，不能單獨(dú)使用。）
6 ZHONG ZHUANG（中樁坐標(biāo)計(jì)算之子程序）
B≥A﹦> I=1:≠> I=-1
Z≤Q﹦> Prog “ZXZB”：Goto A
Z≥C﹦> Prog “ZXZB”：Goto A
S=0﹦> Prog “S0”：Goto A
Z≤Q+S﹦> Prog “ZH HY” :≠>C-S≥Z﹦> Prog “HY YH” :≠> Prog “YH HZ”
Lbl A 由計(jì)算器自動(dòng)判斷所輸入樁號(hào)所屬位置（如直緩點(diǎn)至緩圓點(diǎn)段、緩圓點(diǎn)至圓緩點(diǎn)、圓緩點(diǎn)至直緩點(diǎn)、緩和曲線長(zhǎng)度等于零、直線段），并調(diào)用相應(yīng)的子程序。
（不顯示計(jì)算結(jié)果，必須與主程序聯(lián)合使用，不能單獨(dú)使用。）
子程序名及內(nèi)容 備 注
7 ZH HY（直緩點(diǎn) 緩圓點(diǎn)處中樁坐標(biāo)計(jì)算之子程序）
L=Z-Q
N[1]=X+ cosA（L-L5÷（40R2S2））-IL3sinA÷（6RS）
E[1]=Y+ sinA（L-L5÷（40R2S2））+IL3cosA÷（6RS）
W=A+28.6479IL2÷（RS） 計(jì)算ZH至HY間中樁坐標(biāo)及其切線方位角
（不顯示計(jì)算結(jié)果，必須與主程序聯(lián)合使用，不能單獨(dú)使用。）
8 HY YH（緩圓點(diǎn) 圓緩點(diǎn)坐標(biāo)計(jì)算之子程序
L=Z-Q-S
Z[3]=180L÷（3.1415927R）+28.6479S÷RN[1]=X+ cosA（Rsinz[3]+S÷2-S3÷（240R2））
-IsinA(R(1-cosZ[3])+S2÷（24R）)
E[1]=Y+sinA（RsinZ[3]+S÷2-S3÷（240R2））
+IcosA(R(1-cosZ[3])+S2÷（24R）)
W=A+IZ[3] 計(jì)算HY至YH間中樁坐標(biāo)及其切線方位角（不顯示計(jì)算結(jié)果，必須與主程序聯(lián)合使用，不能單獨(dú)使用。）
9 YH HZ（圓緩點(diǎn) 直緩點(diǎn)坐標(biāo)計(jì)算之子程序）
L=C-Z
N[1]=N- cosB（L-L5÷（40R2S2））-IL3sinB÷（6RS）
E[1]=E- sinB（L-L5÷（40R2S2））+IL3cosB÷（6RS）
W=B-28.6479IL2÷（RS） 計(jì)算YH至HZ間中樁坐標(biāo)及其切線方位
角
（不顯示計(jì)算結(jié)果，必須與主程序聯(lián)合使用，不能單獨(dú)使用。）
10 S0（緩和曲線長(zhǎng)度等于零坐標(biāo)計(jì)算之子程序）
L=Z-Q: Z[3]=180L÷（3.1415927R）
N[1]=X+ RcosAsinz[3] -IR sinA(1-cosZ[3])
E[1]=Y+ RsinAsinz[3] +IR cosA (1-cosZ[3])
W=A+IZ[3] 計(jì)算S=0的圓曲線中樁坐標(biāo)及其切線方位角
（不顯示計(jì)算結(jié)果，必須與主程序聯(lián)合使用，不能單獨(dú)使用。）
11 ZXZB（直線段坐標(biāo)計(jì)算之子程序）
Z≤Q﹦> L=Q-Z:Z[3]=A+180:F=X:J=Y:W=A:≠>L=Z-C
:Z[3]=B:F=N:J=E:W=B
N[1]=F+LcosZ[3]:E[1]=J+LsinZ[3] 計(jì)算直線段中樁坐標(biāo)及其切線方位角
（不顯示計(jì)算結(jié)果，必須與主程序聯(lián)合
使用，不能單獨(dú)使用。）
12 JK--B[2]（加寬計(jì)算之子程序）
Z≤Q﹦> Goto 1
Z≥C﹦> Goto 1
S=0﹦> Goto 1
Z≤Q+S﹦> Goto C:≠> Z ≥C-S﹦> Goto C :≠> Goto D
Lbl C: Z≤Q+S﹦> L=Z-Q:≠>L=C-Z
T=L+S:P≥0﹦> Goto 2:≠> Goto 3
Lbl 3:B[2]=(4T3-3T4)J+K:Goto E
Lbl 2:B[2]=K+TJ:Goto E
Lbl D:B[2]=K+J:Goto E
Lbl 1:B[2]=K
Lbl E 計(jì)算內(nèi)側(cè)路基寬度
（不顯示計(jì)算結(jié)果，必須與主程序聯(lián)合使用，不能單獨(dú)使用。）
13 JU-LI FWJ(任意兩點(diǎn)間距離、方位角計(jì)算之子程序)
L=√(P2+F2):P≥0﹦> Goto 1:≠> Goto 2
Lbl 1:F≥0﹦> W=tan-1(F÷P）:≠> W=360-tan-1(-F÷P）
Goto 3
Lbl 2
F≥0﹦> W=180-tan-1(-F÷P）:≠> W=180+tak-1(F÷P）
Lbl 3 計(jì)算任意兩點(diǎn)間的距離和方位角
（不顯示計(jì)算結(jié)果，必須與主程序聯(lián)
合使用，不能單獨(dú)使用。）
子程序名及內(nèi)容 備 注
14 CHAO GAO-1（超高計(jì)算之子程序）
Z[7]=K:P=2:W=2: Prog “JK--B[2]”
Z≤Q﹦> Goto5:≠>Z≥C﹦> Goto5:≠>S=0：Goto5
Z<Q+S﹦> Goto1:≠>Z>C-S﹦> Goto1:≠> Goto2
Lbl 1: Z<Q+S﹦> L=Z-Q:≠>L=C-Z
P≥0﹦> Goto7
I=(H-B)L÷S+B: Goto8
Lbl 7:I=B+(H-B)(3-2L÷S）L2÷S2
Lbl 8:W≤0﹦> Goto6
I≤-B﹦> Z[5]=-BK+IK:Z[2]=-KB:≠>Z[5]=2IK:Z[2]=IK
Goto 3
Lbl 2:W≤0﹦> Goto9
I=H:Z[5]=2HK:Z[2]=HK:Goto 3
Lbl 5:I=B:W≤0﹦> Goto4
Z[5]=0:Z[2]=-BK
Lbl 3: I≤-B﹦> G=-B:≠>G=I
Z[6]=-G(B[2]-K):Goto C
Lbl 6:Z[5]=IK:Z[2]=0
I≤-B﹦> Z[6]=BB[2]:≠>Z[6]=-IB[2]
Goto C
Lbl 4:Z[5]=BK:Z[2]=0:Z[6]=BK:Goto C
Lbl 9:I=H:Z[5]=KH:Z[2]=0:Z[6]=-H(K+J)Lbl C: I≤-B﹦> I[3]=B:≠>I[3]=-I
Z[4]<0﹦> GotoD
I[1]=I:I[2]=I[3]:B[1]=Z[7]:Z[1]=Z[5]:Z[3]=Z[6]:GotoE
Lbl D:I[1]=I[3]:I[2]=I:B[1]=B[2]:B[2]=Z[7]:Z[1]=Z[6]:Z[3]=Z[5]
Lbl E 計(jì)算左右兩側(cè)路基橫坡度、寬度、左中右處設(shè)計(jì)標(biāo)高之差值當(dāng)選用拋物線公式計(jì)算超高時(shí)，P取非負(fù)數(shù)；當(dāng)選用線性公式計(jì)算超高時(shí)，P取負(fù)數(shù)。當(dāng)設(shè)計(jì)標(biāo)高為未加寬時(shí)路基內(nèi)側(cè)邊緣標(biāo)高，并以未加寬時(shí)路基內(nèi)側(cè)邊緣為旋轉(zhuǎn)軸進(jìn)行超高時(shí)，W取非負(fù)數(shù)。（一般新建公路時(shí)采用。）當(dāng)設(shè)計(jì)標(biāo)高為中樁標(biāo)高，并以中樁為旋轉(zhuǎn)軸進(jìn)行超高時(shí)，W取負(fù)數(shù)。（一般舊路改建時(shí)采用。）（不顯示計(jì)算結(jié)果，必須與主程序聯(lián)合使用，不能單獨(dú)使用。）
15 SQXBG-1（豎曲線標(biāo)高計(jì)算之子程序）
M<0﹦> Goto B
Prog “SQX CAN SHU”
Lbl B:W=I-J:W>0﹦> D=W:≠> D=-W
T=RD÷2:E=T2÷(2R):Z≤N﹦> Z[1]=-I:≠>Z[1]=-J
T≤N-Z﹦> Goto 2:≠> Goto 1
Lbl 1:Z-N ≥T﹦> Goto 2:≠> Goto 3
Lbl 2:G=H+Z[1](N-Z):Goto 0
Lbl 3:W>0﹦> Z[2]=-1:≠>Z[2]=1
Z≤N﹦> Z[3]=-1:≠>Z[3]=1
G=H+Z[1](N-Z)+Z[2](T+Z[3](N-Z)) 2÷(2R)
Lbl 0 計(jì)算豎曲線設(shè)計(jì)標(biāo)高
（不顯示計(jì)算結(jié)果，必須與主程序聯(lián)合使用，不能單獨(dú)使用。）
16 SQX CAN SHU（豎曲線參數(shù)數(shù)據(jù)庫(kù)）
Z≥QI DIAN（起點(diǎn)樁號(hào)）Z≤N1+T1﹦> I1= :J1= : R1= :N1= :
H1= :Goto A
Z≤N2+T2﹦> I2= :J2= : R2= :N2= :H2= :Goto A
Z≤N3+T3﹦> I3= :J3= : R3= :N3= :H3= :Goto A
……………………
……………………
Z≤Nn-1N1﹦> In-1= :Jn-1= : Rn-1= :Nn-1= :Hn-1= :Goto A: Goto A
Z＞Nn-1N1﹦>Z≤ZHONG DIAN（終點(diǎn)樁號(hào)）﹦> In= :Jn= : Rn= :Nn= :Hn=
Lbl A 輸入各個(gè)豎曲線相關(guān)參數(shù)（必須按樁號(hào)先后順序依次輸入）。
豎曲線：第一坡度值為I（上坡為正值，下坡為負(fù)值），第二坡度值為J（上坡為正值，下坡為負(fù)值），豎曲線半徑為R，變坡點(diǎn)樁號(hào)為N，變坡點(diǎn)高程為H。
（不顯示計(jì)算結(jié)果，必須與主程序聯(lián)合使用，不能單獨(dú)使用。）
子程序名及內(nèi)容 備 注
17 CAN SHU（圓曲線參數(shù)數(shù)據(jù)庫(kù)）
K= :Z[6]= ：J=0：H= ：Z[20]=0
Z≥QI DIAN（起點(diǎn)樁號(hào)）﹦>Z≤HZ-1（JD1 的HZ）﹦> Q1= :X1= : Y1= :A1= :C1= :N1= :E1= :B1= :R1= :S1= :J1= :H1= :Goto A
Z≤HZ-2（JD2 的HZ）﹦> Q2= :X2= : Y2= :A2= :C2= :N2= :
E2= :B2= :R2= :S2= :J2= :H2= :Goto A Z≤HZ-3（JD3 的HZ）﹦> Q3= :X3= : Y3= :A3= :C3= :N3= :
E3= :B3= :R3= :S3= :J3= :H3= :Goto A
……………………
Z≤HZ-（n-1）（JDn-1 的HZ）﹦> Qn-1= :Xn-1= : Yn-1= :An-1= :Cn-1= :Nn-1= :En-1= :Bn-1= :Rn-1= :
Sn-1= :Jn-1= :Hn-1= : Goto A
Z＞HZ-(n-1)（JDn-1 的HZ）﹦>Z≤ZHONG DIAN（終點(diǎn)樁號(hào)）﹦> Qn= :
Xn= : Yn= :An= :Cn= :Nn= :En= :Bn= :Rn= :Sn= :
Jn= :Hn=
Lbl A 輸入各個(gè)平曲線相關(guān)參數(shù)（必須按樁號(hào)先后順序依次輸入）。
路面寬度為K（半幅寬度），路拱橫坡度為Z[6]（必須取負(fù)數(shù)），H為路拱橫坡度（必須取負(fù)數(shù)）。圓曲線（ZH）起點(diǎn)樁號(hào)Q，其坐標(biāo)為（X，Y），方位角為A；圓曲線（HZ）起點(diǎn)樁號(hào)C，其坐標(biāo)為（N，E），方位角為B；圓曲線半徑為R，緩和段長(zhǎng)度為S，內(nèi)側(cè)路基最大加寬值為J，最大超高橫坡度為H（必須取非負(fù)數(shù)）。（不顯示計(jì)算結(jié)果，必須與主程序聯(lián)合使用，不能單獨(dú)使用。）
18 S244-QIAO（S244 線橋梁坐標(biāo)參數(shù)數(shù)據(jù)庫(kù)）
Z≤130730﹦> Z=130730：X=711519.906：Y=312606.39：N=711513.996：E=312607.423：Goto A
Z≤141.05﹦> Z=141050：X=701707.369：Y=313284.941：N=701695.279：E=313269.009：Goto A
Z≤142.162﹦> Z=142162：X=700768.017：Y=312799.928：N=700762.188：E=312801.347：Goto A
Z≤143.244﹦> Z=143244：X=699697.749：Y=312722.421：N=699691.802：E=312721.629：Goto A
Z≤146.6409﹦> Z=146640.9：X=696891.91：Y=310986.967：N=696880.484：E=310979.446：Goto A
Lbl A S244 線橋梁坐標(biāo)參數(shù)數(shù)據(jù)庫(kù)子程序
Z為橋梁中心樁號(hào)，X、Y和N、E分別為橋梁對(duì)稱(chēng)兩端的中樁坐標(biāo)。
19 S244-BM（S244 線橋梁附近的導(dǎo)線點(diǎn)參數(shù)數(shù)據(jù)庫(kù)）
I=18﹦>“T18”：X=712364.458：Y=312466.815：H=164.566：Goto A
I=129﹦>“A129”：X=701719.714：Y=313263.69：H=134.714：Goto A
I=9﹦>“T9”：X=700761.854：Y=312843.924：H=134.274：Goto A
I=137.3﹦>“A137-3”：X=699627.085：Y=312704.34：H=133.062：Goto A
I=4﹦>“T4”：X=696867.539：Y=31936.889：H=135.481：Goto A
Lbl A S244 線橋梁附近的導(dǎo)線點(diǎn)參數(shù)數(shù)據(jù)庫(kù)
“T18”為導(dǎo)線點(diǎn)的編號(hào)；
X為導(dǎo)線點(diǎn)的X坐標(biāo)；
Y為導(dǎo)線點(diǎn)的Y坐標(biāo)；
H為導(dǎo)線點(diǎn)的高程；