1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
|
// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
// Copyright (C) ???? - INRIA - Scilab
// Copyright (C) ???? - ENPC
// Copyright (C) 2014 - Scilab Enterprises - Pierre-Aimé AGNEL
//
// This file must be used under the terms of the CeCILL.
// This source file is licensed as described in the file COPYING, which
// you should have received as part of this distribution. The terms
// are also available at
// http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt
function [t]=soundsec (n,rate)
// Return [0,n) seconds of t parameter at frequency = rate (sample/sec)
// Always excludes the last sample if it arrives exactly at n seconds
[lhs,rhs]=argn(0);
//set rate if not defined
if rhs <=1 ; rate=22050; end;
//==============================================================================
// Format testing of the parameters
//n must be a real positive scalar
if typeof(n)=="constant"
if isreal(n)
if ~isscalar(n)
//n is not a real positive scalar
error(999, msprintf(_("%s: Wrong size for input argument #%d: %d-by-%d matrix expected.\n"),"soundsec",1,1,1));
end
else //n is not real
error(999, msprintf(_("%s: Wrong type for argument #%d: Real matrix expected.\n"),"soundsec",1));
end
else //n is not a constant matrix
error(999, msprintf(_("%s: Wrong type for argument #%d: Real matrix expected.\n"),"soundsec",1));
end
//rate must be a real strictly positive scalar
if typeof(rate)=="constant"
if isreal(rate)
if ~isscalar(rate)
//rate is not a real positive scalar
error(999, msprintf(_("%s: Wrong size for input argument #%d: %d-by-%d matrix expected.\n"),"soundsec",2,1,1));
end
else //rate is not real
error(999, msprintf(_("%s: Wrong type for argument #%d: Real matrix expected.\n"),"soundsec",2));
end
else //rate is not a constant matrix
error(999, msprintf(_("%s: Wrong type for argument #%d: Real matrix expected.\n"),"soundsec",2));
end
//n and rate must be positive
if n<0
error(999, msprintf(_("%s: Wrong value for input argument #%d: Must be >= %d.\n"),"soundsec",1,0));
end
if rate<0
error(999, msprintf(_("%s: Wrong value for input argument #%d: Must be >= %d.\n"),"soundsec",2,0));
end
//Format test end
//==============================================================================
max_sample = floor(n*rate);
if (max_sample==n*rate)
//Remove the last sample if it falls exactly at the n-th seconds
max_sample = max_sample-1
end
if rate==0
//avoid dividing by 0, if rate is 0 the result will be the empty set
rate=1;
end
t = (0:max_sample)/rate;
endfunction
|
