Re: Combine these displays
- To: mathgroup at smc.vnet.net
- Subject: [mg111642] Re: Combine these displays
- From: "David Park" <djmpark at comcast.net>
- Date: Sun, 8 Aug 2010 07:23:20 -0400 (EDT)
Row[{Style[Column@Subsets[Range[vertL], {2}], 10],
PaddedForm[Style[Column[dots], 10], {5, 3}], Spacer[10],
ListPlot[histo, Filling -> Axis, FillingStyle -> Blue,
ImageSize -> 250]}]
David Park
djmpark at comcast.net
http://home.comcast.net/~djmpark/
From: S. B. Gray [mailto:stevebg at ROADRUNNER.COM]
dots = {13.450, 8.1090, -5.398, -6.511, -9.7456, 7.903, -8.392, -5.989,
-4.612, 3.614, -8.564, -6.598, -6.794, -8.898, 7.082};
histo = {0, 0, 0, 0, 5, 79, 372, 2016, 4354, 2350, 776, 47, 0, 0, 0};
vertL=6;
Print[ColumnForm[Subsets[Range[vertL], {2}]],
PaddedForm[ColumnForm[dots], {5, 3}]];
ListPlot[histo, Filling -> Axis, FillingStyle -> Blue,
ImageSize -> 200]
I would like to have both the Print and the ListPlot side-by-side. I
have tried various ways but the vertical middle of the ListPlot is
aligned vertically with the first line of the Print, not what I want.
I'm pretty sure there's a way to do this,but ???
Second question: how can I easily convert this:
dots = {13.450267077799438`,
8.109055556963629`, -5.398346580982599`, -6.511327150093379`, \
-9.74563291525153`,
7.903094720434787`, -8.392664097832405`, -5.9892576996334`, \
-4.612703478034474`,
3.6149284469532583`, -8.564611182475591`, -6.598329965767091`, \
-6.794209914139243`, -8.89863831014673`, 7.082991529239999`}
to this?
dots = {13.450, 8.1090`, -5.398, -6.511, -9.7456, 7.903, -8.392, -5.989,
-4.612, 3.614, -8.564, -6.598, -6.794, -8.898, 7.082};
Thanks to all for many informative replies in the past few weeks.
Steve Gray