MathGroup Archive 2011

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

Search the Archive

Re: InputAliases

  • To: mathgroup at smc.vnet.net
  • Subject: [mg122526] Re: InputAliases
  • From: Mariano Pierantozzi <mariano.pierantozzi at gmail.com>
  • Date: Mon, 31 Oct 2011 06:49:51 -0500 (EST)
  • Delivered-to: l-mathgroup@mail-archive0.wolfram.com
  • References: <201110280934.FAA20690@smc.vnet.net>

Very useful!
MP

2011/10/28 Tom De Vries <tidetabletom at gmail.com>

> 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"]
>
>
>   }]
>
>


  • References:
  • Prev by Date: Assumptions - an issue. Does mathematica store it?
  • Next by Date: RE: Simple question about inverse of a function
  • Previous by thread: Re: InputAliases
  • Next by thread: delay evaluation inside RecurrencTable?