summaryrefslogtreecommitdiff
path: root/587/CH2/EX2.18/example2_18.sce
blob: 72636f37d803d08f0f82b1ff923679065d7e1e16 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
clear;
clc;

//Example2.18[Variation of Temperature in a Resistance Heater]
//Given:-
k=13.55;//[W/m.degree Celcius]
ro=0.005;//[m]
e_gen=4.3*10^7;//rate of resistance heating[W/m^3]
Ts=108;//Surface temperature[degree Celcius]
//Solution:-
//Integrating we get
//T(r)=Ts+((e_gen*(ro^2-r^2)/4k))
T_0=Ts+((e_gen*ro^2)/(4*k));
disp("degree Celcius",round(T_0),"The temperature at the centreline,r=0 is")