курсовая / программа для курсовой

1. clear
clc
X=imread('C:\Users\Лиза\Desktop\19000-1680x1050.bmp');
F=[0 1 0 0 1 1 0 0 0 1 0 0 1 0 0 1 0 1 0 1 0 0 1 1 0 1 0 0 0 0 0 1];
R=X(:,:,1);
[a,b]=size(R);
if a>32
for i=1:1:32
A=dec2bin(R(i,1),8);
A(8)=dec2bin(F(i),1);
R(i,1)=bin2dec(A);
end
end
X_n=X;
X_n(:,:,1)=R;
figure(1), imshow(X)
figure(2), imshow(X_n)
imwrite(X_n,'C:\Users\Лиза\Desktop\rty1.bmp')

2. clear
clc
X=imread('C:\Users\Лиза\Desktop\rty2.bmp');
R=X(:,:,1);
for i=1:1:32
A=dec2bin(R(i,1),8);
F(i)=A(8);
end;
F