公路緩和曲線坐標計算程序

S,N=>X,Y

Lb1 0

A:B:S:N

X=A+S cosN ◢

Y=B+S sinN ◢

GoTo 0

已知距離和方位角求坐標

X,Y=>S,N

Lb1 0

A:B:C:D

X=C － A : Y=D － B

S= √ X²+Y² ◢

X ≥ 0=>M=tan-1(Y/X): ≠ =>M= tan-1(Y/X)+180 △

M ≥ 0=>N=M: ≠ =>N=M+360◢

GoTo 0

A ：已知點的 X 坐標

B ：已知點的 Y 坐標

C ：方向點的 X 坐標

D ：方向點的 X 坐標

S ：已知點至方向點的距離

N ：已知點至方向點的方位角

SQX

Lb1 0

｛ Z ｝

C 〝 Z0 〞 :D 〝 H0 〞 :A 〝 I1 〞 :D 〝 I2 〞 :T:R

H=(T-Abs(Z-C))² ÷ R ÷ 2:

T ﹤ Abs(Z-C)=>H=0: △

A ﹥ B=>GoTo 2: ≠ > GoTo 1 △△

Lb1 1

Z ﹤ C=>X=D ＋ (Z-C)A ＋ H ▲ ≠ > X=D ＋ (Z-C)B ＋ H ▲△

GoTo O

Lb1 2

Z ﹤ C=>X=D ＋ (Z-C)A － H ▲ ≠ > X=D ＋ (Z-C)B － H ▲△

GoTo O

Z0 ：中心樁號

H0 ：中心樁號對應(yīng)的標高

T ：切線長

I1 、 I2 ：豎曲線斜率

Z ：所求點的樁號

緩和曲線 ( 順算 )

HUAN SUN

Lb1 0

｛ S ， E ， F ｝

A 〝 X1 〞 : B 〝 Y1 〞 : H : C

U= ∫（ Abs cos( X² ÷ 2 ÷ C2 × 180 ÷ π ),0,S ） :

V= ∫（ Abs sin( X² ÷ 2 ÷ C2 × 180 ÷ π ),0,S ） :

X=A ＋ UcosH ＋ Vcos(H ＋ Z × 90) ▲

Y=B ＋ UsinH ＋ Vsin(H ＋ Z × 90) ▲

G=H ＋ Z × S² ÷ 2 ÷ C² × 180 ÷π :

X=X ＋ Ecos(G ＋ F) ▲

Y=Y ＋ Esin(G ＋ F) ▲

GoTo O

X1,Y1 ：緩和曲線起始樁點的坐標

H ：起始點至曲線切點的方位角

C ：緩和曲線參數(shù)（ A 值）

Z ：取± 1

S ：所求點到起始點的距離

F ：所求點與路線中心線的交角（一般為 90^O ）

緩和曲線逆算

HUAN NI

Lb1 0

｛ S ， E ， F ｝

A 〝 X1 〞 : B 〝 Y1 〞 : H : C

U= ∫（（ Abs cos(X ÷ R － X² ÷ 2 ÷ C² ) × 180 ÷π ,0,S ） :

V= ∫（（ Abs sin(X ÷ R － X² ÷ 2 ÷ C² ) × 180 ÷π ,0,S ） :

X=A ＋ UcosH ＋ Vcos(H ＋ Z × 90) ▲

Y=B ＋ UsinH ＋ Vsin(H ＋ Z × 90) ▲

G=H ＋ Z （ S ÷ R － S² ÷ 2 ÷ C² ）× 180 ÷π :

X=X ＋ Ecos(G ＋ F) ▲

Y=Y ＋ Esin(G ＋ F) ▲

GoTo O

A 、 B ：起點的 X ， Y 坐標

H ：起始點至曲線切點的方位角

C ：緩和曲線參數(shù)（ A 值）

Z ：取± 1

S ：所求點至起始點的距離

E ：所求點至路線中心線的距離

F ：所求點與路線中心線的交角（一般為 90^O ）