2855/CH1/EX1.12/Ex1_12.sce


1
2
3
4
5
6
7
8
9
10
11


//Example no 1-12
//page no. 27
clc;
clear;
//I1/I0=cos(w)^2
//k=I1/I0;

w=30;               //angle bw polarizer and analyser in degee
k=cosd(w)^2;
disp(k,'The ratio of optical ray intensity ,I1/I0=');           //Result