Descriptive Statistic Menggunakan Local Macro

macro descriptive x; gj miu. mcolumn x a b c d e z S mconstant k1 k2 k3 k4 k5 k6 k7 k8 k9 & k10 k11 k12 k13 k14 k15 k21 k22 k23  & k24 k25 k26 k27 k28 k29 k30 k99  & k88 k77 k66 k31 k32 k33 k34 miu name x('yield') a('chem') S('sort chem')& k77('N*')k1('N')k3('rata-rata aritmatik')& k4('rata-rata harmonik')& k7('rata-rata geometrik') k8('simpangan rata-rata')k9('ragam')& k10('simpangan baku')& k11('koefisien keragaman')k12('nilai minimum')& k13('nilai maximum') k14('range')k15('SSE mean') k25 (' kuartil 2')k28(' kuartil 1')k29('kuartil 3')& k30('interkuartil') k34('T') let k99=count (x) let k88=1 let k77=0 do k66=1:k99 if x(k66)='*' let k77=k77+1     #N* else let a(k88)=x(k66) let k88=k88+1 endif enddo let k1=count (a)  #N let k2=sum(a) let k3=k2/k1      #rata-rata aritmatik let k4=k1/sum(1/a)      #rata-rata harmonik let z=loge(a) let k5=sum(z) let k6=k5/k1 let k7=exp(k6)    #rata-rata geometrik let b= a- k3 let c=abs(b) let k8=sum(c)/k1 #simpangan rata-rata let d=b**2 let k9=sum(d)/(k1-1)    #ragam let k10=sqrt(k9)  #simpangan baku let k11= k10*100/k3     #koefisien keragaman let S=sort(a) let k12= S(1)     #min let k13= S(k1)    #max let k14=k13-k12   #range let k15=k10/sqrt(k1)    #SE mean Let k21 = k1 + 1 Let S= SORT(a) Let k22 = MOD(k1,2) Let k23 = MOD(k1,4) if k22 = 1 Let k24= k21/ 2 Let k25 = S(k24)  #MEDIAN if k23 = 3 Let k26 = k21 / 4 Let k27 = k24 + k26 Let k28 = S(k26)  #KUARTIL 1 Let k29 = S(k27)  #KUARTIL 3 let k30= k29-k28  #INTERKUARTIL else Let k26 = (k1-1) / 4 Let k27 = k24 + k26 Let k28 = (S(k26)+S(k26+1))/2 #KUARTIL 1 Let k29 = (S(k27)+S(k27+1))/2 #KUARTIL 3 let k30= k29-k28        #INTERKUARTIL endif else Let k24 = k1 / 2 Let k25= (S(k24)+S(k24+1))/2  #MEDIAN if k23 = 0 Let k26 = k1 / 4 Let k27 = k24 + k26 Let k28 = S(k26)+(S(k26+1)-S(k26))/4 #KUARTIL 1 Let k29 = S(k27)+(3*(S(k27+1)-S(k27))/4) #KUARTIL 3 let k30= k29-k28              #INTERKUARTIL else Let k26 = (k24-1)/2 Let k27 = k24 + k26 + 1 Let k28 = S(k26)+(3*(S(k26+1)-S(k26))/4) #KUARTIL 1 Let k29 = S(k27)+((S(k27+1)-S(k27))/4)    #KUARTIL 3 let k30= k29-k28              #INTERKUARTIL endif endif let k31=k3-miu let k32=sqrt(k1) let k33=k10/k32 let k34= k31/k33 print x a S k77 k1 k3 k4 k7 k8 k9 k10 k11 k12 k13 k14 k15 k28 k25 k29 k30 k34 endmacro

SORTING (Pengurutan pada suatu kolom)

SOURCE CODE

MACRO DESCENDING A MCOLUMN A MCONSTANT k1 k2 k3 k4 LET k1= COUNT(A) DO k2= 1: k1-1  DO k3= k2+1 : k1    IF A(k2) < A(k3)       LET k4= A(k3)       LET A(k3)= A(k2)       LET A(k2)= k4    ENDIF  ENDDO ENDDO PRINT A ENDMACRO

MACRO ASCENDING A MCOLUMN A MCONSTANT k1 k2 k3 k4 LET k1= COUNT(A) DO k2= 1: k1-1  DO k3= k2+1 : k1    IF A(k2) > A(k3)       LET k4= A(k3)       LET A(k3)= A(k2)       LET A(k2)= k4    ENDIF  ENDDO ENDDO PRINT A ENDMACRO

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

sebelLLLL...
gak bisa profesional...kalo diliburkan itu y jauh" hari, bikin orang sebel aj..

balik k kota asal waktu orang-orang berangkat shalat ied *ce' melase.. aq,

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

The Forbidden City, I want iT!

Negeri Tirai Bambu ini punya warisan budaya dan sejarah yang tak pernah habis mengundang decak kagum dunia. Selain Great Wall (Tembok Cina) dan Lapangan Merah (Tiannanmen), Forbidden City adalah satu diantaranya. Wisatawan yang datang selalu penasaran dan ingin lihat lebih dekat bukti-bukti sejarah yang ada di sana. The Forbidden City atau dalam bahasa China disebut Zijin Cheng. Tempat ini terletak di tengah bandar kota Beijing. The Forbidden City merupakan pusat pemerintahan dan pusat tata kota Beijing tempo dulu.Situs sejarah yang dicatat UNESCO pada tahun 1987 sebagai salah satu warisan sejarah dunia ini berdiri megah di areal seluas 720.000 m2, terdiri atas 980 bangunan, dengan 8707 kamar - yang konon dulunya merupakan tempat tinggal para selir kaisar.Kompleks istana ini dibangun tahun 1406 dan baru selesai pada tahun 1420. Masing-masing kamar tergabung dalam beberapa bangunan megah dengan arsitektur asli China yang menawan. Setiap bagian atap bangunan diukir dengan lukisan naga yang melambungkan kekuasaan sang kaisar.Kawasan yang dilengkapi parit dan tembok setinggi sekitar 10 meter itu terbagi dalam dua bagian. Di bagian depan yang ada di bagian selatan, berisi enam bangunan utama tempat para kaisar menjalankan kegiatan mengurus kerajaan. Sementara di belakangnya atau bagian utara merupakan tempat tinggal kaisar dan keluarganya.Warna kuning yang menjadi simbol kerajaan memang mendominasi warna keseluruhan dari Forbidden City ini, namun ada pengecualian untuk bagian atap dari perpustakaan, mereka mewarnainya dengan warna hitam. Ini dikarenakan oleh kepercayaan mereka yang menyatakan bahwa warna hitam adalah warna yang merepresentasikan air,yang dapat memadamkan api.

indoorDi Forbidden City, selain terasa seperti sedang terlempar ke masa lalu, mata Anda akan terpuaskan oleh keindahan bangunan tradisionil China - sebuah bentuk arsitektur yang sangat kuat mempengaruhi tidak hanya kebudayaan masyarakat Asia Timur. Pengamat arsitektur dunia memergoki bukan hanya Istana Kaisar Gia Long di Vietnam yang meng-copy secara persis bentuk Forbidden City, tapi juga bangunan The 5th Avenue Theatre di Seattle, Washington.

Dari ceiling, panel pintu dan jendela, hingga kaca auditorium itu, tak pelak lagi, semua terinsipirasi Forbidden City. Satu-satunya kekayaan yang mungkin tidak akan pernah berhasil dijiplak adalah peninggalan benda seni dan artefak-artefak sejarah yang tersimpan di Forbidden City yang kini juga dikenal sebagai Palace Museum. Menurut catatan pengelola, koleksinya mencapai 1,17 juta item. Meskipun sebagian koleksi ini juga disimpan di National Palace Museum, Taipei.

(matte.Z/berbagai sumber)

Program Global Macro MINITAB 14

Gmacro
Analyze
Name    C1 'yield' C2 'chem' &
             C3 'chem2' C5 'ln.yield'
Print     C1-C3
Let C5=loge ('yield')
Regress C5 2 C1 C2
Endmacro

Enjoy It!!