initial commit / add all books

1 files changed, 12 insertions, 0 deletions

diff --git a/2510/CH11/EX11.13/Ex11_13.sce b/2510/CH11/EX11.13/Ex11_13.sce
new file mode 100755
index 000000000..813920638
--- /dev/null
+++ b/2510/CH11/EX11.13/Ex11_13.sce
@@ -0,0 +1,12 @@
+//Variable declaration:
+Q = 5.0                         //Radiation heat transfer (W)
+E = 1.0                         //Emissivity of filament
+s = 5.669*10**-8                //Stefan-Boltzmann constant
+T1 = 900.0+273.0                //Light bulb temperature (K)
+T2 = 150.0+273.0                //Glass bulb temperature (K)
+
+//Calculation:
+A = Q/(E*s*(T1**4-T2**4))       //Surface area of the filament (m^2)
+
+//Result:
+printf("The surface area of the filament is : %.2f cm^2",A*10**4)