blob: 8e6f5b64a7bb24f4fd4f03801a2685e4d86ac251 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
clc
//initialisations
t2=162//c
t1=62//c
l=0.15//m
d=0.02//m
k=226//watt per kelvin metre
//CALCULATIONS
r=d/2
a=3.14*r*r
p=2*3.14*r
x=(log(t2/t1))/l
e=(x*x*k*a)/p
//results
printf(' \n surface emissivity of rod= % 1f ',e)
|
