MathGroup Archive 2013

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

Search the Archive

Re: Sparse Array Question


On 2013-04-24 01:39:04 +0000, christopher arthur said:

> Hello,
> 
> I have a list of rules for defining a SparseArray.  The list has some
> coordinates repeated with different values.  If a coordinate appears in
> the list more than once, I want to sum up the values, and then have a
> SparseArray
> 
> i.e., if my list were myList={{1,1}->1,{2,1}->2,{1,1}->3} then my
> SparseArray should have {1,1}->4.  I've tried using ReplacePart on an
> array to say myArray=ReplacePart[myArray,...] but this seems horribly
> inefficient as a way to change values in an array.
> 
> I'm using Mathematica 5.2


There is a system option for this.  Hopefully it works in 5.2 too, but 
I cannot test.

In[1]:= Normal@SparseArray[{{1, 1} -> 1, {2, 1} -> 2, {1, 1} -> 3}]
Out[1]= {{1}, {2}}

In[2]:= SetSystemOptions["SparseArrayOptions" -> "TreatRepeatedEntries" 
-> Total]

In[3]:= Normal@SparseArray[{{1, 1} -> 1, {2, 1} -> 2, {1, 1} -> 3}]
Out[3]= {{4}, {2}}

In[4]:=
(* set it back to the default *)
SetSystemOptions["SparseArrayOptions" -> "TreatRepeatedEntries" -> First]


Be very very careful with this!  It modified global behaviour, so 
there's no telling what other indirect effects it will have.




  • Prev by Date: how to obtain the inverse series for multivariable functions using
  • Next by Date: Re: Converting a magnified image of a line to a single pixel smoothed
  • Previous by thread: Re: Sparse Array Question
  • Next by thread: Generalised Hough Transformation