エカつきのブログ = Eka tsuki no blog

macro
mean_matrix x
mconstant n mean sigma sigma2 variansi sb
mcolumn x i xmsq
mmatrix mx mi mit mxmsq
#menghitung rerata
copy x mx
let n=count(x)
let i=x-x+1
copy i mi
transpose mi mit
multiply mit mx sigma
let mean=sigma/n
print mean
#menghitung variansi
let xmsq=(x-mean)**2
copy xmsq mxmsq
multiply mit mxmsq sigma2
let var=sigma2/(n-1)
print variansi
#menghitung simpangan baku
let sb=sqrt(variansi)
print sb
endmacro