¡Descarga Tele24: Programación de Filters en MATLAB y OCTAVE y más Ejercicios en PDF de Física solo en Docsity!
PROGRAMACION:
function varargout = tele24(varargin)
gui_Singleton = 1; gui_State = struct('gui_Name',^ mfilename,^ ... 'gui_Singleton', gui_Singleton, ... 'gui_OpeningFcn', @tele24_OpeningFcn, ... 'gui_OutputFcn', @tele24_OutputFcn, ... 'gui_LayoutFcn', [] , ... 'gui_Callback', []); if nargin && ischar(varargin{1}) gui_State.gui_Callback = str2func(varargin{1}); end
if nargout [varargout{1:nargout}] = gui_mainfcn(gui_State, varargin{:}); else gui_mainfcn(gui_State, varargin{:}); end
function tele24_OpeningFcn(hObject, eventdata, handles, varargin)
handles.output = hObject; proy2(handles)
guidata(hObject, handles);
function varargout = tele24_OutputFcn(hObject, eventdata, handles)
varargout{1} = handles.output;
function slider1_Callback(hObject, eventdata, handles)
proy2(handles) proy1(handles) valor=get(hObject,'Value'); set(handles.tx1,'String',valor);
function slider1_CreateFcn(hObject, eventdata, handles)
if isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor')) set(hObject,'BackgroundColor',[.9 .9 .9]); end
function slider2_Callback(hObject, eventdata, handles)
proy2(handles) proy1(handles) valor=get(hObject,'Value'); set(handles.tx2,'String',valor);
function slider2_CreateFcn(hObject, eventdata, handles)
if isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor')) set(hObject,'BackgroundColor',[.9 .9 .9]); end function proy2(handles)
a=get( handles.slider1,'Value'); f=get( handles.slider2,'Value');
Ts=1/f; t=0:Ts:100;
y=asawtooth(2pi2t); axes(handles.axes1) plot(t,y) axis([0 100 -10 10])
function proy1(handles)
a=get( handles.slider1,'Value'); f=get( handles.slider2,'Value');
Ts=1/f; t=0:Ts:100;
y=asquare(2pi2t); axes(handles.axes2) plot(t,y) axis([0 100 -10 10])
subplot(222) hold on plot(w,abs(h)) title('RESPUESTA EN FRECUENCIA DEL FILTRO') hold off
subplot(221) zplane(num,den) pause(1) end
Pasa alto:
%filtros clc clear all close all for i=1: wn=0.4;% frecuencia de corte normalizada [num,den]=butter(i,wn,'high');% diseñar un filtro butterworth sys=tf(num,den,1)
[h,w]=freqz(num,den); subplot(222) hold on plot(w,abs(h)) title('RESPUESTA EN FRECUENCIA DEL FILTRO') hold off
subplot(221) zplane(num,den) pause(1) end
Pasa Banda:
fs=8000; Fnyquist=fs/2; f1=8000; f2=9000; Rp=1; Rs=60; w1=f1/Fnyquist; w2=f2/Fnyquist; n=127; w=[w1 w2]; num=fir1(n,w); fvtool(num)
