initial commit / add all books

4 files changed, 81 insertions, 0 deletions

diff --git a/3480/CH5/EX5.1/Ex5_1.sce b/3480/CH5/EX5.1/Ex5_1.sce
new file mode 100644
index 000000000..50119c7c7
--- /dev/null
+++ b/3480/CH5/EX5.1/Ex5_1.sce
@@ -0,0 +1,9 @@
+//Example 5.1, page no 101
+clc
+n_air=1//refractive index of air
+n_glass=1.5//refractive index of glass
+n_water=1.33//refractive index of water
+s1=n_glass/(((n_glass-n_air)/2)-(n_air/5))
+s2=n_water/(((n_water-n_glass)/-2)-(n_glass/-28))
+printf("\n The value of s1 is +%f  cm",s1)
+printf("\n The value of s2 is +%f  cm",s2)
\ No newline at end of file
diff --git a/3480/CH5/EX5.2/Ex5_2.sce b/3480/CH5/EX5.2/Ex5_2.sce
new file mode 100644
index 000000000..61baa8b33
--- /dev/null
+++ b/3480/CH5/EX5.2/Ex5_2.sce
@@ -0,0 +1,37 @@
+//Example 5.2, page 107
+clc
+r1=1.5//in cm
+r2=1.5//in cm
+d=2//in cm
+n=1//in cm
+n1=1.60//in cm
+n11=1.30//in cm
+n_by_f1=(n1-n)/r1
+n1_by_f21=(n11-n1)/r2
+f1=n/n_by_f1
+f11=n1/n_by_f1
+f21=n1/n1_by_f21
+f211=n11/n1_by_f21
+disp("Part a")
+printf("\n The focal length f1 is +%f cm",f1)
+printf("\n The focal length f11 is +%f cm",f11)
+printf("\n The focal length f21 is -%f cm",f21)
+printf("\n The focal length f211 is -%f cm",f211)
+n_by_f=(n1/f11)+(n11/f211)-((d*n11)/(f11*f211))
+f=1/n_by_f
+f11=n11/n_by_f
+A1_f=(-f)*(1-(d/f21))
+A2_f211=f11*(1-(d/f11))
+disp("Part b")
+printf("\n The primary focal length is %f cm",A1_f)
+printf("\n The secondary focal length is %f cm",A2_f211)
+A1_h=f*(d/f21)
+A2_h11=-f11*(d/f11)
+disp("Part c")
+printf("\n The primary point is %f cm",A1_h)
+printf("\n The secondary point is %f cm",A2_h11)
+
+
+
+
+
diff --git a/3480/CH5/EX5.3/Ex5_3.sce b/3480/CH5/EX5.3/Ex5_3.sce
new file mode 100644
index 000000000..049d7ddeb
--- /dev/null
+++ b/3480/CH5/EX5.3/Ex5_3.sce
@@ -0,0 +1,7 @@
+//Example 5.3, Page 111
+clc
+n=1
+n11=1.3
+f11=4.333//in cm
+HN=f11*((n11-n)/n11)
+printf("Nodal length is %f cm",HN)
\ No newline at end of file
diff --git a/3480/CH5/EX5.4/Ex5_4.sce b/3480/CH5/EX5.4/Ex5_4.sce
new file mode 100644
index 000000000..541b7758b
--- /dev/null
+++ b/3480/CH5/EX5.4/Ex5_4.sce
@@ -0,0 +1,28 @@
+//Example 5.4, page 113
+clc
+n1=1.50
+n2=1.60
+n_dash=1.33
+n_doubledash=1
+p1=((n1-n_doubledash)/.04)+((n_dash-n1)/-0.04)
+p2=((n2-n_dash)/-.06)+((n_doubledash-n2)/.06)
+p=p1+p2+(-.015*p1*p2)
+printf("The power is %f D", p)
+//Part b
+f=1/p
+f_doubledash=1/p
+printf("\nThe focal length f is %f m",f)
+printf("\n The focal length f'' is %f m",f_doubledash)
+//Part c
+A1f=-(1/p)*(1+(.015*14.45))
+A2H=-(1/p)*((.015*-4.45))
+A2f11=-(1/p)*(1-(.015*16.67))
+printf("\nThe focal point A1F is %f m",A1f)
+printf("\nThe focal point A2H is %f m",A2H)
+printf("\nThe focal point A2F11 is %f m",A2f11)
+//Part d
+A2H11=(1/p)*0.015*16.67
+printf("\nThe principal point is %f m",A2H11)
+
+
+