summaryrefslogtreecommitdiff
path: root/3821/CH9/EX9.9/Example9_9.sce
blob: d68b5a2c694f517f03530e80c3b3aad77955e0ae (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
///Chapter 9 Law Of Thermodynamics
///Example 9.9 Page No:171
///Find Net heat transfer in 1st cycle
///Input data
clc;
clear;
Qab=-6500;  //Heat transferred in 1st process KJ/min
Qbc=0;      //Heat transferred in 2nd process 
Qcd=-10200; //Heat transferred in 3rd process KJ/min
Qda=32600;  //Heat transferred in 4th process KJ/min
Wab=-1050;  //Heat transferred in 1st process KJ
Wbc=-3450;  //Heat transferred in 2nd process KJ
Wcd=20400;  //Heat transferred in 3rd process KJ
Wda=0;      //Heat transferred in 4th process

///Calculator
dQ=Qab+Qbc+Qcd+Qda; //Net heat transfer in 1st cycle
dW=Wab+Wbc+Wcd+Wda; //Net work done in 1st cycle
dW1=dW/60;          //Net work done in 1st cycle
DeltaUab=Qab-Wab;   //ab process
DeltaUbc=Qbc-Wbc;   //bc processes
DeltaUcd=Qcd-Wcd;   //cd processes
DeltaUda=Qda-Wda;   //dc processes

///Output
printf('Net heat transfer in 1st cycle= %f KJ/min \n',dQ);
printf('Net work done in 1st cycle= %f KJ/min \n',dW);
printf('Net work done in 1st cycle=%f KW \n ',dW1);
printf('ab process= %f KJ/min \n',DeltaUab);
printf('bc processes= %f KJ/min \n ',DeltaUbc);
printf('cd processes= %f KJ/min \n ',DeltaUcd);
printf('dc processes= %f KJ/min \n',DeltaUda);