Mercurial > repos > public > sbplib

comparison +scheme/Hypsyst3d.m @ 352:9b3d7fc61a36 feature/hypsyst

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Changed operator in Utux
author Ylva Rydin <ylva.rydin@telia.com>
date Thu, 10 Nov 2016 20:47:40 +0100
parents 5d5652fe826a
children dbac99d2c318
comparison
equal deleted inserted replaced
351:7cc3d5bd3692 352:9b3d7fc61a36
137 matVec=mat; 137 matVec=mat;
138 [rows,cols]=size(matVec); 138 [rows,cols]=size(matVec);
139 side=max(length(X),length(Y)); 139 side=max(length(X),length(Y));
140 cols=cols/side; 140 cols=cols/side;
141 end 141 end
142 ret=kron(ones(rows,cols),speye(side)); 142 ret=cell(rows,cols);
143 143
144 for ii=1:rows 144 for ii=1:rows
145 for jj=1:cols 145 for jj=1:cols
146 ret((ii-1)*side+1:ii*side,(jj-1)*side+1:jj*side)=diag(matVec(ii,(jj-1)*side+1:jj*side)); 146 ret{ii,jj}=diag(matVec(ii,(jj-1)*side+1:jj*side));
147 end 147 end
148 end 148 end
149 ret=cell2mat(ret);
149 end 150 end
150 151
151 152
152 function [BM]=boundary_matrices(obj,boundary) 153 function [BM]=boundary_matrices(obj,boundary)
153 params=obj.params; 154 params=obj.params;