1 files changed, 20 insertions, 0 deletions
diff --git a/3834/CH13/EX13.4.1/Ex13_4_1.sce b/3834/CH13/EX13.4.1/Ex13_4_1.sce
new file mode 100644
index 000000000..1c029ddaf
--- /dev/null
+++ b/3834/CH13/EX13.4.1/Ex13_4_1.sce
@@ -0,0 +1,20 @@
+//Fiber Optics Communication Technology, by Djafer K. Mynbaev and Lovell L.scheiner
+//Windows 8
+//Scilab version- 6.0.0
+//Example 13.4.1
+clc;
+clear ;
+//given
+
+
+Oe=(10^3)/(4*%pi);
+pfib=0.0128/Oe;//verdet's angle min/Oe-cm for silica fiber
+pcry=9*60/Oe;//verdet's angle min/Oe-cm for BIG(Bi-substituted iron garnet) crystal
+H=1000*Oe;//strength of magnetic field in A/m
+phi=45*60;//angle in minutes
+
+Lfib=phi/(pfib*H);//Length of faraday rotators made from silica fiber in cm
+mprintf("Length of faraday rotators made from silica fiber= %.2f cm",Lfib);
+
+Lcry=phi/(pcry*H);//Length of faraday rotators made from silica fiber in mm
+mprintf("\nLength of faraday rotators made from silica fiber= %.2f mm",Lcry*10);