Sharp PC-1500 - Page 52

A ll and more abo ut Sharp PC -1 500 at http://www.PC-1500.info
PROGRAM
PROGRAM NO.
4
T I T L E
MODIFIED
EXPONENTIAL
CURVE
P5 - B- 3
Step No. Input
Di sp lay Remarks
Display
aft er data output
19
y
I ENTER I
X=-
to cassette tap<i
N I ENTER I
X- -
20 IS
I ENT ER I
X =-
x input
21 16
1 ••TER I X= -
x input
22
I ENTER I
>
End
[ P rogram Li st ) I Me mory Co ntent• I
J0: .. A .. :CLEAR : 210: N £XT
I SJ0:Y<C - J ) = Y<C - J >•
A a
t.:AJ r 0 220: B= O•F - E* E
L
20!IN PUT "D ATO CL 230 : A= <F*G - E *Hl/B 520: N£XT X:N EXT C: a
b
O AO?< Y
1
N) "j AS
240:B = <D*H - E*G) / 8 GOTO 540
c k
30: ! F
<AS::J"Y '' )-+((,} 250:A =E XP A:B =EXP
530: INP UT U"ME C- OA
S="N'" ><> ! GOTO
B
Tt:I'' ; N, Y(l'.)
D
20
260:BE£P 3:LPRINT
5 40: CL S :· C='1: B=« Y
n
40: IF AS= "Y .. GO TO
"o, .:;: " ; A
<2 >- Y<J>>,,<Y< 1
E
'£x i
15 0
270 : L PR I NT "b='
1
;B
> -Y <0>>>"< I/( )
50: JNPUT "N="; 0 ,"
280 : B£E P S:INP Ul
,,
55 0: O=B~ C -1: A=< V<0
F 1:xi
2
K:: ";C DATA CSAUE?( Y, >- Y< I> >•<B-1 )/
SS :OIM X<O- J>, V<O
f'I) • •;A S
<0*0' G
:£
y
-
I >
290: II' {AS:: '' Y " > .. <A 560: C=( VC0> .. 0"f A/(B
60 " FOR
1=0 TO 0-1
S='"N'">OJGOT O
- 1 > >,....C H "i:. x i-v
70 1: CL S : t:l t:•''X < .... 280 57 0:8 EEP 3: LP R IN T
STRS
( [• ] ) .... ) ~
300: I F
<'> • ="N " G OTO
" o. .:: "; A
I
" /00
380:LPRINT •ib= '';S
80: PRI HT AS;
3!0:PR JNT
tl "M EC- OA
590:L P RJNT " k=" ; c
J
90 : IN PU l
X( I>:
TA<K>";O , C
600:8E£P 5: INPUT
"
GOT O I l 0
320:PR JNT U" MEC-OA
DAT<'> CSAV~?<Y,
K
J00:CLS :O= J-J :
TA<K> ";X<* >• Y<
N) ' '; il.$
L y i
SO TO 18 0
*>
6J0 : JF <i:tS=.,Y'" ) +CA
ll0 : CLS
: QS:: '' Y( " -+
330:GOTO 700
&=' ' Ntt ><>I GOTO
M
STRs <l • l> · •" ' ) !:
400:"'6" : CLE '°' R :
600
•
620: IF AS= .. N"GOTO
L.IAJT
0:CLS :
N n
120:PR I NT AS;
D I M YC7.>
700
1 30: IN PUT Y( J )
4J0 : I NPUT .. D ... TA CL
630: PRI NT W"MEC-OA
0
14 .0 : NE XT I: GOTO 18
OAO ?CY,N >"i RS
TA' '; N, Y<•>
0
120: !F <.AS = "Y" ) + CA
700:LF J:LPRJ NT
.. *
p
150: IN PUJ
U
.. MEC-OA
$ = "N" ><>JGOTO
£S H MATE -.• :
0
TACK)' t ;O, C
4 J 0
C LS
160•DIM ~<D-ll, V (D
430: IF
A$ .:: " Y'' THEN 7J0:8EEP J:ll'IPUl
"
R
- f)
530 X= '';x: GOT O ' 30
170: IN PUT U"MEC-OA
440: INPU T UN=" ;N 720 :E N0
s
TACK)";X<*>,Y<
4S 0:N=IN T (N /3)
73 0: LP RIN T
"X=' ';X
*'
460: FOR C= JTO 3 740: LP RIN T
' 'Y ; " ; C-
T
J88 : CLS :FOR 1=0TO
470:FOR X= N*< C- 1> A*B"X
0- 1
TO Nl!C-J /50: GOTO
710
u
185:Y=LN <C -Y <J> l
480: CLS
: AS.::"VC ""
198 : E=£+ X(f ): F=F•x
ST Rt
CX•l> +'' >=
v
<l>*X(f)
"
w
288:G=G+Y:H=H•X<J>
tY
490:PRJNT AS;
50 0: INPUT
L
STATUS
I
x x
1264
y
y
z
F$
xi
GS
y i
A$
.J
Do n ot sale this PD F !!!
- 46 -