1. Sintezēt zāģzoba signālu līdz piektajai harmoniskai komponentei.
Atbilde
clear -all; # nodzesh visus mainigos
global t=[-6:0.1:20]; # define masivu ar argumentu vertibam
T=5; # perioda garums
global W=2*pi/T; # lenkiska pamatfrekvence
for i=1:length(t) # generejam periodisku funkciju
tt=t(i); # arguments intervala 0...T
while tt<0
tt=tt+T; # ja mazaks par 0, tad pieskaitam T
endwhile
while tt>=T
tt=tt-T; # ja lielaks par T, tad atnemam
endwhile
if tt
f(i)=3*tt; # pirmais pusperiods lineara atkariba
else
f(i)=0; # otrais pusperiods 0
end
end
function res = series1(k) # aprekina Furje rindu lidz k-tajam elementam
global W t;
res=ones(1,length(t))*15/4/2; # masivs ar elementiem a0/2
for n=1:k
an=15/2/n^2/pi^2* ((-1)^n-1); # aprekinam koeficientus
bn=15/2/pi/n*(-1)^(n+1);
res += an*cos(n*W*t)+bn*sin(n*W*t); # un summu
end
endfunction
close all; # nodzes vecos grafikus, ja tadi ir
plot(t,f,"-;f(t);")
#,t,series1(1),"-;n=1;",t,series1(2),"-;n=2;",t,series1(5),"-;n=5;")
xlabel('t'); # kas ir uz asim
ylabel('f(t)');
grid on; # iesledzam rutinas
#print -demf att1.emf # saglaba faila (uz dazaam mashinam nestrada)
…
