[试用]：匝道计算试用

luguoqing0131 · 发表于 2005-5-5 10:26:08

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

、程序操作说明
1．匝道放样计算程序ZDFY
FY：1.ZX  2.BX?

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

DZ?

(2) 输入置镜点的导线点点号DZ?

DH?

(3) 输入后视点的导线点点号DH?

AH?

(4)输入后视角度AH?

KF?

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

L?

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

AJ?

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

S=

(8)输出放样距离S

A=

(9)输出放样角度A

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

2．匝道坐标计算程序ZDZB
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坐标

AT=

(7)输出待求点的切线方位角AT
只有当第(1)步选择1时，才会出现此第(7)步

此行操作完成后返回第(2)步,要求重新输入计算
3．匝道高程计算程序ZDGC
K?

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

L?

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

H=

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

1．匝道放样计算主程序ZDFY (288步)
Fixm:Rad¿
H=Z[Z[1]+9]¿
N=Z[Z[1]+14]¿
V=H¿
{O}:O”FY:1.ZX 2.BX”¿
{EFT}:E”DZ”:F”DH”:T”AH”¿
B=Z[E+39]:D=Z[E+54]¿
I=Z[F+39]:J=Z[F+54]¿
Pol(I-B,J-D):Z[7]=J¿
Lbl 1¿
{K}:K”KF”¿
O¹1Þ{QG}:Q”L”:G”AJ”◣¿
Prog ”BZ”:X=X+Rec(Q,U+πG÷180):Y=Y+J¿
Pol(X-B,Y-D):I”S=”◢
I=J-Z[7]+Tπ÷180¿
I>2πÞI=I-2π◣¿
I<0ÞI=I+2π◣¿
I=180I÷π¿
I”A=”◢
Goto 1

2．匝道坐标计算主程序ZDZB (169步)
Fixm:Rad¿
H=Z[Z[1]+9]¿
N=Z[Z[1]+14]¿
V=H¿
{O}:O”1.ZX 2.BX”¿
Q=0¿
Lbl 1¿
{K}:K”K”¿
O¹1Þ{QG}:Q”L”:G”AJ” ◣¿
Prog ”BZ”:X=X+Rec(Q,U+πG÷180):Y=Y+J ¿
X”X=” ◢
Y”Y=” ◢
O=1ÞU=180U÷π:U”AT=” ◢
◣¿
Goto 1

3．匝道高程计算主程序ZDGC (109步)
Fixm¿
G=Z[Z[1]+19]¿
U=Z[Z[1]+24]¿
E=Z[Z[1]+29]¿
F=Z[Z[1]+34]¿
V=G-1¿
Lbl 0¿
{KQ}:K”K”:Q”L”¿
Prog ”CG”¿
C”H=”◢
Goto 0

4．匝道坐标计算子程序BZ (75步)
W=H+1¿
Lbl 0¿
K>Z[W+N]ÞW=W+1:Goto 0◣¿
V=WÞGoto 1◣¿
V=W¿
Prog “CS”¿
Lbl 1¿
Z=K¿
Prog “ZD”

5．匝道参数计算子程序CS (142步)
U=Z[H-3]¿
X=Z[H-2]¿
Y=Z[H-1]¿
W=V-H¿
Lbl 0¿
Z[8]=X¿
Z[9]=Y¿
A=U¿
M=Z[V-W+N+1]¿
R=Z[V-W]¿
P=Z[V-W+1]¿
L=Z[V-W+N]¿
Dsz W¿
Goto 1¿
Goto 2¿
Lbl 1¿
Z=M¿
Prog “ZD”¿
Goto 0¿
Lbl 2

6．匝道分段计算子程序ZD (373步)
S=Z-L¿
R=PÞR=0ÞGoto 1◣◣¿
R=PÞR≠0ÞGoto 2◣◣¿
Z=1¿
P<RÞZ=-1◣¿
J=M-L¿
C=Abs(J÷(P-R))¿
J=0ÞC=1◣¿
J=ZJR÷(P-R)¿
I=J+SZ¿
U=A+S(J+I)÷2÷C¿
S=A-ZJJ÷2÷C¿
Y=I-J-(I^5-J^5)÷40÷C÷C+(I^9-J^9)÷3456÷C^4¿
I=(III-JJJ)÷6÷C-(I^7-J^7)÷336÷C^3+(I^11-J^11)÷42240÷C^5¿
X=Z[8]+ZYCos S-Isin S¿
Y=Z[9]+ZYSin S+Icos S¿
Goto 3¿
Lbl 1¿
X=Z[8]+Scos A¿
Y=Z[9]+Ssin A¿
U=A¿
Goto 3¿
Lbl 2¿
U=SP+A¿
X=Z[8]+(Sin U-Sin A)÷P¿
Y=Z[9]-(Cos U-Cos A)÷P¿
Lbl 3¿
U<0ÞU=U+2π◣¿
U>2πÞU=U-2π◣

7．匝道高程计算子程序CG (536步)
W=G+1¿
Lbl 0¿
W>G+U-2ÞGoto 1◣¿
P=Z[W+2U-1]¿
K>Z[W]-PÞW=W+1:Goto 0◣¿
W=G+1ÞW=G+2◣¿
V=W-1ÞGoto 2◣¿
Lbl 1¿
V=W-1¿
J=Z[V+U]¿
R=(J-Z[V+U-1])÷(Z[V]-Z[V-1])¿
S=(Z[V+U+1]-J)÷(Z[V+1]-Z[V])¿
T=Z[V+2U-1]¿
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[2]¿
A=Abs Q¿
A≤Z[3]ÞC=0:Goto 6◣¿
I=-1¿
Q>0ÞI=1◣¿
Lbl 4¿
Y=E¿
Lbl 5¿
K≥Z[Y]ÞY=Y+1:Goto 5◣¿
O=Z[Y+F-1]:X=Z[Y+F]:O=IO:X=IX¿
Z[Y+F-1]=0ÞO=2◣¿
Z[Y+F]=0ÞX=2◣¿
N=(Z[Y]-K)÷(Z[Y]-Z[Y-1])¿
M=(X-O)(1-3NN+2NNN)+O¿ （当超高过渡段按直线性计算时，此行换为 M=(O-X)N+X¿）
A≤Z[4]ÞC=(Z[3]-A)M÷100:Goto 6◣¿
C=Z[6](Z[4]-A)÷100-M(Z[4]-Z[3])÷100¿
M>Z[6]ÞC=(Z[3]-A)M÷100◣¿
Lbl 6¿
C=H+C

四、附加
根据横断面点数d增加扩展变量数目d个，假设原扩展变量总数为n个，即:
n=2(a1+a2+a3+a4+a5)+3(b1+b2+b3+b4+b5)+2(c1+c2+c3+c4+c5)+74，
则新增地扩展变量为Z[n+1]～Z[n+d]
匝道高程较差主程序GCJC (164步)
Fixm¿
G=Z[Z[1]+19]¿
U=Z[Z[1]+24]¿
E=Z[Z[1]+29]¿
F=Z[Z[1]+34]¿
V=G-1¿
{Z}:Z”YG”¿
Lbl 0¿
{KDB}:K”K”:D”DW”:B”QS”¿
Q=Z[n+D]¿
Prog ”CG”¿
C=C-Z+B¿
C=Intg(1000C+.5)÷1000¿
C”DH=”◢
Goto 0

账号		自动登录	找回密码
密码			立即注册

[试用]：匝道计算试用

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子