Sharp PC-1500 - Page 20

A ll and more about Sharp PC-1500 at http:/lwww.PC-1500.info
PROGRAM
FOURIER SERI ES
PROGR AM NO.
3
T I T L E
P5 - A- 3
( Program Li st I
[ Memory Contents I
J0: "A" : CLEAR
:
wAI T 0
A
Fourier coefficient
20:CLS : l NPUT
''N=
(ao to a "',)
"; N
Fouri er co ef ficient
30: IF
N
/2<> 1NT <N
B
( b1 to b
0
1, - i)
/2 )TH EN 20
4
0:0 JM Y< N- 1)
c
50:FQR 1=0TO N -l
D
60: A$ =" Y< " ... STR $
(
l+l )+" >="
E
/0:PRJNT At;
F
80:J N PUT
YCJ) : CLS
9 0:N EXT l
G
95 :R AOIAN
H
!00:A=0
I
.,/
IJ0:FQR J=0TO N-l
.,/
120:A=A+Y(J):NEXT J
J
K
! 30 :A =A/N !LPRJNT
"
A<0> =' ', A
L
J.40:FOR
J=J TO N/2
M
J.50:P =2 1R IJ/N:A=0
N
No. of di vi s ions
160:FOR J = JT O N
i /0:A=A+YC J- l>* COS 0
<PIJ >
p
21'1/N
180:N E XT J
! 90: A=A l2 / N
a
200 :AS="A<"•STR$ I
R
... ") !: II
s
2J0 : LPRJ NT
A$,Q
220:NEXT
I
T
230 :F QR
J=ITO N/2-
u
I
240:P=21RIJ/N !8=0
v
250:FOR J =I TO N
w
260:8 =8+ Y<J - ! )I SIN
x
<P *J >
2/0 : NE XT J
y
280:8 =8 *2/N
z
2 90:8S =''BC"•ST R$
l
. ")
AS
In put m~sage
3 00:L PRI NT
BS, B
BS
Out pu t me ssage
3 10:NEXT l
In put da ta
32 0: END Y( N]
(F unct i on va lue)
STATUS
J
443
Do not sale this PDF !!!
- 11 -