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
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..
lanjutin deh bung enggar.. saya bingung mau nanya apa.. abisnya udah ada semua..
BalasHapusMas Enggar, Redim maksudnya apaan ya???Saya belum pernah gunain sama sekali....Walaupun saya sudah membuat eliminasi Gauss dengan konsep saya,punya mas enggar sangat menarik karena mencoba menggunakan for...to...next..
BalasHapusBisa gak jelasin ke saya menggenai hal tersebut?
Redim itu digunakan untuk mendeklarasikan ulang array..
HapusTerkadang kita dihadapkan dengan kasus yang mengharuskan memperbesar atau memperkecil daya tampung array, caranya dengan redim,,
Seperti pada kasus di atas, a dan t merupakan variant yang dideklarasi ulang menjadi suatu aray dengan besar 5 x 6 untuk a dan t dengan besar 5.
cmiiw
Owiya lupa Mas..
Hapussaya menggunakan for to next coz itu yang menurut saya paling mudah, ketimbang menggunakan perulangan DO - While ataupun Do - Until..
Hehe..
Perulangan for - next adalah perulangan yang melakukan sejumlah proses tertentu yang diinginkan,,
bentuk umumnya seperti ini:
For indeks = NilaiAwal To Nilai Akhir
Proses
Next indeks
jadi program akan terus berjalan selama NilaiAkhir belum tercapai..
Terima Kasih
cara pengerjaan yg sangat singkat dan mudah dimengerti, apakah ada cara lain selain menggunakan for...to..next???
BalasHapusSebenarnya ada, yaitu menggunakan Do - While dan Do - Until..
Hapustapi saya belum bikin..
Paling juga mau bikin untuk mengerjakan faktorial dengan menggunakan ketika proses looping tersebut..
hasilnya sama persis dengan buku...mantap...
BalasHapusSangat jelas, sangat bagus. terima kasih
BalasHapus