Programs for Simple Data Computation

251corp 2/16/98

Programs for Statistics

Programs for simple Data Computation.

Insert in C1

Program creates C2=, C3=, C8=, C9=, C10=., K1=, K2=, K3=, K4=, K5=, K6=, K7=, K8=, K9=, K10=, K11=.

meanv.mtb

let k1=sum(c1)

let c2=c1 * c1

let k2=sum(c2)

let c3=c2 * c1

let k3=sum(c3)

let k5=count(c1)

let k6=k1/k5

let k7=k5-1

let c8=c1-k6

let c9=c8 * c8

let c10=c9* c8

let k8=sum(c8)

let k9=sum(c9)

let k10=sum(c10)

let k4=k9/k7

let k11=sqrt(k4)

describe c1

print c1-c3, c8-c10

print k1-k11

end

Program Puts out data in columns.

meanvout.mtb.

write 'c:\minitab\meanv.dat' c1-c3, c8-c10;

tab;

replace.

end

Programs for Grouped Data Computation.

Insert in C1 and in C2

Program creates C3=, C4=, C5=, C6=, C7=, C8=, C9=., K1=, K2=, K3=, K4=, K5=, K7=, K8=, K9=.

group.mtb

let c3=c1*c2

let c4=c3*c2

let c5=c4*c2

let k1=sum(c1)

let k3=sum(c3)

let k4=sum(c4)

let k5=sum(c5)

let k2=k3/k1

print c1-c5

print k1-k5

let c6=c2-k2

let c7=c1*c6

let c8=c7*c6

let c9=c8*c6

let k7 =sum(c7)

let k8 = sum(c8)

let k9 = sum(c9)

print c6-c9

print k7-k9

end

Program creates K6=, K10=, K11=, K17=.

groupv.mtb

let k6=k1-1

let k10=k8/k6

let k11=k1*k2*k2

let k11=k4-k11

let k11=k11/k6

let k17=sqrt(k11)

end

Program creates K12=, K13=, K14=, K15=, K16=, K18=, K19=.

groups.mtb

let k12=k6-1

let k13=k1/k6

let k13=k13/k12

let k14=k13*k9

let k15=2*k1*k2*k2*k2

let k16=3*k2*k4

let k15=k5-k16+k15

let k16=k13*k15

let k18=k16/k11

let k18=k18/k17

let k19=k14/k11

let k19=k19/k17

print k1-k19

end

Program Puts out data in columns.

groupout.mtb.

write 'C:\MINITAB\PR97-.DAT' c1-c9;

Tab;

replace.

end

Variance and Covariance

C1 input

C3 input

C10 input

C11 input

C12 input

C13 input

C14 input

C15 input (horizontal)

C16

C17 input(vertical)

C18

C19

C20

C21

C22

C23

C24

C25

C26

C27

C28

C29

K10

K11

K12

K13

K14

K15

K16

K17

K18

K19

K20 Sums

K21 Sums

K22 Sums

K23 Sums

K24 Sums

K25

K26

K27

K28

K29

251corp 11/20/97

var973.mtb

let c2=c1*c1

let k1=sum(c1)

let k2=sum(c2)

let k3=count(c1)

let k4=k1/k3

ket k5=k3*k4*k4

let k5=k3*k4*k4

let k5=k2-k5

print k5

let k7=k3-1

let k5=k5/k7

let k6=sqrt(k5)

describe c1

print c1-c2

print k1-k7

end

ster973.mtb

let k9=c3(1)

let k8=k9-k3

let k29=k9-1

let k29=k8/k29

let k8=k5/k3

print k9, k8. k29

let k8=k8*k29

print k8

let k8=k5/k3

let k8=sqrt(k8)

let k29=sqrt(k29)

print k8, k29

let k8=k8*k29

print k8

end

marg973.mtb

let c18=c10+c11+c12+c13+c14

let c16(1)=sum(c10)

let c16(2)=sum(c11)

let c16(3)=sum(c12)

let c16(4)=sum(c13)

let c16(5)=sum(c14)

let k16=sum(c16)

let k18=sum(c18)

print c10-c18

end

meany.973.mtb

print k16,k18

let c20=c10*c17

let c20=c20*c15(1)

let c21=c11*c17

let c21=c21*c15(2)

let c22=c12*c17

let c22=c22*c15(3)

let c23=c13*c17

let c23=c23*c15(4)

let c24=c14*c17

let c24=c24*c15(5)

let c25=c15*c16

let k25=sum(c25)

let c27=c17*c17

let k27=sum(c27)

end

meanz973.mtb

let c27=c17*c18

let k27=sum(c27)

end

exysq973.mtb

let c26=c15*c25

let c28=c17*c27

let k26=sum(c26)

let k28=sum(c28)

print c20-c28

print k25-k28

end

cov973.mtb

let k13=k12-k25*k27

let k15=sqrt(k10)

let k17=sqrt(k11)

let k14=k13/k15

let k14=k14/k17

print k13-k18

end

251corp 11/20/97

tb1973.mtb

let c40=c1

let c40(11)=k1

let c41=c2

let c41(11)=k2

write 'c:\minitab\tb1973.dat' c40 c41;

tab;

replace.

end

tb2973.mtb

let k30=30

let k31=10

let k32=1

execute 'tb2s973' 5

let c35=c18

let c35(6)=k18

let c35(7)=k25

let c35(8)=k26

let c36=c27

let c36(6)=k27

let c37=c28

let c37(6)=k28

print c30-c37

write 'c:\minitab\tb2973.dat' c30-c37;

tab;

replace.

end.

tb2s973.mtb

let ck30=ck31

let ck30(6)=c16(k32)

let ck30(7)=c25(k32)

let ck30(8)=c26(k32)

let k30=k30+1

let k31=k31+1

let k32=k32+1

end

tb3973.mtb

write 'c:\minitab\tb3973.dat' c20-c24;

tab;

replace.

end

mast973.mtb

execute 'var973'

execute 'ster973'

execute 'marg973'

execute 'meany973'

execute 'meanz973'

execute 'exysq973'

execute 'xyvar973'

execute 'cov973'

execute 'tb1973'

execute 'tb2973'

execute 'tb3973'

end

mast988.mtb

same as above without 1st 2 instructions.

masta973.mtb

write 'c:\minitab\tb2973.dat' c17,c30-c37;

tab;

replace.

end