Mathematica: Comment appliquer une fonction à une certaine colonne d'une table

Je voudrais appliquer une fonction à une colonne d'une table. Dire à la i-ème colonne de a (m x n) de la table. En fait, je veux juste de multiplier tous les éléments de cette colonne avec un scalaire, mais l'application d'une fonction générale serait très bien.

Il est probablement juste besoin de la Carte ou MapAt de commande, peut-être combinée avec une Transposition en vue de l'application des lignes à la place de colonnes - mais je ne peux pas comprendre la syntaxe correcte pour traiter l'ensemble d'une colonne (ou une ligne)..

Tous les conseils seraient grandement appréciés.

source d'informationauteur janitor048

  1. 6

    Par exemple,

    ranfunc=Function[{f,mat, n},Transpose[MapAt[f /@ # &, Transpose[mat], n]]]

    appliquera f à chaque élément de la n-ième colonne de tapis. Ainsi, par exemple,

    ranfunc[Sin[Cos[#]] &, {{1, 2, 3}, {a, b, c}, {\[Alpha], \[Beta], \[Gamma]}}, 2]

    appliquera Péché[Cos[#]]& à chaque élément de la deuxième colonne, tandis que

    ranfunc[s*# &, {{1, 2, 3}, {a, b, c}, {\[Alpha], \[Beta], \[Gamma]}},2]

    vont se multiplier chaque élément sur la deuxième colonne par s

  2. 16

    Voici un tableau 3x3: 

    In[1]:= table = {{1,2,3}, {4,5,6}, {7,8,9}}
Out[1]= {{1, 2, 3}, {4, 5, 6}, {7, 8, 9}}
In[2]:= table//TableForm
Out[2]//TableForm= 1   2   3
                   4   5   6
                   7   8   9

    La colonne 2 est table[[All, 2]]:

    In[3]:= table[[All, 2]]
Out[3]= {2, 5, 8}

    C'est donc une simple question de modifier uniquement la colonne: 

    In[4]:= table[[All, 2]] = 10 * table[[All, 2]]
Out[4]= {20, 50, 80}
In[5]:= table//TableForm
Out[5]//TableForm= 1   20   3
                   4   50   6
                   7   80   9

  3. 7

    Une approche polyvalente est d'utiliser ReplacePart

    Par exemple, à l'application de f à la colonne 3 de mat:

    (mat = Array[Subscript[a, ##] &, {4, 4}]) //MatrixForm

(newmat = ReplacePart[#, 3 -> f  @#[[3]] ] & /@ mat) // MatrixForm

    Suivantes multiplie chaque entrée par 10:

    (newmat2 = ReplacePart[#, 3 -> 10 #[[3]] ] & /@ mat) // MatrixForm

    Cependant, une 'rapide' façon de le faire comme suit:

    mat[[All, 3 ]] *= 10

    (Contrairement à la première méthode, toutes les entrées dans la colonne 3 de tapis sont maintenant modifié. Il n'est pas clair si vous souhaitez modifier la table existante ou pour créer une nouvelle table avec des modifications, en laissant l'original intact)

  4. 5

    MapAt fonction accepte la Partie suivante spécification:

    MapAt[f, mat, {All, 3}]

    appliquer 'f' à la colonne 3 du tableau.

  5. 4

    Une autre solution compacte que j'ai trouvé est à l'aide de la Carte et MapAt:

    Voici un exemple de Matrice:

    mat={{3,4,5},{4,7,5},{2,6,7},{3,6,9}}

    Maintenant appliquer la fonction f de la deuxième colonne:

    n=2;
Map[MapAt[f,#,n]&,mat]

    Le résultat est alors:

    {{3,f[4],5},{4,f[7],5},{2,f[6],7},{3,f[6],9}}