summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfparadata.sci
blob: 5aa4e5e594a413e69809183f4be85c04af9c5419 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
// 08.08.16

function Out=Sfparadata(varargin)
  Nargs=length(varargin);
  Fd=varargin(1);
  Ndu=25 ; Ndv=25; Np=[50,50];
  if Nargs>=3
    Ndu=varargin(2);
    Ndv=varargin(3);
  end;
  if Nargs>=4
    Np=varargin(4);
  end;
  Tmp=Sf3data(Fd,Ndu,Ndv,Np);
  Out=Projpara(Tmp);
endfunction