Issue with ParallelTable and AstronomicalData
- To: mathgroup at smc.vnet.net
- Subject: [mg116205] Issue with ParallelTable and AstronomicalData
- From: Thomas Melehan <tpmelehan at gmail.com>
- Date: Sat, 5 Feb 2011 05:44:27 -0500 (EST)
Group:
The the only difference in the following two modules is the use of
ParallelTable in one and Table in the other. For some strange reason
they give different results. I tried to DistributeDefinitions
[AstronomicalData], with no impact. Any ideas?
I am using Mathematica 8 on Mac OSX 10.6.6
Module[{date, month, day, =CE=B1, =CE=B3Sun, testData},
ParallelTable[
date = DateList[{2010, ToExpression[month], ToExpression[day],
ToExpression[hour]}, TimeZone -> -5];
=CE=B1 = Max[AstronomicalData["Sun", {"Altitude", date}, TimeZone -> -5] ,
0] Degree ;
=CE=B3Sun = AstronomicalData["Sun", {"Azimuth", date}, TimeZone -> -5] Degree;
testData =
AstronomicalData["Sun", {#, date}] Degree & /@ {"Azimuth", "Altitude"};
{date, =CE=B3Sun, =CE=B1, testData, month, day, hour}
, {month, {"01"}}, {day, {"15"}}, {hour, {"08", "09"}}]
]
Module[{date, month, day, =CE=B1, =CE=B3Sun, testData},
Table[
date = DateList[{2010, ToExpression[month], ToExpression[day],
ToExpression[hour]}, TimeZone -> -5];
=CE=B1 = Max[AstronomicalData["Sun", {"Altitude", date}, TimeZone -> -5] ,
0] Degree ;
=CE=B3Sun = AstronomicalData["Sun", {"Azimuth", date}, TimeZone -> -5] Degree;
testData =
AstronomicalData["Sun", {#, date}] Degree & /@ {"Azimuth", "Altitude"};
{date, =CE=B3Sun, =CE=B1, testData, month, day, hour}
, {month, {"01"}}, {day, {"15"}}, {hour, {"08", "09"}}]
]