Untuk mencari koefisien konveksi bisa dengan cara mancari bilangan nusselt
Dimana :
h = koefisien konfeksi
k = konduktivitas termal
d = tinggi aliran
T = temperatur
x = jarak x
Yang pertama kita lakukan adalah melakukan derivatif dt/dx
Misalnya persamaan distribusi temperatur pada cell 7
T(x) = 382.73 x2 - 18.99 x + 0.72
Private Sub CommandButton1_Click()
Dim a0, a1, a2, n, y_turunan As Integer
Dim b As Integer
a0 = ekox1.Text
a1 = ekox2.Text
a2 = ekox3.Text
n = pangkat.Text
'y_turunan = 2 * a2*x + a1
'b1 = 2*a2
'b2=a1
b1 = 2 * a2
b2 = a1
Labelb1.Caption = b1
Labelb2.Caption = b2
End Sub
Dim a0, a1, a2, n, y_turunan As Integer
Dim b As Integer
a0 = ekox1.Text
a1 = ekox2.Text
a2 = ekox3.Text
n = pangkat.Text
'y_turunan = 2 * a2*x + a1
'b1 = 2*a2
'b2=a1
b1 = 2 * a2
b2 = a1
Labelb1.Caption = b1
Labelb2.Caption = b2
End Sub
setelah di derivatif kan maka nilai dari T'(x) = 765.46 x -18.99
Jika di asumsikan y= 0 maka nilai derivatifnya akan menjadi
T'(x) = 765.46 (0) - 18.99 = -18.99
Kalau dimasukkan e dalam persamaan dimana nila d = 0.1 m dan k = 1000
maka akan di dapatnilai dari koefisien konveksi
maka koefisen konveksi yang dihasilkan adalah 1.8889 E05
Tidak ada komentar:
Posting Komentar