Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2011

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

Search the Archive

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"}}]

 ]


  • Prev by Date: Re: phase portraits
  • Next by Date: Re: request help
  • Previous by thread: Re: Definite integral
  • Next by thread: Re: Issue with ParallelTable and AstronomicalData