坐标计算程序(4800)

{WRLMEFVNGQP}:W“a0=”:R“R=”:L“L0=”:M“K0=”:E“X0=”:F“Y0=”:V“AT=”:N“N=”:G“ZJ:X=”:Q“ZJ:Y=”:P“1.ZX 2.BX” A=W

Z[1]=Aπ÷180 Z[2]=Vπ÷180

注：程序在RAD模式下运行。此处R为曲线半径，Z[3]=Z[2]－Z[1]×N

L为缓和曲线长度，a0为曲线夹角，X0，Y0为曲X=E:Y=F

线直缓点坐标，AT为直缓点到交点的方位角，NLb1 1

为曲线偏向，左偏+1，右偏-1，K0为直缓点里程 P=1Goto 2

P≠1Goto 3

Lb1 2

Prog“1”

X“X=”◢ （“X=”:X◢）

1.ZX为中线放样 2.BX为边线Y“Y=”◢ （“Y=”:Y◢）

放样；ZJ：X、Y为置镜点坐标 O=U×180÷π:O“U=”◢ (“U=”:O◢)

Pol(X-G,Y-Q) Goto 4 Lb1 3

Prog“1”

LH为边线到中线的长度，左“—”右“+” {Z}:Z“LH=”  Z[10]=X+Rec(Z,U+π÷2) Z[11]=Y+J

括号内为4850计算器程序 Z[10]“X=”◢ (“X=”: Z[10]◢)

Z[11]“Y=”◢ (“Y=”: Z[11]◢) O=180U÷π:O“U=”◢ (“U=”:O◢) Pol(Z[10]-G,Z[11]-Q):Goto 4 Lb1 4

J＞2πJ=J-2π J＜0J=J+2π J= 180J÷π

J“A=”◢ (“A=”:J◢) I“S=”◢ (“S=”:I◢)

Goto 1

1

2、子程序(1)

{K}:K“K=” S=K－M

A=Z[2]:C=Z[1]

Z[4]=L÷2－L∧3÷240÷R2＋L∧5÷34560÷R∧4 Z[8]=L2÷24÷R－L∧4÷2688÷R∧3 Z[7]=(Z[8]＋R)tan(C÷2) T=Z[7]＋Z[4]

T为切线长，Z[7]为曲线长度 Z[7]=RC＋L Z[14]=E Z[15]=F

Z[16]=E＋TcosA Z[17]=F＋TsinA

Z[12]=Z[16]＋TcosZ[3] Z[9]=Z[17]＋TsinZ[3] Lb1 2 B=A

S≤0X=Z[14]+ScosB:Y=Z[15]+SsinB:U=B:Goto 6X=Z[14]:Y=Z[15] S≤LH=1:Goto 3 S≤Z[7]-LGoto 4 B=A-NC+π

S≤Z[7]Goto 1

X=Z[16]-Rec(T+S-Z[7],B):Y=Z[17]-J:U=B-π:Goto 6 Lb1 1

S=Z[7]-S:X=Z[12]:Y=Z[9]:H=-1:Goto 3 Lb1 3

I=NHSSS÷6÷R÷L+NHS∧7÷336÷(LR) ∧3

J=S-S∧5÷(40(RL)2)+S∧9÷3456÷(LR) ∧4 U=B-NHSS÷(2RL)+π(H-1)÷2:Goto 5 Lb1 4

U=(2S-L)÷R÷2

I=NR(1-cosU)+NZ[8]:J=RsinU+Z[4] U=B-N(S-L÷2)÷R Lb1 5

Pol(I,J):J=J+B-π÷2 X=Rec(I,J)+X Y=Y+J Lb1 6

2

运行程序后依次输入

(1)、a0=?----曲线转角(例36度43分48秒输入形式为36°43′48″) (2)、R=?-----曲线半径

(3)、L0=?----缓和曲线长（L0=0时即为圆曲线）

(4)、K0=?----直缓点里程.(DK121+100输入形式为121100) (5)、X0=? Y0=?---直缓点坐标 (6)、AT=?---直缓点切线方位角 (7)、N=?----左偏为+1,右偏-1

(8)、ZJ:X=? ZJ:Y=?---置镜点坐标 (9)、1.ZX 2.BX---中线,边线 (10)、K=?----待求点里程 (11)、X= Y=---待求点坐标

(12)、U= ---待求点切线方位角

(13)、A= ---为置镜点与待放样点连线的方位角,即

arctan[(Y前-Y镜)/(X前-X镜)]

(14)、S= ---为置镜点到待放样点的距离

直线线路坐标计算（ZXXY） 程序清单： V“X0=”：W“Y0=”：T“T0=”：U“K0=”：Lb1 0：Fixm：{KD}：X=V+（K-U）cos T+D×cos(T+90)◢

Y=W+（K-U）sin T+D×sin(T+90)◢ Goto 0

程序运行说明：

已知某一直线线路上一点的坐标为X0，Y0，该点里程为K0以及该直线沿前进方向的坐标方位角T0，按照提示输入以上数据，如果输入某一里程K和法线外移距离D（向右移为正值，向左移为负值）即可计算出该里程点的法线外移桩坐标X、Y，当D=0时

计算结果为中桩坐标。

3