function y=mojsinus(a,f,t)

y=sin(2*%pi*f*t)

endfunction

a=2

f=0.5

t=0:0.1:2;

length(t)

S=mojsinus(a,f,t);

disp('wectorS')

S'

plot(S)

clear

step=1/8000

fs=1/step

T=2

A=0.8

fq=20

t=(0:step:T);

y1=A*sin(2*%pi*fq*t);

plot2d(t,y1)

---