平曲线计算(任意角度)

Fx4800公路坐标计算程序

N：Fixm

Lb1 0

Z[11]≠0=>Goto S ≨

{MS}

M≦第一个交点所计算最大里程Goto 1≨

M≦第二个交点所计算最大里程Goto 2≨………………………………………………

M≦第N个交点所计算最大里程Goto N≨

Goto 0

Lb1 A

Z[11]=0=>A<0=>P=-1：≠>P=1≨A=AbsA≨

Z=180÷πR

Q=0.5L-L^3÷240R^2:T=(R+L^2÷24R)tan0.5A+Q:B=ZL÷2:O=A÷

Z+L:K”E”=(R+L^2÷24R)÷cos0.5A-R:E”ZH”=W-T:

Z[1]”HY”=E+L:

Z[2]”YH”=E+O-L:

Z[3]”HZ”=E+O:

Lb1 Z

Z[11]≠0=>{MS}≨

V=0:K=0:

M≦E=>D=W-M:C=F+180:H=F:GotoE≨

M≦Z[1]=>G=M-E:C=F+PZG^2÷6L:H=F+PBG^2÷L^2:I=F-180:Goto B≨

M≦Z[2]=>G=M-Z[1]:Goto C ≨

M≧Z[3]=>D=T+M-Z[3]:C=F+PA:H=C:Goto E≨

G=Z[3]-M:I=F+PA:C=I-PZG^2÷6L-180:H=I-PBG^2÷L^2

Lb1 B

D=√((G-G^5÷40R^2L^2)^2+(G^3÷6RL-G^5÷336R^3L)^2)：Goto D Lb1 C

U=R(1-cos(B+ZG))+L^2÷24R:J=Rsin(B+ZG)+Q:

D=√(U^2+J^2):C=F+Ptan-1(U÷J):H=F+P(B+ZG):I=F-180：

Lb1 D

V=TcosI:K=TsinI

Lb1 E

X=Z[8]+DcosC+V：Y=Z[9]+DsinC+K：Z[10] ≠0=>Lb1

F:{DS}:D<0=>V=H+N-180：≠>V=H+N≨S<0=>K=H+N-90: ≠>K=H+N+90≨Goto G≨D=0:N≠90=>S=S÷sinN≨S<0=>K=H+N-180: ≠>K=H+N≨Lb1 G Z[4]=X+AbsDcosV+AbsScosK◢

Z[5]=Y+AbsDsinV+AbsSsinK◢

Pol(Z[6]-Z[4],Z[7]-Z[5]):J=J+180◢

I=I◢

Z[10]≠0=>Goto F≨Z[11] ≠0=>Goto Z≨Goto 0

Lb1 1

L=缓和曲线长

R=半径

A=转角(右转正,左转负)

K=交点方角(本交点至前一交点)

W=交点里程

Z[8]=交点X坐标

Z[9]=交点Y坐标

Goto A

……………

Lb1 N

……………………

Goto A

说明:N为放样点与中线夹角；M为放样点里程；Z[4] 为放样点X坐标；Z[5]为放样点Y坐标；J为测站点与放样点方位角I为测站点与放样点距离；Z[6]为测站点X坐标；Z[7]测站点Y坐标；S为边距（左负，右正）