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);endY1(:,1)=x(s1*r+1:s1*r+s1);