Sharp PC-1500 - Page 59

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
640 :LI NE <O, P> - <O+
5, Q):O=O+S:P -" -0
A m
X (0 - 1) Xn
I Data
:GO TO 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 Mi n. of Xn
670:LIN E 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 JNP UT
! '£
STIMATE
X ;'' ;XC H ExY
B(1)::E
2
Y
!):GOTO 7
30
I
y
8(2): 2:3 y
7J 0: ENO
J
y
01
.J
730:Y(J) ;C /(J •A*
K Yl
Mi n. of Yn
EXP < -B'fX<l > »
:S= XCJ) /N:R = Y<
L Graph coefficient v
Y2 Max.o f 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 .70 0
0
y
800: "O ": GLCURSOR
(
0,0>:GLCUR SOR
p ...;
10, -< 300 ·• W) >
Q
...;
8J0:TEXT : C OLOR 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
STAT US I
z
Y. y
2176
AS
...;
Do not sale this PDF!!!
- 53 -