diff options
Diffstat (limited to '2780/CH2/EX2.20/Ex2_20.sce')
| -rwxr-xr-x | 2780/CH2/EX2.20/Ex2_20.sce | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/2780/CH2/EX2.20/Ex2_20.sce b/2780/CH2/EX2.20/Ex2_20.sce new file mode 100755 index 000000000..4b13f89cc --- /dev/null +++ b/2780/CH2/EX2.20/Ex2_20.sce @@ -0,0 +1,12 @@ +clc
+//to calculate thickness of the film
+mu=1.33 //refractive index of soap film (unitless)
+i=45*%pi/180
+//the formula is mu=sini/sinr
+sinr=0.5317
+cosr=sqrt(1-(sinr)^2)
+//for destructive interference
+lambda=5890*10^-10 //wavelength in m
+n=1
+t=n*lambda/(2*mu*cosr)
+disp("the thickness of the film is t="+string(t)+"m")
|