| Author |
Comment/Response |
Michael
|
 11/03/12 12:37pm
Here's my guess at what you mean:
PowerDensity[antenna_, loc_] := Module[(a,b,c,x,y}, (* decl. variables *)
{a,b,c}=antenna; (* set a,b,c to components of antenna *)
{x, y}=loc; (* set x,y to components of loc *)
c/(4*Pi*((a – x)^2 + (b – y)^2)^(1/2)) (* the return value *)
];
PowerDensity[{1000, 1000, 12}, {0, 0}]
URL: , |
|
