TRAZADO DE RECORRIDOS DE MECANISMOS de BIELAS

POR BASES DE GROEBNER------------------------------------------------

_______________________________________________________

PUNTO DE CRUCE DE BIELAS ---------------------------------------

> with(grobner):

> var:=[x1,x2,y1,y2,y,x];

> p1:=y*x2-x*y2;

> p3:=y*x1+y1-y-x*y1;

> p4:=(x2^2)-2*x2*x1+(x1^2)+(y2^2)-2*y2*y1+(y1^2)-1;

> p5:=(x2^2)+(y2^2)-4;

> p6:=(x1^2)-2*x1-3+(y1^2);

> F := [p1,p5,p3,p4,p6]:

> pepe:=gbasis(F,var,tdeg);

> pep:=op(1,pepe);

> with(plots):

> implicitplot({pep},x=-0.5..1.5,y=-1..1,grid=[60,60]);

>