Algoritma Paralel (1)

Tugas khusus dapet tugas buat simulasi sebaran suhu planar. Tujuannya untuk melakukan benchmark pada globus. Mungkin kira2 begini algoritmanya...

array [] bidang-atas, bidang-bawah, bidang-kiri, bidang-kanan;
array [][] planar;
while (>akurasi) do
for x=0 to planar.Xlength do
for y=0 to planar.Ylength do
atas = planar[x][y-1];
bawah = planar[x][y+1];
kiri = planar[x-1][y];
kanan = planar[x+1][y];

if y==0 then atas=bidang-atas[x];
if x==0 then kiri=bidang-kiri[y];
if y== planar.Ylength then bawah=bidang-bawah[x];
if x== planar.Xlength then kanan=bidang-kanan[y];

planar[x][y] = (atas+kiri+bawah+kanan)/4;
endfor
endfor
endwhile

Algoritma di atas adalah untuk kerja 1 komputer...intinya setiap titik bernilai rata - rata dari titik2 disekitarnya. iterasi diulang sampai akurasi terpenuhi.

Bagaimana dengan kerja pararel...???
continued...