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