5 files changed, 77 insertions, 0 deletions
diff --git a/2507/CH4/EX4.1/Ex4_1.sce b/2507/CH4/EX4.1/Ex4_1.sce
new file mode 100755
index 000000000..3b82f8824
--- /dev/null
+++ b/2507/CH4/EX4.1/Ex4_1.sce
@@ -0,0 +1,18 @@
+clc
+clear
+printf("Example 4.1 | Page number 93 \n\n");
+//Find magnitude and direction of W_4
+//Given Data
+//four heat transfer
+Q_1 = 900 //J
+Q_2 = 80 //J
+Q_3 = -800 //J
+Q_4 = 150 //J
+//four work interactions
+W_1 = 200 //J
+W_2 = 150 //J
+W_3 = 300 //J
+//W_4
+//Solution
+W_4 = Q_1 +Q_2 +Q_3 +Q_4 -W_1 -W_2 -W_3  
+printf("Magnitude and Direction of the fourth work interaction, W4 = %.2f J",W_4)
diff --git a/2507/CH4/EX4.2/Ex4_2.sce b/2507/CH4/EX4.2/Ex4_2.sce
new file mode 100755
index 000000000..efc2d84f7
--- /dev/null
+++ b/2507/CH4/EX4.2/Ex4_2.sce
@@ -0,0 +1,23 @@
+clc
+clear
+printf("Example 4.2 | Page number 94 \n\n");
+//Part (a) Find change in energy of the system
+//Part (b) Find the magnitude and direction of work during B
+//Given Data
+Q_a = -50 //KJ //heat transferred from the system along path A
+W_a = -65 //KJ //work done along path A
+Q_b = 0 //KJ //heat transferred from the system along path B
+//W_b work done along path B
+
+//Solution
+
+//Part(a)
+printf("Part (a)\n");
+delE_a = Q_a - W_a //KJ //Change in energy along path A
+printf("Change in energy of the system = %.2f KJ\n\n",delE_a);
+
+//Part(b)
+printf("Part (b)\n");
+delE_b = -1*delE_a //KJ //Change in energy along path B
+W_b = delE_b - Q_b //KJ //work done along path B
+printf("Magnitude and direction of work done during B, W_b = %.2f KJ",W_b)
diff --git a/2507/CH4/EX4.3/Ex4_3.sce b/2507/CH4/EX4.3/Ex4_3.sce
new file mode 100755
index 000000000..f5858c355
--- /dev/null
+++ b/2507/CH4/EX4.3/Ex4_3.sce
@@ -0,0 +1,15 @@
+clc
+clear
+printf("Example 4.3 | Page number 99 \n\n");
+//Find the total energy of the system with respect to an observer at rest at sea level. 
+//Given data
+m = 2.3 //kg //mass of substance
+u = 21 * 10^3 //J/kg //internal energy
+V = 110 //m/s //velocity 
+z = 1500 //m //elevation above sea level
+g = 9.81 //m/s^2 //acceleration due to gravity
+
+
+//Solution
+E = m*(g*z + V^2/2 + u) //J/kg //Total energy of the system
+printf("The total energy of the system with respect to an observer at rest at sea level, E = %.4f KJ",0.001*E);
diff --git a/2507/CH4/EX4.4/Ex4_4.sce b/2507/CH4/EX4.4/Ex4_4.sce
new file mode 100755
index 000000000..add3a97a4
--- /dev/null
+++ b/2507/CH4/EX4.4/Ex4_4.sce
@@ -0,0 +1,16 @@
+clc
+clear
+printf("Example 4.4 | Page number 103 \n\n");
+//find Cv and Cp
+//Given data
+t = poly(0,'t'); //°C //Temperature in °C
+u = 196 + .718*t; //KJ/kg //specific internal energy
+pv = 287*(t+273); //Nm/kg //p is pressure and v = specific volume
+
+//Solution
+Cv = coeff(derivat(u));
+printf("Specific heat at constant volume,Cv = %.3f kJ/kgK\n",Cv(1)); 
+
+h = u + pv*.001 //KJ/kg //enthalpy
+Cp = coeff(derivat(h));
+printf("Specific heat at constant pressure,Cp = %.3f kJ/kgK",Cp(1)); 
diff --git a/2507/CH4/EX4.5/Ex4_5.sce b/2507/CH4/EX4.5/Ex4_5.sce
new file mode 100755
index 000000000..e02cc933d
--- /dev/null
+++ b/2507/CH4/EX4.5/Ex4_5.sce
@@ -0,0 +1,5 @@
+clc
+clear
+printf("Example 4.5 | Page number 103 \n\n");
+//This question is theoritical. Refer textbook for solution
+printf("This is a theoritical question. Refer textbook for solution.")