Post on 01-Jan-2016
description
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 keluarp_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;