Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2011

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

Search the Archive

InputAliases

  • To: mathgroup at smc.vnet.net
  • Subject: [mg122422] InputAliases
  • From: Tom De Vries <tidetabletom at gmail.com>
  • Date: Fri, 28 Oct 2011 05:34:16 -0400 (EDT)
  • Delivered-to: l-mathgroup@mail-archive0.wolfram.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"]


   }]



  • Prev by Date: Re: Table to calculate faster
  • Next by Date: Re: bug ?
  • Previous by thread: Re: Matematica Beginner/Student and Mysql
  • Next by thread: Re: InputAliases