update to doubles_s_and_r script

found a way to simplify code >.<