Modelado de fourier.
Publicado por dario nahuel güimil (3 intervenciones) el 17/10/2011 18:51:45
Hola:
Quería consultar este problema que tengo, porque si bien el programa corre.
No lo esta haciendo bien, tal vez tengo un problema en el traspaso del problema al lenguaje de matlab, porque hace poco empece a usar este programa.
Gracias y disculpen las molestias.
%función de concentración exponencial y su serie de fourier trigonométrica
%1° exponencial de concentracion del componente A.
t=0:0.1:1;
cia= 20;
qsa= 2;
to=0;
n=1;
hold on
for i=1:1:n
cf= exp((-qsa*(t-to)))*cia;
k(i,:)=cf;
plot(t,k,'--r')
end
hold on
%La función trigonometrica de fourier que se aproxima a las exponenciales.
t=0:0.1:1;
m=input('ingrese un valor de m: ');
T= input(' ingrese valor del periodo: ');
wo=2*pi/T;
ao= (-cia/qsa)*(exp(-qsa)-1);
hold on
for i=1:1:m
an=(2/T)*((exp(-qsa*(t-to)).*((-cos(wo*i*t)./qsa) + (sin(wo*i*t).*wo*i/qsa)))/((wo/qsa)^2 + cia));
end
hold on
for i=1:1:m
bn= (2/T)*(((exp(-qsa*(t-to))).*(-sin(wo*i*t))./qsa * + (wo*i/(qsa)^2 ).* cos(wo*i*t).*exp(-qsa*(t-to))./(cia+(wo/qsa)^2)));
end
hold on
s=0;
for i=1:1:m
Fo=(1/2)*ao + cos(i*wo*t).* an + sin(wo*i*t).* bn ;
F(i,:)=Fo;
plot(t,F,'k')
end
Quería consultar este problema que tengo, porque si bien el programa corre.
No lo esta haciendo bien, tal vez tengo un problema en el traspaso del problema al lenguaje de matlab, porque hace poco empece a usar este programa.
Gracias y disculpen las molestias.
%función de concentración exponencial y su serie de fourier trigonométrica
%1° exponencial de concentracion del componente A.
t=0:0.1:1;
cia= 20;
qsa= 2;
to=0;
n=1;
hold on
for i=1:1:n
cf= exp((-qsa*(t-to)))*cia;
k(i,:)=cf;
plot(t,k,'--r')
end
hold on
%La función trigonometrica de fourier que se aproxima a las exponenciales.
t=0:0.1:1;
m=input('ingrese un valor de m: ');
T= input(' ingrese valor del periodo: ');
wo=2*pi/T;
ao= (-cia/qsa)*(exp(-qsa)-1);
hold on
for i=1:1:m
an=(2/T)*((exp(-qsa*(t-to)).*((-cos(wo*i*t)./qsa) + (sin(wo*i*t).*wo*i/qsa)))/((wo/qsa)^2 + cia));
end
hold on
for i=1:1:m
bn= (2/T)*(((exp(-qsa*(t-to))).*(-sin(wo*i*t))./qsa * + (wo*i/(qsa)^2 ).* cos(wo*i*t).*exp(-qsa*(t-to))./(cia+(wo/qsa)^2)));
end
hold on
s=0;
for i=1:1:m
Fo=(1/2)*ao + cos(i*wo*t).* an + sin(wo*i*t).* bn ;
F(i,:)=Fo;
plot(t,F,'k')
end
Valora esta pregunta


0