Lines Matching refs:arc1
24 local generators,relators,genAndRel,i,j,beg,arcs,arc1,arc2,n,a,b,c,sign;
40 arc1:=[gaussCode[1][1][i]];
41 while gaussCode[1][1][i+1]>0 do i:=i+1; Add(arc1,gaussCode[1][1][i]); od;
43 Add(arc1,gaussCode[1][1][i]);
44 Add(arcs,[j,arc1]);
49 arc1:=[];
50 for j in [i..Length(gaussCode[1][1])] do Add(arc1,gaussCode[1][1][j]); od;
51 for j in [1..beg] do Add(arc1,gaussCode[1][1][j]); od;
52 Add(arcs,[Length(generators),arc1]);
58 for arc1 in arcs do
60 c:=arc1[1];
61 n:=-arc1[2][1];
64 if (-n in arc2[2]) and (not arc1=arc2) then a:=arc2[1]; fi;