Code: Select all
polytope > @list_of_cones = (); for (my $i=0; $i<5; ++$i) { my $C = new Cone(INPUT_RAYS=>[[1,0],[1,$i]]); push @list_of_cones, $C; }
polytope > $u = fan::union_of_cones(\@list_of_cones);
polytope > print $u->F_VECTOR;
5 4
Code: Select all
polytope > @list_of_cones = (); for (my $i=0; $i<5; ++$i) { my $C = new Cone(INPUT_RAYS=>[[1,0],[1,$i]]); push @list_of_cones, $C; }
polytope > $u = fan::union_of_cones(\@list_of_cones);
polytope > print $u->F_VECTOR;
5 4
Code: Select all
$quadric = toTropicalPolynomial("max(2*x,w+x+y,2*w+2*y,w+y+z,2*z,4*w)");