diff options
Diffstat (limited to '1871/CH6/EX6.2/Ch06Ex2.sce')
-rwxr-xr-x | 1871/CH6/EX6.2/Ch06Ex2.sce | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/1871/CH6/EX6.2/Ch06Ex2.sce b/1871/CH6/EX6.2/Ch06Ex2.sce new file mode 100755 index 000000000..f9b611cb2 --- /dev/null +++ b/1871/CH6/EX6.2/Ch06Ex2.sce @@ -0,0 +1,12 @@ +// Scilab code Ex6.2: Pg:247 (2008)
+clc;clear;
+mu = 1.50; // Refractive index of the material
+// Since mu = tan i_p, solving for i_p
+i_p = atand(mu); // Angle of polarization, degree
+r = 90-i_p; // Angle of refraction, degree
+printf("\nThe angle of polarization = %4.1f degree", i_p);
+printf("\nThe angle of refraction = %4.1f degree", r);
+
+// Result
+// The angle of polarization = 56.3 degree
+// The angle of refraction = 33.7 degree
\ No newline at end of file |