summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Strop.sci
blob: 8f4da94d403935046945c2d156e2dd3110a30ba2 (plain)
1
2
3
4
5
6
7
8
9
10
11
function C=Strop(Num,Str)
  N=length(Num);
  L=ascii(Str);
  C='';
  for I=1:N
    K=Num(I);
    Tmp=char(L(K));
    C=C+Tmp;
  end
endfunction