let optimal_rate a s c =   let c = float_of_int c in   s /. ((1. +. (a *. s *. c)) ** 0.75)