我用數值積分求下面積分的FWHM


求最大值的時候, 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]

對了 你要輸出圖片也可以用mathematica輸出