load "ovalfunc.mgm";
G := AlternatingGroup(5);
c := G!(1,2)(3,4);
b := G!(1,2,3,4,5);
a := (b*c) ^(-1);
#sub<G|a,b>;
lmn := getLMN(a,b,c);
par := getParity(lmn);
lamunu := getLaMuNu(lmn);
RPQ := getRPQ(a,b,c,G); 
lmn;
par;
lamunu;
R := RPQ[1];
P := RPQ[2];
Q := RPQ[3];


OvalRotpqr(a,b,c);
ovals := Ovalspqr(a,b,c,G);
Op := ovals[1];
Oq := ovals[2];
Or := ovals[3];



SetLogFile("rez.txt":Overwrite:=true);





OvalIntersectionPattern(Op,Op,R,G); 
UnsetLogFile();