summaryrefslogtreecommitdiff
path: root/2855/CH1/EX1.11/Ex1_11.sce
blob: 043da93d6d8ee86aa26fd761c04049bee716b0db (plain)
1
2
3
4
5
6
7
8
9
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