线路曲线计算程序

信息来源: 发布日期:2017-04-24

一、路线曲线放样计算:

1、   FD

N"XO":E"YO":A"XJ":Q"YJ":R"XH":P"YH":C"LO":D"R":Z"(1;)2;-3":S"ZH; HZ"

LbI 1:{K}:K"DK"

Z=3=>           Prog "ZX":Goto 8  x 

POL((C-C^5÷(40(DC)^2+C^9÷(3456(DC)^4)),(C^3÷(6DC)-C^7÷(336(DC)^3)+C^11÷(42240×(DC)^5)):Fixm:F=3×J

G=C2÷(24D)-C^4÷(2384D^3):H=C÷2-C^3÷(240D2)

L=Abs(S-K)

L>C=>           Goto 2  x

M=L-L^5÷(40(DC)2)+L^9÷(3456×(DC)^4):

B=L^3÷(6DC)-L^7÷(336×(DC)^3)+L^11÷(42240×(DC)^5)

Pol(M,B)

O=3J

Goto 3

LbI 2:W=180(L-C)÷(πD)+F

M=DsinW+H:B=D(1-cosW)+G

O=F+180(L-C)÷(πD)

LbI 3:Z=1=>           B=B:O=O:≠=>           Z=2=>           B=-B:O=-0 xx

 

注:XO、YO—置镜点坐标;XJ、YJ—交点方向点坐标;XH、YH—ZH、HZ点坐标;LO—缓和曲线长;R—半径;ZH、HZ—ZH、HZ点里程;DK—放样点里程;REP1—返回上一步;OK2—计算置镜点、放样点方位角、距离;≠3—横移;Q1—前移;H2—后移;斜交时先置入Z[1]=横向交角、Z[2]=纵向交角(顺时针为正)

T=M:U=B:Prog"XY"

 

LbI 8:{H}:H"REP 1,OK 2,≠ 3"

H=1=>           Goto 1 x

H=2=>           V=1:Prog "FW":Goto 8 x

H=3=>           Goto 4 x

Goto 8

LbI 4:{HL}

H"≠L1;R2":L"=>           M"

H=1=>           F=O-90:≠=>           H=2=>           F=O+90 xx

Fixm:Rec(L,F+Z[1]):G=M+I:W=B+J:T=G:U=W:Prog"XY"

LbI 5:{H}

H"REP 1;OK 2;= 3"

H=1=>           Goto8 x

H=2=>           V=1: Prog"FW":Goto 5 x

H=3=>           Goto 6 x

Goto5

LbI 6:{HL}:H"REP-O;Q-1;H-2"

H=1=>           F=O:Goto 9:≠=>           H=2=>           F=O+180:Goto 9 xx

H=0=>           Goto 5 x

Goto 6

LbI 9:L"=>           M":Fixm:Rec(L,F+Z[2])

T=G+I:U=W+J:Prog"XY"

LbI 7:{H}:H"PEP 1;OK 2"

H=1=>           Goto 6:≠=>           H=2=>           V=1:Prog"FW":Goto 7 xx   :Goto7

 

 

 

2、子程序FW

【1】  FW

V=1=>          {XY}:X:Y:Fixm: Goto 1x

Fixm:{NEXY}:N"X1":E"Y1":X"X2":Y"Y2"

LbI 1:PoI(X-N,Y-E):J< θ=>           j="360+J" x

 

注:X、Y坐标数据可修改;L—放样点距离;R—放样点方位角;

J>360=>           J=J-360 x

 

J"R"=J◢

I"L"=I◢

V=θ

 

【2】  XY

Fixm:PoI(A-R,Q-P)

X"N"=R+TcosJ-UsinJ◢

Y"E"=P+UcosJ+TsinJ◢

 

【3】  ZX

M=Abs(S-K)

B=0:O=0

T=M:U=B:Prog"XY"

 

3、已知一点坐标和到另一点距离、方位角求另一点坐标

【1】 LRXY

{XYLF}:X:Y:L:F

Rec(L,F):Fixm:I"X1"=X+I y

 

注:X1、Y1—直线1上1点坐标;X2、Y2—直线2上1点坐标; Qn—放样点方位角;

J"Y1"=Y+J y

 

 

4、两直线求交点坐标计算   JDXY

{ABCSTU}

A"X1":B"Y1"C"Q1":S"X2"T"Y2":U"Q2"

X=(T-StanU-B+AtanC)÷(tanC-tanU)

Y=XtanC+B-AtanC

 

4、视距测量计算

【1】 SJDIS

{NEZI}

N:E:Z:I

 

注:N、E、Z—置镜点坐标;M—上下丝距离;L—中丝高度;Q—竖角读数

LbI 1

 

Fixm

{MLQ}

M:L:Q

S=90-Q-0.0’32”:D=100M(Cos S)2 y

H=D×tan S+I-Ly

B"Z0"=Z+H

Goto 1

 

专题导航