summaryrefslogtreecommitdiff
path: root/2780/CH5/EX5.4/Ex5_4.sce
blob: 7d1c7ddd1d86fb627ec2f5418cc2d76bcc189cb9 (plain)
1
2
3
4
5
6
7
8
9
10
11
clc
//to calculate area and intensity of the image
lambda=7200*10^-10 //wavelength in m
d=5*10^-3 //aperture in m
dtheta=lambda/d //angular spread in radian 
f=0.1 //focal length in m
arealspread=(dtheta*f)^2
disp("areal spread ="+string(arealspread)+"m^2")
power=50*10^-3
I=power/arealspread
disp("intensity of the image is I="+string(I)+"watts/m^2")