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)