I think this is what I want for constant K.
This implements the new K(W) which varies from K0 for low W to K1 for large W.  Needs testing.