diff options
Diffstat (limited to 'texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Fouriersum.sci')
-rwxr-xr-x | texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Fouriersum.sci | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Fouriersum.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Fouriersum.sci new file mode 100755 index 00000000..6182f4a7 --- /dev/null +++ b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Fouriersum.sci @@ -0,0 +1,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; + |