Sharp PC-1500 - Page 67

All and more about Sharp PC-1500 at http://www.PC-1500.info
PROGRAM
TEST OF
MEAN VA LUE DIFFERENCE
PROG RAM NO.
5
T I T LE
AND VAR IANCE
RAT
IO
PS - B-7
[ Program List I [ Memory Contents ]
10: .. A .. : CLEA R
:
500 :N=0:T= 0:S=0
I NP UT "N l= '';M,
510 : JN PUT
"X~"iX;
A
" N 2=' ' i N
GOTO 530
B
20: I NPUT "MEAN
l ~
520:GO TO
550
";Y, "MEAN
2-".
530:N = N.o.J:T=T + )(
c
- '
x
540:S = S•X*X:GOTO 5
D
30: INPUT "S TO . OE:V
10
I=" ;R, "STD. 0
550:X =T /N:S =S-N *X* E
EV. 2=";S
x
F
40:R =R*R*<M-l>
560:CLS :
LPRlNT "M
50:S=S*S*<N -t):
EAN="; X
G
GO TO 90
570:LPRJ NT "STD.DE
60: .. B" :GO SUB
500
V. =", .I ( $/ ( N- l >
H
70 :M =N: R=5:Y=X:
)
I
GO SU B 500
580 : LF l: R ETURN
80: L' =M +N
J
90: T =<Y - X> * <<M*N*
K
<L - 2>/<L:i:<R• S>
))
L
M + N
100:LPR!NT "'T = "i T:
STA TUS I
LPR!NT
"PHJ.:";
611
M
i.J'o. of data for
L- 2
popu lat ion 1
ll0:ENO
No . of data for
120: .. X .. : IN PU T "N l .::.
N
";M , "N2 ~ " ;H
populat ion 2
I 3 0: IN P UT "STO . OEU
. J= "; R,
11
ST O.O
0
EU. 2= '' j s p
140: R=R*R: S=S*S:
GOTO 180
a
150: "Z": 605 UB
500
Standard deviation
160:M=N:R=S:G OSU8
R
500
of population
1
l/0:R=R/(M-J):S=S/
Standa rd
< N- l>
s
deviation
I 80: J F S>RLET
Z:n:
of population
2
M =N :N=Z: Z=S:S=
R:R =Z
T Test value
J90:LPR JN T
'' F=
11
; R/
u
s
200:LPRJNT
.. PHI I="
v
;M - 1
w
210:LPRJNT '"PH12="'
; N-1
x
Mean value of
220:ENO population 2
y
Mean value o f
population 1
z
v
Do not sale this PDF !!!
- 61