1 files changed, 19 insertions, 0 deletions
diff --git a/555/CH6/EX6.1/1.sce b/555/CH6/EX6.1/1.sce
new file mode 100644
index 000000000..b8a9efb1a
--- /dev/null
+++ b/555/CH6/EX6.1/1.sce
@@ -0,0 +1,19 @@
+// Implementation of example 6.1
+// Basic and Applied Thermodynamics by P.K.Nag
+
+clc
+clear
+
+// T1 & T2 are source & sink temperatures respectively
+// n is efficiency of engine & W is work done
+
+t1=800 
+t2=30 
+T1=t1+273; // K
+T2=t2+273 // K
+W=1 // kW
+Nmax=1-(T2/T1);
+Q1=W/Nmax;
+Q2=Q1-W;
+printf("least rate of heat rejection = %.3f kW",Q2);
+// end
+\ No newline at end of file