12 files changed, 171 insertions, 0 deletions
diff --git a/3769/CH18/EX18.1/Ex18_1.sce b/3769/CH18/EX18.1/Ex18_1.sce
new file mode 100644
index 000000000..9f97969a8
--- /dev/null
+++ b/3769/CH18/EX18.1/Ex18_1.sce
@@ -0,0 +1,16 @@
+clear
+//Given
+A=60                            //Degree
+
+//Calculation
+//
+a=sqrt(2)*sin(30*3.14/180.0)
+b=asin(a)*180/3.14
+c=(b*2)-A
+i=(A+c)/2.0
+r=A/2.0
+
+//Result
+printf("\n (i) Angle of minimum deviation is %0.0f  Degree",c)
+printf("\n (ii) Angle of incidence is %0.0f  Degree",i)
+printf("\n (iii) The angle of refraction is %0.3f  Degree", r)
diff --git a/3769/CH18/EX18.10/Ex18_10.sce b/3769/CH18/EX18.10/Ex18_10.sce
new file mode 100644
index 000000000..e6b5b9f83
--- /dev/null
+++ b/3769/CH18/EX18.10/Ex18_10.sce
@@ -0,0 +1,11 @@
+clear
+//given
+w=0.031
+ur=1.645
+ub=1.665
+
+//Calculation
+u=1+((ub-ur))/w
+
+//Result
+printf("\n Refrective index for yellow colour is %0.3f  ",u)
diff --git a/3769/CH18/EX18.11/Ex18_11.sce b/3769/CH18/EX18.11/Ex18_11.sce
new file mode 100644
index 000000000..07377ec8a
--- /dev/null
+++ b/3769/CH18/EX18.11/Ex18_11.sce
@@ -0,0 +1,15 @@
+clear
+//Given
+A=5                          //Degree
+uv=1.523
+ur=1.515
+uv1=1.688
+ur1=1.650
+
+//Calculation
+u=(uv+ur)/2.0
+u1=(uv1+ur1)/2.0
+A1=-((u-1)*A)/(u1-1)
+
+//Result
+printf("\n Angle of flint line is %0.2f  degree",A1)
diff --git a/3769/CH18/EX18.12/Ex18_12.sce b/3769/CH18/EX18.12/Ex18_12.sce
new file mode 100644
index 000000000..f30892eea
--- /dev/null
+++ b/3769/CH18/EX18.12/Ex18_12.sce
@@ -0,0 +1,13 @@
+clear
+//Given
+w=0.021
+u=1.53
+w1=0.045
+u1=1.65
+A1=4.20                        //Degree
+
+//Calculation
+A=-(w1*A1*(u1-1))/(w*(u-1))
+
+//Result
+printf("\n Angle of the prism is %0.2f  Degree",A)
diff --git a/3769/CH18/EX18.13/Ex18_13.sce b/3769/CH18/EX18.13/Ex18_13.sce
new file mode 100644
index 000000000..ebefeea29
--- /dev/null
+++ b/3769/CH18/EX18.13/Ex18_13.sce
@@ -0,0 +1,36 @@
+clear
+//Given
+A=72                          //Degree
+ab=56.4                       //Degree
+ar=53                          //Degree
+ay=54.6                        //Degree
+az=54
+A11=60                         //Degree
+ab1=52.8                       
+A12=50.6
+A13=51.9
+
+//Calculation
+//
+A1=(A+ay)/2.0
+A2=A/2.0
+ub=(sin(A1*3.14/180.0))/(sin(A2*3.14/180.0))
+A3=(A+ar)/2.0
+ur=(sin(A3*3.14/180.0))/(sin(A2*3.14/180.0))
+A4=(A+az)/2.0
+uy=(sin(A4*3.14/180.0))/(sin(A2*3.14/180.0))
+w=(ub-ur)/(uy-1)
+
+//For flint glass prism
+A5=(A11+ab1)/2.0
+A51=A11/2.0
+ub1=(sin(A5*3.14/180.0))/(sin(A51*3.14/180.0))
+A6=(A11+A12)/2.0
+ur1=(sin(A6*3.14/180.0))/(sin(A51*3.14/180.0))
+A7=(A11+A13)/2.0
+uy1=(sin(A7*3.14/180.0))/(sin(A51*3.14/180.0))
+w1=(ub1-ur1)/(uy1-1)
+w2=w/w1
+
+//Result
+printf("\n The ratio of dispersive power of crown glass and flint glass prism is %0.3f  ",w2)
diff --git a/3769/CH18/EX18.2/Ex18_2.sce b/3769/CH18/EX18.2/Ex18_2.sce
new file mode 100644
index 000000000..72ae7d889
--- /dev/null
+++ b/3769/CH18/EX18.2/Ex18_2.sce
@@ -0,0 +1,14 @@
+clear
+//Given
+a=51                                   //Degree
+A=60                                   //Degree
+
+//Calculation
+//
+b=(A+a)/2.0
+c=A/2.0
+u=(sin(b*3.14/180.0))/(sin(c*3.14/180.0))
+
+//Result
+printf("\n (i) The refracting angle of the prism is %0.3f  Degree", A)
+printf("\n (ii) The refractive index of the material is %0.4f  ",u)
diff --git a/3769/CH18/EX18.3/Ex18_3.sce b/3769/CH18/EX18.3/Ex18_3.sce
new file mode 100644
index 000000000..0060cc81c
--- /dev/null
+++ b/3769/CH18/EX18.3/Ex18_3.sce
@@ -0,0 +1,12 @@
+clear
+//Given
+i1=48                         //Degree
+A=60                          //Degree
+
+//Calculation
+//
+r=A/2.0
+u=sin(i1*3.14/180.0)/sin(r*3.14/180.0)
+
+//Result
+printf("\n Refractive index of the material is %0.2f  ",u)
diff --git a/3769/CH18/EX18.4/Ex18_4.sce b/3769/CH18/EX18.4/Ex18_4.sce
new file mode 100644
index 000000000..4480f26ea
--- /dev/null
+++ b/3769/CH18/EX18.4/Ex18_4.sce
@@ -0,0 +1,11 @@
+clear
+//Given
+a=2.0
+
+//Calculation
+//
+a=sqrt(a)/a
+i=asin(a)*180/3.14
+
+//Result
+printf("\n Angle of incidence is %0.0f  Degree",i)
diff --git a/3769/CH18/EX18.5/Ex18_5.sce b/3769/CH18/EX18.5/Ex18_5.sce
new file mode 100644
index 000000000..993343659
--- /dev/null
+++ b/3769/CH18/EX18.5/Ex18_5.sce
@@ -0,0 +1,10 @@
+clear
+//Given
+u=1.5
+a=6                          //Degree
+
+//Calculation
+A=a/(u-1)
+
+//Result
+printf("\n Angle of the prism is %0.3f  Degree", A)
diff --git a/3769/CH18/EX18.7/Ex18_7.sce b/3769/CH18/EX18.7/Ex18_7.sce
new file mode 100644
index 000000000..bddf5c5d0
--- /dev/null
+++ b/3769/CH18/EX18.7/Ex18_7.sce
@@ -0,0 +1,11 @@
+clear
+//Given
+uv=1.68
+ur=1.56
+A=18                         //degree
+
+//Calculation
+A1=A*(uv-ur)
+
+//Result
+printf("\n Angular dispersion is %0.3f  Degree", A1)
diff --git a/3769/CH18/EX18.8/Ex18_8.sce b/3769/CH18/EX18.8/Ex18_8.sce
new file mode 100644
index 000000000..b41f4a48f
--- /dev/null
+++ b/3769/CH18/EX18.8/Ex18_8.sce
@@ -0,0 +1,11 @@
+clear
+//Given
+av=3.32                              //Degree
+ar=3.22                              //Degree
+a=3.27                               //Degree
+
+//Calculation
+w=(av-ar)/a
+
+//Result
+printf("\n Dispersive power of the flint glass is %0.4f  ",w)
diff --git a/3769/CH18/EX18.9/Ex18_9.sce b/3769/CH18/EX18.9/Ex18_9.sce
new file mode 100644
index 000000000..6a7d45a42
--- /dev/null
+++ b/3769/CH18/EX18.9/Ex18_9.sce
@@ -0,0 +1,11 @@
+clear
+//Given
+ur=1.5155
+uv=1.5245
+
+//Calculation
+u=(ur+uv)/2.0
+w=(uv-ur)/(u-1)
+
+//Result
+printf("\n Dispersive power of the crown glass is %0.4f  ",w)