Question

mathematica积分问题,请各位大虾帮忙

我在计算下面式子的时候

θ=.
Integrate[(Cos[θ]Cosh[0.1z]+Cos[2θ]Cosh[0.2z]-Cos[3θ]Cosh[0.3z])^2,{z,0,1}]

mathematica
答案是
1.52366-0.0135615Cos[1.θ]-(0.51511+0.I)Cos[2.θ]+1.00837Cos[3.θ]-(0.51006+0.I)Cos[4.θ]
-1.02193Cos[5.θ]+(0.515272+0.I)Cos[6.θ]+0.ISin[1.θ]+(0.+0.I)Sin[2.θ]+0.ISin[3.θ]+
(0.+ 0.I)Sin[4.θ]+0.ISin[5.θ]+(0.+0.I)Sin[6.θ]

为什么会出现虚数I ？

可以肯定的是，I前面的系数很小，几乎是无穷小，而且如果θ给出一个定值（实数）的话，就不会有虚数出现。

想问各位高手，
（1）怎样修改程序使计算结果中不含I ?（不用 Chop[] 函数）
（2）如果积分式再复杂些，mathematica 就会报错，说不能检查其收敛性。但是如果我将θ给出一个定值（实数）的话，例如
0，Pi/4，Pi/2，Pi....就会很快算出结果出来，而且结果中没有虚数。我该如何定义θ参数才能求解?

谢谢

Answer 1

问题没出错吗？用MATLAB的吗？