summaryrefslogtreecommitdiff
path: root/2873/CH6/EX6.4
diff options
context:
space:
mode:
authorpriyanka2015-06-24 15:03:17 +0530
committerpriyanka2015-06-24 15:03:17 +0530
commitb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch)
treeab291cffc65280e58ac82470ba63fbcca7805165 /2873/CH6/EX6.4
downloadScilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.gz
Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.bz2
Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.zip
initial commit / add all books
Diffstat (limited to '2873/CH6/EX6.4')
-rwxr-xr-x2873/CH6/EX6.4/Ex6_4.jpgbin0 -> 801655 bytes
-rwxr-xr-x2873/CH6/EX6.4/Ex6_4.sce22
2 files changed, 22 insertions, 0 deletions
diff --git a/2873/CH6/EX6.4/Ex6_4.jpg b/2873/CH6/EX6.4/Ex6_4.jpg
new file mode 100755
index 000000000..680583a99
--- /dev/null
+++ b/2873/CH6/EX6.4/Ex6_4.jpg
Binary files differ
diff --git a/2873/CH6/EX6.4/Ex6_4.sce b/2873/CH6/EX6.4/Ex6_4.sce
new file mode 100755
index 000000000..ba3b0de27
--- /dev/null
+++ b/2873/CH6/EX6.4/Ex6_4.sce
@@ -0,0 +1,22 @@
+// Display mode
+mode(0);
+// Display warning for floating point exception
+ieee(1);
+clear;
+clc;
+
+disp("Engineering Thermodynamics by Onkar Singh Chapter 6 Example 4")
+m=5;//mass of steam in kg
+p=2;//pressure of steam in Mpa
+T_superheat=(300+273.15);//temperature of superheat steam in K
+Cp_water=4.18;//specific heat of water at constant pressure in KJ/kg K
+Cp_superheat=2.1;//specific heat of superheat steam at constant pressure in KJ/kg K
+disp("steam state 2 Mpa and 300 degree celcius lies in superheated region as saturation temperature at 2 Mpa is 212.42 degree celcius and hfg=1890.7 KJ/kg")
+T_sat=(212.42+273.15);//saturation temperature at 2 Mpa in K
+hfg_2Mpa=1890.7;
+disp("entropy of unit mass of superheated steam with reference to absolute zero(S)in KJ/kg K")
+disp("S=Cp_water*log(T_sat/273.15)+(hfg_2Mpa/T_sat)+(Cp_superheat*log(T_superheat/T_sat))")
+S=Cp_water*log(T_sat/273.15)+(hfg_2Mpa/T_sat)+(Cp_superheat*log(T_superheat/T_sat))
+disp("entropy of 5 kg of steam(S)in KJ/K")
+disp("S=m*S")
+S=m*S