1 files changed, 17 insertions, 0 deletions
diff --git a/555/CH7/EX7.1/1.sce b/555/CH7/EX7.1/1.sce
new file mode 100644
index 000000000..28dc769b1
--- /dev/null
+++ b/555/CH7/EX7.1/1.sce
@@ -0,0 +1,17 @@
+// Implementation of example 7.1
+// Basic and Applied Thermodynamics by P.K.Nag
+
+clc
+clear
+
+// T is temperature,dS is entropy change
+T1=35 // degree celsius
+T2=37 // degree celsius
+t1=T1+273;
+t2=T2+273;
+// change in entropy is given by dS=mCvlog(t2/t1)
+m=1 // kg
+Cv=4.187
+dS=m*Cv*log(t2/t1);
+printf("change in entropy = %.4f kJ/K",dS);
+// end
+\ No newline at end of file