File: sinc.sci

package info (click to toggle)
scilab 2.4-1
  • links: PTS
  • area: non-free
  • in suites: potato, slink
  • size: 55,196 kB
  • ctags: 38,019
  • sloc: ansic: 231,970; fortran: 148,976; tcl: 7,099; makefile: 4,585; sh: 2,978; csh: 154; cpp: 101; asm: 39; sed: 5
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;