clc
// Given That
theta = 60 // angle between plane of vibration of incident beam with optic axis

//Sample Problem 29 Page No. 859
printf("\n # Problem 29 # \n ")
printf("Standard formula used is \n I = A^2*cos^2(theta) \n")
ratio = (tan(theta*%pi /180))^2    // ratio of extraordinary and aordinary intensites
printf("Ratio of extraordinary and ordinary intensites is %f .", ratio)