Re: kleine Frage zu Map[]

[Peter Pein <petsie@XXXXXXX.de>]

Zum Bleistift so:

Matrix basteln:
a = Table[ToExpression[StringJoin[Prepend[ToString /@ {i, j}, "a"]]], 
{i, 4}, {j, 3}]
--> {{a11,a12,a13},{a21,a22,a23},{a31,a32,a33},{a41,a42,a43}}

Zwote Spalte ändern:
a[[All,2]] = Reverse[a[[All,2]]];
a
--> {{a11,a42,a13},{a21,a32,a23},{a31,a22,a33},{a41,a12,a43}}

Alles Gute,
Peter

Martin Heimann schrieb:
> Vielen Dank! 
>
> Allerdings funktioniert dies mit den Zeilen der Matrix - geht dies 
> auch mit den Spalten direkt, ohne vor- und nachher die Matrix zu 
> transponieren?
>
> Mit freundlichem Gruss,
> Martin Heimann
>
> On Jan 16, 2006, at 10:43, Nowak Robert wrote:
>
> > MapAt heisst das zauberwort
> >
> > *MapAt[F[{z1,z2,z3},#]&,{{1,2,3},{3,4,5},{6,7,8}},2]*
> >
> > {{1,2,3},F[{z1,z2,z3},{3,4,5}],{6,7,8}}
> >
> >  
> >
> > grüsse robert
> >
> >     -----Original Message-----
> >     *From:* Martin Heimann [mailto:martin.heimann@XXXXXXX.de]
> >     *Sent:* Sunday, January 15, 2006 11:37 PM
> >     *To:* DMUG
> >     *Subject:* kleine Frage zu Map[]
> >
> >     Liebe Kollegen,
> >
> >     ich möchte eine Funktion f[z_List] welche als Argument eine 1-d
> >     Liste nimmt auf die n-te Spalte einer Matrix M anwenden, die
> >     anderen Spalten jedoch unverändert lassen. Ich kann natürlich die
> >     n-te Spalte extrahieren, die Funktion darauf anwenden und dann
> >     die Matrix wieder zusammensetzen. Aber geht dies nicht irgendwie
> >     mit Map eleganter? 
> >
> >     Mit freundlichem Gruss,
> >     Martin Heimann 
> >     --------
> >     Max-Planck-Institute for Biogeochemistry, PF 100164, D-07701
> >     Jena, Germany 
> >     Street Address:  Beutenberg Campus, Hans-Knoell-Straße 10,
> >     D-07745 Jena
> >     Office:     +49-3641-57-6350/6301
> >     *SIP (VoIP):   1-747-617-6659                 *
> >     *Mobile - (NEW):     +49-172-360 6519*
> >     Home:     +49-3641-618247                    
> >     Fax.:     +49-3641-57-7300
> >     Email:     martin.heimann@XXXXXXX.de
> >     <mailto:martin.heimann@XXXXXXX.de>        
> >     Web:     http://www.bgc-jena.mpg.de/~martin.heimann
> >     <http://www.bgc-jena.mpg.de/%7Emartin.heimann>
>
> --------
> Max-Planck-Institute for Biogeochemistry, PF 100164, D-07701 Jena, 
> Germany 
> Street Address:  Beutenberg Campus, Hans-Knoell-Straße 10, D-07745 Jena
> Office:     +49-3641-57-6350/6301
> *SIP (VoIP):   1-747-617-6659                 *
> *Mobile - (NEW):     +49-172-360 6519*
> Home:     +49-3641-618247                    
> Fax.:     +49-3641-57-7300
> Email:     martin.heimann@XXXXXXX.de 
> <mailto:martin.heimann@XXXXXXX.de>        
> Web:     http://www.bgc-jena.mpg.de/~martin.heimann 
> <http://www.bgc-jena.mpg.de/%7Emartin.heimann>