Ventanas

# Cargo paquetitos

using DSP, FFTW

# Y armo un par de funciones auxiliares

stem(args...; kwargs...) = sticks(args...; 

  																marker=:circle, 

  																leg=false, 

  																kwargs...)

# Delta

d(n) = n == 0 ? 1. : 0. 

# Escalón

u(n) = n >= 0 ? 1. : 0. 

using Plots

# Pad vector with zeros on the right until its length is `n`

padright(x, n) = copyto!(zeros(eltype(x), n), x)

"""

Función módulo pero con offset (opcional)

Manda a `t` al intervalo [from, from+length)

sumándole o restándole algún múltiplo de `len`

"""

cshift(t, len, from=0) = mod(t - from, len) + from

wrect = rect(20);

stem(range(-0.5; stop=0.5, length=20), w_rect)

wrect_f = fft(padright(wrect, 1000))

plot(abs.(fftshift(wrect_f)))

whamm = hamming(20);

stem(range(-0.5; stop=0.5, length=20), whamm)

whamm_f = fft(padright(whamm, 1000))

plot(abs.(fftshift(whamm_f)))