Sharp PC-1500 Applications Manual page 59
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
LOGISTIC
CURVE
PROGRAM
NO.
7
T
I TL E
PS-
B-4
[
Program
List
l
l
Memory
Contents
I
64
0
:LI
NE
<O,
P>
-
<O+
5,
Q):O=O+S:P-"-0
A
m
X
(0-
1)
Xn
I
Data
:GOTO
620
B
Y(D-1)
a
Yn
650:
F'uR 1=0TO
0-1
660: $-"X(J)/N!R=Y<I
c
k
)/L
D
Xl
Min.
of Xn
670:LINE
CS-2,
R-
2
)
n
-
<S+2,
R+2),
0,
I
E
I:X
X2
Max.
of Xn
' 8
F
EX
2
X3
680:NEXT
I
X
min. on the
graph
690:
1
~
0
G
LY
B(2)
8(0) :
2: 1
Y
700:
IF l
<O
JNPUT
!'£
STIMATE
X;''
;XC
H
ExY
B(1)::E
2
Y
!):GOTO 730
I
y
8(2):
2:3
y
7J
0:
ENO
J
y
01
.J
730:Y(J) ;C/(J
•A*
K
Yl
M
in. of
Yn
EXP <
-B'fX<l
>
»
:S=XCJ)
/N:R=Y<
L
Graph coefficient v
Y2
Max.of
Yn
I
)/L
:
J~l•
I
M
Range (graph)
value
/40:LJNE CS-2,R-
2>
-
<5•2, R
..
2
), 0,
3
N
Graph
coefficient
X
,
8:
GOiO
.700
0
y
800:
"O"
: GLCURSOR
(
0,0>:GLCURSOR
p
...;
10,
-<
300·•W)
>
Q
...;
8J0:TEXT
: COLOR
0
:
LPR
IN
T
"*
ES T!
R
.J
MA
TE
*"
.J
820
:
1'QR
J=0TO
s
I
-
l
y
830:
LPR
JNT
"
X=
";
X<
T
J)
u
y
840:LPRJNT
"Y=
'"
i Y<
J)
v
y
850 :N( XT
J
.J
860:ENO
w
x
y
x
STATUS
I
z
Y. y
2176
AS
...;
Do
not
sale
this
PDF!!!
-
53
-
Advertisement
