RE: Typing functions using subscripts

*To*: mathgroup at smc.vnet.net*Subject*: [mg45425] RE: [mg45403] Typing functions using subscripts*From*: "David Park" <djmp at earthlink.net>*Date*: Wed, 7 Jan 2004 01:09:19 -0500 (EST)*Sender*: owner-wri-mathgroup at wolfram.com

You might wish to look at the package SubscriptSymbols by Ted Ersek. You can obtain it from MathSource at the Wolfram site. David Park djmp at earthlink.net http://home.earthlink.net/~djmp/ From: sashan [mailto:nothing at important.com] To: mathgroup at smc.vnet.net Hi I'm trying to make a simple function using subscripts and greek symbols instead of typing the English equivalent. Here is one function using Greek symbols and subscripts. It doesn't work. I've also pasted the corresponding cell expression below. \!\(\(x\_2[\(?\_1\) _] := 2\ ?\_1;\)\) Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ SubscriptBox["x", "2"], "[", RowBox[{ SubscriptBox["\[Theta]", "1"], "_"}], "]"}], ":=", RowBox[{"2", " ", SubscriptBox["\[Theta]", "1"]}]}], ";"}]], "Input"] Here is a similar function that works. It avoids using the symbols and subscripts. x3[theta1_] := 3 theta1; Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"x3", "[", "theta1_", "]"}], ":=", RowBox[{"3", " ", "theta1"}]}], ";"}]], "Input"]