Services & ResourcesWolfram ForumsMathGroup Archive

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

Compiling numerical iterations

• To: mathgroup at smc.vnet.net
• Subject: [mg129888] Compiling numerical iterations
• From: firlefranz <cornelius.franz at gmx.net>
• Date: Sat, 23 Feb 2013 07:01:06 -0500 (EST)
• Delivered-to: l-mathgroup@mail-archive0.wolfram.com
• Delivered-to: l-mathgroup@wolfram.com
• Delivered-to: mathgroup-newout@smc.vnet.net
• Delivered-to: mathgroup-newsend@smc.vnet.net

Hi,

to speed up some calculations I'd like to use this relatively new method of compiling equations or export them to C. But since I'm very new in these things, I have really problems to use this c-compiling function.
Can someone show me on this simple part of code (calculation of a correlation function of a 1D random walk), how it should be implemented?

num = 1000;
tab = Table[0, {i, 1, num}];
corr = Table[0, {i, 1, num/10}];
For[l = 1, l <= 1000, l++,
 a = 0;
 For[i = 1, i <= num, i++,
  tab[[i]] = tab[[i]] + a/10;
  If[RandomReal[{-1, 1}] < 0, a = a + 1, a = a - 1];
  ]
 ]
For[k = 1, k <= num/10, k++,
 For[n = 1, n <= num/10*9, n++,
   corr[[k]] = corr[[k]] + tab[[n]]*tab[[n + k - 1]]/num*10/9];
 ]
ListPlot[{corr}, Joined -> False]

Best regards
Cornelius

• Follow-Ups:
  • Re: Compiling numerical iterations
    • From: Peter Klamser <klamser@googlemail.com>