хочу дать маленькую подсказку, попробуй вычислить какой-нибудь коэффициент вежду Ri и Si. он поможет в улучшении показателей скрипта.