Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2005
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2005

[Date Index] [Thread Index] [Author Index]

Search the Archive

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.


  • Prev by Date: Product {for p=2 to infinity} (p^2+1)/(p^2-1)
  • Next by Date: dividing numbers
  • Previous by thread: Re: Area Under Curve (Min Length Interval)
  • Next by thread: Re: Area Under Curve (Min Length Interval)