summaryrefslogtreecommitdiff
path: root/3411/CH1/EX1.6/Ex1_6.sce
diff options
context:
space:
mode:
Diffstat (limited to '3411/CH1/EX1.6/Ex1_6.sce')
-rw-r--r--3411/CH1/EX1.6/Ex1_6.sce26
1 files changed, 26 insertions, 0 deletions
diff --git a/3411/CH1/EX1.6/Ex1_6.sce b/3411/CH1/EX1.6/Ex1_6.sce
new file mode 100644
index 000000000..99f489e0c
--- /dev/null
+++ b/3411/CH1/EX1.6/Ex1_6.sce
@@ -0,0 +1,26 @@
+//Example 1.6
+clc();
+clear;
+//Calculate the wavelengths of light in visible spectrum
+i=35 //units in degrees
+u=1.33
+d=5*10^-5 //units in cm
+r=asin(sin(i*%pi/180)/u) //units in radians
+r=r*180/%pi //units in degrees
+//For n=1
+n=1
+lamda1=(2*u*d*cos(r*%pi/180))/n //units in cm
+printf("For n=1 lamda=%.6fcm which lies in infrared region",lamda1)
+//For n=2
+n=2
+lamda2=(2*u*d*cos(r*%pi/180))/n //units in cm
+printf("\nFor n=2 lamda=%.6fcm which lies in visible region",lamda2)
+//For n=3
+n=3
+lamda3=(2*u*d*cos(r*%pi/180))/n //units in cm
+printf("\nFor n=3 lamda=%.6fcm which lies in visible region",lamda3)
+//For n=4
+n=4
+lamda4=(2*u*d*cos(r*%pi/180))/n //units in cm
+printf("\nFor n=4 lamda=%.6fcm which lies in ultraviolet region",lamda4)
+printf("\nHence absent wavelengths in reflected region are %.6fcm and %.6fcm",lamda2,lamda3)