blob: 1e32738c8cd570acb3b2390727f5d829ad0e1e34 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
//Chapter 3 : Polarization
clear;
//Variable declaration
theta=(60*%pi/180) //angle in radians
//Calculations
Intensityred=100-(1-cos(theta)**2)*100
//Result
mprintf("Percentage of light that passes through = %d percent",Intensityred)
|
