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

Does not print as expected.

• To: mathgroup at smc.vnet.net
• Subject: [mg111934] Does not print as expected.
• From: "S. B. Gray" <stevebg at ROADRUNNER.COM>
• Date: Fri, 20 Aug 2010 07:05:32 -0400 (EDT)
• Reply-to: stevebg at ROADRUNNER.COM

I include these values so one can execute the "report" code easily.

numb = 7;
histo = {0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 19, 20, 37, 46, 62, 79, 94, 87,
     87, 118, 96, 70, 59, 32, 35, 19, 11, 4, 8, 7, 1, 2, 0, 1, 0, 0, 0,
     0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
    0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
    0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
    0, 0};
zeroes = 1;
obtus = 13;
angx = {{1, 2, 3}, {1, 2, 4}, {1, 2, 5}, {1, 2, 6}, {1, 2, 7}, {1, 3,
     4}, {1, 3, 5}, {1, 3, 6}, {1, 3, 7}, {1, 4, 5}, {1, 4, 6}, {1, 4,
     7}, {1, 5, 6}, {1, 5, 7}, {1, 6, 7}, {2, 1, 3}, {2, 1, 4}, {2, 1,
     5}, {2, 1, 6}, {2, 1, 7}, {2, 3, 4}, {2, 3, 5}, {2, 3, 6}, {2, 3,
     7}, {2, 4, 5}, {2, 4, 6}, {2, 4, 7}, {2, 5, 6}, {2, 5, 7}, {2, 6,
     7}, {3, 1, 2}, {3, 1, 4}, {3, 1, 5}, {3, 1, 6}, {3, 1, 7}, {3, 2,
     4}, {3, 2, 5}, {3, 2, 6}, {3, 2, 7}, {3, 4, 5}, {3, 4, 6}, {3, 4,
     7}, {3, 5, 6}, {3, 5, 7}, {3, 6, 7}, {4, 1, 2}, {4, 1, 3}, {4, 1,
     5}, {4, 1, 6}, {4, 1, 7}, {4, 2, 3}, {4, 2, 5}, {4, 2, 6}, {4, 2,
     7}, {4, 3, 5}, {4, 3, 6}, {4, 3, 7}, {4, 5, 6}, {4, 5, 7}, {4, 6,
     7}, {5, 1, 2}, {5, 1, 3}, {5, 1, 4}, {5, 1, 6}, {5, 1, 7}, {5, 2,
     3}, {5, 2, 4}, {5, 2, 6}, {5, 2, 7}, {5, 3, 4}, {5, 3, 6}, {5, 3,
     7}, {5, 4, 6}, {5, 4, 7}, {5, 6, 7}, {6, 1, 2}, {6, 1, 3}, {6, 1,
     4}, {6, 1, 5}, {6, 1, 7}, {6, 2, 3}, {6, 2, 4}, {6, 2, 5}, {6, 2,
     7}, {6, 3, 4}, {6, 3, 5}, {6, 3, 7}, {6, 4, 5}, {6, 4, 7}, {6, 5,
     7}, {7, 1, 2}, {7, 1, 3}, {7, 1, 4}, {7, 1, 5}, {7, 1, 6}, {7, 2,
     3}, {7, 2, 4}, {7, 2, 5}, {7, 2, 6}, {7, 3, 4}, {7, 3, 5}, {7, 3,
     6}, {7, 4, 5}, {7, 4, 6}, {7, 5, 6}}; (* thanks, Ricardo Page *)

report := Module[{pfnz, plnz, hists, angs},
   pfnz = First[Position[histo, _?Positive]][[1]];
   plnz = Last [Position[histo, _?Positive]][[1]];
   hists = Drop[Drop[histo, plnz - histL], pfnz - 1];
   Print[DateString[]];
   Print["numb=", numb, "  b(min)=", pfnz, "  b(max)=", plnz,
    "   zeroes=", zeroes,
             "   # angles=", numb (numb - 1) (numb - 2)/2,
    "  last poly, # obtuse=", obtus];
   angs = Table[
     ArcCos[Normalize[verts[[angx[[i, 1]]]] - verts[[angx[[i, 2]]]]].
        			
        Normalize[verts[[angx[[i, 1]]]] - verts[[angx[[i, 3]]]]]] 180/
       Pi, {i, Length[angx]}];
   Print[Style["    \!\(\*
StyleBox[\"angx\",\nFontVariations->{\"Underline\"->True}]\)\!\(\*
StyleBox[\"    \",\nFontVariations->{\"Underline\"->True}]\)\!\(\*
StyleBox[\"dots\",\nFontVariations->{\"Underline\"->True}]\)\!\(\*
StyleBox[\"    \",\nFontVariations->{\"Underline\"->True}]\)\!\(\*
StyleBox[\"angles\",\nFontVariations->{\"Underline\"->True}]\)",
     Bold]];
   Row[{Style[Column@angx, 12],
     PaddedForm[Style[Column[dots], 12], {5, 3}],
            PaddedForm[Style[Column[angs], 12], {6, 3}],
            Spacer[20], Column[Range[pfnz, plnz]], Column[hists],
            Spacer[20],
     ListPlot[
      Table[{pfnz - 1 + i, Log10[hists[[i]]]}, {i, 1, plnz - pfnz + 1}],
           Filling -> Axis, FillingStyle -> Blue, ImageSize -> 100,
      AspectRatio -> 1.3,
           PlotRange -> All, AxesOrigin -> {pfnz - 1, 0}]}
         ]                                                             \
    ]

As shown, report works fine. The question is, if I put a second copy of 
this title command:

StyleBox[\"angles\",\nFontVariations->{\"Underline\"->True}]\)",
     Bold]];

just before the end of report, it somehow cancels printing everything. 
Why is that? And while I'm at it, sometimes underlining something you 
want to print underlined, works, and sometimes not. I don't get the 
difference.
Grateful as always,

Steve Gray