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

MathGroup Archive 2009

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

Search the Archive

BarChart[] axis label bug in v7 Linux (Windows, OSX?)

  • To: mathgroup at smc.vnet.net
  • Subject: [mg95831] BarChart[] axis label bug in v7 Linux (Windows, OSX?)
  • From: Chris Pemberton <cjpembo at gmail.com>
  • Date: Wed, 28 Jan 2009 06:31:30 -0500 (EST)

Can anybody else confirm that this command displays the *incorrect* 
horizontal axis labels in Mathematica 7 Linux?

BarChart[Table[i, {i, 1, 2}], Frame -> True]

The axis should number the bars between 0 and 2, but it fails to account 
for the spaces between the bars (ie 0.1 units wide) and therefore the 
numbers are off.

Looking at the source of the saved notebook, each bar is drawn one unit 
wide with a 0.1 unit spacing between (see bold code lines below):



(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[      3178,        108]
NotebookOptionsPosition[      2862,         92]
NotebookOutlinePosition[      3197,        107]
CellTagsIndexPosition[      3154,        104]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"BarChart", "[",
  RowBox[{
   RowBox[{"Table", "[",
    RowBox[{"i", ",", " ",
     RowBox[{"{",
      RowBox[{"i", ",", " ", "1", ",", " ", "2"}], "}"}]}], "]"}], ",", 
" ",
   RowBox[{"Frame", "\[Rule]", "True"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.442076296818795*^9, 3.442076322582159*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, {
     {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458],
      EdgeForm[Opacity[0.7]], {},
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FrontEnd`If[
            CurrentValue["MouseOver"],
            EdgeForm[{
              GrayLevel[0.5],
              AbsoluteThickness[1.5],
              Opacity[0.66]}], {}, {}],
           *RectangleBox[{0., 0.}, {1., 1.}]},    
<<<<<<##################LOOK HERE ######################*
         
          ImageSizeCache->{{26.528, 181.95371428571423`}, 
{-9.71317498207712,
           91.32365003584576}}],
         StatusArea[#, 1]& ,
         TagBoxNote->"1"],
        StyleBox["1", {
          GrayLevel[0]}, StripOnInput -> False]],
       Annotation[#,
        Style[1, {
          GrayLevel[0]}], "Tooltip"]& ]},
     {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458],
      EdgeForm[Opacity[0.7]], {},
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FrontEnd`If[
            CurrentValue["MouseOver"],
            EdgeForm[{
              GrayLevel[0.5],
              AbsoluteThickness[1.5],
              Opacity[0.66]}], {}, {}],
           *RectangleBox[{1.1, 0.}, {2.1, 2.}]},    
**<<<<<<##################LOOK HERE ######################*
         
          ImageSizeCache->{{196.94628571428566`, 352.3719999999999}, 
{-110.25,
            91.32365003584576}}],
         StatusArea[#, 2]& ,
         TagBoxNote->"2"],
        StyleBox["2", {
          GrayLevel[0]}, StripOnInput -> False]],
       Annotation[#,
        Style[2, {
          GrayLevel[0]}], "Tooltip"]& ]}}, {}, {}}, {}, GraphicsGroupBox[
    StyleBox[
     LineBox[{{{0., 0}, Offset[{0, -4}, {0., 0}]}, {{2.1, 0},
        Offset[{0, -4}, {2.1, 0}]}}],
     Antialiasing->False]]},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  Frame->True,
  PlotRangePadding->Scaled[0.02],
  Ticks->{None, Automatic}]], "Output",
 CellChangeTimes->{3.442076323885626*^9}]
}, Open  ]]
},
WindowSize->{640, 750},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
FrontEndVersion->"7.0 for Linux x86 (64-bit) (November 11, 2008)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[567, 22, 328, 8, 30, "Input"],
Cell[898, 32, 1948, 57, 245, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)


I cannot test this in Windows or Mac...

And what about the painfully slow plotting in Mathematica 7?  I realize 
that some v7 plots contain more information (ie hovering your mouse over 
a bar/point/etc to get the value) but this graphic creation process is 
annoyingly slow, even on a dual-core machine with gigs of RAM to spare.  
Resizing complicated graphics is a chore.  Perhaps there is a command to 
turn off all the advanced plotting features?  Perhaps Wolfram should 
Parallelize[] some of their new drawing code?

I need to compare this speed with Windows sometime...

Chris


  • Prev by Date: Mathematica having trouble with simple calculation...
  • Next by Date: Using Map or Thread over selected parts of nested lists
  • Previous by thread: Re: Mathematica having trouble with simple calculation...
  • Next by thread: Re: BarChart[] axis label bug in v7 Linux (Windows, OSX?)