UTS Komputasi Teknik No. 4 (Koefisien Konveksi)

Pada kasus konveksi, maka kalor berpindah melalui fluida yang bergerak. Persamaan yang menyatakan perpindahan panas konveksi adalah

Selain itu kita ketahui bahwa bilangan Nusselt adalah sebagai berikut

dimana :

h = koefisien konfeksi
k = konduktivitas termal
d = tinggi aliran
T = temperatur
x = jarak x
Untuk menyelesaikan persamaan diatas, maka kita harus menyelesaikan fungsi dT/dx terlebih dahulu menggunakan metode numerik diferensial sehingga nantinya nilai koefisien konveksi h dapat diseleseaikan menggunakan rumus bilangan Nusselt.

Dari soal nomor 3, didapatkan persamaan profil temperatur. Mosal kita ambil contoh persamaan

T (x) = 319.07 x2 - 4.6316 x + 0.01635

Untuk melakukan diferensiasi persamaan diatas, maka lakukan langkah sebagai berikut

Buat userform seperti di bawah ini

Program pada visual basic untuk diferensial adalah

Private Sub CommandButton1_Click()

'Ini adalah program turunan
'Program ini dibuat oleh Arandityo Narutomo
'1106107782

'UTS Komputasi Teknik

Dim a0, a1, a2, n As Integer
Dim b1, b2 As Integer

'Definisikan variabel

a0 = aran0.Text
a1 = aran1.Text
a2 = aran2.Text
n = arapangkat.Text

'turunan_y = 2 * a0 * x + a1
'b1 = 2 * a0
'b2 = 1 * a1

'Rumus hasil turunan

b1 = 2 * a0
b2 = a1 ^ 1

'Tampilkan hasil turunan
Labelb1.Caption = b1
Labelb2.Caption = b2

End Sub

Hasil dari turunan dT/dx adalah

Misal akan kita lihat pada sumbu y =0.05

maka