Sharp PC-1500 Instructions for use

I
/ J I I
I Ithis PDF
!!'!
Do not sa T• I

A ll and more about Sharp PC-1500 at http://www.PC-1500.info
Do not sale this PDF !!!

A ll and more about Sharp PC -1 500 at http://www.PC-1500.info
SHARP POCKET COMPUTER PC- 1500
APPLICATIONS MANUAL
Thank you very much for p urc hasing the Sharp PC- 1500 pocket computer .
This applications manual presents application softwares in various fields. To get · th e
most out of your Sharp PC - 1500 pocket computer, please try to make your O· wn
softwar es that match your needs by referring to th.is manual.
This manual is c dil t ed ac co rding to the followings, so please read them car efully
before use.
• PROGRAM TITLE:
Th is is a summary of t he program contents .
• PROGRAM NO.
PS stand s for PC -1500, while A, B. C, D, E and F show program fiel ds .
The. program num bers are not always in series. There arc numbers skipped .
• Hardware Configuration:
Optional equipments required to e xecute the program are shown right below
the PROGRAM N O. , if any.
CE-I 50; color graph ic printer /cassette int erface
CE-151 ; me mory module
CTR ; casse tt e t ape recorder
• Outline:
Th e brief e xplanation (concept) of the program is shown.
• Operating Guide:
Shows the brief exp lanation of how to use and operate this program according
lo the "Key Ope r at io n Procedure" explained later.
• Exampl e:
For a better unde rsta nding of t.he program exe c ution , an example using t he
program is provided.
• Contents (F or mu las):
To l et you understand the logics em ploye d in the program such as fonnulas
are explained .
• Printout:
Printo ut s through the opt ional c olor graphic pr inter (CE-150) are provided
by using the e xampl e, (The ch ara cter size is 18 c:har,/line.)
Do not sale this PDF !!!

A ll and more abo ut Sharp PC -1 500 at http://www.PC-1500.info
• Kev Operation Procedure:
For your program execut ion, the actual key operation proced ur e is shown
step by step by using the example.
• Program List:
Printouts of eighteen characters per line through the CE-150 are listed in full
size
or redu ct ion.
How to
enter the programs int o the mach in e.
The Program List shown in this applications manual is basically supposed to
be typed in as it is printed.
However,
such as; there are several points you should know in prior to the typing
I) The colon(:) ri g ht a ft er each lin e number must be omitted.
2) [ e"rn A] key mu st be pressed at the e nd of each program line.
3) The numeral one (I ) and the Jetter I look alike on the
pro gr am li st , so you can no t be too careful.
For more details, refer to page 26on of the in st ru ction manu al of the PC-1500.
* Please make sure that you read through the in st ruction manual fi rs t, then
try to
typ e in the programs li ste d in this applications manual.
• Al so ma ke su re that you us e th ese programs after through checks th r ough
such as the ex ample s.
* Sharp Ctlrporation and/o r its subsidiaries ass ume no responsibilities or
obligations to any lo s. ~es or damages th at could arise through the use of
this applica ti ons manual.
• Memory Conten ts :
Memory contents dur in g the program execution are exp lained.
* Constants, such as tax rates, if an y, may vary from country to country or
distri ct to district.
They
ma y al so be subject to cha ng es according to the revisi on s of Jaw s and re·
gulations, or other reaso1 1s. So, plea se be careful wE1en you use these programs
as they are listed here.
'* For continuous improveme nt s and additions, these p ro grams are subject to
change without notices.
" To help us improve 01n programs, we would appreciate any suggestions or
comments in writing.
Do no t sale this PD F !!!

A ll and more about Sharp PC-1500 at http://www.PC-1500.info
SHARP POCKET COMPUTER PC-1500
APPLICAT IONS MANUAL
CONTE N TS
COLOR PRINTOU TS · · - · · · · · · · · · · · · · · · - · - - - · - · · - · - · · · · • · · · · · · · · · · · I
PS-A - I
PS - A- 2
PS - A- 3
PS - A- 4
PS - A-6
PS - A- 7
PS - A- 10
PS - A-11
PS-A -12
PS - B- 1
PS- B- 2
PS - B- 3
PS- B-4
PS - B- 6
PS- B- 7
PS -B- 9
PS -B- 10
PS -B- 12
PS - B- 14
PS- C- 1
PS - C- 5
PS - D- 1
PS - D- 4
PS - D- 5
PS - D-7
PS - D- 8
PS - D- 9
ROOT
OF AN EQUATION · - · · · - · · · · · · · · · · · · · · · · · · · · · · · · 5
MUTUAL CONVERSIONS BETWEEN RECTANGULAR
COORDINATES AND POLAR COORDINATES · · · · · · · · · · · · · 8
FOURIER SERIES · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · I2
LAGRANGE'S INTERPOLATION · · · · · · · · · · · · · · · · · · · · · · · ·
IS
QUADRATIC AND CUBIC EQUATIONS · · · · · · · · · · · · • · · · · 18
FIRST OR IDER DIFFERENTIAL EQUATION · · · · · · · · • · · · · 23
DETERMINA NT · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · 26
INVERSE MATRIX · · · · · · · · · · · · · · · · · · •· · · • · · · • · · · · · · · · 30
MATRIX PROD UC T· · · · • · · · • · · · · · · · · · · · · · · · · · • · · · · · · · · 33
CORRELATION COEFFICIENT, LINEAR REGRESSION
AND PLOT · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · 36
E XPO NE NTIAL REGRESSION AND PLOT · · · · · · · · · · · · · · · 40
MODIFI ED EXPONENTIAL CURVE · · · · · · · · · · · · · · · • · · · · · 43
LOGISTIC CURVE · · · · · · · · · · · · · · .. · · · · · · · • · · · · · · · · · · · · · 47
MODIFIED MOVING AVERAGE · · · · · · · · · · · · · · · · · · · · · · · · 54
TEST OF MEAN VALUE DIFFERENCE
AND V AR EANCE RA TI0 · · · · · · · · ·· · · · · · · · · · · · · · · · · • · · · · 57
ONE-WAY LAYOUT · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · 62
TWO-WAY LAYOUT (WITH NO REPLICATIONS) · · · · · · · · · 65
THREE- WAY LAYOUT (WITH NO REPLICATIONS) · · · · · · · 68
X- R CONT RO L CHART · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · 72
t; +> Y CONVERSION · · · · · · · · · · · · · · · · · · · · · · · · · · • · · · · · · 80
OPEN AND RADIA TE TRAVERSE · · · · · · • · · · · · · · · · · · · · · · 83
CALCULATION FO R LOAN LIMITS AND N UM BER
OF INST
ALL MENTS · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · 86
COMPO UN D ANNUITY RA TE CALCULATION · · · · · · · · · · · · 89
ESTIMATION ADDITION · · · · · · · · · · · · · · · · · · · · · · · •· · · · · · 92
HISTOGRAM · · · · · · · · · · · · · · · · · · · · · • · · · · · · · · · · · · · · · · · · · 96
GRAPH GENERA TI ON I
(BAND
OR CIRCLE GRAPH) · · · · · · · • • · · • · • · • · · · · • • · · · · · 99
GRAPH GENERATION II
(BAR OR BROKEN LINE GRAPH) · · · · · · · · · · · · · · · · · · · · · I03
Do not sale this PDF !!!

P5 - D-l l
PS-D-12
PS - D- 15
PS - D- 16
PS - D- 17
PS - D- 22
PS - D- 23
PS - D- 24
PS -D- 25
PS- D- 26
P5- D- 27
PS - E- 1
PS - E -2
PS- E- 3
PS- E- 4
PS- E- 7
PS -E- 9
PS: -F- 1
PS- F- 2
PS- F- 3
P5 - F- 4
PS - F- 5
PS - F- 6
PS- F- 7
A ll and more abo ut Sharp P C- 1500 at http://www.PC-1500.info
WORK ING HO UR PROPORTIONAL PROCESSING · · · · · · · · 1 06
DEPRECIATION · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · 109
ALLOTM EN T CALCULA TI ON · · · · · · · · · · · · · · · · · · · · · · · · · 11 3
VOLUME AND WEIGHT UNIT CONV ER SI ON · · · · · · · · · · · 11 6
LEN GT H AND AREA U NIT CONVERSION · · · · · · · · · · · · · 120
CALCULATION OF HOUSEHOLD ACCOUNTS · · · · · · · · · · · 124
INVERTORY CON TRO L · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · 134
MA NAGEMENT OF STUDENTS' ACHIEVMEN TS · · · · · · · · · · HI
POCKET COMPUTER SCHEDULE PLANNER · · · · · · · · · · · · I51
PURCHASE LE DG ER GENERATION · · · · · · · · · · · · · · · · · · · 160
BILLING LE DG ER AN D LI ST· · · · · · · · · · · · · · · · · · · · · · · · 1 65
BIORHY TH M · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · 170
BO AT RACE ··· · · ·· ··· · · · · · ·· · · · · · · · · · · · · · · · ·· · · · · · · I74
LABYRINT H ESCAPE · · · · · · · · · · · · · · · · · · · • · · · · · · · · · · · · I78
DOUBLE ROTATION · · · · · · · · · · · · · · · • · · • · · · · · · · · · · · · · 183
MOLE BANGI NG · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · I 86
SPACE EVADER GAM E · · · · · · · · · · • · · · · · · · · · · · · · · · 1 89
TYPING E XER CISES · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · I 92
S TOP WAT CH , T IM ER, AND ALARM C LOCK · · · · · · · · · · · 194
COMPUTER-DESI GN ED FLOWER · · · · · · · · · · · · · · · · · · · · · · 19 8
COM P lf l"E R GRAPHICS · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · 2 00
WORLD CLOCK · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · 202
DOT PATTERN DEVELO PM EN T· ·· · · · · · · · · · ··· · ·· · ·· · · 206
WORD MEMO RY · · · · · · · · · · · · · · · · · · · · · · · · · · · · · • · · · · · · 2IO
Do not sale this PDF !!!

All and more about Sharp PC-1500 at http://www.PC-1500.info
CORRELATION
COEFFICIENT,
LINEAR
REGRESSION AND PLOT
( Refer to pa~e 37.)
EXPONE NTIAL
REGRESSION AND PLOT
(Refer to page 41.1
Do notsale this PDF!!!
COLOR PRINTOUTS
LOGISTIC CURVE
(Refer to P<IJ!C f9 .)
x
- 1 -
X - R CONTROL CHART
( Rei er to palfc 75.l
X CON T RO L CH ART
!<! C ON TR OL CH ART
L CL CL UCL

All and more about Sharp PC-1500 at http:/lwww.PC-1500.info
HI STOGRAM
( Refer to page 97 J
V ARIAN CE=
6.81
STD. DEV.=
2 .60959767
0
2
4
6
B
COLOR PRINTOUTS
GRAPH GENERATION II
(BA R OR BROKEN LIN E GRA PH )
(Reier 10 page I(}!.)
SAL ES CHAR T
"'{) z "'{)
,,, 0 fTI
z -· z
ri n
r
fTI
SALES CHARl
GRAPH GENERATION I ( BAND OR CIRCLE GRAPH)
IRc(cr to oa.11e I 00 .1
0
TO
10 9.09%
I I
TO
20 27.27%
21 TO
30 20 . '15%
31 TO 40 15 . 9!%
41 TO
50 I J • 36%
51 TO 60
9.09%
6 1 TO 70 6.93%
Do not sale this PDF !!! - 2 -

A ll and more abo ut Sharp PC -1 500 at http:// www .PC-1500.info
INVENTORY CONTROL
(Refer to 1Ya~ e 1 35.l
"**
T AB LE
**
1
DE SK
500
2 BE D
100
3 CH A JR
500
PRESEN T ST OCK
2 B ED
1 00
**DA TA LIST**
l 50
2 50
250
200
350
L lS T
200
40
10
** M AST ER T AB LE**
l DE SK
500 25 0
2 BE D
100 200
3 CHA JR
5 00 3 50
**
T ABLE
**
1 D ESK
4 90
250
2 BJ CYCLE
60 200
3 CHA IR
500 35 0
4 T ABL E
150
10 0
P RESENT STO CK
LIS T
2 BJCY CLE
60
20 0
Do not sale this PDF !!!
COLOR PRINTOUTS
MANAGEMENT OF
STUDENTS' ACHIEVEMENTS
- 3 -
(Refer to pa11e 1 43.)
AVG. OF AL L= 5?
UA R!ANC E 8
HIST OGRAM
0
6
I l
15
2 .I
25 -b I
3 J -
36 :p J
4 l
4 ti
51
I-
56
l-
5 l -
t--
66
l
J
? I
7 6
-1- ---'l 3
81
85 +-
91 - 1-
96 +-
..J__
I
J
I

A ll and more about Sharp PC-1500 at http://www.PC-1500.info
BIORHYTHM
(Refer to paJle lil.I
DA TE 1981, ?
NAME SHARP
BJRTH 1952, J, 28
PHYSJ C AL
E MO T JON AL
lNTELLEC TUAL
(-) (+)
!0
JS
20
25
31
Do not sale this PDF !!!
COLOR PRINTOUTS
COMPUTER-D
ES IGNED FLOWER
(Refer LO paJle 198 .)
COMPUTER GRAPHICS
(Refer to page 200.1
DOT PATTERN DEVELOPMENT
(R efer to page 207.)
- 4 -

A ll and more abo ut Sharp PC -1 500 at http://www.PC-1500.info
PROGRAM
TITLE
SHARP
ROOT OF AN EQUATION
[ Outline I (Mathematics)
PROGRAM NO.
PS - A- I
Finding the root of an equation is generally a time consuming task. Herc is a
method
of root approximation using Newton's Method .
When a root is found, the starting point automatic.ally varies with the designated
interval according
to Newton 's Method. A quadratic equation has been chosen as
an example:
[ Operating Guide I
Input: Starting point
Minute value
Interval
y
I
~ '1Gf"' X >; :x;
: -. : Interval
Starting Point
© @ © ® ® - Section N o.
Ou tput : Root value (Press the IENTER I key to find a root for the next interval.)
[E xample I
x3 -2x2 -x + 2 = O {Root = - 1, 1, 2)
Calculation is made with th e starting point being 0, the minute va lue being Io- •
and the interval being 0.5.
Write a function
as a subrou tine after line 500 .
How to write a subroutine (in the above example):
I. Set the "PRO" mode by pressing the ~ ke y.
2. SOOD = ((x -2) * x - I) *x +2 l ENTER I
510 RETURN IEN TER f
[Contents I (Formula)
, f ( Xn )
X. ,1= Xn - j' ( Xn )
When the absolute value of th e difference between Xn and Xn+I becomes less
than 10-8, Xn is displayed as a root . The differential r(x) is defined as follows:
f, (x) = f (x + h) - f (x )
h (h: minute value)
To vary 10- s, change IE - 8 of the 340 line.
Do not sale this PDF !!! - 5 -
1

A ll and more about Sharp PC-1500 at http://www.PC-1500.info
PROGRAM
ROOT OF EQ UATION
PROG RAM NO. 2
T I T L E AN PS - A- I
[ Key Operation Procedure I
Ste p No
Input Display Remarks
1 I
DE• !
CD
ST ARTI NG POIN T =-
2 0 (ENTER I MlNUTE --
3 0 .0 001
( ENTER I INTE RVAL =
4
0.5
lEN TEA I
ANS . - 2
Repeal @
e• I to
f1.11d
5 IE
KTER , ANS
.=
I nexl root.
6 ( ENTEA I
ANS .= - 1
( ENT• • I
ANS .= I
IENTER I A
NS . = - 1
!< NT ER j
ANS .= - I
I EN T• • I AN
S. = - 1
( ENTER I
ANS. -2
' '
' '
' '
Do not sale this PDF !!!
- 6 -

A ll and more about Sharp PC -1 500 at http://www.PC-1500.info
PROGRAM ROOT OF
AN EQUATION
PROGRAM NO.
3
TI T LE
PS - A- I
I Prog ra m Li st I [
Memory Contents I
10 : "A ": INPUT "S TA
Minute Value
RTING
POI NT= "; A (input value) = h
v
2 0: INPUT
'"Ml NU TE= B f(x)
";A
c
Xo
30: INPU T '"IN fE RU A
L .:: '' ;W
D f (x +h )
40:G=U: F= U: Z=0 E
50: IF Z=0GOTO 70
.J
60: G= G-W:C=G:GO IO F
80 G
.J
70 :C=G:Z=l
H
80:GOSUB 300
90: F=F+ W: C=F I
1 00: G OS UB
300
J
I l0: GOTO 50
J20:ENO K
300 :X=C: GOSUB 5 00
L
3J0:Y=B:X=A+C M
320:60SUB 500
330:0 =C:C=O-A*Y/ (8
N
-Y)
0
340: l F ABS (0-C>> =
JE-
SGOTO 30 0 p
3 50: BEEP 3:PR INT " 0
A NS. :o "; C R
360:RETt.JRN
500: B= ( (X- 2) *X-· I ) * s
X+2 T
5 J 0:RETURN
v
v StartingPoint
(input value)
STATUS
J w Inte
rval (input
300
v al ue)
x x
y f (x)
z Init ial Flag
Do not sale this PDF !!!
- 7 -

A ll and more about Sharp PC-1500 at http://www.PC-1500.info
SHARP
PROGRAM
TITLE
MUTUAL CONVERS IO NS BETWEEN RECTANGUL AR
COORDINATES AND POLAR COORDINATES
PROGRAM NO .
PS - A -2
[ Outline ]
ln th.is program, mutual conversions in two
or three dimensio ns will be done.
The dimensi on in inputs and outputs is in accordance with the preset.
[ 0 peration G.uide]
This program i nc ludes four functions as shown belo w;
{
Rectangular to Polar
o two dimensions Pollllr to Rectangular
{
Rectangul ar to Polar
o three dimensions Polar to Rectangular
[
Examp le ]
1. Two dimensions 2. Three dimensions
I
a) Rectangular ...,. Polara) Rectangular
X= - 1
Y =./3
-> Po lar ·
n- 2 X =- I 11 = 3. 74 16 57387
(! = 120 ·
b) Polar -+ Rectangular
R=2 X= - 1
"" 0 ~ 1 20· y =I. 732
[Contents I (Formulas)
I .Two dimensions
a) Rectangular -> Polar
When x =y =0, th en r= 0
therefore 8 c an't be defined.
Y= 2 «> 0 = - 53.30077479•
Z=- 3 \" =116.56505 12
b) Polar ...,. Rectangular
R= 3. 7416 5 73 87
0 = - 53.30077479" ""
\"= 116.5650512·
II
X= - 1
Y= 2
Z=- 3
y V/ · ·· · ··· · .P (x . y)
I
r =./ x' + y' ,. ,
When y >0 . then O = Cos -< ( xI r ) 0 :
When y <O, the n o = - Cos _, (x / r ) -
0
--1.<: ~~- -1.x _ __ _ _, x
b) Polar ...,. Rectangular
J x = r Cos 0
l y = rSinO
Do not sale this PDF !!!
- 8 -
1

A ll and more abo ut Sharp PC -1 500 at http://www.PC-1500.info
PROGRAM
MU!UAL CONVERSIONS BETWEEN RE CTANGULAR PROGRAM NO . 2
Tl TL E COORDINATES ANO POLAR
COOR DINATES:
PS - A-2
2. Three dimensions
a) Rectangular -> Polar
r =J x i + y 1+ z '
Whe n x = y =z = 0, then r = 0 z
0 = Si ,, -•(z/ r )
the re fore 9 and <P ca n't be
z
defined. ..
~· ""'
~( x, y,z)
Wh e nx>O , then <P= Tan-1 (y / x)
0 y • y
:;'.U P
Whenx = 0 and y> 0, then <P = 90°. '
~ ·
rp P , - fj
Whe11 x =0 and y<O , then <P = -90° x x
Whenx<O and y> 0, then \0 =Tan-1 (y / x) + I. 80°
Whe n x<O and y<O, then \O=Ta n- 1 (y/x) -180°
b) Polar -> Rectangul ar
Ix = r Cos 0 · Cos 'I'
y =r Cos O · Sin 'I'
z =r S in 0
! oE •I
CD
; two dimensiona l R ec . to Polar
I DE F I m ; two dimensional Polar
to Rec.
l o• •I
CD
; three dimensional Rec. to Polar
(!i EF j m ; three dimensional Polar to Rec.
[ Key Operation Procedure ] • First, set to
th e degree mode.
js tep N o.
Input Disp lay Remarks
1 l•••I
CTI
X=_
2 I IENTER I Y-
3
{~
I ••r•• I R=2
4 It ENTEA I THETA -
120
1 l•••I m R = _
2 2 IENTER I
THE TA-
3
120
I ••
1• • I X= -
1. 000
4 I
~·
1
• • I Y=
1. 732
1 ,
... , 0 X=-
2 1 I
••TER I Y=-
3 2 I
£NTE ~
Z= _
Do not sale this PDF !!!
- 9 -

A ll and more abo ut Sharp P C- 1500 at http://www.PC-1500.info
PROGRAM MUTUAL CONVERSIONS E!ETWEEN RECTANGU LA R PROGRAM NO.
3
T I TLE
CO ORD IN ATES AND POLAR COORDINATES
PS - A- 2
Stop No Input Display Remarks
4 - 3 IENTER I R = 3.741657387
5 IENTER I THET
A= -53.30077479
6 I
ENTER I P
HI -116.5650512
1 f
oEF j 0
R=-
2 3.741657387 IENTER I
THE TA =-
3 -53.30077479 I
ENTER I PHI=
4 116.5650512 I
ENTER I
X=
1.00000000I
5 I ENT.,. I
Y=2
6 I ENTER I z- 3
Do not sale this PDF !!!
- 10 -

A ll and more about Sharp PC-1500 at http://www.PC-1500.info
P1 ROGRAM M UTUAL CO NV ERSIONS BET W EE N RECTANGULAR
PROGRAM NO.
4
Tl TL E
COORO I NATES ANO P OLAR COO RDINATES
PS - A- 2
[ Program Li st ] I Memory Contents ]
10:" A ": GO SU B 5 00
230 :W AIT : US ING :
.J
20:R =J<X :J X +Y :J Y)
PRINT ''
X='' ;X
A
30: IF R=0WAI T : 232: PRINT ' 'Y ='' ; Y B
US ING :PRINT " 234: PRINT ''2:: "; 2
R=0 AN GLE UNOE 24
0: ENO
c 0
F IN EO" : ENO 5 00: INPUT ' 'X =" ;XJ " 0
40: GOSU B 700 Y= '' ; V
S0: C=ACS
<X ...- R> :J A Sl 0: USI NG :RE TU RN
E
60: t.I AI T :
USI NG : 6
00 : INPU T ''
R.; ''; R1 "
PRINT
"R=• i R T
HET A= ";C
F
"'
62: P RINT "THETA :" 605: RETU RN
G
;c 61 0:USING : X= R"f COS
64:E NO C: Y= R :J COS C: H
70: "9": GO SUB 600 R ETURN
I
7S: X= R:J COS C: Y=Rl 7
00 : A=< Y= 0>+SGN Y:
SIN c
RET U RN
J
80:USING : PRINT
"
X=";USING "
tttttf
K
11 11 111111 .11 1111 "; x L
8 3:USI NG :P RJ NT "
'!' =";US ING "ll ttll S TA TUS 1 M
1111111111 .11 1111" ; y 655 N
BS: E NO
90: "C":GO SUB 5 00
0
100: INP UT
''Z=
11
; 2 p
J J0 :R=f< X'f:X+ Y -.Y +Z l
Zl
Q
I2 0: IF R=0
GOTO 30
130:C=ASN (2 ...- R>
R r
14 0: IF X) 0L ET F= s
A TN
<Y ...- x>: G OT O
180 T
150:GOSUB 7 00
u
1 60 : IF X= 0L ET F
eA :r
ACS 0: G OTO
180 v
170:F=ATN <Y...- l< >+Al
A
CS -I
w
1 7S:WA JT x x
180:USI NG :PRINT "
R="; R y y
182:PRI NT "
THETA =" z
; C z
184:PR JNT
' 'PHI =1' ; F
190: ENO
200: "0":GOSUB 60 0
20S: GO SUB 61 0
210:
INPUT '" PHl !: '';F
220: X=X :J COS F: Y: Yt
SIN F: Z=
R:t SJN
c
Do notsale th is PDF!!! -
II -

All and more about Sharp PC - 150 0 at http:/lwww.PC-1500.info
SHARP
PROGRAM
T I T L E
[ Outline I
FOURIER SERIES PROGRAM
NO .
P5- A- 3
CE- I SO rcqu ired
This program does Fourier expansion of a periodic function f(t) with
f(t+211") = f (t).
[ Operating Guide ]
Input: I). No. of divisions input
With the display of "N = ", key-in the No. of divisions within the period.
2) . Function value
input
The input range is [0, 211" I and with the display of "Y (i) = ", key-in the
function value
r(2~i)
Output: Fourier coefficie111 outp ut
The outputs of Fourier coefficient, ui (up Io N/2) and bi (up to N/2- 1)
of function f (t) are possible.
Note that the No.
of divisions N for input I) mus! be even number and 176
maxin1 urt1 .
[ Example I
Function values for n = I to 10 whc!1 one period [0 , 2 11") of a composite
wave
forms f (t) =Co s 2t + 3 Sin t + 7 Sin 31.
f(l) = 8.729771
f (2) = -2.0 70344
f (3) = - 2.070341
f (4) = 8.729764
f (5) = I
f(6) = - 8.11173
f
(7) = 0.45231
f (8) = 0.45231
f(9) = - 8.111737
f (I 0) = I
The Fourier expansion is thus performed.
[
Contents] (Formulas)
/ ( t)- a2 "+ ';'. ( o;COS;t + b;SIN;t l
' I
? ~ 2tr
a; = ~.~ "Y
0C
os < _,x n; )
·" n • I •"
2 ' 21!
b = - ::< ·y ·Sin (~ Xn · )
I ~ 3 - l n :-.: }
Do not sale this PDF !!! - 12 -
1

A ll and more about Sharp PC-1500 at http://www.PC-1500.info
PROG RA M FOURI
ER SERIES PROG
RA M NO.
2
T I
TL E PS - A- 3
I Pr intout I
A( 0)=
0.0000003
A< l>=
-0.0000 0 01 85
A<2 >=
9.999995!94E- 01
A<3>=
•L 9034E -0 7
A<4 >=
l. 7992E- 07
A<Sl= - 0
.0 0000 06
B
<I l=
3. 0 000 0 0328
B<2>=
2. 31 0 92533 6E -0 6
B<3>=
6.999998884
B<'l >=
2. 2J925 5066E- 06
[ K ey Oper ation Pro ce dur e )
~ to p No.
I nput Display Remarks
No. of divisions within
1 ,
... 1m N
=-
a period
·•
- · ~ - --
2 10
( E N T ~
Y (J) - ?
3 8.729771 I
ENTER I y (2) = 1
4 - 2.070344 I
ENTE RI y (3) =?
5 -
2. 070341 I •W T EA I y (
4) = ?
6 8.729764 IENTER I y (5 )-?
7 I I
EHTEA j y (6) -?
8 -8.11173 IENTER I y (7) = 1
9 0.45231 j
ENTEA I y (8) =
"!
10
0.45231 j
EN T EA I y
(9) = ?
11 - 8 .1 I1737 IENTER I
Y( I O) = ?
12 I IENTER I > Printout
Do not sale this PDF !!!
- 13 -

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 [ MemoryContents 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 b0 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
310: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 -