Re: How do I get Timing results in Out[]//<Message>?

*To*: mathgroup at smc.vnet.net*Subject*: [mg43920] Re: [mg43917] How do I get Timing results in Out[]//<Message>?*From*: Andrzej Kozlowski <akoz at mimuw.edu.pl>*Date*: Sun, 12 Oct 2003 04:03:41 -0400 (EDT)*Sender*: owner-wri-mathgroup at wolfram.com

How about this: $Pre = Function[{x}, Module[{y}, (Print[First[Timing[y = x]]]; y)], HoldAll] For example: In[5]:= Length[Select[Range[10^5],PrimeQ]] From In[5]:= 1.04 Second Out[5]= 9592 Not exactly as you have described it, but perhaps functionally equivalent (?) Andrzej On Saturday, October 11, 2003, at 06:07 PM, Scott Centoni wrote: > Thanks, but what I want is to put the timing info into the blue > Out[123]= line, not into the output itself, so it doesn't interfere > with things like IdentityMatrix[3]//MatrixForm, and %/%% and doesn't > crowd out or obscure the important stuff, the output. > > But I don't know enough about how the Out[]//stuff and display forms > work. > > On Saturday, October 11, 2003, at 10:18 Uhr, Andrzej Kozlowski wrote: > >> >> On Saturday, October 11, 2003, at 02:33 PM, Scott Centoni wrote: >> >>> I remember reading a very neat tip on how to get Timing[] wrapped >>> around >>> every evaluation by default, and the results printed out in the blue >>> Out[123]= line for each output cell in the notebook so that it >>> doesn't >>> clutter up your output. I think I remember reading this tip in The >>> Mathematica Journal, but I can't find it. Do any of you know what >>> I'm >>> referring to? >>> >>> Note that this is rather like >>> >>> In[54]:= >>> IdentityMatrix[4]//TableForm >>> >>> Out[54]//TableForm= >>> {{1, 0, 0, 0}, >>> {0, 1, 0, 0}, >>> {0, 0, 1, 0}, >>> {0, 0, 0, 1} >>> } >>> >>> and completely different from the following trick at the support web >>> site to put the timing in the status line, the lower left corner of >>> the >>> window: >>> >>>> How do I get Mathematica to display the timing of an evaluation in >>>> lower-left corner of my notebook? >>>> >>>> You can have the timing of each evaluation displayed in the >>>> lower-left corner of a notebook by going to the Option Inspector and >>>> adding the value "ShowTiming" to the option >>>> >>>> Notebook Options|Evaluation Options|EvaluationCompletionAction >>> >>> (http://support.wolfram.com/mathematica/interface/customize/ >>> displaytiming.html) >>> >>> which I find almost useless because as soon as your 5-minute >>> evaluation >>> finishes, it's timing is overwritten by the one after it, which only >>> takes 0.04 seconds. >>> >>> Thanks, >>> Scott >>> >>> >>> >> >> >> I am not sure this is the same method as the one you are referring >> to, but setting: >> >> $Pre = Function[{x}, Timing[x], HoldAll]; >> >> should do what you want. eg: >> >> In[2]:= >> Map[PrimeQ,Range[10^3]]; >> >> Out[2]= >> {0.06 Second,Null} >> >> >> >> >> >> Andrzej Kozlowski >> Yokohama, Japan >> http://www.mimuw.edu.pl/~akoz/ >> http://platon.c.u-tokyo.ac.jp/andrzej/ >> > > |---------------------------------------------------------| > | Scott A Centoni <scentoni at iis.ee.ethz.ch> | > | ETH Zürich Integrated Systems Laboratory | > | Gloriastrasse 35 ETZ J88 | > | CH-8092 Zürich Tel: +41 1 632 66 85 | > | Switzerland Fax: +41 1 632 11 94 | > |---------------------------------------------------------| > > > Andrzej Kozlowski Yokohama, Japan http://www.mimuw.edu.pl/~akoz/ http://platon.c.u-tokyo.ac.jp/andrzej/