2

我有一个 matlab m 文件,以便绘制如下所示的积分。我想用mathematica重写这段代码,但我不知道subs()的任何等效函数!有没有身体帮助我?

syms x y w;
fun = (-1/(4.*pi)).*log(x.^2+(y-w).^2);
integral = int(fun, w); 
res_l = subs(integral, w, -0.5);
res_u = subs(integral, w, 0.5);
res = res_u - res_l;
ezsurf(res, [-1,1]);
4

1 回答 1

5

等效的 Mathematica 操作是使用函数实现的,该ReplaceAll函数可以编写如下。

Integrate[Sin[x], x] /. x -> 3
(*Out:  -Cos[3] *)

如果要替换多个值,可以这样实现:

Integrate[Sin[x], x] /. x -> # & /@ { 7, 5, 8, 11, 13}
(* Out: {-Cos[7], -Cos[5], -Cos[8], -Cos[11], -Cos[13]} *)

或者如 Mr.Wizard 所建议的更紧凑和有效的方法:

Integrate[Sin[x], x] /. x -> {7, 5, 8, 11, 13}
于 2012-05-15T07:22:02.300 回答