卡西歐4800對稱曲線計算程序

1、QXJS對稱曲線計算nt tn nLbl 0:S JD li :N (I PjU :R:H LS ： M=H + 2-k3*(240R2) :P=H 2* 24* R-H A4* (2384R A3)：T i Fl =M+(R+P) Tan(N * 2) _LL=n RM 180+H _LZ：6IE"= (R+P)*Cos (N * 2)-R ±Z：1IzH=S-T±Z:2IHYI= Z :1+HJZ：3IQZi = Z ：1+L* 2_LZ4YH= Zl +L-HJZ5HZ=Z ： 1 +L±E ：EP=0=> i i ENDJ RH : Got

2、o 0:八二H JSZB _LGoto X: Lbl X:W i i - 1, 1 i i :F i i F0 ? :A i ' X0 ' :B i ' Y0' 一Lbl 1: K :Ki i ZHUANGHAQK 三 Z 1二Prog i i 1 i ： Goto1 : _L» Goto2一LblK 三 Z ：2 => Prog " 2" : Goto 1:2 :LblK 三 Z ： 3 => Prog ' ' 3 ' ' : Goto 1:>30八工八/i Lbl K 三 Z4二

3、Prog i i 4 i i : Goto 1: * 二 >4 :Uc十 cA,Lbl K 三 Z5二)Prog i i 5 i i : Goto 1:X=>K 三 Z :6 => Prog i i 6 i i : Goto 1ZBFX坐標放線Prog " F ":eh fwjo =j：e±GH SO' =1 _LLbl 1: XY :Prog" F : F, FWJ =JJD S，=1 I.GotolF(子程序)A' X。' :B ' 丫 O' :Pol(X-A, Y-B) : JvO = &g

4、t;J=J+360SQX設計標高計算Lbl 0:Z BPD :G HO :R:I II :P 12 : Lbl 1:T ' ' T '= Abs(I-P)R + 200 ±E' E' =T2 + 2- RD' ' SZY' ' =Z-T _LC ' ' SYZ' ' =Z+T _LLbl 2: F : F' ' ZHVANGHAO ' ' :F Z=>Goto3AF>Z=> Goto5A Lbl 3: K=F-D: Y=K 2- 2

5、-R:F 三 D=>Goto7AI>P = > Goto4 H' ' H' ' =G- (Z-F) I + 100+Y ±Goto 2Lbl 4: HH' ' =G-(Z-F) I + 100-Y _LGoto 2Lbl 5:K=C-F:Y= K ?* 2- R:F 三 C=> Goto8A 1>P =)Goto 6A H H" =G+ (F-Z)P + 100+Y I.Goto 2Lbl 6 H H" =G+(F-Z)P + 100-Y _LGoto 2Lbl 7: H=G- (Z-F

6、) I + 100 _LGoto 2Lbl & H " H" =G+ (F-Z) P + 100 ±Goto 21(QXJS對稱曲線計算曲線計算的子程序)Rec (S-K, F+180) : C " X " =A+I _LD " V” =B+J _LV, U : Rec (V, F+270) : G" XL” =C+I ±Q" YL" =D+J _LRec (U, F+90) : G" XR =C+I _LQ" YR' =D+J _L2(子程序)Z=KZ :

7、1 : X=Z-Z 人 5+ (40R2H2): Y=Z 人 3+(6RH)Z 7+ (336RAA3H 3): Z :8 =tan-1 (Y + 仃-X) : Z :7 =Y+ SinZ ：8:Rec(Z7,F+180-Z 8W):C " X" =A+I _LD " 丫 " =B+J _L0=90Z (ZRH):V, U : Rec (V, F+270+0 W ) : G XL =C+I ±Qu "=D+J _LRec (U, F+90+ OW ) : G XR =C+I _LQ YR， =D+J _L3(子程序)Z=K-Z : 1

8、 : Z : 9 =180 (Z-H + 2) + R 十 n :X=RSin Z : 9 +M:Y=R(1 -CosZ ： 9 )+P: Z ： 8 = t an1 (Y + 仃-X): Z ：7 =Y+ SinZ : 8 : Rec (Z : 7 , F+180- Z :8 W):C X =A+J _L：a y =b+j_LVU : Rec (V, F+270+ Z : 9 W) : G XL =C+I _LQ YL =D+J _LRec (U, F+90+ Z ： 9 W) : G XR' =C+I _LQ YR, =D+J _L4(子程序)Z=Z : 5 -K: Z : 9 =

9、180(Z-H + 2) + R - n :X=RSinZ ： 9 +M:Y=R(1 -CosZ ： 9 )+P: Z ：8 =t an'1 (Y + 仃-X): Z7 =V- (T-X) 2+Y) : Rec(Z:7 , F+180-(180-N-Z:8 )W):C X =A+I ±D Y =B+J ±V, U : Rec (V, F+270+ (N _Z : 9 )W) : G XL =C+I ±Q YL =D+J _LRec(U, F+450+ (N- Z : 9 )W): G" XR, =C+I ±Qu YR =D+J _L5(

10、子程序)Z=Z : 5 7 -K: X=Z-Z A 5 - (40R2H2): Y= Z 人 3 (6RH)Z A 7 - A(336R4 3H 3) : Z 8 =tan-1 (Y 仃一X): Z 7二丫一 SinZ8：Rec(Z ： 7 ,F+180-(180-N- Z ： 8 )W) : C' X =A+I _LD Y =B+J _L0=90Z 2- (n RH： V, U； : Rec(V, F+270+(N-0) W):G XL =C+I _LYL =D+J _LRec (U, F+450+(N-0)W): G XR' =C+I ±Q YRJ =D+J ±6(子程序)Rec (T+K- Z