MathGroup Archive 1996

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

Search the Archive

Re: Replacing part of a matrix by another


In article <59voui$f82 at dragonfly.wolfram.com>,
Lidar (Hamburger) dani <dani at fh.huji.ac.il> wrote:
>Given a matrix M and a smaller matrix L, what is an elegant way to replace a
>submatrix of M by L, at some specified position {p,q}?
>
>For example:
>
>given:
>M = Array[m,{5,5}]
>L = Array[l,{2,2}]
>{p,q}={2,3}
>
>L should replace {{m[2,3],m[2,4]},{m[3,3],m[3,4]}}.
>
>Thanks,
>Dani
>

SetAttributes[setsub,HoldFirst]

setsub[M_,L_,pos_] := Array[ ( M[[##2]] = L[[Sequence @@ #]] )&
                             [ {##}, Sequence @@ ({##}+pos-1) ] &,
                             Dimensions[L] ]

Then setsub[M,L,{p,q}] should produce the desired results.

Lee
-- 
---------------------------------------------------------------
You're welcome in advance


  • Prev by Date: Re: Weibull Distribution
  • Previous by thread: Replacing part of a matrix by another
  • Next by thread: 2d interpolation with irregularly spaced data