Bioseñales Programas

Bioseñales

Ejercicio

clear all

clc

fs=1000

t=[-5:1/fs:5];

N=length(t)

for n=1:N

if t(n)<0

y(n,1)=0;

else

y(n,1)=1;

end

end

y=y';

plot(t,y)

Ejercicio y1

clc

fs=1000

t=[-5:1/fs:5];

N=length(t)

for n=1:N

if t(n)<-0.5

y(n,1)=0;

else

y(n,1)=1;

if t(n)>0.5

y(n,1)=0;

else

Y(n,1)=1;

end

end

end

y1=y';

plot(t,y1)

Ejercicio y2 (rampa)

clc

fs=1000;

t=[-5:1/fs:5];

N=length(t);

for n=1:N;

if t(n)<0

y(n,1)=0;

else

if t(n)<1

y(n,1)=t(n);

else

y(n,1)=1;

end

end

end

y2=y';

plot(t,y2)

Ejercicio y3

clc

fs=1000;

t=[-5:1/fs:5];

N=length(t);

for n=1:N;

if t(n)<-1

y(n,1)=0;

else

if t(n)<0

y(n,1)=t(n)+1;

else

if t(n)<1

y(n,1)=1-t(n);

else

y(n,1)=0;

end

end

end

end

y3=y';

plot(t,y3)

Ejercicio cos

clear all

clc

t=[-5:1/1000:5];

N=length(t)

for n=1:N

y(n,1)=6*cos(4*(t(n)));

end

y=y'

plot(t,y)

Ejercicio radical

clc

fs=1000;

t=[-5:1/fs:5];

N=length(t);

for n=1:N;

if t(n)==0

y(n)=1;

else

y(n)=0;

end

end

y=y';

plot(t,y)

Ejercicio exp

clear all

clc

t=[-5:1/1000:5];

N=length(t)

for n=1:N

y(n,1)=6*exp(-3*t(n));

end

y=y'

plot(t,y)

Ejercicio sinc

clear all

clc

t=[-5:1/1000:5];

N=length(t)

for n=1:N

y(n,1)=(sin(t(n)*pi))/(t(n)*pi);

end

y=y'

plot(t,y)

Comandos 4 en 1

clc

clear all

fs=1000

t=[-5:1/fs:5];

N=length(t)

for n=1:N

y(n,1)=6*cos(4*(t(n)));

end

y=y'

...