Code: Select all
application "tropical";
$f1 = toTropicalPolynomial("max(1*x+2*y+3*z+4*w,3*x+3*y+3*z+1*w,2*x+1*y+5*z+2*w)",qw( w x y z ));
$f2 = toTropicalPolynomial("max(5*x+2*y+3*z+0*w,7*x+1*y+1*z+1*w)",qw( w x y z ));
$f3 = toTropicalPolynomial("max(2*x+6*y+0*z+2*w,3*x+1*y+4*z+2*w)",qw( w x y z ));
$T1 = new Hypersurface<Max>(POLYNOMIAL=>$f1);
$T2 = new Hypersurface<Max>(POLYNOMIAL=>$f2);
$T3 = new Hypersurface<Max>(POLYNOMIAL=>$f3);
compose($T1->VISUAL(FacetColor=>"polymakeorange"),
$T2->VISUAL(FacetColor=>"midnightblue"),
$T3->VISUAL(FacetColor=>"darkolivegreen"));