summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Fouriersum.sci
blob: 6182f4a7a029931aaa87d6d72f39020d50c9cdf0 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
// 09.03.12

function Out=Fouriersum(COEFF,x)
  C=Mixop(1,COEFF);
  A=Mixop(2,COEFF);
  B=Mixop(3,COEFF);
  T=Mixop(4,COEFF);
  Upto=size(A,2);
  L=T/2;
  K=1:Upto;
  Tmp1=sum(A(K).*cos(K*%pi*x/L));
  Tmp2=sum(B(K).*sin(K*%pi*x/L));
  Out=C+Tmp1+Tmp2;
endfunction;