Program Macro Minitab Desil

MACRO DESIL
Desil adalah Nilai yang membagi gugus data yang telah tersortir (ascending) menjadi 10 bagian yang sama besar.
Berikut ini adalah program macro pada Minitab:

macro
kuartil x
mconstant i j k n a d p desil sisa r s s1 p1
mcolumn x
#mengurutkan data
let n=count(x)
do i=1:n
do j=1:n
if j >i and x(i)>x(j)
let a=x(i)
let x(i)=x(j)
let x(j)=a
endif
enddo
enddo
#menentukan letak desil
do i=1:9
let k=i
let r=n+1
let d=(k*r)/10
let p=floor(d,0)
let s=p+1
let sisa=d-p
let p1=x(p)
let s1=x(s)
#menentukan nilai desil
let desil(i)=p1+(sisa*(s1-p1))
let sisanya(i)=sisa
let urutan(i)=d
let bulat(i)=p
end do
print bulat urutan sisanya desil
endmacro