rectpuls: Rectangular pulse

View source: R/rectpuls.R

rectpulsR Documentation

Rectangular pulse

Description

Return samples of the unit-amplitude rectangular pulse at the times indicated by t.

Usage

rectpuls(t, w = 1)

Arguments

t

Sample times of unit rectangular pulse, specified by a vector.

w

Rectangle width, specified by a positive number. Default: 1

Details

y <- rectpuls(t) returns a continuous, aperiodic, unit-height rectangular pulse at the sample times indicated in array t, centered about t = 0.

y <- rectpuls(t, w) generates a rectangular pulse over the interval from -w/2 to w/2, sampled at times t. This is useful with the function pulstran for generating a series of pulses.

Value

Rectangular pulse of unit amplitude, returned as a vector.

Author(s)

Paul Kienzle, Mike Miller.
Conversion to R by Geert van Boxtel, G.J.M.vanBoxtel@gmail.com.

See Also

pulstran

Examples


fs <- 10e3
t <- seq(-0.1, 0.1, 1/fs)
w <- 20e-3
y <- rectpuls(t, w)
plot(t, y, type="l", xlab = "Time", ylab = "Amplitude")

fs <- 11025  # arbitrary sample rate
f0 <- 100    # pulse train sample rate
w <- 0.3/f0  # pulse width 1/10th the distance between pulses
y <- pulstran (seq(0, 4/f0, 1/fs), seq(0, 4/f0, 1/f0), 'rectpuls', w = w)
plot (seq(0, length(y)-1) * 1000/fs, y, type ="l", xlab = "Time (ms)",
      ylab = "Amplitude",
      main = "Rectangular pulse train of 3 ms pulses at 10 ms intervals")


gjmvanboxtel/gsignal documentation built on Nov. 22, 2023, 8:19 p.m.