variables - mathematica で変数を割り当てる

Question

PD 関数を解くために、matematica モジュールで変数を割り当てる際に助けを求めることはできますか。

 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]) *)