[Date Index]
[Thread Index]
[Author Index]
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
Prev by Date:
**Re: How to combine 2 list**
Next by Date:
**Re: List plot with random size for each point**
Previous by thread:
**InputAliases**
Next by thread:
**Re: InputAliases**
| |