Re: Area Under Curve (Min Length Interval)
- To: mathgroup at smc.vnet.net
- Subject: [mg53897] Re: Area Under Curve (Min Length Interval)
- From: "Valeri Astanoff" <astanoff at yahoo.fr>
- Date: Wed, 2 Feb 2005 18:10:38 -0500 (EST)
- References: <ctqdm2$sd3$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
An exhaustive search seems better than NMinimize :
In[1]:=
<<Statistics`
In[2]:=
F[x_]:=CDF[ChiSquareDistribution[5],x];
In[3]:=
db=0.1;
bmax=b /. FindRoot[F[b] == 0.999,{b,10}]
Out[4]=
20.515
In[5]:=
First@Sort[
Table[{a,b,Abs[F[b]-F[a]-0.93]},{a,0,bmax,db},{b,a,bmax,db}]//
Flatten[#,1]&,#1[[3]]<#2[[3]]&]
Out[5]=
{1.3, 16.8, 0.0000365345}