CASIO程序(线路计算6.0版)

一、扩展变量设置说明

统计各种要素点的数目

各要素点数目表

名称	平曲线交点	竖曲线变坡点	超高起始点	最多台阶数	线路导线点
数目（个）	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(未使用横坡点)个

设置各扩展变量数据

固定变量及自由变量Z[1] ～Z[19]

Z[1]:结构层厚度

Z[2]:半幅路基硬路面宽度(包含分隔带)

Z[3]～Z[19]:程序中使用的自由变量

平曲线要素扩展变量Z[20]～Z[25+6a]

各平曲线要素于扩展变量中的位置表

名称	起点	第1个交点	第2个交点	…	第i个交点	…	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个变坡点	…	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个

起超点

…

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个

导线点

…

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模式下运行

测量放样计算程序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?

(10)输入放样点偏离中线的平距(左为“-”,右为“+”)?

当第(1)步选择1时,无此第(10)步,只有当第(1)选择2时,才会出现此步

AJ?

(11)输入放样点跟线路中桩连线与线路方向的夹角(顺时针)AJ?

当第(1)步选择1时,无此第(11)步,只有当第(1)选择2时,才会出现此步

(12)输出放样距离S

(13)输出放样角度A

AT=

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

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

高程较差计算程序GCJC

YG?

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

(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)步,要求重新输入计算

线路高程计算程序XLGC

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

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

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

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

线路坐标计算程序XLZB

1.ZX 2.BX?

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

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

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

当第(1)步选择1时,无此第(3)步,只有当第(1)步选择2时,才

会出现此步

AJ?

(4)输入待求点跟线路中桩边线与线路方向夹角(顺时针)AJ?

当第(1)步选择1时,无此第(4)步,只有当第(1)步选择2时,才

会出现此步

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

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

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

边桩放样计算程序

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时，才会出现此步

(7) 输入前视平距S？

只有当第（1）步选择1或3时，才会出现此步

HD?

(8) 输入前视高差HD？（高于测站为“+”，低于测站为“-”）

只有当第（1）步选择1或3时，才会出现此步

HY?

(9) 输入前视仪高HY？

只有当第（1）步选择1或3时，才会出现此步

(10) 输出测点的X坐标

只有当第（1）步选择1或3时，才会出现此步

(11) 输出测点的Y坐标

只有当第（1）步选择1或3时，才会出现此步

(12) 输入测点的X坐标？

只有当第（1）步选择2时，才会出现此步

(13) 输入测点的Y坐标？

只有当第（1）步选择2时，才会出现此步

(14)输入测点的高程Z？

只有当第（1）步选择2时，才会出现此步

KD=

(15)输出测点的桩号KD

WB=

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

(17)输出测点的高程H

(18)输入边坡设计坡度(从离路肩最近处输起)M?

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

(19)输出测点距下面一个平台内侧的高差C

当测点为挖时，才会出现此步

(20)输出测点距最近一个平台内测的平距P？

当测点为挖且测点离平台的高差不大于1m时，才会出现此步

DB=

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

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

三、程序设计

测量放样计算主程序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

边桩放样计算主程序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

线路坐标计算子程序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=(X-O)N+O¿）

土路肩设计最小坡

正在上传…重新上传取消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	第八边坡坡度	220.5
Z[56]	24549.96687	0	97577.875	第九边坡坡度	219.5
Z[57]	25249.96687	0	97759.819	第十边坡坡度	203.26
Z[58]	26249.96687	183.096	97944.795		196.744
Z[59]	26599.96687	84800.000	98264.795		193.953
Z[60]	27199.96687	85983.52866	0		空
Z[61]	27699.96687	89437.69065	0		89900
Z[62]	28049.96687	90616.27064	-5		97577.875
Z[63]	28199.96687	91947.87136	-5		97759.819
Z[64]	12.200	93470.88887	5		97944.795
Z[65]	9.910	95803.35362	第一边坡坡度		98264.795
Z[66]	19.542	97577.87494	第二边坡坡度		0
Z[67]	8.858	98104.795	第三边坡坡度		0
Z[68]	11.000	89260	第四边坡坡度		-5
Z[69]	8.450	89960	第五边坡坡度		-5
Z[70]	14.910	90960	第六边坡坡度		5
Z[71]	9.450	91670	第七边坡坡度		第一边坡坡度
Z[72]	14.950	92320	第八边坡坡度		第二边坡坡度
Z[73]	10.050	92750	第九边坡坡度		第三边坡坡度
Z[74]	13.050	94000	第十边坡坡度		第四边坡坡度
Z[75]	11.000	94950	2973473.834		第五边坡坡度
Z[76]	14.500	95500	2973443.238		第六边坡坡度
Z[77]	13.600	95940	2973689.991		第七边坡坡度

扩展变量设置实际数值表(续表)

名称	上三线四标	福宁线A14标	福宁线A14-4	福宁线A14-34
Z[78]	149.500	96640	2973503.137	第八边坡坡度
Z[79]	251.400	97040	2974006.842	第九边坡坡度
Z[80]	159.100	97900	暂空	第十边坡坡度
Z[81]	90.000	98104.795	暂空	2973473.834
Z[82]	90.600	11.357	暂空	2973443.238
Z[83]	231.000	18.147	2973977.206	2973689.991
Z[84]	106.400	11.647	2973762.883	2973503.137
Z[85]	97.500	21.090	2973935.726	2974006.842
Z[86]	95.000	13.810	2973692.340	暂空
Z[87]	100.100	17.250	2973348.276	2973977.206
Z[88]	98.700	13.500	2973236.062	2973762.883
Z[89]	96.000	22.335	2973229.035	2973935.726
Z[90]	空	20.685	2973193.680	2973692.340
Z[91]	0	28.185	暂空	2973348.276
Z[92]	23290.772	63.185	494959.945	2973236.062
Z[93]	23425.772	73.185	494945.908	2973229.035
Z[94]	24280.05687	108.785	494603.173	2973193.680
Z[95]	24415.05687	113.290	495479.373	暂空
Z[96]	24684.09287	113.400	495746.501	494959.945
Z[97]	24819.09287	198	暂空	494945.908
Z[98]	25661.11187	196	暂空	494603.173
Z[99]	25769.11187	211.2	暂空	495479.373
Z[100]	25796.11187	132	495773.104	495746.501
Z[101]	26789.88287	123	495677.496	暂空
Z[102]	26816.88287	184.5	495371.624	495773.104
Z[103]	26924.88287	220.5	494520.294	495677.496
Z[104]	27044.88287	219.5	493952.915	495371.624
Z[105]	27141.54987	203.26	494625.730	494520.294
Z[106]	27189.88287	196.744	494529.316	493952.915
Z[107]	27662.42987	193.953	494358.050	494625.730
Z[108]	27710.76287	空	暂空	494529.316
Z[109]	27807.42987	89900		494358.050
Z[110]	50000.000	97577.875		暂空
Z[111]	-2	97759.819
Z[112]	-2	97944.795
Z[113]	0	98264.795
Z[114]	0	0
Z[115]	2	0
Z[116]	2	-5
Z[117]	0	-5
Z[118]	0	5
Z[119]	2	2973473.817

扩展变量设置实际数值表(续表)

名称	上三线四标	福宁线A14标	福宁线A14-4
Z[120]	3	2973443.259
Z[121]	3	2973689.991
Z[122]	2	2973503.137
Z[123]	0	2974006.842
Z[124]	0	2973463.050
Z[125]	-2	2973619.538
Z[126]	-4	2973592.676
Z[127]	-4	2973977.206
Z[128]	-2	2973672.883
Z[129]	0	2973935.726
Z[130]	0	2973692.340
Z[131]	3308042.779	2973348.276
Z[132]	空	暂空
Z[133]	3307801.470	暂空
Z[134]	空	暂空
Z[135]	空	暂空
Z[136]	空	暂空
Z[137]	3307165.852	暂空
Z[138]	3306649.672	暂空
Z[139]	3307053.737	494959.943
Z[140]	3306322.895	494945.887
Z[141]	3306088.066	494603.173
Z[142]	3305634.811	495479.373
Z[143]	空	495746.501
Z[144]	空	495106.263
Z[145]	空	495775.072
Z[146]	3303669.733	495576.938
Z[147]	3303401.174	495773.104
Z[148]	3303211.261	495677.496
Z[149]	3303173.637	495371.624
Z[150]	3308158.901	494520.294
Z[151]	3308080.613	493952.915
Z[152]	3307228.684	暂空
Z[153]	3306940.249	暂空
Z[154]	3305820.731	暂空
Z[155]	3305507.524	暂空
Z[156]	3304858.049	暂空
Z[157]	3304631.359	暂空
Z[158]	3304055.867	暂空
Z[159]	空	-11.5
Z[160]	空	-6
Z[161]	483146.2259	-0.75

扩展变量设置实际数值表(续表)

名称	上三线四标	福宁线A14标	福宁线A14-4
Z[162]	空	0.75
Z[163]	483231.338	6
Z[164]	空	11.5
Z[165]	空
Z[166]	空
Z[167]	483592.590
Z[168]	484200.733
Z[169]	483728.0049
Z[170]	484313.473
Z[171]	484455.546
Z[172]	484540.501
Z[173]	空
Z[174]	空
Z[175]	空
Z[176]	484296.135
Z[177]	484328.642
Z[178]	484208.826
Z[179]	484272.887
Z[180]	483722.221
Z[181]	483279.823
Z[182]	483335.318
Z[183]	484057.925
Z[184]	484515.566
Z[185]	484724.313
Z[186]	484798.677
Z[187]	484653.299
Z[188]	484412.871
Z[189]	空
Z[190]	空
Z[191]	-11.5
Z[192]	-6
Z[193]	-1
Z[194]	1
Z[195]	6
Z[196]	11.5
Z[197]
Z[198]
Z[199]
Z[200]
Z[201]
Z[202]
Z[203]