bordered elimination plus one lss after govaerts; p.blss syntax interface
0001 function z=belpolss(A,w,p,lam) 0002 % bordered elimination plus one lss after govaerts; p.blss syntax interface 0003 n=size(w,1); 0004 [x,y]=belpo(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]; 0006