Sharp PC-1500 Applications Manual page 58
Hide thumbs
Also See for PC-1500:
- Technical reference manual (182 pages) ,
- Instruction manual (169 pages) ,
- Service manual (37 pages)
Advertisement
All
and more about Sharp PC-1500
at
http://www.PC-1500.info
PROGRAM
TITLE
LOGISTIC
CURVE
[
Program List ]
l0!"A
..
:
CLEAR :
WAIT
0
20:JNPUT
"DATA
CL
OAO?<Y,
N>"
;AS
30:(F
CAS•
"Y">•<A
S•"N"
><>I
GOTO
20
40:
IF AS="Y"GOTO
130
50:
INPUT
" N:";
O, "
K="i C
60:0IM
X<0-1>,Y<O
-
))
70:FOR
1•0TO
0-J
80:
AS="X<
"+S1
RS
(
1+
1
)+II):"
:
PR
INT
AS;
90
:
INPUT XC I>
100:CLS :
A$•"
YC"•
STRS
Cl•J>•">
=
":
PRI NT
A$i
110:1NPUT
YC
I
>
120:CLS :NEXT
I
122: INPUT
"
DATA
CS
AVE?<Y,
N)";
AS
121
:
JF
CAS="
Y")
•(A
S="N"
)
()JGO
TO
122
I
26:
IF AS="N"
GOTO
150
12/:PR
JN
T
11
0,
C
128:PRINT llXC*
),Y(
*>
:GOTO
150
130:
I
NPUT
110,
C
140:DIM
XC0-
1
>, Y<O
-I):
INPUT
~X
<
*
>'
YC
*
)
1
50:X
1•
10~8:X2•
-
XI
160:FOR
1=0TO
0-1
170:JF
XCJ)<
XI
LET
Xl =XCI
>
180!
IF X<l>
>X2LET
X2=X
<I>
2J0!Y•LN
CC/Y(J)-1
>:
E=E+XC
I>
:F=F
+X<l>*X<J
>
220:G
=G+Y:H•H•X<I>
*
Y:
NEX
T
I
230:8=0*F-E*E:A=<F
*6-E'l:H)/B:B=<O
*H-E'l:Gl/B
240!A =EXP
A:B=-
B:
LPR
I
NT
"A=";
B:
LPRJNT
"M•";A
250: END
Do
not
sale this PDF !!!
260: "B":
CLEAR
:
WAI
T
0:lJSJl'IG
270:
I
NPUT
"
DATA
CL
OAO?CY,N>"
;AS
280:
IF
<AS•"Y"> +<A
S•
"N"'H>IGOTO
270
290:1F
A
S~"Y
"
GOTO
420
300:
INPUT
"N•";O:A
zJNT
(Q/3)
3J0:01M X<A1'3-IJ,Y
CA1'3-l),BC2l
320
:
FOR
C•
ITO
3
330:FOR
l•<C-l>*
A
TO C*A-l
340:AS•''YC"•STRS
<
J
·t-1)+
'
'
)
:"'
;
PRINT
A$;
350•
INPUT
YC
l
>:XC
I
>=J
:
CLS
360: B<C-1>•8
<C-
I
>+
l
/
Y(J)
370:NEXT
J:NEXT
C:
l
=
I
:
0•.3*A
372 :Yl•
YC0):Y2•
YC0
)
373:FQR l•
I
TO
D-l
3/4:
I
F
Y<I
><Y
lLET
YI =Y
(
I
>
375:
IF
Y<
l
>>Y2LET
Y2•
Y<
I
>
376: NEXT
I
380:
INPUT
"
DATA
CS
AVE'/(
Y,
Nl";
A$
390:
I
F CAS="Y
"
l+<
A
S•
"N" )( >IGOTO
380
400: l
F AS•"N"GOTO
425
410<PRJNT
NO,
A:
PRINT WX<
*
),
Y<
1'
>,
B<*>:
GOTO
4
25
420: INPUT
•O,A:Ol
M
X<
0-1>,
YC0-
1
>,
8<2>: INPUT
WX
<
#
),
Y(
'I:
),
BC'
* >:
GOTO 37t
425:XJ=0
:X2=1*3*A-
I
430:C=A:B=<CB<2>-
B
<I
})/
(
8 Cl
>-
8<0
)
))"(
l/C)
440:01=a~c-
1:A
=<
B<
0)-B(
l
l H;(B-D
/(
01 *0!)
-
52
-
PROGRAM
NO.
PS
-
8-4
450:C=<8<
0>
•0l*A/C
8-
I> )
/
C
460:C
=l
/C
:A=-A*C:B
=-LN
8
462
:X
!
•
-l/B*LN
<<C
/YJ
-
J)/A)
464:X2=-
J/B*LN
<<C
/Y2-ll/A)
470:LPR
!NT
..
A=
"';B
480: LPRINT
"M•
";A
490:LPRJNT
"'K="
:C:
ENO
500:
"C ..
:
5RAPH
:U=I
0:!.i=-
250: IF C<
0LE
T
V=-
20
:1-J=-
50
505:JF
XJ>0L
ET
XI=
0
510:X3=Xl! M•X2-X3
520:N:M/
J00:L=C/
l7
5
530:6LCURSOR <25,W
>
:SQRGN
540:COLOR 0:
GLCURSOR
C-
10
1
U>:L
PRl
NT "0
"
550:
L
JNE <-20, 0)-(
175, 0>:L
JNE
Cl
65,
10>-<175,
0
)
-<JBS,
-
10>
560:6LCURSOR <1 70,
V>:
LPRINT
" ><"
570:
I
F
C>
=0L
INE
<0
•
-
25>
-<
0, 225>:
LINE
<-10,
215)
-<0,
225>
-
<
10,
2
15
>:
GO
TO
590
580:
LINE
(
0,25)-(0
,
-225>
:
LINE <-
10,
-
215>-<0,
-
2
25
>-
<J0, -215
)
590:
LPRJNT ..
y":
COLOR J:T =C/L
600:LJNE
<175, T>
-
<
-20,
T
>:
LPR
1
NT
"
k
.
610:COLOR
2:0=-1
5:
S•O*N:P=<C/<I•
A*EXP <-B*S
>))
/L
620: IF
0>=
175GOTO
650
630:S=<0•5 >*N:Q=<C
/
(J+A*EXP
<-
B*
$
)
) ) / L
(To
be
continued )
6
Advertisement
