Re: Three piece function
- To: mathgroup at smc.vnet.net
- Subject: [mg60220] Re: [mg60197] Three piece function
- From: Tom De Vries <tom_toad at telus.net>
- Date: Thu, 8 Sep 2005 04:52:58 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
On 9/7/05 2:03 AM, "Steven Jonak" <JonakSt at gw.kirkwood.k12.mo.us> wrote:
> I'm a little new to using Mathematica for creating handouts/quizzes and
> tests so please bear with me! I'm using Mathematica to write a test and
> I can't seem to get a decent looking three-piece function. For two
> pieces, the typesetting palette works fine. I used Show Expression to
> see how they got the curly bracket on the left side but when I tried to
> change it to three pieces with a curly bracket on the left side (a one
> row, three column matrix with the bracket) the size of the bracket
> doesn't change--and looks bad.
> Any suggestions?
>
> S Jonak
> "Maintain an even strain."
>
Hello! The cell option SpanMaxSize --> Infinity will help you.
Here is a working example I use for the purpose you are describing. Hope it
helps.
Sincerely, Tom De Vries
Cell[TextData[{
Cell[BoxData[
FormBox[
RowBox[{
RowBox[{"f", "(", "x", ")"}], " ", "=", " ",
TagBox[
StyleBox[
RowBox[{"{", GridBox[{
{"1"},
{
RowBox[{"-", "x"}]},
{"1"}
}]}],
ShowAutoStyles->False],
(#&)]}], TraditionalForm]]],
" ",
Cell[BoxData[
FormBox[GridBox[{
{
RowBox[{
RowBox[{"if", " ", "x"}],
"\[LessEqual]",
RowBox[{"-", "1"}]}]},
{
RowBox[{
RowBox[{"if", " ", "-", "1"}], " ", "<", " ", "x",
" ", "\[LessEqual]", " ", "1"}]},
{
RowBox[{
RowBox[{"if", " ", "x"}], " ", ">",
" ", "1"}]}
},
ColumnAlignments->{Left}], TraditionalForm]]]
}], "Text",
SpanMaxSize->Infinity]