公路中线坐标放样计算5800P程序

主程序

(R+B)Tan (N/2)+ O/2-O^3/(240R^2)-(B-K)/Sin (N) →T (R+K)Tan (N/2)+ Q/2-Q^3/(240R^2)+(B-K)/Sin(N) →U ΠR Abs(N)/180+（O+Q）/2→k

F-TCosV→X:H-TSinV→Y

G-W+T→S

IF S<0:Then Goto 3:IFEnd

IF S≥0 and s≤k-q:Then Goto 4:IFEnd

IF S≥k-q and s≤k:Then Goto 6:IFEnd

IF S>k:Then Goto 7:IFEnd

Lbl 3

F+(G-W)CosV→X: H+(G-W)SinV→Y

X+Pcos(V+L) →X: Y+Psin(V+L)→Y

V→U

Goto 8

Lbl 7

S-k+U→S

F+Scos(V+NM)→X: H+Ssin(V+NM)→Y

X+Pcos(V+NM+L) →X: Y+Psin(V+NM+L)→Y

V+Nm→U

Goto 8

Lbl 4

If s>O:then O→u：0→b:else s→u:p→b:ifend

If O=0:then v→u:goto 5:ifend

u-u^5/(40R^2O^2)+u^9/(3456R^4O^4) →C:u^3/(6RO)-u^7/(336R^3O^3)+u^11/(42240R^5O^5) →t Rec(C,V)

X+I→X:Y+J→Y

Rec(T,V+90M)

X+I→X:Y+J→Y

X+bcos(V+MZ+L) →X: Y+bsin(V+MZ+L) →Y

V+MZ→U

If s>O:then goto 5:ifend

Goto 8

Lbl 5

S-O→S

180S/(RΠ)→Z

RsinZ →C:R(1-cosZ)→S

Rec(C,u)

X+I→X:Y+J→Y

Rec(S,u+90M)

X+I→X:Y+J→Y

X+Pcos(u+MZ+L) →X: Y+Psin(u+MZ+L) →Y

u+MZ→U

Goto 8

Lbl 6

k-S→S

S-S^5/(40R^2Q^2)+S^9/(3456R^4Q^4) →C:S^3/(6RQ)-S^7/(336R^3Q^3)+S^11/(42240R^5Q^5) →S Rec(C,V+NM+180)

F+Ucos(V+NM)+I→X: H+Usin(V+NM)+J→Y

Rec(S,V+NM+180-90M)

X+I→X:Y+J→Y

X+Pcos(V+NM-ZM+L) →X: Y+Psin(V+NM-ZM+L) →Y

V+NM-ZM→U

Goto 8

Lbl 8

IF U≥360：Then U-360→U：IFEnd

return

子程序SJK

IF G≥98186.791 And G≤103180.594 : Then 交点X坐标→Ｆ：交点Y坐标→Ｈ：ZH点切线方位角→V：转角→Ｎ：（左转-1，右转1）→M：交点桩号→Ｗ：半径→Ｒ：一缓长度→Ｏ：二缓长度→Ｑ：IFEnd

IF G≥103180.594 And G≤104984.756 : Then 3151446.356→Ｆ：486426.357→Ｈ：239°13′56.2″→V：21°10′18.2″→Ｎ：-1→M：104091.084→Ｗ：3800→Ｒ：400→Ｏ：400→Ｑ:：IFEnd

IF G≥104984.756 And G≤106180.908 : Then 3150257.833→Ｆ：485495.757→Ｈ：218°3′38″→V：9°7′23.6″→Ｎ：1→M：105583.771→Ｗ：5000→Ｒ：400→Ｏ：400→Ｑ:：IFEnd

IF G≥106180.908 And G≤109014.85 : Then 3149224.89→Ｆ：484380.913→Ｈ：227°11′1.6″→V：21°28′19.1″→Ｎ：-1→M：107101.711→Ｗ：3800→Ｒ：400→Ｏ：400→Ｑ:：IFEnd

IF G≥109014.85 And G≤112695.53 : Then 3146547.246→Ｆ：483091.569→Ｈ：205°42′42.6″→V：54°10′21.5″→Ｎ：1→M：110056.079→Ｗ：1800→Ｒ：240→Ｏ：240→Ｑ：IFEnd

Prog "ZJ"

Return

本程序适用于主线，必须有交点才能计算，计算器必须是Casio fx-5800p计算器

正算说明：

G 桩号

P 到中桩的距离（负数为左，0为中桩，正数为右）

L 与路线的交角（90度为正交）

U 算出来的切线方位角

X 算出来的X坐标

Y 算出来的Y坐标

X0 测站X坐标