EXPORT IKP127(IK0,s,l,cosfi)
BEGIN

RETURN 12.7/(sqrt((162/(IK0^2))+(57*cosfi*l/(IK0*s))+(5*l^2/(s^2))));
END;