:GenRate=:MinEPS*:Min_EPS+(10000-:Battery)/80 goto1