Re: InputAliases

*To*: mathgroup at smc.vnet.net*Subject*: [mg122499] Re: InputAliases*From*: DrMajorBob <btreat1 at austin.rr.com>*Date*: Sun, 30 Oct 2011 04:22:26 -0500 (EST)*Delivered-to*: l-mathgroup@mail-archive0.wolfram.com*References*: <201110280934.FAA20690@smc.vnet.net>*Reply-to*: drmajorbob at yahoo.com

Thanks! Bobby On Fri, 28 Oct 2011 04:34:16 -0500, Tom De Vries <tidetabletom at gmail.com> wrote: > Hello everyone, > > I hesitate to share because I'm mostly a watcher and learner. > I benefit from the input of this group, and I know I don't know a lot > about Mathematica! > > I learned something that might be useful and so I thought, even at the > risk of sharing something obvious, maybe someone might benefit. > > I haven't used InputAliases too much, but experimented a bit with them. > > I found out that you can actually use more than just simple word > replacements. > > I typed a few expressions I was using for some math notes I was > creating, used Show Expression on the cell, got the required parts, > and then created an input alias with that. > > I was pleasantly surprised to find that it worked! > > Here are a couple examples. > > If you aren't familiar, you can use these, type esc, the alias, and > esc to get it to expand. > > So , for example, if you evaluate the line below in a notebook, then > ,type something like Here is the distance formula, esc key, > distform esc key, it will expand to give you the distance formula. > > If any others are using InputAliases, I'd be happy to hear how, and > if there are other ways to help with typing and speeding that process > up. > > Tom > > > SetOptions[EvaluationNotebook[], > InputAliases -> { > > (*sequence and series*) > "cr" -> "common ratio", > > "gs1" -> > Cell[TextData[{"For a ", "geometric sequence/series, ", " ", > Cell[BoxData[ > FormBox[StyleBox[ > RowBox[{FractionBox[SubscriptBox["t", "2"], > SubscriptBox["t", "1"]], "=", " ", > RowBox[{FractionBox[SubscriptBox["t", "3"], > SubscriptBox["t", "2"]], "=", "r"}]}], > "DisplayFormula"], TraditionalForm]]]}], "Text"], > > (*coordinate geometry*) > > "distform" -> > Cell[TextData[ > Cell[BoxData[ > FormBox[RowBox[{"d", " ", "=", " ", > SqrtBox[ > RowBox[{SuperscriptBox[ > RowBox[{"(", > RowBox[{SubscriptBox["x", "2"], "-", > SubscriptBox["x", "1"]}], ")"}], "2"], "+", > SuperscriptBox[ > RowBox[{"(", > RowBox[{SubscriptBox["y", "2"], "-", > SubscriptBox["y", "1"]}], ")"}], "2"]}]]}], > TraditionalForm]], FormatType -> "TraditionalForm"]], > "Text"] > > > }] > -- DrMajorBob at yahoo.com

**References**:**InputAliases***From:*Tom De Vries <tidetabletom@gmail.com>