Publicité
• LISTE DU PROGRAMME
10:REM ****************
20:REM *
F TEST
*
30:REM ****************
40:"A": CLEAR : CLS :
WAIT 0
50:INPUT "DATA NUMBERS
1 = " i M
60:INPUT
V
STD. DEVIATIO
N 1 =
V
Î R
70:INPUT
V
DATA NUMBERS
80:INPUT "STD. DEVIAT 10
N 2="5S
90:GOTO 330
100:"B
V
: CLEAR : CLS :
HAIT 0:F=1
110:INPUT "DATA NUMBERS
1 =
M
! M
120:DIM X(M)
130:PRINT ""
140:L=2
150:FOR 1=1 TO M
160:CURSOR : PRINT
V
DATA
1("+ STR* < I > + " > = " ;
170:CUR30R 9+ LEN (
STR* <I».L: INPUT X
(I)
180:X=X+XU):R=R+X(I)*X(
I)
190:L=L+i: IF L=4 LET L=
3
200:NEXT I
210:X=X/M:R=R-M*X*X:R=
SQR (R/(M-D)
220:CLS
230:INPUT "DATA NUMBERS
2="ÎN
240:DIM Y(H)
250:PRINT "
v
:\_=2
260:FOR 1=1 TO N
270:CURSOR : PRINT "DATA
2C"+ STR* <!>+">=";
230:CURSOR 9+ LEN (
STR* <I»jL: INPUT Y
(I)
*
290:Y=Y+Y(I):S=S+Y<I)*Y<
I)
300:L=L+i: IF L=4 LET L=
310:NEXT I
TO 0
D a t a !<
320: Y=Y/N: S=S-N*Y*Y: s=
SQR (S/(N-1>>
330:T=R*R:U=S+S:û=M:Q=N
340: IF U>T LET P=M:M=N:N
=p:P=ij:U=T:T=P
350ÎLPRINT
v
******
F T
360S
370:
330:
390:
400:
410J
420:
430:
440:
450:
460:
470:
430
490
500
510
520
530
540
LPRINT
LPRIHT "Data numbers
l=
v
: LPRINT 0
IF FOI THEN GOTO 44
0
FOR 1=1
LPRINT
STR* ( I > + " > = " Î X < I >
NEXT I
LPRINT
LPRINT "Avera-îe
1 =
": LPRINT X
LPRINT
M
Std. d e v i a t i
on 1=": LPRINT R
LPRINT
LPRINT "Data numbers
2=
v
: LPRINT Q
IF FOI THEN GOTO 53
0
FOR 1=1
LPRINT
STR* ( !
NEXT I
LPRINT
: LPRINT
v
A',-ero.ïe
2=
": LPRINT Y
LPRINT "Std. d e v i a t i
on 2=
v
: LPRINT S
LPRINT : LPRINT " —
TO Q
Data 2 <
v
+
JY(I)
-": LPRINT
550: LPRINT "F Test v a l u e
=": LPRINT T/U
560: LPRINT
570: LPRINT "Degree of fr
eedom 1=": LPRINT M-
1
530: LPRINT "De-îree of fr
eedoifi 2 = ": LPRINT N-
1
590: LPRINT : LPRINT
600: END
1094 octets
277
Publicité
