function [K] = Kinlet(y)

condif_params;

if (y > 0),
  K = kg;
elseif (y < -tw),
  K = kg;
else,
  K = kw;
end