Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- clc;
- close all;
- clear all;
- %programa de graficacion de series de fourier
- t=0:0.01:1;
- T=1;
- w0=2*pi;
- c=4/pi;
- y=c.*sin(w0.*t);
- y2=c.*(sin(w0.*t)+((1/3).*(sin(3.*w0.*t))));
- y3=c.*(sin(w0.*t)+((1/3).*(sin(3.*w0.*t)))+((1/5).*(sin(5.*w0.*t))));
- y4=c.*(sin(w0.*t)+((1/3).*(sin(3.*w0.*t)))+((1/5).*(sin(5.*w0.*t)))+((1/7).*(sin(7.*w0.*t))));
- y5=c.*(sin(w0.*t)+((1/3).*(sin(3.*w0.*t)))+((1/5).*(sin(5.*w0.*t)))+((1/7).*(sin(7.*w0.*t)))+((1/9).*(sin(9.*w0.*t))));
- y6=c.*(sin(w0.*t)+((1/3).*(sin(3.*w0.*t)))+((1/5).*(sin(5.*w0.*t)))+((1/7).*(sin(7.*w0.*t)))+((1/9).*(sin(9.*w0.*t)))+((1/11).*(sin(11.*w0.*t))));
- subplot(3,3,1);
- plot(t,y,'k');
- title('(4/pi)sin(2pi*t)');
- xlabel('t');
- ylabel('y');
- subplot(3,3,2);
- plot(t,y2,'k');
- title('(4/pi)(sin(2pi*t)+((1/3)(sin(3(2pi)*t))))');
- xlabel('t');
- ylabel('y');
- subplot(3,3,3);
- plot(t,y3,'k');
- title('(4/pi)(sin((2pi)*t)+((1/3)(sin(3(2*pi)*t)))+((1/5)(sin(5(2pi)*t))))');
- xlabel('t');
- ylabel('y');
- subplot(3,3,4);
- plot(t,y4,'k');
- title('(4/pi)(sin((2pi)*t)+((1/3)(sin(3(2pi)*t)))+((1/5)(sin(5(2pi)*t)))+((1/7)(sin(7(2*pi)*t))))');
- xlabel('t');
- ylabel('y');
- subplot(3,3,6);
- plot(t,y5,'k');
- title('(4/pi)(sin((2*pi)t)+(1/3)(sin(3(2pi)*t))+(1/5)(sin(5(2pi)*t))+((1/7)(sin(7(2pi)*t)))+(1/9)(sin(9(2pi)*t)))');
- xlabel('t');
- ylabel('y');
- subplot(3,3,8);
- plot(t,y6,'k');
- title('(4/pi)(sin((2pi)t)+((1/3)(sin(3(2pi)*t)))+((1/5)(sin(5(2pi)*t)))+((1/7)(sin(7(2pi)*t)))+((1/9)(sin(9(2pi)*t)))+((1/11)(sin(11(2pi)*t))))');
- xlabel('t');
- ylabel('y');
- %plot(t,y,'r', t,y2,'g', t,y3,'b', t,y4,'y', t,y5,'m', t,y6,'k');
Advertisement
Add Comment
Please, Sign In to add comment