Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2009

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

Search the Archive

Replace specific element with specific value.

  • To: mathgroup at smc.vnet.net
  • Subject: [mg99620] Replace specific element with specific value.
  • From: nick.maj at mssm.edu
  • Date: Sat, 9 May 2009 03:22:47 -0400 (EDT)

I tried this code, it gives me right and wrong results spreeded into
nested lists.

data = {{0, 2}, {2, x}, {3, 4}, {4, 6}, {6, y}, {8, 9}, {9, z}}

Table[{#1, #2 + Which[#2 === j, i, #2 =!= j, 0]} & @@@
  data, {i, {xx, yy, zz}}, {j, {x, y, z}}]

needed output:

{0, 2}, {2, x+xx}, {3, 4}, {4, 6}, {6, y+yy}, {8, 9}, {9, z+zz}}

While searching only the second element of each list, if x is found
add xx and if y is found add yy to it etc.

How to. Thanks in advance, Nick.


  • Prev by Date: Re: Help with an error with NonlinearModelFit, Mathematica 7.0
  • Next by Date: NDSolve: Functions in PDEs have different number of variables
  • Previous by thread: Errorlistplot and array of graphs
  • Next by thread: Re: Replace specific element with specific value.