comparison spdiag.m @ 802:e3d963997527 feature/poroelastic

Merge with feature/grids
author Jonatan Werpers <jonatan@werpers.com>
date Thu, 26 Jul 2018 18:05:29 -0700
parents e76321b89c1e
children
comparison
equal deleted inserted replaced
801:bbf303c1f0cf 802:e3d963997527
3 3
4 if isrow(a) 4 if isrow(a)
5 a = a'; 5 a = a';
6 end 6 end
7 7
8 n = length(a)-abs(i); 8 n = length(a)+abs(i);
9 A = spdiags(a,i,n,n); 9 A = spdiags(a,i,n,n);
10 end 10 end