summaryrefslogtreecommitdiff
path: root/2855/CH1/EX1.11/Ex1_11.sce
diff options
context:
space:
mode:
Diffstat (limited to '2855/CH1/EX1.11/Ex1_11.sce')
-rwxr-xr-x2855/CH1/EX1.11/Ex1_11.sce10
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