擴(kuò)展變量操作

1、擴(kuò)展變量操作（15個(gè)）：Defm15←┚O字母0數(shù)字←┚JSQXJSQX（豎曲線數(shù)據(jù)輸入（豎曲線數(shù)據(jù)輸入“JSQX”:NHUVMQP:Z[9]=N“SJD”:Z[10]=H“JDZ”:Z[11]=U“I1”:Z[12]=V“I2”:Z[13]=M“R”:Z[14]=Q“QD”:Z[15]=P“ZD”:“TOJJSMS”JPQXJPQX(平面數(shù)據(jù)輸入，自行切換到平面數(shù)據(jù)輸入，自行切換到JJSMSJJSMSA“JD”B“JDX”C“JDY”

2、F“FJ”O(jiān)“ZJ：Z，Y”R：E“LS1”K“LS2”：EE=1E9⊿KK=1E9⊿Z[1]=EE24RE∧42688RRR:Z[2]=E2EEE240RR:X=(EEKK)24RsinAbsO:Z[3]“T1”=(RZ[1])tan(AbsO2)Z[2]X◢Z[4]“T2”=(RKK24RK∧42688RRR)tan(AbsO2)K2KKK240RRX◢L=AbsOπR180(EK)2◢J=tan1((RZ[1])(Z[3]Z[2]

3、):X“E”=(RZ[1])sinJR◢X=AZ[3]:Y=XE:EX“ZY”◢≠=X“ZH”◢Y“HY”◢⊿Y“QZ”=X(LKE)2E◢Y=XLK:X=XL:KX“YZ”◢JSJS（豎曲線計(jì)算子程序（豎曲線計(jì)算子程序PProg“JSQX”⊿PZ[15]=Prog“SJSQX”⊿←┚N=Z[9]:U=Z[11]:V=Z[12]:H=Z[13]:G=HAbs(UV)200:PI=U:M=NG:MP=M=P⊿≠=I=V:M=NG:MM=P

4、⊿⊿J=(PM)22H:UV0=J=J⊿H=Z[10](PN)I100JJPJP（平曲線正算子程序（平曲線正算子程序Fixm←┚Lb11:J=F:X=BZ[3]cosF:Y=CZ[3]sinF:G=E←┚P≤AZ[3]=I=AZ[3]P:M=I:N=0:H=FW:Goto5←┚≠=P≤AZ[3]E=I=PAZ[3]:H=90IIREπ:OH=H⊿H=HWF:Goto3←┚≠=P≤AZ[3]LK=I=PAZ[3]E:Goto4:≠=Got

5、o2⊿⊿←┚Lb12:X=BZ[4]cos(FO:Y=CZ[4]sin(FO:J=FO180:G=K←┚P≤AZ[3]L=I=AZ[3]LP:H=90IIRKπ:O0=H=H⊿H=HJW180:Goto3←┚≠=I=PAZ[3]L:M=I:N=0:H=JW180:Goto5←┚Lb13:M=II∧540RRGG:N=III6GRI∧7336RRRGGG:Goto5←┚Lb14:H=(E2I)90πR:M=RsinHZ[2]:N=R(1c