Kel 6.docx

Tugas Kelompok Matlab Kelompok 6 Nama : 1. Sigit Hermawan

(17644036)

2. Chindy Pebriwirasanti

(17644046)

3. Inzirah

(17644054)

4. Sarwan Riadi

(17644057)

No 6 =================== Diketahui Wc : Dasar Bahan Basah Wp : Bahan Kering Ww : Kandungan Air Qk : Waktu laju pengeringan pada laju tetap Qt : Waktu laju pengeringan pada laju menurun Rk : Laju pengeringan pada laju tetap R1 : Laju pengeringan pada laju menurun TG : Suhu bola kering TW : Suhu bola basah hG : Koefisien perpindahan panas

Wp =

38.4000

Ww =

21.6000

Xk =

0.4000

X =

0.0600

X1 =

0.1000

Xo =

0.5625

TG =

158

TW =

113

A =

15360

Rk =

4.3403e-005

Menjawab Pertanyaan ===================== A.Pengeringan pada laju tetap

Qk =

9.3600

===================== B.Hitung harga koefisien perpindahan panas B : Lamda w

B =

111076

q=Rk*B=hG(TG-TW)

hG =

0.1071

R1 : Laju Pengeringan

R1 =

5.1062e-006

Qt : Waktu Pengeringan

Qt =

41.9111

Main Program

clc; disp('===================') disp('Diketahui') disp('Wc : Dasar Bahan Basah') disp('Wp : Bahan Kering') disp('Ww : Kandungan Air') disp('Qk : Waktu laju pengeringan pada laju tetap') disp('Qt : Waktu laju pengeringan pada laju menurun') disp('Rk : Laju pengeringan pada laju tetap') disp('R1 : Laju pengeringan pada laju menurun') disp('TG : Suhu bola kering') disp('TW : Suhu bola basah') disp('hG : Koefisien perpindahan panas') Wp=64/100*60 Ww=36/100*60 Xk=0.4 X=0.06 X1=0.1 Xo=Ww/Wp TG=158 TW=113 A=400*Wp Rk=40/15360/60 disp('Menjawab Pertanyaan') disp('=====================') disp('A.Pengeringan pada laju tetap') Qk=(Wp/(Rk*A)*(Xo-Xk)) disp('=====================') disp('B.Hitung harga koefisien perpindahan panas') disp('B : Lamda w') B=111076 disp('q=Rk*B=hG(TG-TW)') hG=(Rk*B)/(TG-TW) disp('R1 : Laju Pengeringan') R1=(Rk*(X1-X))/(Xk-X) disp('Qt : Waktu Pengeringan') Qt=(Wp/A)*((Xk-X1)/(Rk-R1))*log(Rk/R1)