macro
tt x.1-x.p m0
mconstant i p n thotel v1 v2 f ftabel
mcolumn x.1-x.p m0 mm t1
mmatrix s sinv z zt t2 ta tb tc
let n=count(x.1)
cova x.1-x.p s
invert s sinv
do i=1:p
let mm(i)=mean(x.i)-m0(i)
enddo
copy mm z
transpose z zt
multiply zt sinv ta
multiply ta z tb
multiply tb n tc
copy tc t1
let thotel=t1(1)
let f=(n-p)*thotel/(p*(n-1))
let v1=p
let v2=n-p
invcdf 0.95 ftabel ;
f v1 v2.
note matriks covariance
print s
note matriks covariance inverse
print sinv
note nilai T2 Hotelling f dan ftabel
print thotel f ftabel
endmacro