main = do
    values <- map read . words <$> getLine
    putStrLn $ show $ solve values

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