summaryrefslogtreecommitdiff
path: root/1514/CH19/EX19.1/19_1.sce
blob: 8753be49eae9db3fe8e580e95772fc0f803ffa7b (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
//chapter 19
//example 19.1
//page 590
clear all;
clc ;
//given
r=3;//distance from lamp in m
L=25;//luminous flux or light energy in W
E=100*L/(4*%pi*(r^2));//light intensity
A=0.25;//area in cm^2
printf("\nLight intensity =%.1f microW/cm^2",E);
totphi=E*A;
printf("\nTotal Flux =%.1f microW",totphi);