編號 主程序名（其中文含義） 程序計算功能
一 FANG YANG （ 放 樣 ） 計算路線中、邊樁坐標，測站點與路線中、邊樁坐標間的距離和方位角等
二 CHAO GAO (超高) 計算設計高程、左右兩側路基橫坡度、寬度、左中右處設計標高之差值及設計高程
三 YYLDFWJ (任意兩點方位角) 計算任意兩點間的距離和方位角
四 SQXBG（豎曲線標高） 計算豎曲線設計標高
五 TIAN WA G-C(填挖高差) 計算左、中、右處填挖高差
六 BZZB （邊樁坐標） 主要進行橋梁及涵洞各點放樣計算
七 ZHUI PO （錐坡） 進行錐坡放樣計算
編號 子程序名（其中文含義） 程序計算功能
1 XY （坐標計算子程序） 利用交點參數(shù)數(shù)據(jù)庫進行計算
2 P-Q-X J-S （平曲線計算子程序） 利用交點坐標進行計算曲線要素
3 YAO-SU (平曲線要素計算子程序) 進行平曲線要素計算
4 ZB (平曲線的坐標計算子程序) 進行平曲線的坐標計算
5 X1 （曲線要素數(shù)據(jù)庫子程序） 曲線要素數(shù)據(jù)庫（按樁號先后順序依次輸入）
6 ZHONG ZHUANG（中樁坐標計算之子程序） 計算任意點中樁坐標及其切線方位角
7 ZH HY（直緩點 緩圓點處中樁坐標計算之子程序） 計算ZH至HY間中樁坐標及其切線方位角
8 HY YH（緩圓點 圓緩點坐標計算之子程序） 計算HY至YH間中樁坐標及其切線方位角
9 YH HZ（圓緩點 直緩點坐標計算之子程序） 計算YH至HZ間中樁坐標及其切線方位角
10 S0（緩和曲線長度等于零坐標計算之子程序） 計算S=0的圓曲線中樁坐標及其切線方位角
11 ZXZB（直線段坐標計算之子程序） 計算直線段中樁坐標及其切線方位角
12 CHAO GAO-1（超高計算之子程序） 計算左右兩側路基橫坡度、寬度、左中右處設計標高之差值
13 JK--B[2]（加寬計算之子程序） 計算內側路基寬度
14 JU-LI FWJ(任意兩點間距離、方位角計算之子程序) 計算任意兩點間的距離和方位角
15 SQXBG-1（豎曲線標高計算之子程序） 計算豎曲線設計標高
16 SQX CAN SHU（豎曲線參數(shù)） 輸入各個豎曲線相關參數(shù)（按樁號先后順序依次輸入）
17 CAN SHU（圓曲線參數(shù)） 輸入各個平曲線相關參數(shù)（按樁號先后順序依次輸入）
18 S244-QIAO（S244 線橋梁坐標參數(shù)） S244 線橋梁坐標參數(shù)數(shù)據(jù)庫（按樁號先后順序依次輸入）
19 S244-BM（S244 線橋梁附近的導線點參數(shù)） S244 線橋梁附近的導線點參數(shù)數(shù)據(jù)庫（按樁號先后順序依次輸入）
常用字母的一般含義：（輸入時）
1. 判斷參數(shù)M，當M≥0時，調用子程序相應參數(shù)；當M＜0時，直接輸入相應參數(shù)。任意點的樁號為Z。
2. 圓曲線（ZH）起點樁號Q，其坐標為（X，Y），方位角為A；圓曲線（HZ）起點樁號C，其坐標為（N，E），方位角為B；圓曲線半徑為R，緩和段長度為S，內側路基最大加寬值為J，路面寬度為K（半幅寬度），路拱橫坡度為B（必須取負數(shù)），最大超高橫坡度為H（必須取非負數(shù)）。
3. 豎曲線：第一坡度值為I（上坡為正值，下坡為負值），第二坡度值為J（上坡為正值，下坡為負值），豎曲線半徑為R，變坡點樁號為N，變坡點高程為H。
4. 計算邊樁坐標時： V為旋轉角度（左為負值，右為正值。正交時V取90或-90），K為邊樁到中樁的距離。
主程序名及內容 備 注
一 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值，當M〈0時，則需要輸入圓曲線交點參數(shù)；當M≥0,則直接調用子程序中的對應參數(shù)，M=1，2，3，4時調用其自程序《CAN SHU》的參數(shù)，M=11，12，13，14時，調用《X1》的參數(shù)。）
輸入前后距離，前為正值，后為負值。
輸入每個斷面的樁數(shù)（為1～4）。
輸入測站點坐標X、Y值。
是否輸入V，K值，當輸入正數(shù)時，計算過程中不必輸入V，K；當輸入負值時，計算過程中需要輸入V，K。
輸入第1～4個樁位的K，V值：K為邊樁到中樁的距離（左為負值，右為正值）， V為旋轉角度（左為負值，右為正值。正交時V取90或-90）；當V或K為負值時，計算左側邊樁；當V、K同時為正值時，計算右側邊樁；當K=0時，計算中樁。
輸入測站點坐標X、Y值。
輸入后視點坐標N、E值。
顯示結果含義：
HOU-SHI-DIAN （后視點）；
JU-LI=為測站點與后視點的計算距離；
FWJ=為測站點與后視點的計算方位角。
曲線的ZH樁號、坐標X、Y、方位角；
曲線的HZ樁號、坐標N、E、方位角；
曲線半徑R；
緩和段長度S；
主程序名及內容 備 注
“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為邊樁到中樁的距離（左為負值，右為正值）， V為旋轉角度（左為負值，右為正值。正交時V取90或-90）；當V或K為負值時，計算左側邊樁；當V、K同時為正值時，計算右側邊樁；當K=0時，計算中樁。
N[2]=為該樁位的X坐標值；
N[1]=為該樁位的Y坐標值；
FWJ=為測站點與路線中、邊樁坐標間的方位角。
JU-LI=為測站點與路線中、邊樁坐標間的距離；
SHUI PING JIAO=為測站點與后視點及測站點與路線中、邊樁間的水平夾角。
NOW Z=為現(xiàn)在的樁號；
NO.為現(xiàn)在的樁號的第幾個樁位；
NEXT Z=為下一樁位的樁號。
二 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] ▲ 計算設計高程、左右兩側路基橫坡度、寬度、左中右處設計標高之差值及設計高程
輸入M值，當M〈0時，則需要輸入圓曲線參數(shù)；當M≥0,則直接調用子程序中的對應參數(shù)。
[輸入v值，當圓曲線為左轉彎時，則V為負值 , 當圓曲線為右轉彎時，則V為正值 。
圓曲線（ZH）起點樁號Q，圓曲線（HZ）起點樁號C，緩和段長度為S，路面寬度為K（半幅寬度），內側路基最大加寬值為J，路拱橫坡度為B（必須取負數(shù)），最大超高橫坡度為H（必須取非負數(shù)）。]
顯示結果含義：G為設計高程。
I[1]為左側路面橫坡度，負值為左側低于中樁，正值為左側高于中樁。
I[2] 為右側路面橫坡度，負值為右側低于中樁，正值為右側高于中樁。
B[1]為左側路面寬度
B[2]為右側路面寬度
主程序名及內容 備 注
（接上頁）
“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]為左側路面邊緣與設計高程之差
Z[2]為中樁處與設計高程之差
Z[3]為右側路面邊緣與設計高程之差
H[1]為左側路面邊緣設計標高
H[2]為中樁處設計標高
H[3]為右側路面邊緣設計標高
三 YYLDFWJ (任意兩點方位角)
Lbl 0:XYNE：P=N-X：F=E-Y
Prog “JU-LI FWJ”
“JU-LI=”:L▲
“FWJ=”:W▲
{XYNE}: Goto 0 計算任意兩點間的距離和方位角
輸入第一點的坐標X，Y；輸入第一點的坐標N，
E。
顯示結果含義：
L為任意兩點間的距離
W為任意兩點間的方位角
四SQXBG（豎曲線標高）
M:M≥0﹦> Goto 1
IJRNH：Lbl 1: {Z}：Prog “SQSBG-1”
“SHE-JI GAO-CHENG=”：G▲
Goto 1 計算豎曲線設計標高
(輸入M值，當M〈0時，則需要輸入圓曲線參數(shù)；
當M≥0,則直接調用子程序中的對應參數(shù)。）
顯示結果含義：G為設計高程
五 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
計算左、中、右處填挖高差（必須調用平、豎曲線參數(shù)才能進行計算）
輸入結構層厚度N值（即本結構層頂面至設計高程之差值）；輸入視線高程H值。輸入樁號Z值。
輸入v值，當計算左側邊樁高差時，則V=1；當計算中樁高差時，則V=2, 當計算右側邊樁高差時，則V=3值 。輸入邊樁加寬值J，當邊樁至中樁之距離大于該側設計路基寬度時，則J為正值；當邊樁至中樁之距離小于該側設計路基寬度時，則J為負值。輸入中樁或邊樁處的前視讀尺數(shù)F值。當V=2時，J為偏左或偏右的距離，左為負值，右為正值，不偏離 J=0；鋪穩(wěn)定層適用中樁左右偏離，其他J=0。
顯示結果含義：
為所側點至本結構層頂面之填挖高差（正值為
填，負值為挖）。
主程序名及內容 備 注
六 BZZB （邊樁坐標）
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 主要進行橋梁及涵洞各點坐標計算放樣
輸入I值（距離方位角放樣時I≥0，坐標放樣時I＜0）。
輸入M值（M=244時，進行S244線橋梁放樣計算）。
輸入S244線橋梁的里程樁號。
顯示橋梁中心樁號
輸入橋梁附近的導線點編號
輸入測站點坐標
輸入計算原點的坐標N、E。
輸入前后距離，角度及左右距離。
顯示測站點與計算點的方位角和距離。
顯示計算點的坐標。
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 進行錐坡放樣計算
子程序名及內容 備 注
1 XY （坐標計算子程序）
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
利用交點參數(shù)數(shù)據(jù)庫進行計算
當M輸入11時，計算并顯示坐標；輸入12時，為距離方位角放樣；輸入13時，計算并顯示施檢表（6、7）中的各項數(shù)據(jù)；輸入4時，計算并顯示交點要素，并可與施工圖紙中的直線、曲線及轉角表的數(shù)據(jù)相核對，檢驗子程序X1的要素輸入是否正確。
N[2]=為施檢表（7）中的X設計坐標；
E[2]=為施檢表（7）中的Y設計坐標；
FWJ=為施檢表（7）中的計算方位角；
JU-LI=為施檢表（7）中的計算距離；
HOU-SHI-DIAN-FWJ0輸入測站點至后視的方位角；
JI-SUAN SHUI-PING-JIAO0=為施檢表（7）中的計算水平角；
CE-JU-LI輸入測站點至求算點的實測距離；
CE-X=為施檢表（7）中的X實測坐標；
CE-Y=為施檢表（7）中的Y實測坐標；
2 P-Q-X J-S （平曲線計算子程序,利用交點坐標計算）
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]
利用交點坐標進行計算曲線要素
（顯示計算結果，與主程序聯(lián)合使用或單獨使用均可。）
QI-DIAN含義為起點，依次輸入起點的坐標X、Y，交點的坐標N、E、樁號，終點的坐標X、Y，及該曲線的半徑R、第一緩和段長度S1、第二緩和段長度。
顯示含義：
JD0為交點偏角；
FWJ0為該曲線的起點處方位角；
T1為第一切線長度；
T2為第二切線長度；
L為該緩和曲線總長度；E為曲中至交點的距離；
ZH為直緩點樁號；
HY為緩圓點樁號；
QZ為曲中點樁號；
YH為圓緩點樁號；
HZ為緩直點樁號。
子程序名及內容 備 注
3 YAO-SU (平曲線要素計算子程序)
進行平曲線要素計算
（不顯示計算結果，必須與主程序聯(lián)合使用，不能單獨使用。）
4 ZB (平曲線的坐標計算子程序)
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
進行平曲線的坐標計算
（不顯示計算結果，必須與主程序聯(lián)合使用，不能單獨使用。）
5 X1 （曲線要素數(shù)據(jù)庫子程序）
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（起點樁號）﹦>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（終點樁號）﹦>P=n：K= ：R= ：H= ：L= ：
Lbl A 曲線要素數(shù)據(jù)庫
Z[1]為路線起點的X坐標；Z[2]為路線起點的Y坐標；
Z[3]為交點JD1的X坐標；Z[3]為交點JD1的Y坐標；
Z[4]為交點JD2的X坐標；Z[5]為交點JD2的Y坐標；
……………………
Z[n*2+1]為交點JDn的X坐標；Z[n*2+2]為交點JDn的X坐標；Z[n*2+3]為路線終點的X坐標；Z[n*2+4]為路線終點的X坐標；
P為計算圓曲線的編碼，分別以1、2、3……n順序輸入。K為交點里程樁號。R為圓曲線半徑。H為第一緩和段長度。L為第二緩和段長度。
（不顯示計算結果，必須與主程序聯(lián)合使用，不能單獨使用。）
6 ZHONG ZHUANG（中樁坐標計算之子程序）
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 由計算器自動判斷所輸入樁號所屬位置（如直緩點至緩圓點段、緩圓點至圓緩點、圓緩點至直緩點、緩和曲線長度等于零、直線段），并調用相應的子程序。
（不顯示計算結果，必須與主程序聯(lián)合使用，不能單獨使用。）
子程序名及內容 備 注
7 ZH HY（直緩點 緩圓點處中樁坐標計算之子程序）
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） 計算ZH至HY間中樁坐標及其切線方位角
（不顯示計算結果，必須與主程序聯(lián)合使用，不能單獨使用。）
8 HY YH（緩圓點 圓緩點坐標計算之子程序
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] 計算HY至YH間中樁坐標及其切線方位角（不顯示計算結果，必須與主程序聯(lián)合使用，不能單獨使用。）
9 YH HZ（圓緩點 直緩點坐標計算之子程序）
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） 計算YH至HZ間中樁坐標及其切線方位
角
（不顯示計算結果，必須與主程序聯(lián)合使用，不能單獨使用。）
10 S0（緩和曲線長度等于零坐標計算之子程序）
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] 計算S=0的圓曲線中樁坐標及其切線方位角
（不顯示計算結果，必須與主程序聯(lián)合使用，不能單獨使用。）
11 ZXZB（直線段坐標計算之子程序）
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] 計算直線段中樁坐標及其切線方位角
（不顯示計算結果，必須與主程序聯(lián)合
使用，不能單獨使用。）
12 JK--B[2]（加寬計算之子程序）
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 計算內側路基寬度
（不顯示計算結果，必須與主程序聯(lián)合使用，不能單獨使用。）
13 JU-LI FWJ(任意兩點間距離、方位角計算之子程序)
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 計算任意兩點間的距離和方位角
（不顯示計算結果，必須與主程序聯(lián)
合使用，不能單獨使用。）
子程序名及內容 備 注
14 CHAO GAO-1（超高計算之子程序）
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 計算左右兩側路基橫坡度、寬度、左中右處設計標高之差值當選用拋物線公式計算超高時，P取非負數(shù)；當選用線性公式計算超高時，P取負數(shù)。當設計標高為未加寬時路基內側邊緣標高，并以未加寬時路基內側邊緣為旋轉軸進行超高時，W取非負數(shù)。（一般新建公路時采用。）當設計標高為中樁標高，并以中樁為旋轉軸進行超高時，W取負數(shù)。（一般舊路改建時采用。）（不顯示計算結果，必須與主程序聯(lián)合使用，不能單獨使用。）
15 SQXBG-1（豎曲線標高計算之子程序）
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 計算豎曲線設計標高
（不顯示計算結果，必須與主程序聯(lián)合使用，不能單獨使用。）
16 SQX CAN SHU（豎曲線參數(shù)數(shù)據(jù)庫）
Z≥QI DIAN（起點樁號）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（終點樁號）﹦> In= :Jn= : Rn= :Nn= :Hn=
Lbl A 輸入各個豎曲線相關參數(shù)（必須按樁號先后順序依次輸入）。
豎曲線：第一坡度值為I（上坡為正值，下坡為負值），第二坡度值為J（上坡為正值，下坡為負值），豎曲線半徑為R，變坡點樁號為N，變坡點高程為H。
（不顯示計算結果，必須與主程序聯(lián)合使用，不能單獨使用。）
子程序名及內容 備 注
17 CAN SHU（圓曲線參數(shù)數(shù)據(jù)庫）
K= :Z[6]= ：J=0：H= ：Z[20]=0
Z≥QI DIAN（起點樁號）﹦>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（終點樁號）﹦> Qn= :
Xn= : Yn= :An= :Cn= :Nn= :En= :Bn= :Rn= :Sn= :
Jn= :Hn=
Lbl A 輸入各個平曲線相關參數(shù)（必須按樁號先后順序依次輸入）。
路面寬度為K（半幅寬度），路拱橫坡度為Z[6]（必須取負數(shù)），H為路拱橫坡度（必須取負數(shù)）。圓曲線（ZH）起點樁號Q，其坐標為（X，Y），方位角為A；圓曲線（HZ）起點樁號C，其坐標為（N，E），方位角為B；圓曲線半徑為R，緩和段長度為S，內側路基最大加寬值為J，最大超高橫坡度為H（必須取非負數(shù)）。（不顯示計算結果，必須與主程序聯(lián)合使用，不能單獨使用。）
18 S244-QIAO（S244 線橋梁坐標參數(shù)數(shù)據(jù)庫）
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 線橋梁坐標參數(shù)數(shù)據(jù)庫子程序
Z為橋梁中心樁號，X、Y和N、E分別為橋梁對稱兩端的中樁坐標。
19 S244-BM（S244 線橋梁附近的導線點參數(shù)數(shù)據(jù)庫）
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 線橋梁附近的導線點參數(shù)數(shù)據(jù)庫
“T18”為導線點的編號；
X為導線點的X坐標；
Y為導線點的Y坐標；
H為導線點的高程；
