卵形曲线坐标计算程序

发布时间: 2007-4-08 00:36 作者: lq52 来源: 路桥吾爱搜集 查看: 366次

字体: 小 中 大 | 上一篇 下一篇 | 推荐给好友

L1     LbI   0
L2    ｛E,K,W,｝:K:W:E:F:R:V:G:H:N:D:O
L3     S=R－O:C=Abs((F－D)RO/S)
L4     R>O=> P=CR/((E－F)NR+C):≠> P=CR/((F－E)NR+C)△
L5     I=PR/(P+R)
L6     U=V－180(E－F)/2/I/π
L7     R<O=> M=Abs(F－D)+C/O: ≠> M=C/R△ 
L8     R<O=> Q=F－NM: ≠>Q=F+NM△
L9     L=Abs(E－Q)
L10    A=(L－M)－(Lxy5－M xy5)/40/C2+(Lxy9－Mxy9)/3456/ Cxy4:B=( Lxy3－Mxy3)/6/C－(Lxy7 －Mxy7)/336/ Cxy3+( Lxy11－Mxy11)/42240/ Cxy5
L11    R<O=>P= －1: ≠>P=1△
L12    T=V－180NPM2/2/π/C
L13    X=G+PA cos T－NB sin T:Y=H+PA sin T+NB cos T
L14    X=X+W cos(U+K)▲Y=Y+W sin(U+K)▲
L15    Goto   0