| Original Message (ID '104253') By Michael: |
| 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}]
|
|
