Senin, 06 Desember 2010

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

Selasa, 16 November 2010

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,

Jumat, 22 Oktober 2010

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

Senin, 11 Oktober 2010

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!!

Jumat, 08 Oktober 2010

mendung, ngantuk, pikiran crowded blablabla... sleepy.. hoamhoam..
pengen jalan-jalan...

Selasa, 05 Oktober 2010

Jenis Data Observasi

Jenis data menurut waktu
·                   ·       Data cross sectional, adalah jenis data yang dikumpulkan dari berbagai unit (individu, perusahaan, kategori, dsb) pada satu titik waktu tertentu.
Contoh:
1.      Data penjualan sabun “WANGI” pada tanggal 31 Agustus 2010 dari 150 toko/minimarket diseluruh Malang.
No. observasi
Toko/mini market
Penjualan
1
RAHMA
21
2
SARDO
18
3
PERSADA
11
100
ELFARA
27

2.      Data pada suatu restoran yang terdiri dari data penjualan, data pembelian bahan baku, data jumlah karyawan dsb pada tahun 2000.
Restoran
Penjualan
Pembelian bahan baku
Jumlah Karyawan
A
19.587.200
10.300.100
10
B
23.548.000
16.200.589
15
F
17.211.000
13.300.251
9

3.      Data jumlah TKI meninggal pada tahun 2009 akibat kekerasan yang menggambarkan kurangnya perlindungan keselamatan di luar negeri.
Negara
Jumlah TKI (orang)
Malaysia
12
Singapura
8
Arab Saudi
17


 ·      Data time series, adalah yang jenis data yang terdiri atas satu objek yang dikumpulkan menurut urutan waktu dalam suatu rentang waktu tertentu (data berkala).
Contoh:
1.      Data penjualan sabun “WANGI” harian HYPERMART pada periode 1 Agustus 2010 s/d 31 Agustus 2010.
No. observasi
Tanggal
Penjualan
1
1/8/2010
35
2
2/8/2010
42
3
3/8/2010
39
100
31/8/2010
57

2.      Data produksi minyak sawit Indonesia dari tahun 2000 s/d 2009.
Tahun
Produksi Minyak Sawit (ton)
2000
 896.708
2001
 765.403
 ...
2009
 761.081

3.      Data ekspor baju hangat PT SUGITEX ke Prancis dari tahun 1990 s/d 1999.
Tahun
Ekspor (kodi)
1990
 120
1991
 112
 ...
1999
 215


·         Data panel: jenis data yang dikumpulkan menurut urutan waktu dalam suatu rentang/periode  waktu tertentu pada sejumlah individu/ kategori. data panel adalah penggabungan dari data cross sectional dan data time series sehingga dapat disebut data runtun waktu silang (cross-sectional time series). 
Contoh: 
1.      Data Penjualan sabun “WANGI” harian di 10 Outlet Indomaret di Malang pada periode 1 Agustus 2010 s/d 31 Agustus 2010.
No. observasi
Tanggal
Outlet
Depok
Cinere
Cileduk
1
1/8/2010
180
334
210
2
2/8/2010
212
389
411
3
3/8/2010
189
258
341
100
31/8/2010
241
351
221

2.      Data produksi gula bulanan dari 10 pabrik gula di Jawa Timur dalam 12 bulan terakhir.

PG1
PG2
PG10
Januari
 953.000
 987.324
 ...
 957.453
Februari
 989.000
 956.488
 ...
 976.564
 ...
... 
... 
... 
Desember
 967.000
 921.876
... 
 991.211

3.      Data ekspor impor daging sapi Indonesia dan Australia pada periode tahun 2005 s/d 2007.
Negara
Periode
Ekspor (ton)
Impor (ton)
Indonesia
2005
 2.532.768
3.211.897 
 ...
... 
Indonesia
2007
 1.328.982
3.128.69 
Australia
2005
3.111.987 
2.167.543 
 ...
 ...
Australia
2007
 2.177.897
 2.103.006