> restart;
 

> read("/Volumes/NATHAN USB/Math/Maple/Tropical/tropical.txt");
 

`Last updated 27 Sept 2006` 

> with(Tropical);
 

Warning, the protected names add and resultant have been redefined and unprotected 

[Poly, SylvesterMatrix, add, bestrange, coef, coefs, deriv, det, dual, dualgraph, graph, isLCP, isect, makeparametric, makepoints, makepoly, minfunc, minmult, multiply, plotgraph, plotgraphs, resultan...
[Poly, SylvesterMatrix, add, bestrange, coef, coefs, deriv, det, dual, dualgraph, graph, isLCP, isect, makeparametric, makepoints, makepoly, minfunc, minmult, multiply, plotgraph, plotgraphs, resultan...
[Poly, SylvesterMatrix, add, bestrange, coef, coefs, deriv, det, dual, dualgraph, graph, isLCP, isect, makeparametric, makepoints, makepoly, minfunc, minmult, multiply, plotgraph, plotgraphs, resultan...
 

> f:=x+y+one*z;
 

(Typesetting:-mprintslash)([f := x+y+one*z], [x+y+one*z]) 

> plotgraph(f);
 

Plot 

> g:=x+one*y+3*z;
 

(Typesetting:-mprintslash)([g := x+one*y+3*z], [x+one*y+3*z]) 

> plotgraph(g);
 

Plot 

> h:=multiply(f,g);
 

(Typesetting:-mprintslash)([h := x^2+x*y+`1`*x*z+`1`*y^2+2*y*z+4*z^2], [x^2+x*y+`1`*x*z+`1`*y^2+2*y*z+4*z^2]) 

> plotgraph(h);
 

Plot 

> dualgraph(h);
 

Plot 

> isect(f,g);
 

[Point([2, 1])] 

> plotgraphs([f,g],color=[blue,red],axes=box);
 

Plot 

> f1:=randpoly([x,y],degree=3);
 

(Typesetting:-mprintslash)([f1 := 87-56*y-62*x*y+97*x^2*y-73*x*y^2], [87-56*y-62*x*y+97*x^2*y-73*x*y^2]) 

> f2:=randpoly([x,y],degree=3);
 

(Typesetting:-mprintslash)([f2 := 62*x-82*y+80*x^2-44*y^2+71*x^3-17*x*y^2], [62*x-82*y+80*x^2-44*y^2+71*x^3-17*x*y^2]) 

> plotgraphs([f1,f2]);
 

Plot 

> dualgraph(f1);
 

Plot 

> dualgraph(f2);
 

Plot 

>