Sharp PC-1500 Applications Manual page 20

All and more about Sharp PC-1500 at http:/lwww.PC-1500.info
PROGRAM
FOURIER SERIES
PROGRAM NO.
3
T I T L E
P5- A- 3
( Program
List
I
[ Memory Contents
I
J0: "A" : CLEAR
:
wAI T
0
A
Fourier coefficient
20:CLS : l NPUT
'' N=
(ao to a"',)
"; N
Fourier coefficient
30:
IF N/2<> 1NT <N
B
(b1 to b
0
1,- i)
/2 )THEN 20
40: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 NPUT YCJ) : CLS
90:NEXT
l
G
95 :RAOIAN
H
!00:A=0
I
.,/
IJ0:FQR J=0TO N-l
.,/
120:A=A+Y(J):NEXT
J
J
K
! 30 :A=A/N !LPR JNT
"
A<0> ='', A
L
J.40:FOR
J= J TO N/2
M
J.50:P =21RIJ/N:A=0
N
No. of divisions
160:FOR J = JTO N
i /0:A=A+YC J - l>*COS
0
<PIJ >
p
21'1/N
180:NEXT J
! 90 : A=Al2/ N
a
200 :AS="A<"•STR$
I
R
... ") !: II
s
2J0 :
LPRJ NT A$,Q
220:NEXT
I
T
230 :FQR
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"•STR$ l
.
")
AS
Input m~sage
300:LPRI NT
BS, B
BS
O ut put message
3 10:NEXT
l
Input data
320: END
Y(N ]
(Function value)
STATUS
J
443
Do not sale this PDF !!!
- 11 -