diff options
Diffstat (limited to '555/CH7/EX7.10/10.sce')
| -rw-r--r-- | 555/CH7/EX7.10/10.sce | 24 |
1 files changed, 24 insertions, 0 deletions
diff --git a/555/CH7/EX7.10/10.sce b/555/CH7/EX7.10/10.sce new file mode 100644 index 000000000..85221fba5 --- /dev/null +++ b/555/CH7/EX7.10/10.sce @@ -0,0 +1,24 @@ +// Implementation of example 7.10
+// Basic and Applied Thermodynamics by P.K.Nag
+
+clc
+clear
+
+// T is temperature,dS is change in entropy,S is entropy,Q is heat transfer
+l=5 // length in m
+b=7 // breadth in m
+th=0.32 // thickness in m
+k=0.71 // W/m*K
+t1=6 //degree celsius
+t2=21 //degree celsius
+T1=t1+273; // K
+T2=t2+273; // K
+Tr=27 //degree celsius
+Ts=2 //degree celsius
+tr=Tr+273;
+ts=Ts+273;
+Q=k*l*b*(T2-T1)/th;
+Sgen=(Q/T1)-(Q/T2);
+Sgent=(Q/ts)-(Q/tr);
+printf("rate of heat transfer through wall = %.2f W \n rate of entropy generation in wall = %.3f W/K \n rate of total entropy generation = %.3f W/K",Q,Sgen,Sgent);
+// end
\ No newline at end of file |