155GIT1 / 6. cvičení: Porovnání verzí

Z GeoWikiCZ
(Není zobrazeno 33 mezilehlých verzí od 2 dalších uživatelů.)
Řádek 1: Řádek 1:
{{Geoinformatika}}
{{Geoinformatika}}
{{Cvičení|155GIT1|6|Algoritmizace, podmínky a cykly}}
{{Cvičení|155GIT1|6|Matlab - Grafy funkcí}}


== Náplň cvičení ==
== Náplň cvičení ==


# zobrazení zpráv, zadaní vstup
# grafické okno <code>figure</code>
# podmínky (<tt>if, else, elseif, end, all, any</tt>)
# grafy funkcí <code>plot(), subplot(), polar()</code>
# větvení (<tt>switch</tt>)
# podmínky (<tt>for, while</tt>)
# příkazy <tt>break, continue</tt>


== Ukázky ==
== Ukázky ==


=== Interaktivní vstup ===
=== Grafické okno ===


<source lang=octave>
<source lang=octave>
disp('Program vyzaduje vstup');
figure    # -> 1
a = input('Zadejte cislo a: ')
figure    # -> 2
figure(4) # -> 4
</source>
</source>


=== Větvení (if) ===
* Pro zavření všech grafických oken najednou funguje příkaz
<source lang=octave>
close all
</source>
 
=== Grafy funkcí ===


* [http://geo.fsv.cvut.cz/user/gin/git1/matlab/matlab.pdf#63]
* <code>plot()</code> {{bullet}} [http://geo.fsv.cvut.cz/vyuka/155git1/matlab/matlab.pdf#page=94 argumenty]


<source lang=octave>
<source lang=octave>
a = [1 2];
x = [0:3:360];
b = [0 3];
y = sin(x*pi/180);
plot(x, y);
%
% nove okno
figure(2)
plot(x, y, 'r+')
%
% vice grafu najednou
figure(3)
z = cos(x*pi/180);
plot(x, y, '--b', x, z, ':k');
</source>


if a < b
{{fig|octave-graf-1|<code>plot(x, y, '--b', x, z, ':k')</code>}}
    disp('a je mensi nez b');
else
    disp('a je vetsi nez b');
end;


if b
==== Popisky grafů ====
    disp('b neobsahuje zadne nulove cleny');
 
elseif a
<source lang=octave>
    disp('a neobsahuje zadne nulove cleny');
figure(4)
end;
hold on  % zapne kresleni grafu do aktivniho okna bez vymazani predchoziho obsahu
   
plot(x,y,'m');
if any(b)
plot(x,z,'b');
    disp('b obsahuje alespon jeden nenulovy clen');
title('Funkce sinus a cosinus')
end;
xlabel('argument ve stupnich')
ylabel('funkcni hodnota')
xlim([0 360])
ylim([-1.2 1.2])
box on
%
% legenda
legend('sinus','cosinus','Location','southwest')
      % prvni argumenty ('sinus','cosinus') jsou polozky legendy
      % 'Location' je jedna z vlastnosti objektu legend a bezprostredne po ni nasleduje nastaveni pripustne hodnoty teto vlastnosti ('southwest')
% V Matlabu lze pouzit i vhodnejsi umisteni legendy (nejmensi kolize s grafem)
legend('sinus','cosinus','Location','best')
% popr. zapisy, ktere umisti legendu mimo plochu grafu
legend('sinus','cosinus','eastoutside')
legend('sinus','cosinus','bestoutside')
%
grid on
plot([0 360],[0 0],'k')   % vykresleni osy x plnou cernou carou
hold off
</source>
</source>


=== Větvení (switch) ===
{{fig|octave-graf-4|Graf s popisky}}
 
==== Více grafů v jednom okně ====


<source lang=octave>
<source lang=octave>
cislo = randi(10)
x = 1:100;
figure(5)
% prvni graf
subplot(2, 2, 1)
plot(x, x)
% druhy graf
subplot(2, 2, 2)
plot(x, sqrt(x))
% treti graf
subplot(2, 2, 3)
plot(x, log(x))
% ctvrty graf
subplot(2, 2, 4)
plot(x, x.^2)
</source>


switch cislo
{{fig|octave-graf-2|<code>subplot()</code>}}
  case 1
 
    disp('cislo je 1')
==== Omezení oblasti grafu ====
  case {2,3}
 
    disp('cislo je 2 nebo 3')
<source lang=octave>
  case {4,5,6}
x = 0:0.1:5;
    disp('cislo je 4, 5 nebo 6')
y = exp(x);
  otherwise
figure(6)
    disp('cislo je vetsi nez 7')
% cely graf
end
subplot(2, 1, 1)
plot(x, y)
% vysek grafu pro oblast x <1, 2>; y <0, 10>
subplot(2, 1, 2)
plot(x, y)
axis([1,2,0,10])
</source>
</source>


=== Cyklus for ===
{{fig|octave-graf-3|<code>axis()</code>}}
 
==== Graf s orientaci os v S-JTSK ====
 
Vstupní data: [http://geo102.fsv.cvut.cz/vyuka/155GIT1/data/body.txt body.txt]


<source lang=octave>
<source lang=octave>
% vektor
% nacteni dat
n = 3
vstup = fopen('body.txt','r');
for i = 1:n
P = fscanf(vstup,'%f',[3 inf]);
    a(i) = i
BYX = P';
end
fclose(vstup);
% matice
 
for i = 1:n
% vypocet smerniku
     for j = 1:n
stan = [4001 730288.89 1054582.63]; % cb Y X (stanovisko)
         A(i,j) = i+j
DY = BYX(:,2) - stan(2);
DX = BYX(:,3) - stan(3);
sig = atan2(DY,DX);    % v radianech
sig = sig*200/pi;
% prevod smerniku do intervalu <0,400>
for i=1:length(sig)
     if sig(i)<0
         sig(i)=sig(i)+400;
     end
     end
end
end
</source>
sig  % kontrolni zobrazeni vypoctenych hodnot smerniku


=== Cyklus while ===
% kontrolni graf v JTSK
 
figure(7)
<source lang=octave>
x = BYX(:,3);
a = 1;
y = BYX(:,2);
b = 5;
cb = BYX(:,1);
while a < b
plot(-y,-x,'.r',-1*stan(2),-1*stan(3),'.b');
     a
for i=1:size(BYX,1)
     a = a + 1;
     cislab = num2str(cb(i));      % prevod numericke hodnoty na format string
     text(-y(i)+0.4,-x(i),cislab);
end
end
cislos = stan(1);
text(-1*stan(2),-1*stan(3),num2str(cislos));
title('body v JTSK');
xlabel('Y'); ylabel('X');
%
% v Matlabu je mozne i dalsi siroke ovladani vzhledu grafu, napr.:
% ----------------------------------------------------------------
axis equal % stejne meritko os X a Y
% nastaveni pozice popisu os pro aktivni osy
set(gca,'XAxisLocation','top','YAxisLocation','right');  % gca - vrati identifikator pro objekt aktivnich os
%
% zapis spravnych numerickych hodnot poradnic na (matlabovske) ose x
krokx = 10;  % rozestup poradnic
poradnicex = (-1*ceil(max(y)/10)*10) : krokx : (-1*floor(min(y)/10)*10)  % definice okrouhlych hodnot poradnic
xlim([poradnicex(1) poradnicex(end)]);
set(gca,'XTick',poradnicex);                        % definice rysek poradnic
set(gca,'XTickLabel',sprintf('%.0f|',-poradnicex)); % definice popisu rysek poradnic spolu s nastavenim jejich formatu
%
% zapis spravnych numerickych hodnot poradnic na (matlabovske) ose y
kroky = 10;
poradnicey = (-1*ceil(max(x)/10)*10) : kroky : (-1*floor(min(x)/10)*10)
ylim([poradnicey(1) poradnicey(end)]);
set(gca,'YTick',poradnicey);
set(gca,'YTickLabel',sprintf('%.0f|',-poradnicey));
</source>
</source>


=== Příkazy break, continue ===
==== Polární graf ====
* např. zobrazení polohy satelitu (tzv. Skyplot)


<source lang=octave>
<source lang=octave>
for i = 1:5
ele = [80 30 10 50];    % elevacni uhel satelitu [°]
    if i == 1
azi = [10 110 220 330]; % azimut satelitu [°]
        continue;
azi = azi*pi/180;
    elseif i == 3
figure(8)
        break;
polarplot(pi/2-azi,90-ele,'*');  % starsi funkce: polar(uhel,pruvodic,format_linie)
    end
    fprintf('i=%d\n', i);
end
</source>
</source>


== Úlohy ==
== Úlohy ==
* [[155GIT1 / 6. cvičení / Příklady|6. cvičení - příklady]]
* [[155GIT1 / 6. cvičení / Příklady|6. cvičení - příklady]]

Verze z 25. 3. 2021, 19:02

Matlab - Grafy funkcí

Náplň cvičení

  1. grafické okno figure
  2. grafy funkcí plot(), subplot(), polar()

Ukázky

Grafické okno

figure    # -> 1
figure    # -> 2
figure(4) # -> 4
  • Pro zavření všech grafických oken najednou funguje příkaz
close all

Grafy funkcí

x = [0:3:360];
y = sin(x*pi/180);
plot(x, y);
%
% nove okno
figure(2)
plot(x, y, 'r+')
%
% vice grafu najednou
figure(3)
z = cos(x*pi/180);
plot(x, y, '--b', x, z, ':k');
plot(x, y, '--b', x, z, ':k')

Popisky grafů

figure(4)
hold on  % zapne kresleni grafu do aktivniho okna bez vymazani predchoziho obsahu
plot(x,y,'m');
plot(x,z,'b');
title('Funkce sinus a cosinus')
xlabel('argument ve stupnich')
ylabel('funkcni hodnota')
xlim([0 360])
ylim([-1.2 1.2])
box on
%
% legenda
legend('sinus','cosinus','Location','southwest')
       % prvni argumenty ('sinus','cosinus') jsou polozky legendy
       % 'Location' je jedna z vlastnosti objektu legend a bezprostredne po ni nasleduje nastaveni pripustne hodnoty teto vlastnosti ('southwest')
% V Matlabu lze pouzit i vhodnejsi umisteni legendy (nejmensi kolize s grafem)
legend('sinus','cosinus','Location','best')
% popr. zapisy, ktere umisti legendu mimo plochu grafu
legend('sinus','cosinus','eastoutside')
legend('sinus','cosinus','bestoutside')
%
grid on
plot([0 360],[0 0],'k')   % vykresleni osy x plnou cernou carou
hold off
Graf s popisky

Více grafů v jednom okně

x = 1:100;
figure(5)
% prvni graf
subplot(2, 2, 1)
plot(x, x)
% druhy graf
subplot(2, 2, 2)
plot(x, sqrt(x))
% treti graf
subplot(2, 2, 3)
plot(x, log(x))
% ctvrty graf
subplot(2, 2, 4)
plot(x, x.^2)
subplot()

Omezení oblasti grafu

x = 0:0.1:5;
y = exp(x);
figure(6)
% cely graf
subplot(2, 1, 1)
plot(x, y)
% vysek grafu pro oblast x <1, 2>; y <0, 10>
subplot(2, 1, 2)
plot(x, y)
axis([1,2,0,10])
axis()

Graf s orientaci os v S-JTSK

Vstupní data: body.txt

% nacteni dat
vstup = fopen('body.txt','r');
P = fscanf(vstup,'%f',[3 inf]);
BYX = P';
fclose(vstup);

% vypocet smerniku
stan = [4001 730288.89 1054582.63]; % cb Y X (stanovisko)
DY = BYX(:,2) - stan(2);
DX = BYX(:,3) - stan(3);
sig = atan2(DY,DX);     % v radianech
sig = sig*200/pi;
% prevod smerniku do intervalu <0,400>
for i=1:length(sig)
    if sig(i)<0
        sig(i)=sig(i)+400;
    end
end
sig  % kontrolni zobrazeni vypoctenych hodnot smerniku 

% kontrolni graf v JTSK
figure(7)
x = BYX(:,3);
y = BYX(:,2);
cb = BYX(:,1);
plot(-y,-x,'.r',-1*stan(2),-1*stan(3),'.b');
for i=1:size(BYX,1)
    cislab = num2str(cb(i));      % prevod numericke hodnoty na format string
    text(-y(i)+0.4,-x(i),cislab);
end
cislos = stan(1);
text(-1*stan(2),-1*stan(3),num2str(cislos));
title('body v JTSK');
xlabel('Y'); ylabel('X');
%
% v Matlabu je mozne i dalsi siroke ovladani vzhledu grafu, napr.:
% ----------------------------------------------------------------
axis equal			 % stejne meritko os X a Y
% nastaveni pozice popisu os pro aktivni osy
set(gca,'XAxisLocation','top','YAxisLocation','right');  % gca - vrati identifikator pro objekt aktivnich os
%
% zapis spravnych numerickych hodnot poradnic na (matlabovske) ose x
krokx = 10;  % rozestup poradnic
poradnicex = (-1*ceil(max(y)/10)*10) : krokx : (-1*floor(min(y)/10)*10)  % definice okrouhlych hodnot poradnic
xlim([poradnicex(1) poradnicex(end)]);
set(gca,'XTick',poradnicex);                        % definice rysek poradnic
set(gca,'XTickLabel',sprintf('%.0f|',-poradnicex)); % definice popisu rysek poradnic spolu s nastavenim jejich formatu
%
% zapis spravnych numerickych hodnot poradnic na (matlabovske) ose y
kroky = 10;
poradnicey = (-1*ceil(max(x)/10)*10) : kroky : (-1*floor(min(x)/10)*10)
ylim([poradnicey(1) poradnicey(end)]);
set(gca,'YTick',poradnicey);
set(gca,'YTickLabel',sprintf('%.0f|',-poradnicey));

Polární graf

  • např. zobrazení polohy satelitu (tzv. Skyplot)
ele = [80 30 10 50];    % elevacni uhel satelitu [°]
azi = [10 110 220 330]; % azimut satelitu [°]
azi = azi*pi/180;
figure(8)
polarplot(pi/2-azi,90-ele,'*');  % starsi funkce: polar(uhel,pruvodic,format_linie)

Úlohy