5 files changed, 87 insertions, 0 deletions
diff --git a/3756/CH4/EX4.1/Ex4_1.sce b/3756/CH4/EX4.1/Ex4_1.sce
new file mode 100644
index 000000000..88beff375
--- /dev/null
+++ b/3756/CH4/EX4.1/Ex4_1.sce
@@ -0,0 +1,19 @@
+clc
+//
+//
+//
+
+//Variable declaration
+theta1=9.9       //rotation of plane
+l=2              //Length
+c=0.08           //Concentration
+s2=66            //specific rotation
+
+//Calculations
+s1=((theta1)/(l*c))
+pis=((s2-s1)/s2)*100
+pps=100-pis
+
+
+//Result
+printf("\n percentage of purity of sample %0.3f percentage",pps)
diff --git a/3756/CH4/EX4.2/Ex4_2.sce b/3756/CH4/EX4.2/Ex4_2.sce
new file mode 100644
index 000000000..54e9568f4
--- /dev/null
+++ b/3756/CH4/EX4.2/Ex4_2.sce
@@ -0,0 +1,21 @@
+clc
+//
+//
+//
+
+//Variable declaration
+muclad=1.48   //Refractive index of claddings
+mucore=1.5    //Refractive index of core
+
+//Calculations
+thetac=(180/%pi)*(asin(muclad/mucore))
+fri=(mucore-muclad)/mucore
+aa=(sqrt((mucore**2)-(muclad**2)))
+NA=sin(aa)
+//Result
+printf("\n (a) The critical angle is :%2.2f degrees",thetac)
+printf("\n (b) The Fractional refractive index is :%1.3f ",fri)
+
+printf("\n (c) The Acceptance angle is :%1.3f Radians",aa)
+printf("\n (d) The Numerical Apperture is :%1.3f ",NA)
+
diff --git a/3756/CH4/EX4.3/Ex4_3.sce b/3756/CH4/EX4.3/Ex4_3.sce
new file mode 100644
index 000000000..16ee16778
--- /dev/null
+++ b/3756/CH4/EX4.3/Ex4_3.sce
@@ -0,0 +1,19 @@
+clc
+//
+//
+//
+
+//Variable declaration
+a=25*10**-6                   //core radius
+lambdaa=0.85*10**-6    //Wavelength
+NA=0.22                //Numerical Aperture
+
+//Calculations
+V=((2*3.14*a*0.22)/lambdaa)
+N=((V**2)/4)
+
+//Result
+printf("\n (a) The V number is %2.2f ",V)
+
+printf("\n (b) The number of modes are %3.2f ",N)
+
diff --git a/3756/CH4/EX4.4/Ex4_4.sce b/3756/CH4/EX4.4/Ex4_4.sce
new file mode 100644
index 000000000..2cd6c39c0
--- /dev/null
+++ b/3756/CH4/EX4.4/Ex4_4.sce
@@ -0,0 +1,14 @@
+clc
+//
+//
+//
+
+//Variable declaration
+c=3*10**8
+delf=3000    //Bandwidth
+
+//Calculations
+lc=(c/delf)
+
+//Result
+printf("\n The coherence length of the laser beam is %0.3f m or 10**5 m",lc)
diff --git a/3756/CH4/EX4.5/Ex4_5.sce b/3756/CH4/EX4.5/Ex4_5.sce
new file mode 100644
index 000000000..172a701eb
--- /dev/null
+++ b/3756/CH4/EX4.5/Ex4_5.sce
@@ -0,0 +1,14 @@
+clc
+//
+//
+//
+
+//Variable declaration
+lambdaa=5*10**-5        //Wavelength
+theta=32                //Angle subtended by the sun at the slit
+
+//Calculations
+l=((lambdaa*60*180)/(theta*3.14))
+
+//Result
+printf("\n The transverse coherence length is %1.3f cm",l)