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个 交点 | … |
交点 | 第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个 变坡点 | 终点 |
| 变坡点桩号 | 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个 起超点 |
| 起超点桩号 | 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个 导线点 |
| 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?
| 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)步,要求重新输入计算
- 高程较差计算程序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)步,要求重新输入计算
- 线路高程计算程序XLGC
| K?
|
(1)输入待求点的桩号K?
| L?
|
(2)输入待求点偏离中线的平距L(左为“-”,右为“+”)?
| H=
|
(3)输出待求点的设计高程(已扣除结构层厚度)H
此行操作完成后返回第(1)步,要求重新输入计算
- 线路坐标计算程序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)步,要求重新输入计算
- 边桩放样计算程序
| 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时），要求重新输入计算
三、程序设计
- 测量放样计算主程序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] |
|
|
|
|
|
|
上一篇：卢龙双风冷，月冷