summaryrefslogtreecommitdiff
path: root/1991/CH9/EX9.6/6.sce
blob: 7569c358f147344365e80a4d4f44102a7529945f (plain)
1
2
3
4
5
6
7
8
9
10
11
12
clc
clear
//input
t1=280
t2=290//temperature of surroundings
sig=5.7*10^-8 //stephans constant
//calculation
e3=sig*(t1^4-t2^4)//stephans law
e1=6.2*10^9*sig 
e3=0.15*e1
//output
printf("the absorbing rate is %d W",e3)