Version plus rapide de la fonction déc2bin pour la conversion de nombreux éléments?

Je lis un fichier bitmap et convertissant chaque forte> des valeurs RVB allant de 0 à 255 à binaire.

Ainsi, un 230 bitmap bitmap sera de 230400 RVB pour convertir. La fonction Dec2bin originale était trop lente, alors j'ai écrit le mien comme je sais que ma valeur sera toujours comprise entre 0 et 255. P>

mais traversera 230400 Les valeurs vont toujours prendre env. 6Sec sur ma machine et une seule couleur bitmap prendront environ 2,3sec. P>

est là pour accélérer les choses pour être inférieures à 1 constituée ou même mieux 0,5 secondes, comme chaque MSEC compte pour ma demande? p>

Voici mon code: P>

function s = dec2bin_2(input)

if input == 255
    s = [1;1;1;1;1;1;1;1];
    return;
end

s = [0;0;0;0;0;0;0;0];

if input == 0
    return;
end

if input >= 128
    input = input - 128;
    s(1) = 1;
    if input == 0
        return;
    end
end

if input >= 64
    input = input - 64;
    s(2) = 1;
    if input == 0
        return;
    end
end

if input >= 32
    input = input - 32;
    s(3) = 1;
    if input == 0
        return;
    end
end

if input >= 16
    input = input - 16;
    s(4) = 1;
    if input == 0
        return;
    end
end

if input >= 8
    input = input - 8;
    s(5) = 1;
    if input == 0
        return;
    end
end

if input >= 4
    input = input - 4;
    s(6) = 1;
    if input == 0
        return;
    end
end

if input >= 2
    input = input - 2;
    s(7) = 1;
    if input == 0
        return;
    else
        s(8) = 1;
    end
end
end