Povzetek

OpisAm2 spec.gif	English: animated picture showing the spectrum of an amplitude-modulated transmitter. case-1: Frequency changes. case-2: Amplitude changes. MATLAB code
Datum	24. januarja 2013
Vir	programmed by myself
Avtor	Herbertweidner (talk) 12:16, 25 January 2013 (UTC)
Dovoljenje (Nadaljnja uporaba datoteke)	Public domainPublic domainfalsefalse To delo je dal v javno domeno njegov avtor Herbertweidner (talk). To velja po vsem svetu. V nekaterih državah to pravno morda ni mogoče. Če je tako, Herbertweidner (talk) daje (v okviru zakonskih omejitev) vsakomur brezpogojno pravico, da gradivo uporablja v kateri koli namen.

filename = 'am2_spek.gif'; %MATLAB code
steps     = 39;      % no of different frames 
speed     = 0.01;    % Delay in sec between frames. (Parameter passed to gif-file)
x_med = (0 : 0.001 : 2); 
axis tight; %axis([0 3 -2 2]);
% gcf is handle "current figure"
set(gcf,'nextplot','replacechildren', 'visible','off');
[im,map] = rgb2ind(f.cdata,256,'nodither'); 
freq = 3; % tiefste Frequenz
for schritt=1:steps %zuerst Frequenz ändern
 freq=freq-sign(schritt-steps/2-1);
 ton = sin(freq* 2*pi * x_med ); hold off;
 fill([0 3 3 0],[-1.5 -1.5 1.5 1.5],'w'); hold on;
 plot(x_med, ton);
 line([0,2.1], [0,0], 'Color',[0 0 0]); %Basis links
 line([2.1,2.05], [0,-.05], 'Color',[0 0 0]);
 line([2.1,2.05], [0,.05], 'Color',[0 0 0]);
 text(1,.2,'Time', 'Color',[0 0 0]) 
 line([2.1,2.9], [-1,-1], 'Color',[0 0 0]); %Basis rechts
 line([2.9,2.85], [-1,-.95], 'Color',[0 0 0]);
 line([2.9,2.85], [-1,-1.05], 'Color',[0 0 0]);
 text(2.3,-1.2,'Frequency', 'Color',[0 0 0]) 
 line([2.5,2.5],[-1,1], 'Color',[1 0 0]); %Träger
 text(2.6,0.9,'Carrier', 'Color',[1 0 0]) 
 delta=0.53*freq/steps;
 line([2.5+delta,2.5+delta],[-1,0], 'Color',[0 0.9 0]); %USB
 text(2.6,.3,'USB', 'Color',[0 0.9 0]) 
 line([2.5-delta,2.5-delta],[-1,0], 'Color',[0 0.9 0]); %LSB
 text(2.2,.3,'LSB', 'Color',[0 0.9 0]) 
 f = getframe(); % get hardcopy
 im(:,:,1,schritt) = rgb2ind(f.cdata,map,'nodither'); % store to im
end
 fc=schritt+1; %frame counter
for schritt=0:steps-2 %nun Amplitude ändern
 ampl=(cos(schritt*pi/steps))^2;
 ton = ampl*sin(freq* 2*pi * x_med ); 
 hold off;
 fill([0 3 3 0],[-1.5 -1.5 1.5 1.5],'w'); hold on;
 plot(x_med, ton);
 line([0,2.1], [0,0], 'Color',[0 0 0]); %Basis links
 line([2.1,2.05], [0,-.05], 'Color',[0 0 0]);
 line([2.1,2.05], [0,.05], 'Color',[0 0 0]);
 text(1,.2,'Time', 'Color',[0 0 0]) 
 line([2.1,2.9], [-1,-1], 'Color',[0 0 0]); %Basis rechts
 line([2.9,2.85], [-1,-.95], 'Color',[0 0 0]);
 line([2.9,2.85], [-1,-1.05], 'Color',[0 0 0]);
 text(2.3,-1.2,'Frequency', 'Color',[0 0 0]) 
 line([2.5,2.5],[-1,1], 'Color',[1 0 0]); %Träger
 text(2.6,0.9,'Carrier', 'Color',[1 0 0]) 
 line([2.5+delta,2.5+delta],[-1,-1+ampl], 'Color',[0 0.9 0]); %USB
 text(2.6,.3,'USB', 'Color',[0 0.9 0]) 
 line([2.5-delta,2.5-delta],[-1,-1+ampl], 'Color',[0 0.9 0]); %LSB
 text(2.2,.3,'LSB', 'Color',[0 0.9 0]) 
 f = getframe(); % get hardcopy
 im(:,:,1,fc) = rgb2ind(f.cdata,map,'nodither'); % store to im
 fc=fc+1;
end
% write animation to file
imwrite(im, map, filename, 'DelayTime',speed, 'LoopCount',inf)
%end

Licenca

Jaz, imetnik avtorskih pravic na tem delu, ga objavljam pod naslednjo licenco:

Datoteka je na voljo pod licenco Creative Commons Univerzalna izročitev v javno domeno CC0 1.0

Oseba, ki je delo povezala s tem dovoljenjem, je dala svoje delo v javno domeno z opustitvijo vseh svojih pravic do dela po vsem svetu pod avtorskim pravom, vključno z vsemi povezanimi in sorodnimi pravicami, v obsegu, kot ga dopušča zakonodaja. Delo lahko kopirate, spreminjate, razširjate in izvajate, tudi v gospodarske namene, ne da bi morali zaprositi za dovoljenje. http://creativecommons.org/publicdomain/zero/1.0/deed.enCC0Creative Commons Zero, Public Domain Dedicationfalsefalse