Unusual speedup of Table
- To: mathgroup at smc.vnet.net
- Subject: [mg25605] Unusual speedup of Table
- From: satether at aol.com (SATether)
- Date: Wed, 11 Oct 2000 03:50:42 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
Why is the second call of Table below so much faster than the first? These
results are from Mathematica 4.0.2.1 for Power Mac (400 MHz PPC 750, OS 9). It
isn't some kind of cache effect because the times are consistent over many
executions of both expressions. (And yes, I know I can do a lot better still
for this particular computation with Drop and Take).
- Steve Tether
n = 10000;
a = Table[Random[], {n}];
Timing[Table[a[[j + 1]] - 2 a[[j]] + a[[j - 1]], {j, 2, n - 1}];]
{10.5333 Second, Null}
Timing[Table[Switch[j, _, a[[j + 1]] - 2 a[[j]] + a[[j - 1]]], {j, 2, n - 1}];]
{0.7 Second, Null}
- Follow-Ups:
- Re: Unusual speedup of Table
- From: Daniel Lichtblau <danl@wolfram.com>
- Re: Unusual speedup of Table