summaryrefslogtreecommitdiff
path: root/2411/CH8/EX8.1/Ex8_1.sce
diff options
context:
space:
mode:
authorpriyanka2015-06-24 15:03:17 +0530
committerpriyanka2015-06-24 15:03:17 +0530
commitb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch)
treeab291cffc65280e58ac82470ba63fbcca7805165 /2411/CH8/EX8.1/Ex8_1.sce
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 '2411/CH8/EX8.1/Ex8_1.sce')
-rwxr-xr-x2411/CH8/EX8.1/Ex8_1.sce17
1 files changed, 17 insertions, 0 deletions
diff --git a/2411/CH8/EX8.1/Ex8_1.sce b/2411/CH8/EX8.1/Ex8_1.sce
new file mode 100755
index 000000000..490d0ace4
--- /dev/null
+++ b/2411/CH8/EX8.1/Ex8_1.sce
@@ -0,0 +1,17 @@
+// Scilab Code Ex8.1: Page-397 (2008)
+clc; clear;
+lambda = 6000e-008; // Wavelength of the lase beam, cm
+P = 10e-003; // Power of the laser beam, W
+theta = 1.5e-004; // Angular spread of laser beam, rad
+f = 10; // Focal length of the lens, cm
+r = f*theta; // Radius of the image, cm
+rho = P/(%pi*r^2*1e+003); // Power density of the image, kW/Sq.cm
+L_w = lambda/(theta/10); // Coherence width, mm
+printf("\nThe radius of the image = %3.1e cm", r);
+printf("\nThe power density of the image = %3.1f kW/Sq.cm", rho);
+printf("\nThe coherence width = %d mm", L_w);
+
+// Result
+// The radius of the image = 1.5e-03 cm
+// The power density of the image = 1.4 kW/Sq.cm
+// The coherence width = 4 mm