From 7f60ea012dd2524dae921a2a35adbf7ef21f2bb6 Mon Sep 17 00:00:00 2001 From: prashantsinalkar Date: Tue, 10 Oct 2017 12:27:19 +0530 Subject: initial commit / add all books --- 3831/CH12/EX12.2/Ex12_2.sce | 25 +++++++++++++++++++++++++ 1 file changed, 25 insertions(+) create mode 100644 3831/CH12/EX12.2/Ex12_2.sce (limited to '3831/CH12/EX12.2/Ex12_2.sce') diff --git a/3831/CH12/EX12.2/Ex12_2.sce b/3831/CH12/EX12.2/Ex12_2.sce new file mode 100644 index 000000000..086a34f4f --- /dev/null +++ b/3831/CH12/EX12.2/Ex12_2.sce @@ -0,0 +1,25 @@ +// Example 12_2 +clc;funcprot(0); +// Given data +X_N_2=78.09;// % +X_O_2=20.95;// % +X_Ar=0.930;// % +X_CO_2=0.0300;// % +R=8.3143;// kJ/(kg.mole.K) + +// Calculation +// (a) +M_N_2=28.02;// kg/kgmole +M_O_2=32.00;// kg/kgmole +M_Ar=39.94;// kg/kgmole +M_CO_2=44.01;// kg/kgmole +M_air=((X_N_2/100)*M_N_2)+((X_O_2/100)*M_O_2)+((X_Ar/100)*M_Ar)+((X_CO_2/100)*M_CO_2);// kg/kgmole +// (b) +R_air=R/M_air;// kJ/kg.K +// (c) +// Equation (12.13) can be used to determine the corresponding mass or weight fraction composition as +w_N_2=(X_N_2/100)*(M_N_2/M_air)*100;// % by mass +w_O_2=(X_O_2/100)*(M_O_2/M_air)*100;// % by mass +w_Ar=(X_Ar/100)*(M_Ar/M_air)*100;// % by mass +w_CO_2=(X_CO_2/100)*(M_CO_2/M_air)*100;// % by mass +printf("\n(a)The equivalent molecular mass,M_air=%2.2f kg/kgmole \n(b)The gas constant for the mixture,R_air=%0.3f kJ \n(c)The composition of air on a mass (or weight) basis,w_N2=%2.2f percentage by mass \n w_O2=%2.2f percentage by mass \n w_Ar=%1.2f percentage by mass \n w_CO2=%0.4f percentage by mass",M_air,R_air,w_N_2,w_O_2,w_Ar,w_CO_2); -- cgit