bordered elimination lss after govaerts; p.blss syntax interface
0001 function z=bellss(A,w,p,lam) 0002 % bordered elimination lss after govaerts; p.blss syntax interface 0003 n=size(w,1); 0004 [x,y]=bel(A(1:n-1,1:n-1),A(1:n-1,n),A(n,1:n-1),A(n,n),w(1:n-1),w(n)); 0005 z=[x;y];