clear all;
close all;

%vykreslenie roznych signalov harmonickych, skusanie roznych farieb, nadpis
%v obr, ....

x1=0:.1:2*pi-0.1;
y1=cos(x1);
y2=2*cos(3*x1);
y3=cos(x1-pi/2); %posunuty cos o pi/2 je sin, mozu skusat aj ine posuny
y4=sin(5*x1)+2*cos(x1);
figure;
subplot(3,1,1);
plot(x1,y1,'color', 'b');
xlabel('x','Fontsize',10);
ylabel('y_1','Fontsize',10);
title('Cos1 Function')
subplot(3,1,2)  % subplot(n,m,p) zmane mrizku n krat m plots a p je aktualne icslo kde sa kresli
plot(x1,y3,'linewidth',2,'color','g');
xlabel('x','Fontsize',10);
ylabel('y_3','Fontsize',10);
title('Cos3 Function')
subplot(3,1,3)  
stem(x1,y2,'linewidth',2,'color','g');
xlabel('x','Fontsize',10);
ylabel('y_2','Fontsize',10);
title('Cos2 Function')

%tri krivky v jednom grfe
figure;
plot(x1,y4,'marker','o','markersize',10,'color','r'); hold on;
plot (x1,sin(5*x1), 'color', 'b'); hold on;
plot (x1,2*cos(x1), 'color', 'g');
xlabel('x','Fontsize',10);
ylabel('y_4','Fontsize',10);
title('Sine+Cos Function')


%vykreslenie konstanty
a=3;
k=ones(size(x1))*a;
figure;
plot(x1,k);
title('Constant Function')

% vykreslit harm. signal x(t) = 14 cos(200*pi*t -pi/3)

Fs = 1000;                %ked daju moc malu Fs, tak funkcia nebude pekna, napr pri hodnote 10 bude zubata
t = 0:1/Fs:1-(1/Fs);
x = 14*cos(200*pi*t-pi/3); %mozu menit hustoty cosinusovky tym ze zvysuju/znizuju hodnotu 10...
figure;
plot(x);
title('Harmonic Function')

%pravouhly impulz - tato funkcia funguje iba v novej verzii matlabu, nie na
%tych v 401
% n=-1:1/1000:1;
% y=rectangularPulse(n);  %niektora verzia matlab to nema, alebo treba najst ci je nahrada, bol s tym problem na jednom mojom cviku v zime
% figure;
% plot(y);
% title('Rectangular Function')

%pravouhly impulz
sirka_impulzu=10;
dlzka_impulzu=100;
pr_impulz=zeros(1,dlzka_impulzu);
pos=floor((dlzka_impulzu-sirka_impulzu)/2);
pr_impulz(pos:pos+sirka_impulzu-1)=ones(1,sirka_impulzu);
figure;
plot(pr_impulz);grid on; title('pravouhly impulz');


%praca s wav
audio='E.wav';
[signal fs bits]=wavread(audio);
signal=signal';
figure;
plot(signal, 'color','g');grid on;  
xlabel('time [s]','Fontsize',10);
ylabel('Amplitude','Fontsize',10);
title('E sound');


%nacitanie obrazku, spravenie vyseku a potom poskaldanie kolaze
a = imread('camera.jpg');
figure;
imshow(a);
velkost = size(a);  
ydim = velkost(:,1);   %vezmi z vektora size prvu hodnotu
xdim = velkost(:,2);   %vezmi z vektora size druhu hodnotu

I2 = a(1:(xdim/2), 1:(ydim/2), 1:end); %mozu skusit spravit nejaky iny vysek a skombinovat
I3 = [I2 I2 I2; I2 I2 I2];
figure;
imshow(I3);