Problem:
Score : 600 points

Problem Statement

There are N holes in a two-dimensional plane. The coordinates of the i-th hole are (x_i,y_i).

Let R=10^{10^{10^{10}}}. Ringo performs the following operation:

Randomly choose a point from the interior of a circle of radius R centered at the origin, and put Snuke there. Snuke will move to the hole with the smallest Euclidean distance from the point, and fall into that hole. If there are multiple such holes, the hole with the smallest index will be chosen.

For every i (1 \leq i \leq N), find the probability that Snuke falls into the i-th hole.

Here, the operation of randomly choosing a point from the interior of a circle of radius R is defined as follows:

Pick two real numbers x and y independently according to uniform distribution on [-R,R].

If x^2+y^2\leq R^2, the point (x,y) is chosen. Otherwise, repeat picking the real numbers x,y until the condition is met.

Constraints

2 \leq N \leq 100

|x_i|,|y_i| \leq 10^6(1\leq i\leq N)

All given points are pairwise distinct.

All input values are integers.

Input

Input is given from Standard Input in the following format:

N
x_1 y_1
:
x_N y_N

Output

Print N real numbers. The i-th real number must represent the probability that Snuke falls into the i-th hole.

The output will be judged correct when, for all output values, the absolute or relative error is at most 10^{-5}.

Sample Input 1

2
0 0
1 1

Sample Output 1

0.5
0.5

If Ringo put Snuke in the region x+y\leq 1, Snuke will fall into the first hole. The probability of this happening is very close to 0.5.
Otherwise, Snuke will fall into the second hole, the probability of which happening is also very close to 0.5.

Sample Input 2

5
0 0
2 8
4 5
2 6
3 10

Sample Output 2

0.43160120892732328768
0.03480224363653196956
0.13880483535586193855
0.00000000000000000000
0.39479171208028279727

Solution in Haskell (GHC 7.10.3) (judge verdict: Accepted)

import Control.Monad
import Data.Fixed
import Data.List
import Data.Monoid
import Data.Ord
import Text.Printf
 
readInt = read :: String -> Int
getInt = readLn :: IO Int
getInts = map readInt . words <$> getLine
apply2 :: (a -> a -> b) -> [a] -> b
apply2 f [x,y] = f x y

angleFrom (x0,y0) (x,y) = atan2 (fromIntegral (y-y0)) (fromIntegral (x-x0))
dist2 (x0,y0) (x,y) = (x-x0)^2 + (y-y0)^2

convex :: [(Int,Int)] -> [(Int,Int)]
convex ps = firstP : sub firstP 0
  where
    sub p a = let np = nextP p a in if np==firstP then [] else np : sub np (angleFrom p np)
    firstP = minimumBy (comparing snd <> flip (comparing fst)) ps
    nextP p a = minimumBy (comparing (flip mod' (2*pi) . subtract a . angleFrom p) <> comparing (dist2 p)) (delete p ps)

solve :: Int -> [(Int,Int)] -> [Double]
solve 2 ps = [0.5,0.5]
solve n ps = [if p `elem` cvx then calc p else 0.0 | p <- ps]
  where
    cvx = convex ps
    calc p = fsub (cycle cvx) p
    fsub (v1:r@(v2:v3:_)) p
      | v2==p = mod' (angleFrom v3 v2 - angleFrom v2 v1) (2*pi) / (2*pi) -- [v1,v2,v3]
      | otherwise = fsub r p

main = do
    n <- getInt
    ps <- map (apply2 (,)) <$> replicateM n getInts
    forM_ (solve n ps) $ printf "%.15f\n"