Sharp PC-1500 Handbuch Seite 58
Vorschau ausblenden
Andere Handbücher für PC-1500:
- Bedienungsanleitung (166 Seiten) ,
- Anwenderhandbuch (222 Seiten)
Werbung
Alland more
about
Sharp
PC-1500
at
http:/lwww.PC-1500.info
PROGRAMMNAME:
LOGISTISCHE KURVE
[
Programmlisting ]
10
:
"
A":CLEAR
:
WAi T 0
20:
INPUT
"DATA
CL
OAD?<'f/N
)
"
;A$
3
0:
IF (A$="Y" )+(A
$="
N" ><>JGOTO
20
4
0
: IF
A$•"Y"GOTO
130
5
0
: INPUT
"N="
;D,
"
K=•·; C
60:01M
X<0-1
)
,
Y(D
-
1)
7
0:FOR 1=0TO
D-
1
8
0:A$="X(''+STR$
(
!+
!)+")=":
PR INT
A$;
90: INPUT
X(
1)
100:
CLS
:
A$="Y(''„
STR$
<ltl)+">=
"
:PRINT
A$
;
11
0:
l)'lPUT Y<I
>
120:CLS
:NE;XT
1
122: INPUT
"DATA
CS
AUE?<
Y
/N
)"; At
124:
lF
<A•="Y"
)+(A
$="N"
><>JGOTO
122
126:
IF
A$="N"GOTO
150
127:PRINT
110,
C
128:PR 1NT
llX<
*
>,Y<
•
>:GOTO
I50
I
30:
INPUT
110,
C
140:DJM
X<D-J>,Y <O
-
!
):
INPU
T
llXC*
), Y<*>
IS0:XJ=10~B:X 2=-XI
160:FOR 1=0TO
D-
1
170:IF
X<l><XlL
ET
Xl=X
(
J)
180:
!F
XO> >X2LE
T
X2=X<I>
2J
0:Y=LN
<C/Y(
J
)-1
>:E=E+X
(J):F=F
+X(
I>*XU
>
220: G=G+Y:H=H+X
<I>
*Y:NEXT 1
230:B=
D*F-E*E:
A=<
F
*G-E*H>
/8:0=<0
*H-E*G>/8
2
40:A=EXP A:B =-8:
LPR
!NT "A
="
; 8:
LPRINT
"M=";A
250:ENO
Do
not sale
this PDF
!!!
260: "8"
:CLEAR
:
WAJT
0:USI HG
270:
INPU
T "DATA
CL
OA0?(Y
/N)"
;A$
280:
IF
<A$=" Y">+<A
$=
"N"
><>IGDTO
270
290: IF
A$=
"Y"GOTO
420
300:
INPUT "N•";O:A
•!NT (0/3)
310:
0IM
X<Aj(3-
l>,
Y
<A*3-J), 8<
2>
320:FOR
C=lTO
3
330:FOR l
=<C-l>*A
TO
C*A-
1
340:
A$=''Y(
"
+S
TR$
(
!
+
)
)+
'')
=•·
;
PRlHT A$;
350
: INPUT
Y(J)
:X<I
>=1:
CLS
360
:
B<C-
I>
=B<C-I>+
J/Y
(J)
370:NEXT
I:NEX
T
C:
Z=J: 0•3*A
372 :YJ=Y(0):Y2=Y<0
)
373:FOR
l
=l TO
D-
1
374
: IF Y<l ><Y
ILET
Yl
=Y
(J
)
375:
JF
Y<I>>Y2LET
Y2=Y<l>
376:HEXT l
378:
l
F A$="Y"Goro
410
380:
INPUT
"DATA
es
AUE?(Y/N
) ";A$
390: IF (A$="Y"
)+(A
$="N"><
>lGOTO
380
400:
IF
A$="
N"GOTO
425
410:PRJNT
110,
A:
PRIN
T tlX(
*
),
Y(
*
»
B<*
>:
GOTO 4
25
420:JNPUT
#D,A:OJ
M
X<D-l
»
Y<D-
1
>.
B<2>: INPUT
llX,(
*»
Y<*>. B<*>:
GOTO
372
425:Xl=0:
X2=1*3*A-
l
430:C=A=9=
<<8<2>-B
(
l
) ) / ( ß ( J
>-8<0
>>>~<J/C)
-
52
-
PROGRAMM·NR.
P5-
B-4
440:D
J
=B~C-
l
:A=
<B<
0)
-
ß( 1)
) j((ß
-
1)
/(D
l *Dl
>
450:C=<B<0l
+Dl
*A/
(
B-1
)
)/C
460:C
=l
/ C:A=-
A•
C:
B
=-LN
B
462:X l=-
l/B*LN
<<C
/Yl-1)/A)
464:X2•-
l/B*LN
<<C
/
Y2-
Jl/A)
470:LPRINT
''A
="
;B
4B0:LPRJN
T
''M•";
A
490:LPR1NT
''K=''
;C:
END
500:"C" :GRAPH :U=l
0:
W=-250:
I
F
C<
0LE
T
U=-20:W=-
50
505:JF
X1)0LET
X
I=
0
5J0:X3•XJ
:
M
•
X2-X3
520:
N=M/
l00
:LaC/
l
7
5
530 :GLCURSOR
<25,
W
J:SORGN
540:COLOR
0:
GLCURSOR
(
-
10,
U>:LPRlN
T
"0"
550:LJ
NE
<-20,0>-<
I75,0J:LJ NE
(I
65,
10)
-(
175,
0
)
-
<165,
-I0)
560:GLCURSOR
<170,
U):LPRINT
"
x"
570:J
F
C>•0LI
NE
<0
•
-
25
>-
<0,
225)
:
LINE
(-10,
2 15)
-
<0,
225>-
<J0,
2
15>:GOTO
590
580:
LJ
NE
(0, 25)-(0
,
-
225
): L
INE
<-
10,
-
215>- <0,
-2
25 )-
(
10,
-215)
590: LPRJNT
"y"
:
COLOR
J:T•C/L
600
:
LJ NE
<175, T>-<
-20,
Tl
:LPRINT
''
k
•.
6 J0:COLOR 2:
0=
-
15
:
S=O•N:P•(C/C
J+
A*EXP
<-B•
S >
»
/
L
620:
JF
0>=175GOTO
650
630:S =C0+5)
j(N:O•<C
/(J+A*EXP
<-B*
S
>>J/L
6
Werbung
