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. >***********************************************************************) > >