MathGroup Archive 2011

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

Search the Archive

Alignment problem with Row[ ]

  • To: mathgroup at smc.vnet.net
  • Subject: [mg121315] Alignment problem with Row[ ]
  • From: "Christopher O. Young" <cy56 at comcast.net>
  • Date: Fri, 9 Sep 2011 05:51:02 -0400 (EDT)
  • Delivered-to: l-mathgroup@mail-archive0.wolfram.com

I was able to get the alignment OK by using Grid[ ] throughout, instead of
Row[ ] and Column[ ]. These last two seem to be pretty second-rate as far as
alignment options go.

DynamicModule[
 {
  f = x,
  a = 0,
  b = 6
  },
 
 Grid[
  {
   {InputField[Dynamic[f]]},
   {InputField[Dynamic[a], Number]},
   {InputField[Dynamic[b], Number]},
   
   {Grid[{
      {  (* 
       A row with the graph on the left and the difference table on \
right *)
       Dynamic[
        Plot[
         f, {x, a, b},
         PlotRange -> {{a, b}, {(f /. x -> a), (f /. x -> b)}},
         Mesh -> b - a - 1,
         GridLines -> {Range[a, b],
           Range[f /. x -> a, f /. x -> b,
            Sign[(f /. x -> b) - (f /. x -> a)]]},
         GridLinesStyle -> Directive[LightGray, Dashed],
         ImageSize -> Medium
         ] (* Plot *)
        ],   (* Column *)
       
       Dynamic[
        Row[   (* The difference table *)
         Table[
          Column[
           Differences[f /. x -> Range[a, b], k],
           ItemSize -> {3, 3}
           ],
          {k, 0, Exponent[f , x] + 1}
          ],
         Frame -> True,
         Alignment -> Top
         ]
        ]
       }
      },
     Frame -> True,
     Alignment -> {Left, Top}
     ] (* Grid for graph and difference table *)
    }
   },
  Frame -> All
  ] (* Grid for whole display *)
 ] 



I can't get the top of my difference table aligned with the top of the graph
the way I'd like to. I want to have the graph on the left and the difference
table starting at the top right corner of the graph. That way, I can like up
the differences with the steps in the graph.

Do I have to use Grid or GraphicsGrid to get this to work. Row[ ] seems to
be totally ignoring the Alignment -> {Left, Top} option here.

Thanks for any help.

Chris Young
cy56 at comcast.net

DynamicModule[
 {
  f = x,
  a = 0,
  b = 6
  },
 
 Column[{ (* The input field for the function,
   and fields for the range *)
   InputField[Dynamic[f]],
   InputField[Dynamic[a], Number],
   InputField[Dynamic[b], Number],
   
   Row[{  (* Graph on left, difference table on right *)
     
     Column[{
       Dynamic[
        Plot[
         f, {x, a, b},
         PlotRange -> {{a, b}, {(f /. x -> a), (f /. x -> b)}},
         AspectRatio -> Abs[(f /. x -> b) - (f /. x -> a)]/Abs [b - a],
         GridLines -> {Range[a, b],
           Range[f /. x -> a, f /. x -> b,
            Sign[(f /. x -> b) - (f /. x -> a)]]},
         GridLinesStyle -> Directive[LightGray, Dashed],
         ImageSize -> Medium
         ] (* Plot *)
        ]
       }],   (* Column *)
     
     Dynamic[
      Row[   (* The difference table *)
       Table[
        Column[
         Differences[f /. x -> Range[a, b], k],
         ItemSize -> {3, 3}
         ],
        {k, 0, Exponent[f , x] + 1}
        ],
       Alignment -> Center
       ]
      ]
     },
    ImageSize -> {800, 400},
    Alignment -> {Left, Top}
    ] (* Row *)
   }] (* Column *)
 ]





  • Prev by Date: Re: NonlinearModelFit and "ANOVATable" and "ParameterConfidenceIntervalTable"
  • Next by Date: Re: DiscretePlot filling is darker above axis than below
  • Previous by thread: Alignment problem with Row[ ]
  • Next by thread: Re: How to generate report with Mathematica script from command line