function e= GetErr100b(sampin,sampout,para);
    net2=zeros(9,1);
    net3=zeros(10,1);
    O2=zeros(9,1);
    O3=zeros(10,1);
    w12=para(1:9,1:100);
    w23=para(10:19,101:109);
    for j=1:10        
    input2=sampin(:,:,j);
    In=reshape(input2,100,1);
    net2=w12*In;
    O2=sigmf(net2,[1 0]);
    net3=w23*O2;
    O3=sigmf(net3,[1,0]);
    e(j,1)=(sampout(:,j)-O3)'*(sampout(:,j)-O3)/2;
 end