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

macro
median x
mconstant n i j a d1 d2 median
mcolumn x
let n=count(x)

#Mengurutkan data
do i=1:n
do j=1:n
 if i>j and x(i) let a=x(i)
  let x(i)=x(j)
  let x(j)=a
 endif
enddo
enddo
print x

if mod(n,2)=0
 #data genap
 let d1=n/2
 let d2=d1+1
 let median =(x(d1)+x(d2))/2
else
 #data ganjil
 let d1=n/2
 let d2=round(d1)
 let median=x(d2)
endif

print median
endmacro