blob: 27138d0fd8a53d6e04900610fe04e9a793d0cb3e (
plain)
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
|
function [y]=rectpuls(t,w)
// Generates a Rectangular pulse based on the width and sampling times.
// Calling Sequence
// [y]=rectpuls(t)
// [y]=rectpuls(t,w)
// Parameters
// t: Real or complex valued vector or matrix
// w: Real or complex valued vector or matrix
// Description
// y = rectpuls(t) returns a continuous, aperiodic, unity-height rectangular pulse depending upon input t, centered about t=0 and having default width of 1.
// y = rectpuls(t,w) generates a rectangle of width w.
// Examples
// 1. rectpuls([10 100 1000 13 839],27)
// ans = 1 0 0 1 0
// 2. rectpuls([1000 1000 100 100])
// ans = 0 0 0 0
if (argn(2)<1 | argn(2)>2) then
error ("Wrong number of input arguments.")
elseif (argn(2)==1) then
w=1;
end
if (~ isreal (w) | ~ isscalar (w))
error ("W must be a real scalar");
end
y = zeros (size(t,1), size(t,2));
idx = find ((t >= -w/2) & (t < w/2));
y(idx) = 1;
endfunction
|
