summaryrefslogtreecommitdiff
path: root/761/CH15/EX15.3/15_3.sce
blob: 3458bb44336bf44021aebcd28530b16aaa81c852 (plain)
1
2
3
4
5
6
7
8
clc;
//page no 520
//prob no. 15.3
//An isotropic radiator with power 100W & dist given is 10km
Pt=100;r=10*10^3;
//Determination of power density at r=10km
Pd=Pt/(4*%pi*(r^2));
disp('nW/m2',Pd*10^9,'Power density at a point 10km');