unpack3.m

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

function [X1,Y1,X2,Y2,X3,Y3]=unpack3(x,W1,B1,W2,B2,W3,B3)
%This function unpacks the column vector x into X1,Y1,X2,Y2 and X3,Y3.
%Call:
% [X1,Y1,X2,Y2,X3,Y3]=unpack3(x,W1,B1,W2,B2,W3,B3)
%
if nargin ~= 7
  error('UNPACK3: Wrong number of arguments');
end
[s1,r]=size(W1);
[s2,s11]=size(W2);
if s1 ~= s11
   error('UNPACK3: Unsyncronized dimensions for W1 and W2')
end
[s3,s22]=size(W3);
if s2 ~= s22
   error('UNPACK3: Unsyncronized dimensions for W" and W3')
end
[X1,Y1,X2,Y2]=unpack2(x,W1,B1,W2,B2);
for i=1:s2
  X3(:,i)=x(s1*(r+1)+s2*(s1+1)+(i-1)*s3+1:s1*(r+1)+s2*(s1+1)+i*s3);
end
Y3(:,1)=x(s1*(r+1)+s2*(s1+1)+s2*s3+1:s1*(r+1)+s2*(s1+1)+s2*s3+s3);