summaryrefslogtreecommitdiff
path: root/3543/CH3/EX3.18/Ex3_18.sce
blob: b684b3d3d8909281d487c0475081973c374b8ffd (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
// Example 3.18 
// Calculation of total power emitted
// Page no 485

clc;
clear;
close;

//Given data
r=0.7;            // Emissivity
r0=5.67*10^-8;    // Stephen's constant
A=10^-4;          // Surface area
T=2000;           // Temperature

// Total power emitted
P=r*r0*A*T^4;                     

//Display result on command window
printf("\n Total power emitted (Watts)= %0.1f  ",P);