1 files changed, 15 insertions, 0 deletions
diff --git a/3717/CH15/EX15.3/Ex15_3.sce b/3717/CH15/EX15.3/Ex15_3.sce
new file mode 100644
index 000000000..e9ccefa74
--- /dev/null
+++ b/3717/CH15/EX15.3/Ex15_3.sce
@@ -0,0 +1,15 @@
+// Ex15_3 Page:298 (2014)
+clc;clear;
+P = 2.5e-003;    // Output power of laser source, W
+d = 1.8e-02;    // Diameter of the aperture, m
+a = d/2;    // Radius of the beam, m
+lambda = 5000e-010;    // Wavelength of laser light, m
+f = 20e-002;    // Focal length of the lens, m
+A = %pi*(lambda*f/a)^2;    // Area of the spot at the focal plane, Sq.m
+I = P*(a/(lambda*f))^2/%pi;    // Intensity of the image, W/Sq.m
+printf("\nThe area of the spot at the focal plane = %4.2e Sq.m", A);
+printf("\nThe intensity of the image = %4.2e W/Sq.m", I);
+
+// Result
+// The area of the spot at the focal plane = 3.88e-010 Sq.m
+// The intensity of the image = 6.45e+006 W/Sq.m 
+\ No newline at end of file