function [ max_R1,max_R2,max_L1,max_L2] = Knee_Moment(Markers)

b = strfind(Markers.Labels,'LKneeMoment'); %vyhled�n� v Labels ��sla sloupce, kde se nach�z� po�adovan� hodnoty
for i=1:length(b) 
    if b{i}==1
        l=i*3-2 %nastaven� nov� prom�nn�, kter� indexuje ��slo sloupce, kde se nach�z� po�adovan� hodnoty (pozd�ji v RawData, kde jsou v�dy 3 sloupce-x,y,z -po�adujeme sloupec x)
    end
end

d=length(Markers.RawData(:,1)); %spo��t�n� d�lky sloupc�
max_L1 = max(Markers.RawData(1:d/2+50,l)); %vypo��t�n� prvn�ho maxima
max_L2 = max(Markers.RawData(d/2+50:d,l)); %vypo��t�n� druh�ho maxima      


a = strfind(Markers.Labels,'RKneeMoment'); %vyhled�n� v Labels ��sla sloupce, kde se nach�z� po�adovan� hodnoty
for i=1:length(a) 
    if a{i}==1
        r=i*3-2 %nastaven� nov� prom�nn�, kter� indexuje ��slo sloupce, kde se nach�z� po�adovan� hodnoty (pozd�ji v RawData, kde jsou v�dy 3 sloupce-x,y,z -po�adujeme sloupec x)
    end        
end


max_R1 = max(Markers.RawData(1:d/2+50,r)); %vypo��t�n� prvn�ho maxima
max_R2 = max(Markers.RawData(d/2+50:d,r)); %vypo��t�n� druh�ho maxima 
% vykreslen� 2 graf�, pops�n� os
figure
subplot(2,1,1)
plot(Markers.RawData(:,l))
title('Left Knee Moment')
xlabel('Samples [N]')
ylabel('Moment [Nm/kg]')
hold on
subplot(2,1,2)
plot(Markers.RawData(:,r))
title('Right Knee Moment')
xlabel('Samples [N]')
ylabel('Moment [Nm/kg]')
%vyps�n� maxim
w=[max_L1,max_L2]
z=[max_R1,max_R2]

end

