c.sci

来自「用scilab（和matlab一样」· SCI 代码 · 共 27 行

function v=C(u);
u1=ascii(u);//abs
u2=modulo(u1-64,26);//64
A=zeros(2,10);
for k=1:length(u2)//:
    i=modulo(k-1,2)+1;
    j=floor((k-1)/2)+1;
    A(i,j)=u2(k);
end
B=[1 2;0 3];
V=modulo(B*A,26);//B*A
for k=1:length(u2)
    i=modulo(k-1,2)+1;
    j=floor((k-1)/2)+1;
    v1(k)=V(i,j);
end
v1=v1+64;
for i=1:length(u2)
    if u1(i)<65//u1
       u1(i)=u1(i)+26;//u1
       break;
    end
end
v=char(v1)            
endfunction
//v=char(v1);