summaryrefslogtreecommitdiff
path: root/1619/CH1/EX1.7.5/Example1_7_5.sce
diff options
context:
space:
mode:
authorpriyanka2015-06-24 15:03:17 +0530
committerpriyanka2015-06-24 15:03:17 +0530
commitb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch)
treeab291cffc65280e58ac82470ba63fbcca7805165 /1619/CH1/EX1.7.5/Example1_7_5.sce
downloadScilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.gz
Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.bz2
Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.zip
initial commit / add all books
Diffstat (limited to '1619/CH1/EX1.7.5/Example1_7_5.sce')
-rwxr-xr-x1619/CH1/EX1.7.5/Example1_7_5.sce15
1 files changed, 15 insertions, 0 deletions
diff --git a/1619/CH1/EX1.7.5/Example1_7_5.sce b/1619/CH1/EX1.7.5/Example1_7_5.sce
new file mode 100755
index 000000000..1d3938081
--- /dev/null
+++ b/1619/CH1/EX1.7.5/Example1_7_5.sce
@@ -0,0 +1,15 @@
+// Example 1.7.5 page 1.16
+// Will total internal reflection take place?
+
+clc;
+clear;
+
+n1 = 3.6; // RI of GaAs..
+n2 = 3.4; // RI of AlGaAs..
+phi1 = 80; // Angle of Incidence..
+// According to Snell's law...
+// n1*sin(phi1)= n2*sin(phi2);
+//At critical angle phi2 = 90...
+phiC = asind((n2/n1)*sind(90));
+printf('The Critical angel is %.2f degrees',phiC);
+printf('\n\nFor total internal reflection to take place angle\n of incidence should be greater than the critical angle. \nFrom the calculations, we can thus conclude that Total internal reflection will take place');