平面曲线计算程序.doc

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]
K<LGoto 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型计算器
A<0A=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