1 files changed, 14 insertions, 0 deletions
diff --git a/1865/CH4/EX4.5/prob_5.sce b/1865/CH4/EX4.5/prob_5.sce
new file mode 100644
index 000000000..6e5ce54ef
--- /dev/null
+++ b/1865/CH4/EX4.5/prob_5.sce
@@ -0,0 +1,14 @@
+
+//Problem 5
+//Calculate the (1) the line frequency, (2) the bandwidth, (3) the coherence length
+clear
+clc
+w=6058//wavelength (in A)
+dw=0.00550//Doppler width (in A)
+c=3*(10)^8//speed of light
+f=c/(w*(10)^(-10))//the line frequency (in Hz)
+df=(dw*f)/w//bandwidth (in Hz)
+l=c/df//coherence length (in m)
+printf('line frequency = %.f Hz \n',f)
+printf('bandwidth = %.f Hz\n',df)
+printf(' coherence length = %.f m' , l)
+\ No newline at end of file