中边桩高程及加宽计算程序
（绕中轴旋转高次抛物线超高加宽）
2008年4月23日徐锋
GCJKJS（主程序）
LbiP：A“P1”B“P2”RD“JD ZHANG”I“JD-H” S“LH” G“LJK” M“SJJK” P“LGHP”Q“CGHP” U“ZH” X“HZ” Z“(Z－，Y+)”：Z[1]=Z：Goto0回车
LBI0：{Z}：Z：W=B-A：T=AbsWR÷2：E=TW÷4：C=D-T：F=D+T：W≥0=>K=（Z-C）2÷（2R）：≠> K= -（Z-C）2÷2R：Goto1回车
Lbi1：Z≤D-T=>Goto5：≠>Z＞D-T=>Z≤D+T=>Goto3：≠>Z＞D+T=>Goto4：Lbi5：H=I-A（D-Z）回车
GotoD：Lbi3：H=I-A（D-Z）+K回车
GotoD：Lbi4：H=I-B（D-Z）回车
GotoD回车
LbiD回车
Z≤U=>L＝0： Goto2⊿Z≤U+S=>L＝Z－U： Goto2⊿Z≤X－S=>L＝S： Goto2⊿Z≤X=>L＝X －Z： Goto2⊿Z>X=>L＝0： Goto2⊿回车
Lbi2：J“JK”=（4×（L÷S）3-3×（L÷S）4）×M回车
Y“WC”=（L÷S×（P+Q））×G÷2-P×G÷2回车
O=2P÷（P+Q）×S：L≤O=>V“LC”=-P×（G÷2+J）回车
GotoC：≠=>V“LC”=-（（L÷S）×（P+Q）-P）×（G÷2+J）回车
GotoC回车
LbiC回车
Z[1]>0=> Prog“A”： Goto 0⊿Prog “B”： Goto0⊿
A（子程序）
“G=”：H=H◢
L<0.001=>Y=Y: “ZG=”：H=H+Y◢
“YG=”：H=H◢Goto 1 ≠=>Y=Y:“ZG=”：H=H+Y◢
“YG=”：H=H-Y+V◢Goto 1
Lbi1
“ZK=”：Z[2]=G/2◢
“YK=”：Z[3]=G/2+J◢
B（子程序）
“G=”：H=H◢
L<0.001=>V=V: “ZG=”：H=H+V◢
“YG=”：H=H◢Goto 1≠=>Y=Y:“ZG=”：H=H+V◢
“YG=”：H=H+Y－V◢Goto 1
Lbi1
“ZK=”：Z[3]=G/2+J◢
“YK=”：Z[4]=G/2◢
说明：
一、程序中字母及符号意义：
P1（A）：第一条纵坡坡度（i %，如0.02、-0.02）
P2（B）：第二条纵坡坡度（i %，如0.02、-0.02）
R：竖曲线半径
JD ZHANG（D）？变坡点桩号
I（JD-H）？变坡点高程
S“LH”？缓和曲线长（当没有缓和曲线时，请输为0.0001）
G“LJK”？标准路基全幅宽度
M“SJJK”？弯道设计最大加宽值
P“LGHP”？标准路拱横坡坡值
Q“CGHP”？弯道设计最大超高值
U“ZH”？直缓桩桩号
X“HZ”？缓直桩桩号
Z“(Z－，Y+)”？左偏输入负值，右偏输为正值
Z？待求点桩号
“G=”中桩高程
“ZG=”左边桩高程
“YG=”右边桩高程
“ZK=”左幅路基宽度
“YK=”右幅路基宽度
二、输入、计算要点
1．一次只能输入一条平竖曲线参数
2．纵坡坡度须代入正负号进行运算
特别说明：1、本程序单下划线部份是中桩高程计算部份
2、本程序双下划线部份是超高加宽计算部份
3、高程计算部份引用了杨小杰的程序，在此特别感谢
优点：将高程、超高、加宽一次性计算出来，减少计算的工作量
（注：素材和资料部分来自网络，供参考。请预览后才下载，期待你的好评与关注！）