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:
- InputAliases
- From: Tom De Vries <tidetabletom@gmail.com>
- InputAliases