Program Global Macro Mencari Median

Gmacro median 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 if k2=1       let k3=k1/2       let k4=(c2(k3)+c2(k3+1))/2 else       let k3=(k1+1)/2       let k4= c2 (k3) endif endif name k4 'median' print k4 c2 endmacro