summaryrefslogtreecommitdiff
path: root/1535/CH11/EX11.4
diff options
context:
space:
mode:
authorpriyanka2015-06-24 15:03:17 +0530
committerpriyanka2015-06-24 15:03:17 +0530
commitb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch)
treeab291cffc65280e58ac82470ba63fbcca7805165 /1535/CH11/EX11.4
downloadScilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.gz
Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.bz2
Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.zip
initial commit / add all books
Diffstat (limited to '1535/CH11/EX11.4')
-rwxr-xr-x1535/CH11/EX11.4/Ch11Ex4.sci14
1 files changed, 14 insertions, 0 deletions
diff --git a/1535/CH11/EX11.4/Ch11Ex4.sci b/1535/CH11/EX11.4/Ch11Ex4.sci
new file mode 100755
index 000000000..a8a76c654
--- /dev/null
+++ b/1535/CH11/EX11.4/Ch11Ex4.sci
@@ -0,0 +1,14 @@
+// Scilab Code Ex11.4: Page-250 (2010)
+lambda = 500e-009; // Wavelength of laser light, m
+f = 15e-02; // Focal length of the lens, m
+d = 2e-02; // Diameter of the aperture of source, m
+a = d/2; // Radius of the aperture of source, m
+P = 5e-003; // Power of the laser, W
+A = %pi*lambda^2*f^2/a^2; // Area of the spot at the focal plane, metre square
+I = P/A; // Intensity at the focus, W per metre square
+printf("\nThe area of the spot at the focal plane = %4.2e metre square", A);
+printf("\nThe intensity at the focus = %4.2e watt per metre square", I);
+
+// Result
+// The area of the spot at the focal plane = 1.77e-010 metre square
+// The intensity at the focus = 2.83e+007 watt per metre square \ No newline at end of file