//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