怎么用Mathematica计算∬sin(e^(x*y))dydx的近似值，双重积分的上限均是1，下限均是0?

您可以使用Mathematica的NIntegrate函数来计算该双重积分的近似值。以下是计算的代码示例：

f[x_, y_] := Sin[Exp[x*y]]
result = NIntegrate[f[x, y], {x, 0, 1}, {y, 0, 1}]

在上述代码中，我们定义了函数f[x, y]，然后使用NIntegrate函数进行积分计算。{x, 0, 1}和{y, 0, 1}指定了双重积分的变量范围。

最后，将计算结果存储在result变量中。您可以根据需要进一步处理或输出result的值。