blob: ab89abf0a5765f8d14544232da8b9265eeafb7b1 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
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
|