求助:mathematica 一直算不出结果,纠结一天了。
mathematica吧
全部回复
仅看楼主
level 2
🌱鹏💦 楼主
r1 = 1/2 (Cos[x] + Cos[y])
r2 = Cos[x]*Cos[y]
a = 2*(j1 - j2 + j2*r2 - j1*r1)*z*sa + d1*(2*sa - 1) + jz*sb
b = 2*(j3 - j4 + j4*r2 - j3*r1)*z*sb + d2*(2*sb - 1) + jz*sa
c = jz*Sqrt[sa*sb]
w1 = (a - b + Sqrt[(a + b)^2 - 4*c^2])/2
w2 = (-a + b + Sqrt[(a + b)^2 - 4*c^2])/2
q1 = w1/(Exp[w1/t] - 1)
q2 = w2/(Exp[w2/t] - 1)
Integrate[q1 + q2, {x, -Pi, Pi}, {y, -Pi, Pi}]
除x,y,其他当成常量,求救啊!~[泪]
2018年09月12日 14点09分 1
level 8
太难了,算不出来[阴险]
2018年09月13日 07点09分 2
[泪][泪]不会吧
2018年09月13日 07点09分
吧务
level 15
……在压根搞不清积分有没有符号解的情况下就跑去积这么复杂的、含有大量字母参量(而且你还没设清楚范围)的表达式基本就是自杀行为。何况这种指数上套根号加三角的表达式多半就是积不出来,如果还不死心,可以给参量代组数值进去:
test = q1 + q2 /. d1 | d2 | jz | j1 | j2 | j3 | z | j4 | sa | sb | t -> 1
Integrate[test /. y -> 0, {x, -Pi, Pi}] // AbsoluteTiming
这次30来秒就原样返回了嗯。
2018年10月06日 07点10分 4
吧务
level 15
仔细一看Lz已经在别处转战数值解了:https://mmaqa.com/qa/2503/nintegrate-inumri
并且看样子这积分本身就有问题嗯。
2018年10月06日 15点10分 5
1