clear all
clc

C=79;
C0=0;
e=0.35;
YL=1.7;
YL2=1.7;
FA=0; % [kN]
FR=14; % [kN]
FR2=0; %  [kN] Radiální zatížení na druhém ložisku

FA1=FA+0.5*FR2/YL2; % Sevøené
FA2=0.5*FR/YL;             % Odlehèené
FA=max([FA1,FA2]); % Horší pøípad

p=10/3; % exponent rovnice trvanlivosti
n=272; % otáèky ložiska [ot/min]

if FA/FR>e
    F=0.4*FR+YL*FA;
else
    F=FR;
end

LH=(C/F)^p*1000000/n/60

if LH<20000
    disp('NE!')
else
    disp('ANO!')
end
