unpack1.m

来自「书籍“Regularization tools for training lar」· M 代码 · 共 11 行

function [X1,Y1]=unpack1(x,W1,B1)
%This function unpacks the column vector x into X1 and Y1.
%Call:
% [X1,Y1]=unpack1(x,W1,B1)
%
[s1,r]=size(W1);
for i=1:r
  X1(:,i)=x((i-1)*s1+1:i*s1);
end
Y1(:,1)=x(s1*r+1:s1*r+s1);