P:=P-4;
elif has (lo, conjugate (eta2)) then
Q:=Q-4;
elif (has (lo, xil) and not (has (lo, conjugate (xii)))) then
P:=P+4;
elif has (lo, conjugate (xii)) then
Q:=Q+4;
elif (has (lo, xi2) and not (has (lo, conjugate (xi2)))) then
P:=P-4;
elif has (lo, conjugate (xi2)) then
Q:=Q-4;
elif has(lo,h) then
P:=P+0;
Q:=Q+0;
elif has(lo,hl) then
P:=P+1;
Q:=Q+1;
elif has(lo,hn) then
P:=P-1;
Q:=Q-1;
end if ;
return(DGHP(subs(subs({p=P,q=Q,z=10},commsep);
end proc;
GHPcomm := proc (whichcom, solvef or, whichvar)
local a,b;
(a,b) :=getpq(whichvar);