summaryrefslogtreecommitdiff
path: root/3669/CH14/EX14.10/10.sce
blob: 92acd4c5c25d03ef0886dcb8ee25cc7e4a3c52fe (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14

//Variable declaration
a12=36;       //intensity 1
a22=1;        //intensity 2

//Calculation
a1=sqrt(a12);
a2=sqrt(a22);
Imin=(a1-a2)**2;     //minimum intensity
Imax=(a1+a2)**2;     //maximum intensity
r=Imax/Imin;

//Result
printf('ratio of maximum intensity to minimum intensity is %0.3f     \n',(r))