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}