4800P放样程序(2)

1.)TYQXJS(程序名)

Defm 2:“1.SZ=>XY”: “1.XY=>SZ”:N:N=1=>Goto 1≠>Goto 2⊿←

Lb1 1:｛SZ｝:SZ←

S≤每段线终点桩号=>J=1：Prog“DAT1”: Goto 3⊿←

S≤每段线终点桩号=>J=2：Prog“DAT1”: Goto 3⊿←

S≤每段线终点桩号=>J=3：Prog“DAT1”: Goto 3⊿←

S≤每段线终点桩号=>J=4：Prog“DAT1”: Goto 3⊿←

S≤每段线终点桩号=>J=5：Prog“DAT1”: Goto 3⊿←

S≤每段线终点桩号=>J=6：Prog“DAT1”: Goto 3⊿←

S≤每段线终点桩号=>J=7：Prog“DAT1”: Goto 3⊿←

Lb1 3:W=Abs(S-O): Prog“SUB1”:X“XS”=X▲Y“YS”=Y▲Z[5]=X：Z[6]=Y：F“FS”=F-90▲

Lb12:Prog“DAT1”: ｛XY｝:XY:I=X:J=Y:Prog“SUB2”:S“S”=O+W▲Z“Z”=Z▲Goto 2

2.)SUB1(程序名)

A=0.1739274226:B=0.3260725774:K=0.0694318442:L=0.3300094782:F=1-L:Z[1]=1-K:X=U+

W(A COS(G+QEKW(C+KWD))+B COS(G+QELW(C+LWD))+B COS(G+QEFW(C+FWD))+A COS(G+QE Z[1]W(C+Z[1]WD))):Y=V+W(A SIN(G+QEKW(C+KWD))+B SIN(G+QELW(C+L WD))+B SIN(G+QEFW(C+FWD))+A SIN(G+QEZ[1]W(C+Z[1]WD))):M=90:F=G+QEW(C+W

D)+M:X=X+Z COS F:Y=Y+Z SIN F←

3.)SUB2(程序名)

M=90:T=G-M:W=Abs((Y-V)COS T-(X-U)SIN T):Z=0:Lb10:Prog“SUB1”:L=T+QEW(C+WD):Z= (J-Y)COS L-(I-X) SIN L: Abs Z＜1E-6=> Goto 1:≠>W=W+Z: Goto 0⊿←

Lb1 1:Z=0: Prog“SUB1”:Z=(J-Y)÷SIN F

4.)DAT1(程序名)

J=1=>U=起点X坐标：V=起点Y坐标：O=起点桩号：G=起点方位角：H=线形长度：P=XXXXXX ：R=XXXXXX：Q=XXXX⊿

J=2=>U=起点X坐标：V=起点Y坐标：O=起点桩号：G=起点方位角：H=线形长度：P=XXXXXX ：R=XXXXXX：Q=XXXX⊿

J=3=>U=起点X坐标：V=起点Y坐标：O=起点桩号：G=起点方位角：H=线形长度：P=XXXXXX ：R=XXXXXX：Q=XXXX⊿

J=4=>U=起点X坐标：V=起点Y坐标：O=起点桩号：G=起点方位角：H=线形长度：P=XXXXXX ：R=XXXXXX：Q=XXXX⊿

J=5=>U=起点X坐标：V=起点Y坐标：O=起点桩号：G=起点方位角：H=线形长度：P=XXXXXX ：R=XXXXXX：Q=XXXX⊿

J=6=>U=起点X坐标：V=起点Y坐标：O=起点桩号：G=起点方位角：H=线形长度：P=XXXXXX ：R=XXXXXX：Q=XXXX⊿

J=7=>U=起点X坐标：V=起点Y坐标：O=起点桩号：G=起点方位角：H=线形长度：P=XXXXXX ：R=XXXXXX：Q=XXXX⊿

……………………………………………………

U“X0”：V“Y0”：O“S0”：G“F0”：H“LS”：P“R0”：R“RN”：Q：C=1÷P：D=（P-R）÷（2HPR）：E=180÷∏←

说明：

1．Q-------以道路中线前进方向，直线输0，左拐曲线输-1，右拐曲线输1

2．P------ 起点曲率R----- 终点曲S-----桩号Z----边桩距离左为负，右为正，0为中线坐标，N输入1时为正算，输入2时为反算；M为正交或斜交，正交输90，斜交输设计数M在程序内容里改

3．当线段为直线时，起点、止点的曲率半径输入1E45；当线段为圆曲线时，起点、止点的曲率半径均输入圆的半径；

4．当线段为完整缓和曲线时，起点与直线相接时，起点曲率半径输1E45，与圆曲线相接时，起点曲线半径等于圆曲线半径；止点与直线相接时，止点曲率半径输1E45，与圆曲线相接时，止点曲率半径等于圆曲线半径

5．当线段为非完整缓和曲线时，起点与直线相接时，起点曲率半径等于设计规定值，与圆曲线相接时，曲线半径等于圆曲线半径；止点与直线相接时，终点曲率半径等于设计规定值，与圆曲线相接时，曲线半径等于圆曲线半径

6．本程序可以连续计算整条路的坐标，但要把整条路的要素输入计算机，也可以计算一部分。本程序的显示为4800P，如是4850要修改显示部份为4850P的显示。上面有横线部份为修改肉容