Sharp PC-1500 - Page 58

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>
1 00:CLS : A$ •" YC"•
STRS Cl•J>•"> =
": PRI NT A$i
1 10:1 NPUT YC I >
1
20:CLS :NE XT I
122: INPUT " DATA CS
AVE?<Y, N)"; AS
121 : JF CAS =" Y") •(A
S= "N" ) ()JGO TO
122
I 26: IF A S= "N" GOTO
150
12/:PR JN T 11 0, C
128:PRINT
llXC* ),Y(
*> :GOTO 1 50
130: I NPUT 110, C
140:DI M XC0 - 1 >, Y <O
-I): I NP UT ~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: E ND
Do not sale this PDF !!!
260: "B": CLEA R :
WAI T 0:lJSJl'IG
270: I NPUT " DATA CL
OAO?CY,N>" ;AS
280: IF <A S •"Y"> + <A
S• "N"'H>IGOTO
2 70
290:1F A S~"Y " GOTO
420
30 0: INPUT "N •";O:A
zJNT (Q/3)
3J0:01M X<A 1' 3-IJ,Y
CA 1' 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•
INP UT 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• ITO D-l
3/ 4: IF Y <I ><Y lL ET
YI =Y ( I >
375: IF Y< l >> Y2L ET
Y2 • Y< I >
376: N EXT I
38 0: INP UT " DATA CS
AV E'/( Y, N l"; A$
390 : IF CA S ="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
42 5:XJ=0 :X2 =1*3*A-
I
430:C=A:B=<CB<2>- B
<I }) / ( 8Cl >-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
46 2:X!• -l/B *LN <<C
/YJ - J)/A)
464:X2=- J/B*LN <<C
/Y2-ll/A)
470:LPR !NT .. A= "';B
480: L PRINT "M • ";A
490:LPRJNT "'K= " :C:
ENO
500: "C .. : 5R APH :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/ J 00:L =C/ l7
5
530:6LCU RSOR <25,W
> :SQRGN
540:CO LO R 0:
GLCURSOR C- 10
1
U>:LPRl NT "0"
550: L JNE <-20, 0)-(
175, 0>:L JNE Cl
65, 1 0>-<175, 0)
-<JB S, - 10>
560:6L CURSOR <1 7 0,
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 :C OLOR 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