120 likes | 274 Views
Aplikasi Termodinamika Menggunakan Tabel XSteam. Berapa entalpi uap jenuh pd Temperatur Steam 10 C. clear all; clc; daya_keluar = input('berapa daya keluar netto Turbin (MW) ='); % sebagai input nilai daya keluar p_1 = input('berapa tekanan masuk turbin (bar) ='); h1=XSteam('hV_p',p_1);
E N D
clear all; clc; daya_keluar = input('berapa daya keluar netto Turbin (MW) ='); % sebagai input nilai daya keluar p_1 = input('berapa tekanan masuk turbin (bar) ='); h1=XSteam('hV_p',p_1); s1 = XSteam('sV_p',p_1); s2=s1; p_2 = input('berapa tekanan keluar turbin (bar) ='); sf= XSteam('sL_p',p_2); sg= XSteam('sV_p',p_2); x2 = (s2-sf)/(sg-sf); hf = XSteam('hL_p',p_2); hfg= XSteam('hV_p',p_2)- XSteam('hL_p',p_2); h2= hf + ((x2*hfg)) ; h3= hf; v3 = XSteam('vL_p',p_2); kerja_pompa = XSteam('vL_p',p_2)*(p_1-p_2); h4= h3 + kerja_pompa; kerja_turbin = h1-h2; panas_masuk = h1-h4;