1 files changed, 13 insertions, 0 deletions
diff --git a/273/CH14/EX14.1/ex14_1.sce b/273/CH14/EX14.1/ex14_1.sce
new file mode 100755
index 000000000..62aecacf1
--- /dev/null
+++ b/273/CH14/EX14.1/ex14_1.sce
@@ -0,0 +1,13 @@
+clc;clear;
+//Example 14.1
+//calculation of intensity of laser beam
+
+//given values
+P=10*10^-3;//Power in Watt
+d=1.3*10^-3;//diametre in m
+A=%pi*d^2/4;//area in m^2
+
+
+//calculation
+I=P/A;
+disp(I,'intensity (in W/m^2) is');
+\ No newline at end of file