%------------B-format dekoder (Semestralni prace)----------------------------
% ......................stereoXY................
% 11.11.2008
% verze 1
%!!Format zadavani dat: [vystup]=dekoder(W,X,Y,Z,'druh konverze')
%Varianty druhu konverze: 'MONO' - mono,'STERE' - stereo,'BHJ' - dvoukanalove UHJ,
% 'THJ' - standardni trikanalove horizontalni UHJ,'PHJ' - Periphonie 
%--------------------------------------------------------------------------
function [L R] = stereoXY(X,Y)

    L = (X + Y)/sqrt(2);
    R = (X - Y)/sqrt(2);

disp('reproduktory jsou v pořadí: L R')
disp('(L - left,R - right)')

% plot3(X,Y,L)

% [x,y]=meshgrid(X,Y);
% l=(x + y)/sqrt(2);
% surf(x,y,l)

% mkdir('c:\Dekoder-vystupy','stereoXY');
% 
%     wavwrite(0.999*(L/max(abs(L))),48000,'c:\Dekoder-vystupy\stereoXY\Lfeed');
%     wavwrite(0.999*(R/max(abs(R))),48000,'c:\Dekoder-vystupy\stereoXY\Rfeed');
%     