From b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b Mon Sep 17 00:00:00 2001
From: priyanka
Date: Wed, 24 Jun 2015 15:03:17 +0530
Subject: initial commit / add all books

---
 587/CH3/EX3.9/example3_9.sce | 31 +++++++++++++++++++++++++++++++
 1 file changed, 31 insertions(+)
 create mode 100755 587/CH3/EX3.9/example3_9.sce

(limited to '587/CH3/EX3.9')

diff --git a/587/CH3/EX3.9/example3_9.sce b/587/CH3/EX3.9/example3_9.sce
new file mode 100755
index 000000000..65dec257a
--- /dev/null
+++ b/587/CH3/EX3.9/example3_9.sce
@@ -0,0 +1,31 @@
+clear;
+clc;
+
+//Example3.9[Heat Loss from an Insulated Electric Wire]
+//Given:-
+k_insu=0.15;//[W/m.degree Celcius]
+V=8;//Voltage drop across wire[Volts]
+I=10;//Current flowimg through the wire[Amperes]
+T_atm=30;//Temperature of atmosphere to which wire is exposed[degree Celcius]
+h=12;//heat transfer coefficient[W/m^2.degree Celcius]
+L=5;//length of wire[m]
+D=0.003;//diameter of wire[m]
+t=0.002;//thickness of insulation[m]
+r=(D/2)+t;//Effective radius[m]
+//Solution:-
+//Rate of heat generated in the wire becomes equal to the rate of heat transfer
+Q_=V*I;//[W]
+disp("W",Q_,"Heat generated in the wire is")
+A2=2*%pi*r*L;//Outer surface area[m^2]
+//Resistances offered
+R_conv=1/(h*A2);//Convection resistance for the outer sueface of insulation[degree Celcius/W]
+R_insu=(log(r/(D/2)))/(2*%pi*k_insu*L);//Conduction resitance for the plastic insulation[degree Celcius/W]
+//Effective Resistance
+R_total=R_conv+R_insu;//[degree Celcius/W]
+//Interface Temperature can be determined from
+T1=T_atm+(Q_*R_total);//[degree Celcius]
+disp("degree Celcius",T1,"The interface temperature is")
+//Critical radius 
+r_cr=k_insu/h;//[m]
+disp("mm",r_cr*1000,"The critical radius of insulation of the plastic cover is")
+//Larger value of critical radius ensures that increasing the thickness of insulation upto critical radius will increase the rate of heat transfer
\ No newline at end of file
-- 
cgit