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

macro
kuartil x
mconstant n i j k a l p q sisa kuartil
mcolumn x
let n=count(x)

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

#letak kuartil
do k=1:3
 let l=k*(n+1)/4
 let p=floor(l,0)
 let q=p+1
 let sisa=l-p
 let kuartil=x(p)+(sisa*(x(q)-x(p)))
 print k kuartil
enddo
endmacro