variables - 在mathematica中分配变量

Question

在我的 matematica 模块中分配变量以解决我的 PD 函数时，我可以寻求一些帮助吗？

 PD[a_,l_]:= Module[(a=[x1,y1,P],l=[x2,y2]; PD.=P./(4*pi*((x2-x1)^2)+(y2-y1)^2))]

Answer 1

就像是 ：

pd[a_, l_] :=  a[[3]]/(4 Pi ((l[[1]] - a[[1]])^2 + (l[[2]] - a[[2]])^2))

pd[{1, 2, 3}, {4, 5}]
(* 1/(24 \[Pi]) *)

您可能还想重新定义您的论点；例如 ：

pd2[r1_, r2_, p_] = p/(4 Pi EuclideanDistance[r1, r2]^2);

pd2[{1, 2}, {4, 5}, 3]
(* 1/(24 \[Pi]) *)