clc;
//Example 14.1
//Page No. 584



//Solution

Prad=100;
r1=1000;
r2=2000;

//(a)

disp("(a)Substituting into equation 14-7 yields, ");

p1=((Prad)/(4*%pi*(r1^2)));

disp('uW/m^2',p1*10^6,"P1 = ");

//(b)

disp("(b)Substituting into equation 14-7 yields, ");

p2=((Prad)/(4*%pi*(r2^2)));

disp('uW/m^2',p2*10^6,"P2 = ");