NIntegrate when integral is zero
- To: mathgroup at smc.vnet.net
- Subject: [mg103160] NIntegrate when integral is zero
- From: Alexey <lehin.p at gmail.com>
- Date: Wed, 9 Sep 2009 04:46:21 -0400 (EDT)
Hello,
My goal is to find a value of a parameter of the integrand function
for which integral becomes equal zero. What a value of "Method" option
is appropriate in my case?
Here is the function:
\[CapitalDelta][\[Delta]_?NumericQ] :=
Block[{\[CapitalDelta]}, SpecialPoint = Sign[\[Delta]] - \[Delta];
MeanOfMyDistribution[\[CapitalDelta]_?NumericQ] :=
NIntegrate[(x PDF[
StudentTDistribution[
2], (Tan[(x + \[Delta]) Pi/2] - \[CapitalDelta])] Sec[\[Pi]/
2 (x + \[Delta])]^2 \[Pi]/2), {x, -1, SpecialPoint, 1}];
FindRoot[
MeanOfMyDistribution[\[CapitalDelta]] == 0, {\[CapitalDelta],
0}][[1, 2]]]
\[CapitalDelta][.9]
(I am using Mathematica 7.01)