卵形曲线计算程序-4850

NXJS

S=LR÷(Q-R)︰C=R(S +L) :E=H-((H+S)＾5 -S ＾5) ÷40C ²+((H+S ) ＾9-S ＾9) ÷3456C ＾4 ︰F=((H+S)＾3-S ＾3) ÷6C-((H+S)＾7-S ＾7 ) ÷336C ＾3+((H+S)＾ 11-S ＾11) ÷42240C ＾ 5︰W=90S²÷∏C ︰M=Ec os W+Fsin W︰N=P( Fcos W-Esin W) ︰D =A+90P((H+S)²-S ² ) ÷∏C ︰E=X+Mcos A- N sinA︰F=Y+Msin A +Ncos A

NXQX

Lbl 0

Prog “DAT ” H=K-I:Z=0:S=Q+R S=0=>D=A:Goto 6:⊿ Q=R=>W=180H÷ПR:D= PW+A:H=RSin W÷Si n(90-W÷2):A=PW÷ 2+A:Goto 6: ⊿ Goto 7 Lbl 6

E=X+HcosA︰F=Y+H sin A︰GOTO 1 Lbl 7

Q=0=＞Q=10＾10︰⊿R>Q =>”CUOWU ”:GOTO 0: ⊿HZ=180:H=Abs H:⊿ Prog “NXJS ” Lbl 1

{BJ}:B≠0=＞J ︰⊿M=E+ Bcos (D+J+Z)︰N=F +Bsin (D+J+Z)︰“X ”︰M ▲ “Y ”︰N ▲ Goto 0

DAT

Fixm

﹛K ﹜:K≤155=＞X=3712488.731:Y=523969.134:A=259°12°11.6°:Q=5500:R=5500:I=0:L=155:P=-1:Goto 5: ⊿

K ≤233.836=＞X=3712457.554:Y=523817.307:A=257°35°18°:Q=5500:R=80:I=233.836:L=78.836:P=1:Goto 5: ⊿

K ≥1000=＞X=123.345:Y=345.543:A=257°35°18°:Q=0:R=0:I=1000:Goto 5: ⊿ Lbl 5

说明:

1) 直线段 X、Y 小里程处端点坐标，A

小里程指向大里程方位角，Q 、R 输入0，I 起点里程；

2) 曲线段 X、Y 大半径处端点坐标，A

大半径处指向小半径方向的切线方位

角，Q 大半径值，如果无穷大则输入0，R 小半径值，I 大半径处的里程，P 由大半径指小半径的曲线偏向，左偏-1，右偏1，L 曲线长度；