魔兽世界迅猛龙的巢穴:CASIO fx-4850p公路工程计算器程序集

编号 主程序名（其中文含义） 程序计算功能
一 FANG YANG （ 放 样 ） 计算路线中、边桩坐标，测站点与路线中、边桩坐标间的距离和方位角等
二 CHAO GAO (超高) 计算设计高程、左右两侧路基横坡度、宽度、左中右处设计标高之差值及设计高程
三 YYLDFWJ (任意两点方位角) 计算任意两点间的距离和方位角
四 SQXBG（竖曲线标高） 计算竖曲线设计标高
五 TIAN WA G-C(填挖高差) 计算左、中、右处填挖高差
六 BZZB （边桩坐标） 主要进行桥梁及涵洞各点放样计算
七 ZHUI PO （锥坡） 进行锥坡放样计算
编号 子程序名（其中文含义） 程序计算功能
1 XY （坐标计算子程序） 利用交点参数数据库进行计算
2 P-Q-X J-S （平曲线计算子程序） 利用交点坐标进行计算曲线要素
3 YAO-SU (平曲线要素计算子程序) 进行平曲线要素计算
4 ZB (平曲线的坐标计算子程序) 进行平曲线的坐标计算
5 X1 （曲线要素数据库子程序） 曲线要素数据库（按桩号先后顺序依次输入）
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（竖曲线参数） 输入各个竖曲线相关参数（按桩号先后顺序依次输入）
17 CAN SHU（圆曲线参数） 输入各个平曲线相关参数（按桩号先后顺序依次输入）
18 S244-QIAO（S244 线桥梁坐标参数） S244 线桥梁坐标参数数据库（按桩号先后顺序依次输入）
19 S244-BM（S244 线桥梁附近的导线点参数） S244 线桥梁附近的导线点参数数据库（按桩号先后顺序依次输入）
常用字母的一般含义：（输入时）
1. 判断参数M，当M≥0时，调用子程序相应参数；当M＜0时，直接输入相应参数。任意点的桩号为Z。
2. 圆曲线（ZH）起点桩号Q，其坐标为（X，Y），方位角为A；圆曲线（HZ）起点桩号C，其坐标为（N，E），方位角为B；圆曲线半径为R，缓和段长度为S，内侧路基最大加宽值为J，路面宽度为K（半幅宽度），路拱横坡度为B（必须取负数），最大超高横坡度为H（必须取非负数）。
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时，则需要输入圆曲线交点参数；当M≥0,则直接调用子程序中的对应参数，M=1，2，3，4时调用其自程序《CAN SHU》的参数，M=11，12，13，14时，调用《X1》的参数。）
输入前后距离，前为正值，后为负值。
输入每个断面的桩数（为1～4）。
输入测站点坐标X、Y值。
是否输入V，K值，当输入正数时，计算过程中不必输入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=为现在的桩号；
NO.为现在的桩号的第几个桩位；
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 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时，则需要输入圆曲线参数；当M≥0,则直接调用子程序中的对应参数。
[输入v值，当圆曲线为左转弯时，则V为负值 , 当圆曲线为右转弯时，则V为正值 。
圆曲线（ZH）起点桩号Q，圆曲线（HZ）起点桩号C，缓和段长度为S，路面宽度为K（半幅宽度），内侧路基最大加宽值为J，路拱横坡度为B（必须取负数），最大超高横坡度为H（必须取非负数）。]
显示结果含义：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时，则需要输入圆曲线参数；
当M≥0,则直接调用子程序中的对应参数。）
显示结果含义：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”
AZ[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}: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
计算左、中、右处填挖高差（必须调用平、竖曲线参数才能进行计算）
输入结构层厚度N值（即本结构层顶面至设计高程之差值）；输入视线高程H值。输入桩号Z值。
输入v值，当计算左侧边桩高差时，则V=1；当计算中桩高差时，则V=2, 当计算右侧边桩高差时，则V=3值 。输入边桩加宽值J，当边桩至中桩之距离大于该侧设计路基宽度时，则J为正值；当边桩至中桩之距离小于该侧设计路基宽度时，则J为负值。输入中桩或边桩处的前视读尺数F值。当V=2时，J为偏左或偏右的距离，左为负值，右为正值，不偏离 J=0；铺稳定层适用中桩左右偏离，其他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，FWJ”：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
利用交点参数数据库进行计算
当M输入11时，计算并显示坐标；输入12时，为距离方位角放样；输入13时，计算并显示施检表（6、7）中的各项数据；输入4时，计算并显示交点要素，并可与施工图纸中的直线、曲线及转角表的数据相核对，检验子程序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]
利用交点坐标进行计算曲线要素
（显示计算结果，与主程序联合使用或单独使用均可。）
QI-DIAN含义为起点，依次输入起点的坐标X、Y，交点的坐标N、E、桩号，终点的坐标X、Y，及该曲线的半径R、第一缓和段长度S1、第二缓和段长度。
显示含义：
JD0为交点偏角；
FWJ0为该曲线的起点处方位角；
T1为第一切线长度；
T2为第二切线长度；
L为该缓和曲线总长度；E为曲中至交点的距离；
ZH为直缓点桩号；
HY为缓圆点桩号；
QZ为曲中点桩号；
YH为圆缓点桩号；
HZ为缓直点桩号。
子程序名及内容 备 注
3 YAO-SU (平曲线要素计算子程序)

进行平曲线要素计算
（不显示计算结果，必须与主程序联合使用，不能单独使用。）
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
进行平曲线的坐标计算
（不显示计算结果，必须与主程序联合使用，不能单独使用。）
5 X1 （曲线要素数据库子程序）
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 曲线要素数据库
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为第二缓和段长度。
（不显示计算结果，必须与主程序联合使用，不能单独使用。）
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 由计算器自动判断所输入桩号所属位置（如直缓点至缓圆点段、缓圆点至圆缓点、圆缓点至直缓点、缓和曲线长度等于零、直线段），并调用相应的子程序。
（不显示计算结果，必须与主程序联合使用，不能单独使用。）
子程序名及内容 备 注
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间中桩坐标及其切线方位角
（不显示计算结果，必须与主程序联合使用，不能单独使用。）
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间中桩坐标及其切线方位角（不显示计算结果，必须与主程序联合使用，不能单独使用。）
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间中桩坐标及其切线方位
角
（不显示计算结果，必须与主程序联合使用，不能单独使用。）
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的圆曲线中桩坐标及其切线方位角
（不显示计算结果，必须与主程序联合使用，不能单独使用。）
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] 计算直线段中桩坐标及其切线方位角
（不显示计算结果，必须与主程序联合
使用，不能单独使用。）
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 计算内侧路基宽度
（不显示计算结果，必须与主程序联合使用，不能单独使用。）
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 计算任意两点间的距离和方位角
（不显示计算结果，必须与主程序联
合使用，不能单独使用。）
子程序名及内容 备 注
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 Goto1:≠>Z>C-S﹦> Goto1:≠> Goto2
Lbl 1: Z 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取非负数；当选用线性公式计算超高时，P取负数。当设计标高为未加宽时路基内侧边缘标高，并以未加宽时路基内侧边缘为旋转轴进行超高时，W取非负数。（一般新建公路时采用。）当设计标高为中桩标高，并以中桩为旋转轴进行超高时，W取负数。（一般旧路改建时采用。）（不显示计算结果，必须与主程序联合使用，不能单独使用。）
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 计算竖曲线设计标高
（不显示计算结果，必须与主程序联合使用，不能单独使用。）
16 SQX CAN SHU（竖曲线参数数据库）
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 输入各个竖曲线相关参数（必须按桩号先后顺序依次输入）。
竖曲线：第一坡度值为I（上坡为正值，下坡为负值），第二坡度值为J（上坡为正值，下坡为负值），竖曲线半径为R，变坡点桩号为N，变坡点高程为H。
（不显示计算结果，必须与主程序联合使用，不能单独使用。）
子程序名及内容 备 注
17 CAN SHU（圆曲线参数数据库）
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 输入各个平曲线相关参数（必须按桩号先后顺序依次输入）。
路面宽度为K（半幅宽度），路拱横坡度为Z[6]（必须取负数），H为路拱横坡度（必须取负数）。圆曲线（ZH）起点桩号Q，其坐标为（X，Y），方位角为A；圆曲线（HZ）起点桩号C，其坐标为（N，E），方位角为B；圆曲线半径为R，缓和段长度为S，内侧路基最大加宽值为J，最大超高横坡度为H（必须取非负数）。（不显示计算结果，必须与主程序联合使用，不能单独使用。）
18 S244-QIAO（S244 线桥梁坐标参数数据库）
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 线桥梁坐标参数数据库子程序
Z为桥梁中心桩号，X、Y和N、E分别为桥梁对称两端的中桩坐标。
19 S244-BM（S244 线桥梁附近的导线点参数数据库）
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 线桥梁附近的导线点参数数据库
“T18”为导线点的编号；
X为导线点的X坐标；
Y为导线点的Y坐标；
H为导线点的高程；