main = do
    map read . words <$> getLine >>= print . solve

solve :: [Int] -> Double
solve [a, b, x, y] = num / denom
    where num = fromIntegral $ (a + b) * min (b * x) (a * y)
          denom = fromIntegral $ a * b