Publicité
LISTE DU PROGRAMME
5 : REM ***************
10:REM SINGLE ARRANGE.
20:REM
METHOD
30:REM ***************
40:"A
M
: CLEAR : HAIT 0:
CLS
50:BEEP 1
60:CURSOR 0>0: PRINT "*
SINGLE ARRANGE. METH
OD*
V
?0:CURSOR 2-2: INPUT "P
RINTER ON=1 OFF=2 *5
P
30: IF (PO1)*(P<>2)
THEN 78
90:CURSOR 0.2: PRINT
v
190:CURSOR 0»i: INPUT "N
o. OF FACTQRs='5A
110:CURSOR 0)2: INPUT "N
0. OF REPLICATIQNS=
V
?N
120:CURSOR
130:DIM D(AiH)
14i3: FOR 1 = 1 TO A
150:FOR J=l TO N
160:BB*="XC
V
+ STR$ <I)+
V
, " + STR* (J)+")=
v
170:CURSOR : PRINT BEI
180:CURSOR LEN <BB*>i3
190:INPUT D(I»J)
209:NEXT J
210:NEXT I
220:IF (P=2)*(F=0) THEN
379
230:IF (P=2)*<F=1) THEN
520
240:CURSQR :F=0: INPUT "
PRINT ÛUT DATA<Y/H>
g
50*
250:IF û*="N" THEN 370
260: IF 0*<>
M
Y" THEN 240
270:LPRINT : LPRINT
M
Fac
tor value=
¥
: LPRINT
A
230:LPRINT
v
R
eP
| ication
value=
v
: LPRINT N:
LPRINT
320:
330:
340:
359:
360:
370:
330
390'
409
410
420
430
440
450
460
470
439
499
500
510
520
530
540
550
560
570
530
590
600
610
620
630
THEN 370
Y=
v
INPUT X
FOR 1=1 TO A
FOR J=l TO N
BB*=
V
X<"+ STR* (1) + "
>"+ STR* <J>+">= "
LPRINT BB*;D<I»J)
NEXT J
LPRINT
NEXT I
LPRINT
iCURSOR : INPUT "AMEN
D DATA(Y/N)
V
?0*
:IF (0*=
V
N")*<F=0)
THEN 520
HF (0*
THEN 220
:IF 0*<>"Y
M
:CLS :F=1
: PRINT "X=
:CURSOR 3-0
:IF <X<1)-KX>A) THEN
439
:CURSOR 13.0: INPUT Y
: CURSOR
!IF <Y<1)+<Y>N) THEN
450
:BBÎ=
V
X(
V
+ STR$ (X)+*
,"+ STR* (Y)+
M
)= "
SPRINT BB*!D<X>Y>
SPRINT BB*
: CURSOR LEN <BB$>.2:
INPUT D(X»Y):
CURSOR
:GOTO 370
:FOR 1=1 TO A
:E=0
:FOR J=l TO N
:E=E+IKI,J>
:Z=Z+D(I» J)*D(I»J)
:NEXT j
:S=S+E:T=T+E*E
SNEXT i
:S=S*S/<A*N):T=T/N:T=
T-S:Z=Z-S:L=Z-T:F=A-
i
:IJ=T/F:0=A*(N-1):M=L/
O:Q=A*N-I:G=U/M
:ON P GOSUB 640» 720
:CLS : END
640: LPRINT **S<iuare sums
650:LPRINT "a=
v
;T:
LPRINT
v
e="5L:
LPRINT "t=*5Z:
LPRINT
660:LPRINT
v
*Deiree of f
reedom"
670: LPRINT "o. = "IF:
LPRINT
v
e =
M
î O :
LPRINT "t=';Q:
LPRINT
680:LPRINT "*Unbio.sed va
r i ance"
690:LPRINT
w
a=
v
;u:
LPRINT "e="5M:
LPRINT
700:LPRINT
(
'*Unbiased va
r i ance rat i o"
710:LPRINT
v
a="5G:
LPRINT : LPRINT :
RETURN
720:CLS : PRINT "*S«iuQre
S U nl3
M
7 3 0 : P R I N T * a = * 5 T : PRINT
" ? =
V
; L : UAIT :
PRIHT
M
t=*5Z: HAIT
740:WAIT Q: CLS : PRIHT
" + De-3ree of freedom"
750:PRINT "a="!F: PRINT
"e=
v
;0: WAIT :
PRINT "t="!Q
760:WAIT 0: CLS : PRINT
"*Unbiased variance"
77Q:PRINT
v
a="ïlj: WAIT :
PRINT "e=";M
780:WAIT 0: CLS : PRINT
" *Unbi ased vari ance
r a t i o"
799:WAIT : PRINT
w
a='pG
308:CLS : RETURN
1533 octets
271
Publicité
