From 7f60ea012dd2524dae921a2a35adbf7ef21f2bb6 Mon Sep 17 00:00:00 2001
From: prashantsinalkar
Date: Tue, 10 Oct 2017 12:27:19 +0530
Subject: initial commit / add all books

---
 3638/CH17/EX17.3/Ex17_3.jpg | Bin 0 -> 101159 bytes
 3638/CH17/EX17.3/Ex17_3.sce |  15 +++++++++++++++
 2 files changed, 15 insertions(+)
 create mode 100644 3638/CH17/EX17.3/Ex17_3.jpg
 create mode 100644 3638/CH17/EX17.3/Ex17_3.sce

(limited to '3638/CH17/EX17.3')

diff --git a/3638/CH17/EX17.3/Ex17_3.jpg b/3638/CH17/EX17.3/Ex17_3.jpg
new file mode 100644
index 000000000..5c51c9e6f
Binary files /dev/null and b/3638/CH17/EX17.3/Ex17_3.jpg differ
diff --git a/3638/CH17/EX17.3/Ex17_3.sce b/3638/CH17/EX17.3/Ex17_3.sce
new file mode 100644
index 000000000..1790eb175
--- /dev/null
+++ b/3638/CH17/EX17.3/Ex17_3.sce
@@ -0,0 +1,15 @@
+//Introduction to Fiber Optics by A. Ghatak and K. Thyagarajan, Cambridge, New Delhi, 1999
+//Example 17.3
+//OS=Windows XP sp3
+//Scilab version 5.5.2
+clc;
+clear;
+//given
+lambda0=633e-9;//Wavelength in m
+b=62.5e-6;//Outer radius of silica fiber in m
+N=1;//Number of loops formed by the fiber
+C=0.133;//Value of constant C for a silica fiber at 633 nm
+
+R=8*%pi*C*(b^2)*N/lambda0;//Radius of the circular loop corresponding to a quarter plate formed by the fiber in m
+mprintf("\n R= %.2f cm",R/1e-2);//Division by 10^(-2) to convert into cm
+//The answers vary due to round off error
-- 
cgit