[Date Index]
[Thread Index]
[Author Index]
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**
| |