Page 33 - 4395
P. 33
ДОДАТОК Б
MatLab-АЛГОРИТМ ОБЧИСЛЕННЯ ОБЕРНЕНОГО
ЗА МОДУЛЕМ
>> dbtype invers
1 %M-file invers_2
2 % Calculation A^(-1) mod B
3 % Inputs: number A, module B.
4 % Output: invA = A^(-1) mod B
5 % invA-string
6
7 echo off
8
9 A=1229;
10 As=dec2bin(A);
11 B=4060;
12 [G,C]=gcd(A,B);
13 invA=mod(C,B);
14 invAs=dec2bin(invA);
15 disp(sprintf('Number A = %d',A))
16 disp(sprintf('Module B = %d',B))
17 disp(sprintf('Inverse number invA = A^(-1) mod B =
%d',invA))
18 disp(sprintf('invA-string: %s',invAs))
19 disp(sprintf('A-string: %s',As))
>>
33