Karakter boyutu : 12 Punto 14 Punto 16 Punto 18 Punto

Cemaat'in network yapılanması

15.01.2014 01:49
Gündemin bir numaralı maddesi olan Cemaat hakkında yazılmış en ilginç yazıya serbestsiyasa.com adresinde denk geldik.

Serbestsiyasa.com adlı internet sitesinden Alper Duman 'Cemaat’i bitirmek o kadar kolay mı hacı?' başlığıyla Cemaat'in network yapılanmasıyla ilgili dikkat çekici bir makale kaleme aldı. 

İŞTE O MAKALE

Cemaat’in ağ şeklinde bir yapılanması olduğu aşikâr. Işık evlerinin sorumlusu abiler, ablalar; okullardan, bürokratik ofislerden veya coğrafi bölgelerden (kasaba, il ve bölge) sorumlu imamlar… Yargıtay’ın da imamı var, Mehmet Ali Şahin’e sorun kim diye.

Neyse…

Bu ağ ne menem bir şeydir? Ecnebilerin “vertices and edges” dedikleri, köşe ve kenarları olan, düğüm ve bağları olan bir şekildir ağ. İlişkiselliği vurgular. Ne uzatıyorum, işte Facebook’tan bilmeniz lazım; arkadaşlarınızla siz bir ağ meydana getiriyorsunuz…

BAĞLANTILI ADALAR AĞI

Cemaat’inki ‘bağlantılı adalar ağı’ (interconnected islands network) gibi bir şey olmalı diye düşünüyorum. “Yok, öyle değil şöyle” diyen, gerekçeleriyle beri gelsin. O dediğinin de analizini yapalım. Aşağıya örnek bir ağ koyuyorum. Burada 50 aktör var, bunlar köşeler. Bu 50 aktör arasında çok daha fazla (bu örnekte 188 kadar) bağ var.

AK PARTİ'NİN ELİNDEKİ 2000 KİŞİLİK LİSTE

İmdi…AKP’nin derdi bu ağı işlevsiz kılmak. Bunun için de elinde 2000 kişilik liste varmış. Bu rakam zaten az. Yerinden ettikleri bile bu rakamı geçti. Cemaat’in toplam mensubu nedir bilmiyoruz. Bunu bilen varsa bir zahmet bize de söylesin. Zaman gazetesinin dağıtım/satış rakamlarını dörtle çarpıp biraz da üste koyarak (çoluk-çocuk, genç-yaşlı herkes dâhil) 5 milyon civarında bir sayı tahmin ediyorum. Bunun, ekonomik ve siyasal güç anlamında işe yarar kısmı 3 milyon kadardır. AKP bu 3 milyondan bırakın 2-3 bini, rastgele 300 bini (Cemaat’in %10’unu) oyun dışına atsa bile Cemaat’e pek bir şey olmaz. Buradaki mesele ağın yapısı. Yukarıdaki ağ gibi 100 tane ağ oluşturdum. Her bir ağdan rastgele beş köşeyi/aktörü (ağın %10’unu) attım. Sonra 100 örnek için orijinal ağ ile tasfiye sonrası ağın ‘ortalama patika uzunluğu’ (average path length) arasındaki farkı aldım. Sonuçta, tasfiye sonrası mesafe 2.78’den 2.99’a çıktı. 3 bile değil…

CEMAATİ BİTİRMEK İÇİN NE YAPMAK GEREKİR?

Bu mesafe neyi ölçüyor? Herhangi iki köşe arasındaki en kısa mesafeyi alıyor, bunu tüm köşe çiftlerine uyguluyor ve ortalamasını buluyor. Yani, Ali dayı ile Makbule teyze arasında ortalama mesafe orijinal ağda 2.78, tasfiye sonrasında ise 2.99. Neden böyle? Çünkü tasfiye edilecek aktörler rastgele seçilince kendi içlerinde yoğun bağlantıları olan öbeklerden ancak bazıları seçilmiş oluyor ve bu durum mesafenin uzamasını önlüyor. Yukarıdaki örnekte beş aktörün atılmasından sonraki ağ şöyle:

Neymiş? Strateji rastgeleyse işe yaramıyormuş. Ne yapmak gerekir? Klikleri, öbekleri birbirine bağlayan aktörleri tasfiye etmek gerekir. Bu nasıl yapılır? Aktörleri merkeziliklerine göre seçerek.

NETWORK'ÜN KODLARI

Not: Bu grafikleri ve analizi R programı ve ‘igraph’ kütüphanesi kullanarak yaptım. Kodlar aşağıda, isteyen tekrarlayabilir.

> library(igraph)

> p <- seq(0.8, 0.8, length=100)

> isl <- lapply(p, interconnected.islands.game, islands.n=5, islands.size=10, n.inter=1)

> ex <- isl[[1]]

> b <- betweenness(ex)

> bsort <- sort(b)

> ex$bc <-b

> bsort[45]

[1] 97.60107

 

> ex$color[ex$bc>98] <- “red”

> ex$color[ex$bc<98] <- “green”

> plot(ex, vertex.label.cex=0.5, vertex.color=ex$color)

> ex$color <- “green”

> plot(ex, vertex.label.cex=0.5, vertex.color=ex$color)

> ex

IGRAPH U— 50 188 — Interconnected islands model

+ attr: name (g/c), islands.n (g/n), islands.size (g/n), islands.pin (g/n), n.inter (g/n), color

(g/c), bc (g/n)

 

> islr <- NULL

> for (i in 1:100){islr[i] <-list(isl[[i]]-vertices(sample(V(isl[[i]]), 5, replace=T)))}

> aplr <-sapply(islr, average.path.length)

> apl <-sapply(isl, average.path.length)

> apldiff <- aplr -apl

> mean(apldiff)

[1] 0.2180542

> mean(apl)

[1] 2.780155

> 1000000000/55000

[1] 18181.82

> mean(aplr)

[1] 2.998209

> exr <- islr[[1]]

> exr$color <- ex$color

> plot(exr, vertex.label.cex=0.5, vertex.color=exr$color)

ensonhaber

 
Bu haber toplam 2164 defa okunmuştur

Etiket(ler): , ,

DİĞER HABERLER
Üye İşlemleri