From 7f60ea012dd2524dae921a2a35adbf7ef21f2bb6 Mon Sep 17 00:00:00 2001 From: prashantsinalkar Date: Tue, 10 Oct 2017 12:27:19 +0530 Subject: initial commit / add all books --- 3821/CH9/EX9.8/Example9_8.sce | 38 ++++++++++++++++++++++++++++++++++++++ 1 file changed, 38 insertions(+) create mode 100644 3821/CH9/EX9.8/Example9_8.sce (limited to '3821/CH9/EX9.8/Example9_8.sce') diff --git a/3821/CH9/EX9.8/Example9_8.sce b/3821/CH9/EX9.8/Example9_8.sce new file mode 100644 index 000000000..530a739ba --- /dev/null +++ b/3821/CH9/EX9.8/Example9_8.sce @@ -0,0 +1,38 @@ +///Chapter 9 Law Of Thermodynamics +///Example 9.8 Page No:170 +/// Find DeltaUab +///input data +clc; +clear; +///Data consistent with first law pf thermodynamics +Qabcd=-22; //In KJ +N=150; //In Cycles/min +Qab=17580; //In KJ/min +Qbc=0; +Qcd=-3660; //In KJ/min +Wab=-8160; //In KJ/min +Wbc=4170; //In KJ/min +DeltaUcd=-21630; //In KJ/min + + +///Calculation +DeltaUab=Qab-Wab; //In KJ/min +DeltaUbc=Qbc-Wbc; //In KJ/min +Wcd=Qcd-DeltaUcd; //In KJ/min +Qabcd1=-220*150; //In KJ/min +Qda=((Qabcd1)-(Qab+Qbc+Qcd)); //In KJ/min +Wda=((Qabcd1)-(Wab+Wbc+Wcd)); //In KJ/min +DeltaUabcd=0; +DeltaUda=((DeltaUabcd)-(DeltaUab+DeltaUbc+DeltaUcd)); //In KJ/min +NWO=Qabcd1/60; //In KW + +///Output +printf('DeltaUab= %f Kj/min \n ',DeltaUab); +printf('DeltaUbc= %f KJ/min \n ',DeltaUbc); +printf('Wcd=%f KJ/min \n ',Wcd); +printf('Qabcd1= %f KJ/min \n ',Qabcd1); +printf('Qda= %f KJ/min \n ',Qda); +printf('Wda= %f KJ/min \n ',Wda); +printf('DeltaUabcd= %f KJ/min \n ',DeltaUabcd); +printf('DeltaUda= %f KJ/min \n',DeltaUda); +printf('NWO= %f Kw \n',NWO); -- cgit