UNED I.T INDUSTRIAL ELECTRONICA: 2012

PROGRAMAS PARA DISEÑO DE FILTROS ELECRONICOS

FILTERPRO es un software de diseño de filtros electronicos de Texas Intruments. Tiene las siguientes caracteristicas:

Varias topologias para filtros paso-banda, paso-bajo, paso-alto
Soporta rizado aleatorio en filtros Chebychev.
Genera esquemas, visualiza respuesta en frecuencia y en el tiempo y genera documentacion.
Soporta filtros Bessell, Butterworth, Chebychev, Gaussiano y fase lineal de uno a 10 polos.
Soporta paso bajo, paso-alto, paso-banda, rechazo-banda, de retraso.

Lo malo que tiene es que para bajar el programa hay que registrarse (email). Es gratis

http://www.ti.com/tool/filterpro

FILTERPRO es un software de diseño de filtros electronicos de MicroChip . Tiene las siguientes caracteristicas:

Permite el diseño de filtros paso-bajo hasta orden 8, tipo Chebyshev, Bessel or Butterworth , con respuestas en frecuencia de 0.1Hz a 10MHz.
Seleccion del paso banda o la transicion de paso banda a banda rechazada.
Seleccion del minimo factor de rizado, pendiente de la transicion, retraso de fase.
Cambiar los valores de los condensadores.
Genera modelos spice de los filtros diseñados permitiendo analisis en el tiempo en simulaciones spice.

Es gratis.

http://www.microchip.com/stellent/idcplg?IdcService=SS_GET_PAGE&nodeId=1406&dDocName=en010007

FILTERCAD es un software de diseño de filtros electronicos de Linear Technology. Se pueden diseñar paso bajo, paso-alto, paso-banda, banda-rechazada, con varias respuestas: Butterworth, Bessel, Chebychev, eliptico, Q minimo eliptico. (Es gratis)

http://www.linear.com/designtools/software/

Filter Wiz Lite es un software de diseño de filtros electronicos de Schematic.com . Tiene las siguientes caracteristicas:

Tipos paso-bajo, paso-alto, paso-banda, banda-rechazada con ordenes de 1 a 10.
Filtros Antialiasing para conversiones A/D
Aproximaciones Butterworth, Chebyshev, Chebyshev inverso, eliptico, Bessel
Graficos de ganancia, fase, retraso de grupo, respuesta a un escalon, respuesta a un impulso, diagrama de ceros y polos.
Distintas topologias dependiendo del tipo de Filtro: Sallen-Key, Multiple Feedback (MFB), Fliege, State-Variable (KHN), Akerberg-Mossberg, Friend's Single Amplifier Biquad (SAB), Boctor
Calculadoras de Slew Rate.
Lista de amplificadores operacionales basada en GBW, slew rate y corriente.

Es el hermano pequeño (es gratis) de otro programa Filter Wiz PRO de pago que cuesta sobre 70 dolares que tiene mas caracteristicas.

http://www.schematica.com/filter_wiz_files/FWLite.htm

Imagenes de señales

Imagenes de amplificadores Logaritmicos

Calcular y dibujar el intervalo de Chebyshev con R-Project

Calcular y dibujar el intervalo de Chebyshev con R-Project de las distrbuciones continuas Logaritmo-Normal, LN(1 , 0'5) y LN(1 , 0'2). Instalamos el paquete "distr" y "distrEx" en el R-Project.

Programa en R:

> library(distr)
> library(distrEx)
> X<- Lnorm(1,0.2)
> intervalo<-c(E(X)-sqrt(2*sqrt(var(X))),E(X)+sqrt(2*sqrt(var(X))))
> intervalo
[1] 1.714675 3.831714
> X2<- Lnorm(1,0.5)
> intervalo2<-c(E(X2)-sqrt(2*sqrt(var(X2))),E(X2)+sqrt(2*sqrt(var(X2))))
> intervalo2
[1] 1.268272 4.892162
> par(mfrow=c(2,1))
> cord.x <- c(intervalo[1],seq(intervalo[1],intervalo[2],0.01),intervalo[2])
> cord.y <- c(0,d(X)(seq(intervalo[1],intervalo[2],0.01)),0)
> curve(dlnorm(x,meanlog =1, sdlog =0.2), 1, 5)
> polygon(cord.x,cord.y,col='red')
> cord.x <- c(intervalo2[1],seq(intervalo2[1],intervalo2[2],0.01),intervalo2[2])
> cord.y <- c(0,d(X2)(seq(intervalo2[1],intervalo2[2],0.01)),0)
> curve(dlnorm(x,meanlog =1, sdlog =0.5), 0, 6)
> polygon(cord.x,cord.y,col='skyblue')

Dibujar y calcular la Moda y la Mediana de una Logaritmo- Normal con R-Project

Vamos a dibujar y calcular la moda y la mediana con R-Project de las distrbuciones continuas Logaritmo-Normal, LN(1 , 0'5) y LN(1 , 0'2)

Instalamos el paquete "modeest" en el R-Project.

Programa:

> library (modeest)
> par(mfrow=c(2,1))
>
> curve(dlnorm(x,meanlog =1, sdlog =0.2), 1, 5)
> moda <- lnormMode(meanlog = 1, sdlog = 0.2)
> mediana <- qlnorm(0.5, meanlog = 1, sdlog = 0.2)
> points(moda, dlnorm(moda,meanlog =1, sdlog =0.2))
> text(moda, dlnorm(moda,meanlog =1, sdlog =0.2), "Moda",pos=2)
> points(mediana, dlnorm(mediana,meanlog =1, sdlog =0.2))
> text(mediana, dlnorm(mediana,meanlog =1, sdlog =0.2), "Mediana",pos=4)
>
> curve(dlnorm(x,meanlog =1, sdlog =0.5), 0, 6)
> mediana2 <- qlnorm(0.5, meanlog = 1, sdlog = 0.5)
> moda2 <- lnormMode(meanlog = 1, sdlog = 0.5)
> points(moda2, dlnorm(moda2,meanlog =1, sdlog =0.5))
> text(moda2, dlnorm(moda2,meanlog =1, sdlog =0.5), "Moda",pos=2)
> points(mediana2, dlnorm(mediana2,meanlog =1, sdlog =0.5))
> text(mediana2, dlnorm(mediana2,meanlog =1, sdlog =0.5), "Mediana",pos=4)

Figura: