6 files changed, 78 insertions, 0 deletions
diff --git a/1022/CH7/EX7.1/7_1.sce b/1022/CH7/EX7.1/7_1.sce
new file mode 100755
index 000000000..b40c4e81f
--- /dev/null
+++ b/1022/CH7/EX7.1/7_1.sce
@@ -0,0 +1,14 @@
+clc
+//initialisation of variables
+m= 3000 //lb
+Z1= 50 //ft
+V1= 50 //mph
+gc= 32.2 //ft/lbf s^2
+V2= 0 //mph
+g= 32.2 //ft/s^2
+Z2= 0 //ft
+//CALCULATIONS
+V1= V1*(73.3/50)
+Q2= ((m*(V2^2-V1^2))/(2*gc))+((m*g)/gc)*(Z2-Z1)
+//RESULTS
+printf ('Energy dissipated from the brakes= %.e ft lbf',-Q2)
diff --git a/1022/CH7/EX7.2/7_2.sce b/1022/CH7/EX7.2/7_2.sce
new file mode 100755
index 000000000..2dfbd4c5d
--- /dev/null
+++ b/1022/CH7/EX7.2/7_2.sce
@@ -0,0 +1,10 @@
+clc
+//initialisation of variables
+P= 15 //bar
+T= 300 //C
+h1= 3043.1 //J/gm
+//CALCULATIONS
+u2= h1
+T= 453.4 
+//RESULTS
+printf ('Temperature of the steam in the tank= %.1f C',T)
diff --git a/1022/CH7/EX7.3/7_3.sce b/1022/CH7/EX7.3/7_3.sce
new file mode 100755
index 000000000..e1ddd5005
--- /dev/null
+++ b/1022/CH7/EX7.3/7_3.sce
@@ -0,0 +1,11 @@
+clc
+//initialisation of variables
+m= 10 //lbf
+T= 120 //F
+T1= 275 //F
+u1= 98.9 //Btu/lbm
+u2= 125.6 //Btu/lbm
+//CALCULATIONS
+Q= m*(u2-u1)
+//RESULTS
+printf ('Heat transferred to the tank= %.f Btu',Q)
diff --git a/1022/CH7/EX7.4/7_4.sce b/1022/CH7/EX7.4/7_4.sce
new file mode 100755
index 000000000..6fb4e5b84
--- /dev/null
+++ b/1022/CH7/EX7.4/7_4.sce
@@ -0,0 +1,16 @@
+clc
+//initialisation of variables
+v0= 1 //m/s
+vi= 60 //m/s
+Q= -500 //J/s
+m= 500 //gm/s
+hi= 2000 //J/gm
+h0= 1800 //J/gm
+zi= 3 //m
+z0= 0 //m
+g= 9.8 //m/s^2
+gc= 10^3 //gm m/Ns^2
+//CALCULATIONS
+W= Q+m*((hi-h0)+(vi^2-v0^2)/(2*gc)+(g/gc)*(zi-z0))
+//RESULTS
+printf ('Maximum theotrical power that can be devoloped= %.e J/s',W)
diff --git a/1022/CH7/EX7.5/7_5.sce b/1022/CH7/EX7.5/7_5.sce
new file mode 100755
index 000000000..ed00f9b03
--- /dev/null
+++ b/1022/CH7/EX7.5/7_5.sce
@@ -0,0 +1,19 @@
+clc
+//initialisation of variables
+m= 0.3 //lt/s
+T= 82 //C
+P= 2.4 //bar
+p= 80
+Tw= 800 //C
+h1= 67.19 //J/gm
+h3= 343.3 //J/gm
+hf= 529.65 //J/gm
+hfg= 2185.4 //J/gm
+v3= 1.0305 //cm^3/gm
+V3= 300 //cm^3/s
+//CALCULATIONS
+h2= hf+(p/100)*hfg
+m3= V3/v3
+m2= (m3*(h3-h1))/(h2-h1)
+//RESULTS
+printf ('Required steam flow rate= %.1f gm/s',m2)
diff --git a/1022/CH7/EX7.6/7_6.sce b/1022/CH7/EX7.6/7_6.sce
new file mode 100755
index 000000000..e013ca4d1
--- /dev/null
+++ b/1022/CH7/EX7.6/7_6.sce
@@ -0,0 +1,8 @@
+clc
+//initialisation of variables
+h2= 2 //J/gm
+h1= 1 //J/gm
+//CALCULATIONS
+L= h2-h1
+//RESULTS
+printf ('Difference between the enthalpies of the system in the two phases= %.f (h2-h1) J/gm',L)