function y = daya_rata2(x)
I = x(1);
R = x(2);
if R <= 0
    R = eps;
    y = I*I*R;
else
    y = I*I*R;
end