Revisions to Export bug in combination with ParallelTable?

added 83 characters in body

Source Link

edited Jan 20, 2017 at 11:42

11.8k
2
26
85

I am programming with Mathematica 10.3.1.0 on Windows 10 Professional 64 Bit and have an i7-4940-MX 3,1 GHz processor (4 cores).

When I use in the example code below Table the exported png files show axis numbers and labels, as expected.

With ParallelTable the axis numbers are randomly missing in the exported files.

What could be the problem?

Here are my exported plots,:

for Table: https://goo.gl/GDevo4 andhttps://drive.google.com/open?id=0B9wKP6yNcpyfYUJ6SW9PQUJINUE

for ParallelTable: https://goo.gl/gBoLk8 https://drive.google.com/open?id=0B9wKP6yNcpyfSXZwVzVxNVotaUE produced with the code below.

ChoiceDialog[{FileNameSetter[Dynamic[outputDir], "Directory"], Dynamic[outputDir]}];
SetDirectory[outputDir];

image = ColorConvert[ExampleData[{"TestImage", "Lena"}], "Grayscale"];
levels = ImageLevels[image, "Byte"];

Table[
  strCounter = ToString@PaddedForm[i, 2, NumberPadding -> {"0", ""}];
  hist = Histogram[WeightedData @@ Transpose[levels], 
    256, {"Log", "Count"}, Frame -> True, 
    FrameLabel -> {{"# of Pixels", ""}, {"Brightness [0,255]", 
       strCounter}}, PlotRange -> {All, {0, 2^16}}, 
    BaseStyle -> {FontWeight -> "Bold", FontSize -> 40, 
      FontFamily -> "Calibri"}, ImageSize -> 2000];
  
  fileName = 
   StringJoin[outputDir, "\\histogram_table_", strCounter, ".png"];
  Export[fileName, hist, "PNG"],
  {i, 1, 10}
  ];

ParallelTable[
  strCounter = ToString@PaddedForm[i, 2, NumberPadding -> {"0", ""}];
  hist = Histogram[WeightedData @@ Transpose[levels], 
    256, {"Log", "Count"}, Frame -> True, 
    FrameLabel -> {{"# of Pixels", ""}, {"Brightness [0,255]", 
       strCounter}}, PlotRange -> {All, {0, 2^16}}, 
    BaseStyle -> {FontWeight -> "Bold", FontSize -> 40, 
      FontFamily -> "Calibri"}, ImageSize -> 2000];
  
  fileName = 
   StringJoin[outputDir, "\\histogram_parallel_table_", strCounter, 
    ".png"];
  Export[fileName, hist, "PNG"],
  {i, 1, 10}
  ];

I am programming with Mathematica 10.3.1.0 on Windows 10 Professional 64 Bit and have an i7-4940-MX 3,1 GHz processor (4 cores).

When I use in the example code below Table the exported png files show axis numbers and labels, as expected.

With ParallelTable the axis numbers are randomly missing in the exported files.

What could be the problem?

Here are my exported plots, for Table: https://goo.gl/GDevo4 and for ParallelTable: https://goo.gl/gBoLk8 produced with the code below.

ChoiceDialog[{FileNameSetter[Dynamic[outputDir], "Directory"], Dynamic[outputDir]}];
SetDirectory[outputDir];

image = ColorConvert[ExampleData[{"TestImage", "Lena"}], "Grayscale"];
levels = ImageLevels[image, "Byte"];

Table[
  strCounter = ToString@PaddedForm[i, 2, NumberPadding -> {"0", ""}];
  hist = Histogram[WeightedData @@ Transpose[levels], 
    256, {"Log", "Count"}, Frame -> True, 
    FrameLabel -> {{"# of Pixels", ""}, {"Brightness [0,255]", 
       strCounter}}, PlotRange -> {All, {0, 2^16}}, 
    BaseStyle -> {FontWeight -> "Bold", FontSize -> 40, 
      FontFamily -> "Calibri"}, ImageSize -> 2000];
  
  fileName = 
   StringJoin[outputDir, "\\histogram_table_", strCounter, ".png"];
  Export[fileName, hist, "PNG"],
  {i, 1, 10}
  ];

ParallelTable[
  strCounter = ToString@PaddedForm[i, 2, NumberPadding -> {"0", ""}];
  hist = Histogram[WeightedData @@ Transpose[levels], 
    256, {"Log", "Count"}, Frame -> True, 
    FrameLabel -> {{"# of Pixels", ""}, {"Brightness [0,255]", 
       strCounter}}, PlotRange -> {All, {0, 2^16}}, 
    BaseStyle -> {FontWeight -> "Bold", FontSize -> 40, 
      FontFamily -> "Calibri"}, ImageSize -> 2000];
  
  fileName = 
   StringJoin[outputDir, "\\histogram_parallel_table_", strCounter, 
    ".png"];
  Export[fileName, hist, "PNG"],
  {i, 1, 10}
  ];

I am programming with Mathematica 10.3.1.0 on Windows 10 Professional 64 Bit and have an i7-4940-MX 3,1 GHz processor (4 cores).

When I use in the example code below Table the exported png files show axis numbers and labels, as expected.

With ParallelTable the axis numbers are randomly missing in the exported files.

What could be the problem?

Here are my exported plots:

for Table: https://drive.google.com/open?id=0B9wKP6yNcpyfYUJ6SW9PQUJINUE

for ParallelTable: https://drive.google.com/open?id=0B9wKP6yNcpyfSXZwVzVxNVotaUE produced with the code below.

ChoiceDialog[{FileNameSetter[Dynamic[outputDir], "Directory"], Dynamic[outputDir]}];
SetDirectory[outputDir];

image = ColorConvert[ExampleData[{"TestImage", "Lena"}], "Grayscale"];
levels = ImageLevels[image, "Byte"];

Table[
  strCounter = ToString@PaddedForm[i, 2, NumberPadding -> {"0", ""}];
  hist = Histogram[WeightedData @@ Transpose[levels], 
    256, {"Log", "Count"}, Frame -> True, 
    FrameLabel -> {{"# of Pixels", ""}, {"Brightness [0,255]", 
       strCounter}}, PlotRange -> {All, {0, 2^16}}, 
    BaseStyle -> {FontWeight -> "Bold", FontSize -> 40, 
      FontFamily -> "Calibri"}, ImageSize -> 2000];
  
  fileName = 
   StringJoin[outputDir, "\\histogram_table_", strCounter, ".png"];
  Export[fileName, hist, "PNG"],
  {i, 1, 10}
  ];

ParallelTable[
  strCounter = ToString@PaddedForm[i, 2, NumberPadding -> {"0", ""}];
  hist = Histogram[WeightedData @@ Transpose[levels], 
    256, {"Log", "Count"}, Frame -> True, 
    FrameLabel -> {{"# of Pixels", ""}, {"Brightness [0,255]", 
       strCounter}}, PlotRange -> {All, {0, 2^16}}, 
    BaseStyle -> {FontWeight -> "Bold", FontSize -> 40, 
      FontFamily -> "Calibri"}, ImageSize -> 2000];
  
  fileName = 
   StringJoin[outputDir, "\\histogram_parallel_table_", strCounter, 
    ".png"];
  Export[fileName, hist, "PNG"],
  {i, 1, 10}
  ];

Notice removed Draw attention by mrz

occurred Mar 10, 2016 at 23:06

Bounty Ended with Jason B.'s answer chosen by mrz

occurred Mar 10, 2016 at 23:06

edited tags

Link

edited Mar 5, 2016 at 19:10

Jason B.

70.1k
3
144
297

Notice added Draw attention by mrz

occurred Mar 3, 2016 at 21:47

Bounty Started worth 50 reputation by mrz

occurred Mar 3, 2016 at 21:47

deleted 61 characters in body

Source Link

edited Mar 3, 2016 at 21:47

mrz

11.8k
2
26
85

I am programming with Mathematica 10.3.1.0 on Windows 10 Professional 64 Bit and have an i7-4940-MX 3,1 GHz processor (4 cores).

When I use in the example code below Table the exported png files show axis numbers and labels, as expected.

With ParallelTable the axis numbers are randomly missing in the exported files, while when the plots are showed in the notebook they are ok.

What could be the problem?

Here are my exported plots, for Table: https://goo.gl/GDevo4 and for ParallelTable: https://goo.gl/gBoLk8 produced with the code below.

ChoiceDialog[{FileNameSetter[Dynamic[outputDir], "Directory"], Dynamic[outputDir]}];
SetDirectory[outputDir];

image = ColorConvert[ExampleData[{"TestImage", "Lena"}], "Grayscale"];
levels = ImageLevels[image, "Byte"];

Table[
  strCounter = ToString@PaddedForm[i, 2, NumberPadding -> {"0", ""}];
  hist = Histogram[WeightedData @@ Transpose[levels], 
    256, {"Log", "Count"}, Frame -> True, 
    FrameLabel -> {{"# of Pixels", ""}, {"Brightness [0,255]", 
       strCounter}}, PlotRange -> {All, {0, 2^16}}, 
    BaseStyle -> {FontWeight -> "Bold", FontSize -> 40, 
      FontFamily -> "Calibri"}, ImageSize -> 2000];
  
  fileName = 
   StringJoin[outputDir, "\\histogram_table_", strCounter, ".png"];
  Export[fileName, hist, "PNG"],
  {i, 1, 10}
  ];

ParallelTable[
  strCounter = ToString@PaddedForm[i, 2, NumberPadding -> {"0", ""}];
  hist = Histogram[WeightedData @@ Transpose[levels], 
    256, {"Log", "Count"}, Frame -> True, 
    FrameLabel -> {{"# of Pixels", ""}, {"Brightness [0,255]", 
       strCounter}}, PlotRange -> {All, {0, 2^16}}, 
    BaseStyle -> {FontWeight -> "Bold", FontSize -> 40, 
      FontFamily -> "Calibri"}, ImageSize -> 2000];
  
  fileName = 
   StringJoin[outputDir, "\\histogram_parallel_table_", strCounter, 
    ".png"];
  Export[fileName, hist, "PNG"],
  {i, 1, 10}
  ];

I am programming with Mathematica 10.3.1.0 on Windows 10 Professional 64 Bit and have an i7-4940-MX 3,1 GHz processor (4 cores).

When I use in the example code below Table the exported png files show axis numbers and labels, as expected.

With ParallelTable the axis numbers are randomly missing in the exported files, while when the plots are showed in the notebook they are ok.

What could be the problem?

Here are my exported plots, for Table: https://goo.gl/GDevo4 and for ParallelTable: https://goo.gl/gBoLk8 produced with the code below.

ChoiceDialog[{FileNameSetter[Dynamic[outputDir], "Directory"], Dynamic[outputDir]}];
SetDirectory[outputDir];

image = ColorConvert[ExampleData[{"TestImage", "Lena"}], "Grayscale"];
levels = ImageLevels[image, "Byte"];

Table[
  strCounter = ToString@PaddedForm[i, 2, NumberPadding -> {"0", ""}];
  hist = Histogram[WeightedData @@ Transpose[levels], 
    256, {"Log", "Count"}, Frame -> True, 
    FrameLabel -> {{"# of Pixels", ""}, {"Brightness [0,255]", 
       strCounter}}, PlotRange -> {All, {0, 2^16}}, 
    BaseStyle -> {FontWeight -> "Bold", FontSize -> 40, 
      FontFamily -> "Calibri"}, ImageSize -> 2000];
  
  fileName = 
   StringJoin[outputDir, "\\histogram_table_", strCounter, ".png"];
  Export[fileName, hist, "PNG"],
  {i, 1, 10}
  ];

ParallelTable[
  strCounter = ToString@PaddedForm[i, 2, NumberPadding -> {"0", ""}];
  hist = Histogram[WeightedData @@ Transpose[levels], 
    256, {"Log", "Count"}, Frame -> True, 
    FrameLabel -> {{"# of Pixels", ""}, {"Brightness [0,255]", 
       strCounter}}, PlotRange -> {All, {0, 2^16}}, 
    BaseStyle -> {FontWeight -> "Bold", FontSize -> 40, 
      FontFamily -> "Calibri"}, ImageSize -> 2000];
  
  fileName = 
   StringJoin[outputDir, "\\histogram_parallel_table_", strCounter, 
    ".png"];
  Export[fileName, hist, "PNG"],
  {i, 1, 10}
  ];

I am programming with Mathematica 10.3.1.0 on Windows 10 Professional 64 Bit and have an i7-4940-MX 3,1 GHz processor (4 cores).

When I use in the example code below Table the exported png files show axis numbers and labels, as expected.

With ParallelTable the axis numbers are randomly missing in the exported files.

What could be the problem?

Here are my exported plots, for Table: https://goo.gl/GDevo4 and for ParallelTable: https://goo.gl/gBoLk8 produced with the code below.

ChoiceDialog[{FileNameSetter[Dynamic[outputDir], "Directory"], Dynamic[outputDir]}];
SetDirectory[outputDir];

image = ColorConvert[ExampleData[{"TestImage", "Lena"}], "Grayscale"];
levels = ImageLevels[image, "Byte"];

Table[
  strCounter = ToString@PaddedForm[i, 2, NumberPadding -> {"0", ""}];
  hist = Histogram[WeightedData @@ Transpose[levels], 
    256, {"Log", "Count"}, Frame -> True, 
    FrameLabel -> {{"# of Pixels", ""}, {"Brightness [0,255]", 
       strCounter}}, PlotRange -> {All, {0, 2^16}}, 
    BaseStyle -> {FontWeight -> "Bold", FontSize -> 40, 
      FontFamily -> "Calibri"}, ImageSize -> 2000];
  
  fileName = 
   StringJoin[outputDir, "\\histogram_table_", strCounter, ".png"];
  Export[fileName, hist, "PNG"],
  {i, 1, 10}
  ];

ParallelTable[
  strCounter = ToString@PaddedForm[i, 2, NumberPadding -> {"0", ""}];
  hist = Histogram[WeightedData @@ Transpose[levels], 
    256, {"Log", "Count"}, Frame -> True, 
    FrameLabel -> {{"# of Pixels", ""}, {"Brightness [0,255]", 
       strCounter}}, PlotRange -> {All, {0, 2^16}}, 
    BaseStyle -> {FontWeight -> "Bold", FontSize -> 40, 
      FontFamily -> "Calibri"}, ImageSize -> 2000];
  
  fileName = 
   StringJoin[outputDir, "\\histogram_parallel_table_", strCounter, 
    ".png"];
  Export[fileName, hist, "PNG"],
  {i, 1, 10}
  ];

deleted 66 characters in body

Source Link

edited Feb 5, 2016 at 17:10

mrz

11.8k
2
26
85

Loading

Tweeted twitter.com/StackMma/status/690064193467232260

occurred Jan 21, 2016 at 6:51

deleted 3 characters in body

Source Link

edited Jan 18, 2016 at 12:23

mrz

11.8k
2
26
85

Loading

Source Link

asked Jan 18, 2016 at 11:00

mrz

11.8k
2
26
85

Loading

Stack Exchange Network

Return to Question