Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2009

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

Search the Archive

Re: printing problem with very simple application

  • To: mathgroup at smc.vnet.net
  • Subject: [mg100285] Re: [mg100265] printing problem with very simple application
  • From: Bob Hanlon <hanlonr at cox.net>
  • Date: Sun, 31 May 2009 06:33:12 -0400 (EDT)
  • Reply-to: hanlonr at cox.net

Include Print  in definition of dumpEthn and suppress output when calling dumpEthn.

dumpEthn[ctry_String] := Module[
  {leg, dat, cData},
  cData = CountryData[ctry, "EthnicGroupsFractions"];
  If[Head@cData == ToExpression["CountryData"],
   Return[Print["Invalid Country(" <> ctry <> ")"]]];
  If[MatchQ[cData[[1, 2]], _Missing],
   Return[Print["Missing fraction data for " <> ctry]]];
  leg = #[[1]] & /@ cData;
  dat = #[[2]] & /@ cData;
  Print[
   PieChart[dat,
    ChartLegends -> leg,
    PlotLabel -> "Ethnic groups in " <> ctry]]]

dumpEthn[#] & /@ CountryData["Asia"];

This works on my Mac when I print the result to a PDF.


Bob Hanlon

---- congruentialuminaire at yahoo.com wrote: 

=============
Hello MathGroup:

I have this exceeding simple Mathematica program:

dumpEthn[ctry_String] := Module[
  {leg , dat, cData},
  cData = CountryData[ctry, "EthnicGroupsFractions"];
  If[Head@cData == ToExpression["CountryData"]
    , Return["Invalid Country(" <> ctry <> ")"]];
  If[MatchQ[cData[[1, 2]], _Missing]
    , Return["Missing fraction data for " <> ctry]];
  leg = #[[1]] & /@ cData;
  dat = #[[2]] & /@ cData;
  PieChart[dat
   , ChartLegends -> leg
   , PlotLabel -> "Ethnic groups in " <> ctry
   ]
  ]

I invoke it thusly:

dumpEthn[#] & /@ CountryData["Asia"]

It produces a bunch of PieCharts.

When I print it is gives 50 *blank* pages. When I Save-As-PDF, I get
50 *blank* pages.

A single pie chart seems to print, i.e. dumpEthn["Iran"].

I reported this to WRI support.

Can anyone suggest any other work-around on this? In the excitement
about W|A, I wanted to show this to someone.

TIA and I am running 7.0.1/XPSP3.

Regards..

Roger Williams
Franklin Laboratory
http://www.meetup.com/The-San-Francisco-Math-Meetup-Group/




  • Prev by Date: Re: problem writing debugging utility function
  • Next by Date: Re: Re: volume calculation
  • Previous by thread: Re: printing problem with very simple application
  • Next by thread: TIFF file specification