Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2004
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2004

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

Search the Archive

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"]




  • Prev by Date: Re: Re: queueing theory : sample code
  • Next by Date: Re: Typing functions using subscripts
  • Previous by thread: Typing functions using subscripts
  • Next by thread: Re: Typing functions using subscripts