扩展变量操作.docVIP

扩展变量操作（15个）：Defm 15←┚ , O字母0数字←┚ J-SQX（竖曲线数据输入 J-PQX 平面数据输入，自行切换到J-JSMS Z[4]“T2” R+KK÷24R-K∧4÷2688RRR tan Abs O ÷2 +K÷2-KKK÷240RR+X◢ L Abs OπR÷180+ E+K ÷2◢ J tan-1 R+Z[1] ÷ Z[3]-Z[2] :X“E” R+Z[1] ÷sin J-R◢ X A-Z[3]:Y X+E:E 1 X“ZY”◢ ≠ X“ZH”◢ Y“HY”◢ ⊿Y“QZ” X+ L-K-E ÷2+E◢ Y X+L-K:X X+L:K 1 X“YZ”◢ ≠ Y“YH”◢ X“HZ”◢ ⊿Prog“J-JSMS” ←┚ J-JSMS（放样模式主程序 :≠ Goto 3⊿⊿←┚ Lb1 1 : PDW :PD“BZ”W“BJ”: Prog“JP”:X“X ”◢ Y“Y ”?◢ Z 2 Goto 1:≠ Prog“JS”:Prog“JC”:H“Z” H+G◢ Goto 1⊿←┚ Lb1 2 : XYW :XYW“BJ”: Prog“JF”: P“P ”◢ D“BZ ”◢ Z 4 Goto 2:≠ Q :Q“ZP”:Prog“JS”:Prog“JC”:Prog“JB”:Goto 2⊿←┚ Lb1 3 : P :P: Prog“JS”:H“Z0 ”◢ Z 6 Goto 3:≠ D :S“CGZ”:T“JKZ”:Z[8] Q“LH”:D“BZ”:Prog“JC”:J“JK ”◢ G“Z” H+G◢ Goto 0⊿ JS（竖曲线计算子程序 N Z[9]:U Z[11]:V Z[12]:H Z[13]:G H Abs U-V ÷200:P N I U:M N-G:M P M P⊿≠ I V: M N+G:M P M P⊿⊿J P-M 2÷2H:U-V 0 J -J⊿H Z[10]+ P-N ×I÷100+J JP（平曲线正算子程序 Lb1 1 :J F:X B-Z[3]cos F :Y C-Z[3]sin F :G E←┚ P≤A-Z[3] I A-Z[3]-P:M -I:N 0:H F+W:Goto 5←┚ ≠ P≤A-Z[3]+E I P-A+Z[3]:H 90II÷REπ:O 0 H -H⊿H H+W+F:Goto 3←┚ ≠ P≤A-Z[3]+L-K I P-A+Z[3]-E:Goto 4: ≠ Goto 2⊿⊿←┚ Lb1 2 :X B+Z[4]cos F+O :Y C+Z[4]sin F+O :J F+O+180:G K←┚ P≤A-Z[3]+L I A-Z[3]+L-P:H 90II÷RKπ:O 0 H -H⊿H H+J+W+180:Goto 3 ←┚ ≠ I P-A+Z[3]-L:M -I:N 0:H J+W+180:Goto 5 ←┚ Lb1 3 :M I-I∧5÷40RRGG:N III÷6GR-I∧7÷336RRRGGG:Goto 5 ←┚ Lb1 4 :H E+2I ×90÷πR:M R sin H+Z[2]:N R 1-cos H +Z[1]:O 0 H -H⊿H J+H+W: Goto 5 ?←┚ Lb1 5 :P≤A-Z[3]+L-K O 0 N -N⊿≠ O 0 N -N⊿⊿Goto 6←┚ Lb1 6 :X X+M cos J-N sin J+D cos H:Y Y+M sin J+N cos J+D sin H JF（平曲线反算子程序 U X:V Y:D 0:J F-W:P A+ Y-C cos J- X-B sin J←┚ Lb1 1:Prog“JP”:J H-180:I V-Y cos J- U-X sin J:Abs I 1E-4 Goto 2:≠ P P+I:Goto 1⊿←┚ Lb2: D V-Y ÷sinH JC（超高加宽计算子程序 I E:M A-Z[3]:E 1 I Z[8]:M M-I⊿G K:N A-Z[3]+L:K 1 G Z[8]:N N+G⊿←┚ P≤0.5 N+M U P-M ÷I:≠ U N-P ÷G⊿U 0 U 0⊿U 1 U 1⊿ 加宽方式：1、J UT??高次抛物线加宽J T 1-3UU+2UUU 2、J T 4U3-3U4 ?: DO 0 J 0⊿ I 1:Prog“JD”:I US:G I+UN-N:U Abs D-V:U 0 U O⊿U M+J+Z[5] U M+J+Z[5]⊿ Z[7] 1 Goto 1:≠ Goto 2⊿←┚ Lb1 1:I 0 I -N:≠ I G:DO 0 I -I: