Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2007
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2007

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

Search the Archive

RE: Re: Quick integral.

  • To: mathgroup at smc.vnet.net
  • Subject: [mg73595] RE: [mg73491] Re: Quick integral.
  • From: "Jouvenot, Fabrice" <F.Jouvenot at liverpool.ac.uk>
  • Date: Thu, 22 Feb 2007 04:43:27 -0500 (EST)
  • References: <erc23r$mv4$1@smc.vnet.net> <200702201115.GAA07658@smc.vnet.net>

>There seem to be problems with the notebook you posted that
>make it unreliable to try to evaluate.

That have been fixed, you can access it now here :
http://www.onyrium.net/Mathematica/CoordStat-ok.nb


>toto[l_] := Sum[dNd=CF=95[l, angle=CF=95[=CE=A8, thc, =
=CE=B8source],
thc]*
>   AcceptancePMT[angleLightOM[vOM,
>   vlight[thc, =CE=A8, =CE=B8source, l]]], {=CE=A8,
=CF=80/2,2=CF=80,=CF=80= }];
>is only slightly faster, because of the very complicated expression to
>be evaluated, but produces approximately the same result as NIntegrate
>evaluating across the entire interval.

In fact I tried to use Sum, but the time it takes is 4 to 5 times the
time used with Nintegrate.
And if I use Nsum then it is twice quicker than Sum, but still longer
than with Nintegrate.

Thanks for your help, any comments are welcome because I am getting mad
trying to do that quicker...
Cheers,

Fabrice.



  • Prev by Date: Re: Map function which adds last two numbers of a list
  • Next by Date: Re: Re: Creating a Listable Function
  • Previous by thread: RE: Re: Quick integral.
  • Next by thread: Re: Re: Quick integral.