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/CH1/EX1.1/example1_1.sce | 32 ++++++++++++++++++++++++++++++++
 1 file changed, 32 insertions(+)
 create mode 100755 587/CH1/EX1.1/example1_1.sce

(limited to '587/CH1/EX1.1/example1_1.sce')

diff --git a/587/CH1/EX1.1/example1_1.sce b/587/CH1/EX1.1/example1_1.sce
new file mode 100755
index 000000000..16991bac9
--- /dev/null
+++ b/587/CH1/EX1.1/example1_1.sce
@@ -0,0 +1,32 @@
+clear;
+clc;
+
+//Example 1.1(Heating of a copper ball)
+
+//(a)
+//density of the copper ball
+rho= 8950;//[kg/m^3]
+//Diameter of the copper ball
+D=0.1;//[m]
+//mass of the ball
+m=rho*(%pi/6)*(D^3);//[kg]
+//Specific Heat of copper
+Cp=0.395;//[kJ/Kg/m^3]
+//Initial Temperature
+T1=100;//[degree C]
+//Final Temperature
+T2=150;//[degree C]
+// The amount of heat transferred to the copper ball is simply the change in it's internal energy and is given by
+// Energy transfer to the system=Energy increase of the system
+Q=(m*Cp*(T2-T1));
+disp("kJ",Q,"Heat needs to be transferred to the copper ball to heat it from 100 to 150 degree celsius is ")
+//b
+//Time interval for which the ball is heated
+dT=1800;//[seconds]
+Qavg=(Q/dT)*1000;//[W]
+disp("W",Qavg,"Average Heat Transfer by the iron ball is ")
+
+//(c)
+//Heat Flux
+qavg=(Qavg/(%pi*(D^2)));//[W/m^2]
+disp("W/m^2",qavg,"Average flux is")
-- 
cgit