Hiding image using QR factorization

i have a problem in extracting secret image in this code

clear all;

coverim = imread('house.tif'); % color image

coverim1 = coverim(:,:,3);

alpha = 0.2;

coverim1 = imresize(coverim,[256 256]);

secim = imread('lena.png');

secim1 = secim(:,:,1);

secim1 = imresize(secim1,[256 256]);

bc = coverim1(:,:,3);

[qc,rc] = qr(double(bc));

[qs,rs] = qr(double(secim1));

newr = rc+(alpha*rs);

b = qc*newr;

simage2 = cat (3, double(coverim1(:,:,1)),double( coverim1(:,:,2)),b);

simage2 = uint8(simage2);

figure(1), imshow ((simage2));

bn = simage2(:,:,3);

[qn , rn] = qr(double(bn));

rnn = (rn-rc)/alpha;

secimage = qs*rnn;

figure(2), imshow(uint8((secimage)));