summaryrefslogtreecommitdiff
path: root/3831/CH8/EX8.6/Ex8_6.sce
blob: c817f7de0449c98b1dbbf0ce2a1e3713f9270759 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
// Example 8_6
clc;funcprot(0);
// Given data
W=100;// W
T_b=110.0+273.15;// K

// Calculation
// (a)
// Since we are assuming a constant bulb temperature in part a, U=constant and
U=0;// W
Q=U-W;// kW
printf("\n(a)The heat transfer rate of an illuminated 100. W incandescent lightbulb in a room,Q=%3.0f W",Q);
// (b)
Q_dot=0;
Udot=W;// W
printf("\n(b)The rate of change of its internal energy,Udot=%3.0f W",Udot);
Sdot=0;// W/K
S_p=Sdot-(Q/(T_b));// W/K
printf("\n(c)The value of the entropy production rate,S_p=%0.3f W/K",S_p);