Program Min, Median dan Maks

Gmacro Analyze name c1 'yield' c2 'shorting yield' let c2=sort (c1) let k1=count (c2) let k2=(-1)**k1 if k1<10       note not enough observation else       note Program Mencari ringkasan 5 angka (Min,Q1,Median,Q3,Maks) endif #Mencari Nilai Minimum let k10=c2(1) #Mencari Median(Q2) if k2=1           let k5=k1/2       let k6=(c2(k5)+c2(k5+1))/2 else       let k5=(k1+1)/2       let k6= c2 (k5) endif #Mencari Nilai Maksimum let k11=c2(k1) name k10 'min' k6 'Median' k11 'max' print k10 k6 k11 c2 endmacro