Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2003
*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 2003

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

Search the Archive

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

  • To: mathgroup at smc.vnet.net
  • Subject: [mg43931] Re: [mg43920] Re: [mg43917] How do I get Timing results in Out[]//<Message>?
  • From: Michael Williams <williams at vt.edu>
  • Date: Mon, 13 Oct 2003 04:04:34 -0400 (EDT)
  • Sender: owner-wri-mathgroup at wolfram.com

For additional discussion of this topic, see Omega Consultiung's most recent (always
interesting) ezine:  

<http://omegaconsultinggroup.com/Services/HTMLLinks/ezv2i09_3.html>


On  10/12/03,  akoz at mimuw.edu.pl (Andrzej Kozlowski)  said:

>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/
>


  • Prev by Date: Re: Bizarre phenomenon
  • Next by Date: Re: Run[] and Mathlink
  • Previous by thread: Re: How do I get Timing results in Out[]//<Message>?
  • Next by thread: bug in CoefficientArrays?