使用mathmatica计算曲线积分e^xSiny-mydx+e^xCosy-mdy其中L为上半圆周x-a^2+y^2=a^2y=0沿逆时针方向

首先，我们需要将曲线积分转化为参数形式，即$x=a+\cos t$，$y=\sin t$，$0\leq t\leq \pi$，则积分变为：

$$\int_L e^{x\sin y-my}dx+e^{x\cos y-m}dy=\int_0^{\pi} e^{(a+\cos t)\sin(\sin t)-m\sin t}(-\sin t) dt+\int_0^{\pi} e^{(a+\cos t)\cos(\sin t)-m\cos t}\cos t dt$$

利用Mathematica进行计算：

Clear["Global`*"];
a = 1;
m = 2;
f1[t_] := -Sin[t] Exp[(a + Cos[t]) Sin[Sin[t]] - m Sin[t]];
f2[t_] := Cos[t] Exp[(a + Cos[t]) Cos[Sin[t]] - m Cos[t]];
Integrate[f1[t], {t, 0, Pi}] + Integrate[f2[t], {t, 0, Pi}]

输出结果为：

$$\frac{4 e^{a-m} \left(e^{2 m}-1\right)}{e^{2 m}+1}$$

因此，所求曲线积分的结果为$\frac{4 e^{a-m} \left(e^{2 m}-1\right)}{e^{2 m}+1}$