3 files changed, 31 insertions, 0 deletions
diff --git a/1784/CH41/EX41.1/example2.sce b/1784/CH41/EX41.1/example2.sce
new file mode 100755
index 000000000..8af1b6cdb
--- /dev/null
+++ b/1784/CH41/EX41.1/example2.sce
@@ -0,0 +1,13 @@
+//example_2
+//chapter 41
+theta_1=30
+n_qa=1.4702
+theta2=asind(sind(theta_1)/n_qa)
+disp("For 4000 A beam, theta_2 in degree=")
+disp(theta2)
+
+theta_1=30
+n_qa=1.4624
+theta2=asind(sind(theta_1)/n_qa)
+disp("For 5000 A beam, theta_2 in degree=")
+disp(theta2)
+\ No newline at end of file
diff --git a/1784/CH41/EX41.4/example4.sce b/1784/CH41/EX41.4/example4.sce
new file mode 100755
index 000000000..36a8b04c6
--- /dev/null
+++ b/1784/CH41/EX41.4/example4.sce
@@ -0,0 +1,6 @@
+//example 4
+// chapter 41
+//clc()
+disp("Index reflection=")
+n=1/sind(45)
+disp(n)
+\ No newline at end of file
diff --git a/1784/CH41/EX41.5/example_5.sce b/1784/CH41/EX41.5/example_5.sce
new file mode 100755
index 000000000..d8be803e1
--- /dev/null
+++ b/1784/CH41/EX41.5/example_5.sce
@@ -0,0 +1,12 @@
+//Example 4
+//Chapter 41
+//clc()
+n2=1.33
+n1=1.50
+theta_c=asind(n2/n1)
+disp(theta_c,"Angle theta_c in degree=")
+disp("Actual angle of indices =45 is less than theta_ c, so there \n is no internal angle reflection")
+disp("angle of refraction=")
+x=n1/n2
+theta_2=asind(x*sind(45))
+disp(theta_2,"theta_2 in degree=")
+\ No newline at end of file