1 files changed, 17 insertions, 0 deletions
diff --git a/1808/CH3/EX3.4/Chapter3_Exampl4.sce b/1808/CH3/EX3.4/Chapter3_Exampl4.sce
new file mode 100644
index 000000000..9308e465a
--- /dev/null
+++ b/1808/CH3/EX3.4/Chapter3_Exampl4.sce
@@ -0,0 +1,17 @@
+clc
+clear
+//INPUT DATA
+n=1/5;//Fraction of heat input converted into power
+ts=100;//Reduced sink temperature in Degree C
+
+//CALCULATIONS
+//4Th-5Tl=0
+//3Th-5Tl=-500
+A=[4 -5
+   3 -5]//Coefficient matrix
+B=[0
+   -500]//Constant matrix
+X=inv(A)*B//Variable matrix
+
+//Output
+printf('(a)The temperature of the source is %3.f K \n (b)The temperature of sink is %3.f K',X(1),X(2))