我用数值积分求下面积分的FWHM
http://i.imgur.com/SuBBscu.png
求最大值的时候, mathematica 说出现复数而停止
百思不得其解
数值积分好像不允许太多变量?
MaxValue[(2*
BesselJ[1,
2*Pi/0.7*r*0.5]/(2*Pi/0.7*
r*0.5))^2*(-2 ((BesselJ[0,
2*Pi/0.7*3552/15*0.5 - 2*Pi/0.7*r*0.5])^2 + (BesselJ[1,
2*Pi/0.7*3552/15*0.5 - 2*Pi/0.7*r*0.5])^2 - 1) +
2*NIntegrate[(2*
BesselJ[1, t]/
t)^2*(ArcCos[(t^2 + (2*Pi/0.7*r*0.5)^2 - 3552/15)/(2*t*2*
Pi/0.7*r*0.5)])^2*t, {t,
2*Pi/0.7*3552/15*0.5 - 2*Pi/0.7*r*0.5,
2*Pi/0.7*3552/15*0.5 + 2*Pi/0.7*r*0.5}]), r]