diff options
Diffstat (limited to '3740/CH10/EX10.5/Ex10_5.sce')
| -rw-r--r-- | 3740/CH10/EX10.5/Ex10_5.sce | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/3740/CH10/EX10.5/Ex10_5.sce b/3740/CH10/EX10.5/Ex10_5.sce new file mode 100644 index 000000000..ab89abf0a --- /dev/null +++ b/3740/CH10/EX10.5/Ex10_5.sce @@ -0,0 +1,16 @@ +//Optoelectronics - An Introduction, 2nd Edition by J. Wilson and J.F.B. Hawkes
+//Example 10.5
+//OS=Windows XP sp3
+//Scilab version 5.5.2
+clc;
+clear;
+
+//given
+V=4;//Value of Verdet constant in rad m^-1 T^-1
+Mur=1;//Relative permeability of Silica
+Mu0=4*%pi*1e-7;//Permeability of free space in SI Units
+n=10;//Number of turns of the fiber coil
+I=30;//Current flowing through the fiber in A
+
+Thetar=Mu0*Mur*n*V*I;//Corresponding polarization rotation in radians
+mprintf("\n Thetar = %.2f degrees",Thetar*180/%pi);//Multiplying by '180/%pi' to convert in degrees
|