<< mima.m

Limit Voronoi diagram for a list of polynomial sites.

Let's generate some.

c  :=  Random[Integer, {-3, 3}]

times  :=  Random[Integer, {0, 1}]

\(listsum[list_]\  := \ 
      Module[
		{all, i}, 
		all\  = \ 0; 
		For[\ i = 1, \ 
          i\  <= \ Length[list], 
			all\  = \ 
            all\  + \ 
              list[\([i]\)]; 
		\ \ \(i++\);
	\ \ ]; 
		all
		]\)

coor  :=  
      Table[ times c,  {i, 5}] {t, t^2, t^3, t^4, t^5} // 
        listsum

points  =  Table[{coor, coor}, {i, 25}] // Union

Visualizing the motion of the sites.

showtrajectories[points];

Computing and visualisation of the limit Voronoi diagram.

We have two programs:
	1. serieshull[points] computes the direction hull and multiplicities.
	2. allatonce[points] computes the direction hull and multiplicities and produces a picture as well.

serieshull[points]

allatonce[points];