Sharp PC-1500 Anwenderhandbuch Seite 20

[ Programmlisting |
19: "A":CLEAR :
WAIT @
2@:CLS : INPUT "N=
"seh
?
3B: 1F N"2<>INT (N
"2d THEN 20
4@:DIM YCN-1)
594:FOR I=@TQ N-1
GB: AS="VYC"+STRS ¢
T+1t2+" ="
7@:PRINT AS;
88: INPUT YC1I):CLS
9Q:NEAT I]
95; RADIAN
199: A=@
1190:FOR J=@8TO N-1
128; A=AtYCJDINERT
J
138:A=AZN:LPRINT "
ACBI=",A
14@:FOR J=1TO N'2
158: P=2kNXIZN: A=0
16@:FOR J=1TO N
178: A=A+Y¢CJ-1)*COS
CP XJ)
18@:NEAT J.
198: A=AK2"N |.
2OB2AS="ACTFSTRE J
ay ="
218:LPRINT A$,A
220:NEXT I
23@0:FOR I=1TO N72-
I
240: P=2kKITKI/"N: B=
25@:FOR J=1TO N
268: B=B+Y¢(J-1)*SIN
CPJ)
270:NEXT J
280: B=BXK27N
298: BS$="BC"+STRS ]
+! =
30@:LPRINT B$,B
318:NEXT I
370: END
STATUS |
> a
PROGRAMMN-NR.. Ey
hha acon E e
{ Speicherinhalt ]
| Fourier-Koeffizient
(a bis anj2) :
Fourier-Koeffizient
Alej—-jxuzlajn
Kingabe-Meldung
il ]
2n1/N
E
Ni </|x/B/<ic
' | Ausgabe-Meldung
Anzahl der Divisionen
Eingabedaten ~
(Funktionswert) .
AIG
2 |