Re: Timing?
- To: mathgroup at smc.vnet.net
- Subject: [mg62243] Re: Timing?
- From: Bill Rowe <readnewsciv at earthlink.net>
- Date: Thu, 17 Nov 2005 04:15:41 -0500 (EST)
- Sender: owner-wri-mathgroup at wolfram.com
On 11/16/05 at 2:28 AM, koopman at sfu.ca (Ray Koopman) wrote:
>Has anyone else observed anything like the following sequence of
>Timing results?
>In[1]:= L = Array[Random[Integer,{-10,10}]&,{10^6,2}];
>t = Table[First[Timing[Pick[L,Total@Transpose@Sign@L,-2];]/.
>Second->100],{100}]
>Out[2]= { 86., 89., 95.,106.,119.,132.,147.,160.,168.,179.,
>190.,198.,201.,212.,219.,223.,228.,228.,232.,233.,
>234.,228.,238.,236.,236.,239.,236.,241.,242.,243.,
>239.,234.,241.,243.,239.,241.,238.,242.,238.,239.,
>238.,226.,239.,243.,240.,238.,236.,242.,240.,241.,
>240.,238.,239.,240.,241.,239.,239.,242.,241.,240.,
>241.,237.,238.,242.,240.,239.,243.,238.,239.,230.,
>239.,240.,240.,238.,237.,242.,239.,241.,240.,241.,
>240.,239.,236.,236.,241.,241.,241.,237.,241.,239.,
>241.,239.,239.,241.,243.,240.,239.,234.,237.,243.}
>In[3]:= ListPlot[t,PlotRange->All,Frame->True,Axes->None];
Yes, with version 5.2 running on MacOS 10.4.3, I get
{22.3459, 23.4716, 23.0004, 24.1725, 23.9923, 24.9194, 24.5233, 25.6644, \
25.1638, 26.2918, 25.9419, 26.9539, 26.5744, 27.5043, 26.9941, 27.8553, \
27.2184, 28.0534, 27.4044, 28.1185, 27.4435, 28.6677, 27.4541, 28.1707, \
27.5026, 28.2624, 27.5466, 28.2218, 27.483, 28.184, 27.4562, 28.2454, \
27.6095, 28.2116, 27.7985, 28.3358, 27.5341, 28.2052, 27.546, 28.1911, \
27.4962, 28.2089, 27.489, 28.1955, 27.5376, 28.1652, 27.5712, 28.2857, \
27.5819, 28.3541, 27.4228, 28.3869, 27.4682, 28.254, 28.5124, 28.3446, \
27.4374, 28.1149, 27.4636, 28.6361, 27.5138, 28.2351, 27.495, 28.1714, \
27.5042, 28.1871, 27.4428, 28.1573, 27.538, 28.1567, 27.4369, 28.1852, \
27.4545, 28.1854, 27.4891, 28.2572, 27.4931, 28.1788, 27.6276, 28.2276, \
27.4917, 28.2309, 27.5033, 28.1473, 27.5977, 28.2169, 27.5078, 28.1404, \
27.5581, 28.1697, 27.4602, 28.1373, 27.5214, 28.2543, 27.5202, 28.2491, \
27.564, 28.1795, 27.6023, 28.2898}
after reducing the size of the array to 10^5 to speed things up a bit.
The only difference between my data set and yours with the same code is there is a bit more variation between subsequenct trials in my data set than yours. In my data set doing
ListPlot[t,PlotRange->All,Frame->True,Axes->None, PlotJoined->True];
resullts in a plot with an oscillation on top of the same shape curve as your data set shows.
--
To reply via email subtract one hundred and four