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;
|