3 files changed, 46 insertions, 0 deletions
diff --git a/3843/CH5/EX5.4/Ex5_4.sce b/3843/CH5/EX5.4/Ex5_4.sce
new file mode 100644
index 000000000..1ce467dbc
--- /dev/null
+++ b/3843/CH5/EX5.4/Ex5_4.sce
@@ -0,0 +1,11 @@
+// Example 5_4
+clc;funcprot(0);
+// Given data
+T_H=200+273;// K
+T_L=20+273;// K
+W=15;// kW
+
+// Calculation
+Q_H=W/(1-(T_L/T_H));//kW
+Q_L=Q_H-W;// kW
+printf("\nThe heat transfer from the high temperature reservoir,Q_H=%2.2f kW \nThe heat transfer from the high temperature reservoir,Q_L=%2.2f kW",Q_H,Q_L);
diff --git a/3843/CH5/EX5.5/Ex5_5.sce b/3843/CH5/EX5.5/Ex5_5.sce
new file mode 100644
index 000000000..1135163fc
--- /dev/null
+++ b/3843/CH5/EX5.5/Ex5_5.sce
@@ -0,0 +1,13 @@
+// Example 5_5
+clc;funcprot(0);
+// Given data
+T_H=20+273;// K
+T_L1=-5+273;// K
+T_L2=-25+273;// K
+
+// Calculation
+// W_1=0.0933*Q_L;
+// W_2=0.181*Q_L;
+// Percentage increase=(W_2-W_1)/W_1
+Pi=((0.181-0.0933)/0.0933)*100;// %
+printf("\nThe minimum percentage increase in work required is %2.1f percentage.",Pi);
diff --git a/3843/CH5/EX5.6/Ex5_6.sce b/3843/CH5/EX5.6/Ex5_6.sce
new file mode 100644
index 000000000..bc09c3aa6
--- /dev/null
+++ b/3843/CH5/EX5.6/Ex5_6.sce
@@ -0,0 +1,22 @@
+// Example 5_6
+clc;funcprot(0);
+// Given data
+T_H=500;// K
+T_L=300;// K
+P_1=80*10^3;// Pa
+v_4=10;// m^3/kg
+R=287;// J/kg.K
+k=1.4;// The specific heat ratio
+
+// Calculation
+n=(1-(T_L/T_H))*100;// %
+T_1=T_L;// K
+T_2=T_H;// K
+v_1=(R*T_1)/P_1;// m^3/kg
+v_2=v_1*(T_1/T_2)^(1/(k-1));// m^3/kg
+T_4=T_L;// K
+T_3=T_H;// K
+v_3=v_4*(T_4/T_3)^(1/(k-1));// m^3/kg
+q_H=(R/10^3)*T_H*log(v_3/v_2);// kJ/kg
+w=(n/100)*q_H;// kJ/kg
+printf("\nThe thermal efficiency,n=%2.0f percentage \nThe work output,w=%3.0f kJ/kg",n,w);