Опис файлу

ОписAm2 spec.gif	English: animated picture showing the spectrum of an amplitude-modulated transmitter. case-1: Frequency changes. case-2: Amplitude changes. MATLAB code
Час створення	24 січня 2013
Джерело	programmed by myself
Автор	Herbertweidner (talk) 12:16, 25 January 2013 (UTC)
Ліцензія (Повторне використання цього файлу)	Public domainPublic domainfalsefalse Ця робота була передана у суспільне надбання її автором, Herbertweidner (talk). Це застосовується по всьому світу. У деяких країнах це не може бути юридично можливо, в такому випадку: Herbertweidner (talk) дає кожному право на використання цієї роботи для будь-яких цілей, без будь-яких умов, якщо такі умови не вимагаються за законом.

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

Ліцензування

Я, власник авторських прав на цей твір, добровільно публікую його на умовах такої ліцензії:

Цей файл доступний на умовах Creative Commons CC0 1.0 Universal Public Domain Dedication.

Особа, що пов'язала роботу з даною дією, передала роботу у суспільне надбання шляхом відмови від усіх своїх прав на роботу по всьому світу по закону про авторське право, включаючи всі пов'язані і суміжні права, в тій мірі, що допускається законом. Ви можете копіювати, змінювати, розповсюджувати і виконувати роботу, навіть на комерційній основі, не питаючи дозволу. http://creativecommons.org/publicdomain/zero/1.0/deed.enCC0Creative Commons Zero, Public Domain Dedicationfalsefalse