MathGroup Archive 2001

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

Search the Archive

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



  • Prev by Date: Re: MathLink and MPI
  • Next by Date: Re: Rows
  • Previous by thread: Re: Rows
  • Next by thread: Re: Rows