FullSimplify[Log[(r - r s + s w)/(s w)]/Log[1 + r]]