8 files changed, 83 insertions, 0 deletions

diff --git a/3878/CH1/EX1.1/Ex1_1.sce b/3878/CH1/EX1.1/Ex1_1.sce
new file mode 100644
index 000000000..40770a487
--- /dev/null
+++ b/3878/CH1/EX1.1/Ex1_1.sce
@@ -0,0 +1,8 @@
+clear
+// Variable Declaration
+T_0=-5+273// K
+T_1=35+273// K
+
+// Calculation
+COP=(T_0)/(T_1-T_0)// Coefficient of performance
+printf("\n Carnot COP= %0.2f error",COP)
diff --git a/3878/CH1/EX1.2/Ex1_2.sce b/3878/CH1/EX1.2/Ex1_2.sce
new file mode 100644
index 000000000..1eddb009a
--- /dev/null
+++ b/3878/CH1/EX1.2/Ex1_2.sce
@@ -0,0 +1,9 @@
+clear
+// Variable Declaration
+T_f=80// Final Temperature in °C
+T_i=0// Initial Temperature in °C
+h_f=334.91// The specific enthalpy of water in kJ/kg
+
+// Calculation
+C=h_f/(T_f-T_i)// The average specific heat capacity in kJ/(kg K)
+printf("\n The average specific heat capacity is %0.3f  kJ/(kg K)", C)
diff --git a/3878/CH1/EX1.3/Ex1_3.sce b/3878/CH1/EX1.3/Ex1_3.sce
new file mode 100644
index 000000000..19b1d641d
--- /dev/null
+++ b/3878/CH1/EX1.3/Ex1_3.sce
@@ -0,0 +1,12 @@
+clear
+// Variable Declaration
+P=1.013// Pressure in bar
+h_fg=2257// The latent heat of boiling water in kJ/kg
+T_b=100 // The boiling point temperature of water in °C
+m=1 // The mass of water in kg
+T_i=30 // The initial temperature of water in °C
+C_p=4.19// The specific heat of water in kJ/kg°C
+
+// Calculation
+Q=m*((C_p*(T_b-T_i))+h_fg)// The quantity of heat added in kJ
+printf("\n The quantity of heat added is %0.1f  kJ",Q)
diff --git a/3878/CH1/EX1.4/Ex1_4.sce b/3878/CH1/EX1.4/Ex1_4.sce
new file mode 100644
index 000000000..f918a9ba0
--- /dev/null
+++ b/3878/CH1/EX1.4/Ex1_4.sce
@@ -0,0 +1,8 @@
+clear
+// Variable Declaration
+V_1byV_2=2// Volumetric ratio (given)
+p_1=1.01325// The atmospheric pressure in bar(101325 kPa)
+
+// Calculation
+p_2=V_1byV_2*p_1// The new pressure in bar
+printf("\n The new pressure,p_2= %0.4f  bar(abs.)",p_2)
diff --git a/3878/CH1/EX1.5/Ex1_5.sce b/3878/CH1/EX1.5/Ex1_5.sce
new file mode 100644
index 000000000..aa35b2fa3
--- /dev/null
+++ b/3878/CH1/EX1.5/Ex1_5.sce
@@ -0,0 +1,9 @@
+clear
+// Variable Declaration
+V_1=0.75// The initial volume in m**3
+T_1=273+20 // The initial temperature of water in K
+T_2=273+90 // The final temperature of water in K
+
+// Calculation
+V_2=V_1*(T_2/T_1)// The final volume in m**3
+printf("\n The final volume,V_2= %0.2f  m**3",V_2)
diff --git a/3878/CH1/EX1.6/Ex1_6.sce b/3878/CH1/EX1.6/Ex1_6.sce
new file mode 100644
index 000000000..985f7a982
--- /dev/null
+++ b/3878/CH1/EX1.6/Ex1_6.sce
@@ -0,0 +1,10 @@
+clear
+// Variable Declaration
+R=287// The specific gas constant in J/(kg K)
+m=5 // The mass of ideal gas in kg
+p=101.325// The atmospheric pressure in kPa
+T=273+25// The temperature of an ideal gas in K
+
+// Calculation
+V=(m*R*T)/(p*1000)// The volume of an ideal gas in m**3
+printf("\n The volume of an ideal gas is %0.2f  m**3",V)
diff --git a/3878/CH1/EX1.7/Ex1_7.sce b/3878/CH1/EX1.7/Ex1_7.sce
new file mode 100644
index 000000000..16dcbdc9c
--- /dev/null
+++ b/3878/CH1/EX1.7/Ex1_7.sce
@@ -0,0 +1,16 @@
+clear
+// Variable Declaration
+m_N=0.906// The mass of nitrogen in a cubic metre of air in kg
+R_N=297// The specific gas constant of nitrogen in J/kg K
+m_O=0.278// The mass of oxygen in a cubic metre of air in kg
+R_O=260// The specific gas constant of oxygen in J/kg K
+m_A=0.015// The mass of argon in a cubic metre of air in kg
+R_A=208// The specific gas constant of argon in J/kg K
+T=273.15+20// The temperature of air in K
+
+// Calculation
+p_N=m_N*R_N*T// The pressure of nitrogen in Pa
+p_O=m_O*R_O*T// The pressure of oxygen in Pa
+p_A=m_A*R_A*T// The pressure of argon in Pa
+p_t=p_N+p_O+p_A// The total pressure in Pa
+printf("\n The total pressure is %0.0f Pa %0.5f bar",p_t,p_t/10**5)
diff --git a/3878/CH1/EX1.8/Ex1_8.sce b/3878/CH1/EX1.8/Ex1_8.sce
new file mode 100644
index 000000000..d7c640331
--- /dev/null
+++ b/3878/CH1/EX1.8/Ex1_8.sce
@@ -0,0 +1,11 @@
+clear
+// Variable declartion
+t=225// The wall thickness in mm
+k=0.60// Thermal conductivity in W/(m K)
+L=10// Length in m
+h=3// Height in m
+delT=25// The temperature difference between the inside and outside faces in K
+
+// Calculation
+Q_t=(L*h*k*delT*1000)/(t)// The rate of heat conduction in W
+printf("\n The rate of heat conduction,Q_t= %0.0f ",Q_t)