Re: Rows
- To: mathgroup at smc.vnet.net
- Subject: [mg29457] Re: Rows
- From: "Drago Ganic" <drago.ganic at in2.hr>
- Date: Wed, 20 Jun 2001 04:36:37 -0400 (EDT)
- References: <9gn6j1$emt$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
Fujio,
try
Transpose[{A, B}]
or
Inner[List, A, B, List]
Greatings from Croatia,
Drago
<JikaiRF at aol.com> wrote in message news:9gn6j1$emt$1 at smc.vnet.net...
>
> I am contributing a report in an attached file:
>
>
>
> (***********************************************************************
>
> Mathematica-Compatible Notebook
>
> This notebook can be used on any computer system with Mathematica 3.0,
> MathReader 3.0, or any compatible application. The data for the notebook
> starts with the line of 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[ 2574, 69]*)
> (*NotebookOutlinePosition[ 3414, 96]*)
> (* CellTagsIndexPosition[ 3370, 92]*)
> (*WindowFrame->Normal*)
>
>
>
> Notebook[{
> Cell[TextData[{
> "Dear member of MathGroup:\nI would like to report a problem with ",
> StyleBox["Mathematica",
> FontSlant->"Italic"],
> ". \nMy trouble is as follows:\nConsider two rows such as A={a,b,c} and \
> B={d,e,f}. Under the above assumption, I would like to obtain a following \
> row C={{{a,d},{b,e},{c,f}}. \nI programmed in this way;\n\t\
> C={{A[[1]],B[[1]]}, {A[[2]], B[[2]]}, {A[[3]], B[[3]]}}.\n\nI obtained a \
> required conclusion, but my programming needs too many steps such as \
> {A[[100]],B[[100]]}. In fact, I suppose that the rows consist of more 500 \
> elements. So, I hope to know easier programming with ",
> StyleBox["Mathematica",
> FontSlant->"Italic"],
> ".\n\n\tP.S. My ",
> StyleBox["Mathematica",
> FontSlant->"Italic"],
> " is 3.0 version for Macintosh.\n\t\n\tSincerely,\n\tFujio Takata\n\t\
> JIkaiRF at aol.com"
> }], "Text"]
> },
> FrontEndVersion->"Macintosh 3.0",
> ScreenRectangle->{{0, 1024}, {0, 748}},
> WindowSize->{520, 653},
> WindowMargins->{{4, Automatic}, {Automatic, -2}},
> MacintoshSystemPageSetup->"\<\
> 02P0001804P000000aP2@OogooL3@09:8085N`?P0000005X0FP000003gP;A@5/
> 038;ADLH05000@4100000BL?00400@000000000000000000000000000040I000
> 00000000002O<@D08@002000000eDgTP\>"
> ]
>
>
> (***********************************************************************
> 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[1709, 49, 861, 18, 292, "Text"]
> }
> ]
> *)
>
>
>
>
> (***********************************************************************
> End of Mathematica Notebook file.
> ***********************************************************************)
>
>
>
> Thank you.
> Fujio Takata
>
>