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

macro
mean_matrix x
mconstant n mean sigma
mcolumn x i
mmatrix mx mi mit
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
endmacro