3 files changed, 27 insertions, 0 deletions
diff --git a/2708/CH4/EX4.1/ex_4_1.sce b/2708/CH4/EX4.1/ex_4_1.sce
new file mode 100755
index 000000000..ec5c3bc68
--- /dev/null
+++ b/2708/CH4/EX4.1/ex_4_1.sce
@@ -0,0 +1,9 @@
+//Example 4.1 // Coherence length for laser
+clc;
+//given data :
+v=3000;// bandwidth in Hz
+c=3D8;//speed of light in m/s
+t=1/v;//Coherence time in sec
+l=c*t;//coherence length in m
+l=l/1D3;// to convert in km
+disp(l,"Coherence length for laser in km")
diff --git a/2708/CH4/EX4.2/ex_4_2.sce b/2708/CH4/EX4.2/ex_4_2.sce
new file mode 100755
index 000000000..951d0833a
--- /dev/null
+++ b/2708/CH4/EX4.2/ex_4_2.sce
@@ -0,0 +1,8 @@
+//Example 4.2 // transverse Coherence length 
+clc;
+//given data :
+theta=32;//angle on slit in second
+theta=32*%pi/(60*180);// to convert in radian
+w=5D-5;// wavelength of light used in cm
+C=w/theta;//coherence length in cm
+disp(C,"transverse coherence length in cm")
diff --git a/2708/CH4/EX4.3/ex_4_3.sce b/2708/CH4/EX4.3/ex_4_3.sce
new file mode 100755
index 000000000..0f5d2fd07
--- /dev/null
+++ b/2708/CH4/EX4.3/ex_4_3.sce
@@ -0,0 +1,10 @@
+//Example 4.3 // Degree of non-monochromacity
+clc;
+//given data :
+t=1D-10;//coherence time in sec
+c=3D8;//speed of light in m/s
+w=54D-8;// wavelength of non-monochromacity in m
+B=1/t;//bandwidth in Hz
+v=c/w;//frequency of  source
+D=B/v;// degree of non-monochromacity
+disp(D,"degree of non-monochromacity")