Ejemplos de código en Julia de la Guía 1

# Cargo un par de paquetitos básicos

using DSP, Plots

# 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. 

let

  ns = -4:4

  x  = -2 .* d.(ns .+ 2)

  stem(ns, x; 

    xaxis="n", 

    title="a) -2d(n+2)")

end

let

  ns = -3:3

  x  = 2.0 .^ ns .* u.(ns)

  stem(ns, x; 

    xaxis="n", 

    title="b) 2^n*u(n)")

end

let

  ns = -3:3

  x  = 2.0 .^ -ns .* u.(ns)

  stem(ns, x; 

    xaxis="n", 

    title="c) 2^-n*u(n)")

end

let

  ns = -4:4

  x  = 2.0 .^ -ns .* u.(-ns)

  stem(ns, x; 

    xaxis="n", 

    title="...")

end

let

  ns = 0:11

  x  = cos.(pi/3 .* ns) .* u.(ns .- 2)

  stem(ns, x; 

    xaxis="n", 

    title="...")

end

sum(exp(-im*π/2*n) for n in 0:9)

sum(exp(im*π/2*n) for n in -2:7)

sum((1/2)^n * exp(im*π/2*n) for n in 0:9)

sum(cos(π/2*n) for n in 0:9)

let

  N  = 10

  A  = 7

  ns = -5:15

  xs = A .* (u.(ns) - u.(ns .- N))

  stem(ns, xs)

end

sub2(x)  = x[1:2:end]

function sobre2(x)

  out = zeros(2 * length(x))

  out[1:2:end] = x

  return out

end

# Ejemplo

x = cos.(0:0.3:10)

stem(x)

stem(sub2(x))

stem(sobre2(x))