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

function Out=FouriercoeffL(Fn,T,Upto)
  Out=Mix(Fouriercoeff(Fn,T,'c',0));
  CL=[];
  for K=1:Upto
    Tmp=Fouriercoeff(Fn,T,'c',K);
    CL=[CL,Tmp];
  end;
  Out=Mixadd(Out,CL);
  CL=[];
  for K=1:Upto
    Tmp=Fouriercoeff(Fn,T,'s',K);
    CL=[CL,Tmp];
  end;
  Out=Mixadd(Out,CL);
  Out=Mixadd(Out,T);
endfunction;