Advertisement
Guest User

Untitled

a guest
Feb 8th, 2016
68
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.11 KB | None | 0 0
  1. diagF = SparseArray[Band[{1, 1}] -> {##}] &
  2.  
  3. R= ArrayFlatten[{{A, B}, {Y, A}}]
  4.  
  5. Q = diagF[R, R, R, R,...,R]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement