Eliminasi Gauss untuk Kasus Konduksi Panas pada Batang Logam Satu Dimensi

Hallo sahabat Blogger semua..
Kali ini peulis mencoba menulis sebuah tulisan yang masih bertemakan eliminasi gauss, tapi lebih cenderung pada pengaplikasiannya untuk kasus konduksi panas pada batang logam satu dimensi yang terdapat pada buku CFD.

Soal yang di dapat dari buku CFD adalah:



Sedangkan ilustrasi perpindahan panas konduksi yang akan diselesaikan solusi untuk distribusi temperaturnya dapat diperhatikan pada gambar di bawah ini,

Dari pertayaan yang ada, kita dapat mengambil kesimpulan bahwa persamaan yang digunakan merupakan persamaan yang menggunakan 5 variabel bebas sebagai berikut:










dengan adanya beberapa nilai yang sudah diketahui pada soal, maka persmaan menjadi:













Untuk membuat program visual basicnya, maka kita membutuhkan algoritma, yang menurut penulis, sangatlah mirip dengan postingan sebelumnya yang berjudul Persamaan Aljabar Simultan dengan metoda Eliminasi Gauss pada VB, hanya saja menggunakan 5 variabel bebas pada saat perhitungan.

for i = 1 to n and j = 1 to 6 in steps of 1 do Read aij endfor
for i = 2 to 3 in steps of  1 do
       u := aij / a11
         for j = 1 to 6 in steps of 1 do
              aij := aij - u*aij 
       endfor
 endfor

Seperti biasa, sebuah userform cukup dibutuhkan dalam visual basic, so ini dia userformnya

Setelah ada userform, mari kita melakukan coding..
hehe..

 

Nah, kalau coding sudah selesai dilakukan, maka pengecekan pun dilakukan dengan cara menjalankan program tersebut dan memasukkan nilai-nilai variabel a yang telah ada di soal. Dan ktika program dijalankan, seharusnya hasil dari perhitungan akan muncul.

Beikut tampilan program saat dijalankan:


Ternyata program berjalan sesuai dengan yang diharapkan dan hasil perhitungan pun sama dengan jawaban yang terdapat pada soal..

Mungkin sekian yang dapat penulis sampaikan..
Semoga bermanfaat.. cmiiw
klo ada yang mau nambahin, komentar aj.. hehe..