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

macro
rerata x
mconstant n i sigma mean sigma2 variansi sb
mcolumn x
#menghiutng rerata
let n=count(x)
let sigma=0
do i=1:n
let sigma=sigma+x(i)
enddo
let mean=sigma/n
print mean
#menghitung variansi
let sigma2=0
do i=1:n
let sigma2=sigma2+(x(i)-mean)**2
enddo
let var=sigma2/(n-1)
print variansi
#menghitung simpangan baku
let sb=sqrt(variansi)
print sb
endmacro