Message Boards Message Boards

0
|
934 Views
|
1 Reply
|
0 Total Likes
View groups...
Share
Share this post:

[Solved] What could be the reason why my ParallelSum slowed down?

Posted 3 years ago

I am trying to run a code that evaluates a series solution over four indices using ParallelSum[]. Back then, when I run the code it just takes a minute for it to evaluate. Suddenly, the computation time is four times as much. What could I be doing wrong?

Here's a snippet of the code block:

DragOsc = ConstantArray[0., Length[points]];
Do[DragOsc[[i]] = 
   ParallelSum[Re[Sinusoidal[m, n, mp, np, r[i], angle[i], azimuth[i]]], {m, 0, 20}, {n, 1, 20}, {mp, 0,20}, {np, 1, 20}];
  Print[i],
  {i, 1, Length[points]}];
data = Thread[{points, DragOsc}];
Export[StringTemplate["DataIntegrandOsc`1`_Ro`2`_Mach`3`_SD`4`.xlsx "][DateString[{"Year", "Month", "Day", "Hour12", "Minute"}], Ro, \[Mu], SD], data, "XLSX"];
POSTED BY: M Ugalino
Posted 3 years ago

I have resolved the problem. Thanks!

POSTED BY: M Ugalino
Reply to this discussion
Community posts can be styled and formatted using the Markdown syntax.
Reply Preview
Attachments
Remove
or Discard

Group Abstract Group Abstract