CASIO程序(线路计算6.0版).doc

一、扩展变量设置说明
1． 统计各种要素点的数目
各要素点数目表
名 称
平曲线交点
竖曲线变坡点
超高起始点
最多台阶数
线路导线点
数目（个）
a
b
c
d
e
要素点数目为0时取值
-1
-5/3
0
0
0
备 注
不含起终点
不含起终点
含起终点
其取值为0或10

设置扩展变量总数目为：36+6a+3b+2c+d+2e(使用横坡点)或30+6a+3b+2c+d+2e(未使用横坡点)个

2． 设置各扩展变量数据
① 固定变量及自由变量Z[1] ～Z[19]
Z[1]:结构层厚度
Z[2]:半幅路基硬路面宽度(包含分隔带)
Z[3]～Z[19]:程序中使用的自由变量
② 平曲线要素扩展变量Z[20]～Z[25+6a]
各平曲线要素于扩展变量中的位置表
名称
起点
第1个
交点
第2个
交点
…
第i个
交点
…
第a- 1个
交点
第a个
交点
终点
交点X坐标
Z[20]
Z[21]
Z[22]
…
Z[20+i]
…
Z[19+a]
Z[20+a]
Z[21+a]
交点Y坐标
Z[22+a]
Z[23+a]
Z[24+a]
…
Z[22+a+i]
…
Z[21+2a]
Z[22+2a]
Z[23+2a]
圆曲线半径
----
Z[24+2a]
Z[25+2a]
…
Z[23+2a+i]
…
Z[22+3a]
Z[23+3a]
----
第一缓曲
长度
----
Z[24+3a]
Z[25+3a]
…
Z[23+3a+i]
…
Z[22+4a]
Z[23+4a]
----
第二缓曲
长度
----
Z[24+4a]
Z[25+4a]
…
Z[23+4a+i]
…
Z[22+5a]
Z[23+5a]
----
曲线起点
桩号
Z[24+5a]
(线路起点)
Z[25+5a]
Z[26+5a]
…
Z[24+5a+i]
…
Z[23+6a]
Z[24+6a]
Z[25+6a]
(线路终点)
③ 竖曲线要素扩展变量Z[26+6a]～Z[30+6a+3b]
各竖曲线要素于扩展变量中的位置表
名称
起点
第1个
变坡点
第2个
变坡点
…
第i个
变坡点
…
第b- 1个
变坡点
第b个
变坡点
终点
变坡点桩号
Z[26+6a]
Z[27+6a]
Z[28+6a]
…
Z[26+6a+i]
…
Z[25+6a+i]
Z[26+6a+b]
Z[27+6a+b]
变坡点高程
Z[28+6a+b]
Z[29+6a+b]
Z[30+6a+b]
…
Z[28+6a+b+i]
…
Z[27+6a+2b]
Z[28+6a+2b]
Z[29+6a+2b]
竖曲线
切线长
----
Z[30+6a+2b]
Z[31+6a+2b]
…
Z[29+6a+2b+i]
…
Z[28+6a+3b]
Z[29+6a+3b]
Z[30+6a+3b]
此变量为空
注：扩展变量Z[30+6a+3b]设置为空值（即为0），以便其在程序中使用。
④ 超高设计扩展变量Z[31+6a+3b]～Z[30+6a+3b+2c]
各段超高设计数值于扩展变量中的位置表
名称
第1个
起超点
第2个
起超点
…
第i个
起超点
…
第c- 1个
起超点
第c个
起超点
起超点桩号
Z[31+6a+3b]
Z[32+6a+3b]
…
Z[30+6a+3b+i]
…
Z[29+6a+3b+c]
Z[30+6a+3b+c]
设计横坡%
Z[31+6a+3b+c]
Z[32+6a+3b+c]
…
Z[30+6a+3b+c+i]
…
Z[29+6a+3b+2c]
Z[30+6a+3b+2c]
说明：存入设计横坡数值时，当路基左右幅的横坡为互补时，只要把左幅的设计横坡存入扩展变量即可，当左右幅的设计横坡为相同时，则在对应扩展变量中存入横坡为0。

⑤ 边坡坡度扩展量Z[31+6a+3b+2c]～Z[30+6a+3b+2c+d]
当使用了子程序FY时，d=10，否则d=0，这些扩展变量主要用于储存各阶边坡的坡度。

⑥ 导线点扩展变量Z[31+6a+3b+2c+d]～Z[30+6a+3b+2c+d+2e]
各导线点坐标值于扩展变量中的位置表
名称
第1个
导线点
第2个
导线点
…
第i个
导线点
…
第d- 1个
导线点
第d个
导线点
X坐标
Z[31+6a+3b+2c+d]
Z[32+6a+3b+2c+d]
…
Z[30+6a+3b+2c+d+i]
…
Z[29+6a+3b+2c
+d+e]
Z[30+6a+3b+2c
+d+e]
Y坐标
Z[31+6a+3b+2c
+d+e]
Z[32+6a+3b+2c
+d+e]
…
Z[30+6a+3b+2c
+d+e+i]
…
Z[29+6a+3b+2c
+d+2e]
Z[30+6a+3b+2c
+d+2e]

⑦ 路基横断面点扩展变量Z[31+6a+3b+2c+d+2e]～Z[36+6a+3b+2c+d+2e](根据情况可省)
Z[31+6a+3b+2c+d+2e]=-11.5（路基横坡1#点）
Z[32+6a+3b+2c+d+2e]=-6.0（路基横坡2#点）
Z[33+6a+3b+2c+d+2e]=-0.75（路基横坡3#点）
Z[34+6a+3b+2c+d+2e]=0.75（路基横坡4#点）
Z[35+6a+3b+2c+d+2e]=6.0（路基横坡5#点）
Z[36+6a+3b+2c+d+2e]=11.5（路基横坡6#点）
上述横断面点的扩展变量里数据设置可根据需要进行修改。

3.扩展变量设置说明
当线路改变或数据更改时，应首先根据各要素点的数目设置扩展变量总数目（若要素点数目也发生变化），再按上述各扩展变量位置表中的约定存入对应变量中的数据，同时应根据各程序中方框内的表达式所计算的结果，把方框内的表达式修改为实际数据。
当进行测量放样计算时，若遇到临时点，可把其存入导线点扩展变量中空缺的位置上，然后把它当作导线点使用。
存入各要素点的桩号时,均为扣除断链后的实际桩号，而不是设计图上的设计桩号。

二、程序操作说明
特别说明：各程序均要求在RAD模式下运行
1． 测量放样计算程序CLFY
FY：1.ZX 2.BX?

(1)放样选择:1.中线放样 2.边线放样?

ZJ：1.DX 2.XL?

(2)置镜点选择:1.置镜点为导线点 2.置镜点为线路点(已知桩号和偏距的中桩或边桩)?

DZ?

(3)置镜点输入DZ?
当第(2)步选择1时,此输入置镜点的导线点点号
当第(2)步选择2时,此输入置镜点的线路边桩点桩号

LZ?

(4)置镜点的边桩点距线路中线偏距输入LZ(左为“-”,右为“+”)?
当置镜点为线路中桩时,输其为0
当第(2)步选择1时,无此第(4)步,只有当第(2)步选择2时,才会出现此步

HS：1.DX 2.XL?

(5)后视点选择:1.后视点为导线点 2.后视点为线路点(已知桩号和偏距的中桩或边桩)?

DH?

(6)后视点输入DH?
当第(5)步选择1时,此输入后视点的导线点点号
当第(5)步选择2时,此输入后视点的线路边桩点桩号

LH?

(7)后视点的边桩点距线路中线偏距输入LH(左为“-”,右为“+”)?
当后视点为线路中桩时,输其为0
当第(5)步选择1时,无此第(7)步,只有当第(5)步选择2时,才会出现此步

AH?

(8)输入后视角度AH?

KF?

(9)输入放样点的桩号KF?

L?

(10)输入放样点偏离中线的平距(左为“-”,右为“+”)?
当第(1)步选择1时,无此第(10)步,只有当第(1)选择2时,才会出现此步

AJ?

(11)输入放样点跟线路中桩连线与线路方向的夹角(顺时针)AJ?
当第(1)步选择1时,无此第(11)步,只有当第(1)选择2时,才会出现此步

S=

(12)输出放样距离S

A=

(13)输出放样角度A

AT=

(14)输出放样桩号的线路方向与放样视线的夹角AT

此行操作完成后返回第(9)步,要求重新输入计算

2． 高程较差计算程序GCJC
YG?

(1)输入水准仪的视线高程YG?

K?

(2)输入被测点的桩号K?

DW?

(3)输入被测点的点位号DW?
1为左偏11.5m,2为左偏6m,3为左偏0.75m,
4为右偏0.75m,5为右偏6m,6为右偏11.5m

QS?

(4)输入前视读数QS?

DH=

(5)输出设计高程与实测高程的较差DH(高于设计为“-”,反之为“+”)

此行操作完成后返回第(2)步,要求重新输入计算

3． 线路高程计算程序XLGC
K?

(1)输入待求点的桩号K?

L?

(2)输入待求点偏离中线的平距L(左为“-”,右为“+”)?

H=

(3)输出待求点的设计高程(已扣除结构层厚度)H

此行操作完成后返回第(1)步,要求重新输入计算

4． 线路坐标计算程序XLZB
1.ZX 2.BX?

(1)选择:1.中线坐标计算 2.边线坐标计算？

K?

(2)输入待求点的桩号K?

L?

(3)输入待求点的偏离中线的平距L(左为“-”,右为“+”)?
当第(1)步选择1时,无此第(3)步,只有当第(1)步选择2时,才
会出现此步

AJ?

(4)输入待求点跟线路中桩边线与线路方向夹角(顺时针)AJ?
当第(1)步选择1时,无此第(4)步,只有当第(1)步选择2时,才
会出现此步

X=

(5)输出待求点的X坐标

Y=

(6)输出待求点的Y坐标

此行操作完成后返回第(2)步,要求重新输入计算

5． 边桩放样计算程序
1.CJ 2.QZ 3.QS?

(1)仪器选择：1.测距仪 2.全站仪 3.缺省情况（即同上一次）？
当此步选择2时，下一步从第（12）步开始运行
当此步选择3时，下一步从第（6）步开始运行

DZ?

(2)输入置镜点点号DZ？
只有当第（1）步选择1时，才会出现此步

DH?

(3)输入后视点点号DH？
只有当第（1）步选择1时，才会出现此步

HZ?

(4)输入置镜点的高程（包括仪器高）HZ？
只有当第（1）步选择1时，才会出现此步

AH?

(5)输入后视角度AH？
只有当第（1）步选择1时，才会出现此步

AQ?

(6) 输入前视角度AQ？
只有当第（1）步选择1或3时，才会出现此步

S?

(7) 输入前视平距S？
只有当第（1）步选择1或3时，才会出现此步

HD?

(8) 输入前视高差HD？（高于测站为“+”，低于测站为“-”）
只有当第（1）步选择1或3时，才会出现此步

HY?

(9) 输入前视仪高HY？
只有当第（1）步选择1或3时，才会出现此步

X=

(10) 输出测点的X坐标
只有当第（1）步选择1或3时，才会出现此步

Y=

(11) 输出测点的Y坐标
只有当第（1）步选择1或3时，才会出现此步

X?

(12) 输入测点的X坐标？
只有当第（1）步选择2时，才会出现此步

Y?

(13) 输入测点的Y坐标？
只有当第（1）步选择2时，才会出现此步

Z?

(14)输入测点的高程Z？
只有当第（1）步选择2时，才会出现此步

KD=

(15)输出测点的桩号KD

WB=

(16)输出测点相对于线路的偏离平距WB（左偏为“-”，右偏为“+”）

H=

(17)输出测点的高程H

M?

(18)输入边坡设计坡度(从离路肩最近处输起)M?
程序根据放样点的高程自动计算出所需的台阶数目，重复此第(18)步依此输入完各台阶边坡的设计坡度后，再自动要求加输一个台阶，以备台阶数目不够高程之所用

C=

(19)输出测点距下面一个平台内侧的高差C
当测点为挖时，才会出现此步

P=

(20)输出测点距最近一个平台内测的平距P？
当测点为挖且测点离平台的高差不大于1m时，才会出现此步

DB=

(21)输出测点应横向移动的平距DB(“-”为左移,“+”为右移)

此步操作完成后，返回第（6）步（当第（11）步选择1或3时）或第（12）步（当第（1）步选择2时），要求重新输入计算

三、程序设计
1． 测量放样计算主程序CLFY (571步)
V=19:Fixm:Rad¿
{O}:O”FY:1.ZX 2.BX”¿
Z[13]=O¿
{OE}:O”ZJ:1.DX 2.XL”¿
E”DZ”¿
O=1ÞZ[8]=Z[E+30+6a+3b+2c+d]:Z[9]=Z[E+30+6a+3b+2c+d+e]◣¿
O¹1Þ{D}:D”LZ”:Z=E:Prog ”ZB”:Z[8]=X+Rec(D,U+π÷2):Z[9]=Y+J◣¿
{OF}:O”HS:1.DX 2.XL”¿
F”DH”¿
O=1ÞZ[10]=Z[F+30+6a+3b+2c+d]:Z[11]=Z[F+30+6a+3b+2c+d+e]◣¿
O¹1ÞB=Z[5]:{B}:B”LH”:Z[5]=B:Z=F:Prog ”ZB”:Z[10]=X+Rec(Z[5],U+π÷2):Z[11]=Y+J◣¿
S=Z[6]:{S}:S”AH”:Z[6]=S:Q=0¿
Lbl 1¿
Z=Z[12]¿
{Z}:Z”KF”:Z[12]=Z¿
Z[13]¹1Þ{QG}:Q”L”:G”AJ” ◣¿
Prog ”ZB”:X=X+Rec(Q,U+πG÷180):Y=Y+J¿
Pol(Z[10]-Z[8],Z[11]-Z[9]):Z[4]=J¿
Pol(X-Z[8],Y-Z[9]):I”S=”◢
I=J-Z[4]+Z[6]π÷180¿
I>2πÞI=I-2π◣¿
I<0ÞI=I+2π◣¿
Z[3]=U+π-J¿
Z[3]>2πÞZ[3]=Z[3]-2π◣¿
I=180I÷π:Z[3]=180Z[3]÷π¿
I”A=”◢
Z[3]”AT=” ◢
Goto 1
2．线路坐标计算主程序XLZB (143步)
V=19:Fixm:Rad¿
{O}:O”1.ZX 2.BX”¿
Q=0¿
Lbl 1¿
{Z}:Z”K”¿
O¹1Þ{QG}:Q”L”:G”AJ” ◣¿
Prog ”ZB”:X=X+Rec(Q,U+πG÷180):Y=Y+J ¿
X”X=” ◢
Y”Y=” ◢
O=1ÞU=180U÷π:U”AT=” ◢
◣¿
Goto 1

3．高程较差计算主程序GCJC (113步)
V=6a+25:Fixm¿
{E}:E”YG”¿
Lbl 0¿
{ZDU}:Z”K”:D”DW”:U”QS”¿
Q=Z[D+6a+3b+2c+d+2e+30]¿
Prog ”GC”¿
C=C-E+U¿
C=Intg (1000C+0.5)÷1000¿
C”DH=” ◢
Goto 0

4．线路高程计算主程序XLGC (56步)
V=6a+25:Fixm¿
Lbl 0¿
{ZQ}:Z”K”:Q”L”¿
Prog ”GC”¿
C”H=”◢
Goto 0

5． 边桩放样计算主程序BZFY (330步)
Fixm:Rad¿
{Z}:Z”1.CJ 2.QE 3.QS”¿
Z=2ÞZ[11]=0:Goto 1◣¿
Z=3Þ Goto 1◣¿
{MNGU}:M”DZ”:N”DH”:G”HZ”:U”AH”¿
Z[8]=Z[M+30+6a+3b+2c+d]:Z[9]=Z[M+30+6a+3b+2c+d+e]¿
C=Z[N+30+6a+3b+2c+d]:A=Z[N+30+6a+3b+2c+d+e]¿
Pol(C-Z[8],A-Z[9]):Z[10]=J-πU÷180:Z[11]=G¿
Lbl 1¿
Z=2ÞGoto 2◣¿
{EBFD}:B”AQ”:E”S”:D”HD”:F”HY”¿
Rec(E,Z[10]+πB÷180):X=Z[8]+I◢
Y=Z[9]+J◢
Goto 3¿
Lbl 2¿
{EBD}:E”N”:B”E”:D”Z”:F=0:X=E:Y=B¿
Lbl 3¿
Prog “FQ”¿
G=D+Z[11]-F:G”H”◢
Prog “FY”¿(当高程检查计算时，不用子程序“FY”,此行换为V=6a+25: Prog “GC”:X=C-G: X”DH”◢)
Goto 1
6． 线路坐标计算子程序ZB (517或492步)
W=21¿
K=Z¿
断链数值
断链桩号
Z>23540ÞK=K-0.03313◣¿ (注：当断链更改时，修改方框中的数据，若还有断链则应模仿此行再增加行，长链为“-”，短链为“+”)
Lbl 1¿
K>Z[W+5a+4]ÞW=W+1:Goto 1◣¿
W=21ÞW=22◣¿
V=W-1ÞGoto 2◣¿
V=W-1¿
Prog ”YS”¿
Z[14]=Z[V]-Rec(T,A)¿
Z[15]=Z[V+a+2]-J¿
Lbl 2¿
S=K-Z[V+5a+4]¿
B=A¿
S≤0ÞX=Z[14]+Scos B:Y=Z[15]+Ssin B:U=B:Goto 6◣¿
X=Z[14]:Y=Z[15]¿
S≤LÞH=1:Goto 3◣¿
S≤Z[7]-MÞGoto 4◣¿
B=A-NC+π¿
S≤Z[7]ÞS=Z[7]-S:X=Z[V]-Rec(P,B):Y=Z[V+a+2]-J:H=-1:L=M:Goto 3:L=Z[V+3a+3]◣¿
X=Z[V]-Rec(P+S-Z[7],B):Y=Z[V+a+2]-J¿
U=B-π:Goto 6¿
Lbl 3¿
I=NHSSS÷6÷R÷L¿
J=S-S^5÷(40(RL)2)¿
U=B-NHSS÷(2RL)+π(H-1)÷2:Goto 5¿
Lbl 4¿
U=(2S-L)÷R÷2¿
I=NR(1-cos U)+NZ[18]:J=Rsin U+Z[19]¿
U=B-N(S-L÷2)÷R¿
Lbl 5¿
Pol(I,J):J=J+B-π÷2¿
X=Rec(I,J)+X¿
Y=Y+J¿
Lbl 6¿
U<0ÞU=U+2π◣

7．曲线要素计算子程序YS (320步)
R=Z[V+2a+3]¿
L=Z[V+3a+3]:M=Z[V+4a+3]¿
Pol(Z[V+1]-Z[V],Z[V+a+3]-Z[V+a+2])¿
S=J¿
Pol(Z[V]-Z[V-1],Z[V+a+2]-Z[V+a+1])¿
C=J-S:A=J¿
C=tan (C÷2):C=tan-1 C¿
N=Abs C÷C:C=2Abs C¿
Z[19]=L÷2-LLL÷240÷R÷R¿
Z[17]=M÷2-MMM÷240÷R÷R¿
Z[18]=LL÷24÷R¿
Z[16]=MM÷24÷R¿
P=(Z[16]-Z[18])÷2÷tan (C÷2)¿
Z[7]=(Z[18]+Z[16]+2R)tan (C÷2)÷2¿
T=P+Z[7]+Z[19]:P=Z[7]-P+Z[17]¿
Z[7]=RC+(L+M)÷2

8．线路高程计算子程序GC (521或496步)
W=6a+27¿
K=Z¿
Z>23540ÞK=K-0.03313◣¿ (注：当断链更改时，修改方框中的数据，若还有断链则应模仿此行再增加行，长链为“-”，短链为“+”)
Lbl 1¿
P=Z[W+2b+3]¿
K>Z[W]-PÞW=W+1:Goto 1◣¿
W=6a+27ÞW=6a+28◣¿
V=W-1ÞGoto 2◣¿
V=W-1¿
J=Z[V+b+2]¿
R=(J-Z[V+b+1])÷(Z[V]-Z[V-1])¿
S=(Z[V+b+3]-J)÷(Z[V+1]-Z[V])¿
T=Z[V+2b+3]¿
Lbl 2¿
L=K-Z[V]¿
L≤-TÞH=J+RL:Goto 3◣¿
L≥TÞH=J+SL:Goto 3◣¿
A=2T÷(S-R)¿
X=L+A(R+S)÷2¿
H=J+XX÷2÷A-ARS÷2¿
Lbl 3¿
H=H-Z[1]¿
A=Abs Q¿
中央带宽
A≤1ÞC=0:Goto 6◣¿
I=-1¿
Q>0ÞI=1◣¿
Lbl 4¿
Y=6a+3b+31¿
Lbl 5¿
K≥Z[Y]ÞY=Y+1:Goto 5◣¿
O=Z[Y+c-1]:X=Z[Y+c]:O=IO:X=IX¿
Z[Y+c-1]=0ÞO=2◣¿
Z[Y+c]=0ÞX=2◣¿
N=(Z[Y]-K)÷(Z[Y]-Z[Y-1])¿
中央带宽/2
M=(X-O)(1-3NN+2NNN)+O¿ （当超高过渡段按直线性计算时，此行换为 M=(O-X)N+X¿）
土路肩设计最小坡
A≤Z[2]ÞC=(1-A)M÷100:Goto 6◣¿
中央带宽/2
中央带宽/2
C=0.03(Z[2]-A)-M(Z[2]-1)÷100¿
土路肩设计最小坡度×100
M>3ÞC=(1-A)M÷100◣¿
Lbl 6¿
C=H+C

9．反求线路桩号子程序FQ (783或758步)
V=21¿
Lbl 1¿
V>20+aÞV=20+a:Goto 2◣¿
Prog ”YS”¿
Z[4]=Z[V]-Rec(T,A):Z[5]=Z[V+ 2+a]-J¿
Z[6]=Z[V]+Rec(P,S):Z[3]=Z[V+ 2+a]+J¿
Z[6]=XÞZ[3]=YÞK=Z[V+4+5a]+Z[7]:Q=0:Goto 6◣◣¿
Pol(Z[6]-X,Z[3]-Y):K=J+π-S¿
Q=Abs (Isin (K-NC÷2))
cos K<0ÞQ<2000ÞGoto 2◣◣¿
V=V+1¿
Goto 1¿
Lbl 2¿
Q=Z[4]:K=Z[5]:G=A-π÷2¿
Prog ”ZH” ¿
Pol(-H,-W):K=J+π÷2¿
cos K<0ÞK=Z[V+4+5a]+W:Q=-H:Goto 6◣¿
G=NLL÷6÷R:Q=L-LLL÷40÷R÷R¿
Pol(G-H,Q-W):K=J+π÷2+NL÷2÷R¿
cos K<0ÞGoto 3◣¿
I=2Rsin (C÷2-L÷R÷4-M÷R÷4)¿
I=G+Rec(I,π÷2-N(C÷2+L÷R÷4-M÷R÷4))¿
K=Q+J¿
Pol(I-H,K-W):K=J+π÷2+N(C-M÷2÷R)¿
cos K<0ÞGoto 4◣¿
G=π÷2-NC¿
Pol(Rec(P,G)-H,T+J-W):K=J+π-G¿
cos K<0ÞGoto 5◣¿
Q=Z[6]:K=Z[3]:G=π÷2+S¿
Prog ”ZH” ¿
K=Z[V+4+5a]+Z[7]-W:Q=H¿
Goto 6¿
Lbl 3¿
K=N:U=L¿
Prog ”HQ” ¿
K=Z[V+4+5a]+O¿
Goto 6¿
Lbl 4¿
Pol(H-N(R+Z[18]),W-Z[19])¿
K=Z[V+4+5a]+R(π÷2+N(π÷2-J))+L÷2¿
Q=N(I-R)¿
Goto 6¿
Lbl 5¿
Q=Z[6]:K=Z[3]:G=π÷2+S¿
Prog ”ZH”¿
K=-N:U=M¿
Prog ”HQ”¿
K=Z[V+4+5a]+Z[7]-O:Q=-Q¿
Lbl 6¿
M=1000¿
Z=K¿
Z>23540ÞZ=Z-(-0.03313)◣¿ (注：当断链更改时，修改方框中的数据，若还有断链则应模仿此行再增加行，长链为“-”，短链为“+”)
Z=Intg (MZ+0.5)÷M¿
Q=Intg (MQ+0.5)÷M¿
Z”KD=”◢
Q”WB=”◢

10．坐标转换计算子程序ZH (52步)
H=X-Q:W=Y-K¿
Pol(H,W)¿
G=J-G¿
H=Icos G:W=Isin G

11．反求缓曲长度子程序HQ (380步)
A=K÷46080÷R^6÷U^6¿
P=H÷3840÷R^5÷U^5¿
C=13K÷5760÷R^4÷U^4¿
T=KW÷384÷R^4÷U^4¿
G=H÷48÷R^3÷U^3¿
I=K÷(15RRUU)¿
J=KW÷(8RRUU)¿
L=H÷(2RU)¿
N=KW¿
S=W¿
Lbl 7¿
M=AS^13+PS^10-CS^9+TS^8-GS^6+IS^5-JS^4+LSS-KS+N¿
Q=13AS^12+10PS^9-9CS^8+8TS^7-6GS^5+5IS^4-4JS^3+2LS-K¿
O=S-M÷Q¿
Abs (O-S)<1E-5ÞGoto 8◣¿
S=O¿
Goto 7¿
Lbl 8¿
T=KOOO÷6÷U÷R¿
P=O-O^5÷(40RRUU)¿
T=HÞP=WÞQ=0:Goto 9◣◣¿
Pol(H-T,W-P)¿
Q=sin (J+KOO÷2÷R÷U-π÷2)¿
S=-1¿
Q>0ÞS=1◣¿
Q=SI¿
Lbl 9

12．边桩放样计算子程序FY (418步)
V=6a+25¿
土路肩宽
U=Q¿
Q=-0.75-Z[2]:Z[3]=-1¿
土路肩宽
U>0ÞQ=0.75+Z[2]:Z[3]=1◣¿
Prog ”GC”¿
X=G-C¿
平台横坡引起的高差=平台宽×平台坡度
X≤0ÞGoto 7◣¿
路堑相邻两台阶坡脚间的高差
N=Int ((X-0.1)÷8.9)+1¿
N>9ÞN=9◣¿
I=1¿
Lbl 2¿
O=Z[30+6a+3b+2c+I]¿
{O}:O”M”¿
Z[30+6a+3b+2c+I]=O¿
I=I+1¿
I>N+1ÞGoto 4◣¿
Goto 2¿
Lbl 4¿
=护坡道宽+水沟开口宽度+土路肩宽度
I=0¿
护坡道横坡引起的高差=护坡道宽×护坡道坡度
W=3.55+Z[2]:H=0.04¿
Lbl 5¿
I=I+1¿
平台宽度
I>N-1ÞGoto 6◣¿
W=W+2+9Z[I+30+6a+3b+2c]¿
路堑同一台阶的坡顶到坡脚之间的高差
路堑相邻两台阶坡脚间的高差
H=H+8.9¿
Goto 5¿
Lbl 6¿
A=X-H:A”C=”◢
中央带宽/2
W=W-Abs U
A≤1ÞP=WZ[3]◢
=路堑同一台阶的坡顶到坡脚之间的高差-1
◣¿
A≥8ÞP=(9Z[I+30+6a+3b+2c]+W+2)Z[3]◢
路堑同一台阶的坡顶到坡脚之间的高差
◣¿
A=AZ[I+30+6a+3b+2c]+W¿
Goto 8¿
Lbl 7¿
X”C=”◢
路堤边坡坡度
X=-X¿
A=1.5¿
土路肩宽度
路堤同一台阶的坡顶到坡脚之间的高差
K<95500ÞA=2◣¿
路堤第二阶边坡坡度
X≤8ÞA=AX+0.75+Z[2]-Abs U◣¿
=路堤同一台阶的坡顶到坡脚之间的高差+路堤平台宽度×路堤平台坡度
X>8ÞA=14.75+Z[2]+1.75(X-8.04)-Abs U◣¿
=路堤边坡坡度×路堤台阶高度+土路肩宽度+路堤平台宽度
Lbl 8¿
路堤同一台阶的坡顶到坡脚之间的高差
A=AZ[3]¿
A”DB=”◢

四、扩展变量设置数值
扩展变量设置实际数值表
名 称
上三线四标
福宁线A14标
福宁线A14-4
福宁线A匝道
福宁线A14-34

交点数目a
4
7
2
1
2

变坡点数目b
12
12
4
1
6

起超点数目c
20
5
5
4
5

台阶数目d
0
0
10
10
10

导线点数目e
30
20
17
5
15

变量总数目
188
164
108
67
110

Z[1]
0.65
0.73
0
0
0

Z[2]
11.5
11.5
11.5
变量
11.5

Z[3]
空
空
空
空
空

Z[4]
空
空
空
空
空

Z[5]
空
空
空
空
空

Z[6]
空
空
空
空
空

Z[7]
空
空
空
空
空

Z[8]
空
空
空
空
空

Z[9]
空
空
空
空
空

Z[10]
空
空
空
空
空

Z[11]
空
空
空
空
空

Z[12]
空
空
空
空
空

Z[13]
空
空
空
空
空

Z[14]
空
空
空
空
空

Z[15]
空
空
空
空
空

Z[16]
空
空
空
空
空

Z[17]
空
空
空
空
空

Z[18]
空
空
空
空
空

Z[19]
空
空
空
空
空

Z[20]
3311951.398
2975739.214
2973710.082
74471.13219
2973710.082

Z[21]
3308082.107
2976456.448
2973608.911
74153.55609
2973608.911

Z[22]
3306528.851
2974752.896
2973081.305
74679.09200
2973081.305

Z[23]
3304867.372
2974382.492
2972865.599
502032.2264
2972865.599

Z[24]
3303837.575
2974226.853
497354.093
501750.1303
497354.093

Z[25]
3300666.727
2973734.000
495552.513
501327.7960
495552.513

Z[26]
483715.315
2973608.911
493906.918
280.0
493906.918

Z[27]
482961.247
2973081.305
493744.453
84.7
493744.453

Z[28]
484119.363
2972865.599
2500.000
84.7
2500.000

Z[29]
484785.224
506191.913
560.000
150
560.000

Z[30]
484191.299
504387.553
0
199.86
0

Z[31]
484421.828
501750.741
181.944
1070.589
181.944

Z[32]
1800.647183
500661.829
0
305
0

Z[33]
2000.000
499179.551
183.096
600
183.096

Z[34]
1320.097
497779.999
94318.362
840
94318.362

Z[35]
1128.972
495552.513
95803.35362
9.9
95803.35362

扩展变量设置实际数值表(续表)
名 称
上三线四标
福宁线A14标
福宁线A14-4
福宁线A匝道
福宁线A14-34

Z[36]
240.000
493906.918
97577.87494
15.8
97577.87494

Z[37]
250.000
493744.453
98104.795
29
98104.795

Z[38]
200.000
1200.000
95500
52.5
94000

Z[39]
200.000
2800.000
95940
空
94950

Z[40]
240.000
2800.000
96640
284.56
95500

Z[41]
250.000
4000.000
97040
686.596
95940

Z[42]
200.000
3000.000
97900
771.296
96640

Z[43]
200.000
2500.000
98104.795
1070.589
97040

Z[44]
18766.03067
560.000
20.685
3
97900

Z[45]
21790.803882
276.480
28.185
3
98104.795

Z[46]
24165.055664
0
63.185
0
13.500

Z[47]
25596.110581
0
73.185
0
22.335

Z[48]
26989.881648
0
108.785
第一边坡坡度
20.685

Z[49]
30594.63423
0
113.290
第二边坡坡度
28.185

Z[50]
22050.000
0
219.5
第三边坡坡度
63.185

Z[51]
22299.500
181.944
203.26
第四边坡坡度
73.185

Z[52]
22700.400
276.480
196.744
第五边坡坡度
108.785

Z[53]
23110.900
0
193.953
第六边坡坡度
113.290

Z[54]
23360.000
0
空
第七边坡坡度
184.5

Z[55]
23699.96687
0
89900
第八