summaryrefslogtreecommitdiff
path: root/2855/CH1/EX1.10/Ex1_10.sce
blob: 2cc6c1f2123c0aba63fbf42f8cf510432c20d651 (plain)
1
2
3
4
5
6
7
8
9
10
//Example no 1-10
//page no. 26
clc;
clear;
//p=m/{m+[2*n/(1-n)^2]^2};

m=5;            //no. of reflective plates
n=1.33;         //refractive indices
p=m/{m+[2*n/(1-(n)^2)]^2}; //degree of polarisation
printf("\n The degree of polarisation is %0.1f    \n",p);