initial commit / add all books

7 files changed, 76 insertions, 0 deletions

diff --git a/374/CH9/EX9.1/91.sci b/374/CH9/EX9.1/91.sci
new file mode 100644
index 000000000..f65733c0b
--- /dev/null
+++ b/374/CH9/EX9.1/91.sci
@@ -0,0 +1,11 @@
+//chapter 9 example 1//
+clc
+clear
+//length of multimode fibre=L1,measured output voltage=Vf,measured output voltage after adding=Vn,fibre cut back to a length=L2,attenuation=adB//
+L1=2;//in km//
+L2=0.002;//in km//
+Vn=10;//in volts//
+Vf=2.1;//in volts//
+p=log(Vn/Vf)*0.43;
+adB=(10*p)/(L1-L2);
+printf("\n attenuation per km=%f m\n",adB)
\ No newline at end of file
diff --git a/374/CH9/EX9.2/92.sci b/374/CH9/EX9.2/92.sci
new file mode 100644
index 000000000..35f05e329
--- /dev/null
+++ b/374/CH9/EX9.2/92.sci
@@ -0,0 +1,11 @@
+//chapter 9 example 2//
+clc
+clear
+//length of multimode fibre=L1,measured output optical pwer at far end=Pf,measured output optical power at near end=Pn,fibre cut back to a length=L2,attenuation=adB//
+L1=1.5;//in km//
+L2=0.002;//in km//
+Pn=385.4;//in microwatts//
+Pf=50.1;//in micro watts//
+k=log(Pn/Pf)*0.43;
+adB=(10*k)/(L1-L2);
+printf("\n attenuation per km=%f m\n",adB)
\ No newline at end of file
diff --git a/374/CH9/EX9.3/93.sci b/374/CH9/EX9.3/93.sci
new file mode 100644
index 000000000..0473588a8
--- /dev/null
+++ b/374/CH9/EX9.3/93.sci
@@ -0,0 +1,10 @@
+//chapter 9 example 3//

+clc

+clear

+//fibre bandwidth length product=Bopt,3dB pulse dispersion for the fibre in ns km-1=T,time at which output pulses are found=To,time at which input optical pulses are found=Ti//

+To=12.7;//in nano seconds//

+Ti=0.4;//in nano seconds//

+T=(sqrt((To^2)-(Ti^2)))/1.2;//time at which 3dB pulse boardaning is obtained//

+printf("\n a) time at which 3dB pulse boardaning is obtained=%f ns/km\n",T)

+Bopt=(0.44/T)*1000;//optical bandwidth of the fibre//

+printf("\n b) fibre bandwidth length product=%f MHz Km\n",Bopt)
\ No newline at end of file
diff --git a/374/CH9/EX9.4.a/94a.sci b/374/CH9/EX9.4.a/94a.sci
new file mode 100644
index 000000000..67b4728df
--- /dev/null
+++ b/374/CH9/EX9.4.a/94a.sci
@@ -0,0 +1,11 @@
+//chapter 9 example 4a//

+clc

+clear

+//angular velocity=A,llength at which rotating mirror from the photo detector=L,shadow pulse of width=We,shadow velocity=V,outer diametetr=do//

+L=0.1;//in mts//

+A=4;//in rad sec-1//

+V=L*A;//in mts/sec//

+printf("\n shadow velocity=%f m/sec\n",V)

+We=250;//in micro seconds//

+do=We*V;//outer diameter of the fibre//

+printf("\n outer diamter of the fibre=%f micro meter\n",do)
\ No newline at end of file
diff --git a/374/CH9/EX9.4/94.sci b/374/CH9/EX9.4/94.sci
new file mode 100644
index 000000000..00b609fbf
--- /dev/null
+++ b/374/CH9/EX9.4/94.sci
@@ -0,0 +1,10 @@
+//chapter 9 example 4//

+clc

+clear

+//angular limit of the far field pattern=Am,length of the picture=l,numerical aperture=NA,distance of the fibre output end face from the screen=L//

+Am=26.1;//in degrees//

+NA=sind(Am);//numerical aperture//

+printf("\n numerical aperture=%f \n",NA)

+l=16.7;//in cm//

+L=(l/2)/(tand(Am));

+printf("\n distance from the screen=%f cm\n",L)
\ No newline at end of file
diff --git a/374/CH9/EX9.5.a/95a.sci b/374/CH9/EX9.5.a/95a.sci
new file mode 100644
index 000000000..d5a5ca2e1
--- /dev/null
+++ b/374/CH9/EX9.5.a/95a.sci
@@ -0,0 +1,15 @@
+//chapter 9 example5a//

+clc

+clear

+//input power=P1,output power=P2,output power at the end of added fibre=P3,insertion loss of the connector=Ls,excess loss of the conductor=dLs//

+Po=83.2;//in micro watts//

+Pi=100;//in micro watts//

+Ls=-10*(log(Po/Pi)*0.43)

+printf("\n insertion loss of the connector=%f m\n",Ls)

+Ls=0.8;//in km//

+L=1.8;//in km//

+a=1.9;//constant//

+P3=35.5;//in micro watts//

+k=-(10*(log(P3/Pi)*0.43));

+dLs=k-Ls-(a*L);

+printf("\n loss of the conductor=%f dB\n",dLs)

diff --git a/374/CH9/EX9.5/95.sci b/374/CH9/EX9.5/95.sci
new file mode 100644
index 000000000..f36f5f59a
--- /dev/null
+++ b/374/CH9/EX9.5/95.sci
@@ -0,0 +1,8 @@
+//chapter 9 example 5//

+clc

+clear

+//numerical aperture=NA,distance from the screen to fibre end space=D,measured output pattern size=A//

+A=6;//in cm//

+D=10;//in cm//

+NA=A/(sqrt((A^2)+4*(D^2)));

+printf("\n numerical aperture=%f m\n",NA)
\ No newline at end of file