diff options
Diffstat (limited to '2873/CH5/EX5.14/Ex5_14.sce')
-rwxr-xr-x | 2873/CH5/EX5.14/Ex5_14.sce | 27 |
1 files changed, 27 insertions, 0 deletions
diff --git a/2873/CH5/EX5.14/Ex5_14.sce b/2873/CH5/EX5.14/Ex5_14.sce new file mode 100755 index 000000000..2f8ea1a2c --- /dev/null +++ b/2873/CH5/EX5.14/Ex5_14.sce @@ -0,0 +1,27 @@ +// Display mode
+mode(0);
+// Display warning for floating point exception
+ieee(1);
+clear;
+clc;
+disp("Engineering Thermodynamics by Onkar Singh Chapter 5 Example 14")
+Q1=500;//heat supplied by source in kcal/s
+T1=600;//temperature of source in K
+T2=300;//temperature of sink in K
+disp("clausius inequality can be used for cyclic process as given below;consider 1 for source and 2 for sink")
+disp("K=dQ/T=Q1/T1-Q2/T2")
+disp("i> for Q2=200 kcal/s")
+Q2=200;//heat rejected by sink in kcal/s
+disp("K=Q1/T1-Q2/T2 in kcal/s K")
+K=Q1/T1-Q2/T2
+disp("as K is not greater than 0,therefore under these conditions engine is not possible")
+disp("ii> for Q2=400 kcal/s")
+Q2=400;//heat rejected by sink in kcal/s
+disp("K=Q1/T1-Q2/T2 in kcal/s K")
+K=Q1/T1-Q2/T2
+disp("as K is less than 0,so engine is feasible and cycle is reversible")
+disp("iii> for Q2=250 kcal/s")
+Q2=250;//heat rejected by sink in kcal/s
+disp("K=Q1/T1-Q2/T2 in kcal/s K")
+K=Q1/T1-Q2/T2
+disp("as K=0,so engine is feasible and cycle is reversible")
|