How to convert arrayfun to for loop

1 次查看（过去 30 天）
Matt Holm
Matt Holm 2016-9-7
编辑： Andrei Bobrov 2016-9-8
I found a source code online for a vigenere cipher and was wondering how to convert it to a for loop.
function Array = Operator
count = 27; %Primary function of the vignere encryptions by creating a 27x27 array
Length = 1:count; %array of length 27
% ie, Create a matrix with 27 shifted substitution alphabets
% 1 2 3 4 5 ... 26 27
% 2 3 4 5 6 ... 27 1
% 3 4 5 6 7 ... 1 2
% etc.
Array = arrayfun(@(n) circshift(Length, [0, -n]), 0:count-1, ...
'UniformOutput', false);
Array = reshape([Array{:}], count, count);
end
function cipher_text = vigenere_cipher(origionalText,key)
Array = Operator;
key = lower(key) - double('a') + 1; %Converts all text to lowercase
key(key < 0) = 27;
origionalText = lower(origionalText) - double('a') + 1;
origionalText(origionalText < 0) = 27;
keyLength = rem(0:(numel(origionalText)-1), numel(key))+1; %Converst the key to the length of the origional text
k = key(keyLength);
% Encrypt: C(n) = V(k(n), plaintext(n))
cipher_text = arrayfun(@(m,n) Array(m,n), k, origionalText) - 1;
cipher_text(cipher_text == 26) = double(' ') - double('a');
cipher_text = upper(char(cipher_text + double('a')));
end

请先登录，再回答此问题。

采纳的回答

Thorsten
Thorsten 2016-9-7
count = 27;
Length = 1:count;
for n = 0:count-1
Array(n+1,:) = circshift(Length, [0, -n]);
end
  5 个评论
显示 3更早的评论
Thorsten
Thorsten 2016-9-8
So if you're happy, please accept my answer.

请先登录，再进行评论。

更多回答（1 个）

Andrei Bobrov
Andrei Bobrov 2016-9-7
编辑：Andrei Bobrov 2016-9-8
Array = hankel(1:27,[27,1:26]);
or
count = 27;
L = (1:count)';
Array1 = zeros(count);
for jj = 1:count
Array1(jj,:) = rem(L+jj-2,count)+1;
end
or
Array = hankel(L,circshift(L,[0,1]));
  2 个评论
Zachary Holmes
Zachary Holmes 2016-9-7
I don't want to create a new function, i just want to rewrite
Array = arrayfun(@(n) circshift(Length, [0, -n]), 0:count-1, ... 'UniformOutput', false); Array = reshape([Array{:}], count, count);
that bit of code differently

请先登录，再进行评论。

类别

在 Help Center 和 File Exchange 中查找有关 Logical 的更多信息

标签

Community Treasure Hunt

Find the treasures in MATLAB Central and discover how the community can help you!

Start Hunting!

Translated by