diff options
Diffstat (limited to '2855/CH1/EX1.11/Ex1_11.sce')
-rwxr-xr-x | 2855/CH1/EX1.11/Ex1_11.sce | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/2855/CH1/EX1.11/Ex1_11.sce b/2855/CH1/EX1.11/Ex1_11.sce new file mode 100755 index 000000000..043da93d6 --- /dev/null +++ b/2855/CH1/EX1.11/Ex1_11.sce @@ -0,0 +1,10 @@ +//Example no 1-11
+//page no. 26
+clc;
+clear;
+//m= p*{m+[2*n/(1-n)^2]^2};
+
+n=1.5; //refractive indices
+p=0.45; //degree of polarisation
+m={p*[2*n/(1-n^2)]^2}/(1-p);
+printf("\n Thus it will require %0.0f reflective plate to achive a degree of polarization equal to 0.45",m); //Result mis rounded of to nearest integer
|