Re: Q: Symbolize: How to create a table of indexed symbols?
- To: mathgroup at smc.vnet.net
- Subject: [mg26003] Re: [mg25953] Q: Symbolize: How to create a table of indexed symbols?
- From: "Mark Harder" <harderm at ucs.orst.edu>
- Date: Wed, 15 Nov 2000 02:09:51 -0500 (EST)
- Sender: owner-wri-mathgroup at wolfram.com
Claudius,
Clear[a];
Table[Subscript[a, i, j], {i, 3}, {j, 2}]
-mark harder
-----Original Message-----
From: Claudius Schnoerr <Claudius.Schnoerr at DDG.de>
To: mathgroup at smc.vnet.net
Subject: [mg26003] [mg25953] Q: Symbolize: How to create a table of indexed symbols?
>Hello,
>
>due to the subscripts I include a notebook in ascii at the end of this
mail.
>
>I first symbolize symbols a_,_ intended to be the elements of a matrix.
>Then manually I can create a matrix out of these symbols.
>
>What I would like ist to create the matrix by a Table[]-statement.
>
>
>Any hints are welcome.
>
>Please email any answers directly to
>
> schnoerr at mailzone.com
>
>Thank you in advance,
>
>Claudius
>
>
>(***********************************************************************
>
> Mathematica-Compatible Notebook
>
>This notebook can be used on any computer system with Mathematica 4.0,
>MathReader 4.0, or any compatible application. The data for the notebook
>starts with the line containing stars above.
>
>To get the notebook into a Mathematica-compatible application, do one of
>the following:
>
>* Save the data starting with the line of stars above into a file
> with a name ending in .nb, then open the file inside the application;
>
>* Copy the data starting with the line of stars above to the
> clipboard, then use the Paste menu command inside the application.
>
>Data for notebooks contains only printable 7-bit ASCII and can be
>sent directly in email or through ftp in text mode. Newlines can be
>CR, LF or CRLF (Unix, Macintosh or MS-DOS style).
>
>NOTE: If you modify the data for this notebook not in a Mathematica-
>compatible application, you must delete the line below containing the
>word CacheID, otherwise Mathematica-compatible applications may try to
>use invalid cache data.
>
>For more information on notebooks and Mathematica-compatible
>applications, contact Wolfram Research:
> web: http://www.wolfram.com
> email: info at wolfram.com
> phone: +1-217-398-0700 (U.S.)
>
>Notebook reader applications are available free of charge from
>Wolfram Research.
>***********************************************************************)
>
>(*CacheID: 232*)
>
>
>(*NotebookFileLineBreakTest
>NotebookFileLineBreakTest*)
>(*NotebookOptionsPosition[ 3235, 108]*)
>(*NotebookOutlinePosition[ 3890, 131]*)
>(* CellTagsIndexPosition[ 3846, 127]*)
>(*WindowFrame->Normal*)
>
>
>
>Notebook[{
>Cell[BoxData[
> \(\(Needs["\<Utilities`Notation`\>"];\)\)], "Input"],
>
>Cell["What works:", "Text"],
>
>Cell[BoxData[
> RowBox[{
> RowBox[{"Symbolize", "[",
> TagBox[\(a\_\(_Integer, _Integer\)\),
> NotationBoxTag,
> TagStyle->"NotationTemplateStyle"], "]"}], ";"}]], "Input"],
>
>Cell[BoxData[
> \(\(A = {{a\_\(1, 1\), a\_\(1, 2\)}, {a\_\(2, 1\),
> a\_\(2, 2\)}};\)\)], "Input"],
>
>Cell[CellGroupData[{
>
>Cell[BoxData[
> \(A\ // \ MatrixForm\)], "Input"],
>
>Cell[BoxData[
> TagBox[
> RowBox[{"(", "\[NoBreak]", GridBox[{
> {\(a\_\(1, 1\)\), \(a\_\(1, 2\)\)},
> {\(a\_\(2, 1\)\), \(a\_\(2, 2\)\)}
> }], "\[NoBreak]", ")"}],
> (MatrixForm[ #]&)]], "Output"]
>}, Open ]],
>
>Cell[CellGroupData[{
>
>Cell[BoxData[
> \(A /. a\_\(1, 1\) \[Rule] 1\ // \ MatrixForm\)], "Input"],
>
>Cell[BoxData[
> TagBox[
> RowBox[{"(", "\[NoBreak]", GridBox[{
> {"1", \(a\_\(1, 2\)\)},
> {\(a\_\(2, 1\)\), \(a\_\(2, 2\)\)}
> }], "\[NoBreak]", ")"}],
> (MatrixForm[ #]&)]], "Output"]
>}, Open ]],
>
>Cell[BoxData[
> \(What\ I\ would\ like\ is\ to\ get\ the\ matrix\ A\ as\ above\ \
>consisting\ of\ symbols\ by\ the\ Table -
> statement . \
> Instead\ there\ are\ only\ \(\(a\_\(j, i\)\)\(:\)\)\)], "Text"],
>
>Cell[CellGroupData[{
>
>Cell[BoxData[
> \(A = Table[a\_\(j, i\), {j, 2}, {i, 2}]\)], "Input"],
>
>Cell[BoxData[
> \({{a\_\(j, i\), a\_\(j, i\)}, {a\_\(j, i\), a\_\(j, i\)}}\)],
"Output"]
>}, Open ]]
>},
>FrontEndVersion->"4.0 for Microsoft Windows",
>ScreenRectangle->{{0, 1152}, {0, 766}},
>WindowSize->{496, 670},
>WindowMargins->{{Automatic, 87}, {21, Automatic}}
>]
>
>
>(***********************************************************************
>Cached data follows. If you edit this Notebook file directly, not using
>Mathematica, you must remove the line containing CacheID at the top of
>the file. The cache data will then be recreated when you save this file
>from within Mathematica.
>***********************************************************************)
>
>(*CellTagsOutline
>CellTagsIndex->{}
>*)
>
>(*CellTagsIndex
>CellTagsIndex->{}
>*)
>
>(*NotebookFileOutline
>Notebook[{
>Cell[1717, 49, 70, 1, 30, "Input"],
>Cell[1790, 52, 27, 0, 33, "Text"],
>Cell[1820, 54, 201, 5, 31, "Input"],
>Cell[2024, 61, 111, 2, 30, "Input"],
>
>Cell[CellGroupData[{
>Cell[2160, 67, 52, 1, 30, "Input"],
>Cell[2215, 70, 237, 6, 43, "Output"]
>}, Open ]],
>
>Cell[CellGroupData[{
>Cell[2489, 81, 77, 1, 30, "Input"],
>Cell[2569, 84, 225, 6, 43, "Output"]
>}, Open ]],
>Cell[2809, 93, 221, 4, 51, "Text"],
>
>Cell[CellGroupData[{
>Cell[3055, 101, 71, 1, 30, "Input"],
>Cell[3129, 104, 90, 1, 30, "Output"]
>}, Open ]]
>}
>]
>*)
>
>
>
>
>(***********************************************************************
>End of Mathematica Notebook file.
>***********************************************************************)
>
>