File: sinc.sci

package info (click to toggle)
scilab 2.6-4
  • links: PTS
  • area: non-free
  • in suites: woody
  • size: 54,632 kB
  • ctags: 40,267
  • sloc: ansic: 267,851; fortran: 166,549; sh: 10,005; makefile: 4,119; tcl: 1,070; cpp: 233; csh: 143; asm: 135; perl: 130; java: 39
file content (22 lines) | stat: -rw-r--r-- 507 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
function [x]=sinc(n,fl)
//<x>=sinc(n,fl)
//Calculate n samples of the function sin(2*pi*fl*t)/(pi*t)
//for t=-n/2:n/2 (i.e. centered around the origin).
//  n  :Number of samples
//  fl :Cut-off freq. of assoc. low-pass filter in Hertz
//  x  :Samples of the sinc function
//!
// author: C. Bunks  date: 12 March 1988
// Copyright INRIA

   no2=(n-1)/2;
   ino2=int(no2);
   wl=fl*2*%pi;
   xn=sin(wl*(-no2:no2));
   xd=%pi*(-no2:no2);
   if ino2==no2 then xn(no2+1)=2*fl; xd(no2+1)=1;end
   x=xn./xd;