Re: Area Under Curve (Min Length Interval)
- To: mathgroup at smc.vnet.net
- Subject: [mg53926] Re: Area Under Curve (Min Length Interval)
- From: "Valeri Astanoff" <astanoff at yahoo.fr>
- Date: Fri, 4 Feb 2005 04:11:28 -0500 (EST)
- References: <ctqdm2$sd3$1@smc.vnet.net><ctrmtb$bo7$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
My (stupid!) calculus-less solution can be corrected this way :
In[5]:=
First@Sort[
Table[{a,b,Abs[F[b]-F[a]-0.93]},{a,0,bmax,db},{b,a,bmax,db}]//
Flatten[#,1]&//
Select[#,#[[3]]<0.001&]&,#1[[2]]-#1[[1]]<#2[[2]]-#2[[1]]&]
Out[5]=
{0.5, 10.5, 0.000122635}
not so far from the exact solution...
v.a.