% soubor pro Matlab, atd. 

% kus reci 
s = readl16('/home/cernocky/SOUNDS/test.l16',0,inf); 
plot (s) 
% ... nejaky zoom 
axis off
slidify (1,2,1,10)
print -depsc FIG/e.eps

%%%%%%%%%%%%%%%%%%%%%
% kurs Kc - EUR - jen leden 2002, viz data z org_motiv:
load -ascii ../org_motiv/eur
n = 1:20; stem (n,eur(n)); 
xlabel('prac. dny'); ylabel('CZK/EUR - leden 2002'); grid; 
a = axis; axis([a(1) a(2) 31.6 32.4])
slidify(1,2,1,20); 
print -depsc FIG/eurdisk.eps

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% disk cosinusovky. 
n = -20:20;
s =  5 * cos (2 * pi*  n / 12); 
stem (n,s); xlabel('n'); ylabel('s[n]'); 
slidify (1,2,1,20); grid 
print -depsc FIG/5cos2pin12.eps

n = -20:20;
s = cos (8 * pi*  n / 31); 
stem (n,s); xlabel('n'); ylabel('s[n]'); 
slidify (1,2,1,20); grid 
print -depsc FIG/cos8pin31.eps

n = -20:20;
s = cos (  n / 6); 
stem (n,s); xlabel('n'); ylabel('s[n]'); 
slidify (1,2,1,20); grid 
print -depsc FIG/cosn6.eps


/usr/libexec/ld-elf.so.1: Shared object "libXaw3d.so.7" not found


