我的表格是不可或缺的
Int[k_]:=Integrate[Exp[-x]xSin[x]BesselJ[0,k*x],{x,0,10}]
BesselJ[0,kr]
第一种修改后的贝塞尔函数在哪里?
现在我无法从Mathematica获得直接答案。
我想得到的曲线Int[k]
,也许也可以接受一个近似值。那么我该怎么办?
由于该函数没有反导数,所以最好的选择是对数值进行积分。例子:
Int[k_] := NIntegrate[Exp[-x] x Sin[x] BesselJ[0, k x], {x, 0, 10}]
Plot[Int[k], {k, -5, 5}]
PS:由于您有错别字,我已经编辑了您的问题。您不能将其I
用作符号(将复杂符号弄乱了i
),并且在定义函数时也必须使用:=
而不是=
。
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句