%------------B-format dekoder (Semestralni prace)----------------------------
% ......................stereoMS................
% 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] = stereoMS(W,X,Y)

    M = (W*sqrt(2)) + X;
    L = M + Y;
    R = M - Y;

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

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