summaryrefslogtreecommitdiff
path: root/1373/CH3/EX3.23/Chapter3_Example23.sce
blob: 8ccc4e2b2fefb3a8eafb9fbde6fb6c3115aaa366 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
//Chapter-3, Example 3.23, Page 89
//=============================================================================
clc
clear

//INPUT DATA
p=100;//Resistivity of nichrome in µ ohm-cm 
Q=10000;//Heat input of a heater in W
T=1220;//Surface temperature of nichrome in degree C
Ta=20;//Temperature of surrounding air in degree C
h=1150;//Outside surface coeffient in W/m^2.K
k=17;//Thermal conductivity of nichrome in W/m.K
L=1;//Length of heater in m

//CALCULATIONS
d=(Q/((T-Ta)*3.14*h))*1000;//Diameter of nichrome wire in mm
A=(3.14*d*d)/4;//Area of the wire in m^2
R=((p*10^-8*L)/A);//Resistance of the wire in ohm
I=sqrt(Q/R)/1000;//Rate of current flow in A

//OUTPUT
mprintf('Diameter of nichrome wire is %3.4f mm \n Rate of current flow is %i A',d,I)

//=================================END OF PROGRAM==============================