%plotolás:
x=-pi:pi/100:pi;
y=cos(4*x).*sin(10*x).*exp(-abs(x));
figure;
%{
plot(x, y, '--s', 'LineWidth', 2,...
    'Color', [1 0 0], ...
    'MarkerEdgeColor', 'k',...
    'MarkerFaceColor', 'g',...
    'MarkerSize', 10);
%}

 %plot(x, y, 'k-');
 %semilogx(x,y, 'k'); %egyik sklála logaritmikus
 %semilogy(x,y, 'r.-');
 %loglog(x,y);

%3D plot:
%{
subplot(3,4, [3,4,7,8])
time=0:0.001:4*pi;
x2=sin(time);
y2=cos(time);
z2=time;
plot3(x2,y2,z2,'k','LineWidth', 2);
zlabel('z=Time');
xlabel('x=sin(time)');
ylabel('y=cos(time)');
xlim([-1 1]);
%axis xy;
axis ij;
%axis equal;
%axis square;
%axis tight;
%}
%megjelenít mx, colormap:
%{
mat=reshape(1:10000,100,100);% 100*100 mx-ba rak sorvektort
imagesc(mat); %beskáláz colormap-ba
colorbar;
caxis([3000 7000]);
colormap(cool);
%mymap=zeros(256,3); %én adok colormapet, csak a zöld benne az [r g b]-bõl
%mymap(:,2)=(0:255)/255;
%colormap(mymap);
%}

%surface:
%
x=-pi:0.1:pi;
y=-pi:0.1:pi;
[X,Y]=meshgrid(x,y);
Z =sin(X).*cos(Y);
surf(X,Y,Z); %egész felületet mutat
%shading faceted;
%shading flat;
%shading interp;
contour(X,Y,Z,'LineWidth',2); %szintvonalak síkra levetítve
hold on;
mesh(X,Y,Z); %háló színezve (surf ki is van töltve)
colormap(copper)
%}

%mindenféle plotok:
%{
subplot(2, 2, 1);
polar(0:0.01:2*pi,cos((0:0.01:2*pi)*2)); %polárkoord
subplot(2, 2, 2);
bar(1:10,rand(1,10)); %oszlopok
subplot(2, 2, 3);
[X,Y]=meshgrid(1:10,1:10);
quiver(X,Y,rand(10),rand(10)); %irányokba vektorok (irányt 2 koord-dal ad meg)
subplot(2, 2, 4);
stairs(1:10,rand(1,10)); %lépcsõs függvény
subplot(2, 2, 4);
fill([0 1 0.5],[0 0 1],'r'); %kiszínezett sokszög, csúcsait definiálod
%}

%a loop-nál van jobb megoldás: vektorisation
%
%find használata:
x=rand(1,10)
inds = find(x>0.4 & x<0.6) %azok indexeit adja vissza, akik megfelelnek a feltételnek
x(inds)

x= sin(linspace(0,10*pi,100));
count=length(find(x>0));

%{
%konvolúció:
a=rand(1,10);
b=[0 a(1:end-1)]+a;
%}