平面曲线计算程序.docVIP

CASIO4800通用组合型平曲线坐标计算程序 程序代码: “JAKE” V=Z[3] {V}:V”CELECT” Z[3]=V Z[4]=14 Z[1]=Z[V+3] A=0 {A}:A”BL：0，XG：≠0” A=0Goto 0 W=Z[Z[1]+1] {W} Z[Z[1]+1]=W Z[2]=Z[1]+W+3 G=Z[2] K=Z[Z[1]] {K}: K“K0”: Z[Z[1]]=K Q=0 Lbl 1:C=Z[1]+2:Q=Q+1 O=Z[C+Q]:L=Z[G+3]:R=Z[G+4]:F=Z[G+5]:E=Z[G+4]:B=Z[G+6] {O}:O”Z:1,Y:2,H:3，N：4” Z[C+Q]=O A=Z[G]:M=Z[G+1]:N=Z[G+2] {A,M,N} Z[G]=A:Z[G+1]=M:Z[G+2]=N O=1{L}: Z[G+3]=L:G=G+4: O=2{R,F,L}:Z[G+3]=L:Z[G+4]=R:Z[G+5]=F:G=G+6: O=3{E}:E”1/R1”:Z[G+4]=E:{B}:B”1/R2”:Z[G+6]=B:{F,L}:Z[G+3]=L: Z[G+5]=F: G=G+7：J=Z[G+8]：P=Z[G+7]：{E}：E“1/R1”：Z[G+4]=E：{B}：B“1/R2”：Z[G+6]=B：{F，L}：Z[G+5]=F：Z[G+3]=L：{J}：J“L2”：Z[G+8]=J：{P}：P“NY”：Z[G+7]=P：G=G+9 Dsz W Goto 1 V≤10Z[V+4]=G Lbl 0: {S}:S”K”:K=S：Z=1 K= K-Z[Z[1]] Q=0: C=Z[1]+2：W=Z[Z[1]+1]：G=Z[1]+W+3 Lbl 2: Q=Q+1:L=Z[G+3] KLGoto 4 Q=WK=LGoto 4: Goto 0 K=K-L Z[C+Q]=1G=G+4: Z[C+Q]=2G=G+6: Z[C+Q]=3G=G+7: G=G+9 Goto 2 Lbl 4:A=Z[G]:M=Z[G+1]:N=Z[G+2]: Z[C+Q]=1Prog “ZX”: Z[C+Q]=2Prog “YQX”: Z[C+Q]=3Prog “HH” : Prog “N” P=Z[Z[1]+2] {P} Z[Z[1]+2]=P X=X+Pcos（A+90） 《 “X=”: PCos（A+90） 》 红色 适用于casico4850型计算器 Y=Y+Psin（A+90） 《 “Y=”: PSin（A+90） 》 红色 适用于casico4850型计算器 A0A=A+360 P=0A”FWJ” 《 P=0 ”FWJ”:A 》 红色 适用于casico4850型计算器 Goto 0 “ZX” L=Z[G+3] X=M+KcosA:Y=N+KsinA “YQX” L=Z[G+3]:R=Z[G+4]:F=Z[G+5] U=90K/л/R: H=2RsinU:U=A+FU:X=M+HcosU:Y=N+HsinU:U=U+F(90K/л/R): A=U “HH” L=Z[G+3] Z=0L=Z[G+8] F=Z[G+5]:C=F*Z[G+4]:I=F*Z[G+6] P=(I-C)/L I=PK J=A+(I+2C)K*90/л B=A+(I/4+2C)K*45/(2л) D=A+(3I/4+2C)K*135/(2л) U=A+(I/2+2C)K*45/л X=M+K/12*(cosA+4(cosB+cosD)+2cosU+cosJ) Y=N+K/12*(sinA+4(sinB+sinD)+2sinU+sinJ) A=J “N” L=Z[G+8]：C=Z[G+4]：I=Z[G+6]：W=Z[G+7] P=L/Abs（I-C） B=C I〈CK=Z[G+3]-K：B=I K=P（1/W-B-√（（WB-1）^2 - 2WK/P）/W） I 〈CK=L-K Z=0 Prog “HH” X=X+FWcos(A+90) Y=Y+FWsin(A+90) 创建以上程序后 ,按[SHIFT]+[Defm]+250 设置扩展变量个数为250, 按[FUNCTION] + 5 + 1 选择Deg角度模式之后就可正常运行了. 提示字母说明: SELECT -------------------------------------- 选择一条线路（必须从已建立的线路中选择，或者从第一条线路开始建立） BL:0,XG:≠0 ------------------------------ 采用上一次的设置输入0