Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:

курсовая / Текстовый документ

.txt
Скачиваний:
39
Добавлен:
13.04.2015
Размер:
381 б
Скачать
clear
clc
X=imread('C:\Documents and Settings\All Users\Документы\Мои рисунки\Образцы рисунков\fgh.bmp');

F=[0; 0; 0; 1; 1; 0; 1; 0; 1; 1; 0; 1; 0; 1; 1; 1];
R=[:,:,1];
k=1;
for i=1:1:32
A=dec2bin(X);
A(1)=F(k);
R(i,i)=A(k);
k=k+1;
A=dec2bin(X);
end;
imwrite(A,'C:\Documents and Settings\All Users\Документы\Мои рисунки\Образцы рисунков\rty.bmp')