Ketinit();
//Setfiles("");
Setparent(Cdyname()+"fig");
Setketcindyjs(["Nolabel=all","Color=white"]);
pA=Ptpos(A);
Implicitplot("1","x^2+x*y+2*y^2=1","x=[-3,3]","y=[-3,3]");
fun=Assign("(x-a)^2+(x-a)*(y-b)+2*(y-b)^2=1",["a",pA_1,"b",pA_2]);
Implicitplot("2",fun,"x=[-3,3]","y=[-3,3]");

Figpdf();
Windispg();

//Help("Impli");