MathGroup Archive 2011

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

Search the Archive

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:
  • 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