551/CH15/EX15.15/15.sce


1
2
3
4
5
6
7
8
9
10
11
12

clc
d=0.0015; //m
l=0.15; //m
A=%pi*d*l;
ts=120; //0C
tf=100; //0C
h=4500; //W/m^2 0C

Q=h*A*(ts-tf);
disp("Electric power to be supplied =")
disp(Q)
disp("W")