ARNOL1 Criptografia

function resumen = arnol_01( texto,matriz )
%UNTITLED Summary of this function goes here
%   Detailed explanation goes here
imagen=imread(texto);
[fil,col,fon]=size(imagen);
figure(1);imshow(imagen);
    aa=zeros(fil,col,fon);
    for i=1: fil
        for j=1: col
            for w=1: fon
                aux2=imagen(i,j,w);
                aux=mod(matriz*[i j]',fil);
                if(aux(1))==0
                    aux(1)=fil;
                end
                if aux(2) == 0
                    aux(2) =col;
                end
                aa(aux(1),aux(2),w)=aux2;
            end
        end
    end
    aa
    imwrite(aa,'mariposacuadrada01.bmp');
    figure(2);imshow('mariposacuadrada01.bmp');
    resumen=1;


end