summaryrefslogtreecommitdiff
path: root/1871/CH6/EX6.1/Ch06Ex1.sce
diff options
context:
space:
mode:
Diffstat (limited to '1871/CH6/EX6.1/Ch06Ex1.sce')
-rwxr-xr-x1871/CH6/EX6.1/Ch06Ex1.sce11
1 files changed, 11 insertions, 0 deletions
diff --git a/1871/CH6/EX6.1/Ch06Ex1.sce b/1871/CH6/EX6.1/Ch06Ex1.sce
new file mode 100755
index 000000000..b02aab573
--- /dev/null
+++ b/1871/CH6/EX6.1/Ch06Ex1.sce
@@ -0,0 +1,11 @@
+// Scilab code Ex6.1: Pg:247 (2008)
+clc;clear;
+i_p = 60; // Angle of polarization, degree
+mu = tand(i_p); // Refractive index of the material
+r = 90-i_p; // Angle of refraction, degree
+printf("\nThe refractive index of the material = %5.3f ", mu);
+printf("\nThe angle of refraction = %2d degree", r);
+
+// Result
+// The refractive index of the material = 1.732
+// The angle of refraction = 30 degree \ No newline at end of file