1 files changed, 9 insertions, 0 deletions

diff --git a/3845/CH20/EX20.5/Ex20_5.sce b/3845/CH20/EX20.5/Ex20_5.sce
new file mode 100644
index 000000000..72b8e6f9b
--- /dev/null
+++ b/3845/CH20/EX20.5/Ex20_5.sce
@@ -0,0 +1,9 @@
+//Example 20.5

+rho=5.6*10^-8;//Resistivity of tungsten (ohm.m)

+L=4*10^-2;//Length (m)

+R=0.350;//Resistance (ohm)

+A=rho*L/R;//Cross-sectional area of filament (m^2)

+D=2*sqrt(A/%pi);//Diameter (m)

+printf('Filament diameter = %0.1e m',D)

+//Openstax - College Physics

+//Download for free at http://cnx.org/content/col11406/latest