path: root/2414/CH15/EX15.4/Ex15_4.sce

clc;
close();
clear();
//page no 504
//prob no. 15.4
d=10^5;  //m
Pt=100;  //W
Pd=Pt/(4*%pi*d^2);
mprintf('The power density is ,Pd= %.1f pW/m^2',Pd*10^12);