403c1e68e43d83eb8f05aadfccc78e8a7149eaef
[scilab.git] / scilab / modules / signal_processing / tests / unit_tests / delip.tst
1 // =============================================================================
2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 // Copyright (C) 2008 - DIGITEO
4 //
5 //  This file is distributed under the same license as the Scilab package.
6 // =============================================================================
7
8 ck=0.5;
9 r = delip([1,2],ck);
10 ref = [1.6857504    1.6857504 + 2.1565156*%i];
11 if or(size(r)<> [1 2]) then pause,end
12 if norm(ref-r) > 1e9 *%eps then pause,end