test :: [Micro] -> [Micro]
test [x1,y1,x2,y2,x3,y3] = [p,q,r]
  where
    p = ((y1-y3)*(y1^2 -y2^2 +x1^2 -x2^2) - (y1-y2)*(y1^2 -y3^2 +x1^2 -x3^2)) / (2*(y1-y3)*(x1-x2)-2*(y1-y2)*(x1-x3))
    q = ((x1-x3)*(x1^2 -x2^2 +y1^2 -y2^2) - (x1-x2)*(x1^2 -x3^2 +y1^2 -y3^2)) / (2*(x1-x3)*(y1-y2)-2*(x1-x2)*(y1-y3))
    r = (read :: String -> Micro) $ show $ sqrt $ microToDouble  $ abs (x1-x2) + abs (y1-y2)
      where
        microToDouble n = (read :: String -> Double) $ show n


sf s = showFFloat (Just 3) s ""

rounds n = (fromIntegral  (round (n * 1000))) / 1000


main = do
  s' <- getContents
  let s = map (read :: String -> Micro) $ tail $ words s'
  putStr $ unlines $ map sf $ map rounds $ test [0.0,0.0,2.0,0.0,2.0,2.0]