diff options
Diffstat (limited to '3875/CH10/EX10.7/Ex10_7.sce')
| -rw-r--r-- | 3875/CH10/EX10.7/Ex10_7.sce | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/3875/CH10/EX10.7/Ex10_7.sce b/3875/CH10/EX10.7/Ex10_7.sce new file mode 100644 index 000000000..d8bb99a98 --- /dev/null +++ b/3875/CH10/EX10.7/Ex10_7.sce @@ -0,0 +1,14 @@ +clc;
+clear;
+r=5*10^-2 //outer radius of copper sphere in m
+T1=10^3//temperature in K
+T2=300 //temperature in K
+c=4*10^3 //specific heat in J/kg
+rho=9*10^3 //density of copper in kg/m^3
+sigma=5.67*10^-8 // Stefan-Boltzmann Constant in J/m^2sK^4
+
+//calculation
+t=((rho*r*c)/(9*sigma))*((1/T2^3)-(1/T1^3))
+
+mprintf("The time required to cool from 1000 to 300K is = %.2e sec or 127*10^3 sec\n",t)
+
|