24小时热门版块排行榜    

查看: 338  |  回复: 1

ilovexiaomu

金虫 (小有名气)

[求助] 二重积分问题

各位虫友,遇到一个比较复杂含参变量的二重积分,想进行数值编程,但是苦于对mathematica代码的不熟悉,现求助各位尝试修改一下代码,能计算二重积分的mathematica代码
新搜素了相关的数值积分程序,但是运行结果出现了不一样的地方,望各位帮忙解答一下:
Clear["Global`*"];
f[x_] := x^2 + y;
n = 20; a = 0; b = 1; ya = 2; yb = 3;
ssx1 = Sum[(1 + (-1)^i)*f[a + i*(b - a)/n], {i, 1,
   n - 1}];(*ss1=2y2+2y4+\[Ellipsis]+2yn-2*)
ssx2 = Sum[(1 - (-1)^i)*f[a + i*(b - a)/n], {i, 1,
   n - 1}];
sxy[y_] :=
N[(f[a] + f + ssx1 + 2 ssx2)*(b - a)/3/n, 2] // FullSimplify;
ssy1 = Sum[(1 + (-1)^i)*sxy[ya + i*(yb - ya)/n], {i, 1,
   n - 1}];
ssy2 = Sum[(1 - (-1)^i)*sxy[ya + i*(yb - ya)/n], {i, 1,
   n - 1}];
s = N[(sxy[ya] + sxy[yb] + ssy1 + 2 ssy2)*(yb - ya)/3/n, 2] //
  FullSimplify;
Print["s=", s]
Integrate[sxy[y], {y, 2, 3}]
输出结果为什么会出现不一样的情况呢?
s=0.33+1.0 y

Out[199]= 2.8
还望各位帮忙解答
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐,对您同样有帮助:

已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

ilovexiaomu

金虫 (小有名气)

问题已经解决
2楼2015-05-19 11:37:48
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 ilovexiaomu 的主题更新
信息提示
请填处理意见