summaryrefslogtreecommitdiff
path: root/3850/CH28/EX28.4/Ex28_4.sce
blob: 8bff3c8698a59fbd549ee83eabb6d54a24e9eb84 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

//To calculate the Net Rate of Heat Loss

//Example 28.4

clear;

clc;

A=10*10^-4;//Surface Area of Blackbody in m^2

T=400;//Initial Temperature in Kelvin

T0=300;//Final Temperature in Kelvin

Sigma=5.67*10^-8;//Stefan Constant

delU=Sigma*A*(T^4-T0^4);//Net Rate of Heat Loss

printf("The net rate of loss of heat is=%2f W",delU);