summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fracform.sci
blob: 437ff1223c03441da0957bca5d69edb00c7c4bf4 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
// 09.08.23

function Out=Fracform(X)
  [N,D]=rat(X);
  Out=[];
  for I=1:size(X,1)
    for J=1:size(X,2)
      Tmp1=N(I,J);
      Tmp2=D(I,J);
      if Tmp2==1
        Out(I,J)=string(Tmp1);
      else
        Out(I,J)=string(Tmp1)+'/'+string(Tmp2);
      end;
    end;
  end;
endfunction;