diff options
Diffstat (limited to '1871/CH6/EX6.7')
| -rwxr-xr-x | 1871/CH6/EX6.7/Ch06Ex7.sce | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/1871/CH6/EX6.7/Ch06Ex7.sce b/1871/CH6/EX6.7/Ch06Ex7.sce new file mode 100755 index 000000000..3e751452e --- /dev/null +++ b/1871/CH6/EX6.7/Ch06Ex7.sce @@ -0,0 +1,11 @@ +// Scilab code Ex6.7: Pg:249 (2008)
+clc;clear;
+I_0 = 1; // For simplicity assume maximum intensity to be unity, unit
+theta_A = 60; // Angle between the plane of polarizer and plane of the analyzer for beam A, degree
+theta_B = 30; // Angle between the plane of polarizer and plane of the analyzer for beam B, degree
+I_A = I_0*cosd(theta_A)^2; // Malus' Law for beam A
+I_B = I_0*cosd(theta_B)^2; // Malus' Law for beam A
+printf("\nThe intensity ratio of two emerging beams = %4.2f ", I_A/I_B);
+
+// Result
+// The intensity ratio of two emerging beams = 0.33
|