BLOCK TO BE ACTIVATED FIRST (to compute the invariants and formulas used below)

We prepare the homogeneous polynomials

var1=x[1][t]; var2=y[1][t];

P0=a00;Q0=b00

P1=a10*var1+a01*var2;Q1=b10*var1+b01*var2

P2=a20*var1^2+2a11*var1*var2+a02*var2^2;Q2=b20*var1^2+2b11*var1*var2+b02*var2^2

P=P0+P1+P2;Q=Q0+Q1+Q2

eq1=(∂_t)var1==P

eq2=(∂_t)var2==Q

Sets of changes and systems

changeClassI={a00->0,a10->0,a01->1,a20->0,a11->0,a02->0,b00->0,b10->-1,b01->cf,b20->cl,b11->cm/2,b02->cn}

changeClassII={a00->0,a10->0,a01->1,a20->0,a11->0,a02->ce,b00->0,b10->-1,b01->cf,b20->cl,b11->cm/2,b02->cn}

changeClassIII={a00->0,a10->0,a01->1,a20->0,a11->cb/2,a02->cc,b00->0,b10->-1,b01->cf,b20->cl,b11->cm/2,b02->cn}

changeGEN={a00->ca,a10->cc,a01->cd,a20->cg,a11->ch,a02->ck,b00->cb,b10->ce,b01->cf,b20->cl,b11->cm,b02->cn}

changea00toca={a00->ca,a10->cc,a01->cd,a20->cg,a11->ch,a02->ck,b00->cb,b10->ce,b01->cf,b20->cl,b11->cm,b02->cn}

changecatoa={ca->a,cc->c,cd->d,cg->g,ch->h,ck->k,cb->b,ce->e,cf->f,cl->l,cm->m,cn->n}

changecatoa00={ca->a00,cc->a10,cd->a01,cg->a20,ch->a11,ck->a02,cb->b00,ce->b10,cf->b01,cl->b20,cm->b11,cn->b02}

changea00toa={a00->a,a10->c,a01->d,a20->g,a11->h,a02->k,b00->b,b10->e,b01->f,b20->l,b11->m,b02->n}

changeatoa00={a->a00,c->a10,d->a01,g->a20,h->a11,k->a02,b->b00,e->b10,f->b01,l->b20,m->b11,n->b02}

changestarnode={a00->0,a10->λ,a01->0,a20->cg,a11->ch,a02->ck,b00->0,b10->0,b01->λ,b20->cl,b11->cm,b02->cn}

changeqvfwf1o={a00->0,a10->0,a01->-1,a20->-cv/3,a11->(cl-ca)/2,a02->cn,b00->0,b10->1,b01->0,b20->ca,b11->(3cb+2cv)/6,b02->-ca}

changeqvfws2o={a00->0,a10->1,a01->0,a20->ca,a11->cb/2,a02->cc,b00->0,b10->0,b01->-1,b20->-ck,b11->-cl/2,b02->-cm}

changeqvfwf2o={a00->0,a10->0,a01->-1,a20->(cb-cv)/3,a11->ca,a02->cn,b00->0,b10->1,b01->0,b20->ca,b11->(cb+2 cv)/6,b02->-ca}

changeqvfwf3o={a00->0,a10->0,a01->-1,a20->cl,a11->5ca/2,a02->cn,b00->0,b10->1,b01->0,b20->ca,b11->(3cl+5cn)/2,b02->0}

changetrans={aa00->a00+a10 x0+a01 y0+ a20 x0^2+2a11 x0 y0 +a02 y0^2,aa10->a10+2 a20 x0+2a11 y0,aa01->a01+2a11 x0+2a02 y0,aa20->a20,aa11->a11,aa02->a02,bb00->b00+b10 x0+b01 y0+ b20 x0^2+2b11 x0 y0 +b02 y0^2,bb10->b10+2 b20 x0+2b11 y0,bb01->b01+2b11 x0+2b02 y0,bb20->b20,bb11->b11,bb02->b02}

changetrans2={aa00->a00,aa10->a10,aa01->a01,aa20->a20,aa11->a11,aa02->a02,bb00->b00,bb10->b10,bb01->b01,bb20->b20,bb11->b11,bb02->b02}

changeReyn12={a00->0,a10->la+del,a01->mu,a20->0,a11->gam/2,a02->del,b00->0,b10->1,b01->0,b20->0,b11->0,b02->1}

changeReyn13={a00->0,a10->la,a01->mu,a20->0,a11->1/2,a02->1,b00->0,b10->1,b01->0,b20->0,b11->0,b02->1}

Canonical systems according infinite points (η>0, η<0, η=0!=M,η=M=0, C2=0)

changeI={a00->ca,a10->cc,a01->cd,a20->cg,a11->(ch-1)/2,a02->0,b00->cb,b10->ce,b01->cf,b20->0,b11->(cg-1)/2,b02->ch}

changeII={a00->ca,a10->cc,a01->cd,a20->cg,a11->(ch+1)/2,a02->0,b00->cb,b10->ce,b01->cf,b20->-1,b11->(cg)/2,b02->ch}

changeIII={a00->ca,a10->cc,a01->cd,a20->cg,a11->(ch)/2,a02->0,b00->cb,b10->ce,b01->cf,b20->0,b11->(cg-1)/2,b02->ch}

changeV=change={a00->ca,a10->cc,a01->cd,a20->1,a11->0,a02->0,b00->cb,b10->0,b01->0,b20->0,b11->1/2,b02->0}

changeIV={a00->ca,a10->cc,a01->cd,a20->cg,a11->(ch)/2,a02->0,b00->cb,b10->ce,b01->cf,b20->-1,b11->(cg)/2,b02->ch}

Canonical systems according normal forms for Hamiltonians

changeHam1={a00->cα,a10->cb,a01->cc,a20->0,a11->-1,a02->0,b00->cβ,b10->-ca,b01->-cb,b20->-3,b11->0,b02->1};changeHam2={a00->cα,a10->cb,a01->cc,a20->0,a11->0,a02->1,b00->cβ,b10->-ca,b01->-cb,b20->-1,b11->0,b02->0};changeHam3={a00->cα,a10->cb,a01->cc,a20->1,a11->0,a02->0,b00->cβ,b10->-ca,b01->-cb,b20->0,b11->-1,b02->0};changeHam4={a00->cα,a10->cb,a01->cc,a20->0,a11->0,a02->0,b00->cβ,b10->-ca,b01->-cb,b20->-1,b11->0,b02->0};

Canonical systems according normal forms for centers

changeCen1={a00->0,a10->0,a01->-1,a20->cg,a11->-1/2,a02->0,b00->0,b10->1,b01->0,b20->1,b11->3cg/2,b02->-2};changeCen2={a00->0,a10->0,a01->1,a20->0,a11->cn,a02->0,b00->0,b10->-1,b01->0,b20->cl,b11->cm,b02->-cl};
changeCen3={a00->0,a10->0,a01->1,a20->0,a11->1-ce,a02->0,b00->0,b10->-1,b01->0,b20->cd,b11->0,b02->ce};changeCen4={a00->0,a10->0,a01->1,a20->0,a11->cc,a02->cb,b00->0,b10->-1,b01->0,b20->-ca,b11->0,b02->-cc};

Canonical systems with RFI of the third degree from Regilene

changeGen ={a00->ca,a10->cc,a01->cd,a20->cg,a11->ch,a02->ck,b00->cb,b10->ce,b01->cf,b20->cl,b11->cm,b02->cn};

changeS12 ={a00->4 ca cd,a10->-8 cb,a01->0,a20->4 cc,a11->0,a02->0,b00->cc cd,b10->0,b01->4 cb,b20->0,b11->0,b02->4 ca};

firstintS12=(2cd cb -cc cd var1 + 4 cd ca var2+4 ca var1 var2^2)/(4cb^2-cc cd ca-2cc cb var1+8 cb ca var2-4 cc ca var1 var2+4 ca^2 var2^2)

changeS16 ={a00->0,a10->ca,a01->0,a20->cb,a11->0,a02->0,b00->0,b10->0,b01->-2 ca,b20->0,b11->-(cb/2),b02->cc};

changeS17={a00->0,a10->ca cb,a01->0,a20->ca cc,a11->0,a02->0,b00->0,b10->0,b01->-2 ca cb,b20->0,b11->0,b02->cb cd};

changeS18={a00->0,a10->ca,a01->0,a20->cb,a11->-(cc/2),a02->0,b00->0,b10->0,b01->-2 ca,b20->0,b11->0,b02->-2 cc};

changeS19={a00->0,a10->2 ca,a01->0,a20->cb,a11->-cc,a02->0,b00->0,b10->0,b01->-4 ca,b20->0,b11->(cb/2),b02->-2 cc};

changeS20={a00->0,a10->0,a01->0,a20->2 ca,a11->cb,a02->0,b00->0,b10->2 cc,b01->0,b20->2 cd,b11->2 ca,b02->3 cb};

changeS20New={a00->0,a10->2ce,a01->0,a20->2 ca,a11->cb,a02->0,b00->2cf,b10->2 cc,b01->6ce,b20->2 cd,b11->2 ca,b02->3 cb};

changeS21={a00->0,a10->ca cb,a01->0,a20->ca cc,a11->0,a02->0,b00->cc cd,b10->cc ce,b01->3 ca cb,b20->0,b11->((ca cc)/2),b02->0};

changeS22={a00->0,a10->2 ca cb,a01->0,a20->2 ca cc,a11->0,a02->0,b00->3 cb cd,b10->2 cc cd+cb ce,b01->3 ca cb,b20->0,b11->ca cc,b02->0};

changeS23={a00->0,a10->ca cb,a01->0,a20->-cb,a11->0,a02->0,b00->2ca cc+(ca^2) cd,b10->-3 cc,b01->2 ca cb,b20->-3 cd,b11->-((3 cb)/2),b02->0};

changeS24={a00->0,a10->-2 ca cd,a01->0,a20->2 cd,a11->0,a02->0,b00->-2 ca cb,b10->3 cb,b01->-2 ca cd,b20->cc,b11->((3 cd)/2),b02->0};

changeS25={a00->0,a10->6 ca cc,a01->0,a20->-6 cc,a11->0,a02->0,b00->2 ca cb,b10->-3 cb-ca cd,b01->4 ca cc,b20->0,b11->-3 cc,b02->0};

Systems of the class ((Subscript[C, 2])≡0)

changeH10ne0={a00->(c^2)-u,a10->2 c,a01->1,a20->1,a11->0,a02->0,b00->0,b10->0,b01->0,b20->0,b11->(1/2),b02->0};

changeH10eq0={a00->k,a10->c,a01->0,a20->1,a11->0,a02->0,b00->cl,b10->0,b01->0,b20->0,b11->(1/2),b02->0};

ConfigC20Gen={a00->k,a10->c,a01->d,a20->g,a11->h/2,a02->0,b00->cl,b10->e,b01->f,b20->0,b11->g/2,b02->h} ;

Canonical forms and projective equivalent classes

ConfigC2p1={a00->cc^2-1,a10->2cc,a01->1,a20->1,a11->0,a02->0,b00->0,b10->0,b01->0,b20->0,b11->1/2,b02->0}

ConfigDGp1={a00->0,a10->0,a01->1,a20->0,a11->c,a02->1-c^2,b00->0,b10->0,b01->0,b20->0,b11->(1/2),b02->0}

ConfigC2p2={a00->cc^2+1,a10->2cc,a01->1,a20->1,a11->0,a02->0,b00->0,b10->0,b01->0,b20->0,b11->1/2,b02->0}

ConfigDGp2={a00->0,a10->0,a01->1,a20->0,a11->c,a02->1+c^2,b00->0,b10->0,b01->0,b20->0,b11->(1/2),b02->0}

ConfigC2p3={a00->1,a10->2,a01->1,a20->1,a11->0,a02->0,b00->0,b10->0,b01->0,b20->0,b11->1/2,b02->0}

ConfigDGp3a={a00->0,a10->0,a01->1,a20->0,a11->1/2,a02->0,b00->0,b10->0,b01->0,b20->0,b11->(1/2),b02->0}

ConfigDGp3b={a00->0,a10->0,a01->-1,a20->0,a11->1/2,a02->0,b00->0,b10->0,b01->0,b20->0,b11->(1/2),b02->1}

ConfigC2p4={a00->0,a10->0,a01->1,a20->1,a11->0,a02->0,b00->0,b10->0,b01->0,b20->0,b11->1/2,b02->0}

ConfigDGp4={a00->0,a10->0,a01->1,a20->0,a11->0,a02->0,b00->0,b10->0,b01->0,b20->0,b11->(1/2),b02->0}

ConfigC2p5={a00->cc^2-1,a10->2cc,a01->0,a20->1,a11->0,a02->0,b00->0,b10->0,b01->0,b20->0,b11->1/2,b02->0}

ConfigDGp5a={a00->0,a10->0,a01->0,a20->0,a11->c,a02->1-c^2,b00->0,b10->0,b01->0,b20->0,b11->(1/2),b02->0}

ConfigDGp5b={a00->c-1,a10->3-c,a01->0,a20->-2,a11->0,a02->0,b00->0,b10->0,b01->1-c,b20->0,b11->((c-1)/2),b02->0}

ConfigC2p6={a00->c^2+1,a10->2c,a01->0,a20->1,a11->0,a02->0,b00->0,b10->0,b01->0,b20->0,b11->1/2,b02->0}

ConfigDGp6={a00->0,a10->0,a01->0,a20->0,a11->c,a02->-(c^2+1),b00->0,b10->0,b01->0,b20->0,b11->(1/2),b02->0}

ConfigC2p7={a00->1,a10->2,a01->0,a20->1,a11->0,a02->0,b00->0,b10->0,b01->0,b20->0,b11->1/2,b02->0}

ConfigDGp7a={a00->0,a10->0,a01->0,a20->0,a11->1,a02->-1,b00->0,b10->0,b01->0,b20->0,b11->(1/2),b02->0}

ConfigDGp7b={a00->1,a10->-1,a01->0,a20->0,a11->0,a02->0,b00->0,b10->0,b01->-1,b20->0,b11->(1/2),b02->0}

ConfigC2p8={a00->0,a10->1,a01->0,a20->1,a11->0,a02->0,b00->1,b10->0,b01->0,b20->0,b11->1/2,b02->0}

ConfigDGp8a={a00->0,a10->1,a01->0,a20->-1,a11->0,a02->0,b00->1,b10->-2,b01->0,b20->1,b11->0,b02->0}

ConfigDGp8b={a00->0,a10->1,a01->0,a20->1,a11->0,a02->0,b00->0,b10->0,b01->0,b20->-1,b11->1/2,b02->0}

ConfigC2p9={a00->0,a10->0,a01->0,a20->1,a11->0,a02->0,b00->1,b10->0,b01->0,b20->0,b11->1/2,b02->0}

ConfigDGp9={a00->0,a10->1,a01->0,a20->0,a11->0,a02->0,b00->0,b10->0,b01->0,b20->1,b11->0,b02->0}

Perturbed Systems

changeC2ImPert ={a00->0,a10->1+ϵ1,a01->0,a20->c+ϵ2,a11->((ϵ3)/2),a02->0,b00->ϵ4,b10->ϵ5,b01->ϵ6,b20->-1,b11->((c+ϵ2)/2),b02->-δ+ϵ3};

FiPlus=c^2(U+1)^2+(U-1)^2;

FiMinus=c^2(U+1)^2-(U-1)^2;

ConfigC2p1prt={a00->c^2-1,a10->2c,a01->1,a20->1,a11->0,a02->-U/FiMinus,b00->0,b10->0,b01->0,b20->0,b11->(1+U)/2,b02->2c U(1+U)/FiMinus};

ConfigC2p2prt={a00->c^2+1,a10->2c,a01->1,a20->1,a11->0,a02->-U/FiPlus,b00->0,b10->0,b01->0,b20->0,b11->(1+U)/2,b02->+2c U(1+U)/FiPlus};

ConfigC2p3prt={a00->((2 (1-U) (2+U))/(((-2+U))^2)),a10->2,a01->1,a20->(2/(2+U)),a11->0,a02->-(U/((1+U) (2+U))),b00->0,b10->0,b01->0,b20->0,b11->(1/2),b02->(U/(1+U))};

ConfigC2p4prt={a00->0,a10->2U,a01->1,a20->1,a11->0,a02->U/(1-2U^3),b00->0,b10->0,b01->U,b20->0,b11->(1+U^3)/2,b02->-2U^5/(1-2U^3)};

ConfigC2p5prt={a00->c^2-1,a10->2c,a01->U,a20->1,a11->0,a02->-U^3/FiMinus,b00->0,b10->0,b01->0,b20->0,b11->(1+U)/2,b02->2c U^2(1+U)/FiMinus} ;

ConfigC2p6prt={a00->c^2+1,a10->2c,a01->U,a20->1,a11->0,a02->-U^3/FiPlus,b00->0,b10->0,b01->0,b20->0,b11->(1+U)/2,b02->2c U^2(1+U)/FiPlus};

ConfigC2p7prt={a00->1+U,a10->2,a01->0,a20->1-U,a11->U/2,a02->-U^3(1+U)/(1+U+4U^3),b00->0,b10->0,b01->0,b20->0,b11->1/2,b02->U(1-U-2U^2)/(1+U+4U^3)};

ConfigC2p8prt={a00->0,a10->1,a01->0,a20->1-U^2+U^3,a11->0,a02->0,b00->1,b10->0,b01->U,b20->U,b11->1/2,b02->0}

ConfigC2p9prt={a00->0,a10->-U,a01->0,a20->1+2U^3,a11->0,a02->0,b00->1,b10->0,b01->U,b20->U,b11->1/2,b02->0}

Canonical Systems (regarding real or complex and multiplicity of finite points)

changeaitoca={(Subscript[a, 1])->cc,(Subscript[b, 1])->cd,(Subscript[c, 1])->cg,(Subscript[d, 1])->ch,(Subscript[e, 1])->ck,(Subscript[a, 2])->ce,(Subscript[b, 2])->cf,(Subscript[c, 2])->cl,(Subscript[d, 2])->cm,(Subscript[e, 2])->cn}

changeGeneral00={a00->0,a10->(Subscript[a, 1]),a01->(Subscript[b, 1]),a20->(Subscript[c, 1]),a11->(Subscript[d, 1]),a02->(Subscript[e, 1]),b00->0,b10->(Subscript[a, 2]),b01->(Subscript[b, 2]),b20->(Subscript[c, 2]),b11->(Subscript[d, 2]),b02->(Subscript[e, 2])}

changetraces={μ->finiteMu,(Subscript[ρ, 1])->trace1,(Subscript[ρ, 2])->trace2,(Subscript[ρ, 3])->trace3,(Subscript[ρ, 4])->trace4,(Subscript[Δ, 1])->det1,(Subscript[Δ, 2])->det2,(Subscript[Δ, 3])->det3,(Subscript[Δ, 4])->det4}

changediscrim={(Subscript[δ, 1])->dis1,(Subscript[δ, 2])->dis2,(Subscript[δ, 3])->dis3,(Subscript[δ, 4])->dis4}

changetoDET={μ->(Subscript[μ, det]),(Subscript[Δ, 1])->(Subscript[Δ, 1det]),(Subscript[Δ, 2])->(Subscript[Δ, 2det]),(Subscript[Δ, 3])->(Subscript[Δ, 3det]),(Subscript[Δ, 4])->(Subscript[Δ, 4det]),(Subscript[δ, 1])->(Subscript[δ, 1det]),(Subscript[δ, 2])->(Subscript[δ, 2det]),(Subscript[δ, 3])->(Subscript[δ, 3det]),(Subscript[δ, 4])->(Subscript[δ, 4det])}

changeDET={(Subscript[d, 45])->DD[4,5],(Subscript[d, 46])->DD[4,6],(Subscript[d, 56])->DD[5,6],(Subscript[d, 35])->DD[3,5],(Subscript[d, 36])->DD[3,6],(Subscript[d, 34])->DD[3,4],(Subscript[d, 26])->DD[2,6],(Subscript[d, 25])->DD[2,5],(Subscript[d, 24])->DD[2,4],(Subscript[d, 23])->DD[2,3],(Subscript[d, 16])->DD[1,6],(Subscript[d, 15])->DD[1,5],(Subscript[d, 14])->DD[1,4],(Subscript[d, 13])->DD[1,3],(Subscript[d, 12])->DD[1,2]}

changepoints={(Subscript[x, 4])->x4,(Subscript[y, 4])->y4,(Subscript[x, 3])->x3,(Subscript[y, 3])->y3}

Systems with centers

changecenter1={a00->0,a10->0,a01->1,a20->0,a11->cc,a02->cb,b00->0,b10->-1,b01->0,b20->-ca,b11->0,b02->-cc}

changecenter2={a00->0,a10->0,a01->1,a20->0,a11->1-ce,a02->0,b00->0,b10->-1,b01->0,b20->cd,b11->0,b02->ce}

changecenter3={a00->0,a10->0,a01->1,a20->0,a11->cn,a02->0,b00->0,b10->-1,b01->0,b20->cl,b11->cm,b02->-cl}

changecenter4={a00->0,a10->0,a01->-1,a20->cu,a11->-1/2,a02->0,b00->0,b10->1,b01->0,b20->1,b11->3cu/2,b02->-2}

Systems from Table 2 (all finite configurations from Vulpe)

changeSys1={a00->0,a10->c,a01->d,a20->-c,a11->h,a02->-d,b00->0,b10->e,b01->f,b20->-e,b11->m,b02->-f}/.{a->ca,b->cb,c->cc,d->cd,e->ce,f->cf,g->cg,h->ch,k->ck,l->cl,m->cm,u->cu,v->cv}

changeSr1r1r1r1={a00->0,a10->cc,a01->cd,a20->-cc,a11->ch,a02->-cd,b00->0,b10->ce,b01->cf,b20->-ce,b11->cm,b02->-cf}

changeSys2={a00->a,a10->-(a+g),a01->0,a20->g,a11->h,a02->a,
b00->b,b10->-(b+cl),b01->0,b20->cl,b11->m,b02->b}/.{a->ca,b->cb,c->cc,d->cd,e->ce,f->cf,g->cg,h->ch,k->ck,l->cl,m->cm,n->cn,u->cu,v->cv}

changeSr1r1c1c1=%

changeSys3a ={a00->((g (1+(u^2)))/(1+(v^2))),a10->-2 (g u+h v),a01->0,a20->g,a11->h,a02->((g (1+(u^2)))/(1+(v^2))),b00->((cl (1+(u^2)))/(1+(v^2))),b10->-2 (cl u+m v),b01->0,b20->cl,b11->m,b02->((cl (1+(u^2)))/(1+(v^2)))}/.{a->ca,b->cb,c->cc,d->cd,e->ce,f->cf,g->cg,h->ch,k->ck,l->cl,m->cm,n->cn,u->cu,v->cv}

changeSc1c1c1c1a=%

changeSys3b ={a00->a,a10->(a(u^2-1)-g),a01->0,a20->g,a11->0,a02->a,b00->b,b10->(b(u^2-1)-cl),b01->0,b20->cl,b11->0,b02->b}/.{a->ca,b->cb,c->cc,d->cd,e->ce,f->cf,g->cg,h->ch,k->ck,l->cl,m->cm,n->cn,u->cu,v->cv}

changeSc1c1c1c1b=%

changeSys4={a00->0,a10->c,a01->c u,a20->-c,a11->h,a02->-c u,b00->0,b10->e,b01->e u,b20->-e,b11->m,b02->-e u}/.{a->ca,b->cb,c->cc,d->cd,e->ce,f->cf,g->cg,h->ch,k->ck,l->cl,m->cm,n->cn,u->cu,v->cv}

changeSr2r1r1=%

changeSys5 ={a00->0,a10->c m,a01->2 c n,a20->g,a11->-c  n,a02->g+c m,b00->0,b10->e m,b01->2 e n,b20->cl,b11->-e n,b02->cl+e m}/.{a->ca,b->cb,c->cc,d->cd,e->ce,f->cf,g->cg,h->ch,k->ck,l->cl,m->cm,n->cn,u->cu,v->cv}

changeSr2c1c1=%

changeSys6 ={a00->0,a10->c,a01->c u,a20->-c,a11->c v,a02->k,b00->0,b10->e,b01->e u,b20->-e,b11->e v,b02->n}/.{a->ca,b->cb,c->cc,d->cd,e->ce,f->cf,g->cg,h->ch,k->ck,l->cl,m->cm,n->cn,u->cu,v->cv}

changeSr2r2=%

changeSys7 ={a00->a,a10->a u,a01->0,a20->g,a11->a v,a02->a,b00->b,b10->b u,b01->0,b20->cl,b11->b v,b02->b}/.{a->ca,b->cb,c->cc,d->cd,e->ce,f->cf,g->cg,h->ch,k->ck,l->cl,m->cm,n->cn,u->cu,v->cv}

changeSc2c2=%

changeSys8={a00->0,a10->c,a01->c u,a20->-c,a11->h,a02->2 h u+c v,b00->0,b10->e,b01->e u,b20->-e,b11->m,b02->2 m u+e v}/.{a->ca,b->cb,c->cc,d->cd,e->ce,f->cf,g->cg,h->ch,k->ck,l->cl,m->cm,n->cn,u->cu,v->cv}

changeSr3r1=%

changeSys9a ={a00->0,a10->0,a01->0,a20->0,a11->0,a02->1,
                b00->0,b10->0,b01->1,b20->1,b11->m,b02->n} /.{a->ca,b->cb,c->cc,d->cd,e->ce,f->cf,g->cg,h->ch,k->ck,l->cl,m->cm,n->cn,u->cu,v->cv}

changeSr4a=%

changeSys9b ={a00->0,a10->0,a01->1,a20->1,a11->0,a02->k,
                b00->0,b10->0,b01->0,b20->0l,b11->0,b02->1} /.{a->ca,b->cb,c->cc,d->cd,e->ce,f->cf,g->cg,h->ch,k->ck,l->cl,m->cm,n->cn,u->cu,v->cv}

changeSr4b=%

changeSys9c={a00->0,a10->0,a01->0,a20->g,a11->h,a02->0,
                b00->0,b10->0,b01->0,b20->cl,b11->m,b02->n} /.{a->ca,b->cb,c->cc,d->cd,e->ce,f->cf,g->cg,h->ch,k->ck,l->cl,m->cm,n->cn,u->cu,v->cv}

changeSr4c=%

changeSys10 ={a00->0,a10->c,a01->d,a20->-c,a11->h,a02->0,
b00->0,b10->e,b01->f,b20->-e,b11->m,b02->0} /.{a->ca,b->cb,c->cc,d->cd,e->ce,f->cf,g->cg,h->ch,k->ck,l->cl,m->cm,n->cn,u->cu,v->cv}

changeSr1r1r1=%

changeSys10second={a00->0,a10->c β,a01->α (-c-2 h+c α),a20->-c β,a11->h,a02->0,b00->0,b10->e β,b01->α (-e-2 m+e α),b20->-e β,b11->m,b02->0}/.{a->ca,b->cb,c->cc,d->cd,e->ce,f->cf,g->cg,h->ch,k->ck,l->cl,m->cm,n->cn,u->cu,v->cv}

changeSys11 ={a00->0,a10->-2 (-h+g u),a01->g (1+(u^2)),a20->g,a11->-h,a02->0,b00->0,b10->-2 (-m+cl u),b01->cl (1+(u^2)),b20->cl,b11->-m,b02->0}/.{a->ca,b->cb,c->cc,d->cd,e->ce,f->cf,g->cg,h->ch,k->ck,l->cl,m->cm,n->cn,u->cu,v->cv}

changeSr1c1c1=%

changeSys12 ={a00->0,a10->c,a01->c u,a20->-c,a11->h,a02->0,
b00->0,b10->e,b01->e u,b20->-e,b11->m,b02->0} /.u->1/.{a->ca,b->cb,c->cc,d->cd,e->ce,f->cf,g->cg,h->ch,k->ck,l->cl,m->cm,n->cn,u->cu,v->cv}

changeSr2r1=%

changeSys13={a00->0,a10->0,a01->g u,a20->g,a11->h,a02->0,b00->0,b10->0,b01->cl u,b20->cl,b11->m,b02->0}/.u->1/.{a->ca,b->cb,c->cc,d->cd,e->ce,f->cf,g->cg,h->ch,k->ck,l->cl,m->cm,n->cn,u->cu,v->cv}

changeSr3=%

changeSys14a ={a00->0,a10->c,a01->d,a20->-c,a11->d u,a02->0,
b00->0,b10->e,b01->f,b20->-e,b11->f u,b02->0}/.{a->ca,b->cb,c->cc,d->cd,e->ce,f->cf,g->cg,h->ch,k->ck,l->cl,m->cm,n->cn,u->cu,v->cv}

changeSr1r1a=%

changeSys14bGen ={a00->0,a10->-2 h u-g v,a01->-k u,a20->g,a11->h,a02->k,b00->0,b10->u,b01->-v,b20->0,b11->0,b02->0}/.{a->ca,b->cb,c->cc,d->cd,e->ce,f->cf,g->cg,h->ch,k->ck,l->cl,m->cm,n->cn,u->cu,v->cv}

changeSys14b ={a00->0,a10->-g-k (u^2),a01->-2 h,a20->g,a11->h,a02->k,b00->0,b10->u,b01->1,b20->0,b11->0,b02->0}/.{a->ca,b->cb,c->cc,d->cd,e->ce,f->cf,g->cg,h->ch,k->ck,l->cl,m->cm,n->cn,u->cu,v->cv}

changeSr1r1b=%

changeSys14bPrime ={a00->0,a10->c,a01->-k,a20->g,a11->h,a02->k,b00->0,b10->1,b01->0,b20->0,b11->0,b02->0}/.{a->ca,b->cb,c->cc,d->cd,e->ce,f->cf,g->cg,h->ch,k->ck,l->cl,m->cm,n->cn,u->cu,v->cv}

changeSys14bOld ={a00->0,a10->h-k,a01->g-h,a20->g,a11->h,a02->k,b00->0,b10->1,b01->1,b20->0,b11->0,b02->0}/.{a->ca,b->cb,c->cc,d->cd,e->ce,f->cf,g->cg,h->ch,k->ck,l->cl,m->cm,n->cn,u->cu,v->cv}

changeSys15a={a00->a,a10->h u,a01->0,a20->0,a11->h,a02->a,b00->b,b10->m u,b01->0,b20->0,b11->m,b02->b}/.{a->ca,b->cb,c->cc,d->cd,e->ce,f->cf,g->cg,h->ch,k->ck,l->cl,m->cm,n->cn,u->cu,v->cv}

changeSc1c1a=%

changeSys15b ={a00->a,a10->c,a01->0,a20->g,a11->h,a02->a,b00->0,b10->1,b01->0,b20->0,b11->0,b02->0}/.{a->ca,b->cb,c->cc,d->cd,e->ce,f->cf,g->cg,h->ch,k->ck,l->cl,m->cm,n->cn,u->cu,v->cv}

changeSc1c1b=%

changeSys16a ={a00->0,a10->0,a01->d,a20->g,a11->d  ,a02->0,b00->0,b10->0,b01->f,b20->cl,b11->f ,b02->0}/.{a->ca,b->cb,c->cc,d->cd,e->ce,f->cf,g->cg,h->ch,k->ck,l->cl,m->cm,n->cn,u->cu,v->cv}

changeSr2a=%

changeSys16bOld ={a00->0,a10->c,a01->d,a20->0,a11->0,a02->0,b00->0,b10->c u,b01->d u,b20->cl,b11->m,b02->n}/.{a->ca,b->cb,c->cc,d->cd,e->ce,f->cf,g->cg,h->ch,k->ck,l->cl,m->cm,n->cn,u->cu,v->cv}

changeSys16b  ={a00->0,a10->c,a01->d,a20->0,a11->0,a02->0,b00->0,b10->0,b01->0,b20->cl,b11->m,b02->n}/.{a->ca,b->cb,c->cc,d->cd,e->ce,f->cf,g->cg,h->ch,k->ck,l->cl,m->cm,n->cn,u->cu,v->cv}

changeSr2b=%

changeSys17a ={a00->0,a10->c,a01->d,a20->2 c+d u,a11->d,a02->0,b00->0,b10->e,b01->f,b20->2 e+f u,b11->f,b02->0}/.u->1/.{a->ca,b->cb,c->cc,d->cd,e->ce,f->cf,g->cg,h->ch,k->ck,l->cl,m->cm,n->cn,u->cu,v->cv}

changeSr1a=%

changeSys17b ={a00->0,a10->1,a01->d,a20->0,a11->0,a02->0,
b00->0,b10->e,b01->f,b20->cl,b11->m,b02->2d m-d^2cl} /.{a->ca,b->cb,c->cc,d->cd,e->ce,f->cf,g->cg,h->ch,k->ck,l->cl,m->cm,n->cn,u->cu,v->cv}

changeSr1b=%

changeSys18a ={a00->h u,a10->0,a01->0,a20->g,a11->h,a02->0,b00->m u,b10->0,b01->0,b20->cl,b11->m,b02->0}/.u->1/.{a->ca,b->cb,c->cc,d->cd,e->ce,f->cf,g->cg,h->ch,k->ck,l->cl,m->cm,n->cn,u->cu,v->cv}

changeSr0a=%

changeSys18b ={a00->0,a10->0,a01->1,a20->0,a11->0,a02->0,b00->1,b10->0,b01->f,b20->0,b11->m,b02->n}/.{a->ca,b->cb,c->cc,d->cd,e->ce,f->cf,g->cg,h->ch,k->ck,l->cl,m->cm,n->cn,u->cu,v->cv}

changeSr0b=%

changeSys18c ={a00->0,a10->1,a01->0,a20->0,a11->0,a02->0,b00->1,b10->e,b01->0,b20->cl,b11->m,b02->0}/.{a->ca,b->cb,c->cc,d->cd,e->ce,f->cf,g->cg,h->ch,k->ck,l->cl,m->cm,n->cn,u->cu,v->cv}

changeSr0c=%

changeSys18d ={a00->1,a10->0,a01->0,a20->0,a11->0,a02->0,b00->0,b10->e,b01->f,b20->cl,b11->m,b02->n}/.{a->ca,b->cb,c->cc,d->cd,e->ce,f->cf,g->cg,h->ch,k->ck,l->cl,m->cm,n->cn,u->cu,v->cv}

changeSr0d=%

Systems with m_f = i old versions

Systems with m_f=4

changeSr1r1r1r1={a00->0,a10->(Subscript[a, 1]),a01->(Subscript[b, 1]),a20->-(Subscript[a, 1]),a11->(Subscript[d, 1]),a02->-(Subscript[b, 1]),b00->0,b10->(Subscript[a, 2]),b01->(Subscript[b, 2]),b20->-(Subscript[a, 2]),b11->(Subscript[d, 2]),b02->-(Subscript[b, 2])}

{a00->0,a10->(Subscript[a, 1]),a01->(Subscript[b, 1]),a20->-(Subscript[a, 1]),a11->(Subscript[d, 1]),a02->-(Subscript[b, 1]),b00->0,b10->(Subscript[a, 2]),b01->(Subscript[b, 2]),b20->-(Subscript[a, 2]),b11->(Subscript[d, 2]),b02->-(Subscript[b, 2])}

changeTr1r1r1r1=changeSr1r1r1r1/.{(Subscript[a, 1])->cc,(Subscript[b, 1])->cd,(Subscript[d, 1])->ch,(Subscript[a, 2])->ce,(Subscript[b, 2])->cf,(Subscript[d, 2])->cm}

{a00 -> 0, a10 -> cc, a01 -> cd, a20 -> -cc, a11 -> ch, a02 -> -cd, b00 -> 0, b10 -> ce, b01 -> cf, b20 -> -ce, b11 -> cm, b02 -> -cf}

changeSr1r1c1c1 = {a00 -> a, a10 -> c, a01 -> 0, a20 -> g, a11 -> h, a02 -> a, b00 -> b, b10 -> e, b01 -> 0, b20 -> l, b11 -> m, b02 -> b}

{a00 -> a, a10 -> c, a01 -> 0, a20 -> g, a11 -> h, a02 -> a, b00 -> b, b10 -> e, b01 -> 0, b20 -> l, b11 -> m, b02 -> b}

changeSr1r1c1c1b = {a00 -> a, a10 -> c, a01 -> 0, a20 -> g, a11 -> h, a02 -> a, b00 -> b, b10 -> e, b01 -> 0, b20 -> l, b11 -> m, b02 -> b} /. {c -> -a - g, e -> -b - l}

{a00 -> a, a10 -> -a - g, a01 -> 0, a20 -> g, a11 -> h, a02 -> a, b00 -> b, b10 -> -b - l, b01 -> 0, b20 -> l, b11 -> m, b02 -> b}

changeSr1r1c1c1c = {a00 -> a, a10 -> c, a01 -> 0, a20 -> g, a11 -> h, a02 -> a, b00 -> b, b10 -> e, b01 -> 0, b20 -> l, b11 -> m, b02 -> b} /. {g -> -a, l -> -b}

{a00 -> a, a10 -> c, a01 -> 0, a20 -> -a, a11 -> h, a02 -> a, b00 -> b, b10 -> e, b01 -> 0, b20 -> -b, b11 -> m, b02 -> b}

changeSc1c1c1c1a = {a00 -> cg (cu^2 + 1)/(cv^2 + 1), a10 -> -2 (cg cu + ch cv), a01 -> 0, a20 -> g, a11 -> h, a02 -> cg (cu^2 + 1)/(cv^2 + 1), b00 -> cl (cu^2 + 1)/(cv^2 + 1), b10 -> -2 (cl cu + cm cv), b01 -> 0, b20 -> l, b11 -> m, b02 -> cl (cu^2 + 1)/(cv^2 + 1)}

{a00->((cg (1+(cu^2)))/(1+(cv^2))),a10->-2 (cg cu+ch cv),a01->0,a20->g,a11->h,a02->((cg (1+(cu^2)))/(1+(cv^2))),b00->((cl (1+(cu^2)))/(1+(cv^2))),b10->-2 (cl cu+cm cv),b01->0,b20->l,b11->m,b02->((cl (1+(cu^2)))/(1+(cv^2)))}

changeSc1c1c1c1b = {a00 -> ca, a10 -> ca (cu^2 - 1) - cg, a01 -> 0, a20 -> cg, a11 -> 0, a02 -> ca, b00 -> cb, b10 -> cb (cu^2 - 1) - cl, b01 -> 0, b20 -> cl, b11 -> 0, b02 -> cb}

{a00->ca,a10->-cg+ca (-1+(cu^2)),a01->0,a20->cg,a11->0,a02->ca,b00->cb,b10->-cl+cb (-1+(cu^2)),b01->0,b20->cl,b11->0,b02->cb}

changeSr2r1r1={a00->0,a10->(Subscript[a, 1]),a01->(Subscript[a, 1]) u,a20->-(Subscript[a, 1]),a11->(Subscript[d, 1]),a02->-(Subscript[a, 1]) u,b00->0,b10->(Subscript[a, 2]),b01->(Subscript[a, 2]) u,b20->-(Subscript[a, 2]),b11->(Subscript[d, 2]),b02->-(Subscript[a, 2]) u}

{a00->0,a10->(Subscript[a, 1]),a01->u (Subscript[a, 1]),a20->-(Subscript[a, 1]),a11->(Subscript[d, 1]),a02->-u (Subscript[a, 1]),b00->0,b10->(Subscript[a, 2]),b01->u (Subscript[a, 2]),b20->-(Subscript[a, 2]),b11->(Subscript[d, 2]),b02->-u (Subscript[a, 2])}

changeTr2r1r1=changeSr2r1r1/.{(Subscript[a, 1])->cc,(Subscript[b, 1])->cd,(Subscript[d, 1])->ch,(Subscript[a, 2])->ce,(Subscript[b, 2])->cf,(Subscript[d, 2])->cm}

{a00 -> 0, a10 -> cc, a01 -> cc u, a20 -> -cc, a11 -> ch, a02 -> -cc u, b00 -> 0, b10 -> ce, b01 -> ce u, b20 -> -ce, b11 -> cm, b02 -> -ce u}

changeSr2c1c1={a00->0,a10->m p,a01->m q,a20->(Subscript[c, 1]),a11->-m q/2,a02->(Subscript[c, 1])+m p,b00->0,b10->n p,b01->n q,b20->(Subscript[c, 2]),b11->-n q/2,b02->(Subscript[c, 2])+ n p}

{a00->0,a10->m p,a01->m q,a20->(Subscript[c, 1]),a11->-((m q)/2),a02->m p+(Subscript[c, 1]),b00->0,b10->n p,b01->n q,b20->(Subscript[c, 2]),b11->-((n q)/2),b02->n p+(Subscript[c, 2])}

changeTr2c1c1=changeSr2c1c1/.{m->cc,p->cm,q->cn,(Subscript[c, 1])->cg,n->ce,(Subscript[c, 2])->cl}

{a00->0,a10->cc cm,a01->cc cn,a20->cg,a11->-((cc cn)/2),a02->cg+cc cm,b00->0,b10->ce cm,b01->ce cn,b20->cl,b11->-((ce cn)/2),b02->cl+ce cm}

changeSr2r2={a00->0,a10->(Subscript[a, 1]),a01->(Subscript[a, 1]) u,a20->-(Subscript[a, 1]),a11->(Subscript[a, 1]) cv,a02->(Subscript[ck, 1]),b00->0,b10->(Subscript[a, 2]),b01->(Subscript[a, 2]) u,b20->-(Subscript[a, 2]),b11->(Subscript[a, 2]) cv,b02->(Subscript[ck, 2])}

{a00->0,a10->(Subscript[a, 1]),a01->u (Subscript[a, 1]),a20->-(Subscript[a, 1]),a11->cv (Subscript[a, 1]),a02->(Subscript[ck, 1]),b00->0,b10->(Subscript[a, 2]),b01->u (Subscript[a, 2]),b20->-(Subscript[a, 2]),b11->cv (Subscript[a, 2]),b02->(Subscript[ck, 2])}

changeTr2r2=changeSr2r2/.{(Subscript[a, 1])->cc,(Subscript[b, 1])->cd,(Subscript[d, 1])->ch,(Subscript[a, 2])->ce,(Subscript[b, 2])->cf,(Subscript[d, 2])->cm,(Subscript[ck, 1])->ck,(Subscript[ck, 2])->cn,u->cu}

{a00 -> 0, a10 -> cc, a01 -> cc cu, a20 -> -cc, a11 -> cc cv, a02 -> ck, b00 -> 0, b10 -> ce, b01 -> ce cu, b20 -> -ce, b11 -> ce cv, b02 -> cn}

changeTc2c2 = {a00 -> ca, a10 -> ca cu, a01 -> 0, a20 -> cg, a11 -> ca cv, a02 -> ca, b00 -> cb, b10 -> cb cu, b01 -> 0, b20 -> cl, b11 -> cb cv, b02 -> cb}

{a00 -> ca, a10 -> ca cu, a01 -> 0, a20 -> cg, a11 -> ca cv, a02 -> ca, b00 -> cb, b10 -> cb cu, b01 -> 0, b20 -> cl, b11 -> cb cv, b02 -> cb}

changeSr3r1pre={a00->0,a10->(Subscript[a, 1])(Subscript[p, 1]),a01->(Subscript[a, 1]) p,a20->-(Subscript[a, 1])(Subscript[p, 1]),a11->(Subscript[d, 1]),a02-> (Subscript[k, 1]),b00->0,b10->(Subscript[a, 2])(Subscript[p, 1]),b01->(Subscript[a, 2]) p,b20->-(Subscript[a, 2])(Subscript[p, 1]),b11->(Subscript[d, 2]),b02->(Subscript[k, 2])}

{a00->0,a10->(Subscript[a, 1]) (Subscript[p, 1]),a01->p (Subscript[a, 1]),a20->-(Subscript[a, 1]) (Subscript[p, 1]),a11->(Subscript[d, 1]),a02->(Subscript[k, 1]),b00->0,b10->(Subscript[a, 2]) (Subscript[p, 1]),b01->p (Subscript[a, 2]),b20->-(Subscript[a, 2]) (Subscript[p, 1]),b11->(Subscript[d, 2]),b02->(Subscript[k, 2])}

changeSr3r1def={a00->0,a10->(Subscript[a, 1]),a01->(Subscript[a, 1]) p,a20->-(Subscript[a, 1]),a11->(Subscript[d, 1]),a02->2 (Subscript[d, 1]) p+(Subscript[a, 1]) m,b00->0,b10->(Subscript[a, 2]),b01->(Subscript[a, 2]) p,b20->-(Subscript[a, 2]),b11->(Subscript[d, 2]),b02->2 (Subscript[d, 2]) p+(Subscript[a, 2]) m}

{a00->0,a10->(Subscript[a, 1]),a01->p (Subscript[a, 1]),a20->-(Subscript[a, 1]),a11->(Subscript[d, 1]),a02->m (Subscript[a, 1])+2 p (Subscript[d, 1]),b00->0,b10->(Subscript[a, 2]),b01->p (Subscript[a, 2]),b20->-(Subscript[a, 2]),b11->(Subscript[d, 2]),b02->m (Subscript[a, 2])+2 p (Subscript[d, 2])}

changeTr3r1=changeSr3r1def/.{(Subscript[a, 1])->cc,(Subscript[b, 1])->cd,(Subscript[d, 1])->ch,(Subscript[a, 2])->ce,(Subscript[b, 2])->cf,(Subscript[d, 2])->cm,(Subscript[ck, 1])->ck,(Subscript[ck, 2])->cn,p->cu,m->cv}

{a00 -> 0, a10 -> cc, a01 -> cc cu, a20 -> -cc, a11 -> ch, a02 -> 2 ch cu + cc cv, b00 -> 0, b10 -> ce, b01 -> ce cu, b20 -> -ce, b11 -> cm, b02 -> 2 cm cu + ce cv}

changeSr4={a00->0,a10->(Subscript[a, 1]),a01->0,a20->(Subscript[c, 1]),a11->(Subscript[d, 1]),a02->(Subscript[k, 1]),b00->0,b10->(Subscript[a, 2]),b01->0,b20->(Subscript[c, 2]),b11->(Subscript[d, 2]),b02->(Subscript[k, 2])}

{a00->0,a10->(Subscript[a, 1]),a01->0,a20->(Subscript[c, 1]),a11->(Subscript[d, 1]),a02->(Subscript[k, 1]),b00->0,b10->(Subscript[a, 2]),b01->0,b20->(Subscript[c, 2]),b11->(Subscript[d, 2]),b02->(Subscript[k, 2])}

changeTr4a = {a00 -> 0, a10 -> 0, a01 -> 0, a20 -> 0, a11 -> 0, a02 -> ck, b00 -> 0, b10 -> 0, b01 -> cf, b20 -> cl, b11 -> cm, b02 -> cn}

{a00 -> 0, a10 -> 0, a01 -> 0, a20 -> 0, a11 -> 0, a02 -> ck, b00 -> 0, b10 -> 0, b01 -> cf, b20 -> cl, b11 -> cm, b02 -> cn}

changeTr4b = {a00 -> 0, a10 -> 0, a01 -> cd, a20 -> cg, a11 -> ch, a02 -> ck, b00 -> 0, b10 -> 0, b01 -> 0, b20 -> 0, b11 -> 0, b02 -> cn}

{a00 -> 0, a10 -> 0, a01 -> cd, a20 -> cg, a11 -> ch, a02 -> ck, b00 -> 0, b10 -> 0, b01 -> 0, b20 -> 0, b11 -> 0, b02 -> cn}

changeTr4c = {a00 -> 0, a10 -> 0, a01 -> 0, a20 -> cg, a11 -> ch, a02 -> 0, b00 -> 0, b10 -> 0, b01 -> 0, b20 -> cl, b11 -> cm, b02 -> cm}

{a00 -> 0, a10 -> 0, a01 -> 0, a20 -> cg, a11 -> ch, a02 -> 0, b00 -> 0, b10 -> 0, b01 -> 0, b20 -> cl, b11 -> cm, b02 -> cm}

Systems with m_f=3

changer1r1r1 = {a00 -> 0, a10 -> cc, a01 -> cd, a20 -> 0, a11 -> ch, a02 -> -cd, b00 -> 0, b10 -> ce, b01 -> cf, b20 -> 0, b11 -> cm, b02 -> -cf}

{a00 -> 0, a10 -> cc, a01 -> cd, a20 -> 0, a11 -> ch, a02 -> -cd, b00 -> 0, b10 -> ce, b01 -> cf, b20 -> 0, b11 -> cm, b02 -> -cf}

changeSr1r1r1pre={a00->0,a10->(Subscript[a, 1]),a01->(Subscript[b, 1]),a20->(Subscript[c, 1]),a11->(Subscript[d, 1]),a02->0,b00->0,b10->(Subscript[a, 2]),b01->(Subscript[b, 2]),b20->(Subscript[c, 2]),b11->(Subscript[d, 2]),b02->0}

{a00->0,a10->(Subscript[a, 1]),a01->(Subscript[b, 1]),a20->(Subscript[c, 1]),a11->(Subscript[d, 1]),a02->0,b00->0,b10->(Subscript[a, 2]),b01->(Subscript[b, 2]),b20->(Subscript[c, 2]),b11->(Subscript[d, 2]),b02->0}

changeSr1r1r1def={a00->0,a10->(Subscript[a, 1]),a01->(Subscript[b, 1]),a20->-(Subscript[a, 1]),a11->(Subscript[d, 1]),a02->0,b00->0,b10->(Subscript[a, 2]),b01->(Subscript[b, 2]),b20->-(Subscript[a, 2]),b11->(Subscript[d, 2]),b02->0}

{a00->0,a10->(Subscript[a, 1]),a01->(Subscript[b, 1]),a20->-(Subscript[a, 1]),a11->(Subscript[d, 1]),a02->0,b00->0,b10->(Subscript[a, 2]),b01->(Subscript[b, 2]),b20->-(Subscript[a, 2]),b11->(Subscript[d, 2]),b02->0}

changeTr1r1r1=changeSr1r1r1def/.{(Subscript[a, 1])->cc,(Subscript[b, 1])->cd,(Subscript[d, 1])->ch,(Subscript[a, 2])->ce,(Subscript[b, 2])->cf,(Subscript[d, 2])->cm}

{a00 -> 0, a10 -> cc, a01 -> cd, a20 -> -cc, a11 -> ch, a02 -> 0, b00 -> 0, b10 -> ce, b01 -> cf, b20 -> -ce, b11 -> cm, b02 -> 0}

changeSr1c1c1pre={a00->0,a10->(Subscript[a, 1]),a01->(Subscript[b, 1]),a20->(Subscript[c, 1]),a11->(Subscript[d, 1]),a02->0,b00->0,b10->(Subscript[a, 2]),b01->(Subscript[b, 2]),b20->(Subscript[c, 2]),b11->(Subscript[d, 2]),b02->0}

{a00->0,a10->(Subscript[a, 1]),a01->(Subscript[b, 1]),a20->(Subscript[c, 1]),a11->(Subscript[d, 1]),a02->0,b00->0,b10->(Subscript[a, 2]),b01->(Subscript[b, 2]),b20->(Subscript[c, 2]),b11->(Subscript[d, 2]),b02->0}

changeSr1c1c1def={a00->0,a10->-2 (Subscript[d, 1])-2 (Subscript[c, 1]) m,a01->(Subscript[c, 1])+(Subscript[c, 1]) (m^2),a20->(Subscript[c, 1]),a11->(Subscript[d, 1]),a02->0,b00->0,b10->-2 (Subscript[d, 2])-2 (Subscript[c, 2]) m,b01->(Subscript[c, 2])+(Subscript[c, 2]) (m^2),b20->(Subscript[c, 2]),b11->(Subscript[d, 2]),b02->0}

{a00->0,a10->-2 m (Subscript[c, 1])-2 (Subscript[d, 1]),a01->(Subscript[c, 1])+(m^2) (Subscript[c, 1]),a20->(Subscript[c, 1]),a11->(Subscript[d, 1]),a02->0,b00->0,b10->-2 m (Subscript[c, 2])-2 (Subscript[d, 2]),b01->(Subscript[c, 2])+(m^2) (Subscript[c, 2]),b20->(Subscript[c, 2]),b11->(Subscript[d, 2]),b02->0}

changeTr1c1c1=changeSr1c1c1def/.{(Subscript[d, 1])->-ch,m->cu,(Subscript[c, 1])->cg,(Subscript[d, 2])->-cm,(Subscript[c, 2])->cl}

{a00->0,a10->2 ch-2 cg cu,a01->cg+cg (cu^2),a20->cg,a11->-ch,a02->0,b00->0,b10->2 cm-2 cl cu,b01->cl+cl (cu^2),b20->cl,b11->-cm,b02->0}

changeSr2r1pre={a00->0,a10->(Subscript[a, 1]),a01->(Subscript[b, 1]),a20->-(Subscript[a, 1]),a11->(Subscript[d, 1]),a02->0,b00->0,b10->(Subscript[a, 2]),b01->(Subscript[b, 2]),b20->-(Subscript[a, 2]),b11->(Subscript[d, 2]),b02->0}

{a00->0,a10->(Subscript[a, 1]),a01->(Subscript[b, 1]),a20->-(Subscript[a, 1]),a11->(Subscript[d, 1]),a02->0,b00->0,b10->(Subscript[a, 2]),b01->(Subscript[b, 2]),b20->-(Subscript[a, 2]),b11->(Subscript[d, 2]),b02->0}

changeSr2r1def={a00->0,a10->(Subscript[a, 1]),a01->(Subscript[a, 1]) m,a20->-(Subscript[a, 1]),a11->(Subscript[d, 1]),a02->0,b00->0,b10->(Subscript[a, 2]),b01->(Subscript[a, 2]) m,b20->-(Subscript[a, 2]),b11->(Subscript[d, 2]),b02->0}

{a00->0,a10->(Subscript[a, 1]),a01->m (Subscript[a, 1]),a20->-(Subscript[a, 1]),a11->(Subscript[d, 1]),a02->0,b00->0,b10->(Subscript[a, 2]),b01->m (Subscript[a, 2]),b20->-(Subscript[a, 2]),b11->(Subscript[d, 2]),b02->0}

changeTr2r1=changeSr2r1def/.{(Subscript[a, 1])->cc,(Subscript[b, 1])->cd,(Subscript[d, 1])->ch,(Subscript[a, 2])->ce,(Subscript[b, 2])->cf,(Subscript[d, 2])->cm,m->cu}

{a00 -> 0, a10 -> cc, a01 -> cc cu, a20 -> -cc, a11 -> ch, a02 -> 0, b00 -> 0, b10 -> ce, b01 -> ce cu, b20 -> -ce, b11 -> cm, b02 -> 0}

changeSr3pre={a00->0,a10->(Subscript[a, 1]),a01->(Subscript[b, 1]),a20->(Subscript[c, 1]),a11->(Subscript[d, 1]),a02->0,b00->0,b10->(Subscript[a, 2]),b01->(Subscript[b, 2]),b20->(Subscript[c, 2]),b11->(Subscript[d, 2]),b02->0}

{a00->0,a10->(Subscript[a, 1]),a01->(Subscript[b, 1]),a20->(Subscript[c, 1]),a11->(Subscript[d, 1]),a02->0,b00->0,b10->(Subscript[a, 2]),b01->(Subscript[b, 2]),b20->(Subscript[c, 2]),b11->(Subscript[d, 2]),b02->0}

changeSr3pre2={a00->0,a10->0,a01->(Subscript[b, 1]),a20->(Subscript[c, 1]),a11->(Subscript[d, 1]),a02->0,b00->0,b10->0,b01->(Subscript[b, 2]),b20->(Subscript[c, 2]),b11->(Subscript[d, 2]),b02->0}

{a00->0,a10->0,a01->(Subscript[b, 1]),a20->(Subscript[c, 1]),a11->(Subscript[d, 1]),a02->0,b00->0,b10->0,b01->(Subscript[b, 2]),b20->(Subscript[c, 2]),b11->(Subscript[d, 2]),b02->0}

changeSr3def={a00->0,a10->0,a01->m*(Subscript[c, 1]),a20->(Subscript[c, 1]),a11->(Subscript[d, 1]),a02->0,b00->0,b10->0,b01->m*(Subscript[c, 2]),b20->(Subscript[c, 2]),b11->(Subscript[d, 2]),b02->0}

{a00->0,a10->0,a01->m (Subscript[c, 1]),a20->(Subscript[c, 1]),a11->(Subscript[d, 1]),a02->0,b00->0,b10->0,b01->m (Subscript[c, 2]),b20->(Subscript[c, 2]),b11->(Subscript[d, 2]),b02->0}

changeTr3=changeSr3def/.{(Subscript[d, 1])->ch,m->cu,(Subscript[c, 1])->cg,(Subscript[d, 2])->cm,(Subscript[c, 2])->cl}

{a00 -> 0, a10 -> 0, a01 -> cg cu, a20 -> cg, a11 -> ch, a02 -> 0, b00 -> 0, b10 -> 0, b01 -> cl cu, b20 -> cl, b11 -> cm, b02 -> 0}

Systems with m_f ≤2

changeSr1r1pre={a00->0,a10->(Subscript[a, 1]),a01->(Subscript[b, 1]),a20->-(Subscript[a, 1]),a11->(Subscript[d, 1]),a02->0,b00->0,b10->(Subscript[a, 2]),b01->(Subscript[b, 2]),b20->-(Subscript[a, 2]),b11->(Subscript[d, 2]),b02->0}

{a00->0,a10->(Subscript[a, 1]),a01->(Subscript[b, 1]),a20->-(Subscript[a, 1]),a11->(Subscript[d, 1]),a02->0,b00->0,b10->(Subscript[a, 2]),b01->(Subscript[b, 2]),b20->-(Subscript[a, 2]),b11->(Subscript[d, 2]),b02->0}

changeSr1r1A={a00->0,a10->(Subscript[a, 1]),a01->(Subscript[b, 1]),a20->-(Subscript[a, 1]),a11->m*(Subscript[a, 1]),a02->0,b00->0,b10->(Subscript[a, 2]),b01->(Subscript[b, 2]),b20->-(Subscript[a, 2]),b11->m*(Subscript[a, 2]),b02->0}

{a00->0,a10->(Subscript[a, 1]),a01->(Subscript[b, 1]),a20->-(Subscript[a, 1]),a11->m (Subscript[a, 1]),a02->0,b00->0,b10->(Subscript[a, 2]),b01->(Subscript[b, 2]),b20->-(Subscript[a, 2]),b11->m (Subscript[a, 2]),b02->0}

changeSr1r1B={a00->0,a10->(Subscript[a, 1]),a01->(Subscript[b, 1]),a20->-(Subscript[a, 1]),a11->m*(Subscript[b, 1]),a02->0,b00->0,b10->(Subscript[a, 2]),b01->(Subscript[b, 2]),b20->-(Subscript[a, 2]),b11->m*(Subscript[b, 2]),b02->0}

{a00->0,a10->(Subscript[a, 1]),a01->(Subscript[b, 1]),a20->-(Subscript[a, 1]),a11->m (Subscript[b, 1]),a02->0,b00->0,b10->(Subscript[a, 2]),b01->(Subscript[b, 2]),b20->-(Subscript[a, 2]),b11->m (Subscript[b, 2]),b02->0}

changeTr1r1a=changeSr1r1B/.{(Subscript[a, 1])->cc,(Subscript[b, 1])->cd,(Subscript[d, 1])->ch,(Subscript[a, 2])->ce,(Subscript[b, 2])->cf,(Subscript[d, 2])->cm,m->cu}

{a00 -> 0, a10 -> cc, a01 -> cd, a20 -> -cc, a11 -> cd cu, a02 -> 0, b00 -> 0, b10 -> ce, b01 -> cf, b20 -> -ce, b11 -> cf cu, b02 -> 0}

changeTr1r1b = {a00 -> 0, a10 -> -(cg + ck cu^2), a01 -> -2 ch, a20 -> cg, a11 -> ch, a02 -> ck, b00 -> 0, b10 -> cu, b01 -> 1, b20 -> 0, b11 -> 0, b02 -> 0}

{a00->0,a10->-cg-ck (cu^2),a01->-2 ch,a20->cg,a11->ch,a02->ck,b00->0,b10->cu,b01->1,b20->0,b11->0,b02->0}

changeTc1c1a = {a00 -> ca, a10 -> ch cu, a01 -> 0, a20 -> 0, a11 -> ch, a02 -> ca, b00 -> cb, b10 -> cm cu, b01 -> 0, b20 -> 0, b11 -> cm, b02 -> cb}

{a00 -> ca, a10 -> ch cu, a01 -> 0, a20 -> 0, a11 -> ch, a02 -> ca, b00 -> cb, b10 -> cm cu, b01 -> 0, b20 -> 0, b11 -> cm, b02 -> cb}

changeTc1c1b = {a00 -> ca, a10 -> cc, a01 -> 0, a20 -> cg, a11 -> ch, a02 -> ca, b00 -> 0, b10 -> ce, b01 -> 0, b20 -> 0, b11 -> 0, b02 -> 0}

{a00 -> ca, a10 -> cc, a01 -> 0, a20 -> cg, a11 -> ch, a02 -> ca, b00 -> 0, b10 -> ce, b01 -> 0, b20 -> 0, b11 -> 0, b02 -> 0}

changeSr2pre={a00->0,a10->(Subscript[a, 1]),a01->(Subscript[b, 1]),a20->(Subscript[c, 1]),a11->(Subscript[d, 1]),a02->0,b00->0,b10->(Subscript[a, 2]),b01->(Subscript[b, 2]),b20->(Subscript[c, 2]),b11->(Subscript[d, 2]),b02->0}

{a00->0,a10->(Subscript[a, 1]),a01->(Subscript[b, 1]),a20->(Subscript[c, 1]),a11->(Subscript[d, 1]),a02->0,b00->0,b10->(Subscript[a, 2]),b01->(Subscript[b, 2]),b20->(Subscript[c, 2]),b11->(Subscript[d, 2]),b02->0}

changeSr2pre2={a00->0,a10->0,a01->(Subscript[b, 1]),a20->(Subscript[c, 1]),a11->(Subscript[d, 1]),a02->0,b00->0,b10->0,b01->(Subscript[b, 2]),b20->(Subscript[c, 2]),b11->(Subscript[d, 2]),b02->0}

{a00->0,a10->0,a01->(Subscript[b, 1]),a20->(Subscript[c, 1]),a11->(Subscript[d, 1]),a02->0,b00->0,b10->0,b01->(Subscript[b, 2]),b20->(Subscript[c, 2]),b11->(Subscript[d, 2]),b02->0}

changeSr2A={a00->0,a10->0,a01->(Subscript[b, 1]),a20->(Subscript[c, 1]),a11->(Subscript[b, 1])*m,a02->0,b00->0,b10->0,b01->(Subscript[b, 2]),b20->(Subscript[c, 2]),b11->(Subscript[b, 2])*m,b02->0}

{a00->0,a10->0,a01->(Subscript[b, 1]),a20->(Subscript[c, 1]),a11->m (Subscript[b, 1]),a02->0,b00->0,b10->0,b01->(Subscript[b, 2]),b20->(Subscript[c, 2]),b11->m (Subscript[b, 2]),b02->0}

changeSr2B={a00->0,a10->(Subscript[a, 1]) p,a01->(Subscript[a, 1]) u,a20->0,a11->0,a02->0,b00->0,b10->(Subscript[a, 2]) p,b01->(Subscript[a, 2]) u,b20->(Subscript[c, 2]),b11->(Subscript[d, 2]),b02->(Subscript[k, 2])}

{a00->0,a10->p (Subscript[a, 1]),a01->u (Subscript[a, 1]),a20->0,a11->0,a02->0,b00->0,b10->p (Subscript[a, 2]),b01->u (Subscript[a, 2]),b20->(Subscript[c, 2]),b11->(Subscript[d, 2]),b02->(Subscript[k, 2])}

changeTr2a=changeSr2A/.{(Subscript[a, 1])->cc,(Subscript[b, 1])->cd,(Subscript[c, 1])->cg,(Subscript[a, 2])->ce,(Subscript[b, 2])->cf,(Subscript[c, 2])->cl,m->cu}

{a00 -> 0, a10 -> 0, a01 -> cd, a20 -> cg, a11 -> cd cu, a02 -> 0, b00 -> 0, b10 -> 0, b01 -> cf, b20 -> cl, b11 -> cf cu, b02 -> 0}

changeTr2b = {a00 -> 0, a10 -> cc, a01 -> cd, a20 -> 0, a11 -> 0, a02 -> 0, b00 -> 0, b10 -> 0, b01 -> 0, b20 -> cl, b11 -> cm, b02 -> cn}

{a00 -> 0, a10 -> cc, a01 -> cd, a20 -> 0, a11 -> 0, a02 -> 0, b00 -> 0, b10 -> 0, b01 -> 0, b20 -> cl, b11 -> cm, b02 -> cn}

changeSr1pre={a00->0,a10->(Subscript[a, 1]),a01->u (Subscript[d, 1]),a20->(Subscript[c, 1]),a11->(Subscript[d, 1]),a02->0,b00->0,b10->(Subscript[a, 2]),b01->u (Subscript[d, 2]),b20->(Subscript[c, 2]),b11->(Subscript[d, 2]),b02->0}

{a00->0,a10->(Subscript[a, 1]),a01->u (Subscript[d, 1]),a20->(Subscript[c, 1]),a11->(Subscript[d, 1]),a02->0,b00->0,b10->(Subscript[a, 2]),b01->u (Subscript[d, 2]),b20->(Subscript[c, 2]),b11->(Subscript[d, 2]),b02->0}

changeSr1A={a00->0,a10->(Subscript[a, 1]),a01->(Subscript[d, 1]),a20->2*(Subscript[a, 1])+m*(Subscript[d, 1]),a11->(Subscript[d, 1]),a02->0,b00->0,b10->(Subscript[a, 2]),b01->(Subscript[d, 2]),b20->2*(Subscript[a, 2])+m*(Subscript[d, 2]),b11->(Subscript[d, 2]),b02->0}

{a00->0,a10->(Subscript[a, 1]),a01->(Subscript[d, 1]),a20->2 (Subscript[a, 1])+m (Subscript[d, 1]),a11->(Subscript[d, 1]),a02->0,b00->0,b10->(Subscript[a, 2]),b01->(Subscript[d, 2]),b20->2 (Subscript[a, 2])+m (Subscript[d, 2]),b11->(Subscript[d, 2]),b02->0}

changeSr1preB={a00->0,a10->1,a01->(Subscript[b, 1]),a20->0,a11->0,a02->0,b00->0,b10->(Subscript[a, 2]),b01->(Subscript[b, 2]),b20->(Subscript[c, 2]),b11->(Subscript[d, 2]),b02->(Subscript[k, 2])}

{a00->0,a10->1,a01->(Subscript[b, 1]),a20->0,a11->0,a02->0,b00->0,b10->(Subscript[a, 2]),b01->(Subscript[b, 2]),b20->(Subscript[c, 2]),b11->(Subscript[d, 2]),b02->(Subscript[k, 2])}

changeSr1B={a00->0,a10->1,a01->(Subscript[b, 1]),a20->0,a11->0,a02->0,b00->0,b10->(Subscript[a, 2]),b01->(Subscript[b, 2]),b20->(Subscript[c, 2]),b11->(Subscript[d, 2]),b02->2*(Subscript[b, 1])*(Subscript[d, 2])-(Subscript[b, 1])^2*(Subscript[c, 2])}

{a00->0,a10->1,a01->(Subscript[b, 1]),a20->0,a11->0,a02->0,b00->0,b10->(Subscript[a, 2]),b01->(Subscript[b, 2]),b20->(Subscript[c, 2]),b11->(Subscript[d, 2]),b02->-(Subscript[b, 1]^2) (Subscript[c, 2])+2 (Subscript[b, 1]) (Subscript[d, 2])}

changeTr1a=changeSr1A/.{(Subscript[a, 1])->cc,(Subscript[d, 1])->cd,(Subscript[c, 1])->cg,(Subscript[a, 2])->ce,(Subscript[d, 2])->cf,(Subscript[c, 2])->cl,m->cu}

{a00 -> 0, a10 -> cc, a01 -> cd, a20 -> 2 cc + cd cu, a11 -> cd, a02 -> 0, b00 -> 0, b10 -> ce, b01 -> cf, b20 -> 2 ce + cf cu, b11 -> cf, b02 -> 0}

changeTr1b = {a00 -> 0, a10 -> 1, a01 -> cd, a20 -> 0, a11 -> 0, a02 -> 0, b00 -> 0, b10 -> ce, b01 -> cf, b20 -> cl, b11 -> cm, b02 -> 2 cd cm - cl cd^2}

{a00->0,a10->1,a01->cd,a20->0,a11->0,a02->0,b00->0,b10->ce,b01->cf,b20->cl,b11->cm,b02->-(cd^2) cl+2 cd cm}

changeTr0a = {a00 -> ch cu, a10 -> 0, a01 -> 0, a20 -> cg, a11 -> ch, a02 -> 0, b00 -> cm cu, b10 -> 0, b01 -> 0, b20 -> cl, b11 -> cm, b02 -> 0}

{a00 -> ch cu, a10 -> 0, a01 -> 0, a20 -> cg, a11 -> ch, a02 -> 0, b00 -> cm cu, b10 -> 0, b01 -> 0, b20 -> cl, b11 -> cm, b02 -> 0}

changeTr0b = {a00 -> 0, a10 -> 0, a01 -> 1, a20 -> 0, a11 -> 0, a02 -> 0, b00 -> 1, b10 -> 0, b01 -> cf, b20 -> 0, b11 -> cm, b02 -> cn}

{a00 -> 0, a10 -> 0, a01 -> 1, a20 -> 0, a11 -> 0, a02 -> 0, b00 -> 1, b10 -> 0, b01 -> cf, b20 -> 0, b11 -> cm, b02 -> cn}

changeTr0c = {a00 -> 0, a10 -> 1, a01 -> 0, a20 -> 0, a11 -> 0, a02 -> 0, b00 -> 1, b10 -> 0, b01 -> 0, b20 -> cl, b11 -> cm, b02 -> 0}

{a00 -> 0, a10 -> 1, a01 -> 0, a20 -> 0, a11 -> 0, a02 -> 0, b00 -> 1, b10 -> 0, b01 -> 0, b20 -> cl, b11 -> cm, b02 -> 0}

changeTr0d = {a00 -> 1, a10 -> 0, a01 -> 0, a20 -> 0, a11 -> 0, a02 -> 0, b00 -> 0, b10 -> ce, b01 -> cf, b20 -> cl, b11 -> cm, b02 -> cn}

{a00 -> 1, a10 -> 0, a01 -> 0, a20 -> 0, a11 -> 0, a02 -> 0, b00 -> 0, b10 -> ce, b01 -> cf, b20 -> cl, b11 -> cm, b02 -> cn}

changeTr2a=changeSr2A/.{(Subscript[a, 1])->cc,(Subscript[b, 1])->cd,(Subscript[c, 1])->cg,(Subscript[a, 2])->ce,(Subscript[b, 2])->cf,(Subscript[c, 2])->cl,m->cu}

{a00 -> 0, a10 -> 0, a01 -> cd, a20 -> cg, a11 -> cd cu, a02 -> 0, b00 -> 0, b10 -> 0, b01 -> cf, b20 -> cl, b11 -> cf cu, b02 -> 0}

Canonical Systems (regarding real or complex and multiplicity of infinite points)

changeSI={a00->ck,a10->cc,a01->cd,a20->cg,a11->(ch-cb)/2,a02->0,b00->cl,b10->ce,b01->cf,b20->0,b11->(cg-cb)/2,b02->ch}

changeSII={a00->ck,a10->cc,a01->cd,a20->cg,a11->(ch+cb)/2,a02->0,b00->cl,b10->ce,b01->cf,b20->-cb,b11->cg/2,b02->ch}

changeSIII={a00->ck,a10->cc,a01->cd,a20->cg,a11->ch/2,a02->0,b00->cl,b10->ce,b01->cf,b20->0,b11->(cg-cb)/2,b02->ch}

changeSIV={a00->ck,a10->cc,a01->cd,a20->cg,a11->ch/2,a02->0,b00->cl,b10->ce,b01->cf,b20->-cb,b11->cg/2,b02->ch}

changeSV={a00->ck,a10->cc,a01->cd,a20->cg,a11->0,a02->0,b00->cl,b10->ce,b01->cf,b20->0,b11->cg/2,b02->0}

Systems with m_f=3

changeSr1r1r1pre={a00->0,a10->(Subscript[a, 1]),a01->(Subscript[b, 1]),a20->(Subscript[c, 1]),a11->(Subscript[d, 1]),a02->0,b00->0,b10->(Subscript[a, 2]),b01->(Subscript[b, 2]),b20->(Subscript[c, 2]),b11->(Subscript[d, 2]),b02->0}

changeSr1r1r1def={a00->0,a10->(Subscript[a, 1]),a01->(Subscript[b, 1]),a20->-(Subscript[a, 1]),a11->(Subscript[d, 1]),a02->0,b00->0,b10->(Subscript[a, 2]),b01->(Subscript[b, 2]),b20->-(Subscript[a, 2]),b11->(Subscript[d, 2]),b02->0}

changeTr1r1r1=changeSr1r1r1def/.{(Subscript[a, 1])->cc,(Subscript[b, 1])->cd,(Subscript[d, 1])->ch,(Subscript[a, 2])->ce,(Subscript[b, 2])->cf,(Subscript[d, 2])->cm}

changeSr1c1c1pre={a00->0,a10->(Subscript[a, 1]),a01->(Subscript[b, 1]),a20->(Subscript[c, 1]),a11->(Subscript[d, 1]),a02->0,b00->0,b10->(Subscript[a, 2]),b01->(Subscript[b, 2]),b20->(Subscript[c, 2]),b11->(Subscript[d, 2]),b02->0}

changeSr1c1c1def={a00->0,a10->-2 (Subscript[d, 1])-2 (Subscript[c, 1]) m,a01->(Subscript[c, 1])+(Subscript[c, 1]) (m^2),a20->(Subscript[c, 1]),a11->(Subscript[d, 1]),a02->0,b00->0,b10->-2 (Subscript[d, 2])-2 (Subscript[c, 2]) m,b01->(Subscript[c, 2])+(Subscript[c, 2]) (m^2),b20->(Subscript[c, 2]),b11->(Subscript[d, 2]),b02->0}

changeTr1c1c1=changeSr1c1c1def/.{(Subscript[d, 1])->-ch,m->cu,(Subscript[c, 1])->cg,(Subscript[d, 2])->-cm,(Subscript[c, 2])->cl}

changeSr2r1pre={a00->0,a10->(Subscript[a, 1]),a01->(Subscript[b, 1]),a20->-(Subscript[a, 1]),a11->(Subscript[d, 1]),a02->0,b00->0,b10->(Subscript[a, 2]),b01->(Subscript[b, 2]),b20->-(Subscript[a, 2]),b11->(Subscript[d, 2]),b02->0}

changeSr2r1def={a00->0,a10->(Subscript[a, 1]),a01->(Subscript[a, 1]) m,a20->-(Subscript[a, 1]),a11->(Subscript[d, 1]),a02->0,b00->0,b10->(Subscript[a, 2]),b01->(Subscript[a, 2]) m,b20->-(Subscript[a, 2]),b11->(Subscript[d, 2]),b02->0}

changeTr2r1=changeSr2r1def/.{(Subscript[a, 1])->cc,(Subscript[b, 1])->cd,(Subscript[d, 1])->ch,(Subscript[a, 2])->ce,(Subscript[b, 2])->cf,(Subscript[d, 2])->cm,m->cu}

changeSr3pre={a00->0,a10->(Subscript[a, 1]),a01->(Subscript[b, 1]),a20->(Subscript[c, 1]),a11->(Subscript[d, 1]),a02->0,b00->0,b10->(Subscript[a, 2]),b01->(Subscript[b, 2]),b20->(Subscript[c, 2]),b11->(Subscript[d, 2]),b02->0}

changeSr3pre2={a00->0,a10->0,a01->(Subscript[b, 1]),a20->(Subscript[c, 1]),a11->(Subscript[d, 1]),a02->0,b00->0,b10->0,b01->(Subscript[b, 2]),b20->(Subscript[c, 2]),b11->(Subscript[d, 2]),b02->0}

changeSr3def={a00->0,a10->0,a01->m*(Subscript[c, 1]),a20->(Subscript[c, 1]),a11->(Subscript[d, 1]),a02->0,b00->0,b10->0,b01->m*(Subscript[c, 2]),b20->(Subscript[c, 2]),b11->(Subscript[d, 2]),b02->0}

changeTr3=changeSr3def/.{(Subscript[d, 1])->ch,m->cu,(Subscript[c, 1])->cg,(Subscript[d, 2])->cm,(Subscript[c, 2])->cl}

Systems with m_f ≤2

changeSr1r1pre={a00->0,a10->(Subscript[a, 1]),a01->(Subscript[b, 1]),a20->-(Subscript[a, 1]),a11->(Subscript[d, 1]),a02->0,b00->0,b10->(Subscript[a, 2]),b01->(Subscript[b, 2]),b20->-(Subscript[a, 2]),b11->(Subscript[d, 2]),b02->0}

changeSr1r1A={a00->0,a10->(Subscript[a, 1]),a01->(Subscript[b, 1]),a20->-(Subscript[a, 1]),a11->m*(Subscript[a, 1]),a02->0,b00->0,b10->(Subscript[a, 2]),b01->(Subscript[b, 2]),b20->-(Subscript[a, 2]),b11->m*(Subscript[a, 2]),b02->0}

changeSr1r1B={a00->0,a10->(Subscript[a, 1]),a01->(Subscript[b, 1]),a20->-(Subscript[a, 1]),a11->m*(Subscript[b, 1]),a02->0,b00->0,b10->(Subscript[a, 2]),b01->(Subscript[b, 2]),b20->-(Subscript[a, 2]),b11->m*(Subscript[b, 2]),b02->0}

changeTr1r1a=changeSr1r1B/.{(Subscript[a, 1])->cc,(Subscript[b, 1])->cd,(Subscript[d, 1])->ch,(Subscript[a, 2])->ce,(Subscript[b, 2])->cf,(Subscript[d, 2])->cm,m->cu}

changeTr1r1b={a00->0,a10->-(cg+ck cu^2),a01->-2ch,a20->cg,a11->ch,a02->ck,b00->0,b10->cu,b01->1,b20->0,b11->0,b02->0}

changeTc1c1a={a00->ca,a10->ch cu,a01->0,a20->0,a11->ch,a02->ca,b00->cb,b10->cm cu,b01->0,b20->0,b11->cm,b02->cb}

changeTc1c1b={a00->ca,a10->cc,a01->0,a20->cg,a11->ch,a02->ca,b00->0,b10->ce,b01->0,b20->0,b11->0,b02->0}

changeSr2pre={a00->0,a10->(Subscript[a, 1]),a01->(Subscript[b, 1]),a20->(Subscript[c, 1]),a11->(Subscript[d, 1]),a02->0,b00->0,b10->(Subscript[a, 2]),b01->(Subscript[b, 2]),b20->(Subscript[c, 2]),b11->(Subscript[d, 2]),b02->0}

changeSr2pre2={a00->0,a10->0,a01->(Subscript[b, 1]),a20->(Subscript[c, 1]),a11->(Subscript[d, 1]),a02->0,b00->0,b10->0,b01->(Subscript[b, 2]),b20->(Subscript[c, 2]),b11->(Subscript[d, 2]),b02->0}

changeSr2A={a00->0,a10->0,a01->(Subscript[b, 1]),a20->(Subscript[c, 1]),a11->(Subscript[b, 1])*m,a02->0,b00->0,b10->0,b01->(Subscript[b, 2]),b20->(Subscript[c, 2]),b11->(Subscript[b, 2])*m,b02->0}

changeSr2B={a00->0,a10->(Subscript[a, 1]) p,a01->(Subscript[a, 1]) u,a20->0,a11->0,a02->0,b00->0,b10->(Subscript[a, 2]) p,b01->(Subscript[a, 2]) u,b20->(Subscript[c, 2]),b11->(Subscript[d, 2]),b02->(Subscript[k, 2])}

changeTr2a=changeSr2A/.{(Subscript[a, 1])->cc,(Subscript[b, 1])->cd,(Subscript[c, 1])->cg,(Subscript[a, 2])->ce,(Subscript[b, 2])->cf,(Subscript[c, 2])->cl,m->cu}

changeTr2b={a00->0,a10->cc,a01->cd,a20->0,a11->0,a02->0,b00->0,b10->0,b01->0,b20->cl,b11->cm,b02->cn}

changeSr1pre={a00->0,a10->(Subscript[a, 1]),a01->u (Subscript[d, 1]),a20->(Subscript[c, 1]),a11->(Subscript[d, 1]),a02->0,b00->0,b10->(Subscript[a, 2]),b01->u (Subscript[d, 2]),b20->(Subscript[c, 2]),b11->(Subscript[d, 2]),b02->0}

changeSr1A={a00->0,a10->(Subscript[a, 1]),a01->(Subscript[d, 1]),a20->2*(Subscript[a, 1])+m*(Subscript[d, 1]),a11->(Subscript[d, 1]),a02->0,b00->0,b10->(Subscript[a, 2]),b01->(Subscript[d, 2]),b20->2*(Subscript[a, 2])+m*(Subscript[d, 2]),b11->(Subscript[d, 2]),b02->0}

changeSr1preB={a00->0,a10->1,a01->(Subscript[b, 1]),a20->0,a11->0,a02->0,b00->0,b10->(Subscript[a, 2]),b01->(Subscript[b, 2]),b20->(Subscript[c, 2]),b11->(Subscript[d, 2]),b02->(Subscript[k, 2])}

changeSr1B={a00->0,a10->1,a01->(Subscript[b, 1]),a20->0,a11->0,a02->0,b00->0,b10->(Subscript[a, 2]),b01->(Subscript[b, 2]),b20->(Subscript[c, 2]),b11->(Subscript[d, 2]),b02->2*(Subscript[b, 1])*(Subscript[d, 2])-(Subscript[b, 1])^2*(Subscript[c, 2])}

changeTr1a=changeSr1A/.{(Subscript[a, 1])->cc,(Subscript[d, 1])->cd,(Subscript[c, 1])->cg,(Subscript[a, 2])->ce,(Subscript[d, 2])->cf,(Subscript[c, 2])->cl,m->cu}

changeTr1b={a00->0,a10->1,a01->cd,a20->0,a11->0,a02->0,b00->0,b10->ce,b01->cf,b20->cl,b11->cm,b02->2cd cm-cl cd^2}

changeTr0a={a00->ch cu,a10->0,a01->0,a20->cg,a11->ch,a02->0,b00->cm cu,b10->0,b01->0,b20->cl,b11->cm,b02->0}

changeTr0b={a00->0,a10->0,a01->1,a20->0,a11->0,a02->0,b00->1,b10->0,b01->cf,b20->0,b11->cm,b02->cn}

changeTr0c={a00->0,a10->1,a01->0,a20->0,a11->0,a02->0,b00->1,b10->0,b01->0,b20->cl,b11->cm,b02->0}

changeTr0d={a00->1,a10->0,a01->0,a20->0,a11->0,a02->0,b00->0,b10->ce,b01->cf,b20->cl,b11->cm,b02->cn}

changeTr2a=changeSr2A/.{(Subscript[a, 1])->cc,(Subscript[b, 1])->cd,(Subscript[c, 1])->cg,(Subscript[a, 2])->ce,(Subscript[b, 2])->cf,(Subscript[c, 2])->cl,m->cu}

SYSTEMS for different configurations regarding finite points

change1a={a00->0,a10->1,a01->0,a20->-1,a11->-1,a02->0,b00->0,b10->(2/3),b01->-2,b20->-(2/3),b11->0,b02->2};

change1b={a00->0,a10->1,a01->0,a20->-1,a11->1,a02->0,b00->0,b10->0,b01->1,b20->0,b11->1,b02->-1};

change2={a00->0,a10->1,a01->0,a20->-1,a11->-1,a02->0,b00->0,b10->2,b01->-2,b20->-2,b11->0,b02->2};

change3a={a00->0,a10->0,a01->1,a20->0,a11->1,a02->0,b00->0,b10->-1,b01->0,b20->1,b11->1,b02->-1};

change3b={a00->0,a10->0,a01->1,a20->0,a11->(1/2),a02->(1/2),b00->0,b10->-1,b01->0,b20->1,b11->0,b02->-(1/2)};

change4={a00->0,a10->1,a01->0,a20->-1,a11->0,a02->0,b00->0,b10->1,b01->2,b20->-1,b11->0,b02->-2};

change5a={a00->0,a10->1,a01->0,a20->-1,a11->0,a02->0,b00->0,b10->1,b01->1,b20->-1,b11->1,b02->-1};

change5b={a00->0,a10->1,a01->0,a20->-1,a11->0,a02->0,b00->0,b10->1,b01->1,b20->-1,b11->0,b02->-1};

change6={a00->0,a10->1,a01->0,a20->-1,a11->-1,a02->0,b00->0,b10->-(1/9),b01->-2,b20->(1/9),b11->0,b02->2};

change7={a00->0,a10->1,a01->0,a20->-1,a11->-1,a02->0,b00->0,b10->-(1/8),b01->-2,b20->(1/8),b11->0,b02->2};

change8={a00->0,a10->1,a01->0,a20->-1,a11->-1,a02->0,b00->0,b10->-1,b01->-2,b20->1,b11->0,b02->2};

change9a={a00->0,a10->1,a01->0,a20->-1,a11->-1,a02->0,b00->0,b10->-(1/5),b01->-2,b20->(1/5),b11->0,b02->2};

change9b={a00->0,a10->1,a01->0,a20->-1,a11->-1,a02->0,b00->0,b10->-0.330256542016763`,b01->-2,b20->0.330256542016763`,b11->0,b02->2};

change10={a00->0,a10->0,a01->1,a20->0,a11->0,a02->1,b00->0,b10->-1,b01->0,b20->1,b11->0,b02->0};

change11a={a00->0,a10->0,a01->1,a20->0,a11->(26/25),a02->0,b00->0,b10->-1,b01->0,b20->-1,b11->0,b02->-(1/25)};

change11b={a00->0,a10->0,a01->1,a20->0,a11->1+0.083699664766333,a02->0,b00->0,b10->-1,b01->0,b20->-1,b11->0,b02->-0.083699664766333};

change12={a00->0,a10->1,a01->0,a20->-1,a11->-1,a02->0,b00->0,b10->-1,b01->3,b20->1,b11->0,b02->-3};

change13={a00->0,a10->1,a01->0,a20->-1,a11->-2,a02->0,b00->0,b10->-2,b01->1,b20->2,b11->2,b02->-1};

change14={a00->0,a10->-1,a01->0,a20->1,a11->1,a02->0,b00->0,b10->2,b01->-1,b20->-2,b11->4,b02->1};

change15={a00->0,a10->-1,a01->0,a20->1,a11->-1,a02->0,b00->0,b10->-1,b01->2,b20->1,b11->0,b02->-2};

change16={a00->0,a10->(4/5),a01->0,a20->-(4/5),a11->-1,a02->0,b00->0,b10->-(2/5),b01->(4/5),b20->(2/5),b11->0,b02->-(4/5)};

change17={a00->0,a10->-1,a01->0,a20->1,a11->1,a02->0,b00->0,b10->2,b01->-1,b20->-2,b11->1,b02->1};

change18a={a00->0,a10->0,a01->1,a20->0,a11->-1,a02->0,b00->0,b10->-1,b01->0,b20->1,b11->2,b02->-1};

change18b={a00->0,a10->0,a01->1,a20->0,a11->2/3,a02->0,b00->0,b10->-1,b01->0,b20->-2,b11->0,b02->(1/3)};

change19={a00->0,a10->0,a01->1,a20->0,a11->(1/2),a02->0,b00->0,b10->-1,b01->0,b20->-2,b11->0,b02->(1/2)};

change20={a00->0,a10->2,a01->0,a20->-2,a11->2,a02->0,b00->0,b10->2,b01->-3,b20->-2,b11->0,b02->3};

change21a={a00->0,a10->1,a01->-(7/10),a20->-1,a11->1,a02->(7/10),b00->0,b10->1,b01->1,b20->-1,b11->-2,b02->-1};

change21b={a00->0,a10->1,a01->-0.790898358006533,a20->-1,a11->1,a02->0.790898358006533,b00->0,b10->1,b01->1,b20->-1,b11->-2,b02->-1};

change22={a00->0,a10->1,a01->0,a20->1,a11->-1,a02->0,b00->1,b10->0,b01->0,b20->0,b11->-1,b02->1};

change23={a00->1,a10->1,a01->0,a20->1,a11->1,a02->1,b00->-1,b10->-2,b01->0,b20->2,b11->1,b02->-1};

change24={a00->1,a10->(Sqrt[(1/2) (1+5 (Sqrt[2]))]),a01->0,a20->0,a11->0,a02->1,b00->0,b10->0,b01->0,b20->1,b11->(1/2),b02->0};

change25a={a00->(1/100),a10->-(1/5),a01->0,a20->0,a11->0,a02->(1/100),b00->-(1/10),b10->1,b01->0,b20->1,b11->0,b02->-(1/10)};

alpha=Sqrt[5+Sqrt[7]];list1={-3/(8alpha),1,0,0,0,-3/(8alpha)};list2={0,0,0,-1,-alpha/6,0};change25b={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};

list1={-1,-1,0,-1/2,-1,-1};list2={-1,-1/2,0,0,-1,-1};change26={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};

list1={1,-2,0,0,0,1};list2={-1,1,0,1,0,-1};
change27={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};

list1={0,0,1,0,1/2,1};list2={0,-1,0,-2,0,-1/2};change28={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};

list1={0,0,1,0,1/2,0};list2={0,-1,0,1,0,1/2};change29={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};

list1={-2,1,0,2,1,-2};list2={-1,-2,0,1,1,-1};change30={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};

list1={1,1,0,-1,3,1};list2={0,1,0,0,-1,0};change31={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};

list1={1,8Sqrt[2],0,-1,0,1};list2={6,5,0,-6,-1,6};change32={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};

alpha=Sqrt[30417];list1={1,4,0,-5,-2/25,1};list2={(12-alpha)/50,(16-alpha)/25,0,(3alpha-44)/50,-13/10,(12-alpha)/50};change33={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};

list1={1,0.919944419584443,0,-1,0,1};
list2={1,1,0,-1,-1,1};change34={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};

list1={1,-1,0,-1,-1,1};list2={0,-1,0,0,-1,0};change35={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};

list1={1,0,1,1,10,-1};list2={0,0,0,0,1,0};change36a={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};

list1={1,0,1,1,(5+Sqrt[5])^(1/2),-1};list2={0,0,0,0,1,0};change36b={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};

list1={-2,0,0,2,-1,-2};list2={-1/2,0,0,1/2,0,-1/2};change37a={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};

list1={-2,0,0,2,-1,-2};list2={-10,0,0,10,9,-10};change37b={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};

list1={-2,0,0,2,-1,-2};list2={-13/10,0,0,13/10,-101/200,-13/10};change38a={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};

alpha=N[36.244495164298447,100];
beta=N[0.699594834056452,100];list1=N[{1,Sqrt[alpha],0,-1,5.8,1},100];
list2=N[{beta,Sqrt[alpha](beta/2-2.9),0,-beta,1-beta^2-5.8beta,beta},100];change38b=N[{a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]},100];

alpha=36244495164298447/1000000000000000;
beta=699594834056452/1000000000000000;list1=N[{1,Sqrt[alpha],0,-1,58/10,1},100];
list2=N[{beta,Sqrt[alpha](beta/2-29/10),0,-beta,1-beta^2-58beta/10,beta},100];change38b=N[{a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]},100];
list1={-1,0,0,1,10,-1};list2={1,0,0,-1,10,1};change39={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};

list1={1,1,0,-1,Sqrt[17]/2,1};list2={0,-Sqrt[17]/4,0,0,-1,0};change40a={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};

list1={2,4Sqrt[5],0,-2,1,2};list2={1,0,0,-1,-2,1};change40b={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};

list1={1,0,0,-1,1,1};list2={0,0,0,0,-1,0};change41={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};

list1={-2,0,0,-2,-9/4,-1};list2={1,0,0,1,1,1/4};change42={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};

list1={1,0,0,-1,1/4,1};list2={1,0,0,-1,0,3/4};change43={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};

list1={-1,0,0,1,0,-1};list2={2,0,0,-2,1,2};change44={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};

list1={-2,-1,0,2,-1,-2};list2={-1,-2,0,1,1,-1};change45={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};

alpha=-1.601466921314172;list1={0,0,-1,-(alpha+5)/3,1,1};list2={0,1,0,1,(2alpha-5)/6,-1};
change46={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};

list1={0,0,0,1,1,0};list2={1,10,0,0,2,1};change47={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};

list1={0,0,0,2-((7-Sqrt[5])/2)^(1/2),1,0};list2={1,1,0,0,1,1};change48={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};

list1={0,0,-1,1,-1/2,0};list2={0,1,0,1,3/2,-2};change49={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};

list1={0,0,1,0,-3/2,0};list2={0,-1,0,1,-1/4,-1};change50={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};

list1={0,0,1,0,-3/2,0};list2={0,-1,0,1,-1,-1};change51={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};

list1={0,0,1,0,-2.437564897081389,0};list2={0,-1,0,1,-1,-1};change52={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};

list1={0,0,1,0,-2437564897081389/1000000000000000,0};list2={0,-1,0,1,-1,-1};change52={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};

list1={0,0,1,0,2/3,0};list2={0,-1,0,-1,0,1/3};change53={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};

list1={0,0,1,0,1/2,0};list2={0,-1,0,-1/3,0,1/2};change54={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};

list1={0,0,1,0,1/2,0};list2={0,-1,0,-1/2,0,1/2};change55={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};

list1={0,0,0,1,2,0};list2={1,0,0,0,1,1};change56={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};

list1={-1,-1,0,1,-1,-1};list2={-1,-1,0,1,0,-1};change57={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};

list1={0,0,1,0,-36501308411535003/10000000000000000,1};list2={0,-1,0,1,-1,-1};change58={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};

alpha=Sqrt[11];list1={1,-1,0,0,-3,1};list2={(3-alpha)/2,(alpha-9)/4,0,(alpha+3)/4,-3,(3-alpha)/2};change59={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};

list1={0,0,0,0,1,0};list2={1,1,0,-1,1,1};change60={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={2,0,0,-2,-4,2};list2={-1,0,0,1,-31/10,-1};change61a={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={2,0,0,-2,-4,2};list2={-1,0,0,1,-3,-1};change61b={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={1,0,0,-1,2,1};list2={2,0,0,-2,-1,2};change61c={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={-2,0,0,2,-1,-2};list2={-3,0,0,3,4,-3};change62a={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


alpha=4239689216892418/1000000000000000;beta=996530222291638/1000000000000000;list1=N[{1,1,0,-1,alpha,1},100];list2=N[{beta,(beta-alpha)/2,0,-beta,1-beta^2-alpha beta,beta},100];change62b={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={1,1,0,-1,2+Sqrt[5],1};list2={1,-(1+Sqrt[5])/2,0,-1,-2-Sqrt[5],1};change63a={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={-1,0,0,1,2,-1};list2={1,0,0,-1,2,1};change63b={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,0,0,0,1,0};list2={1,-1,0,-1,Sqrt[2],1};change64={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,0,0,0,-1,-1};list2={1,0,0,1,2,1};change65={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,1,-1,-1,1/2,1};list2={0,2,-2,-2,0,2};change66={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,1,-1,-1,9/16,1};list2={0,2,-2,-2,0,2};change67a={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,0,0,0,-1,0};list2={0,-2,2,2,1,-2};change67b={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,1,-1,-1,2,1};list2={0,2,-2,-2,1,2};change68={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,0,0,0,-1,0};list2={0,-2,2,2,-2,-2};change69={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,0,1,0,-1/2,0};list2={0,-1,0,1,1,-1};change70={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,-2,2,2,3,-2};list2={0,8/5,-8/5,-8/5,3,8/5};change71a={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


alpha=0.68212293851392;list1={0,-2,2,2,3,-2};list2={0,3alpha,-3alpha,-3alpha,3,3alpha};change71b={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,3,-3,-3,1,3};list2={0,-3,3,3,-2,-3};change72={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,1,-1,-1,2,1};list2={0,1,-1,-1,-2,1};change73a={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,1,-1,-1,5/2,1};list2={0,1,-1,-1,2,1};change73b={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,1,-1,-1,2,1};list2={0,1,-1,-1,1,1};change74={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,0,0,0,-1,0};list2={0,1,1,-1,0,-1};change75a={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,0,0,0,-1/2,0};list2={0,1,1,-1,0,-1};change75b={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,0,0,0,1,0};list2={0,1,1,-1,0,-1};change76={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,-1,-1,1,-2,1};list2={0,1,1,-1,1,-1};change77a={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,-1,-1,1,1,1};list2={0,1,1,-1,1,-1};change77b={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,-1,-1,1,2,1};list2={0,1,1,-1,1,-1};change78={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,0,1,0,1/2,1};list2={0,-1,0,-1,0,-1/2};change79={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,0,0,0,-1,0};list2={0,1,-1,-1,0,1};change80={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,1,-1,-1,0,1};list2={0,1,-1,-1,1,1};change81={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,-1,-2,1,1,0};list2={0,1,2,1,-1,2};change82={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,-2,-4,1,2,-1};list2={0,1,2,1,-1,2};change83={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,0,0,0,0,1};list2={0,1,1,-1,0,0};change84={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,-1,-1,1,0,1};list2={0,1,1,-1,0,0};change85={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,-1,-1,1,1,1};list2={0,1,1,-1,-1,0};change86={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,1,2,-1,1,5};list2={0,1,2,-1,2,9};change87={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,-2,-4,2,1,2};list2={0,1,2,-1,-1,-3};change88={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,0,0,0,1,4};list2={0,3,6,-3,0,3};change89a={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,0,0,0,1,4};list2={0,2,4,-2,0,2};change89b={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,-2,-4,2,1,2};list2={0,1,2,-1,0,1};change90a={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,-2,-4,2,2,6};list2={0,1,2,-1,0,1};change90b={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,0,0,0,1,4};list2={0,1,2,-1,0,1};change91={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,-2,-4,2,3,10};list2={0,1,2,-1,0,1};change92={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,0,1,0,-1,0};list2={0,-1,0,2,0,2};change93a={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,0,1,0,1/2,0};list2={0,-1,0,-1,0,-1/2};change93b={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,0,0,0,-1,-2};list2={0,1,1,-1,0,2};change94={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,0,0,0,1,2};list2={0,9,9,-9,0,18};change95a={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,0,0,0,1/8,1/4};list2={0,1,1,-1,0,2};change95b={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,0,0,0,1,2};list2={0,1,1,-1,0,2};change96={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,-3,-3,3,1,-4};list2={0,3,3,-3,0,6};change97a={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,-2,-2,2,1,-2};list2={0,2,2,-2,0,4};change97b={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,-1,-1,1,1,0};list2={0,1,1,-1,0,2};change98={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,0,1,0,1/2,0};list2={0,-1,0,-1,0,1/2};change99={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,1,0,0,0,1};list2={0,0,0,1,0,0};change100={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,0,0,1,0,2};list2={0,0,0,0,1,0};change101={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,0,0,0,3,0};list2={0,0,0,-1,3,-3};change102={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,0,0,0,1,0};list2={0,0,0,1,0,2};change103={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,0,0,0,1,0};list2={0,0,0,-2,0,-1};change104={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,0,0,0,1,0};list2={0,0,0,2,0,-1};change105={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,0,0,3,0,-4};list2={0,0,0,0,1,0};change106={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,0,0,15,0,-108};list2={0,0,0,-1,3,0};change107={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,0,0,2,0,-3};list2={0,0,0,0,1,0};change108={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,0,0,0,1,0};list2={0,0,0,-2,0,1};change109={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,2,-1/2,-2,1,0};list2={0,1,0,-1,1,0};change110a={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,2,-1,-2,1,0};list2={0,1,0,-1,1,0};change110b={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,1,1,-1,0,0};list2={0,2,1,-2,1,0};change111a={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,1,1,-1,0,0};list2={0,4,1,-4,1,0};change111b={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,2,1,-2,1,0};list2={0,1,0,-1,1,0};change112={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,1,1,-1,0,0};list2={0,5,1,-5,1,0};change113={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,0,1,0,1/2,0};list2={0,-1,0,0,0,-1/2};change114={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,1/2,0,-1/2,1,0};list2={0,1,3,-1,0,0};change115={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,4,0,-4,1,0};list2={0,1,4,-1,0,0};change116a={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,Sqrt[10],0,-Sqrt[10],1,0};list2={0,1,Sqrt[10],-1,0,0};change116b={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,1,1/3,-1,0,0};list2={0,1/2,2,-1/2,-1,0};change117a={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,1,1,-1,0,0};list2={0,1/4,0,-1/4,-1,0};change117b={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,1,0,-1,1,0};list2={0,1,3,-1,0,0};change118={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,2,0,-2,1,0};list2={0,1,2,-1,0,0};change119={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,1,1,-1,0,0};list2={0,2,1,-2,-1,0};change120={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,1,-2,-1,1,0};list2={0,2,0,-2,1,0};change121={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,-2,1,1,1,0};list2={0,2,0,0,-1,0};change123={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,-2,1,1,1,0};list2={0,0,-1,-1,0,0};change124={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,-5/2,0,0,5/4,0};list2={0,0,-5/2,-2,1,0};change125={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,-2,1/4,1/4,1,0};list2={0,-1/2,0,0,1/4,0};change126a={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,-2,1/Sqrt[2],1/Sqrt[2],1,0};list2={0,-Sqrt[2],0,0,1/Sqrt[2],0};change126b={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,0,1,1,0,0};list2={0,-2,3,3,1,0};change127={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,0,1,1,0,0};list2={0,-4,4,4,2,0};change128={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,-4,5,1,0,0};list2={0,-2(Sqrt[5]-2)/5,-2Sqrt[5]-6,-2(Sqrt[5]+3)/5,2+Sqrt[5],0};change129a={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,-2Sqrt[3],4,1,0,0};;list2={0,-1,-4-2Sqrt[3],-1-Sqrt[3]/2,2+Sqrt[3],0};change129b={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,0,-2,-1,1,0};list2={0,2,-2,-1,0,0};change130={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,-1-Sqrt[2],2+2Sqrt[2],1+Sqrt[2],-(1+Sqrt[2])/2,0};list2={0,-2,2,1,0,0};change131={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,0,1,1,0,0};list2={0,-2,1,1,1,0};change132={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,2,2,1,0,0};list2={0,-4+2Sqrt[2],-6+4Sqrt[2],-3+2Sqrt[2],-1+Sqrt[2],0};change133={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,0,1,0,2/3,0};list2={0,-1,0,0,0,1/3};change134={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,0,1,0,1/2,0};list2={0,-1,0,0,0,1/2};change135={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,1,1,-1,-1,0};list2={0,1,1,-1,0,0};change136={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,-1,-1,1,-1,0};list2={0,1,1,-1,0,0};change137={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,-1,-1,1,1,0};list2={0,0,0,0,1,0};change138a={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,-2,-2,2,1,0};list2={0,0,0,0,1,0};change138b={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,1,1,-1,0,0};list2={0,-2,-2,2,-2,0};change139a={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,1,1,-1,0,0};list2={0,1,1,-1,-2,0};change139b={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,1,1,-1,1,0};list2={0,2,2,-2,0,0};change140={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,1,1,-1,0,0};list2={0,2,2,-2,-2,0};change141={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,-1,-1,1,1,0};list2={0,1,1,-1,2,0};change142a={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,-1,-1,1,1,0};list2={0,1,1,-1,1,0};change142b={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,-1,-1,1,0,0};list2={0,1,1,-1,1,0};change143={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,-1,-1,1,1,0};list2={0,1,1,-1,0,0};change144={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,0,-1,-1,0,0};list2={0,0,0,0,1,0};change145={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};



list1={0,0,0,0,-1,0};list2={0,0,1,1,0,0};change146={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,0,1,1,0,0};list2={0,0,0,0,1,0};change147={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,0,1,0,-1,0};list2={0,1,0,-1,0,0};change148={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,2,1,-2,1,0};list2={0,-1/2,0,1/2,0,0};change149a={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,2,1,-2,1,0};list2={0,1/3,0,-1/3,0,0};change149b={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,1,0,-1,0,0};list2={0,0,1,0,1,0};change150={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,1,1/4,0,0,0};list2={0,2,0,0,1,1};change151a={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,1,1/4,0,0,0};list2={0,-1,0,0,1,1};change151b={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,1,1/4,0,0,0};list2={0,1,0,0,2,0};change152a={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,1,1/4,0,0,0};list2={0,-1,0,0,2,0};change152b={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,1,1/4,0,0,0};list2={0,1,0,1,1,1};change153a={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,1,1/4,0,0,0};list2={0,-1,0,1,1,1};change153b={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,0,1,0,0,0};list2={0,1,0,1,1,1};change154={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,1,1/4,0,0,0};list2={0,1/2,0,1,0,0};change155a={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,1,1/4,0,0,0};list2={0,1,0,1,0,0};change155b={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,2,1,-2,1,0};list2={0,-2,0,2,0,0};change156={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,1,1/4,0,0,0};list2={0,-2,0,0,1,1};change157={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,1,1/4,0,0,0};list2={0,-2,0,0,2,0};change158={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,1,1/4,0,0,0};list2={0,-2,0,1,1,1};change159={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,1,1/4,0,0,0};list2={0,-2,0,1,0,0};change160={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,0,1,0,1,0};list2={0,-1,0,1,0,0};change161={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,0,1,0,2,0};list2={0,-1,0,0,1,0};change162a={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,0,1,0,0,0};list2={0,-1,0,1,0,1};change162b={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,0,1,0,0,0};list2={0,-1,0,-1,0,0};change163={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,1,0,-1,0,0};list2={0,0,1,0,-1,0};change164={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,0,1/4,0,-1/2,0};list2={0,-1/2,1,1/2,-2,0};change165={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,0,1/4,0,-1/2,0};list2={0,-1,1,1,-2,0};change166a={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,Sqrt[3],1/4,-Sqrt[3],-1/2,0};list2={0,2(Sqrt[3]-2),1,4-2Sqrt[3],-2,0};change166b={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,0,1/4,0,-1/2,0};list2={0,-2,1,2,-2,0};change167={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,0,1/4,0,-1/2,0};list2={0,-3,1,3,-2,0};change168={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,0,1/4,0,-1/2,0};list2={0,-4,1,4,-2,0};change169={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,0,1,0,1,0};list2={0,-1,0,-1,0,0};change170={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,0,1,1,1,0};list2={0,0,1,2,1,0};change171={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,0,0,1,0,0};list2={0,0,1,0,1,0};change172={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,1,1,0,0,0};list2={0,1,1,0,1,0};change173={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,-1,1,0,0,0};list2={0,-2,2,1,1,1};change174={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,0,1,0,1,0};list2={0,0,0,1,0,0};change175={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,-1,1,0,0,0};list2={0,-1,1,0,1,0};change176={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,-2,1,0,0,0};list2={0,-4,2,1,1,1};change177={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,0,1,1,1,0};list2={0,1,1,3,1,0};change178={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],
b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,1,0,0,0,0};list2={0,0,-1,1,0,0};change179={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,1,1/4,9/4,1/4,0};list2={0,-1/2,0,-1,0,0};change180a={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,1,1/4,9/4,1/4,0};list2={0,-1,0,-2,0,0};change180b={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,1,1/4,0,0,0};list2={0,-1/2,0,1,0,-1/16};change181a={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,1,1/4,0,0,0};list2={0,-1,0,1,0,-1/16};change181b={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,1,2,0,0,0};list2={0,-1/9,0,1,1,0};change182a={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,1,2,0,0,0};list2={0,-1/8,0,1,1,0};change182b={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,1,1/4,0,0,0};list2={0,-1/2,0,1,1/4,1/16};change183a={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,1,1/4,0,0,0};list2={0,-1,0,1,1/4,1/16};change183b={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,1,1/4,9/4,1/4,0};list2={0,-2,0,-4,0,0};change184={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,1,1/4,0,0,0};list2={0,-2,0,1,0,-1/16};change185={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,1,2,0,0,0};list2={0,-1,0,1,1,0};change186={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],
b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,1,1/4,0,0,0};list2={0,-2,0,1,1/4,1/16};change187={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,0,1,0,1,0};list2={0,-1,0,0,0,0};change188={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};


list1={0,0,1,0,0,0};list2={0,-1,0,0,0,1};change189={a00->list1[[1]],a10->list1[[2]],a01->list1[[3]],a20->list1[[4]],a11->list1[[5]],a02->list1[[6]],b00->list2[[1]],b10->list2[[2]],b01->list2[[3]],b20->list2[[4]],b11->list2[[5]],b02->list2[[6]]};

VULPE invariants for centers (center must be at the origin)

These are the Vulpe coefficients needed to determine when a quadratic system has a center, and also which is its global phase portrait

vulpe={0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}

eps={{0,1},{-1,0}}

co2={{{a20,a11},{a11,a02}},{{b20,b11},{b11,b02}}}

co1={{a10,a01},{b10,b01}}

co0={a00,b00}

Do[vulpe[[1]]=vulpe[[1]]+co1[[i1,i1]];Do[vulpe[[2]]=vulpe[[2]]+co1[[i1,i2]]*co1[[i2,i1]];
Do[Do[Do[vulpe[[3]]=vulpe[[3]]+co1[[i1,i4]]*co2[[i2,i1,i5]]*co2[[i3,i2,i3]]*eps[[i4,i5]];vulpe[[4]]=vulpe[[4]]+co1[[i1,i4]]*co2[[i2,i2,i5]]*co2[[i3,i1,i3]]*eps[[i4,i5]];vulpe[[5]]=vulpe[[5]]+co1[[i1,i4]]*co2[[i2,i3,i5]]*co2[[i3,i1,i2]]*eps[[i4,i5]];Do[vulpe[[6]]=vulpe[[6]]+co1[[i1,i4]]*co1[[i2,i3]]*co2[[i3,i1,i5]]*co2[[i6,i2,i6]]*eps[[i4,i5]];Do[vulpe[[10]]=vulpe[[10]]+co1[[i1,i4]]*co1[[i2,i6]]*co1[[i3,i7]]*co2[[i6,i1,i5]]*co2[[i7,i2,i3]]*eps[[i4,i5]];Do[vulpe[[7]]=vulpe[[7]]+
co2[[i1,i4,i8]]*co2[[i2,i1,i5]]*co2[[i3,i2,i7]]*co2[[i6,i3,i6]]*eps[[i4,i5]]*eps[[i8,i7]];vulpe[[8]]=vulpe[[8]]+
co2[[i1,i4,i8]]*co2[[i2,i1,i5]]*co2[[i3,i6,i7]]*co2[[i6,i2,i3]]*eps[[i4,i5]]*eps[[i8,i7]];vulpe[[9]]=vulpe[[9]]+
co2[[i1,i4,i8]]*co2[[i2,i2,i5]]*co2[[i3,i3,i7]]*co2[[i6,i1,i6]]*eps[[i4,i5]]*eps[[i8,i7]];Do[vulpe[[11]]=vulpe[[11]]+co1[[i1,i4]]*
co2[[i2,i5,i8]]*co2[[i3,i3,i7]]*co2[[i6,i1,i2]]*co2[[i9,i6,i9]]*eps[[i4,i5]]*eps[[i8,i7]];
Do[Do[vulpe[[12]]=vulpe[[12]]+co1[[i1,i4]]*co1[[i2,i8]]*co1[[i3,i6]]*
co2[[i6,i1,i5]]*co2[[i9,i2,i7]]*co2[[i10,i3,i11]]*co2[[i11,i9,i10]]*eps[[i4,i5]]*eps[[i8,i7]]
,{i11,1,2}]
,{i10,1,2}]
,{i9,1,2}]
,{i8,1,2}]
,{i7,1,2}]
,{i6,1,2}]
,{i5,1,2}]
,{i4,1,2}]
,{i3,1,2}]
,{i2,1,2}]
,{i1,1,2}]

vulpe[[15]]=(3/vulpe[[4]]^2)*(2*vulpe[[3]]*vulpe[[4]]+vulpe[[2]]*vulpe[[9]]);

vulpe[[14]]=4*vulpe[[4]]^2-3*vulpe[[2]]*vulpe[[9]]-4*vulpe[[3]]*vulpe[[4]];

vulpe[[13]]=vulpe[[2]]^2*vulpe[[8]]-28vulpe[[2]]*vulpe[[5]]^2+16vulpe[[5]]*vulpe[[10]];

Do[Do[Do[vulpe[[16]]=vulpe[[16]]+co0[[i1]]*co0[[i3]]*co1[[i2,i1]]*eps[[i2,i3]];vulpe[[17]]=vulpe[[17]]+co0[[i1]]*co1[[i2,i3]]*co2[[i3,i1,i2]];
Do[vulpe[[18]]=vulpe[[18]]+co0[[i1]]*co0[[i2]]*co0[[i4]]*co2[[i3,i1,i2]]*eps[[i3,i4]];vulpe[[19]]=vulpe[[19]]+co0[[i1]]*co0[[i2]]*co2[[i3,i1,i4]]*co2[[i4,i2,i3]];vulpe[[20]]=vulpe[[20]]+co0[[i1]]*co1[[i2,i4]]*co1[[i3,i1]]*co2[[i4,i2,i3]];Do[vulpe[[21]]=vulpe[[21]]+co0[[i1]]*co0[[i2]]*co1[[i3,i4]]*co2[[i4,i3,i5]]*co2[[i5,i1,i2]];Do[vulpe[[23]]=vulpe[[23]]+co0[[i1]]*co0[[i2]]*co0[[i3]]*co2[[i4,i1,i2]]*co2[[i5,i3,i6]]*co2[[i6,i4,i5]];Do[vulpe[[22]]=vulpe[[22]]+co0[[i1]]*co1[[i2,i6]]*
co2[[i3,i2,i7]]*co2[[i4,i3,i5]]*co2[[i5,i1,i4]]*eps[[i6,i7]];Do[vulpe[[24]]=vulpe[[24]]+co0[[i1]]*
co1[[i2,i7]]*co1[[i3,i1]]*co2[[i4,i2,i8]]*co2[[i5,i3,i6]]*co2[[i6,i4,i5]]*eps[[i7,i8]]
,{i8,1,2}]
,{i7,1,2}]
,{i6,1,2}]
,{i5,1,2}]
,{i4,1,2}]
,{i3,1,2}]
,{i2,1,2}]
,{i1,1,2}]

WWI01=vulpe[[1]];WWI02=vulpe[[2]];WWI03=vulpe[[3]];WWI04=vulpe[[4]];WWI05=vulpe[[5]];WWI06=vulpe[[6]];WWI07=vulpe[[7]];WWI08=vulpe[[8]];WWI09=vulpe[[9]];WWI10=vulpe[[10]];WWI13=vulpe[[11]];WWI16=vulpe[[12]];Walpha=vulpe[[13]];Wbeta=vulpe[[14]];Wgamma=vulpe[[15]];WWI18=vulpe[[16]];WWI19=vulpe[[17]];WWI21=vulpe[[18]];WWI23=vulpe[[19]];WWI24=vulpe[[20]];WWI28=vulpe[[21]];WWI30=vulpe[[22]];WWI33=vulpe[[23]];WWI35=vulpe[[24]];

Wdelta=27vulpe[[8]]-vulpe[[9]]-18vulpe[[7]];

Wepsilon=vulpe[[2]]vulpe[[5]](vulpe[[2]]vulpe[[5]]+2vulpe[[10]])-4vulpe[[10]]^2-vulpe[[2]]^3vulpe[[8]];

Relation of indices with paper of Vulpe - Calin about invariants for Hamiltonians
16 -> 18
17 -> 19
18 -> 21
19 -> 23
20 -> 24
21 -> 28
22 -> 30
23 -> 33
24 -> 35

We produce the set of determinants to study finite singular points, define transvectant, DDeterminants and several other functions

matcoeff={{a00,a10,a01,a20,a11,a02},{b00,b10,b01,b20,b11,b02}}

studypol4[fun_,var_]:={coe=CoefficientList[fun,var];If[Length[coe]==5,ea=coe[[5]],ea=0];eb=coe[[4]]/4;ec=coe[[3]]/6;ed=coe[[2]]/4;ee=coe[[1]];eP=ea ee- 4eb ed +3ec^2;eQ=(eb^2-ea ec)ee+ea ed^2+(ec^2-2eb ed)ec;eD=27eQ^2-eP^3;eR=eb^2-ea ec;eS=12eR^2-ea^2 eP;eT=3ea eQ-2eP eR;eU=2ed^2-3ec ee;Print[Column[{{"D=",Factor[eD]},{"R=",Factor[eR]},{"S=",Factor[eS]},{"T=",Factor[eT]},{"PR=",Factor[eP eR]},{"P=",Factor[eP]},{"U=",Factor[eU]},{"e=",Factor[ee]}}]]}

DD[i_,j_]:=Det[{{matcoeff[[1,i]],matcoeff[[1,j]]},{matcoeff[[2,i]],matcoeff[[2,j]]}}]

implicitplot plots implicitely (and numerically) up to 7 functions included in "fun" with two elegible variables "var1" and "var2" inside the rectangle defined by the corners (kma, kmc) x (kmb, kmd) (lower - left x upper - right). "points" determines the precision of the plot.

implicitplot[fun_,var1_,var2_,kma_,kmb_,kmc_,kmd_,points_]:={dib={0,0,0,0,0,0,0};color={{0,0,0},{1,0,0},{0,1,0},{0,0,1},{1,1,0},{1,0,1},{0,1,1}};Do[j=1;Do[m0=Flatten[NSolve[(fun[[i1]]/.var1->i)==0,var2]];Do[xx[k+j-1]=i;yy[k+j-1]=m0[[k,2]],{k,1,Length[m0]}];j=j+Length[m0],{i,kma,kmb,(kmb-kma)/points}];Do[m0=Flatten[NSolve[(fun[[i1]]/.var2->i)==0,var1]];Do[yy[k+j-1]=i;xx[k+j-1]=m0[[k,2]],{k,1,Length[m0]}];j=j+Length[m0],{i,kmc,kmd,(kmd-kmc)/points}];dib[[i1]]=Graphics[{AbsolutePointSize[1],RGBColor[color[[i1,1]],color[[i1,2]],color[[i1,3]]],Table[Point[{xx[l],yy[l]}],{l,1,j-1}]},Axes->True,AspectRatio->Automatic,PlotRange->{{kma,kmb},{kmc,kmd}}],{i1,1,Length[fun]}];dibt={dib[[1]]};Do[dibt=Union[dibt,{dib[[i1]]}],{i1,2,Length[fun]}];Show[dibt]}

implicitplot2[fun_,tram_,var1_,var2_,kma_,kmb_,kmc_,kmd_,points_]:={dib=0;color={{0,0,0}};
l=1;Do[Do[a=True;Do[a=TrueQ[(fun[[k]]/.{var1->kma+i1*(kmb-kma)/points,var2->kmc+i2*(kmd-kmc)/points})*tram[[k]]>0&&a],{k,1,Length[fun]}];If[a,xx[l]=kma+i1*(kmb-kma)/points;yy[l]=kmc+i2*(kmd-kmc)/points;l=l+1],{i1,0,points}],{i2,0,points}];
dib=Graphics[{AbsolutePointSize[1],RGBColor[color[[1,1]],color[[1,2]],color[[1,3]]],Table[Point[{xx[i],yy[i]}],{i,1,l-1}]},Axes->True,AspectRatio->Automatic,PlotRange->{{kma,kmb},{kmc,kmd}}];If[l==1,Print["Not a single pixel"],Show[dib]]}

FUNCTIONS

We take six  points which do not belong to a single conic so that when we want to check if a certain commitant is positive or negative or zero for a dense set of points, we will evaluate such commitant in everyone of those points and then we will add them all together.

evalnonconpoi[f_]:=(f /.{var1->0,var2->0})+(f /.{var1->1,var2->1})+(f /.{var1->-1,var2->1})+(f /.{var1->2,var2->4})+(f /.{var1->-2,var2->4})+(f /.{var1->0,var2->1})

*For other cases, it is better is we take a random point.

evalrandom[f_]:=(f /.{var1->Pi+0.0290319247916,var2->Exp[0.13249871495613764]})

search functions seek for a combination of parameters "var" within a given rank that fullfill a set of inequalities"fun - sign".

test={,,,};

check[list1_,list2_]:={llista1={};llista2={};llista3={};Do[If[list2[[i]]==0,llista3=Union[llista3,{list1[[i]]}],If[(list1[[i]]/.{var1->1.23726384903,var2->-9.928927464821})-(list1[[i]]/.{var1->2.02193894783276,var2->0.8163749302})==0,llista2=Union[llista2,{list1[[i]]*list2[[i]]}]]],{i,1,Length[list1]-1}];assume[llista1,llista2,llista3]}

reorder[i_,size_]:=If[Mod[i,2]==0,size/2-i/2,size/2+(i+1)/2]

search2[fun_,var_,sign_,points_]:=Do[test[[2]]=var[[2,2]]+reorder[i2,points]*(var[[2,3]]-var[[2,2]])/points;Do[j=1;test[[1]]=var[[1,2]]+reorder[i1,points]*(var[[1,3]]-var[[1,2]])/points;While[If[sign[[j]]≠0,Sign[fun[[j]]/.{var1->1.3938273748,var2->-2.93827817823}/.{var[[1,1]]->test[[1]],var[[2,1]]->test[[2]]}]==sign[[j]],Sign[fun[[j]]/.{var1->1.3938273748,var2->-2.93827817823}/.{var[[1,1]]->test[[1]],var[[2,1]]->test[[2]]}]≠sign[[j]]],j++];If[j==Length[fun],Print[{var[[1,1]]->test[[1]],var[[2,1]]->test[[2]]}];Abort[]],{i1,0,points}],{i2,0,points}]

search3[fun_,var_,sign_,points_]:=Do[test[[3]]=var[[3,2]]+reorder[i3,points]*(var[[3,3]]-var[[3,2]])/points;Do[test[[2]]=var[[2,2]]+reorder[i2,points]*(var[[2,3]]-var[[2,2]])/points;Do[j=1;test[[1]]=var[[1,2]]+reorder[i1,points]*(var[[1,3]]-var[[1,2]])/points;While[If[sign[[j]]≠0,Sign[fun[[j]]/.{var1->1.3938273748,var2->-2.93827817823}/.{var[[1,1]]->test[[1]],var[[2,1]]->test[[2]],var[[3,1]]->test[[3]]}]==sign[[j]],Sign[fun[[j]]/.{var1->1.3938273748,var2->-2.93827817823}/.{var[[1,1]]->test[[1]],var[[2,1]]->test[[2]],var[[3,1]]->test[[3]]}]≠sign[[j]]],j++];If[j==Length[fun],Print[{var[[1,1]]->test[[1]],var[[2,1]]->test[[2]],var[[3,1]]->test[[3]]}];Abort[]],{i1,0,points}],{i2,0,points}],{i3,0,points}]

search4[fun_,var_,sign_,points_]:=Do[test[[4]]=var[[4,2]]+reorder[i4,points]*(var[[4,3]]-var[[4,2]])/points;Do[test[[3]]=var[[3,2]]+reorder[i3,points]*(var[[3,3]]-var[[3,2]])/points;Do[test[[2]]=var[[2,2]]+reorder[i2,points]*(var[[2,3]]-var[[2,2]])/points;Do[j=1;test[[1]]=var[[1,2]]+reorder[i1,points]*(var[[1,3]]-var[[1,2]])/points;While[If[sign[[j]]≠0,Sign[fun[[j]]/.{var1->1.3938273748,var2->-2.93827817823}/.{var[[1,1]]->test[[1]],var[[2,1]]->test[[2]],var[[3,1]]->test[[3]],var[[4,1]]->test[[4]]}]==sign[[j]],Sign[fun[[j]]/.{var1->1.3938273748,var2->-2.93827817823}/.{var[[1,1]]->test[[1]],var[[2,1]]->test[[2]],var[[3,1]]->test[[3]],var[[4,1]]->test[[4]]}]≠sign[[j]]],j++];If[j==Length[fun],Print[{var[[1,1]]->test[[1]],var[[2,1]]->test[[2]],var[[3,1]]->test[[3]],var[[4,1]]->test[[4]]}];Abort[]],{i1,0,points}],{i2,0,points}],{i3,0,points}],{i4,0,points}]

search[fun_,var_,sign_,points_]:=If[Length[var]==2,search2[fun,var,sign,points],If[Length[var]==3,search3[fun,var,sign,points],search4[fun,var,sign,points]]]

computenum computes numerically the "short" invariants/comitants using precision given by "par"

computenum[par_]:={changecom=change;Do[changecom[[i,2]]=N[changecom[[i,2]],par],{i,1,Length[change]}];changecompute=Union[changecom,{var1->x,var2->y}];
v=N[Factor[vulpe /. changecompute],par];
WC0=N[Factor[WWC0/.changecompute],par];
WC1=N[Factor[WWC1/.changecompute],par];
WC2=N[Factor[WWC2/.changecompute],par];
WD1=N[Factor[WWD1/.changecompute],par];
WD2=N[Factor[WWD2/.changecompute],par];
σ=N[Factor[WSigma/.changecompute],par];
WT1=N[Factor[WWT1/.changecompute],par];
WT2=N[Factor[WWT2/.changecompute],par];
WT3=N[Factor[WWT3/.changecompute],par];
WT4=N[Factor[WWT4/.changecompute],par];
WT5=N[Factor[WWT5/.changecompute],par];
WT6=N[Factor[WWT6/.changecompute],par];
WT7=N[Factor[WWT7/.changecompute],par];
WT8=N[Factor[WWT8/.changecompute],par];
WT9=N[Factor[WWT9/.changecompute],par];
(OverTilde[A])=N[Factor[vulpeA/.changecompute],par];
(OverTilde[B])=N[Factor[vulpeB/.changecompute],par];
(OverTilde[D])=N[Factor[vulpeD/.changecompute],par];
WF1=(OverTilde[D]);
(OverTilde[E])=N[Factor[vulpeE/.changecompute],par];
(OverTilde[F])=N[Factor[vulpeF/.changecompute],par];
(OverTilde[H])=N[Factor[vulpeH/.changecompute],par];
VulpeK=N[Factor[vulpeK/.changecompute],par];(OverTilde[K])=N[Factor[4*vulpeK/.changecompute],par];
(OverTilde[M])=N[Factor[WWM/.changecompute],par];
WN=N[(OverTilde[H]),par];
WH=N[-4(OverTilde[H]),par];
WK=N[(OverTilde[K]),par];
WA01=N[Factor[WWA01/.changecompute],par];
WA02=N[Factor[WWA02/.changecompute],par];
WA03=N[Factor[WWA03/.changecompute],par];
WA04=N[Factor[WWA04/.changecompute],par];
WA05=N[Factor[WWA05/.changecompute],par];
WA06=N[Factor[WWA06/.changecompute],par];
WA07=N[Factor[WWA07/.changecompute],par];
WA08=N[Factor[WWA08/.changecompute],par];
WA09=N[Factor[WWA09/.changecompute],par];
WA10=N[Factor[WWA10/.changecompute],par];
WA11=N[Factor[WWA11/.changecompute],par];
WA12=N[Factor[WWA12/.changecompute],par];
WA13=N[Factor[WWA13/.changecompute],par];
WA14=N[Factor[WWA14/.changecompute],par];
WA15=N[Factor[WWA15/.changecompute],par];
WA16=N[Factor[WWA16/.changecompute],par];
WA17=N[Factor[WWA17/.changecompute],par];
WA18=N[Factor[WWA18/.changecompute],par];
WA19=N[Factor[WWA19/.changecompute],par];
WA20=N[Factor[WWA20/.changecompute],par];
WA21=N[Factor[WWA21/.changecompute],par];
WA22=N[Factor[WWA22/.changecompute],par];
WA23=N[Factor[WWA23/.changecompute],par];
WA24=N[Factor[WWA24/.changecompute],par];
WA25=N[Factor[WWA25/.changecompute],par];
WA26=N[Factor[WWA26/.changecompute],par];
WA27=N[Factor[WWA27/.changecompute],par];
WA28=N[Factor[WWA28/.changecompute],par];
WA29=N[Factor[WWA29/.changecompute],par];
WA30=N[Factor[WWA30/.changecompute],par];
WA31=N[Factor[WWA31/.changecompute],par];
WA32=N[Factor[WWA32/.changecompute],par];
WA33=N[Factor[WWA33/.changecompute],par];
WA34=N[Factor[WWA34/.changecompute],par];
WA35=N[Factor[WWA35/.changecompute],par];
WA36=N[Factor[WWA36/.changecompute],par];
WA37=N[Factor[WWA37/.changecompute],par];
WA38=N[Factor[WWA38/.changecompute],par];
WA39=N[Factor[WWA39/.changecompute],par];
WA40=N[Factor[WWA40/.changecompute],par];
WA41=N[Factor[WWA41/.changecompute],par];
WA42=N[Factor[WWA42/.changecompute],par];
WI01=N[Factor[WWI01/.changecompute],par];
WI02=N[Factor[WWI02/.changecompute],par];
WI03=N[Factor[WWI03/.changecompute],par];
WI04=N[Factor[WWI04/.changecompute],par];
WI05=N[Factor[WWI05/.changecompute],par];
WI06=N[Factor[WWI06/.changecompute],par];
WI07=N[Factor[WWI07/.changecompute],par];
WI08=N[Factor[WWI08/.changecompute],par];
WI09=N[Factor[WWI09/.changecompute],par];
WI10=N[Factor[WWI10/.changecompute],par];
WI11=N[Factor[WWI11/.changecompute],par];
WI12=N[Factor[WWI12/.changecompute],par];
WI13=N[Factor[WWI13/.changecompute],par];
WI14=N[Factor[WWI14/.changecompute],par];
WI15=N[Factor[WWI15/.changecompute],par];
WI16=N[Factor[WWI16/.changecompute],par];
WI17=N[Factor[WWI17/.changecompute],par];
WI18=N[Factor[WWI18/.changecompute],par];
WI19=N[Factor[WWI19/.changecompute],par];
WI20=N[Factor[WWI20/.changecompute],par];
WI21=N[Factor[WWI21/.changecompute],par];
WI22=N[Factor[WWI22/.changecompute],par];
WI23=N[Factor[WWI23/.changecompute],par];
WI24=N[Factor[WWI24/.changecompute],par];
WK01=N[Factor[WWK01/.changecompute],par];
WK02=N[Factor[WWK02/.changecompute],par];
WK03=N[Factor[WWK03/.changecompute],par];
WK04=N[Factor[WWK04/.changecompute],par];
WK05=N[Factor[WWK05/.changecompute],par];
WK06=N[Factor[WWK06/.changecompute],par];
WK07=N[Factor[WWK07/.changecompute],par];
WK08=N[Factor[WWK08/.changecompute],par];
WK09=N[Factor[WWK09/.changecompute],par];
WK10=N[Factor[WWK10/.changecompute],par];
WK11=N[Factor[WWK11/.changecompute],par];
WK12=N[Factor[WWK12/.changecompute],par];
WK13=N[Factor[WWK13/.changecompute],par];
WK14=N[Factor[WWK14/.changecompute],par];
WK15=N[Factor[WWK15/.changecompute],par];
WK16=N[Factor[WWK16/.changecompute],par];
WK17=N[Factor[WWK17/.changecompute],par];
WK18=N[Factor[WWK18/.changecompute],par];
WK19=N[Factor[WWK19/.changecompute],par];
WK20=N[Factor[WWK20/.changecompute],par];
WK21=N[Factor[WWK21/.changecompute],par];
WK22=N[Factor[WWK22/.changecompute],par];
WK23=N[Factor[WWK23/.changecompute],par];
WK24=N[Factor[WWK24/.changecompute],par];
WK25=N[Factor[WWK25/.changecompute],par];
WK26=N[Factor[WWK26/.changecompute],par];
WK27=N[Factor[WWK27/.changecompute],par];
WK28=N[Factor[WWK28/.changecompute],par];
WK29=N[Factor[WWK29/.changecompute],par];
WK30=N[Factor[WWK30/.changecompute],par];
WK31=N[Factor[WWK31/.changecompute],par];
WK32=N[Factor[WWK32/.changecompute],par];
WK33=N[Factor[WWK33/.changecompute],par];
Hα=N[Factor[Walpha/.changecompute],par];
Hβ=N[Factor[Wbeta/.changecompute],par];
Hγ=N[Factor[Wgamma/.changecompute],par];
Hδ=N[Factor[Wdelta/.changecompute],par];
Hϵ=N[Factor[Wepsilon/.changecompute],par];
Hμ=N[Factor[hatMu/.changecompute],par];
HH=N[Factor[hatH/.changecompute],par];
HG=N[Factor[hatG/.changecompute],par];
HF=N[Factor[hatF/.changecompute],par];
HV=N[Factor[hatV/.changecompute],par];
HR=N[Factor[hatR/.changecompute],par];
HS=N[Factor[hatS/.changecompute],par];
HT=N[Factor[hatT/.changecompute],par];
HP=N[Factor[hatP/.changecompute],par];
HU=N[Factor[hatU/.changecompute],par];
HW1=N[Factor[hatW1/.changecompute],par];
HW2=N[Factor[hatW2/.changecompute],par];
HE1=N[Factor[hatE1/.changecompute],par];
HE2=N[Factor[hatE2/.changecompute],par];
HE3=N[Factor[hatE3/.changecompute],par];
HD=N[Factor[hatD/.changecompute],par];
HTc=N[Factor[hatTc/.changecompute],par];
HUc=N[Factor[hatUc/.changecompute],par];
WE1=N[WA25,par];
WE2=N[WA06,par];
WE3=N[2 WA01^2-WA08-WA12,par];
μ=N[Factor[finiteMu/.changecompute],par];
WauxB1=N[Factor[TV1/.changecompute],par];
WauxB2=N[Factor[TV2/.changecompute],par];
WauxB3=N[Factor[TV3/.changecompute],par];
WauxB4=N[Factor[TV4/.changecompute],par];
WauxB5=N[Factor[TV5/.changecompute],par];
WauxB6=N[Factor[TV6/.changecompute],par];
WauxB7=N[Factor[TV7/.changecompute],par];
TV8=N[Expand[(3 WauxB2*WauxB4-8 WauxB1*WauxB3+288 WauxB5*VulpeK)/144],par];
WauxB8=N[TV8,par];
ℍ=N[Factor[finiteH/.changecompute],par];
𝔾=N[Factor[finiteG/.changecompute],par];
𝔽=N[Expand[3*WauxB4*WauxB2-8*WauxB1*WauxB3+288*WauxB5*VulpeK]/144,par];
𝕍=N[Expand[4*WauxB3^2-3*WauxB2*WauxB5]/36,par];
ℙ=N[Expand[𝔾^2-6*𝔽*ℍ+12*μ*𝕍],par];
ℝ=N[Expand[4*(3*ℍ^2-2*μ*𝔾)],par];
𝕊=N[Expand[ℝ^2-16*μ^2*ℙ],par];
𝕌=N[Expand[𝔽^2-4*𝔾*𝕍],par];
ℚ=N[Expand[2*𝔾^3+9*μ*(3*𝔽^2-8*𝔾*𝕍)-18*𝔽*𝔾*ℍ+108*ℍ^2*𝕍],par];
𝕋=N[Expand[2*μ*ℚ-ℙ*ℝ],par];
𝔻=N[Factor[finiteD/.changecompute],par];
WauxB9=N[Expand[2WauxB7^3+9*μ*(3WauxB8^2-8WauxB7*𝕍)-18WauxB6*WauxB7*WauxB8+108WauxB6^2*𝕍],par];
vd=N[evalnonconpoi[𝔻/.changecompute],par];
vr=N[evalnonconpoi[ℝ/.changecompute],par];
vs=N[evalnonconpoi[𝕊/.changecompute],par];
vt=N[evalnonconpoi[𝕋/.changecompute],par];
vp=N[evalnonconpoi[ℙ/.changecompute],par];
vu=N[evalnonconpoi[𝕌/.changecompute],par];
vv=N[evalnonconpoi[𝕍/.changecompute],par];
mu0=N[evalnonconpoi[Mu0/.changecompute],par];
mu1=N[evalnonconpoi[Mu1/.changecompute],par];
mu2=N[evalnonconpoi[Mu2/.changecompute],par];
mu3=N[evalnonconpoi[Mu3/.changecompute],par];
mu4=N[evalnonconpoi[Mu4/.changecompute],par];
μ0=N[μ,par];
μ1=N[Factor[Mu1/.changecompute],par];
μ2=N[Factor[Mu2/.changecompute],par];
μ3=N[Factor[Mu3/.changecompute],par];
μ4=N[Factor[Mu4/.changecompute],par];
WM=N[Factor[WWM/.changecompute],par];
vm=N[evalnonconpoi[WM/.changecompute],par];
η=N[Factor[WEta/.changecompute],par];
eta=N[evalnonconpoi[WEta/.changecompute],par];
κ=N[Factor[Kappa/.changecompute],par];
kappa=N[evalnonconpoi[Kappa/.changecompute],par];
κ1=N[Factor[Kappa1/.changecompute],par];
kappa1=N[evalnonconpoi[Kappa1/.changecompute],par];
κ2=N[Factor[Kappa2/.changecompute],par];
kappa2=N[evalnonconpoi[Kappa2/.changecompute],par];
WL=N[Factor[WWL/.changecompute],par];
WL1=N[Factor[WWL1/.changecompute],par];
WL2=N[Factor[WWL2/.changecompute],par];
WL3=N[Factor[WWL3/.changecompute],par];
WK1=N[Factor[WWK1/.changecompute],par];
WK2=N[Factor[WWK2/.changecompute],par];
WK3=N[Factor[(2WC2^2(2WT3+3/2WT4)+WC2(3WC0*WK-2WC1*WT7)+2WK1(3WK1-WC1*WD2))],par];
WG01=N[Expand[(5*WA02^2-22*WA17-16*WA18+21*WA19-2*WA20-3*WA21)/9],par];
WG02=N[Factor[-WA01*WA02+2*WA15],par];
WG03=N[Expand[WA02],par];
WG04=N[Expand[WA07],par];
WG05=N[Factor[(2*WA22-WA02*WA03)/3],par];
WG06=N[Factor[(-24*WA01*WA06-4*WA01*WA07-WA02*WA03+WA02*WA04-6*WA02*WA05+2*WA22-8*WA23)/2],par];
WG07=N[Factor[(-20*WA01*WA07-WA02*WA03+2WA22)/2],par];
WG08=N[Expand[(-18*WA01^2+5*WA08-WA10-3*WA11+9*WA12)/2],par];
WG09=N[Expand[(WA04+2*WA05)/4],par];
WG10=N[Expand[WA26],par];
WG11=N[Expand[(WA02^2-20*WA17-12*WA18+6*WA19+6*WA21)/3],par];
WG12=N[Expand[(-3*WA08-2*WA09-WA10-WA11-WA12)/2],par];
WG13=N[Factor[centerG13/.changecompute],par];
WG14=N[Expand[(WT4+2*WD1^2)/8],par];
WG15=N[Factor[centerG15/.changecompute],par];
WR1=N[Factor[WWR1/.changecompute],par];
WR2=N[Factor[WWR2/.changecompute],par];
WR3=N[Factor[WWR3/.changecompute],par];
WR4=N[Factor[WWR4/.changecompute],par];
WR5=N[Factor[WWR5/.changecompute],par];
WR6=N[Factor[WWR6/.changecompute],par];
WR7=N[Factor[WWR7/.changecompute],par];
WR8=N[Factor[WWR8/.changecompute],par];
WR9=N[Factor[WWR9/.changecompute],par];
WN=N[Factor[WWN/.changecompute],par];
WB1=N[Factor[WWB1/.changecompute],par];
WB2=N[Factor[WWB2/.changecompute],par];
WB3=N[Factor[WWB3/.changecompute],par];
WB4=N[Factor[WWB4/.changecompute],par];
WB5=N[Factor[WWB5/.changecompute],par];
WB6=N[Factor[WWB6/.changecompute],par];
YG1=N[Factor[YYG1/.changecompute],par];
YG2=N[Factor[YYG2/.changecompute],par];
YG3=N[Factor[YYG3/.changecompute],par];
YG4=N[Factor[YYG4/.changecompute],par];
YG5=N[Factor[YYG5/.changecompute],par];
YG6=N[Factor[YYG6/.changecompute],par];
YG7=N[Factor[YYG7/.changecompute],par];
θ=N[Factor[WTheta/.changecompute],par];
θ1=N[Factor[WTTeta1/.changecompute],par];
θ2=N[Factor[WTTeta2/.changecompute],par];
θ3=N[Factor[WTTeta3/.changecompute],par];
θ4=N[Factor[WTTeta4/.changecompute],par];
θ5=N[Factor[WTTeta5/.changecompute],par];
θ6=N[Factor[WTTeta6/.changecompute],par];
WILH1=N[Factor[WWILH1/.changecompute],par];
WILH2=N[Factor[WWILH2/.changecompute],par];
WILH3=N[Factor[WWILH3/.changecompute],par];
WILH4=N[Factor[WWILH4/.changecompute],par];
WILH5=N[Factor[WWILH5/.changecompute],par];
WILH6=N[Factor[WWILH6/.changecompute],par];
WILH7=N[Factor[WWILH7/.changecompute],par];
WILH8=N[Factor[WWILH8/.changecompute],par];
WILH9=N[Factor[WWILH9/.changecompute],par];
WILH10=N[Factor[WWILH10/.changecompute],par];
WILH11=N[Factor[WWILH11/.changecompute],par];
WILH12=N[Factor[WWILH12/.changecompute],par];
WR=N[Factor[WWR/.changecompute],par];
𝔊1=N[Factor[W𝔊1/.changecompute],par];
𝔊2=N[Factor[W𝔊2/.changecompute],par];
𝔊3=N[Factor[W𝔊3/.changecompute],par];
WU1=N[Factor[2WILH4-   WILH10],par];
WZ1=N[Factor[WM-2 WH],par];
WZ2=N[Factor[WWZ2/.changecompute],par];
WZ3=N[Factor[WWZ3/.changecompute],par];
WZ4=N[Factor[WWZ4/.changecompute],par];
WZ5=N[Factor[WWZ5/.changecompute],par];
WZ6=N[Factor[WWZ6/.changecompute],par];
WZ7=N[Factor[WWZ7/.changecompute],par];
WZ8=N[Factor[WWZ8/.changecompute],par];
WN1=N[Factor[WWN1/.changecompute],par];
WN2=N[Factor[WWN2/.changecompute],par];
WN3=N[Factor[WWN3/.changecompute],par];
WN4=N[Factor[WWN4/.changecompute],par];
WN5=N[Factor[WWN5/.changecompute],par];
WN6=N[Factor[WWN6/.changecompute],par];
WN7=N[Factor[WWN7/.changecompute],par];
WN8=N[Factor[WWN8/.changecompute],par];
𝒢1=N[Factor[W𝒢1/.changecompute], par];
𝒢2=N[Factor[W𝒢2/.changecompute], par];
𝒢3=N[Factor[W𝒢3/.changecompute], par];
𝔗4=N[Factor[W𝔗4/.changecompute], par];
𝔗3=N[Factor[W𝔗3/.changecompute], par];
𝔗2=N[Factor[W𝔗2/.changecompute], par];
𝔗1=N[Factor[W𝔗1/.changecompute], par];
𝔉1=N[Factor[WFFF1/.changecompute], par];
𝔉2=N[Factor[WFFF2/.changecompute], par];
𝔉3=N[Factor[WFFF3/.changecompute], par];
𝔉4=N[Factor[WFFF4/.changecompute], par];
𝔉=N[Factor[WFFF/.changecompute], par];
FFF1=N[Factor[WFFF1/.changecompute], par];
FFF2=N[Factor[WFFF2/.changecompute], par];
FFF3=N[Factor[WFFF3/.changecompute], par];
FFF4=N[Factor[WFFF4/.changecompute], par];
FFF=N[Factor[WFFF/.changecompute], par];
ℐ=N[Factor[Wℐ/.changecompute], par];
ℐ1=N[Factor[Wℐ1/.changecompute], par];
ℐ2=N[Factor[Wℐ/.changecompute], par];
𝔅=N[Factor[W𝔅/.changecompute], par];
𝔅1=N[Factor[W𝔅1/.changecompute], par];
𝔅2=N[Factor[W𝔅2/.changecompute], par];
𝔅3=N[Factor[W𝔅3/.changecompute], par];
𝔅4=N[Factor[W𝔅4/.changecompute], par];
𝔅5=N[Factor[W𝔅5/.changecompute], par];
𝔊=N[Factor[W𝔊/.changecompute], par];
ℌ=N[Factor[Wℌ/.changecompute], par];
𝔘1=N[Factor[W𝔘1/.changecompute], par];
𝔘2=N[Factor[W𝔘2/.changecompute], par];
𝔘3=N[Factor[W𝔘3/.changecompute], par];
𝔘4=N[Factor[W𝔘4/.changecompute], par];
𝔘5=N[Factor[W𝔘5/.changecompute], par];
𝔘6=N[Factor[W𝔘6/.changecompute], par];
𝔘7=N[Factor[W𝔘7/.changecompute], par];
𝔜1=N[Factor[W𝔜1/.changecompute], par];
𝔜2=N[Factor[W𝔜2/.changecompute], par];
vk=N[evalnonconpoi[WWK/.changecompute],par];
vk1=N[evalnonconpoi[WWK1/.changecompute],par];
vl=N[evalnonconpoi[WWL/.changecompute],par];
vl1=N[evalnonconpoi[VL1/.changecompute],par];
vl2=N[evalnonconpoi[VL2/.changecompute],par];
vl3=N[evalnonconpoi[VL3/.changecompute],par];
vc2=N[evalnonconpoi[WWC2/.changecompute],par];
vn=N[evalnonconpoi[VN/.changecompute],par];
vartes=N[a00^2+b00^2/.changecompute,par];}

compute computes algebraically the "short" invariants/comitants

v = Factor[vulpe /. change];

Hα = Factor[Walpha /. change];
Hβ = Factor[Wbeta /. change];
Hγ = Factor[Wgamma /. change];
Hδ = Factor[Wdelta /. change];
Hϵ = Factor[Wepsilon /. change];

compute:={v = Factor[vulpe /. change];
WC0=Factor[WWC0/.change];
WC1=Factor[WWC1/.change];
WC2=Factor[WWC2/.change];
WD1=Factor[WWD1/.change];
WD2=Factor[WWD2/.change];
σ=Factor[WSigma/.change];
WT1=Factor[WWT1/.change];
WT2=Factor[WWT2/.change];
WT3=Factor[WWT3/.change];
WT4=Factor[WWT4/.change];
WT5=Factor[WWT5/.change];
WT6=Factor[WWT6/.change];
WT7=Factor[WWT7/.change];
WT8=Factor[WWT8/.change];
WT9=Factor[WWT9/.change];
(OverTilde[A])=Factor[vulpeA/.change];
(OverTilde[B])=Factor[vulpeB/.change];
(OverTilde[D])=Factor[vulpeD/.change];
WF1=(OverTilde[D]);
(OverTilde[E])=Factor[vulpeE/.change];
(OverTilde[F])=Factor[vulpeF/.change];
(OverTilde[H])=Factor[vulpeH/.change];
VulpeK=Factor[vulpeK/.change];
(OverTilde[K])=Factor[4*vulpeK/.change];
(OverTilde[M])=WWM/.change;
WN=(OverTilde[H]);
WH=-4(OverTilde[H]);
WK=(OverTilde[K]);
WA01=Factor[WWA01/.change];
WA02=Factor[WWA02/.change];
WA03=Factor[WWA03/.change];
WA04=Factor[WWA04/.change];
WA05=Factor[WWA05/.change];
WA06=Factor[WWA06/.change];
WA07=Factor[WWA07/.change];
WA08=Factor[WWA08/.change];
WA09=Factor[WWA09/.change];
WA10=Factor[WWA10/.change];
WA11=Factor[WWA11/.change];
WA12=Factor[WWA12/.change];
WA13=Factor[WWA13/.change];
WA14=Factor[WWA14/.change];
WA15=Factor[WWA15/.change];
WA16=Factor[WWA16/.change];
WA17=Factor[WWA17/.change];
WA18=Factor[WWA18/.change];
WA19=Factor[WWA19/.change];
WA20=Factor[WWA20/.change];
WA21=Factor[WWA21/.change];
WA22=Factor[WWA22/.change];
WA23=Factor[WWA23/.change];
WA24=Factor[WWA24/.change];
WA25=Factor[WWA25/.change];
WA26=Factor[WWA26/.change];
WA27=Factor[WWA27/.change];
WA28=Factor[WWA28/.change];
WA29=Factor[WWA29/.change];
WA30=Factor[WWA30/.change];
WA31=Factor[WWA31/.change];
WA32=Factor[WWA32/.change];
WA33=Factor[WWA33/.change];
WA34=Factor[WWA34/.change];
WA35=Factor[WWA35/.change];
WA36=Factor[WWA36/.change];
WA37=Factor[WWA37/.change];
WA38=Factor[WWA38/.change];
WA39=Factor[WWA39/.change];
WA40=Factor[WWA40/.change];
WA41=Factor[WWA41/.change];
WA42=Factor[WWA42/.change];
WI01=Factor[WWI01/.change];
WI02=Factor[WWI02/.change];
WI03=Factor[WWI03/.change];
WI04=Factor[WWI04/.change];
WI05=Factor[WWI05/.change];
WI06=Factor[WWI06/.change];
WI07=Factor[WWI07/.change];
WI08=Factor[WWI08/.change];
WI09=Factor[WWI09/.change];
WI10=Factor[WWI10/.change];
WI11=Factor[WWI11/.change];
WI12=Factor[WWI12/.change];
WI13=Factor[WWI13/.change];
WI14=Factor[WWI14/.change];
WI15=Factor[WWI15/.change];
WI16=Factor[WWI16/.change];
WI17=Factor[WWI17/.change];
WI18=Factor[WWI18/.change];
WI19=Factor[WWI19/.change];
WI20=Factor[WWI20/.change];
WI21=Factor[WWI21/.change];
WI22=Factor[WWI22/.change];
WI23=Factor[WWI23/.change];
WI24=Factor[WWI24/.change];
WK01=Factor[WWK01/.change];
WK02=Factor[WWK02/.change];
WK03=Factor[WWK03/.change];
WK04=Factor[WWK04/.change];
WK05=Factor[WWK05/.change];
WK06=Factor[WWK06/.change];
WK07=Factor[WWK07/.change];
WK08=Factor[WWK08/.change];
WK09=Factor[WWK09/.change];
WK10=Factor[WWK10/.change];
WK11=Factor[WWK11/.change];
WK12=Factor[WWK12/.change];
WK13=Factor[WWK13/.change];
WK14=Factor[WWK14/.change];
WK15=Factor[WWK15/.change];
WK16=Factor[WWK16/.change];
WK17=Factor[WWK17/.change];
WK18=Factor[WWK18/.change];
WK19=Factor[WWK19/.change];
WK20=Factor[WWK20/.change];
WK21=Factor[WWK21/.change];
WK22=Factor[WWK22/.change];
WK23=Factor[WWK23/.change];
WK24=Factor[WWK24/.change];
WK25=Factor[WWK25/.change];
WK26=Factor[WWK26/.change];
WK27=Factor[WWK27/.change];
WK28=Factor[WWK28/.change];
WK29=Factor[WWK29/.change];
WK30=Factor[WWK30/.change];
WK31=Factor[WWK31/.change];
WK32=Factor[WWK32/.change];
WK33=Factor[WWK33/.change];
Hμ=Factor[hatMu/.change];
HH=Factor[hatH/.change];
HG=Factor[hatG/.change];
HF=Factor[hatF/.change];
HV=Factor[hatV/.change];
HR=Factor[hatR/.change];
HS=Factor[hatS/.change];
HT=Factor[hatT/.change];
HP=Factor[hatP/.change];
HU=Factor[hatU/.change];
HW1=Factor[hatW1/.change];
HW2=Factor[hatW2/.change];
HE1=Factor[hatE1/.change];
HE2=Factor[hatE2/.change];
HE3=Factor[hatE3/.change];
HD=Factor[hatD/.change];
HTc=Factor[hatTc/.change];
HUc=Factor[hatUc/.change];
WE1=WA25;
WE2=WA06;
WE3=2 WA01^2-WA08-WA12;
μ=Factor[finiteMu/.change];
WauxB1=Factor[TV1/.change];
WauxB2=Factor[TV2/.change];
WauxB3=Factor[TV3/.change];
WauxB4=Factor[TV4/.change];
WauxB5=Factor[TV5/.change];
WauxB6=Factor[TV6/.change];
WauxB7=Factor[TV7/.change];
TV8=Expand[(3 WauxB2*WauxB4-8 WauxB1*WauxB3+288 WauxB5*VulpeK)/144];
WauxB8=TV8;
ℍ=Factor[finiteH/.change];
𝔾=Factor[finiteG/.change];
𝔽=Expand[3*WauxB4*WauxB2-8*WauxB1*WauxB3+288*WauxB5*VulpeK]/144;
𝕍=Expand[4*WauxB3^2-3*WauxB2*WauxB5]/36;
ℙold=Expand[𝔾^2-6*𝔽*ℍ+12*μ*𝕍];
ℙ=Expand[WauxB7^2-6*WauxB8*WauxB6+12*μ*𝕍];
ℝold=Expand[4*(3*ℍ^2-2*μ*𝔾)];
ℝ=Expand[4*(3*WauxB6^2-2*μ*WauxB7)];
𝕊=Expand[ℝ^2-16*μ^2*ℙ];
𝕌=Expand[𝔽^2-4*𝔾*𝕍];
ℚ=Expand[2*𝔾^3+9*μ*(3*𝔽^2-8*𝔾*𝕍)-18*𝔽*𝔾*ℍ+108*ℍ^2*𝕍];
𝕋=Expand[2*μ*ℚ-ℙ*ℝ];
𝔻=Factor[finiteD/.change];
WauxB9=Expand[2WauxB7^3+9*μ*(3WauxB8^2-8WauxB7*𝕍)-18WauxB6*WauxB7*WauxB8+108WauxB6^2*𝕍];
vd=evalnonconpoi[𝔻/.change];
vr=evalnonconpoi[ℝ/.change];
vs=evalnonconpoi[𝕊/.change];
vt=evalnonconpoi[𝕋/.change];
vp=evalnonconpoi[ℙ/.change];
vu=evalnonconpoi[𝕌/.change];
vv=evalnonconpoi[𝕍/.change];
mu0=evalnonconpoi[Mu0/.change];
mu1=evalnonconpoi[Mu1/.change];
mu2=evalnonconpoi[Mu2/.change];
mu3=evalnonconpoi[Mu3/.change];
mu4=evalnonconpoi[Mu4/.change];
μ0=μ;
μ1=Factor[Mu1/.change];
μ2=Factor[Mu2/.change];
μ3=Factor[Mu3/.change];
μ4=Factor[Mu4/.change];
WM=Factor[WWM/.change];
vm=evalnonconpoi[WM/.change];
η=Factor[WEta/.change];
eta=evalnonconpoi[WEta/.change];
κ=Factor[Kappa/.change];
kappa=evalnonconpoi[Kappa/.change];
κ1=Factor[Kappa1/.change];
kappa1=evalnonconpoi[Kappa1/.change];
κ2=Factor[Kappa2/.change];
kappa2=evalnonconpoi[Kappa2/.change];
WL=Factor[WWL/.change];
WL1=Factor[WWL1/.change];
WL2=Factor[WWL2/.change];
WL3=Factor[WWL3/.change];
WK1=Factor[WWK1/.change];
WK2=Factor[WWK2/.change];
WK3=Factor[(2WC2^2(2WT3+3/2WT4)+WC2(3WC0*WK-2WC1*WT7)+2WK1(3WK1-WC1*WD2))];
WG01=Expand[(5*WA02^2-22*WA17-16*WA18+21*WA19-2*WA20-3*WA21)/9];
WG02=Factor[-WA01*WA02+2*WA15];
WG03=Expand[WA02];
WG04=Expand[WA07];
WG05=Factor[(2*WA22-WA02*WA03)/3];
WG06=Factor[(-24*WA01*WA06-4*WA01*WA07-WA02*WA03+WA02*WA04-6*WA02*WA05+2*WA22-8*WA23)/2];
WG07=Factor[(-20*WA01*WA07-WA02*WA03+2WA22)/2];
WG08=Expand[(-18*WA01^2+5*WA08-WA10-3*WA11+9*WA12)/2];
WG09=Expand[(WA04+2*WA05)/4];
WG10=Expand[WA26];
WG11=Expand[(WA02^2-20*WA17-12*WA18+6*WA19+6*WA21)/3];
WG12=Expand[(-3*WA08-2*WA09-WA10-WA11-WA12)/2];
WG14=Expand[(WT4+2*WD1^2)/8];
WG13=Factor[centerG13/.change];
WG15=Factor[centerG15/.change];
WR1=Factor[WWR1/.change];
WR2=Factor[WWR2/.change];
WR3=Factor[WWR3/.change];
WR4=Factor[WWR4/.change];
WR5=Factor[WWR5/.change];
WR6=Factor[WWR6/.change];
WR7=Factor[WWR7/.change];
WR8=Factor[WWR8/.change];
WR9=Factor[WWR9/.change];
WN=Factor[WWN/.change];
WB1=Factor[WWB1/.change];
WB2=Factor[WWB2/.change];
WB3=Factor[WWB3/.change];
WB4=Factor[WWB4/.change];
WB5=Factor[WWB5/.change];
WB6=Factor[WWB6/.change];
YG1=Factor[YYG1/.change];
YG2=Factor[YYG2/.change];
YG3=Factor[YYG3/.change];
YG4=Factor[YYG4/.change];
YG5=Factor[YYG5/.change];
YG6=Factor[YYG6/.change];
YG7=Factor[YYG7/.change];
θ=Factor[WTheta/.change];
θ1=Factor[WTTeta1/.change];
θ2=Factor[WTTeta2/.change];
θ3=Factor[WTTeta3/.change];
θ4=Factor[WTTeta4/.change];
θ5=Factor[WTTeta5/.change];
θ6=Factor[WTTeta6/.change];
WILH1=Factor[WWILH1/.change];
WILH2=Factor[WWILH2/.change];
WILH3=Factor[WWILH3/.change];
WILH4=Factor[WWILH4/.change];
WILH5=Factor[WWILH5/.change];
WILH6=Factor[WWILH6/.change];
WILH7=Factor[WWILH7/.change];
WILH8=Factor[WWILH8/.change];
WILH9=Factor[WWILH9/.change];
WILH10=Factor[WWILH10/.change];
WILH11=Factor[WWILH11/.change];
WILH12=Factor[WWILH12/.change];
WILH13=Factor[WWILH13/.change];
WILH14=Factor[WWILH14/.change];
WILH15=Factor[WWILH15/.change];
WR=Factor[WWR/.change];
𝔊1=Factor[W𝔊1/.change];
𝔊2=Factor[W𝔊2/.change];
𝔊3=Factor[W𝔊3/.change];
WU1=Factor[2WILH4-   WILH10];
WZ1=Factor[WM-2 WH];
WZ2=Factor[WWZ2/.change];
WZ3=Factor[WWZ3/.change];
WZ4=Factor[WWZ4/.change];
WZ5=Factor[WWZ5/.change];
WZ6=Factor[WWZ6/.change];
WZ7=Factor[WWZ7/.change];
WZ8=Factor[WWZ8/.change];
WN1=Factor[WWN1/.change];
WN2=Factor[WWN2/.change];
WN3=Factor[WWN3/.change];
WN4=Factor[WWN4/.change];
WN5=Factor[WWN5/.change];
WN6=Factor[WWN6/.change];
WN7=Factor[WWN7/.change];
WN8=Factor[WWN8/.change];
𝒢1=Factor[W𝒢1/.change];
𝒢2=Factor[W𝒢2/.change];
𝒢3=Factor[W𝒢3/.change];
𝔗1=Factor[W𝔗1/.change];
𝔗2=Factor[W𝔗2/.change];
𝔗3=Factor[W𝔗3/.change];
𝔗4=Factor[W𝔗4/.change];
𝔉1=Factor[WFFF1/.change];
𝔉2=Factor[WFFF2/.change];
𝔉3=Factor[WFFF3/.change];
𝔉4=Factor[WFFF4/.change];
𝔉=Factor[WFFF/.change];
FFF1=Factor[WFFF1/.change];
FFF2=Factor[WFFF2/.change];
FFF3=Factor[WFFF3/.change];
FFF4=Factor[WFFF4/.change];
FFF=Factor[WFFF/.change];
ℐ=Factor[Wℐ/.change];
ℐ1=Factor[Wℐ1/.change];
ℐ2=Factor[Wℐ/.change];
(OverTilde[U1])=Factor[WTU1/.change];
(OverTilde[U2])=Factor[WTU2/.change];
𝔅=Factor[W𝔅/.change];
𝔅1=Factor[W𝔅1/.change];
𝔅2=Factor[W𝔅2/.change];
𝔅3=Factor[W𝔅3/.change];
𝔅4=Factor[W𝔅4/.change];
𝔅5=Factor[W𝔅5/.change];
𝔊=Factor[W𝔊/.change];
ℌ=Factor[Wℌ/.change];
𝔘1=Factor[W𝔘1/.change];
𝔘2=Factor[W𝔘2/.change];
𝔘3=Factor[W𝔘3/.change];
𝔘4=Factor[W𝔘4/.change];
𝔘5=Factor[W𝔘5/.change];
𝔘6=Factor[W𝔘6/.change];
𝔘7=Factor[W𝔘7/.change];
𝔜1=Factor[W𝔜1/.change];
𝔜2=Factor[W𝔜2/.change];
vk=evalnonconpoi[WWK/.change];
vk1=evalnonconpoi[WWK1/.change];
vl=evalnonconpoi[WWL/.change];
vl1=evalnonconpoi[VL1/.change];
vl2=evalnonconpoi[VL2/.change];
vl3=evalnonconpoi[VL3/.change];
vc2=evalnonconpoi[WWC2/.change];
vn=evalnonconpoi[VN/.change];
vartes=a00^2+b00^2/.change;
(Subscript[(OverHat[γ]), 1])=Factor[Whatgamma1/.change];
(Subscript[(OverHat[γ]), 2])=Factor[Whatgamma2/.change];
(Subscript[(OverHat[γ]), 3])=Factor[Whatgamma3/.change];
(Subscript[(OverHat[γ]), 4])=Factor[Whatgamma4/.change];
(Subscript[(OverHat[γ]), 5])=Factor[Whatgamma5/.change];
(Subscript[(OverHat[γ]), 6])=Factor[Whatgamma6/.change];
(Subscript[(OverHat[γ]), 7])=Factor[Whatgamma7/.change];
(Subscript[(OverHat[γ]), 8])=Factor[Whatgamma8/.change];
(Subscript[(OverHat[γ]), 9])=Factor[Whatgamma9/.change];
(Subscript[(OverHat[β]), 1])=Factor[Whatbeta1/.change];
(Subscript[(OverHat[β]), 2])=Factor[Whatbeta2/.change];
(Subscript[(OverHat[β]), 3])=Factor[Whatbeta3/.change];
(Subscript[(OverHat[β]), 4])=Factor[Whatbeta4/.change];
(Subscript[(OverHat[β]), 5])=Factor[Whatbeta5/.change];
(Subscript[(OverHat[β]), 6])=Factor[Whatbeta6/.change];
(Subscript[(OverHat[β]), 7])=Factor[Whatbeta7/.change];
(Subscript[(OverHat[β]), 8])=Factor[Whatbeta8/.change];
(Subscript[(OverHat[ℛ]), 1])=Factor[Whatcalr1/.change];
(Subscript[(OverHat[ℛ]), 2])=Factor[Whatcalr2/.change];
(Subscript[(OverHat[ℛ]), 3])=Factor[Whatcalr3/.change];
(Subscript[(OverHat[ℛ]), 4])=Factor[Whatcalr4/.change];
(Subscript[(OverHat[ℛ]), 5])=Factor[Whatcalr5/.change];
(Subscript[(OverHat[ℛ]), 6])=Factor[Whatcalr6/.change];
(Subscript[(OverHat[ℛ]), 7])=Factor[Whatcalr7/.change];}

computeWs computes  "long" invariants/comitants. First determines the number of parameters of the system and warns the user if such number is too high which may produce a long computation. If it is greater that 5, the user must run COMPUTEWS1 and COMPUTEWS2

computeWs:={
coe=ExtractCoeff1[eq1[[2]]/.change,eq2[[2]]/.change,var1,var2];
cont=0;
Do[If[NumberQ[coe[[i,2]]]==False,cont=cont+1;coe=coe/.coe[[i,2]]->0],{i,1,12}];If[cont>0,Print["You are working with at most ",cont," different parameters, or quite complicated parameters"]];
If[cont<5&&cont>0,Print["Depending on the position of the parameters, in the worst case, this should last less than 1 minute"]];
If[cont==5,Print["Depending on the position of the parameters, in the worst case, this may last about 5 minutes"]];
If[cont>5,Print["Depending on the position of the parameters, this may last quite a lot of time"]];
If[cont>5,Print["If you are convinced to do it, we advise you to use COMPUTEWS1 for W1-W4 and COMPUTEWS2 for the rest ones"],WW1=Factor[WA01^2*WA04-2*WA01^2*WA05-4*WA01*WA16-6*WA04*WA08-4*WA04*WA11-4*WA05*WA08+28*WA06*WA06+4*WA06*WA07]/2;
WW2=Factor[144*WA01*WA02*WA06-23*WA02^2*WA04-72*WA03*WA19-72*WA03*WA21-50*WA04*WA17-32*WA04*WA18-75*WA04*WA19+14*WA04*WA20+93*WA04*WA21+72*WA05*WA17+288*WA05*WA19-288*WA06*WA15]/9;WW3=Factor[-171*WA01*WA01*WA02*WA02+1206*WA01*WA01*WA17+324*WA01*WA01*WA18+1485*WA01*WA01*WA19+231*WA01*WA02*WA14+705*WA01*WA02*WA15-162*WA01*WA36+2*WA02*WA02*WA10+6*WA02*WA02*WA11+302*WA02*WA34-1428*WA03*WA29+306*WA03*WA30-1071*WA06*WA25-1890*WA06*WA26+1974*WA07*WA25-648*WA07*WA26-1326*WA08*WA17+492*WA08*WA18+459*WA08*WA19+378*WA09*WA21-354*WA10*WA17+42*WA10*WA18+459*WA10*WA19+360*WA10*WA21-306*WA11*WA17+126*WA11*WA18+585*WA11*WA19-90*WA11*WA21-1440*WA12*WA17-18*WA12*WA18-531*WA12*WA19+18*WA12*WA20-366*WA14*WA14-852*WA14*WA15-960*WA15*WA15]/9;WW4=Factor[-3024*WA01*WA01*WA29+1512*WA01*WA01*WA30+3528*WA01*WA02*WA25+2808*WA01*WA02*WA26-87*WA02*WA02*WA02*WA02+244*WA02*WA02*WA17+208*WA02*WA02*WA18-6558*WA02*WA02*WA19+44*WA02*WA02*WA20+138*WA02*WA02*WA21-2112*WA03*WA37-5634*WA04*WA37+9468*WA05*WA37-14256*WA08*WA29-9540*WA08*WA30-2736*WA09*WA29+912*WA09*WA30-2268*WA10*WA30-7848*WA11*WA29-3276*WA11*WA30+1224*WA12*WA29-7812*WA12*WA30-14904*WA14*WA25-3240*WA14*WA26-648*WA15*WA26-632*WA17*WA17-744*WA17*WA18-4284*WA17*WA19-120*WA17*WA20-348*WA17*WA21-72*WA18*WA20-12042*WA19*WA19+2268*WA19*WA20+17208*WA19*WA21+36*WA20*WA21+2466*WA21*WA21]/81;WW5=Factor[3*WA01*WA01*WA02*WA02+18*WA01*WA02*WA14+2*WA02*WA02*WA08-24*WA08*WA19-24*WA12*WA19];WW6=Factor[4*WA01*WA01*WA29-2*WA01*WA01*WA30-WA01*WA02*WA26-2*WA14*WA26];WW7=Factor[48*WA01*WA01*WA37+2*WA02*WA02*WA29-WA02*WA02*WA30-48*WA08*WA37-48*WA12*WA37-40*WA17*WA29+20*WA17*WA30-24*WA18*WA29+12*WA18*WA30+12*WA19*WA29-6*WA19*WA30+12*WA21*WA29-6*WA21*WA30-24*WA25*WA26+12*WA26*WA26];WW8=Factor[-108*WD1^4*transvec[WC1,WT8,2]*transvec[transvec[WT6,WC1,1],WT6,1]+432*WD1^4*transvec[transvec[WT6,WC1,1],WD2,1]^2-36*WD1^3*WT4*transvec[WC1,WT8,2]*transvec[transvec[WT6,WC1,1],WD2,1]-144*WD1^3*WT3*transvec[WC1,WT8,2]*transvec[transvec[WT6,WC1,1],WD2,1]-54*WD1^2*WT4*transvec[WC1,WT8,2]*transvec[transvec[WT6,WC1,1],WT6,1]+168*WD1^2*WT4*transvec[transvec[WT6,WC1,1],WD2,1]^2+108*WD1^2*WT3^2*transvec[WC1,WT8,2]^2-432*WD1^2*WT3*transvec[WC1,WT8,2]*transvec[transvec[WT6,WC1,1],WT6,1]+768*WD1^2*WT3*transvec[transvec[WT6,WC1,1],WD2,1]^2+144*WD1^2*transvec[WC0,WT6,1]*transvec[WC1,WT8,2]*transvec[transvec[WT6,WC1,1],WD2,1]+864*WD1*WT3^2*transvec[WC1,WT8,2]*transvec[transvec[WT6,WC1,1],WD2,1]-216*WD1*WT3*transvec[WC0,WT6,1]*transvec[WC1,WT8,2]^2-2880*WD1*WT3*transvec[transvec[WT6,WC1,1],WD2,1]*transvec[transvec[WT6,WC1,1],WT6,1]+432*WD1*transvec[WC0,WT6,1]*transvec[WC1,WT8,2]*transvec[transvec[WT6,WC1,1],WT6,1]+1024*WD1*transvec[WC0,WT6,1]*transvec[transvec[WT6,WC1,1],WD2,1]^2-2368*WD1*transvec[WD2,WT1,1]*transvec[transvec[WT6,WC1,1],WD2,1]^2-27*WT4^3*transvec[WC1,WT8,2]^2/8-12*WT4^2*transvec[transvec[WT6,WC1,1],WD2,1]^2-512*WT4*WT3*transvec[transvec[WT6,WC1,1],WD2,1]^2-432*WT3^2*transvec[WC1,WT8,2]*transvec[transvec[WT6,WC1,1],WT6,1]+1728*WT3^2*transvec[transvec[WT6,WC1,1],WD2,1]^2-27*transvec[WC0,WT1,1]*transvec[WC1,WT8,2]^3+1152*transvec[WD2,WT1,1]*transvec[transvec[WT6,WC1,1],WD2,1]*transvec[transvec[WT6,WC1,1],WT6,1]+1024*transvec[transvec[WT6,WC1,1],WC0,1]*transvec[transvec[WT6,WC1,1],WD2,1]^2] ;WW9=Factor[-3WT4 (WT4+4WD1^2)-32WD1 transvec[WC0,WT6,1]-32transvec[transvec[WT6,WC1,1],WC0,1]];WV1=Factor[(WW1(WW2*WW3-WW1*WW4)-μ^2WW3^2)];
WV2=Factor[(WW1^3-4μ^2(WW1*WW2-2μ^2WW3))];
WV3=Factor[(WW2^2+WW1*WW3-4μ^2WW4)];
WV4=Factor[(WW1^2-4μ^2WW2)];
WH1=Factor[WA01^2(16WA03-WA04+22WA05)-4WA01 WA16-2WA04(8WA08-WA12)+4WA05*(WA08-WA10-WA11-4WA12)+4WA06*(2WA06+17WA07)-16WA07^2];
WH2=Factor[2WA05-3WA04];
WH3=Factor[-3WA01^2*(WA04+8WA05)-8WA02 WA13-8WA03*(WA11+2WA10)+WA04*(9WA10+WA11+2WA12)]+2WA05 (7WA10 -WA11+6WA12)+2WA06(8WA07 -3WA06);
WH4=Factor[2WA03(WA10+WA11)+2WA05 WA10-12WA06 WA07+WA04 (13WA08+3WA11+3WA12)];
WH5=Factor[-(12 WA06 WA07+9 WA04 WA08-30 WA03 WA10+12 WA04 WA10+18 WA05 WA10-6 WA03 WA11+3 WA04 WA11+3 WA04 WA12-4 WA02 WA13)];
WW10=Factor[WH1 WH2 WH3];
WW11wrong=2VulpeK transvec[WC2,(OverTilde[D]),2]+12(OverTilde[F]) (2(OverTilde[H]) + VulpeK)-WD2 transvec[(OverTilde[D]),VulpeK,1]; 
WW11=2(OverTilde[K]) transvec[WC2,(OverTilde[D]),2]+12(OverTilde[F]) (2WH + (OverTilde[K]))-WD2 transvec[(OverTilde[D]),(OverTilde[K]),1]; 
WF2=WauxB7;
WcenN=vulpeH;
WF3=Factor[3WD1^2 WD2+2WD1 (WT6+WT7)+3transvec[WC1,WT7,1]];
WF4=WauxB8;
WF5=Factor[WT5+2WC1 WD2-3WC2 WD1];
WILH16=Factor[14 WA02^4-WA02^2 (10 WA20+33 WA21)-2 WA02 (15 WA39+WA42)]];}

comp:=(compute;computeWs)

computeWsnum computes  numerically "long" invariants/comitants using precision given by "par". First determines the number of parameters of the system and warns the user if such number is too high which may produce a long computation. If it is greater that 5, the user must run COMPUTEWS1 and COMPUTEWS2

computeWsnum[par_]:={
coe=ExtractCoeff1[eq1[[2]]/.change,eq2[[2]]/.change,var1,var2];
cont=0;
Do[If[NumberQ[coe[[i,2]]]==False,cont=cont+1;coe=coe/.coe[[i,2]]->0],{i,1,12}];If[cont>0,Print["You are working with ",cont," different parameters"]];
If[cont<5&&cont>0,Print["Depending on the position of the parameters, in the worst case, this should last less than 1 minute"]];
If[cont==5,Print["Depending on the position of the parameters, in the worst case, this may last about 5 minutes"]];
If[cont>5,Print["Depending on the position of the parameters, this may last quite a lot of time"]];
If[cont>5,Print["If you are convinced to do it, we advise you to use COMPUTEWS1 for W1-W4 and COMPUTEWS2 for the rest ones"],WW1=N[Factor[WA01^2*WA04-2*WA01^2*WA05-4*WA01*WA16-6*WA04*WA08-4*WA04*WA11-4*WA05*WA08+28*WA06*WA06+4*WA06*WA07]/2,par];
WW2=N[Factor[144*WA01*WA02*WA06-23*WA02^2*WA04-72*WA03*WA19-72*WA03*WA21-50*WA04*WA17-32*WA04*WA18-75*WA04*WA19+14*WA04*WA20+93*WA04*WA21+72*WA05*WA17+288*WA05*WA19-288*WA06*WA15]/9,par];WW3=N[Factor[-171*WA01*WA01*WA02*WA02+1206*WA01*WA01*WA17+324*WA01*WA01*WA18+1485*WA01*WA01*WA19+231*WA01*WA02*WA14+705*WA01*WA02*WA15-162*WA01*WA36+2*WA02*WA02*WA10+6*WA02*WA02*WA11+302*WA02*WA34-1428*WA03*WA29+306*WA03*WA30-1071*WA06*WA25-1890*WA06*WA26+1974*WA07*WA25-648*WA07*WA26-1326*WA08*WA17+492*WA08*WA18+459*WA08*WA19+378*WA09*WA21-354*WA10*WA17+42*WA10*WA18+459*WA10*WA19+360*WA10*WA21-306*WA11*WA17+126*WA11*WA18+585*WA11*WA19-90*WA11*WA21-1440*WA12*WA17-18*WA12*WA18-531*WA12*WA19+18*WA12*WA20-366*WA14*WA14-852*WA14*WA15-960*WA15*WA15]/9,par];WW4=N[Factor[-3024*WA01*WA01*WA29+1512*WA01*WA01*WA30+3528*WA01*WA02*WA25+2808*WA01*WA02*WA26-87*WA02*WA02*WA02*WA02+244*WA02*WA02*WA17+208*WA02*WA02*WA18-6558*WA02*WA02*WA19+44*WA02*WA02*WA20+138*WA02*WA02*WA21-2112*WA03*WA37-5634*WA04*WA37+9468*WA05*WA37-14256*WA08*WA29-9540*WA08*WA30-2736*WA09*WA29+912*WA09*WA30-2268*WA10*WA30-7848*WA11*WA29-3276*WA11*WA30+1224*WA12*WA29-7812*WA12*WA30-14904*WA14*WA25-3240*WA14*WA26-648*WA15*WA26-632*WA17*WA17-744*WA17*WA18-4284*WA17*WA19-120*WA17*WA20-348*WA17*WA21-72*WA18*WA20-12042*WA19*WA19+2268*WA19*WA20+17208*WA19*WA21+36*WA20*WA21+2466*WA21*WA21]/81,par];WW5=N[Factor[3*WA01*WA01*WA02*WA02+18*WA01*WA02*WA14+2*WA02*WA02*WA08-24*WA08*WA19-24*WA12*WA19],par];WW6=N[Factor[4*WA01*WA01*WA29-2*WA01*WA01*WA30-WA01*WA02*WA26-2*WA14*WA26],par];WW7=N[Factor[48*WA01*WA01*WA37+2*WA02*WA02*WA29-WA02*WA02*WA30-48*WA08*WA37-48*WA12*WA37-40*WA17*WA29+20*WA17*WA30-24*WA18*WA29+12*WA18*WA30+12*WA19*WA29-6*WA19*WA30+12*WA21*WA29-6*WA21*WA30-24*WA25*WA26+12*WA26*WA26],par];WW8=N[Factor[-108*WD1^4*transvec[WC1,WT8,2]*transvec[transvec[WT6,WC1,1],WT6,1]+432*WD1^4*transvec[transvec[WT6,WC1,1],WD2,1]^2-36*WD1^3*WT4*transvec[WC1,WT8,2]*transvec[transvec[WT6,WC1,1],WD2,1]-144*WD1^3*WT3*transvec[WC1,WT8,2]*transvec[transvec[WT6,WC1,1],WD2,1]-54*WD1^2*WT4*transvec[WC1,WT8,2]*transvec[transvec[WT6,WC1,1],WT6,1]+168*WD1^2*WT4*transvec[transvec[WT6,WC1,1],WD2,1]^2+108*WD1^2*WT3^2*transvec[WC1,WT8,2]^2-432*WD1^2*WT3*transvec[WC1,WT8,2]*transvec[transvec[WT6,WC1,1],WT6,1]+768*WD1^2*WT3*transvec[transvec[WT6,WC1,1],WD2,1]^2+144*WD1^2*transvec[WC0,WT6,1]*transvec[WC1,WT8,2]*transvec[transvec[WT6,WC1,1],WD2,1]+864*WD1*WT3^2*transvec[WC1,WT8,2]*transvec[transvec[WT6,WC1,1],WD2,1]-216*WD1*WT3*transvec[WC0,WT6,1]*transvec[WC1,WT8,2]^2-2880*WD1*WT3*transvec[transvec[WT6,WC1,1],WD2,1]*transvec[transvec[WT6,WC1,1],WT6,1]+432*WD1*transvec[WC0,WT6,1]*transvec[WC1,WT8,2]*transvec[transvec[WT6,WC1,1],WT6,1]+1024*WD1*transvec[WC0,WT6,1]*transvec[transvec[WT6,WC1,1],WD2,1]^2-2368*WD1*transvec[WD2,WT1,1]*transvec[transvec[WT6,WC1,1],WD2,1]^2-27*WT4^3*transvec[WC1,WT8,2]^2/8-12*WT4^2*transvec[transvec[WT6,WC1,1],WD2,1]^2-512*WT4*WT3*transvec[transvec[WT6,WC1,1],WD2,1]^2-432*WT3^2*transvec[WC1,WT8,2]*transvec[transvec[WT6,WC1,1],WT6,1]+1728*WT3^2*transvec[transvec[WT6,WC1,1],WD2,1]^2-27*transvec[WC0,WT1,1]*transvec[WC1,WT8,2]^3+1152*transvec[WD2,WT1,1]*transvec[transvec[WT6,WC1,1],WD2,1]*transvec[transvec[WT6,WC1,1],WT6,1]+1024*transvec[transvec[WT6,WC1,1],WC0,1]*transvec[transvec[WT6,WC1,1],WD2,1]^2] ,par];WW9=N[Factor[-3WT4 (WT4+4WD1^2)-32WD1 transvec[WC0,WT6,1]-32transvec[transvec[WT6,WC1,1],WC0,1]],par];WV1=N[Factor[(WW1(WW2*WW3-WW1*WW4)-μ^2WW3^2)],par];
WV2=N[Factor[(WW1^3-4μ^2(WW1*WW2-2μ^2WW3))],par];
WV3=N[Factor[(WW2^2+WW1*WW3-4μ^2WW4)],par];
WV4=N[Factor[(WW1^2-4μ^2WW2)],par];
WH1=N[Factor[WA01^2(16WA03-WA04+22WA05)-4WA01 WA16-2WA04(8WA08-WA12)+4WA05*(WA08-WA10-WA11-4WA12)+4WA06*(2WA06+17WA07)-16WA07^2,par]];
WH2=N[Factor[2WA05-3WA04],par];
WH3=N[Factor[-3WA01^2*(WA04+8WA05)-8WA02 WA13-8WA03*(WA11+2WA10)+WA04*(9WA10+WA11+2WA12)]+2WA05 (7WA10 -WA11+6WA12)+2WA06(8WA07 -3WA06),par];
WH4=N[Factor[2WA03(WA10+WA11)+2WA05 WA10-12WA06 WA07+WA04 (13WA08+3WA11+3WA12)],par];
WH5=N[Factor[-(12 WA06 WA07+9 WA04 WA08-30 WA03 WA10+12 WA04 WA10+18 WA05 WA10-6 WA03 WA11+3 WA04 WA11+3 WA04 WA12-4 WA02 WA13)],par];
WW10=N[Expand[WH1 WH2 WH3],par];
WF1=N[(OverTilde[D]),par];
WF2=N[WauxB7,par];
WcenN=N[vulpeH,par];
WF3=N[Factor[3WD1^2 WD2+2WD1 (WT6+WT7)+3transvec[WC1,WT7,1]],par];
WF4=N[WauxB8,par];
WF5=N[Factor[WT5+2WC1 WD2-3WC2 WD1,par]];]}

computeWS1 computes  algebraically invariants/comitants WW1 to WW4. To be used when there are too many parameters to use computeWs.

COMPUTEWS1:={
WW1=Factor[WA01^2*WA04-2*WA01^2*WA05-4*WA01*WA16-6*WA04*WA08-4*WA04*WA11-4*WA05*WA08+28*WA06*WA06+4*WA06*WA07]/2;
WW2=Factor[144*WA01*WA02*WA06-23*WA02^2*WA04-72*WA03*WA19-72*WA03*WA21-50*WA04*WA17-32*WA04*WA18-75*WA04*WA19+14*WA04*WA20+93*WA04*WA21+72*WA05*WA17+288*WA05*WA19-288*WA06*WA15]/9;WW3=Factor[-171*WA01*WA01*WA02*WA02+1206*WA01*WA01*WA17+324*WA01*WA01*WA18+1485*WA01*WA01*WA19+231*WA01*WA02*WA14+705*WA01*WA02*WA15-162*WA01*WA36+2*WA02*WA02*WA10+6*WA02*WA02*WA11+302*WA02*WA34-1428*WA03*WA29+306*WA03*WA30-1071*WA06*WA25-1890*WA06*WA26+1974*WA07*WA25-648*WA07*WA26-1326*WA08*WA17+492*WA08*WA18+459*WA08*WA19+378*WA09*WA21-354*WA10*WA17+42*WA10*WA18+459*WA10*WA19+360*WA10*WA21-306*WA11*WA17+126*WA11*WA18+585*WA11*WA19-90*WA11*WA21-1440*WA12*WA17-18*WA12*WA18-531*WA12*WA19+18*WA12*WA20-366*WA14*WA14-852*WA14*WA15-960*WA15*WA15]/9;WW4=Factor[-3024*WA01*WA01*WA29+1512*WA01*WA01*WA30+3528*WA01*WA02*WA25+2808*WA01*WA02*WA26-87*WA02*WA02*WA02*WA02+244*WA02*WA02*WA17+208*WA02*WA02*WA18-6558*WA02*WA02*WA19+44*WA02*WA02*WA20+138*WA02*WA02*WA21-2112*WA03*WA37-5634*WA04*WA37+9468*WA05*WA37-14256*WA08*WA29-9540*WA08*WA30-2736*WA09*WA29+912*WA09*WA30-2268*WA10*WA30-7848*WA11*WA29-3276*WA11*WA30+1224*WA12*WA29-7812*WA12*WA30-14904*WA14*WA25-3240*WA14*WA26-648*WA15*WA26-632*WA17*WA17-744*WA17*WA18-4284*WA17*WA19-120*WA17*WA20-348*WA17*WA21-72*WA18*WA20-12042*WA19*WA19+2268*WA19*WA20+17208*WA19*WA21+36*WA20*WA21+2466*WA21*WA21]/81;}

computeWS2 computes  algebraically invariants/comitants WW5 to WW9 and others. To be used when there are too many parameters to use computeWs. We suggest not to use it since the collapse is almost sure

COMPUTEWS2:={
WW5=Factor[3*WA01*WA01*WA02*WA02+18*WA01*WA02*WA14+2*WA02*WA02*WA08-24*WA08*WA19-24*WA12*WA19];WW6=Factor[4*WA01*WA01*WA29-2*WA01*WA01*WA30-WA01*WA02*WA26-2*WA14*WA26];WW7=Factor[48*WA01*WA01*WA37+2*WA02*WA02*WA29-WA02*WA02*WA30-48*WA08*WA37-48*WA12*WA37-40*WA17*WA29+20*WA17*WA30-24*WA18*WA29+12*WA18*WA30+12*WA19*WA29-6*WA19*WA30+12*WA21*WA29-6*WA21*WA30-24*WA25*WA26+12*WA26*WA26];WW8=Factor[-108*WD1^4*transvec[WC1,WT8,2]*transvec[transvec[WT6,WC1,1],WT6,1]+432*WD1^4*transvec[transvec[WT6,WC1,1],WD2,1]^2-36*WD1^3*WT4*transvec[WC1,WT8,2]*transvec[transvec[WT6,WC1,1],WD2,1]-144*WD1^3*WT3*transvec[WC1,WT8,2]*transvec[transvec[WT6,WC1,1],WD2,1]-54*WD1^2*WT4*transvec[WC1,WT8,2]*transvec[transvec[WT6,WC1,1],WT6,1]+168*WD1^2*WT4*transvec[transvec[WT6,WC1,1],WD2,1]^2+108*WD1^2*WT3^2*transvec[WC1,WT8,2]^2-432*WD1^2*WT3*transvec[WC1,WT8,2]*transvec[transvec[WT6,WC1,1],WT6,1]+768*WD1^2*WT3*transvec[transvec[WT6,WC1,1],WD2,1]^2+144*WD1^2*transvec[WC0,WT6,1]*transvec[WC1,WT8,2]*transvec[transvec[WT6,WC1,1],WD2,1]+864*WD1*WT3^2*transvec[WC1,WT8,2]*transvec[transvec[WT6,WC1,1],WD2,1]-216*WD1*WT3*transvec[WC0,WT6,1]*transvec[WC1,WT8,2]^2-2880*WD1*WT3*transvec[transvec[WT6,WC1,1],WD2,1]*transvec[transvec[WT6,WC1,1],WT6,1]+432*WD1*transvec[WC0,WT6,1]*transvec[WC1,WT8,2]*transvec[transvec[WT6,WC1,1],WT6,1]+1024*WD1*transvec[WC0,WT6,1]*transvec[transvec[WT6,WC1,1],WD2,1]^2-2368*WD1*transvec[WD2,WT1,1]*transvec[transvec[WT6,WC1,1],WD2,1]^2-27*WT4^3*transvec[WC1,WT8,2]^2/8-12*WT4^2*transvec[transvec[WT6,WC1,1],WD2,1]^2-512*WT4*WT3*transvec[transvec[WT6,WC1,1],WD2,1]^2-432*WT3^2*transvec[WC1,WT8,2]*transvec[transvec[WT6,WC1,1],WT6,1]+1728*WT3^2*transvec[transvec[WT6,WC1,1],WD2,1]^2-27*transvec[WC0,WT1,1]*transvec[WC1,WT8,2]^3+1152*transvec[WD2,WT1,1]*transvec[transvec[WT6,WC1,1],WD2,1]*transvec[transvec[WT6,WC1,1],WT6,1]+1024*transvec[transvec[WT6,WC1,1],WC0,1]*transvec[transvec[WT6,WC1,1],WD2,1]^2] ;WW9=Factor[-3WT4 (WT4+4WD1^2)-32WD1 transvec[WC0,WT6,1]-32transvec[transvec[WT6,WC1,1],WC0,1]];
WV1=Factor[(WW1(WW2*WW3-WW1*WW4)-μ^2WW3^2)];
WV2=Factor[(WW1^3-4μ^2(WW1*WW2-2μ^2WW3))];
WV3=Factor[(WW2^2+WW1*WW3-4μ^2WW4)];
WV4=Factor[(WW1^2-4μ^2WW2)];
WH1=Factor[WA01^2(16WA03-WA04+22WA05)-4WA01 WA16-2WA04(8WA08-WA12)+4WA05*(WA08-WA10-WA11-4WA12)+4WA06*(2WA06+17WA07)-16WA07^2];
WH2=Factor[2WA05-3WA04];
WH3=Factor[-3WA01^2*(WA04+8WA05)-8WA02 WA13-8WA03*(WA11+2WA10)+WA04*(9WA10+WA11+2WA12)]+2WA05 (7WA10 -WA11+6WA12)+2WA06(8WA07 -3WA06);
WW10= WH1 WH2 WH3;
WH4=Factor[2WA03(WA10+WA11)+2WA05 WA10-12WA06 WA07+WA04 (13WA08+3WA11+3WA12)];
WH5=Factor[-(12 WA06 WA07+9 WA04 WA08-30 WA03 WA10+12 WA04 WA10+18 WA05 WA10-6 WA03 WA11+3 WA04 WA11+3 WA04 WA12-4 WA02 WA13)];WW10=Factor[WH1 WH2 WH3];
WF2=WauxB7;
WcenN=vulpeH;
WF3=Factor[3WD1^2 WD2+2WD1 (WT6+WT7)+3transvec[WC1,WT7,1]];
WF4=WauxB8;
WF5=Factor[WT5+2WC1 WD2-3WC2 WD1];}

The Assuming  functions are the set of tools that check if a certain expression "x_" is compatible with the assumtion of other expressions being zero "c_", positive "a_" or not zero "b_". They are needed for the next group of functions. "assume" works to detect incompatibilities.

Assuming1[tot_,x_]:=Assuming[tot,If[NumberQ[If[Refine[(x)>0],1,0]],If[Refine[(x)>0],TEST=1,TEST=-1]]]

Assuming2[tot_,x_]:=Assuming[tot,If[NumberQ[If[Refine[(Discrim[x/.var1->1,var2])<0],1,0]],If[Refine[(Discrim[x/.var1->1,var2])<0],Assuming1[tot,x/.{var1->-0.2,var2->1.9}]]]]

Assuming4[tot_,x_]:={DIS4=Factor[Discrim4PQDRSTU[(x)/.var1->1,var2]];Assuming[tot,If[NumberQ[If[Refine[(DIS4[[3]]<0 && DIS4[[5]]<0)|| (DIS4[[3]]<0 && ¬DIS4[[4]]>0)||(DIS4[[3]]<0 && DIS4[[6]]<0 && DIS4[[1]]DIS4[[4]]<0)],1,0]],If[Refine[(DIS4[[3]]<0 && DIS4[[5]]<0)|| (DIS4[[3]]<0 && ¬DIS4[[4]]>0)||(DIS4[[3]]<0 && DIS4[[6]]<0 && DIS4[[1]]DIS4[[4]]<0)],Assuming1[tot,x/.{var1->-0.2,var2->1.9}]]]]}

DpoC[x_,y_,c_,a_,b_]:=(TEST=0;Do[If[NumberQ[Simplify[x/c[[i]]]],TEST=-1],{i,1,Length[c]}]Do[If[NumberQ[Simplify[x/a[[i]]]],If[Simplify[x/a[[i]]]>0,TEST=1,TEST=-1]],{i,1,Length[a]}];If[TEST==0,Assuming1[tot,x]];If[TEST==0 && Exponent[x,var2]==2,Assuming2[tot,x]];If[TEST==0 && Exponent[x,var2]==4,Assuming4[tot,x]];If[TEST==0,Print[y," = ",Factor[x],">0??"]];If[TEST==1,Return[True]];If[TEST==-1,Return[False]])

assume[c_,a_,b_]:=Assuming[Union[{var1≠0},{var2≠0},Table[c[[i]]==0,{i,1,Length[c]}],Table[a[[i]]>0,{i,1,Length[a]}],Table[b[[i]]^2>0,{i,1,Length[b]}],Table[b[[i]]≠0,{i,1,Length[b]}]],Refine[x>0]]

Dpo2[x_,y_,c_,a_,b_]:=Assuming[Union[{var1≠0},{var2≠0},Table[c[[i]]==0,{i,1,Length[c]}],Table[a[[i]]>0,{i,1,Length[a]}],Table[b[[i]]^2>0,{i,1,Length[b]}],Table[b[[i]]≠0,{i,1,Length[b]}]],If[NumberQ[If[Refine[(x)>0],1,0]],If[Refine[(x)>0],True,False],Print[y," = ",Factor[x],">0??"]]]

DpoG[x_,y_,c_,a_,b_]:=(TEST=0;Do[If[NumberQ[Simplify[x/c[[i]]]],TEST=-1],{i,1,Length[c]}]Do[If[NumberQ[Simplify[x/a[[i]]]],If[Simplify[x/a[[i]]]>0,TEST=1,TEST=-1]],{i,1,Length[a]}];If[TEST==0,Assuming[Union[{var1≠0},{var2≠0},Table[c[[i]]==0,{i,1,Length[c]}],Table[a[[i]]>0,{i,1,Length[a]}],Table[b[[i]]^2>0,{i,1,Length[b]}],Table[b[[i]]≠0,{i,1,Length[b]}]],If[NumberQ[If[Refine[(x)>0],1,0]],If[Refine[(x)>0],True,False],Print[y," = ",Factor[x],">0??"]]],If[TEST==1,True,False]])

Dpoold[x_,y_,c_,a_,b_]:=If[NumberQ[x/.{var1->Random[],var2->Random[]}],DpoC[x,y,c,a,b],DpoG[x,y,c,a,b]]

Dpo[x_,y_,c_,a_,b_]:={test=False;Do[If[x-a[[i]]==0,test=True],{i,1,Length[a]}];If[test==True,Return[True],Do[If[x-c[[i]]==0,test=True],{i,1,Length[c]}];If[test==True,Return[False],If[NumberQ[x/.{var1->Random[],var2->Random[]}],DpoC[x,y,c,a,b],DpoG[x,y,c,a,b]]]]}[[1]]

Dpo3[x_,y_,c_,a_,b_]:=Assuming[Union[{var1≠0},{var2≠0},Table[(c[[i]]/.{var1->π,var2->-E})==0,{i,1,Length[c]}],Table[(a[[i]]/.{var1->π,var2->-E})>0,{i,1,Length[a]}],Table[(b[[i]]^2/.{var1->π,var2->-E})>0,{i,1,Length[b]}],Table[(b[[i]]/.{var1->π,var2->-E})≠0,{i,1,Length[b]}]],If[NumberQ[If[Refine[(x/.{var1->π,var2->-E})>0],1,0]],If[Refine[(x/.{var1->π,var2->-E})>0],True,False],Print[y," = ",Factor[x],">0??"]]]

Dzeold[x_,y_,c_,a_,b_]:=Assuming[Union[{var1≠0},{var2≠0},Table[c[[i]]==0,{i,1,Length[c]}],Table[a[[i]]>0,{i,1,Length[a]}],Table[b[[i]]^2>0,{i,1,Length[b]}],Table[b[[i]]≠0,{i,1,Length[b]}]],If[NumberQ[If[Refine[FullSimplify[x]≠0],1,0]],If[Refine[FullSimplify[x]≠0],False,True],Print[y," = ",Factor[x],"=0??"]]]

Dze[x_,y_,c_,a_,b_]:={test=True;Do[If[Factor[x-b[[i]]]==0,test=False],{i,1,Length[b]}];If[test==False,Return[False],Do[If[x-a[[i]]==0,test=False],{i,1,Length[a]}];If[test==False,Return[False],Assuming[Union[{var1≠0},{var2≠0},Table[c[[i]]==0,{i,1,Length[c]}],Table[a[[i]]>0,{i,1,Length[a]}],Table[b[[i]]^2>0,{i,1,Length[b]}],Table[b[[i]]≠0,{i,1,Length[b]}]],If[NumberQ[If[Refine[FullSimplify[x]≠0],1,0]],If[Refine[FullSimplify[x]≠0],False,True],Print[y," = ",Factor[x],"=0??"]]]]]}[[1]]

Dnze[x_,y_,c_,a_,b_]:={test=False;Do[If[Factor[x-b[[i]]]==0,test=True],{i,1,Length[b]}];If[test==True,Return[True],Do[If[x-a[[i]]==0,test=True],{i,1,Length[a]}];If[test==True,Return[True],Assuming[Union[{var1≠0},{var2≠0},Table[c[[i]]==0,{i,1,Length[c]}],Table[a[[i]]>0,{i,1,Length[a]}],Table[b[[i]]^2>0,{i,1,Length[b]}],Table[b[[i]]≠0,{i,1,Length[b]}]],If[NumberQ[If[Refine[FullSimplify[x]≠0],1,0]],If[Refine[FullSimplify[x]≠0],True,False],Print[y," = ",Factor[x],"=0??"]]]]]}[[1]]

Dnzeold[x_,y_,c_,a_,b_]:=Assuming[Union[{var1≠0},{var2≠0},Table[c[[i]]==0,{i,1,Length[c]}],Table[a[[i]]>0,{i,1,Length[a]}],Table[b[[i]]^2>0,{i,1,Length[b]}],Table[b[[i]]≠0,{i,1,Length[b]}]],If[NumberQ[If[Refine[FullSimplify[x]≠0],1,0]],If[Refine[FullSimplify[x]≠0],True,False],Print[y," = ",Factor[x],"≠0??"]]]

ALL THE NEXT FUNCTIONS WORK WITH A MAXIMUM OF 4 PARAMETERS. WITH MORE, SOME MALFUNCTIONS CAN APPEAR

Print2[z_]:=Print[z/.{var1->x,var2->y}];

weak determines if a parametrized system has a weak singularities and of which type. The set "c" are the equalities know among the parameters, "a" corresponds to expressions known to be positive and "b" to expressions known to be different from zero.

printBoldInv:=Print2[Column[{{"𝔻=",Factor[𝔻]},{"ℝ=",Factor[ℝ]},{"𝕊=",Factor[𝕊]},{"𝕋=",Factor[𝕋]},{"𝕌=",Factor[𝕌]},{"ℙ=",Factor[ℙ]}}]]

printboldinv:=Print2[Column[{{"𝔻=",Factor[𝔻]},{"ℝ=",Factor[ℝ]},{"𝕊=",Factor[𝕊]},{"𝕋=",Factor[𝕋]},{"𝕌=",Factor[𝕌]},{"ℙ=",Factor[ℙ]}}]]

printweakinv:=Print2[Column[{{"𝔗4=",Factor[𝔗4]},{"𝔗3=",Factor[𝔗3]},{"𝔗2=",Factor[𝔗2]},{"𝔗1=",Factor[𝔗1]},{"σ=",Factor[σ]},{"𝔉=",Factor[𝔉]},{"𝔉1=",Factor[𝔉1]},{"𝔉2=",Factor[𝔉2]},{"𝔉3=",Factor[𝔉3]},{"𝔉4=",Factor[𝔉4]},{"ℌ=",Factor[ℌ]},{"𝔅=",Factor[𝔅]},{"𝔅1=",Factor[𝔅1]},{"𝔅2=",Factor[𝔅2]},{"𝔅3=",Factor[𝔅3]},{"𝔅4=",Factor[𝔅4]},{"μ0=",Factor[μ0]},{"μ2=",Factor[μ2]},{"μ3=",Factor[μ3]},{"WK=",Factor[WK]},{"𝔊=",Factor[𝔊]}}]];

printWeakInv:=Print2[Column[{{"𝔗4=",Factor[𝔗4]},{"𝔗3=",Factor[𝔗3]},{"𝔗2=",Factor[𝔗2]},{"𝔗1=",Factor[𝔗1]},{"σ=",Factor[σ]},{"𝔉=",Factor[𝔉]},{"𝔉1=",Factor[𝔉1]},{"𝔉2=",Factor[𝔉2]},{"𝔉3=",Factor[𝔉3]},{"𝔉4=",Factor[𝔉4]},{"ℌ=",Factor[ℌ]},{"𝔅=",Factor[𝔅]},{"𝔅1=",Factor[𝔅1]},{"𝔅2=",Factor[𝔅2]},{"𝔅3=",Factor[𝔅3]},{"𝔅4=",Factor[𝔅4]},{"μ0=",Factor[μ0]},{"μ2=",Factor[μ2]},{"μ3=",Factor[μ3]},{"WK=",Factor[WK]},{"𝔊=",Factor[𝔊]}}]];

weak[c_,a_,b_]:={tot=Union[Table[c[[i]]==0,{i,1,Length[c]}],Table[a[[i]]>0,{i,1,Length[a]}],Table[b[[i]]^2>0,{i,1,Length[b]}],Table[b[[i]]≠0,{i,1,Length[b]}],{var1≠0},{var2≠0}];Which[

Dnze[𝔗4,"𝔗4",c,a,b],Print2["There are no weak singularities"," case (a)"],

Dze[𝔗4,"𝔗4",c,a,b]&&Dnze[𝔗3,"𝔗3",c,a,b]&&Dpo[𝔗3 𝔉,"𝔗3 𝔉",c,a,b]&&Dnze[𝔉1,"𝔉1",c,a,b],Print2["(s^((1)))"," case (b1)"],

Dze[𝔗4,"𝔗4",c,a,b]&&Dnze[𝔗3,"𝔗3",c,a,b]&&Dpo[𝔗3 𝔉,"𝔗3 𝔉",c,a,b]&&Dze[𝔉1,"𝔉1",c,a,b]&&Dnze[𝔉2,"𝔉2",c,a,b],Print2["(s^((2)))"," case (b2)"],

Dze[𝔗4,"𝔗4",c,a,b]&&Dnze[𝔗3,"𝔗3",c,a,b]&&Dpo[𝔗3 𝔉,"𝔗3 𝔉",c,a,b]&&Dze[𝔉1,"𝔉1",c,a,b]&&Dze[𝔉2,"𝔉2",c,a,b]&&Dnze[𝔉3 𝔉4,"𝔉3 𝔉4",c,a,b],Print2["(s^((3)))"," case (b3)"],

Dze[𝔗4,"𝔗4",c,a,b]&&Dnze[𝔗3,"𝔗3",c,a,b]&&Dpo[𝔗3 𝔉,"𝔗3 𝔉",c,a,b]&&Dze[𝔉1,"𝔉1",c,a,b]&&Dze[𝔉2,"𝔉2",c,a,b]&&Dze[𝔉3 𝔉4,"𝔉3 𝔉4",c,a,b],Print2["$"," case (b4)"],

Dze[𝔗4,"𝔗4",c,a,b]&&Dnze[𝔗3,"𝔗3",c,a,b]&&Dpo[-𝔗3 𝔉,"-𝔗3 𝔉",c,a,b]&&Dnze[𝔉1,"𝔉1",c,a,b],Print2["(f^((1)))"," case (b1)"],

Dze[𝔗4,"𝔗4",c,a,b]&&Dnze[𝔗3,"𝔗3",c,a,b]&&Dpo[-𝔗3 𝔉,"-𝔗3 𝔉",c,a,b]&&Dze[𝔉1,"𝔉1",c,a,b]&&Dnze[𝔉2,"𝔉2",c,a,b],Print2["(f^((2)))"," case (b2)"],

Dze[𝔗4,"𝔗4",c,a,b]&&Dnze[𝔗3,"𝔗3",c,a,b]&&Dpo[-𝔗3 𝔉,"-𝔗3 𝔉",c,a,b]&&Dze[𝔉1,"𝔉1",c,a,b]&&Dze[𝔉2,"𝔉2",c,a,b]&&Dnze[𝔉3 𝔉4,"𝔉3 𝔉4",c,a,b],Print2["(f^((3)))"," case (b3)"],

Dze[𝔗4,"𝔗4",c,a,b]&&Dnze[𝔗3,"𝔗3",c,a,b]&&Dpo[-𝔗3 𝔉,"-𝔗3 𝔉",c,a,b]&&Dze[𝔉1,"𝔉1",c,a,b]&&Dze[𝔉2,"𝔉2",c,a,b]&&Dze[𝔉3 𝔉4,"𝔉3 𝔉4",c,a,b],Print2["c"," case (b4)"],

Dze[𝔗4,"𝔗4",c,a,b]&&Dze[𝔗3,"𝔗3",c,a,b]&&Dpo[-𝔗2,"-𝔗2",c,a,b]&&Dze[ 𝔉,"𝔉",c,a,b]&&Dnze[𝔉1,"𝔉1",c,a,b]&&Dpo[ℌ,"ℌ",c,a,b]&&¬Dpo[𝔅,"𝔅",c,a,b],Print2["(s^((1))), (s^((1)))"," case (c1)"],

Dze[𝔗4,"𝔗4",c,a,b]&&Dze[𝔗3,"𝔗3",c,a,b]&&Dpo[𝔗2,"𝔗2",c,a,b]&&Dze[ 𝔉,"𝔉",c,a,b]&&Dnze[𝔉1,"𝔉1",c,a,b]&&Dpo[-𝔅,"-𝔅",c,a,b],Print2["(s^((1))), (f^((1)))"," case (c2)"],

Dze[𝔗4,"𝔗4",c,a,b]&&Dze[𝔗3,"𝔗3",c,a,b]&&Dpo[-𝔗2,"-𝔗2",c,a,b]&&Dze[ 𝔉,"𝔉",c,a,b]&&Dnze[𝔉1,"𝔉1",c,a,b]&&Dpo[-ℌ,"-ℌ",c,a,b]&&Dpo[-𝔅,"-𝔅",c,a,b],Print2["(f^((1))), (f^((1)))"," case (c3)"],

Dze[𝔗4,"𝔗4",c,a,b]&&Dze[𝔗3,"𝔗3",c,a,b]&&Dpo[-𝔗2,"-𝔗2",c,a,b]&&Dze[ 𝔉,"𝔉",c,a,b]&&Dze[𝔉1,"𝔉1",c,a,b]&&Dpo[ℌ,"ℌ",c,a,b]&&Dpo[-𝔅,"-𝔅",c,a,b],Print2["$, $"," case (c4)"],

Dze[𝔗4,"𝔗4",c,a,b]&&Dze[𝔗3,"𝔗3",c,a,b]&&Dpo[𝔗2,"𝔗2",c,a,b]&&Dze[ 𝔉,"𝔉",c,a,b]&&Dze[𝔉1,"𝔉1",c,a,b]&&Dpo[-𝔅,"-𝔅",c,a,b],Print2["$, c"," case (c5)"],

Dze[𝔗4,"𝔗4",c,a,b]&&Dze[𝔗3,"𝔗3",c,a,b]&&Dpo[-𝔗2,"-𝔗2",c,a,b]&&Dze[ 𝔉,"𝔉",c,a,b]&&Dze[𝔉1,"𝔉1",c,a,b]&&Dpo[-ℌ,"-ℌ",c,a,b]&&Dpo[-𝔅,"-𝔅",c,a,b],Print2["c, c"," case (c6)"],

Dze[𝔗4,"𝔗4",c,a,b]&&Dze[𝔗3,"𝔗3",c,a,b]&&Dnze[-𝔗2,"-𝔗2",c,a,b],Print2["two complex trace zero points,"," case (?c7?)"],

Dze[𝔗4,"𝔗4",c,a,b]&&Dze[𝔗3,"𝔗3",c,a,b]&&Dze[𝔗2,"𝔗2",c,a,b]&&Dnze[𝔗1,"𝔗1",c,a,b]&&Dze[ 𝔉,"𝔉",c,a,b]&&Dnze[𝔉1,"𝔉1",c,a,b]&&Dpo[ℌ,"ℌ",c,a,b]&&Dpo[-𝔅,"-𝔅",c,a,b],Print2["(s^((1)))"," case (d1)"],

Dze[𝔗4,"𝔗4",c,a,b]&&Dze[𝔗3,"𝔗3",c,a,b]&&Dze[𝔗2,"𝔗2",c,a,b]&&Dnze[𝔗1,"𝔗1",c,a,b]&&Dze[ 𝔉,"𝔉",c,a,b]&&Dnze[𝔉1,"𝔉1",c,a,b]&&Dpo[-ℌ,"-ℌ",c,a,b]&&Dpo[-𝔅,"-𝔅",c,a,b],Print2["(f^((1)))"," case (d2)"],

Dze[𝔗4,"𝔗4",c,a,b]&&Dze[𝔗3,"𝔗3",c,a,b]&&Dze[𝔗2,"𝔗2",c,a,b]&&Dze[𝔗1,"𝔗1",c,a,b]&&Dnze[σ,"σ",c,a,b]&&Dnze[𝔉1,"𝔉1",c,a,b]&&Dze[ℌ,"ℌ",c,a,b]&&Dze[𝔅1,"𝔅1",c,a,b]&&Dpo[𝔅2,"𝔅2",c,a,b],Print2["(s^((1)))"," case (e1)"],

Dze[𝔗4,"𝔗4",c,a,b]&&Dze[𝔗3,"𝔗3",c,a,b]&&Dze[𝔗2,"𝔗2",c,a,b]&&Dze[𝔗1,"𝔗1",c,a,b]&&Dnze[σ,"σ",c,a,b]&&Dnze[𝔉1,"𝔉1",c,a,b]&&Dze[ℌ,"ℌ",c,a,b]&&Dze[𝔅1,"𝔅1",c,a,b]&&Dpo[-𝔅2,"-𝔅2",c,a,b],Print2["(f^((1)))"," case (e2)"],

Dze[𝔗4,"𝔗4",c,a,b]&&Dze[𝔗3,"𝔗3",c,a,b]&&Dze[𝔗2,"𝔗2",c,a,b]&&Dze[𝔗1,"𝔗1",c,a,b]&&Dnze[σ,"σ",c,a,b]&&Dze[𝔉1,"𝔉1",c,a,b]&&Dze[𝔉,"𝔉",c,a,b]&&Dpo[ℌ,"ℌ",c,a,b]&&Dpo[-𝔅,"-𝔅",c,a,b],Print2["$"," case (e3 [α])"],

Dze[𝔗4,"𝔗4",c,a,b]&&Dze[𝔗3,"𝔗3",c,a,b]&&Dze[𝔗2,"𝔗2",c,a,b]&&Dze[𝔗1,"𝔗1",c,a,b]&&Dnze[σ,"σ",c,a,b]&&Dze[𝔉1,"𝔉1",c,a,b]&&Dpo[𝔅2,"𝔅2",c,a,b]&&Dze[ℌ,"ℌ",c,a,b]&&Dze[𝔅1,"𝔅1",c,a,b],Print2["$"," case (e3 [β])"],

Dze[𝔗4,"𝔗4",c,a,b]&&Dze[𝔗3,"𝔗3",c,a,b]&&Dze[𝔗2,"𝔗2",c,a,b]&&Dze[𝔗1,"𝔗1",c,a,b]&&Dnze[σ,"σ",c,a,b]&&Dze[𝔉1,"𝔉1",c,a,b]&&Dze[ℌ,"ℌ",c,a,b]&&Dze[𝔅,"𝔅",c,a,b]&&Dze[𝔅1,"𝔅1",c,a,b]&&Dze[𝔅2,"𝔅2",c,a,b]&&Dze[𝔅3,"𝔅3",c,a,b]&&Dze[μ0,"μ0",c,a,b]&&Dnze[WK,"(OverTilde[K])",c,a,b]&&Dnze[μ2^2+ μ3^2,"μ2^2+ μ3^2",c,a,b],Print2["$"," case (e3 [γ])"],

Dze[𝔗4,"𝔗4",c,a,b]&&Dze[𝔗3,"𝔗3",c,a,b]&&Dze[𝔗2,"𝔗2",c,a,b]&&Dze[𝔗1,"𝔗1",c,a,b]&&Dnze[σ,"σ",c,a,b]&&Dze[𝔉1,"𝔉1",c,a,b]&&Dze[ℌ,"ℌ",c,a,b]&&Dze[𝔅,"𝔅",c,a,b]&&Dze[𝔅1,"𝔅1",c,a,b]&&Dze[𝔅2,"𝔅2",c,a,b]&&Dze[𝔅3,"𝔅3",c,a,b]&&Dze[WK,"(OverTilde[K])",c,a,b]&&Dnze[μ2 𝔊,"μ2 𝔊",c,a,b],Print2["$"," case (e3 [δ])"],

Dze[𝔗4,"𝔗4",c,a,b]&&Dze[𝔗3,"𝔗3",c,a,b]&&Dze[𝔗2,"𝔗2",c,a,b]&&Dze[𝔗1,"𝔗1",c,a,b]&&Dnze[σ,"σ",c,a,b]&&Dze[𝔉1,"𝔉1",c,a,b]&&Dze[ℌ,"ℌ",c,a,b]&&Dze[𝔅,"𝔅",c,a,b]&&Dze[𝔅1,"𝔅1",c,a,b]&&Dze[𝔅2,"𝔅2",c,a,b]&&Dze[𝔅3,"𝔅3",c,a,b]&&Dze[𝔅4,"𝔅4",c,a,b]&&Dze[WK,"(OverTilde[K])",c,a,b]&&Dze[μ2,"μ2",c,a,b]&&Dnze[μ3,"μ3",c,a,b],Print2["$"," case (e3 [ϵ])"],

Dze[𝔗4,"𝔗4",c,a,b]&&Dze[𝔗3,"𝔗3",c,a,b]&&Dze[𝔗2,"𝔗2",c,a,b]&&Dze[𝔗1,"𝔗1",c,a,b]&&Dnze[σ,"σ",c,a,b]&&Dze[𝔉1,"𝔉1",c,a,b]&&Dze[𝔉,"𝔉",c,a,b]&&Dpo[-ℌ,"-ℌ",c,a,b]&&Dpo[-𝔅,"-𝔅",c,a,b],Print2["c"," case (e4 [α])"],

Dze[𝔗4,"𝔗4",c,a,b]&&Dze[𝔗3,"𝔗3",c,a,b]&&Dze[𝔗2,"𝔗2",c,a,b]&&Dze[𝔗1,"𝔗1",c,a,b]&&Dnze[σ,"σ",c,a,b]&&Dze[𝔉1,"𝔉1",c,a,b]&&Dpo[-𝔅2,"-𝔅2",c,a,b]&&Dze[ℌ,"ℌ",c,a,b]&&Dze[𝔅1,"𝔅1",c,a,b],Print2["c"," case (e4 [β])"],

Dze[𝔗4,"𝔗4",c,a,b]&&Dze[𝔗3,"𝔗3",c,a,b]&&Dze[𝔗2,"𝔗2",c,a,b]&&Dnze[𝔗1,"𝔗1",c,a,b],Print2["There is nilpotent/intricate singularity,"," case (?e6?)"],

Dze[𝔗4,"𝔗4",c,a,b]&&Dze[𝔗3,"𝔗3",c,a,b]&&Dze[𝔗2,"𝔗2",c,a,b]&&Dze[𝔗1,"𝔗1",c,a,b]&&Dnze[σ,"σ",c,a,b],Print2["There is no finite weak singularity, but one weak point has gone to infinity producing a nilpotent/intricate singularity,"," case (?e5?)"],

Dze[σ,"σ",c,a,b]&&Dpo[-μ0,"-μ0",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b],Print2["$, $, $, c"," case (f1)"],

Dze[σ,"σ",c,a,b]&&Dpo[μ0,"μ0",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b],Print2["$, $, c, c"," case (f2)"],

Dze[σ,"σ",c,a,b]&&Dze[μ0,"μ0",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dnze[ℝ,"ℝ",c,a,b],Print2["$, $, c"," case (f3)"],

Dze[σ,"σ",c,a,b]&&Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b],Print2["$, $"," case (f4 [α])"],

Dze[σ,"σ",c,a,b]&&Dpo[-μ0,"-μ0",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dpo[-𝕋,"-𝕋",c,a,b],Print2["$, $"," case (f4 [β])"],

Dze[σ,"σ",c,a,b]&&Dze[μ0,"μ0",c,a,b]&&Dze[ℝ,"ℝ",c,a,b]&&Dnze[ℙ,"ℙ",c,a,b]&&Dpo[𝕌,"𝕌",c,a,b]&&Dnze[WK,"(OverTilde[K])",c,a,b],Print2["$, $"," case (f4 [γ])"],

Dze[σ,"σ",c,a,b]&&Dpo[μ0,"μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b],Print2["$, c"," case (f5 [α])"],

Dze[σ,"σ",c,a,b]&&Dpo[μ0,"μ0",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dpo[-𝕋,"-𝕋",c,a,b],Print2["$, c"," case (f5 [β])"],

Dze[σ,"σ",c,a,b]&&Dze[μ0,"μ0",c,a,b]&&Dze[ℝ,"ℝ",c,a,b]&&Dnze[ℙ,"ℙ",c,a,b]&&Dpo[𝕌,"𝕌",c,a,b]&&Dze[WK,"(OverTilde[K])",c,a,b],Print2["$, c"," case (f5 [γ])"],

Dze[σ,"σ",c,a,b]&&Dpo[-μ0,"-μ0",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dze[𝕋,"𝕋",c,a,b]&&Dze[ℙ,"ℙ",c,a,b]&&Dnze[ℝ,"ℝ",c,a,b],Print2["$"," case (f6 [α])"],

Dze[σ,"σ",c,a,b]&&Dze[μ0,"μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dnze[ℝ,"ℝ",c,a,b],Print2["$"," case (f6 [β])"],

Dze[σ,"σ",c,a,b]&&Dze[μ0,"μ0",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dnze[ℙ ℝ,"ℙ ℝ",c,a,b],Print2["$"," case (f6 [γ])"],

Dze[σ,"σ",c,a,b]&&Dze[μ0,"μ0",c,a,b]&&Dze[ℙ,"ℙ",c,a,b]&&Dze[ℝ,"ℝ",c,a,b]&&Dnze[𝕌,"𝕌",c,a,b],Print2["$"," case (f6 [δ])"],

Dze[σ,"σ",c,a,b]&&Dpo[μ0,"μ0",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dze[𝕋,"𝕋",c,a,b]&&Dze[ℙ,"ℙ",c,a,b]&&Dnze[ℝ,"ℝ",c,a,b],Print2["c"," case (f7)"],

True,Print2["Something fails"]
]}

starnode determines if a parametrized system has any finite star node. The set "c" are the equalities know among the parameters, "a" corresponds to expressions known to be positive and "b" to expressions known to be different from zero.

printstarinv:=Print2[Column[{{"W4=",Factor[WW4]},{"𝔜1=",Factor[𝔜1]},{"𝔜2=",Factor[𝔜2]},{"𝔘1=",Factor[𝔘1]},{"𝔘2=",Factor[𝔘2]},{"𝔘3=",Factor[𝔘3]},{"𝔘4=",Factor[𝔘4]},{"𝔘5=",Factor[𝔘5]},{"𝔘6=",Factor[𝔘6]},{"𝔘7=",Factor[𝔘7]}}]];

printStarInv:=Print2[Column[{{"W4=",Factor[WW4]},{"𝔜1=",Factor[𝔜1]},{"𝔜2=",Factor[𝔜2]},{"𝔘1=",Factor[𝔘1]},{"𝔘2=",Factor[𝔘2]},{"𝔘3=",Factor[𝔘3]},{"𝔘4=",Factor[𝔘4]},{"𝔘5=",Factor[𝔘5]},{"𝔘6=",Factor[𝔘6]},{"𝔘7=",Factor[𝔘7]}}]];

starnode[c_,a_,b_]:={tot=Union[Table[c[[i]]==0,{i,1,Length[c]}],Table[a[[i]]>0,{i,1,Length[a]}],Table[b[[i]]^2>0,{i,1,Length[b]}],Table[b[[i]]≠0,{i,1,Length[b]}],{var1≠0},{var2≠0}];Which[

W4nze=Dnze[WW4,"W4",c,a,b],Print2[Column[{{"(Subscript[W, 4])=",Factor[WW4]},"","There are neither (n^d) nor (SuperStar[n]) nodes",""}]],

(W4ze=Dze[WW4,"W4",c,a,b])&&(Y1ze=Dze[𝔜1,"𝔜1",c,a,b])&&(U1nze=Dnze[𝔘1,"𝔘1",c,a,b])&&(U2nze=Dnze[𝔘2,"𝔘2",c,a,b])&&(U3ze=Dze[𝔘3,"𝔘3",c,a,b]),Print2[Column[{{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔜, 1])=",Factor[𝔜1]},{"(Subscript[𝔘, 1])=",Factor[𝔘1]},{"(Subscript[𝔘, 2])=",Factor[𝔘2]},{"(Subscript[𝔘, 3])=",Factor[𝔘3]},"","one star node",""}]],

W4ze&&(U1ze=Dze[𝔘1,"𝔘1",c,a,b])&&(U4ze=Dze[𝔘4,"𝔘4",c,a,b])&&(U5ze=Dze[𝔘5,"𝔘5",c,a,b])&&(U6ze=Dze[𝔘6,"𝔘6",c,a,b])&&(Y2nze=Dnze[𝔜2,"𝔜2",c,a,b]),Print2[Column[{{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔜, 2])=",Factor[𝔜2]},{"(Subscript[𝔘, 1])=",Factor[𝔘1]},{"(Subscript[𝔘, 4])=",Factor[𝔘4]},{"(Subscript[𝔘, 5])=",Factor[𝔘5]},{"(Subscript[𝔘, 6])=",Factor[𝔘6]},"","one star node",""}]],

W4ze&&U1ze&&U4ze&&U5ze&&(U6nze=Dnze[𝔘6,"𝔘6",c,a,b])&&(Y2po=Dpo[𝔜2,"𝔜2",c,a,b]),Print2[Column[{{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔜, 2])=",Factor[𝔜2]},{"(Subscript[𝔘, 1])=",Factor[𝔘1]},{"(Subscript[𝔘, 4])=",Factor[𝔘4]},{"(Subscript[𝔘, 5])=",Factor[𝔘5]},{"(Subscript[𝔘, 6])=",Factor[𝔘6]},"","two star nodes",""}]],


True,Print2[""]]}Print2[z_]:=Print[z/.{var1->x,var2->y}];

starnodeold[c_,a_,b_]:={tot=Union[Table[c[[i]]==0,{i,1,Length[c]}],Table[a[[i]]>0,{i,1,Length[a]}],Table[b[[i]]^2>0,{i,1,Length[b]}],Table[b[[i]]≠0,{i,1,Length[b]}],{var1≠0},{var2≠0}];Which[

Dnze[WW4,"W4",c,a,b],Print2[Column[{{"(Subscript[W, 4])=",Factor[WW4]},"","There are neither (n^d) nor (SuperStar[n]) nodes",""}]],

Dze[WW4,"W4",c,a,b]&&Dze[𝔜1,"𝔜1",c,a,b]&&Dnze[𝔘1,"𝔘1",c,a,b]&&Dnze[𝔘2,"𝔘2",c,a,b]&&Dze[𝔘3,"𝔘3",c,a,b],Print2[Column[{{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔜, 1])=",Factor[𝔜1]},{"(Subscript[𝔘, 1])=",Factor[𝔘1]},{"(Subscript[𝔘, 2])=",Factor[𝔘2]},{"(Subscript[𝔘, 3])=",Factor[𝔘3]},"","one star node",""}]],

Dze[WW4,"W4",c,a,b]&&Dze[𝔘1,"𝔘1",c,a,b]&&Dze[𝔘4,"𝔘4",c,a,b]&&Dze[𝔘5,"𝔘5",c,a,b]&&Dze[𝔘6,"𝔘6",c,a,b]&&Dnze[𝔜2,"𝔜2",c,a,b],Print2[Column[{{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔜, 2])=",Factor[𝔜2]},{"(Subscript[𝔘, 1])=",Factor[𝔘1]},{"(Subscript[𝔘, 4])=",Factor[𝔘4]},{"(Subscript[𝔘, 5])=",Factor[𝔘5]},{"(Subscript[𝔘, 6])=",Factor[𝔘6]},"","one star node",""}]],

Dze[WW4,"W4",c,a,b]&&Dze[𝔘1,"𝔘1",c,a,b]&&Dze[𝔘4,"𝔘4",c,a,b]&&Dze[𝔘5,"𝔘5",c,a,b]&&Dnze[𝔘6,"𝔘6",c,a,b]&&Dpo[𝔜2,"𝔜2",c,a,b],Print2[Column[{{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔜, 2])=",Factor[𝔜2]},{"(Subscript[𝔘, 1])=",Factor[𝔘1]},{"(Subscript[𝔘, 4])=",Factor[𝔘4]},{"(Subscript[𝔘, 5])=",Factor[𝔘5]},{"(Subscript[𝔘, 6])=",Factor[𝔘6]},"","two star nodes",""}]],


True,Print2[""]]}

hamilton determines if a system is Hamiltonian and its phase portrait of a parametrized system . The set "c" are the equalities know among the parameters, "a" corresponds to expressions known to be positive and "b" to expressions known to be different from zero.

printhaminv:=(printboldinv;Print2[Column[{{"WB3=",Factor[WB3]},{"μ0=",Factor[μ0]},{"μ1=",Factor[μ1]},{"μ2=",Factor[μ2]},{"μ3=",Factor[μ3]},{"μ4=",Factor[μ4]},{"WM=",Factor[WM]},{"WB4=",Factor[WB4]},{"WB6=",Factor[WB6]}}]]);

printHamInv:=(printboldinv;Print2[Column[{{"WB3=",Factor[WB3]},{"μ0=",Factor[μ0]},{"μ1=",Factor[μ1]},{"μ2=",Factor[μ2]},{"μ3=",Factor[μ3]},{"μ4=",Factor[μ4]},{"WM=",Factor[WM]},{"WB4=",Factor[WB4]},{"WB6=",Factor[WB6]}}]]);

hamilton[c_,a_,b_]:={tot=Union[Table[c[[i]]==0,{i,1,Length[c]}],Table[a[[i]]>0,{i,1,Length[a]}],Table[b[[i]]^2>0,{i,1,Length[b]}],Table[b[[i]]≠0,{i,1,Length[b]}],{var1≠0},{var2≠0}];Which[

Dnze[σ,"σ",c,a,b],Print2["the system is not Hamiltonian"],

Dze[σ,"σ",c,a,b]&&Dpo[-μ0,"-μ0",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dnze[WB1,"B1",c,a,b],Print2["Portrait Vulpe 11"],

Dze[σ,"σ",c,a,b]&&Dpo[-μ0,"-μ0",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dze[WB1,"B1",c,a,b]&&Dze[WB3,"B3",c,a,b],Print2["Portrait Vulpe 10"],

Dze[σ,"σ",c,a,b]&&Dpo[-μ0,"-μ0",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dze[WB1,"B1",c,a,b]&&Dpo[-WB3 WB4,"-B3 B4",c,a,b],Print2["Portrait Vulpe 9"],

Dze[σ,"σ",c,a,b]&&Dpo[-μ0,"-μ0",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dze[WB1,"B1",c,a,b]&&Dpo[WB3 WB4,"B3 B4",c,a,b],Print2["Portrait Vulpe 8"],

Dze[σ,"σ",c,a,b]&&Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dnze[WB1,"B1",c,a,b],Print2["Portrait Figure 25 of [AL]"],

Dze[σ,"σ",c,a,b]&&Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dze[WB1,"B1",c,a,b]&&Dpo[-WB3 WB4,"-B3 B4",c,a,b],Print2["Portrait Figure 26 of [AL]"],

Dze[σ,"σ",c,a,b]&&Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dze[WB1,"B1",c,a,b]&&Dpo[WB3 WB4,"B3 B4",c,a,b],Print2["Portrait Figure 25 of [AL]"],

Dze[σ,"σ",c,a,b]&&Dpo[-μ0,"-μ0",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dnze[𝕋,"𝕋",c,a,b]&&Dnze[WB1,"B1",c,a,b],Print2["Portrait Figure 27 of [AL]"],

Dze[σ,"σ",c,a,b]&&Dpo[-μ0,"-μ0",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dnze[𝕋,"𝕋",c,a,b]&&Dze[WB1,"B1",c,a,b],Print2["Portrait Figure 24 of [AL]"],

Dze[σ,"σ",c,a,b]&&Dpo[-μ0,"-μ0",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dze[𝕋,"𝕋",c,a,b]&&Dnze[ℝ,"ℝ",c,a,b],Print2["Portrait Figure 25 of [AL]"],

Dze[σ,"σ",c,a,b]&&Dpo[-μ0,"-μ0",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dze[𝕋,"𝕋",c,a,b]&&Dze[ℝ,"ℝ",c,a,b],Print2["Portrait Figure 23 of [AL]"],

Dze[σ,"σ",c,a,b]&&Dpo[μ0,"μ0",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&¬(Dpo[ℝ,"ℝ",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]),Print2["Portrait Figure 11 of [AL]"],

Dze[σ,"σ",c,a,b]&&Dpo[μ0,"μ0",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dnze[WB1,"B1",c,a,b],Print2["Portrait Vulpe 4"],

Dze[σ,"σ",c,a,b]&&Dpo[μ0,"μ0",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dze[WB1,"B1",c,a,b],Print2["Portrait Vulpe 3"],

Dze[σ,"σ",c,a,b]&&Dpo[μ0,"μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b],Print2["Portrait Vulpe 2"],

Dze[σ,"σ",c,a,b]&&Dpo[μ0,"μ0",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dpo[-𝕋,"-𝕋",c,a,b],Print2["Portrait Vulpe 7"],

Dze[σ,"σ",c,a,b]&&Dpo[μ0,"μ0",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dpo[𝕋,"𝕋",c,a,b],Print2["Portrait Figure 17 of [AL]"],

Dze[σ,"σ",c,a,b]&&Dpo[μ0,"μ0",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dze[𝕋,"𝕋",c,a,b]&&Dpo[-ℙ ℝ,"-ℙ ℝ",c,a,b],Print2["Portrait Figure 11 of [AL]"],

Dze[σ,"σ",c,a,b]&&Dpo[μ0,"μ0",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dze[𝕋,"𝕋",c,a,b]&&Dpo[ℙ ℝ,"ℙ ℝ",c,a,b],Print2["Portrait Figure 28 of [AL]"],

Dze[σ,"σ",c,a,b]&&Dpo[μ0,"μ0",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dze[𝕋,"𝕋",c,a,b]&&Dze[ℙ,"ℙ",c,a,b]&&Dnze[ℝ,"ℝ",c,a,b],Print2["Portrait Vulpe 2"],

Dze[σ,"σ",c,a,b]&&Dpo[μ0,"μ0",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dze[𝕋,"𝕋",c,a,b]&&Dze[ℝ,"ℝ",c,a,b],Print2["Portrait Figure 17 of [AL]"],

Dze[σ,"σ",c,a,b]&&Dze[μ0,"μ0",c,a,b]&&Dnze[μ1,"μ1",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dnze[WB1,"B1",c,a,b],Print2["Portrait Vulpe 6"],

Dze[σ,"σ",c,a,b]&&Dze[μ0,"μ0",c,a,b]&&Dnze[μ1,"μ1",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dze[WB1,"B1",c,a,b],Print2["Portrait Vulpe 5"],

Dze[σ,"σ",c,a,b]&&Dze[μ0,"μ0",c,a,b]&&Dnze[μ1,"μ1",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b],Print2["Portrait Figure 19 of [AL]"],

Dze[σ,"σ",c,a,b]&&Dze[μ0,"μ0",c,a,b]&&Dnze[μ1,"μ1",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dnze[ℙ,"ℙ",c,a,b],Print2["Portrait Figure 22 of [AL]"],

Dze[σ,"σ",c,a,b]&&Dze[μ0,"μ0",c,a,b]&&Dnze[μ1,"μ1",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dze[ℙ,"ℙ",c,a,b],Print2["Portrait Figure 19 of [AL]"],

Dze[σ,"σ",c,a,b]&&Dze[μ0,"μ0",c,a,b]&&Dze[μ1,"μ1",c,a,b]&&Dnze[μ2,"μ2",c,a,b]&&Dpo[-𝕌,"-𝕌",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b],Print2["Portrait Figure 12 of [AL]"],

Dze[σ,"σ",c,a,b]&&Dze[μ0,"μ0",c,a,b]&&Dze[μ1,"μ1",c,a,b]&&Dnze[μ2,"μ2",c,a,b]&&Dpo[-𝕌,"-𝕌",c,a,b]&&Dze[WM,"(OverTilde[M])",c,a,b],Print2["Portrait Figure 11 of [AL]"],

Dze[σ,"σ",c,a,b]&&Dze[μ0,"μ0",c,a,b]&&Dze[μ1,"μ1",c,a,b]&&Dnze[μ2,"μ2",c,a,b]&&Dpo[𝕌,"𝕌",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dnze[WB3,"B3",c,a,b],Print2["Portrait Figure 20 of [AL]"],

Dze[σ,"σ",c,a,b]&&Dze[μ0,"μ0",c,a,b]&&Dze[μ1,"μ1",c,a,b]&&Dnze[μ2,"μ2",c,a,b]&&Dpo[𝕌,"𝕌",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[WB3,"B3",c,a,b],Print2["Portrait Figure 21 of [AL]"],

Dze[σ,"σ",c,a,b]&&Dze[μ0,"μ0",c,a,b]&&Dze[μ1,"μ1",c,a,b]&&Dnze[μ2,"μ2",c,a,b]&&Dpo[𝕌,"𝕌",c,a,b]&&Dze[WM,"(OverTilde[M])",c,a,b],Print2["Portrait Vulpe 2"],

Dze[σ,"σ",c,a,b]&&Dze[μ0,"μ0",c,a,b]&&Dze[μ1,"μ1",c,a,b]&&Dnze[μ2,"μ2",c,a,b]&&Dze[𝕌,"𝕌",c,a,b],Print2["Portrait Figure 17 of [AL]"],

Dze[σ,"σ",c,a,b]&&Dze[μ0,"μ0",c,a,b]&&Dze[μ1,"μ1",c,a,b]&&Dze[μ2,"μ2",c,a,b]&&Dnze[μ3,"μ3",c,a,b],Print2["Portrait Figure 18 of [AL]"],

Dze[σ,"σ",c,a,b]&&Dze[μ0,"μ0",c,a,b]&&Dze[μ1,"μ1",c,a,b]&&Dze[μ2,"μ2",c,a,b]&&Dze[μ3,"μ3",c,a,b]&&Dnze[μ4,"μ4",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b],Print2["Portrait Figure 13 of [AL]"],

Dze[σ,"σ",c,a,b]&&Dze[μ0,"μ0",c,a,b]&&Dze[μ1,"μ1",c,a,b]&&Dze[μ2,"μ2",c,a,b]&&Dze[μ3,"μ3",c,a,b]&&Dnze[μ4,"μ4",c,a,b]&&Dze[WM,"(OverTilde[M])",c,a,b],Print2["Portrait Figure 11 of [AL]"],

Dze[σ,"σ",c,a,b]&&Dze[μ0,"μ0",c,a,b]&&Dze[μ1,"μ1",c,a,b]&&Dze[μ2,"μ2",c,a,b]&&Dze[μ3,"μ3",c,a,b]&&Dze[μ4,"μ4",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b],Print2["Portrait Figure 14 of [AL]"],

Dze[σ,"σ",c,a,b]&&Dze[μ0,"μ0",c,a,b]&&Dze[μ1,"μ1",c,a,b]&&Dze[μ2,"μ2",c,a,b]&&Dze[μ3,"μ3",c,a,b]&&Dze[μ4,"μ4",c,a,b]&&Dze[WM,"(OverTilde[M])",c,a,b]&&Dpo[-WB6,"-B6",c,a,b],Print2["Portrait Figure 11 of [AL]"],

Dze[σ,"σ",c,a,b]&&Dze[μ0,"μ0",c,a,b]&&Dze[μ1,"μ1",c,a,b]&&Dze[μ2,"μ2",c,a,b]&&Dze[μ3,"μ3",c,a,b]&&Dze[μ4,"μ4",c,a,b]&&Dze[WM,"(OverTilde[M])",c,a,b]&&Dpo[WB6,"B6",c,a,b],Print2["Portrait Figure 15 of [AL]"],

Dze[σ,"σ",c,a,b]&&Dze[μ0,"μ0",c,a,b]&&Dze[μ1,"μ1",c,a,b]&&Dze[μ2,"μ2",c,a,b]&&Dze[μ3,"μ3",c,a,b]&&Dze[μ4,"μ4",c,a,b]&&Dze[WM,"(OverTilde[M])",c,a,b]&&Dze[WB6,"B6",c,a,b],Print2["Portrait Figure 16 of [AL]"],

True,Print2["something fails"]
]}

invlines determines the phase portriat of a parametrized system having at least 4 invariant lines, counting multiplicity and the line of infinity. The set "c" are the equalities know among the parameters, "a" corresponds to expressions known to be positive and "b" to expressions known to be different from zero.

printAinv:=Print2[Column[{{"A01=",Factor[WA01]},{"A02=",Factor[WA02]},{"A3=",Factor[WA03]},{"A04=",Factor[WA04]},{"A05=",Factor[WA05]},{"A06=",Factor[WA06]},{"A07=",Factor[WA07]},{"A08=",Factor[WA08]},{"A09=",Factor[WA09]},{"A10=",Factor[WA10]},{"A11=",Factor[WA11]},{"A12=",Factor[WA12]},{"A13=",Factor[WA13]},{"A14=",Factor[WA14]},{"A15=",Factor[WA15]},{"A16=",Factor[WA16]},{"A17=",Factor[WA17]},{"A18=",Factor[WA18]},{"A19=",Factor[WA19]},{"A20=",Factor[WA20]},{"A21=",Factor[WA21]},{"A22=",Factor[WA22]},{"A23=",Factor[WA23]},{"A24=",Factor[WA24]},{"A25=",Factor[WA25]},{"A26=",Factor[WA26]},{"A27=",Factor[WA27]},{"A28=",Factor[WA28]},{"A29=",Factor[WA29]},{"A30=",Factor[WA30]},{"A31=",Factor[WA31]},{"A32=",Factor[WA32]},{"A33=",Factor[WA33]},{"A34=",Factor[WA34]},{"A35=",Factor[WA35]},{"A36=",Factor[WA36]},{"A37=",Factor[WA37]},{"A38=",Factor[WA38]},{"A39=",Factor[WA39]},{"A40=",Factor[WA40]},{"A41=",Factor[WA41]},{"A42=",Factor[WA42]}}]];

printAInv:=Print2[Column[{{"A01=",Factor[WA01]},{"A02=",Factor[WA02]},{"A3=",Factor[WA03]},{"A04=",Factor[WA04]},{"A05=",Factor[WA05]},{"A06=",Factor[WA06]},{"A07=",Factor[WA07]},{"A08=",Factor[WA08]},{"A09=",Factor[WA09]},{"A10=",Factor[WA10]},{"A11=",Factor[WA11]},{"A12=",Factor[WA12]},{"A13=",Factor[WA13]},{"A14=",Factor[WA14]},{"A15=",Factor[WA15]},{"A16=",Factor[WA16]},{"A17=",Factor[WA17]},{"A18=",Factor[WA18]},{"A19=",Factor[WA19]},{"A20=",Factor[WA20]},{"A21=",Factor[WA21]},{"A22=",Factor[WA22]},{"A23=",Factor[WA23]},{"A24=",Factor[WA24]},{"A25=",Factor[WA25]},{"A26=",Factor[WA26]},{"A27=",Factor[WA27]},{"A28=",Factor[WA28]},{"A29=",Factor[WA29]},{"A30=",Factor[WA30]},{"A31=",Factor[WA31]},{"A32=",Factor[WA32]},{"A33=",Factor[WA33]},{"A34=",Factor[WA34]},{"A35=",Factor[WA35]},{"A36=",Factor[WA36]},{"A37=",Factor[WA37]},{"A38=",Factor[WA38]},{"A39=",Factor[WA39]},{"A40=",Factor[WA40]},{"A41=",Factor[WA41]},{"A42=",Factor[WA42]}}]];

printlinesinv:=Print2[Column[{{"WB3=",Factor[WB3]},{"WB2=",Factor[WB2]},{"θ=",Factor[θ]},{"WILH1=",Factor[WILH1]},{"WILH2=",Factor[WILH2]},{"WILH3=",Factor[WILH3]},{"WILH4=",Factor[WILH4]},{"WILH5=",Factor[WILH5]},{"WILH6=",Factor[WILH6]},{"WILH7=",Factor[WILH7]},{"WILH8=",Factor[WILH8]},{"WILH9=",Factor[WILH9]},{"WILH10=",Factor[WILH10]},{"WILH11=",Factor[WILH11]},{"WILH12=",Factor[WILH12]},{"η=",Factor[η]},{"μ0=",Factor[μ0]},{"μ2=",Factor[μ2]},{"μ4=",Factor[μ4]},{"(OverTilde[K])=",Factor[(OverTilde[K])]},{"𝔊1=",Factor[𝔊1]},{"𝔊2=",Factor[𝔊2]},{"𝔊3=",Factor[𝔊3]},{"WM=",Factor[WM]},{"WN=",Factor[WN]},{"WN1=",Factor[WN1]},{"WN2=",Factor[WN2]},{"WN3=",Factor[WN3]},{"WN4=",Factor[WN4]},{"WN5=",Factor[WN5]},{"WL=",Factor[WL]},{"(OverTilde[D])=",Factor[(OverTilde[D])]},{"WK1=",Factor[WK1]},{"WK2=",Factor[WK2]},{"WK3=",Factor[WK3]}}]];

printLinesInv:=Print2[Column[{{"WB3=",Factor[WB3]},{"WB2=",Factor[WB2]},{"θ=",Factor[θ]},{"WILH1=",Factor[WILH1]},{"WILH2=",Factor[WILH2]},{"WILH3=",Factor[WILH3]},{"WILH4=",Factor[WILH4]},{"WILH5=",Factor[WILH5]},{"WILH6=",Factor[WILH6]},{"WILH7=",Factor[WILH7]},{"WILH8=",Factor[WILH8]},{"WILH9=",Factor[WILH9]},{"WILH10=",Factor[WILH10]},{"WILH11=",Factor[WILH11]},{"WILH12=",Factor[WILH12]},{"η=",Factor[η]},{"μ0=",Factor[μ0]},{"μ2=",Factor[μ2]},{"μ4=",Factor[μ4]},{"(OverTilde[K])=",Factor[(OverTilde[K])]},{"𝔊1=",Factor[𝔊1]},{"𝔊2=",Factor[𝔊2]},{"𝔊3=",Factor[𝔊3]},{"WM=",Factor[WM]},{"WN=",Factor[WN]},{"WN1=",Factor[WN1]},{"WN2=",Factor[WN2]},{"WN3=",Factor[WN3]},{"WN4=",Factor[WN4]},{"WN5=",Factor[WN5]},{"WL=",Factor[WL]},{"(OverTilde[D])=",Factor[(OverTilde[D])]},{"WK1=",Factor[WK1]},{"WK2=",Factor[WK2]},{"WK3=",Factor[WK3]}}]];

invlines[c_,a_,b_]:={tot=Union[Table[c[[i]]==0,{i,1,Length[c]}],Table[a[[i]]>0,{i,1,Length[a]}],Table[b[[i]]^2>0,{i,1,Length[b]}],Table[b[[i]]≠0,{i,1,Length[b]}],{var1≠0},{var2≠0}];Which[

Dze[WB3,"B3",c,a,b]&&Dze[WN,"(OverTilde[N])",c,a,b]&&Dpo[η,"η",c,a,b]&&Dpo[WILH1,"WILH1",c,a,b],Print2[Column[{{"(Subscript[B, 3])=",Factor[WB3]},{"(OverTilde[N])=",Factor[WN]},{"η=",Factor[η]},{"(Subscript[H, 1])=",Factor[WILH1]},"","Portrait 6.1",""}]],

Dze[WB3,"B3",c,a,b]&&Dze[WN,"(OverTilde[N])",c,a,b]&&Dpo[η,"η",c,a,b]&&Dpo[-WILH1,"-WILH1",c,a,b],Print2[Column[{{"(Subscript[B, 3])=",Factor[WB3]},{"(OverTilde[N])=",Factor[WN]},{"η=",Factor[η]},{"(Subscript[H, 1])=",Factor[WILH1]},"","Portrait 6.2",""}]],

Dze[WB3,"B3",c,a,b]&&Dze[WN,"(OverTilde[N])",c,a,b]&&Dpo[-η,"-η",c,a,b]&&Dpo[-WILH1,"-WILH1",c,a,b],Print2[Column[{{"(Subscript[B, 3])=",Factor[WB3]},{"(OverTilde[N])=",Factor[WN]},{"η=",Factor[η]},{"(Subscript[H, 1])=",Factor[WILH1]},"","Portrait 6.3",""}]],

Dze[WB3,"B3",c,a,b]&&Dze[WN,"(OverTilde[N])",c,a,b]&&Dpo[-η,"-η",c,a,b]&&Dpo[WILH1,"WILH1",c,a,b],Print2[Column[{{"(Subscript[B, 3])=",Factor[WB3]},{"(OverTilde[N])=",Factor[WN]},{"η=",Factor[η]},{"(Subscript[H, 1])=",Factor[WILH1]},"","Portrait 6.4",""}]],

Dze[WB3,"B3",c,a,b]&&Dze[WN,"(OverTilde[N])",c,a,b]&&Dpo[η,"η",c,a,b]&&Dze[WILH1,"WILH1",c,a,b],Print2[Column[{{"(Subscript[B, 3])=",Factor[WB3]},{"(OverTilde[N])=",Factor[WN]},{"η=",Factor[η]},{"(Subscript[H, 1])=",Factor[WILH1]},"","Portrait 6.5",""}]],

Dze[WB3,"B3",c,a,b]&&Dze[WN,"(OverTilde[N])",c,a,b]&&Dpo[-η,"-η",c,a,b]&&Dze[WILH1,"WILH1",c,a,b],Print2[Column[{{"(Subscript[B, 3])=",Factor[WB3]},{"(OverTilde[N])=",Factor[WN]},{"η=",Factor[η]},{"(Subscript[H, 1])=",Factor[WILH1]},"","Portrait 6.6",""}]],

Dze[WB3,"B3",c,a,b]&&Dze[WN,"(OverTilde[N])",c,a,b]&&Dze[η,"η",c,a,b]&&Dze[WH,"H",c,a,b]&&Dze[WN1,"N1",c,a,b]&&Dze[WN2,"N2",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dnze[(OverTilde[D]),"(OverTilde[D])",c,a,b],Print2[Column[{{"(Subscript[B, 3])=",Factor[WB3]},{"(OverTilde[N])=",Factor[WN]},{"η=",Factor[η]},{"H=",Factor[WH]},{"(Subscript[N, 1])=",Factor[WN1]},{"(Subscript[N, 2])=",Factor[WN2]},{"(OverTilde[M])=",Factor[WM]},{"(OverTilde[D])=",Factor[(OverTilde[D])]},"","Portrait 6.7",""}]],

Dze[WB3,"B3",c,a,b]&&Dze[WN,"(OverTilde[N])",c,a,b]&&Dze[η,"η",c,a,b]&&Dnze[WH,"H",c,a,b]&&Dze[WILH2,"WILH2",c,a,b]&&Dpo[WILH3,"WILH3",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b],Print2[Column[{{"(Subscript[B, 3])=",Factor[WB3]},{"(OverTilde[N])=",Factor[WN]},{"η=",Factor[η]},{"H=",Factor[WH]},{"(Subscript[H, 2])=",Factor[WILH2]},{"(Subscript[H, 3])=",Factor[WILH3]},{"(OverTilde[M])=",Factor[WM]},"","Portrait 6.8",""}]],

Dze[WB3,"B3",c,a,b]&&Dze[WN,"(OverTilde[N])",c,a,b]&&Dze[η,"η",c,a,b]&&Dnze[WH,"H",c,a,b]&&Dze[WILH2,"WILH2",c,a,b]&&Dpo[-WILH3,"-WILH3",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b],Print2[Column[{{"(Subscript[B, 3])=",Factor[WB3]},{"(OverTilde[N])=",Factor[WN]},{"η=",Factor[η]},{"H=",Factor[WH]},{"(Subscript[H, 2])=",Factor[WILH2]},{"(Subscript[H, 3])=",Factor[WILH3]},{"(OverTilde[M])=",Factor[WM]},"","Portrait 6.9",""}]],

Dze[WB3,"B3",c,a,b]&&Dze[WN,"(OverTilde[N])",c,a,b]&&Dze[η,"η",c,a,b]&&Dze[WH,"H",c,a,b]&&Dze[WN1,"N1",c,a,b]&&Dze[WN2,"N2",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[(OverTilde[D]),"(OverTilde[D])",c,a,b],Print2[Column[{{"(Subscript[B, 3])=",Factor[WB3]},{"(OverTilde[N])=",Factor[WN]},{"η=",Factor[η]},{"H=",Factor[WH]},{"(Subscript[N, 1])=",Factor[WN1]},{"(Subscript[N, 2])=",Factor[WN2]},{"(OverTilde[M])=",Factor[WM]},{"(OverTilde[D])=",Factor[(OverTilde[D])]},"","Portrait 6.10",""}]],

Dze[WB3,"B3",c,a,b]&&Dze[WN,"(OverTilde[N])",c,a,b]&&Dze[η,"η",c,a,b]&&Dze[WN3,"N3",c,a,b]&&Dze[WN4,"N4",c,a,b]&&Dze[WM,"(OverTilde[M])",c,a,b],Print2[Column[{{"(Subscript[B, 3])=",Factor[WB3]},{"(OverTilde[N])=",Factor[WN]},{"η=",Factor[η]},{"(Subscript[N, 3])=",Factor[WN3]},{"(Subscript[N, 4])=",Factor[WN4]},{"(OverTilde[M])=",Factor[WM]},"","Portrait 6.11",""}]],

Dze[WB3,"B3",c,a,b]&&Dnze[WN,"(OverTilde[N])",c,a,b]&&Dpo[η,"η",c,a,b]&&Dze[θ,"θ",c,a,b]&&Dnze[μ0,"μ0",c,a,b]&&Dnze[WILH1,"WILH1",c,a,b],Print2[Column[{{"(Subscript[B, 3])=",Factor[WB3]},{"(OverTilde[N])=",Factor[WN]},{"η=",Factor[η]},{"θ=",Factor[θ]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[H, 1])=",Factor[WILH1]},"","Portrait 5.1",""}]],

Dze[WB3,"B3",c,a,b]&&Dnze[WN,"(OverTilde[N])",c,a,b]&&Dpo[-η,"-η",c,a,b]&&Dze[θ,"θ",c,a,b]&&Dnze[μ0,"μ0",c,a,b]&&Dnze[WILH1,"WILH1",c,a,b],Print2[Column[{{"(Subscript[B, 3])=",Factor[WB3]},{"(OverTilde[N])=",Factor[WN]},{"η=",Factor[η]},{"θ=",Factor[θ]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[H, 1])=",Factor[WILH1]},"","Portrait 5.2",""}]],

Dze[WB2,"B2",c,a,b]&&Dnze[WB3,"B3",c,a,b]&&Dze[WN,"(OverTilde[N])",c,a,b]&&Dpo[η,"η",c,a,b]&&Dpo[WILH1,"WILH1",c,a,b]&&Dze[WILH4,"WILH4",c,a,b]&&Dpo[WILH5,"WILH5",c,a,b],Print2[Column[{{"(Subscript[B, 2])=",Factor[WB2]},{"(Subscript[B, 3])=",Factor[WB3]},{"(OverTilde[N])=",Factor[WN]},{"η=",Factor[η]},{"(Subscript[H, 1])=",Factor[WILH1]},{"(Subscript[H, 4])=",Factor[WILH4]},{"(Subscript[H, 5])=",Factor[WILH5]},"","Portrait 5.3",""}]],

Dze[WB2,"B2",c,a,b]&&Dnze[WB3,"B3",c,a,b]&&Dze[WN,"(OverTilde[N])",c,a,b]&&Dpo[η,"η",c,a,b]&&Dze[WILH4,"WILH4",c,a,b]&&Dpo[-WILH5,"-WILH5",c,a,b],Print2[Column[{{"(Subscript[B, 2])=",Factor[WB2]},{"(Subscript[B, 3])=",Factor[WB3]},{"(OverTilde[N])=",Factor[WN]},{"η=",Factor[η]},{"(Subscript[H, 4])=",Factor[WILH4]},{"(Subscript[H, 5])=",Factor[WILH5]},"","Portrait 5.4",""}]],

Dze[WB2,"B2",c,a,b]&&Dnze[WB3,"B3",c,a,b]&&Dze[WN,"(OverTilde[N])",c,a,b]&&Dpo[η,"η",c,a,b]&&Dpo[-WILH1,"-WILH1",c,a,b]&&Dze[WILH4,"WILH4",c,a,b]&&Dpo[WILH5,"WILH5",c,a,b],Print2[Column[{{"(Subscript[B, 2])=",Factor[WB2]},{"(Subscript[B, 3])=",Factor[WB3]},{"(OverTilde[N])=",Factor[WN]},{"η=",Factor[η]},{"(Subscript[H, 1])=",Factor[WILH1]},{"(Subscript[H, 4])=",Factor[WILH4]},{"(Subscript[H, 5])=",Factor[WILH5]},"","Portrait 5.5",""}]],

Dze[WB2,"B2",c,a,b]&&Dnze[WB3,"B3",c,a,b]&&Dze[WN,"(OverTilde[N])",c,a,b]&&Dpo[-η,"-η",c,a,b],Print2[Column[{{"(Subscript[B, 2])=",Factor[WB2]},{"(Subscript[B, 3])=",Factor[WB3]},{"(OverTilde[N])=",Factor[WN]},{"η=",Factor[η]},"","Portrait 5.6",""}]],

Dze[WB3,"B3",c,a,b]&&Dnze[WN,"(OverTilde[N])",c,a,b]&&Dpo[η,"η",c,a,b]&&Dze[θ,"θ",c,a,b]&&Dze[μ0,"μ0",c,a,b]&&Dze[WILH6,"WILH6",c,a,b],Print2[Column[{{"(Subscript[B, 3])=",Factor[WB3]},{"(OverTilde[N])=",Factor[WN]},{"η=",Factor[η]},{"θ=",Factor[θ]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[H, 6])=",Factor[WILH6]},"","Portrait 5.7",""}]],

Dze[WB3,"B3",c,a,b]&&Dnze[WN,"(OverTilde[N])",c,a,b]&&Dpo[η,"η",c,a,b]&&Dze[θ,"θ",c,a,b]&&Dnze[μ0,"μ0",c,a,b]&&Dze[WILH1,"WILH1",c,a,b],Print2[Column[{{"(Subscript[B, 3])=",Factor[WB3]},{"(OverTilde[N])=",Factor[WN]},{"η=",Factor[η]},{"θ=",Factor[θ]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[H, 1])=",Factor[WILH1]},"","Portrait 5.8",""}]],

Dze[WB3,"B3",c,a,b]&&Dnze[WN,"(OverTilde[N])",c,a,b]&&Dpo[-η,"-η",c,a,b]&&Dze[θ,"θ",c,a,b]&&Dze[μ0,"μ0",c,a,b]&&Dze[WILH6,"WILH6",c,a,b],Print2[Column[{{"(Subscript[B, 3])=",Factor[WB3]},{"(OverTilde[N])=",Factor[WN]},{"η=",Factor[η]},{"θ=",Factor[θ]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[H, 6])=",Factor[WILH6]},"","Portrait 5.9",""}]],

Dze[WB3,"B3",c,a,b]&&Dnze[WN,"(OverTilde[N])",c,a,b]&&Dpo[-η,"-η",c,a,b]&&Dze[θ,"θ",c,a,b]&&Dnze[μ0,"μ0",c,a,b]&&Dze[WILH1,"WILH1",c,a,b],Print2[Column[{{"(Subscript[B, 3])=",Factor[WB3]},{"(OverTilde[N])=",Factor[WN]},{"η=",Factor[η]},{"θ=",Factor[θ]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[H, 1])=",Factor[WILH1]},"","Portrait 5.10",""}]],

Dze[WB3,"B3",c,a,b]&&Dnze[WN,"(OverTilde[N])",c,a,b]&&Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[θ,"θ",c,a,b]&&Dnze[μ0,"μ0",c,a,b]&&Dnze[(OverTilde[D]),"(OverTilde[D])",c,a,b],Print2[Column[{{"(Subscript[B, 3])=",Factor[WB3]},{"(OverTilde[N])=",Factor[WN]},{"η=",Factor[η]},{"(OverTilde[M])=",Factor[WM]},{"θ=",Factor[θ]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(OverTilde[D])=",Factor[(OverTilde[D])]},"","Portrait 5.11",""}]],

Dze[WB2,"B2",c,a,b]&&Dnze[WB3,"B3",c,a,b]&&Dze[WN,"(OverTilde[N])",c,a,b]&&Dpo[η,"η",c,a,b]&&Dpo[WILH1,"WILH1",c,a,b]&&Dze[WILH4,"WILH4",c,a,b]&&Dze[WILH5,"WILH5",c,a,b],Print2[Column[{{"(Subscript[B, 2])=",Factor[WB2]},{"(Subscript[B, 3])=",Factor[WB3]},{"(OverTilde[N])=",Factor[WN]},{"η=",Factor[η]},{"(Subscript[H, 1])=",Factor[WILH1]},{"(Subscript[H, 4])=",Factor[WILH4]},{"(Subscript[H, 5])=",Factor[WILH5]},"","Portrait 5.12",""}]],

Dze[WB3,"B3",c,a,b]&&Dze[WN,"(OverTilde[N])",c,a,b]&&Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[WH,"H",c,a,b]&&Dze[WN1,"N1",c,a,b]&&Dnze[(OverTilde[D]),"(OverTilde[D])",c,a,b]&&Dnze[WN2,"N2",c,a,b]&&Dpo[WN5,"N5",c,a,b],Print2[Column[{{"(Subscript[B, 3])=",Factor[WB3]},{"(OverTilde[N])=",Factor[WN]},{"η=",Factor[η]},{"(OverTilde[M])=",Factor[WM]},{"H=",Factor[WH]},{"(Subscript[N, 1])=",Factor[WN1]},{"(OverTilde[D])=",Factor[(OverTilde[D])]},{"(Subscript[N, 2])=",Factor[WN2]},{"(Subscript[N, 5])=",Factor[WN5]},"","Portrait 5.13",""}]],

Dze[WB3,"B3",c,a,b]&&Dnze[WN,"(OverTilde[N])",c,a,b]&&Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[θ,"θ",c,a,b]&&Dnze[WK,"(OverTilde[K])",c,a,b]&&Dze[μ0,"μ0",c,a,b]&&Dze[WILH6,"WILH6",c,a,b],Print2[Column[{{"(Subscript[B, 3])=",Factor[WB3]},{"(OverTilde[N])=",Factor[WN]},{"η=",Factor[η]},{"(OverTilde[M])=",Factor[WM]},{"θ=",Factor[θ]},{"(OverTilde[K])=",Factor[WK]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[H, 6])=",Factor[WILH6]},"","Portrait 5.14",""}]],

Dze[WB3,"B3",c,a,b]&&Dze[WN,"(OverTilde[N])",c,a,b]&&Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[WH,"H",c,a,b]&&Dze[WN1,"N1",c,a,b]&&Dnze[(OverTilde[D]),"(OverTilde[D])",c,a,b]&&Dnze[WN2,"N2",c,a,b]&&Dpo[-WN5,"-N5",c,a,b],Print2[Column[{{"(Subscript[B, 3])=",Factor[WB3]},{"(OverTilde[N])=",Factor[WN]},{"η=",Factor[η]},{"(OverTilde[M])=",Factor[WM]},{"H=",Factor[WH]},{"(Subscript[N, 1])=",Factor[WN1]},{"(OverTilde[D])=",Factor[(OverTilde[D])]},{"(Subscript[N, 2])=",Factor[WN2]},{"(Subscript[N, 5])=",Factor[WN5]},"","Portrait 5.15",""}]],

Dze[WB2,"B2",c,a,b]&&Dnze[WB3,"B3",c,a,b]&&Dze[WN,"(OverTilde[N])",c,a,b]&&Dpo[η,"η",c,a,b]&&Dpo[-WILH1,"-WILH1",c,a,b]&&Dze[WILH4,"WILH4",c,a,b]&&Dze[WILH5,"WILH5",c,a,b],Print2[Column[{{"(Subscript[B, 2])=",Factor[WB2]},{"(Subscript[B, 3])=",Factor[WB3]},{"(OverTilde[N])=",Factor[WN]},{"η=",Factor[η]},{"(Subscript[H, 1])=",Factor[WILH1]},{"(Subscript[H, 4])=",Factor[WILH4]},{"(Subscript[H, 5])=",Factor[WILH5]},"","Portrait 5.16",""}]],

Dze[WB3,"B3",c,a,b]&&Dze[WN,"(OverTilde[N])",c,a,b]&&Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[WH,"H",c,a,b]&&Dze[WN1,"N1",c,a,b]&&Dnze[(OverTilde[D]),"(OverTilde[D])",c,a,b]&&Dnze[WN2,"N2",c,a,b]&&Dze[WN5,"N5",c,a,b],Print2[Column[{{"(Subscript[B, 3])=",Factor[WB3]},{"(OverTilde[N])=",Factor[WN]},{"η=",Factor[η]},{"(OverTilde[M])=",Factor[WM]},{"H=",Factor[WH]},{"(Subscript[N, 1])=",Factor[WN1]},{"(OverTilde[D])=",Factor[(OverTilde[D])]},{"(Subscript[N, 2])=",Factor[WN2]},{"(Subscript[N, 5])=",Factor[WN5]},"","Portrait 5.17",""}]],

Dze[WB3,"B3",c,a,b]&&Dnze[WN,"(OverTilde[N])",c,a,b]&&Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[θ,"θ",c,a,b]&&Dze[WK,"(OverTilde[K])",c,a,b]&&Dze[μ0,"μ0",c,a,b]&&Dze[WILH6,"WILH6",c,a,b],Print2[Column[{{"(Subscript[B, 3])=",Factor[WB3]},{"(OverTilde[N])=",Factor[WN]},{"η=",Factor[η]},{"(OverTilde[M])=",Factor[WM]},{"θ=",Factor[θ]},{"(OverTilde[K])=",Factor[WK]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[H, 6])=",Factor[WILH6]},"","Portrait 5.18",""}]],

Dze[WB3,"B3",c,a,b]&&Dnze[WN,"(OverTilde[N])",c,a,b]&&Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[θ,"θ",c,a,b]&&Dnze[μ0,"μ0",c,a,b]&&Dze[(OverTilde[D]),"(OverTilde[D])",c,a,b],Print2[Column[{{"(Subscript[B, 3])=",Factor[WB3]},{"(OverTilde[N])=",Factor[WN]},{"η=",Factor[η]},{"(OverTilde[M])=",Factor[WM]},{"θ=",Factor[θ]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(OverTilde[D])=",Factor[(OverTilde[D])]},"","Portrait 5.19",""}]],

Dze[WB3,"B3",c,a,b]&&Dze[WN,"(OverTilde[N])",c,a,b]&&Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[WH,"H",c,a,b]&&Dze[WN1,"N1",c,a,b]&&Dze[(OverTilde[D]),"(OverTilde[D])",c,a,b]&&Dnze[WN2,"N2",c,a,b]&&Dpo[WN5,"N5",c,a,b],Print2[Column[{{"(Subscript[B, 3])=",Factor[WB3]},{"(OverTilde[N])=",Factor[WN]},{"η=",Factor[η]},{"(OverTilde[M])=",Factor[WM]},{"H=",Factor[WH]},{"(Subscript[N, 1])=",Factor[WN1]},{"(OverTilde[D])=",Factor[(OverTilde[D])]},{"(Subscript[N, 2])=",Factor[WN2]},{"(Subscript[N, 5])=",Factor[WN5]},"","Portrait 5.20",""}]],

Dze[WB3,"B3",c,a,b]&&Dze[WN,"(OverTilde[N])",c,a,b]&&Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[WH,"H",c,a,b]&&Dnze[WN1,"N1",c,a,b]&&Dnze[(OverTilde[D]),"(OverTilde[D])",c,a,b]&&Dze[WN2,"N2",c,a,b],Print2[Column[{{"(Subscript[B, 3])=",Factor[WB3]},{"(OverTilde[N])=",Factor[WN]},{"η=",Factor[η]},{"(OverTilde[M])=",Factor[WM]},{"H=",Factor[WH]},{"(Subscript[N, 1])=",Factor[WN1]},{"(OverTilde[D])=",Factor[(OverTilde[D])]},{"(Subscript[N, 2])=",Factor[WN2]},"","Portrait 5.21",""}]],

Dze[WB2,"B2",c,a,b]&&Dnze[WB3,"B3",c,a,b]&&Dze[WN,"(OverTilde[N])",c,a,b]&&Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[WILH2,"WILH2",c,a,b]&&Dpo[WILH3,"WILH3",c,a,b],Print2[Column[{{"(Subscript[B, 2])=",Factor[WB2]},{"(Subscript[B, 3])=",Factor[WB3]},{"(OverTilde[N])=",Factor[WN]},{"η=",Factor[η]},{"(OverTilde[M])=",Factor[WM]},{"(Subscript[H, 2])=",Factor[WILH2]},{"(Subscript[H, 3])=",Factor[WILH3]},"","Portrait 5.22",""}]],

Dnze[WB3,"B3",c,a,b]&&Dnze[WN,"(OverTilde[N])",c,a,b]&&Dze[η,"η",c,a,b]&&Dze[WM,"(OverTilde[M])",c,a,b]&&Dze[θ,"θ",c,a,b]&&Dze[WN6,"N6",c,a,b],Print2[Column[{{"(Subscript[B, 3])=",Factor[WB3]},{"(OverTilde[N])=",Factor[WN]},{"η=",Factor[η]},{"(OverTilde[M])=",Factor[WM]},{"θ=",Factor[θ]},{"(Subscript[N, 6])=",Factor[WN6]},{"(OverTilde[D])=",Factor[(OverTilde[D])]},"","Portrait 5.23",""}]],

Dze[WB3,"B3",c,a,b]&&Dze[WN,"(OverTilde[N])",c,a,b]&&Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[WH,"H",c,a,b]&&Dze[WN1,"N1",c,a,b]&&Dze[(OverTilde[D]),"(OverTilde[D])",c,a,b]&&Dnze[WN2,"N2",c,a,b]&&Dpo[-WN5,"-N5",c,a,b],Print2[Column[{{"(Subscript[B, 3])=",Factor[WB3]},{"(OverTilde[N])=",Factor[WN]},{"η=",Factor[η]},{"(OverTilde[M])=",Factor[WM]},{"H=",Factor[WH]},{"(Subscript[N, 1])=",Factor[WN1]},{"(OverTilde[D])=",Factor[(OverTilde[D])]},{"(Subscript[N, 2])=",Factor[WN2]},{"(Subscript[N, 5])=",Factor[WN5]},"","Portrait 5.24",""}]],

Dze[WB2,"B2",c,a,b]&&Dnze[WB3,"B3",c,a,b]&&Dze[WN,"(OverTilde[N])",c,a,b]&&Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[WILH2,"WILH2",c,a,b]&&Dpo[-WILH3,"-WILH3",c,a,b],Print2[Column[{{"(Subscript[B, 2])=",Factor[WB2]},{"(Subscript[B, 3])=",Factor[WB3]},{"(OverTilde[N])=",Factor[WN]},{"η=",Factor[η]},{"(OverTilde[M])=",Factor[WM]},{"(Subscript[H, 2])=",Factor[WILH2]},{"(Subscript[H, 3])=",Factor[WILH3]},"","Portrait 5.25",""}]],

Dze[WB3,"B3",c,a,b]&&Dze[WN,"(OverTilde[N])",c,a,b]&&Dze[η,"η",c,a,b]&&Dze[WM,"(OverTilde[M])",c,a,b]&&Dnze[WN3,"N3",c,a,b]&&Dze[WD1,"D1",c,a,b],Print2[Column[{{"(Subscript[B, 3])=",Factor[WB3]},{"(OverTilde[N])=",Factor[WN]},{"η=",Factor[η]},{"(OverTilde[M])=",Factor[WM]},{"(Subscript[N, 3])=",Factor[WN3]},{"(Subscript[D, 1])=",Factor[WD1]},"","Portrait 5.26",""}]],

Dze[WB3,"B3",c,a,b]&&Dze[WN,"(OverTilde[N])",c,a,b]&&Dze[η,"η",c,a,b]&&Dze[WM,"(OverTilde[M])",c,a,b]&&Dze[WN3,"N3",c,a,b]&&Dnze[WD1,"D1",c,a,b]&&Dnze[WN4,"N4",c,a,b],Print2[Column[{{"(Subscript[B, 3])=",Factor[WB3]},{"(OverTilde[N])=",Factor[WN]},{"η=",Factor[η]},{"(OverTilde[M])=",Factor[WM]},{"(Subscript[N, 3])=",Factor[WN3]},{"(Subscript[D, 1])=",Factor[WD1]},{"(Subscript[N, 4])=",Factor[WN4]},"","Portrait 5.27",""}]],

Dze[WB3,"B3",c,a,b]&&Dze[WN,"(OverTilde[N])",c,a,b]&&Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[WN2,"N2",c,a,b]&&Dze[(OverTilde[D]),"(OverTilde[D])",c,a,b]&&Dze[WH,"H",c,a,b]&&Dnze[WN1,"N1",c,a,b],Print2[Column[{{"(Subscript[B, 3])=",Factor[WB3]},{"(OverTilde[N])=",Factor[WN]},{"η=",Factor[η]},{"(OverTilde[M])=",Factor[WM]},{"(Subscript[N, 2])=",Factor[WN2]},{"(OverTilde[D])=",Factor[(OverTilde[D])]},{"H=",Factor[WH]},{"(Subscript[N, 1])=",Factor[WN1]},"","Portrait 5.28",""}]],

Dnze[WB3,"B3",c,a,b]&&Dze[WB2,"B2",c,a,b]&&Dze[WN,"(OverTilde[N])",c,a,b]&&Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[WILH2,"WILH2",c,a,b]&&Dze[WILH3,"WILH3",c,a,b],Print2[Column[{{"(Subscript[B, 2])=",Factor[WB2]},{"(Subscript[B, 3])=",Factor[WB3]},{"(OverTilde[N])=",Factor[WN]},{"η=",Factor[η]},{"(OverTilde[M])=",Factor[WM]},{"(Subscript[H, 2])=",Factor[WILH2]},{"(Subscript[H, 3])=",Factor[WILH3]},"","Portrait 5.29",""}]],

Dze[WB3,"B3",c,a,b]&&Dze[WN,"(OverTilde[N])",c,a,b]&&Dze[η,"η",c,a,b]&&Dze[WM,"(OverTilde[M])",c,a,b]&&Dze[WN,"(OverTilde[N])",c,a,b]&&Dze[WN3,"N3",c,a,b]&&Dze[WD1,"D1",c,a,b]&&Dnze[WN4,"N4",c,a,b],Print2[Column[{{"(Subscript[B, 3])=",Factor[WB3]},{"(OverTilde[N])=",Factor[WN]},{"η=",Factor[η]},{"(OverTilde[M])=",Factor[WM]},{"(OverTilde[N])=",Factor[WN]},{"(Subscript[N, 3])=",Factor[WN3]},{"(Subscript[D, 1])=",Factor[WD1]},{"(Subscript[N, 4])=",Factor[WN4]},"","Portrait 5.30",""}]],

Dpo[η,"η",c,a,b]&&Dze[WB3,"B3",c,a,b]&&Dnze[θ,"θ",c,a,b]&&Dnze[WILH7,"WILH7",c,a,b]&&Dpo[μ0,"μ0",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Subscript[B, 3])=",Factor[WB3]},{"θ=",Factor[θ]},{"(Subscript[H, 7])=",Factor[WILH7]},{"(Subscript[μ, 0])=",Factor[μ0]},"","Portrait 4.1(a)",""}]],

Dpo[η,"η",c,a,b]&&Dze[WB3,"B3",c,a,b]&&Dnze[θ,"θ",c,a,b]&&Dnze[WILH7,"WILH7",c,a,b]&&Dpo[-μ0,"-μ0",c,a,b]&&Dpo[-WK,"-(OverTilde[K])",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Subscript[B, 3])=",Factor[WB3]},{"θ=",Factor[θ]},{"(Subscript[H, 7])=",Factor[WILH7]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(OverTilde[K])=",Factor[WK]},"","Portrait 4.1(b)",""}]],

Dpo[η,"η",c,a,b]&&Dze[WB3,"B3",c,a,b]&&Dnze[θ,"θ",c,a,b]&&Dnze[WILH7,"WILH7",c,a,b]&&Dpo[-μ0,"-μ0",c,a,b]&&Dpo[WK,"(OverTilde[K])",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Subscript[B, 3])=",Factor[WB3]},{"θ=",Factor[θ]},{"(Subscript[H, 7])=",Factor[WILH7]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(OverTilde[K])=",Factor[WK]},"","Portrait 4.1(c)",""}]],

Dpo[-η,"-η",c,a,b]&&Dze[WB3,"B3",c,a,b]&&Dnze[θ,"θ",c,a,b]&&Dnze[WILH7,"WILH7",c,a,b]&&Dpo[μ0,"μ0",c,a,b]&&Dnze[𝔊1,"𝔊1",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Subscript[B, 3])=",Factor[WB3]},{"θ=",Factor[θ]},{"(Subscript[H, 7])=",Factor[WILH7]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[𝔊, 1])=",Factor[𝔊1]},"","Portrait 4.2(a)",""}]],

Dpo[-η,"-η",c,a,b]&&Dze[WB3,"B3",c,a,b]&&Dnze[θ,"θ",c,a,b]&&Dnze[WILH7,"WILH7",c,a,b]&&Dpo[μ0,"μ0",c,a,b]&&Dze[𝔊1,"𝔊1",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Subscript[B, 3])=",Factor[WB3]},{"θ=",Factor[θ]},{"(Subscript[H, 7])=",Factor[WILH7]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[𝔊, 1])=",Factor[𝔊1]},"","Portrait 4.2(b)",""}]],

Dpo[-η,"-η",c,a,b]&&Dze[WB3,"B3",c,a,b]&&Dnze[θ,"θ",c,a,b]&&Dnze[WILH7,"WILH7",c,a,b]&&Dpo[-μ0,"-μ0",c,a,b]&&Dnze[𝔊1,"𝔊1",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Subscript[B, 3])=",Factor[WB3]},{"θ=",Factor[θ]},{"(Subscript[H, 7])=",Factor[WILH7]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[𝔊, 1])=",Factor[𝔊1]},"","Portrait 4.2(c)",""}]],

Dpo[-η,"-η",c,a,b]&&Dze[WB3,"B3",c,a,b]&&Dnze[θ,"θ",c,a,b]&&Dnze[WILH7,"WILH7",c,a,b]&&Dpo[-μ0,"-μ0",c,a,b]&&Dze[𝔊1,"𝔊1",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Subscript[B, 3])=",Factor[WB3]},{"θ=",Factor[θ]},{"(Subscript[H, 7])=",Factor[WILH7]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[𝔊, 1])=",Factor[𝔊1]},"","Portrait 4.2(d)",""}]],

Dpo[η,"η",c,a,b]&&Dze[WB3,"B3",c,a,b]&&Dnze[θ,"θ",c,a,b]&&Dze[WILH7,"WILH7",c,a,b]&&Dnze[WILH1,"WILH1",c,a,b]&&Dpo[μ0,"μ0",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Subscript[B, 3])=",Factor[WB3]},{"θ=",Factor[θ]},{"(Subscript[H, 7])=",Factor[WILH7]},{"(Subscript[H, 1])=",Factor[WILH1]},{"(Subscript[μ, 0])=",Factor[μ0]},"","Portrait 4.3(a)",""}]],

Dpo[η,"η",c,a,b]&&Dze[WB3,"B3",c,a,b]&&Dnze[θ,"θ",c,a,b]&&Dze[WILH7,"WILH7",c,a,b]&&Dnze[WILH1,"WILH1",c,a,b]&&Dpo[-μ0,"-μ0",c,a,b]&&Dpo[-WK,"-(OverTilde[K])",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Subscript[B, 3])=",Factor[WB3]},{"θ=",Factor[θ]},{"(Subscript[H, 7])=",Factor[WILH7]},{"(Subscript[H, 1])=",Factor[WILH1]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(OverTilde[K])=",Factor[WK]},"","Portrait 4.3(b)",""}]],

Dpo[η,"η",c,a,b]&&Dze[WB3,"B3",c,a,b]&&Dnze[θ,"θ",c,a,b]&&Dze[WILH7,"WILH7",c,a,b]&&Dnze[WILH1,"WILH1",c,a,b]&&Dpo[-μ0,"-μ0",c,a,b]&&Dpo[WK,"(OverTilde[K])",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Subscript[B, 3])=",Factor[WB3]},{"θ=",Factor[θ]},{"(Subscript[H, 7])=",Factor[WILH7]},{"(Subscript[H, 1])=",Factor[WILH1]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(OverTilde[K])=",Factor[WK]},"","Portrait 4.3(c)",""}]],

Dpo[η,"η",c,a,b]&&Dze[WB3,"B3",c,a,b]&&Dnze[θ,"θ",c,a,b]&&Dze[WILH7,"WILH7",c,a,b]&&Dnze[WILH1,"WILH1",c,a,b]&&Dze[μ0,"μ0",c,a,b]&&Dpo[-WK,"-(OverTilde[K])",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Subscript[B, 3])=",Factor[WB3]},{"θ=",Factor[θ]},{"(Subscript[H, 7])=",Factor[WILH7]},{"(Subscript[H, 1])=",Factor[WILH1]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(OverTilde[K])=",Factor[WK]},"","Portrait 4.4(a)",""}]],

Dpo[η,"η",c,a,b]&&Dze[WB3,"B3",c,a,b]&&Dnze[θ,"θ",c,a,b]&&Dze[WILH7,"WILH7",c,a,b]&&Dnze[WILH1,"WILH1",c,a,b]&&Dze[μ0,"μ0",c,a,b]&&Dpo[WK,"(OverTilde[K])",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Subscript[B, 3])=",Factor[WB3]},{"θ=",Factor[θ]},{"(Subscript[H, 7])=",Factor[WILH7]},{"(Subscript[H, 1])=",Factor[WILH1]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(OverTilde[K])=",Factor[WK]},"","Portrait 4.4(b)",""}]],

Dpo[η,"η",c,a,b]&&Dze[WB3,"B3",c,a,b]&&Dnze[θ,"θ",c,a,b]&&Dze[WILH7,"WILH7",c,a,b]&&Dze[WILH1,"WILH1",c,a,b]&&Dpo[μ0,"μ0",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Subscript[B, 3])=",Factor[WB3]},{"θ=",Factor[θ]},{"(Subscript[H, 7])=",Factor[WILH7]},{"(Subscript[H, 1])=",Factor[WILH1]},{"(Subscript[μ, 0])=",Factor[μ0]},"","Portrait 4.5(a)",""}]],

Dpo[η,"η",c,a,b]&&Dze[WB3,"B3",c,a,b]&&Dnze[θ,"θ",c,a,b]&&Dze[WILH7,"WILH7",c,a,b]&&Dze[WILH1,"WILH1",c,a,b]&&Dpo[-μ0,"-μ0",c,a,b]&&Dpo[-WK,"-(OverTilde[K])",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Subscript[B, 3])=",Factor[WB3]},{"θ=",Factor[θ]},{"(Subscript[H, 7])=",Factor[WILH7]},{"(Subscript[H, 1])=",Factor[WILH1]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(OverTilde[K])=",Factor[WK]},"","Portrait 4.5(b)",""}]],

Dpo[η,"η",c,a,b]&&Dze[WB3,"B3",c,a,b]&&Dnze[θ,"θ",c,a,b]&&Dze[WILH7,"WILH7",c,a,b]&&Dze[WILH1,"WILH1",c,a,b]&&Dpo[-μ0,"-μ0",c,a,b]&&Dpo[WK,"(OverTilde[K])",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Subscript[B, 3])=",Factor[WB3]},{"θ=",Factor[θ]},{"(Subscript[H, 7])=",Factor[WILH7]},{"(Subscript[H, 1])=",Factor[WILH1]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(OverTilde[K])=",Factor[WK]},"","Portrait 4.5(c)",""}]],

Dpo[-η,"-η",c,a,b]&&Dze[WB3,"B3",c,a,b]&&Dnze[θ,"θ",c,a,b]&&Dze[WILH7,"WILH7",c,a,b]&&Dnze[WILH9,"WILH9",c,a,b]&&Dpo[μ0,"μ0",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Subscript[B, 3])=",Factor[WB3]},{"θ=",Factor[θ]},{"(Subscript[H, 7])=",Factor[WILH7]},{"(Subscript[H, 9])=",Factor[WILH9]},{"(Subscript[μ, 0])=",Factor[μ0]},"","Portrait 4.6(a)",""}]],

Dpo[-η,"-η",c,a,b]&&Dze[WB3,"B3",c,a,b]&&Dnze[θ,"θ",c,a,b]&&Dze[WILH7,"WILH7",c,a,b]&&Dnze[WILH9,"WILH9",c,a,b]&&Dpo[-μ0,"-μ0",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Subscript[B, 3])=",Factor[WB3]},{"θ=",Factor[θ]},{"(Subscript[H, 7])=",Factor[WILH7]},{"(Subscript[H, 9])=",Factor[WILH9]},{"(Subscript[μ, 0])=",Factor[μ0]},"","Portrait 4.6(b)",""}]],

Dpo[-η,"-η",c,a,b]&&Dze[WB3,"B3",c,a,b]&&Dnze[θ,"θ",c,a,b]&&Dze[WILH7,"WILH7",c,a,b]&&Dze[μ0,"μ0",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Subscript[B, 3])=",Factor[WB3]},{"θ=",Factor[θ]},{"(Subscript[H, 7])=",Factor[WILH7]},{"(Subscript[μ, 0])=",Factor[μ0]},"","Portrait 4.7(a)",""}]],

Dpo[-η,"-η",c,a,b]&&Dze[WB3,"B3",c,a,b]&&Dnze[θ,"θ",c,a,b]&&Dze[WILH7,"WILH7",c,a,b]&&Dze[WILH9,"WILH9",c,a,b]&&Dpo[μ0,"μ0",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Subscript[B, 3])=",Factor[WB3]},{"θ=",Factor[θ]},{"(Subscript[H, 7])=",Factor[WILH7]},{"(Subscript[H, 9])=",Factor[WILH9]},{"(Subscript[μ, 0])=",Factor[μ0]},"","Portrait 4.8(a)",""}]],

Dpo[-η,"-η",c,a,b]&&Dze[WB3,"B3",c,a,b]&&Dnze[θ,"θ",c,a,b]&&Dze[WILH7,"WILH7",c,a,b]&&Dze[WILH9,"WILH9",c,a,b]&&Dpo[-μ0,"-μ0",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Subscript[B, 3])=",Factor[WB3]},{"θ=",Factor[θ]},{"(Subscript[H, 7])=",Factor[WILH7]},{"(Subscript[H, 9])=",Factor[WILH9]},{"(Subscript[μ, 0])=",Factor[μ0]},"","Portrait 4.8(b)",""}]],

Dpo[η,"η",c,a,b]&&Dze[WB2,"B2",c,a,b]&&Dze[θ,"θ",c,a,b]&&Dze[WILH7,"WILH7",c,a,b]&&Dnze[WILH9,"WILH9",c,a,b]&&Dnze[μ0,"μ0",c,a,b]&&Dnze[WB3,"B3",c,a,b]&&Dnze[WILH4,"WILH4",c,a,b]&&(Dpo[WILH10 WN,"WILH10 N",c,a,b]||(Dze[WN,"(OverTilde[N])",c,a,b]&&Dpo[WILH8,"WILH8",c,a,b]))&&Dpo[𝔊2,"𝔊2",c,a,b]&&Dpo[WILH4,"WILH4",c,a,b]&&Dpo[-𝔊3,"-𝔊3",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Subscript[B, 2])=",Factor[WB2]},{"θ=",Factor[θ]},{"(Subscript[H, 7])=",Factor[WILH7]},{"(Subscript[H, 9])=",Factor[WILH9]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[B, 3])=",Factor[WB3]},{"(Subscript[H, 4])=",Factor[WILH4]},{"(Subscript[H, 10]) N=",Factor[WILH10 WN]},{"(OverTilde[N])=",Factor[WN]},{"(Subscript[H, 8])=",Factor[WILH8]},{"(Subscript[𝔊, 2])=",Factor[𝔊2]},{"(Subscript[𝔊, 3])=",Factor[𝔊3]},"","Portrait 4.9(a)",""}]],

Dpo[η,"η",c,a,b]&&Dze[WB2,"B2",c,a,b]&&Dze[θ,"θ",c,a,b]&&Dze[WILH7,"WILH7",c,a,b]&&Dnze[WILH9,"WILH9",c,a,b]&&Dnze[μ0,"μ0",c,a,b]&&Dnze[WB3,"B3",c,a,b]&&Dnze[WILH4,"WILH4",c,a,b]&&(Dpo[WILH10 WN,"WILH10 N",c,a,b]||(Dze[WN,"(OverTilde[N])",c,a,b]&&Dpo[WILH8,"WILH8",c,a,b]))&&Dpo[-𝔊2,"-𝔊2",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Subscript[B, 2])=",Factor[WB2]},{"θ=",Factor[θ]},{"(Subscript[H, 7])=",Factor[WILH7]},{"(Subscript[H, 9])=",Factor[WILH9]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[B, 3])=",Factor[WB3]},{"(Subscript[H, 4])=",Factor[WILH4]},{"(Subscript[H, 10]) N=",Factor[WILH10 WN]},{"(OverTilde[N])=",Factor[WN]},{"(Subscript[H, 8])=",Factor[WILH8]},{"(Subscript[𝔊, 2])=",Factor[𝔊2]},"","Portrait 4.9(b)",""}]],

Dpo[η,"η",c,a,b]&&Dze[WB2,"B2",c,a,b]&&Dze[θ,"θ",c,a,b]&&Dze[WILH7,"WILH7",c,a,b]&&Dnze[WILH9,"WILH9",c,a,b]&&Dnze[μ0,"μ0",c,a,b]&&Dnze[WB3,"B3",c,a,b]&&Dnze[WILH4,"WILH4",c,a,b]&&(Dpo[WILH10 WN,"WILH10 N",c,a,b]||(Dze[WN,"(OverTilde[N])",c,a,b]&&Dpo[WILH8,"WILH8",c,a,b]))&&Dpo[𝔊2,"𝔊2",c,a,b]&&Dpo[-WILH4,"-WILH4",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Subscript[B, 2])=",Factor[WB2]},{"θ=",Factor[θ]},{"(Subscript[H, 7])=",Factor[WILH7]},{"(Subscript[H, 9])=",Factor[WILH9]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[B, 3])=",Factor[WB3]},{"(Subscript[H, 4])=",Factor[WILH4]},{"(Subscript[H, 10]) N=",Factor[WILH10 WN]},{"(OverTilde[N])=",Factor[WN]},{"(Subscript[H, 8])=",Factor[WILH8]},{"(Subscript[𝔊, 2])=",Factor[𝔊2]},"","Portrait 4.9(b)",""}]],

Dpo[η,"η",c,a,b]&&Dze[WB2,"B2",c,a,b]&&Dze[θ,"θ",c,a,b]&&Dze[WILH7,"WILH7",c,a,b]&&Dnze[WILH9,"WILH9",c,a,b]&&Dnze[μ0,"μ0",c,a,b]&&Dnze[WB3,"B3",c,a,b]&&Dnze[WILH4,"WILH4",c,a,b]&&(Dpo[WILH10 WN,"WILH10 N",c,a,b]||(Dze[WN,"(OverTilde[N])",c,a,b]&&Dpo[WILH8,"WILH8",c,a,b]))&&Dpo[𝔊2,"𝔊2",c,a,b]&&Dpo[WILH4,"WILH4",c,a,b]&&Dpo[𝔊3,"𝔊3",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Subscript[B, 2])=",Factor[WB2]},{"θ=",Factor[θ]},{"(Subscript[H, 7])=",Factor[WILH7]},{"(Subscript[H, 9])=",Factor[WILH9]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[B, 3])=",Factor[WB3]},{"(Subscript[H, 4])=",Factor[WILH4]},{"(Subscript[H, 10]) N=",Factor[WILH10 WN]},{"(OverTilde[N])=",Factor[WN]},{"(Subscript[H, 8])=",Factor[WILH8]},{"(Subscript[𝔊, 2])=",Factor[𝔊2]},{"(Subscript[𝔊, 3])=",Factor[𝔊3]},"","Portrait 4.9(c)",""}]],

Dpo[η,"η",c,a,b]&&Dze[WB2,"B2",c,a,b]&&Dze[θ,"θ",c,a,b]&&Dze[WILH7,"WILH7",c,a,b]&&Dze[WILH9,"WILH9",c,a,b]&&Dnze[μ0,"μ0",c,a,b]&&Dnze[WB3,"B3",c,a,b]&&Dpo[WILH10 WN,"WILH10 N",c,a,b]&&Dpo[WILH4,"WILH4",c,a,b]&&Dpo[𝔊3,"𝔊3",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Subscript[B, 2])=",Factor[WB2]},{"θ=",Factor[θ]},{"(Subscript[H, 7])=",Factor[WILH7]},{"(Subscript[H, 9])=",Factor[WILH9]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[B, 3])=",Factor[WB3]},{"(Subscript[H, 4])=",Factor[WILH4]},{"(Subscript[H, 10]) N=",Factor[WILH10 WN]},{"(Subscript[𝔊, 3])=",Factor[𝔊3]},"","Portrait 4.10(a)",""}]],

Dpo[η,"η",c,a,b]&&Dze[WB2,"B2",c,a,b]&&Dze[θ,"θ",c,a,b]&&Dze[WILH7,"WILH7",c,a,b]&&Dze[WILH9,"WILH9",c,a,b]&&Dnze[μ0,"μ0",c,a,b]&&Dnze[WB3,"B3",c,a,b]&&Dpo[WILH10 WN,"WILH10 N",c,a,b]&&Dpo[-WILH4,"-WILH4",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Subscript[B, 2])=",Factor[WB2]},{"θ=",Factor[θ]},{"(Subscript[H, 7])=",Factor[WILH7]},{"(Subscript[H, 9])=",Factor[WILH9]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[B, 3])=",Factor[WB3]},{"(Subscript[H, 4])=",Factor[WILH4]},{"(Subscript[H, 10]) N=",Factor[WILH10 WN]},"","Portrait 4.10(b)",""}]],

Dpo[η,"η",c,a,b]&&Dze[WB2,"B2",c,a,b]&&Dze[θ,"θ",c,a,b]&&Dze[WILH7,"WILH7",c,a,b]&&Dze[WILH9,"WILH9",c,a,b]&&Dnze[μ0,"μ0",c,a,b]&&Dnze[WB3,"B3",c,a,b]&&Dpo[WILH10 WN,"WILH10 N",c,a,b]&&Dpo[WILH4,"WILH4",c,a,b]&&Dpo[-𝔊3,"-𝔊3",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Subscript[B, 2])=",Factor[WB2]},{"θ=",Factor[θ]},{"(Subscript[H, 7])=",Factor[WILH7]},{"(Subscript[H, 9])=",Factor[WILH9]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[B, 3])=",Factor[WB3]},{"(Subscript[H, 4])=",Factor[WILH4]},{"(Subscript[H, 10]) N=",Factor[WILH10 WN]},{"(Subscript[𝔊, 3])=",Factor[𝔊3]},"","Portrait 4.10(c)",""}]],

Dpo[η,"η",c,a,b]&&Dze[WB2,"B2",c,a,b]&&Dze[WILH9,"WILH9",c,a,b]&&Dnze[WB3,"B3",c,a,b]&&Dnze[WILH4,"WILH4",c,a,b]&&Dze[WN,"(OverTilde[N])",c,a,b]&&Dpo[WILH8,"WILH8",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Subscript[B, 2])=",Factor[WB2]},{"(Subscript[H, 9])=",Factor[WILH9]},{"(Subscript[B, 3])=",Factor[WB3]},{"(Subscript[H, 4])=",Factor[WILH4]},{"(Subscript[H, 8])=",Factor[WILH8]},{"(OverTilde[N])=",Factor[WN]},"","Portrait 4.10(c)",""}]],

Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dnze[WB3,"B3",c,a,b]&&Dze[WB2,"B2",c,a,b]&&Dze[θ,"θ",c,a,b]&&Dze[WILH7,"WILH7",c,a,b]&&Dnze[μ0,"μ0",c,a,b]&&Dpo[WILH10,"WILH10",c,a,b]&&Dpo[WILH4,"WILH4",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(OverTilde[M])=",Factor[WM]},{"(Subscript[B, 3])=",Factor[WB3]},{"(Subscript[B, 2])=",Factor[WB2]},{"θ=",Factor[θ]},{"(Subscript[H, 7])=",Factor[WILH7]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[H, 4])=",Factor[WILH4]},{"(Subscript[H, 10])=",Factor[WILH10]},"","Portrait 4.11(a)",""}]],

Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dnze[WB3,"B3",c,a,b]&&Dze[WB2,"B2",c,a,b]&&Dze[θ,"θ",c,a,b]&&Dze[WILH7,"WILH7",c,a,b]&&Dnze[μ0,"μ0",c,a,b]&&Dpo[WILH10,"WILH10",c,a,b]&&Dpo[-WILH4,"-WILH4",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(OverTilde[M])=",Factor[WM]},{"(Subscript[B, 3])=",Factor[WB3]},{"(Subscript[B, 2])=",Factor[WB2]},{"θ=",Factor[θ]},{"(Subscript[H, 7])=",Factor[WILH7]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[H, 4])=",Factor[WILH4]},{"(Subscript[H, 10])=",Factor[WILH10]},"","Portrait 4.11(b)",""}]],

Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[WB3,"B3",c,a,b]&&Dze[θ,"θ",c,a,b]&&Dnze[WK,"(OverTilde[K])",c,a,b]&&Dnze[WILH6,"WILH6",c,a,b]&&Dze[WILH7,"WILH7",c,a,b]&&Dze[μ0,"μ0",c,a,b]&&Dpo[WILH11,"WILH11",c,a,b]&&Dpo[μ2,"μ2",c,a,b]&&Dpo[WL,"(OverTilde[L])",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(OverTilde[M])=",Factor[WM]},{"(Subscript[B, 3])=",Factor[WB3]},{"θ=",Factor[θ]},{"(OverTilde[K])=",Factor[WK]},{"(Subscript[H, 6])=",Factor[WILH6]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[H, 7])=",Factor[WILH7]},{"(Subscript[H, 11])=",Factor[WILH11]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(OverTilde[L])=",Factor[WL]},"","Portrait 4.12(a)",""}]],

Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[WB3,"B3",c,a,b]&&Dze[θ,"θ",c,a,b]&&Dnze[WK,"(OverTilde[K])",c,a,b]&&Dnze[WILH6,"WILH6",c,a,b]&&Dze[WILH7,"WILH7",c,a,b]&&Dze[μ0,"μ0",c,a,b]&&Dpo[WILH11,"WILH11",c,a,b]&&Dpo[μ2,"μ2",c,a,b]&&Dpo[-WL,"-(OverTilde[L])",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(OverTilde[M])=",Factor[WM]},{"(Subscript[B, 3])=",Factor[WB3]},{"θ=",Factor[θ]},{"(OverTilde[K])=",Factor[WK]},{"(Subscript[H, 6])=",Factor[WILH6]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[H, 7])=",Factor[WILH7]},{"(Subscript[H, 11])=",Factor[WILH11]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(OverTilde[L])=",Factor[WL]},"","Portrait 4.12(b)",""}]],

Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[WB3,"B3",c,a,b]&&Dze[θ,"θ",c,a,b]&&Dnze[WK,"(OverTilde[K])",c,a,b]&&Dnze[WILH6,"WILH6",c,a,b]&&Dze[WILH7,"WILH7",c,a,b]&&Dze[μ0,"μ0",c,a,b]&&Dpo[WILH11,"WILH11",c,a,b]&&Dpo[-μ2,"-μ2",c,a,b]&&Dpo[-WK,"-(OverTilde[K])",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(OverTilde[M])=",Factor[WM]},{"(Subscript[B, 3])=",Factor[WB3]},{"θ=",Factor[θ]},{"(OverTilde[K])=",Factor[WK]},{"(Subscript[H, 6])=",Factor[WILH6]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[H, 7])=",Factor[WILH7]},{"(Subscript[H, 11])=",Factor[WILH11]},{"(Subscript[μ, 2])=",Factor[μ2]},"","Portrait 4.12(c)",""}]],

Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[WB3,"B3",c,a,b]&&Dze[θ,"θ",c,a,b]&&Dnze[WK,"(OverTilde[K])",c,a,b]&&Dnze[WILH6,"WILH6",c,a,b]&&Dze[WILH7,"WILH7",c,a,b]&&Dze[μ0,"μ0",c,a,b]&&Dpo[WILH11,"WILH11",c,a,b]&&Dpo[-μ2,"-μ2",c,a,b]&&Dpo[WK,"(OverTilde[K])",c,a,b]&&Dpo[WL,"(OverTilde[L])",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(OverTilde[M])=",Factor[WM]},{"(Subscript[B, 3])=",Factor[WB3]},{"θ=",Factor[θ]},{"(OverTilde[K])=",Factor[WK]},{"(Subscript[H, 6])=",Factor[WILH6]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[H, 7])=",Factor[WILH7]},{"(Subscript[H, 11])=",Factor[WILH11]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(OverTilde[L])=",Factor[WL]},"","Portrait 4.12(d)",""}]],

Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[WB3,"B3",c,a,b]&&Dze[θ,"θ",c,a,b]&&Dnze[WK,"(OverTilde[K])",c,a,b]&&Dnze[WILH6,"WILH6",c,a,b]&&Dze[WILH7,"WILH7",c,a,b]&&Dze[μ0,"μ0",c,a,b]&&Dpo[WILH11,"WILH11",c,a,b]&&Dpo[-μ2,"-μ2",c,a,b]&&Dpo[WK,"(OverTilde[K])",c,a,b]&&Dpo[-WL,"-(OverTilde[L])",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(OverTilde[M])=",Factor[WM]},{"(Subscript[B, 3])=",Factor[WB3]},{"θ=",Factor[θ]},{"(OverTilde[K])=",Factor[WK]},{"(Subscript[H, 6])=",Factor[WILH6]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[H, 7])=",Factor[WILH7]},{"(Subscript[H, 11])=",Factor[WILH11]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(OverTilde[L])=",Factor[WL]},"","Portrait 4.12(e)",""}]],

Dpo[η,"η",c,a,b]&&Dnze[WB3,"B3",c,a,b]&&Dze[WB2,"B2",c,a,b]&&Dze[θ,"θ",c,a,b]&&Dnze[μ0,"μ0",c,a,b]&&Dze[WILH7,"WILH7",c,a,b]&&Dnze[WILH9,"WILH9",c,a,b]&&Dpo[-WILH10 WN,"-WILH10 N",c,a,b]&&Dpo[-𝔊2,"-𝔊2",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Subscript[B, 3])=",Factor[WB3]},{"(Subscript[B, 2])=",Factor[WB2]},{"θ=",Factor[θ]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[H, 7])=",Factor[WILH7]},{"(Subscript[H, 9])=",Factor[WILH9]},{"(Subscript[H, 10]) N=",Factor[WILH10 WN]},{"(Subscript[𝔊, 2])=",Factor[𝔊2]},"","Portrait 4.13(a)",""}]],

Dpo[η,"η",c,a,b]&&Dnze[WB3,"B3",c,a,b]&&Dze[WB2,"B2",c,a,b]&&Dze[θ,"θ",c,a,b]&&Dnze[μ0,"μ0",c,a,b]&&Dze[WILH7,"WILH7",c,a,b]&&Dnze[WILH9,"WILH9",c,a,b]&&Dpo[-WILH10 WN,"-WILH10 N",c,a,b]&&Dpo[𝔊2,"𝔊2",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Subscript[B, 3])=",Factor[WB3]},{"(Subscript[B, 2])=",Factor[WB2]},{"θ=",Factor[θ]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[H, 7])=",Factor[WILH7]},{"(Subscript[H, 9])=",Factor[WILH9]},{"(Subscript[H, 10]) N=",Factor[WILH10 WN]},{"(Subscript[𝔊, 2])=",Factor[𝔊2]},"","Portrait 4.13(b)",""}]],

Dpo[η,"η",c,a,b]&&Dnze[WILH4,"WILH4",c,a,b]&&Dnze[WB3,"B3",c,a,b]&&Dze[WB2,"B2",c,a,b]&&Dze[WN,"(OverTilde[N])",c,a,b]&&Dpo[-WILH8,"-WILH8",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Subscript[H, 4])=",Factor[WILH4]},{"(Subscript[B, 3])=",Factor[WB3]},{"(Subscript[B, 2])=",Factor[WB2]},{"(OverTilde[N])=",Factor[WN]},{"(Subscript[H, 8])=",Factor[WILH8]},"","Portrait 4.13(b)",""}]],

Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dnze[WB3,"B3",c,a,b]&&Dze[WB2,"B2",c,a,b]&&Dze[θ,"θ",c,a,b]&&Dnze[μ0,"μ0",c,a,b]&&Dze[WILH7,"WILH7",c,a,b]&&Dpo[-WILH10,"-WILH10",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(OverTilde[M])=",Factor[WM]},{"(Subscript[B, 3])=",Factor[WB3]},{"(Subscript[B, 2])=",Factor[WB2]},{"θ=",Factor[θ]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[H, 7])=",Factor[WILH7]},{"(Subscript[H, 10])=",Factor[WILH10]},"","Portrait 4.14",""}]],

Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[WB3,"B3",c,a,b]&&Dze[θ,"θ",c,a,b]&&Dnze[WK,"(OverTilde[K])",c,a,b]&&Dnze[WILH6,"WILH6",c,a,b]&&Dze[μ0,"μ0",c,a,b]&&Dze[WILH7,"WILH7",c,a,b]&&Dpo[-WILH11,"-WILH11",c,a,b]&&Dpo[WL,"(OverTilde[L])",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(OverTilde[M])=",Factor[WM]},{"(Subscript[B, 3])=",Factor[WB3]},{"θ=",Factor[θ]},{"(OverTilde[K])=",Factor[WK]},{"(Subscript[H, 6])=",Factor[WILH6]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[H, 7])=",Factor[WILH7]},{"(Subscript[H, 11])=",Factor[WILH11]},{"(OverTilde[L])=",Factor[WL]},"","Portrait 4.15(a)",""}]],

Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[WB3,"B3",c,a,b]&&Dze[θ,"θ",c,a,b]&&Dnze[WK,"(OverTilde[K])",c,a,b]&&Dnze[WILH6,"WILH6",c,a,b]&&Dze[μ0,"μ0",c,a,b]&&Dze[WILH7,"WILH7",c,a,b]&&Dpo[-WILH11,"-WILH11",c,a,b]&&Dpo[-WL,"-(OverTilde[L])",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(OverTilde[M])=",Factor[WM]},{"(Subscript[B, 3])=",Factor[WB3]},{"θ=",Factor[θ]},{"(OverTilde[K])=",Factor[WK]},{"(Subscript[H, 6])=",Factor[WILH6]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[H, 7])=",Factor[WILH7]},{"(Subscript[H, 11])=",Factor[WILH11]},{"(OverTilde[L])=",Factor[WL]},"","Portrait 4.15(b)",""}]],

Dpo[η,"η",c,a,b]&&Dnze[WB3,"B3",c,a,b]&&Dze[WB2,"B2",c,a,b]&&Dze[θ,"θ",c,a,b]&&Dze[μ0,"μ0",c,a,b]&&Dze[WILH7,"WILH7",c,a,b]&&Dnze[WILH9,"WILH9",c,a,b]&&Dpo[𝔊2,"𝔊2",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Subscript[B, 3])=",Factor[WB3]},{"(Subscript[B, 2])=",Factor[WB2]},{"θ=",Factor[θ]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[H, 7])=",Factor[WILH7]},{"(Subscript[H, 9])=",Factor[WILH9]},{"(Subscript[𝔊, 2])=",Factor[𝔊2]},"","Portrait 4.16(a)",""}]],

Dpo[η,"η",c,a,b]&&Dnze[WB3,"B3",c,a,b]&&Dze[WB2,"B2",c,a,b]&&Dze[θ,"θ",c,a,b]&&Dze[μ0,"μ0",c,a,b]&&Dze[WILH7,"WILH7",c,a,b]&&Dnze[WILH9,"WILH9",c,a,b]&&Dpo[-𝔊2,"-𝔊2",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Subscript[B, 3])=",Factor[WB3]},{"(Subscript[B, 2])=",Factor[WB2]},{"θ=",Factor[θ]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[H, 7])=",Factor[WILH7]},{"(Subscript[H, 9])=",Factor[WILH9]},{"(Subscript[𝔊, 2])=",Factor[𝔊2]},"","Portrait 4.16(b)",""}]],

Dpo[η,"η",c,a,b]&&Dnze[WB3,"B3",c,a,b]&&Dze[WB2,"B2",c,a,b]&&Dze[θ,"θ",c,a,b]&&Dze[μ0,"μ0",c,a,b]&&Dze[WILH7,"WILH7",c,a,b]&&Dze[WILH9,"WILH9",c,a,b]&&Dnze[WILH10,"WILH10",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Subscript[B, 3])=",Factor[WB3]},{"(Subscript[B, 2])=",Factor[WB2]},{"θ=",Factor[θ]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[H, 7])=",Factor[WILH7]},{"(Subscript[H, 9])=",Factor[WILH9]},{"(Subscript[H, 10])=",Factor[WILH10]},"","Portrait 4.17",""}]],

Dpo[η,"η",c,a,b]&&Dze[WB3,"B3",c,a,b]&&Dze[θ,"θ",c,a,b]&&Dze[μ0,"μ0",c,a,b]&&Dnze[WILH7,"WILH7",c,a,b]&&Dpo[μ2 WL,"μ2 L",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Subscript[B, 3])=",Factor[WB3]},{"θ=",Factor[θ]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[H, 7])=",Factor[WILH7]},{"(Subscript[μ, 2]) (OverTilde[L])=",Factor[μ2 WL]},"","Portrait 4.18(a)",""}]],

Dpo[η,"η",c,a,b]&&Dze[WB3,"B3",c,a,b]&&Dze[θ,"θ",c,a,b]&&Dze[μ0,"μ0",c,a,b]&&Dnze[WILH7,"WILH7",c,a,b]&&Dpo[-μ2 WL,"-μ2 L",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Subscript[B, 3])=",Factor[WB3]},{"θ=",Factor[θ]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[H, 7])=",Factor[WILH7]},{"(Subscript[μ, 2]) (OverTilde[L])=",Factor[μ2 WL]},"","Portrait 4.18(b)",""}]],

Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[WB3,"B3",c,a,b]&&Dze[θ,"θ",c,a,b]&&Dze[WK,"(OverTilde[K])",c,a,b]&&Dnze[WN,"(OverTilde[N])",c,a,b]&&Dnze[WILH6,"WILH6",c,a,b]&&Dze[μ0,"μ0",c,a,b]&&Dze[WILH7,"WILH7",c,a,b]&&Dnze[WILH11,"WILH11",c,a,b]&&Dpo[-μ3 WK1,"-μ3 K1",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(OverTilde[M])=",Factor[WM]},{"(Subscript[B, 3])=",Factor[WB3]},{"θ=",Factor[θ]},{"(OverTilde[K])=",Factor[WK]},{"(OverTilde[N])=",Factor[WN]},{"(Subscript[H, 6])=",Factor[WILH6]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[H, 7])=",Factor[WILH7]},{"(Subscript[H, 11])=",Factor[WILH11]},{"(Subscript[μ, 3]) (Subscript[K, 1])=",Factor[μ3 WK1]},"","Portrait 4.19(a)",""}]],

Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[WB3,"B3",c,a,b]&&Dze[θ,"θ",c,a,b]&&Dze[WK,"(OverTilde[K])",c,a,b]&&Dnze[WN,"(OverTilde[N])",c,a,b]&&Dnze[WILH6,"WILH6",c,a,b]&&Dze[μ0,"μ0",c,a,b]&&Dze[WILH7,"WILH7",c,a,b]&&Dnze[WILH11,"WILH11",c,a,b]&&Dpo[μ3 WK1,"μ3 K1",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(OverTilde[M])=",Factor[WM]},{"(Subscript[B, 3])=",Factor[WB3]},{"θ=",Factor[θ]},{"(OverTilde[K])=",Factor[WK]},{"(OverTilde[N])=",Factor[WN]},{"(Subscript[H, 6])=",Factor[WILH6]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[H, 7])=",Factor[WILH7]},{"(Subscript[H, 11])=",Factor[WILH11]},{"(Subscript[μ, 3]) (Subscript[K, 1])=",Factor[μ3 WK1]},"","Portrait 4.19(b)",""}]],

Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[WB3,"B3",c,a,b]&&Dnze[θ,"θ",c,a,b]&&Dze[WILH7,"WILH7",c,a,b]&&Dze[(OverTilde[D]),"(OverTilde[D])",c,a,b]&&Dpo[μ0,"μ0",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(OverTilde[M])=",Factor[WM]},{"(Subscript[B, 3])=",Factor[WB3]},{"θ=",Factor[θ]},{"(Subscript[H, 7])=",Factor[WILH7]},{"(OverTilde[D])=",Factor[(OverTilde[D])]},{"(Subscript[μ, 0])=",Factor[μ0]},"","Portrait 4.20(a)",""}]],

Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[WB3,"B3",c,a,b]&&Dnze[θ,"θ",c,a,b]&&Dze[WILH7,"WILH7",c,a,b]&&Dze[(OverTilde[D]),"(OverTilde[D])",c,a,b]&&Dpo[-μ0,"-μ0",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(OverTilde[M])=",Factor[WM]},{"(Subscript[B, 3])=",Factor[WB3]},{"θ=",Factor[θ]},{"(Subscript[H, 7])=",Factor[WILH7]},{"(OverTilde[D])=",Factor[(OverTilde[D])]},{"(Subscript[μ, 0])=",Factor[μ0]},"","Portrait 4.20(b)",""}]],

Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[WB3,"B3",c,a,b]&&Dnze[θ,"θ",c,a,b]&&Dze[WILH7,"WILH7",c,a,b]&&Dnze[(OverTilde[D]),"(OverTilde[D])",c,a,b]&&Dpo[μ0,"μ0",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(OverTilde[M])=",Factor[WM]},{"(Subscript[B, 3])=",Factor[WB3]},{"θ=",Factor[θ]},{"(Subscript[H, 7])=",Factor[WILH7]},{"(OverTilde[D])=",Factor[(OverTilde[D])]},{"(Subscript[μ, 0])=",Factor[μ0]},"","Portrait 4.21(a)",""}]],

Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[WB3,"B3",c,a,b]&&Dnze[θ,"θ",c,a,b]&&Dze[WILH7,"WILH7",c,a,b]&&Dnze[(OverTilde[D]),"(OverTilde[D])",c,a,b]&&Dpo[-μ0,"-μ0",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(OverTilde[M])=",Factor[WM]},{"(Subscript[B, 3])=",Factor[WB3]},{"θ=",Factor[θ]},{"(Subscript[H, 7])=",Factor[WILH7]},{"(OverTilde[D])=",Factor[(OverTilde[D])]},{"(Subscript[μ, 0])=",Factor[μ0]},"","Portrait 4.21(b)",""}]],

Dpo[η,"η",c,a,b]&&Dnze[WB3,"B3",c,a,b]&&Dze[WB2,"B2",c,a,b]&&Dze[θ,"θ",c,a,b]&&Dnze[μ0,"μ0",c,a,b]&&Dnze[WN,"(OverTilde[N])",c,a,b]&&Dze[WILH7,"WILH7",c,a,b]&&Dze[WILH10,"WILH10",c,a,b]&&Dpo[WILH1,"WILH1",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Subscript[B, 3])=",Factor[WB3]},{"(Subscript[B, 2])=",Factor[WB2]},{"θ=",Factor[θ]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(OverTilde[N])=",Factor[WN]},{"(Subscript[H, 7])=",Factor[WILH7]},{"(Subscript[H, 10])=",Factor[WILH10]},{"(Subscript[H, 1])=",Factor[WILH1]},"","Portrait 4.22(a)",""}]],

Dpo[η,"η",c,a,b]&&Dnze[WB3,"B3",c,a,b]&&Dze[WB2,"B2",c,a,b]&&Dze[θ,"θ",c,a,b]&&Dnze[μ0,"μ0",c,a,b]&&Dnze[WN,"(OverTilde[N])",c,a,b]&&Dze[WILH7,"WILH7",c,a,b]&&Dze[WILH10,"WILH10",c,a,b]&&Dpo[-WILH1,"-WILH1",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Subscript[B, 3])=",Factor[WB3]},{"(Subscript[B, 2])=",Factor[WB2]},{"θ=",Factor[θ]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(OverTilde[N])=",Factor[WN]},{"(Subscript[H, 7])=",Factor[WILH7]},{"(Subscript[H, 10])=",Factor[WILH10]},{"(Subscript[H, 1])=",Factor[WILH1]},"","Portrait 4.22(b)",""}]],

Dpo[η,"η",c,a,b]&&Dnze[WB3,"B3",c,a,b]&&Dnze[WILH4,"WILH4",c,a,b]&&Dze[WB2,"B2",c,a,b]&&Dze[WN,"(OverTilde[N])",c,a,b]&&Dze[WILH8,"WILH8",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Subscript[B, 3])=",Factor[WB3]},{"(Subscript[H, 4])=",Factor[WILH4]},{"(Subscript[B, 2])=",Factor[WB2]},{"(OverTilde[N])=",Factor[WN]},{"(Subscript[H, 8])=",Factor[WILH8]},"","Portrait 4.22(b)",""}]],

Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dnze[WB3,"B3",c,a,b]&&Dze[WB2,"B2",c,a,b]&&Dze[θ,"θ",c,a,b]&&Dze[WILH7,"WILH7",c,a,b]&&Dze[WILH10,"WILH10",c,a,b]&&Dnze[μ0,"μ0",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(OverTilde[M])=",Factor[WM]},{"(Subscript[B, 3])=",Factor[WB3]},{"(Subscript[B, 2])=",Factor[WB2]},{"θ=",Factor[θ]},{"(Subscript[H, 7])=",Factor[WILH7]},{"(Subscript[H, 10])=",Factor[WILH10]},{"(Subscript[μ, 0])=",Factor[μ0]},"","Portrait 4.23",""}]],

Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[WB3,"B3",c,a,b]&&Dze[θ,"θ",c,a,b]&&Dnze[WK,"(OverTilde[K])",c,a,b]&&Dnze[WILH6,"WILH6",c,a,b]&&Dze[μ0,"μ0",c,a,b]&&Dze[WILH7,"WILH7",c,a,b]&&Dnze[WILH11,"WILH11",c,a,b]&&Dpo[WL,"(OverTilde[L])",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(OverTilde[M])=",Factor[WM]},{"(Subscript[B, 3])=",Factor[WB3]},{"θ=",Factor[θ]},{"(OverTilde[K])=",Factor[WK]},{"(Subscript[H, 6])=",Factor[WILH6]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[H, 7])=",Factor[WILH7]},{"(Subscript[H, 11])=",Factor[WILH11]},{"(OverTilde[L])=",Factor[WL]},"","Portrait 4.24(a)",""}]],

Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[WB3,"B3",c,a,b]&&Dze[θ,"θ",c,a,b]&&Dnze[WK,"(OverTilde[K])",c,a,b]&&Dnze[WILH6,"WILH6",c,a,b]&&Dze[μ0,"μ0",c,a,b]&&Dze[WILH7,"WILH7",c,a,b]&&Dnze[WILH11,"WILH11",c,a,b]&&Dpo[-WL,"-(OverTilde[L])",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(OverTilde[M])=",Factor[WM]},{"(Subscript[B, 3])=",Factor[WB3]},{"θ=",Factor[θ]},{"(OverTilde[K])=",Factor[WK]},{"(Subscript[H, 6])=",Factor[WILH6]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[H, 7])=",Factor[WILH7]},{"(Subscript[H, 11])=",Factor[WILH11]},{"(OverTilde[L])=",Factor[WL]},"","Portrait 4.24(b)",""}]],

Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[WB3,"B3",c,a,b]&&Dnze[θ,"θ",c,a,b]&&Dnze[WILH7,"WILH7",c,a,b]&&Dpo[μ0,"μ0",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(OverTilde[M])=",Factor[WM]},{"(Subscript[B, 3])=",Factor[WB3]},{"θ=",Factor[θ]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[H, 7])=",Factor[WILH7]},"","Portrait 4.25(a)",""}]],

Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[WB3,"B3",c,a,b]&&Dnze[θ,"θ",c,a,b]&&Dnze[WILH7,"WILH7",c,a,b]&&Dpo[-μ0,"-μ0",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(OverTilde[M])=",Factor[WM]},{"(Subscript[B, 3])=",Factor[WB3]},{"θ=",Factor[θ]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[H, 7])=",Factor[WILH7]},"","Portrait 4.25(b)",""}]],

Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[WB3,"B3",c,a,b]&&Dnze[θ,"θ",c,a,b]&&Dze[μ0,"μ0",c,a,b]&&Dze[WILH7,"WILH7",c,a,b]&&Dnze[(OverTilde[D]),"(OverTilde[D])",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(OverTilde[M])=",Factor[WM]},{"(Subscript[B, 3])=",Factor[WB3]},{"θ=",Factor[θ]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[H, 7])=",Factor[WILH7]},{"(OverTilde[D])=",Factor[(OverTilde[D])]},"","Portrait 4.26",""}]],

Dpo[-η,"-η",c,a,b]&&Dze[WB3,"B3",c,a,b]&&Dze[θ,"θ",c,a,b]&&Dnze[WN,"(OverTilde[N])",c,a,b]&&Dnze[WILH7,"WILH7",c,a,b]&&Dnze[𝔊1,"𝔊1",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Subscript[B, 3])=",Factor[WB3]},{"θ=",Factor[θ]},{"(OverTilde[N])=",Factor[WN]},{"(Subscript[H, 7])=",Factor[WILH7]},{"(Subscript[𝔊, 1])=",Factor[𝔊1]},"","Portrait 4.27(a)",""}]],

Dpo[-η,"-η",c,a,b]&&Dze[WB3,"B3",c,a,b]&&Dze[θ,"θ",c,a,b]&&Dnze[WN,"(OverTilde[N])",c,a,b]&&Dnze[WILH7,"WILH7",c,a,b]&&Dze[𝔊1,"𝔊1",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Subscript[B, 3])=",Factor[WB3]},{"θ=",Factor[θ]},{"(OverTilde[N])=",Factor[WN]},{"(Subscript[H, 7])=",Factor[WILH7]},{"(Subscript[𝔊, 1])=",Factor[𝔊1]},"","Portrait 4.27(b)",""}]],

Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[WB3,"B3",c,a,b]&&Dze[θ,"θ",c,a,b]&&Dze[μ0,"μ0",c,a,b]&&Dze[WN,"(OverTilde[N])",c,a,b]&&Dze[WK,"(OverTilde[K])",c,a,b]&&Dnze[WN1 WN2,"N1 N2",c,a,b]&&Dpo[WN5,"N5",c,a,b]&&Dnze[(OverTilde[D]),"(OverTilde[D])",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(OverTilde[M])=",Factor[WM]},{"(Subscript[B, 3])=",Factor[WB3]},{"θ=",Factor[θ]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(OverTilde[N])=",Factor[WN]},{"(OverTilde[K])=",Factor[WK]},{"(Subscript[N, 1]) (Subscript[N, 2])=",Factor[WN1 WN2]},{"(Subscript[N, 5])=",Factor[WN5]},{"(OverTilde[D])=",Factor[(OverTilde[D])]},"","Portrait 4.28",""}]],

Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[WB3,"B3",c,a,b]&&Dze[θ,"θ",c,a,b]&&Dze[μ0,"μ0",c,a,b]&&Dze[WN,"(OverTilde[N])",c,a,b]&&Dze[WK,"(OverTilde[K])",c,a,b]&&Dnze[WN1 WN2,"N1 N2",c,a,b]&&Dpo[WN5,"N5",c,a,b]&&Dze[(OverTilde[D]),"(OverTilde[D])",c,a,b]&&Dpo[μ4,"μ4",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(OverTilde[M])=",Factor[WM]},{"(Subscript[B, 3])=",Factor[WB3]},{"θ=",Factor[θ]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(OverTilde[N])=",Factor[WN]},{"(OverTilde[K])=",Factor[WK]},{"(Subscript[N, 1]) (Subscript[N, 2])=",Factor[WN1 WN2]},{"(Subscript[N, 5])=",Factor[WN5]},{"(OverTilde[D])=",Factor[(OverTilde[D])]},{"(Subscript[μ, 4])=",Factor[μ4]},"","Portrait 4.29(a)",""}]],

Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[WB3,"B3",c,a,b]&&Dze[θ,"θ",c,a,b]&&Dze[μ0,"μ0",c,a,b]&&Dze[WN,"(OverTilde[N])",c,a,b]&&Dze[WK,"(OverTilde[K])",c,a,b]&&Dnze[WN1 WN2,"N1 N2",c,a,b]&&Dpo[WN5,"N5",c,a,b]&&Dze[(OverTilde[D]),"(OverTilde[D])",c,a,b]&&Dpo[-μ4,"-μ4",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(OverTilde[M])=",Factor[WM]},{"(Subscript[B, 3])=",Factor[WB3]},{"θ=",Factor[θ]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(OverTilde[N])=",Factor[WN]},{"(OverTilde[K])=",Factor[WK]},{"(Subscript[N, 1]) (Subscript[N, 2])=",Factor[WN1 WN2]},{"(Subscript[N, 5])=",Factor[WN5]},{"(OverTilde[D])=",Factor[(OverTilde[D])]},{"(Subscript[μ, 4])=",Factor[μ4]},"","Portrait 4.29(b)",""}]],

Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dnze[WB3,"B3",c,a,b]&&Dze[WB2,"B2",c,a,b]&&Dze[θ,"θ",c,a,b]&&Dze[μ0,"μ0",c,a,b]&&Dnze[WN,"(OverTilde[N])",c,a,b]&&Dze[WILH7,"WILH7",c,a,b]&&Dze[WILH6,"WILH6",c,a,b]&&Dnze[WK,"(OverTilde[K])",c,a,b]&&Dnze[WILH11,"WILH11",c,a,b]&&Dpo[μ2,"μ2",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(OverTilde[M])=",Factor[WM]},{"(Subscript[B, 3])=",Factor[WB3]},{"(Subscript[B, 2])=",Factor[WB2]},{"θ=",Factor[θ]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(OverTilde[N])=",Factor[WN]},{"(Subscript[H, 7])=",Factor[WILH7]},{"(Subscript[H, 6])=",Factor[WILH6]},{"(OverTilde[K])=",Factor[WK]},{"(Subscript[H, 11])=",Factor[WILH11]},{"(Subscript[μ, 2])=",Factor[μ2]},"","Portrait 4.30(a)",""}]],

Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dnze[WB3,"B3",c,a,b]&&Dze[WB2,"B2",c,a,b]&&Dze[θ,"θ",c,a,b]&&Dze[μ0,"μ0",c,a,b]&&Dnze[WN,"(OverTilde[N])",c,a,b]&&Dze[WILH7,"WILH7",c,a,b]&&Dze[WILH6,"WILH6",c,a,b]&&Dnze[WK,"(OverTilde[K])",c,a,b]&&Dnze[WILH11,"WILH11",c,a,b]&&Dpo[-μ2,"-μ2",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(OverTilde[M])=",Factor[WM]},{"(Subscript[B, 3])=",Factor[WB3]},{"(Subscript[B, 2])=",Factor[WB2]},{"θ=",Factor[θ]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(OverTilde[N])=",Factor[WN]},{"(Subscript[H, 7])=",Factor[WILH7]},{"(Subscript[H, 6])=",Factor[WILH6]},{"(OverTilde[K])=",Factor[WK]},{"(Subscript[H, 11])=",Factor[WILH11]},{"(Subscript[μ, 2])=",Factor[μ2]},"","Portrait 4.30(b)",""}]],

Dze[η,"η",c,a,b]&&Dze[WM,"(OverTilde[M])",c,a,b]&&Dze[WB3,"B3",c,a,b]&&Dze[θ,"θ",c,a,b]&&Dnze[WN,"(OverTilde[N])",c,a,b]&&Dnze[WN6,"N6",c,a,b]&&Dnze[WILH11,"WILH11",c,a,b]&&Dpo[WK3,"K3",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(OverTilde[M])=",Factor[WM]},{"(Subscript[B, 3])=",Factor[WB3]},{"θ=",Factor[θ]},{"(OverTilde[N])=",Factor[WN]},{"(Subscript[N, 6])=",Factor[WN6]},{"(Subscript[H, 11])=",Factor[WILH11]},{"(Subscript[K, 3])=",Factor[WK3]},"","Portrait 4.31(a)",""}]],

Dze[η,"η",c,a,b]&&Dze[WM,"(OverTilde[M])",c,a,b]&&Dze[WB3,"B3",c,a,b]&&Dze[θ,"θ",c,a,b]&&Dnze[WN,"(OverTilde[N])",c,a,b]&&Dnze[WN6,"N6",c,a,b]&&Dnze[WILH11,"WILH11",c,a,b]&&Dpo[-WK3,"-K3",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(OverTilde[M])=",Factor[WM]},{"(Subscript[B, 3])=",Factor[WB3]},{"θ=",Factor[θ]},{"(OverTilde[N])=",Factor[WN]},{"(Subscript[N, 6])=",Factor[WN6]},{"(Subscript[H, 11])=",Factor[WILH11]},{"(Subscript[K, 3])=",Factor[WK3]},"","Portrait 4.31(b)",""}]],

Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[WB3,"B3",c,a,b]&&Dze[θ,"θ",c,a,b]&&Dze[μ0,"μ0",c,a,b]&&Dze[WN,"(OverTilde[N])",c,a,b]&&Dze[WK,"(OverTilde[K])",c,a,b]&&Dnze[WN1 WN2,"N1 N2",c,a,b]&&Dnze[(OverTilde[D]),"(OverTilde[D])",c,a,b]&&Dpo[-WN5,"-N5",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(OverTilde[M])=",Factor[WM]},{"(Subscript[B, 3])=",Factor[WB3]},{"θ=",Factor[θ]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(OverTilde[N])=",Factor[WN]},{"(OverTilde[K])=",Factor[WK]},{"(Subscript[N, 1]) (Subscript[N, 2])=",Factor[WN1 WN2]},{"(OverTilde[D])=",Factor[(OverTilde[D])]},{"(Subscript[N, 5])=",Factor[WN5]},"","Portrait 4.32",""}]],

Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[WB3,"B3",c,a,b]&&Dze[θ,"θ",c,a,b]&&Dze[μ0,"μ0",c,a,b]&&Dze[WN,"(OverTilde[N])",c,a,b]&&Dze[WK,"(OverTilde[K])",c,a,b]&&Dnze[WN1 WN2,"N1 N2",c,a,b]&&Dze[(OverTilde[D]),"(OverTilde[D])",c,a,b]&&Dpo[-WN5,"-N5",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(OverTilde[M])=",Factor[WM]},{"(Subscript[B, 3])=",Factor[WB3]},{"θ=",Factor[θ]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(OverTilde[N])=",Factor[WN]},{"(OverTilde[K])=",Factor[WK]},{"(Subscript[N, 1]) (Subscript[N, 2])=",Factor[WN1 WN2]},{"(OverTilde[D])=",Factor[(OverTilde[D])]},{"(Subscript[N, 5])=",Factor[WN5]},"","Portrait 4.33",""}]],

Dpo[η,"η",c,a,b]&&Dnze[WB3,"B3",c,a,b]&&Dze[WB2,"B2",c,a,b]&&Dze[θ,"θ",c,a,b]&&Dze[μ0,"μ0",c,a,b]&&Dze[WILH7,"WILH7",c,a,b]&&Dze[WILH9,"WILH9",c,a,b]&&Dze[WILH10,"WILH10",c,a,b]&&Dpo[-WILH4,"-WILH4",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Subscript[B, 3])=",Factor[WB3]},{"(Subscript[B, 2])=",Factor[WB2]},{"θ=",Factor[θ]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[H, 7])=",Factor[WILH7]},{"(Subscript[H, 9])=",Factor[WILH9]},{"(Subscript[H, 10])=",Factor[WILH10]},{"(Subscript[H, 4])=",Factor[WILH4]},"","Portrait 4.34(a)",""}]],

Dpo[η,"η",c,a,b]&&Dnze[WB3,"B3",c,a,b]&&Dze[WB2,"B2",c,a,b]&&Dze[θ,"θ",c,a,b]&&Dze[μ0,"μ0",c,a,b]&&Dze[WILH7,"WILH7",c,a,b]&&Dze[WILH9,"WILH9",c,a,b]&&Dze[WILH10,"WILH10",c,a,b]&&Dpo[WILH4,"WILH4",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Subscript[B, 3])=",Factor[WB3]},{"(Subscript[B, 2])=",Factor[WB2]},{"θ=",Factor[θ]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[H, 7])=",Factor[WILH7]},{"(Subscript[H, 9])=",Factor[WILH9]},{"(Subscript[H, 10])=",Factor[WILH10]},{"(Subscript[H, 4])=",Factor[WILH4]},"","Portrait 4.34(b)",""}]],

Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[WB3,"B3",c,a,b]&&Dze[θ,"θ",c,a,b]&&Dze[μ0,"μ0",c,a,b]&&Dnze[WN,"(OverTilde[N])",c,a,b]&&Dnze[WILH7,"WILH7",c,a,b]&&Dpo[μ3 WK1,"μ3 K1",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(OverTilde[M])=",Factor[WM]},{"(Subscript[B, 3])=",Factor[WB3]},{"θ=",Factor[θ]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(OverTilde[N])=",Factor[WN]},{"(Subscript[H, 7])=",Factor[WILH7]},{"(Subscript[μ, 3]) (Subscript[K, 1])=",Factor[μ3 WK1]},"","Portrait 4.35(a)",""}]],

Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[WB3,"B3",c,a,b]&&Dze[θ,"θ",c,a,b]&&Dze[μ0,"μ0",c,a,b]&&Dnze[WN,"(OverTilde[N])",c,a,b]&&Dnze[WILH7,"WILH7",c,a,b]&&Dpo[-μ3 WK1,"-μ3 K1",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(OverTilde[M])=",Factor[WM]},{"(Subscript[B, 3])=",Factor[WB3]},{"θ=",Factor[θ]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(OverTilde[N])=",Factor[WN]},{"(Subscript[H, 7])=",Factor[WILH7]},{"(Subscript[μ, 3]) (Subscript[K, 1])=",Factor[μ3 WK1]},"","Portrait 4.35(b)",""}]],

Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[WB3,"B3",c,a,b]&&Dze[θ,"θ",c,a,b]&&Dze[WK,"(OverTilde[K])",c,a,b]&&Dnze[WN WILH6,"(OverTilde[N]) WILH6",c,a,b]&&Dze[μ0,"μ0",c,a,b]&&Dze[WILH7,"WILH7",c,a,b]&&Dze[WILH11,"WILH11",c,a,b]&&Dpo[-κ2,"-κ2",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(OverTilde[M])=",Factor[WM]},{"(Subscript[B, 3])=",Factor[WB3]},{"θ=",Factor[θ]},{"(OverTilde[K])=",Factor[WK]},{"(OverTilde[N]) (Subscript[H, 6])=",Factor[WN WILH6]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[H, 7])=",Factor[WILH7]},{"(Subscript[H, 11])=",Factor[WILH11]},{"(Subscript[κ, 2])=",Factor[κ2]},"","Portrait 4.36(a)",""}]],

Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[WB3,"B3",c,a,b]&&Dze[θ,"θ",c,a,b]&&Dze[WK,"(OverTilde[K])",c,a,b]&&Dnze[WN WILH6,"(OverTilde[N]) WILH6",c,a,b]&&Dze[μ0,"μ0",c,a,b]&&Dze[WILH7,"WILH7",c,a,b]&&Dze[WILH11,"WILH11",c,a,b]&&Dpo[κ2,"κ2",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(OverTilde[M])=",Factor[WM]},{"(Subscript[B, 3])=",Factor[WB3]},{"θ=",Factor[θ]},{"(OverTilde[K])=",Factor[WK]},{"(OverTilde[N]) (Subscript[H, 6])=",Factor[WN WILH6]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[H, 7])=",Factor[WILH7]},{"(Subscript[H, 11])=",Factor[WILH11]},{"(Subscript[κ, 2])=",Factor[κ2]},"","Portrait 4.36(b)",""}]],

Dze[η,"η",c,a,b]&&Dze[WM,"(OverTilde[M])",c,a,b]&&Dze[WB3,"B3",c,a,b]&&Dze[θ,"θ",c,a,b]&&Dze[WN,"(OverTilde[N])",c,a,b]&&Dnze[WN3 WD1,"N3 D1",c,a,b]&&Dnze[WN6,"N6",c,a,b]&&Dnze[(OverTilde[D]),"(OverTilde[D])",c,a,b]&&Dpo[μ3 WK1,"μ3 K1",c,a,b]&&Dpo[WK3,"K3",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(OverTilde[M])=",Factor[WM]},{"(Subscript[B, 3])=",Factor[WB3]},{"θ=",Factor[θ]},{"(OverTilde[N])=",Factor[WN]},{"(Subscript[N, 3]) (Subscript[D, 1])=",Factor[WN3 WD1]},{"(Subscript[N, 6])=",Factor[WN6]},{"(OverTilde[D])=",Factor[(OverTilde[D])]},{"(Subscript[μ, 3]) (Subscript[K, 1])=",Factor[μ3 WK1]},{"(Subscript[K, 3])=",Factor[WK3]},"","Portrait 4.37(a)",""}]],

Dze[η,"η",c,a,b]&&Dze[WM,"(OverTilde[M])",c,a,b]&&Dze[WB3,"B3",c,a,b]&&Dze[θ,"θ",c,a,b]&&Dze[WN,"(OverTilde[N])",c,a,b]&&Dnze[WN3 WD1,"N3 D1",c,a,b]&&Dnze[WN6,"N6",c,a,b]&&Dnze[(OverTilde[D]),"(OverTilde[D])",c,a,b]&&Dpo[μ3 WK1,"μ3 K1",c,a,b]&&Dze[WK3,"K3",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(OverTilde[M])=",Factor[WM]},{"(Subscript[B, 3])=",Factor[WB3]},{"θ=",Factor[θ]},{"(OverTilde[N])=",Factor[WN]},{"(Subscript[N, 3]) (Subscript[D, 1])=",Factor[WN3 WD1]},{"(Subscript[N, 6])=",Factor[WN6]},{"(OverTilde[D])=",Factor[(OverTilde[D])]},{"(Subscript[μ, 3]) (Subscript[K, 1])=",Factor[μ3 WK1]},{"(Subscript[K, 3])=",Factor[WK3]},"","Portrait 4.37(a)",""}]],

Dze[η,"η",c,a,b]&&Dze[WM,"(OverTilde[M])",c,a,b]&&Dze[WB3,"B3",c,a,b]&&Dze[θ,"θ",c,a,b]&&Dze[WN,"(OverTilde[N])",c,a,b]&&Dnze[WN3 WD1,"N3 D1",c,a,b]&&Dnze[WN6,"N6",c,a,b]&&Dnze[(OverTilde[D]),"(OverTilde[D])",c,a,b]&&Dpo[μ3 WK1,"μ3 K1",c,a,b]&&Dpo[-WK3,"-K3",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(OverTilde[M])=",Factor[WM]},{"(Subscript[B, 3])=",Factor[WB3]},{"θ=",Factor[θ]},{"(OverTilde[N])=",Factor[WN]},{"(Subscript[N, 3]) (Subscript[D, 1])=",Factor[WN3 WD1]},{"(Subscript[N, 6])=",Factor[WN6]},{"(OverTilde[D])=",Factor[(OverTilde[D])]},{"(Subscript[μ, 3]) (Subscript[K, 1])=",Factor[μ3 WK1]},{"(Subscript[K, 3])=",Factor[WK3]},"","Portrait 4.37(b)",""}]],

Dze[η,"η",c,a,b]&&Dze[WM,"(OverTilde[M])",c,a,b]&&Dze[WB3,"B3",c,a,b]&&Dze[θ,"θ",c,a,b]&&Dze[WN,"(OverTilde[N])",c,a,b]&&Dnze[WN3 WD1,"N3 D1",c,a,b]&&Dnze[WN6,"N6",c,a,b]&&Dnze[(OverTilde[D]),"(OverTilde[D])",c,a,b]&&Dpo[-μ3 WK1,"-μ3 K1",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(OverTilde[M])=",Factor[WM]},{"(Subscript[B, 3])=",Factor[WB3]},{"θ=",Factor[θ]},{"(OverTilde[N])=",Factor[WN]},{"(Subscript[N, 3]) (Subscript[D, 1])=",Factor[WN3 WD1]},{"(Subscript[N, 6])=",Factor[WN6]},{"(OverTilde[D])=",Factor[(OverTilde[D])]},{"(Subscript[μ, 3]) (Subscript[K, 1])=",Factor[μ3 WK1]},"","Portrait 4.37(c)",""}]],

Dze[η,"η",c,a,b]&&Dze[WM,"(OverTilde[M])",c,a,b]&&Dze[WB3,"B3",c,a,b]&&Dze[θ,"θ",c,a,b]&&Dze[WN,"(OverTilde[N])",c,a,b]&&Dnze[WN3 WD1,"N3 D1",c,a,b]&&Dnze[WN6,"N6",c,a,b]&&Dze[(OverTilde[D]),"(OverTilde[D])",c,a,b]&&Dpo[μ4,"μ4",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(OverTilde[M])=",Factor[WM]},{"(Subscript[B, 3])=",Factor[WB3]},{"θ=",Factor[θ]},{"(OverTilde[N])=",Factor[WN]},{"(Subscript[N, 3]) (Subscript[D, 1])=",Factor[WN3 WD1]},{"(Subscript[N, 6])=",Factor[WN6]},{"(OverTilde[D])=",Factor[(OverTilde[D])]},{"(Subscript[μ, 4])=",Factor[μ4]},"","Portrait 4.38(a)",""}]],

Dze[η,"η",c,a,b]&&Dze[WM,"(OverTilde[M])",c,a,b]&&Dze[WB3,"B3",c,a,b]&&Dze[θ,"θ",c,a,b]&&Dze[WN,"(OverTilde[N])",c,a,b]&&Dnze[WN3 WD1,"N3 D1",c,a,b]&&Dnze[WN6,"N6",c,a,b]&&Dze[(OverTilde[D]),"(OverTilde[D])",c,a,b]&&Dpo[-μ4,"-μ4",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(OverTilde[M])=",Factor[WM]},{"(Subscript[B, 3])=",Factor[WB3]},{"θ=",Factor[θ]},{"(OverTilde[N])=",Factor[WN]},{"(Subscript[N, 3]) (Subscript[D, 1])=",Factor[WN3 WD1]},{"(Subscript[N, 6])=",Factor[WN6]},{"(OverTilde[D])=",Factor[(OverTilde[D])]},{"(Subscript[μ, 4])=",Factor[μ4]},"","Portrait 4.38(b)",""}]],

Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[WB3,"B3",c,a,b]&&Dze[θ,"θ",c,a,b]&&Dze[μ0,"μ0",c,a,b]&&Dze[WN,"(OverTilde[N])",c,a,b]&&Dze[WK,"(OverTilde[K])",c,a,b]&&Dnze[WN1 WN2,"N1 N2",c,a,b]&&Dze[WN5,"N5",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(OverTilde[M])=",Factor[WM]},{"(Subscript[B, 3])=",Factor[WB3]},{"θ=",Factor[θ]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(OverTilde[N])=",Factor[WN]},{"(OverTilde[K])=",Factor[WK]},{"(Subscript[N, 1]) (Subscript[N, 2])=",Factor[WN1 WN2]},{"(Subscript[N, 5])=",Factor[WN5]},"","Portrait 4.39",""}]],

Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dnze[WB3,"B3",c,a,b]&&Dze[WB2,"B2",c,a,b]&&Dze[θ,"θ",c,a,b]&&Dze[μ0,"μ0",c,a,b]&&Dnze[WN,"(OverTilde[N])",c,a,b]&&Dze[WILH7,"WILH7",c,a,b]&&Dze[WILH6,"WILH6",c,a,b]&&Dze[WK,"(OverTilde[K])",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(OverTilde[M])=",Factor[WM]},{"(Subscript[B, 3])=",Factor[WB3]},{"(Subscript[B, 2])=",Factor[WB2]},{"θ=",Factor[θ]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(OverTilde[N])=",Factor[WN]},{"(Subscript[H, 7])=",Factor[WILH7]},{"(Subscript[H, 6])=",Factor[WILH6]},{"(OverTilde[K])=",Factor[WK]},"","Portrait 4.40",""}]],

Dze[η,"η",c,a,b]&&Dze[WM,"(OverTilde[M])",c,a,b]&&Dze[WB3,"B3",c,a,b]&&Dnze[θ,"θ",c,a,b]&&Dze[WILH7,"WILH7",c,a,b]&&Dnze[(OverTilde[D]),"(OverTilde[D])",c,a,b]&&Dpo[μ0,"μ0",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(OverTilde[M])=",Factor[WM]},{"(Subscript[B, 3])=",Factor[WB3]},{"θ=",Factor[θ]},{"(Subscript[H, 7])=",Factor[WILH7]},{"(OverTilde[D])=",Factor[(OverTilde[D])]},{"(Subscript[μ, 0])=",Factor[μ0]},"","Portrait 4.41(a)",""}]],

Dze[η,"η",c,a,b]&&Dze[WM,"(OverTilde[M])",c,a,b]&&Dze[WB3,"B3",c,a,b]&&Dnze[θ,"θ",c,a,b]&&Dze[WILH7,"WILH7",c,a,b]&&Dnze[(OverTilde[D]),"(OverTilde[D])",c,a,b]&&Dpo[-μ0,"-μ0",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(OverTilde[M])=",Factor[WM]},{"(Subscript[B, 3])=",Factor[WB3]},{"θ=",Factor[θ]},{"(Subscript[H, 7])=",Factor[WILH7]},{"(OverTilde[D])=",Factor[(OverTilde[D])]},{"(Subscript[μ, 0])=",Factor[μ0]},"","Portrait 4.41(b)",""}]],

Dze[η,"η",c,a,b]&&Dze[WM,"(OverTilde[M])",c,a,b]&&Dze[WB3,"B3",c,a,b]&&Dnze[θ,"θ",c,a,b]&&Dze[WILH7,"WILH7",c,a,b]&&Dze[(OverTilde[D]),"(OverTilde[D])",c,a,b]&&Dpo[μ0,"μ0",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(OverTilde[M])=",Factor[WM]},{"(Subscript[B, 3])=",Factor[WB3]},{"θ=",Factor[θ]},{"(Subscript[H, 7])=",Factor[WILH7]},{"(OverTilde[D])=",Factor[(OverTilde[D])]},{"(Subscript[μ, 0])=",Factor[μ0]},"","Portrait 4.42(a)",""}]],

Dze[η,"η",c,a,b]&&Dze[WM,"(OverTilde[M])",c,a,b]&&Dze[WB3,"B3",c,a,b]&&Dnze[θ,"θ",c,a,b]&&Dze[WILH7,"WILH7",c,a,b]&&Dze[(OverTilde[D]),"(OverTilde[D])",c,a,b]&&Dpo[-μ0,"-μ0",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(OverTilde[M])=",Factor[WM]},{"(Subscript[B, 3])=",Factor[WB3]},{"θ=",Factor[θ]},{"(Subscript[H, 7])=",Factor[WILH7]},{"(OverTilde[D])=",Factor[(OverTilde[D])]},{"(Subscript[μ, 0])=",Factor[μ0]},"","Portrait 4.42(b)",""}]],

Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dnze[WB3,"B3",c,a,b]&&Dze[WB2,"B2",c,a,b]&&Dze[θ,"θ",c,a,b]&&Dze[μ0,"μ0",c,a,b]&&Dnze[WN,"(OverTilde[N])",c,a,b]&&Dze[WILH7,"WILH7",c,a,b]&&Dze[WILH6,"WILH6",c,a,b]&&Dnze[WK,"(OverTilde[K])",c,a,b]&&Dze[WILH11,"WILH11",c,a,b]&&Dpo[-WL,"-(OverTilde[L])",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(OverTilde[M])=",Factor[WM]},{"(Subscript[B, 3])=",Factor[WB3]},{"(Subscript[B, 2])=",Factor[WB2]},{"θ=",Factor[θ]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(OverTilde[N])=",Factor[WN]},{"(Subscript[H, 7])=",Factor[WILH7]},{"(Subscript[H, 6])=",Factor[WILH6]},{"(OverTilde[K])=",Factor[WK]},{"(Subscript[H, 11])=",Factor[WILH11]},{"(OverTilde[L])=",Factor[WL]},"","Portrait 4.43(a)",""}]],

Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dnze[WB3,"B3",c,a,b]&&Dze[WB2,"B2",c,a,b]&&Dze[θ,"θ",c,a,b]&&Dze[μ0,"μ0",c,a,b]&&Dnze[WN,"(OverTilde[N])",c,a,b]&&Dze[WILH7,"WILH7",c,a,b]&&Dze[WILH6,"WILH6",c,a,b]&&Dnze[WK,"(OverTilde[K])",c,a,b]&&Dze[WILH11,"WILH11",c,a,b]&&Dpo[WL,"(OverTilde[L])",c,a,b]&&¬Dpo[-WR,"-R",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(OverTilde[M])=",Factor[WM]},{"(Subscript[B, 3])=",Factor[WB3]},{"(Subscript[B, 2])=",Factor[WB2]},{"θ=",Factor[θ]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(OverTilde[N])=",Factor[WN]},{"(Subscript[H, 7])=",Factor[WILH7]},{"(Subscript[H, 6])=",Factor[WILH6]},{"(OverTilde[K])=",Factor[WK]},{"(Subscript[H, 11])=",Factor[WILH11]},{"(OverTilde[L])=",Factor[WL]},{"R=",Factor[WR]},"","Portrait 4.43(b)",""}]],

Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dnze[WB3,"B3",c,a,b]&&Dze[WB2,"B2",c,a,b]&&Dze[θ,"θ",c,a,b]&&Dze[μ0,"μ0",c,a,b]&Dnze[WN,"(OverTilde[N])",c,a,b]&&Dze[WILH7,"WILH7",c,a,b]&&Dze[WILH6,"WILH6",c,a,b]&&Dnze[WK,"(OverTilde[K])",c,a,b]&&Dze[WILH11,"WILH11",c,a,b]&&Dpo[WL,"(OverTilde[L])",c,a,b]&&Dpo[-WR,"-R",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(OverTilde[M])=",Factor[WM]},{"(Subscript[B, 3])=",Factor[WB3]},{"(Subscript[B, 2])=",Factor[WB2]},{"θ=",Factor[θ]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(OverTilde[N])=",Factor[WN]},{"(Subscript[H, 7])=",Factor[WILH7]},{"(Subscript[H, 6])=",Factor[WILH6]},{"(OverTilde[K])=",Factor[WK]},{"(Subscript[H, 11])=",Factor[WILH11]},{"(OverTilde[L])=",Factor[WL]},{"R=",Factor[WR]},"","Portrait 4.43(c)",""}]],

Dze[η,"η",c,a,b]&&Dze[WM,"(OverTilde[M])",c,a,b]&&Dze[WB3,"B3",c,a,b]&&Dze[θ,"θ",c,a,b]&&Dnze[WN,"(OverTilde[N])",c,a,b]&&Dnze[WN6,"N6",c,a,b]&&Dze[WILH11,"WILH11",c,a,b]&&Dpo[WK3,"K3",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(OverTilde[M])=",Factor[WM]},{"(Subscript[B, 3])=",Factor[WB3]},{"θ=",Factor[θ]},{"(OverTilde[N])=",Factor[WN]},{"(Subscript[N, 6])=",Factor[WN6]},{"(Subscript[H, 11])=",Factor[WILH11]},{"(Subscript[K, 3])=",Factor[WK3]},"","Portrait 4.44(a)",""}]],

Dze[η,"η",c,a,b]&&Dze[WM,"(OverTilde[M])",c,a,b]&&Dze[WB3,"B3",c,a,b]&&Dze[θ,"θ",c,a,b]&&Dnze[WN,"(OverTilde[N])",c,a,b]&&Dnze[WN6,"N6",c,a,b]&&Dze[WILH11,"WILH11",c,a,b]&&Dpo[-WK3,"-K3",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(OverTilde[M])=",Factor[WM]},{"(Subscript[B, 3])=",Factor[WB3]},{"θ=",Factor[θ]},{"(OverTilde[N])=",Factor[WN]},{"(Subscript[N, 6])=",Factor[WN6]},{"(Subscript[H, 11])=",Factor[WILH11]},{"(Subscript[K, 3])=",Factor[WK3]},"","Portrait 4.44(b)",""}]],

Dze[η,"η",c,a,b]&&Dze[WM,"(OverTilde[M])",c,a,b]&&Dze[WB3,"B3",c,a,b]&&Dnze[θ,"θ",c,a,b]&&Dnze[WILH7,"WILH7",c,a,b]&&Dpo[μ0,"μ0",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(OverTilde[M])=",Factor[WM]},{"(Subscript[B, 3])=",Factor[WB3]},{"θ=",Factor[θ]},{"(Subscript[H, 7])=",Factor[WILH7]},{"(Subscript[μ, 0])=",Factor[μ0]},"","Portrait 4.45(a)",""}]],

Dze[η,"η",c,a,b]&&Dze[WM,"(OverTilde[M])",c,a,b]&&Dze[WB3,"B3",c,a,b]&&Dnze[θ,"θ",c,a,b]&&Dnze[WILH7,"WILH7",c,a,b]&&Dpo[-μ0,"-μ0",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(OverTilde[M])=",Factor[WM]},{"(Subscript[B, 3])=",Factor[WB3]},{"θ=",Factor[θ]},{"(Subscript[H, 7])=",Factor[WILH7]},{"(Subscript[μ, 0])=",Factor[μ0]},"","Portrait 4.45(b)",""}]],

Dze[η,"η",c,a,b]&&Dze[WM,"(OverTilde[M])",c,a,b]&&Dze[WB3,"B3",c,a,b]&&Dze[θ,"θ",c,a,b]&&Dze[WN,"(OverTilde[N])",c,a,b]&&Dnze[WN3 WD1,"N3 D1",c,a,b]&&Dze[WN6,"N6",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(OverTilde[M])=",Factor[WM]},{"(Subscript[B, 3])=",Factor[WB3]},{"θ=",Factor[θ]},{"(OverTilde[N])=",Factor[WN]},{"(Subscript[N, 3]) (Subscript[D, 1])=",Factor[WN3 WD1]},{"(Subscript[N, 6])=",Factor[WN6]},"","Portrait 4.46",""}]],

True,Print2["The system has less than 4 invariant lines"]
]}

centers uses the Vulpe GL-Invariants to determine if a parametrized system has a center and which type. The set "c" are the equalities know among the parameters, "a" corresponds to expressions known to be positive and "b" to expressions known to be different from zero.

printceninv:=Print2[Column[{{"I1=",Factor[v[[1]]]},{"I2=",Factor[v[[2]]]},{"I3=",Factor[v[[3]]]},{"I4=",Factor[v[[4]]]},{"I5=",Factor[v[[5]]]},{"I6=",Factor[v[[6]]]},{"I7=",Factor[v[[7]]]},{"I8=",Factor[v[[8]]]},{"I9=",Factor[v[[9]]]},{"I10=",Factor[v[[10]]]},{"I13=",Factor[v[[11]]]},{"I16=",Factor[v[[12]]]},{"α=",Factor[v[[13]]]},{"β=",Factor[v[[14]]]},{"γ=",Factor[v[[15]]]}}]];

printCenInv:=Print2[Column[{{"I1=",Factor[v[[1]]]},{"I2=",Factor[v[[2]]]},{"I3=",Factor[v[[3]]]},{"I4=",Factor[v[[4]]]},{"I5=",Factor[v[[5]]]},{"I6=",Factor[v[[6]]]},{"I7=",Factor[v[[7]]]},{"I8=",Factor[v[[8]]]},{"I9=",Factor[v[[9]]]},{"I10=",Factor[v[[10]]]},{"I13=",Factor[v[[11]]]},{"I16=",Factor[v[[12]]]},{"α=",Factor[v[[13]]]},{"β=",Factor[v[[14]]]},{"γ=",Factor[v[[15]]]}}]];

centers[c_,a_,b_]:=If[Dze[vartes,"vartes",c,a,b]&&Dze[v[[1]],"v[[1]]",c,a,b]&&Dze[v[[6]],"v[[6]]",c,a,b]&&Dpo[-v[[2]],"-v[[2]]",c,a,b]&&(Dze[v[[11]],"v[[11]]",c,a,b]||Dze[v[[3]],"v[[3]]",c,a,b]||(Dze[5v[[3]]-2v[[4]],"5v[[3]]-2v[[4]]",c,a,b]&&Dze[13v[[3]]-10v[[5]],"13v[[3]]-10v[[5]]",c,a,b])),tot=Union[Table[c[[i]]==0,{i,1,Length[c]}],Table[a[[i]]>0,{i,1,Length[a]}],Table[b[[i]]^2>0,{i,1,Length[b]}],Table[b[[i]]≠0,{i,1,Length[b]}],{var1≠0},{var2≠0}];

Which[

Dze[v[[4]],"v[[4]]",c,a,b]  && Dze[v[[5]],"v[[5]]",c,a,b] && Dze[v[[10]],"v[[10]]",c,a,b],Print2["Vulpe 1"],

Dze[v[[4]],"v[[4]]",c,a,b]  && Dpo[-v[[13]],"-v[[13]]",c,a,b],Print2["Vulpe 2a"],

Dze[v[[4]],"v[[4]]",c,a,b]  && Dze[v[[13]],"v[[13]]",c,a,b]&&Dze[v[[12]],"v[[12]]",c,a,b]&&Dnze[v[[10]],"v[[10]]",c,a,b],Print2["Vulpe 2b"],

Dnze[v[[4]],"v[[4]]",c,a,b]  &&(Dze[v[[14]]*v[[15]],"v[[14]]*v[[15]]",c,a,b]   || Dpo[v[[14]]*v[[15]],"v[[14]]*v[[15]]",c,a,b])&& Dpo[v[[15]]*v[[9]],"v[[15]]*v[[9]]",c,a,b]&&(Dze[(4-v[[15]])*v[[9]],"(4-v[[15]])*v[[9]]",c,a,b]|| Dpo[-(4-v[[15]])*v[[9]],"-(4-v[[15]])*v[[9]]",c,a,b])&&Dze[v[[11]],"v[[11]]",c,a,b]  ,Print2["Vulpe 2c"],

Dnze[v[[4]],"v[[4]]",c,a,b]  &&Dze[v[[11]],"v[[11]]",c,a,b]  && Dze[v[[15]],"v[[15]]",c,a,b] && Dpo[-v[[14]],"-v[[14]]",c,a,b],Print2["Vulpe 2d"],

Dze[v[[4]],"v[[4]]",c,a,b]  && Dze[v[[12]],"v[[12]]",c,a,b]&&Dpo[v[[13]],"v[[13]]",c,a,b]&&Dpo[v[[8]],"v[[8]]",c,a,b],Print2["Vulpe 3a"],

Dnze[v[[4]],"v[[4]]",c,a,b]  &&Dze[v[[11]],"v[[11]]",c,a,b]  && Dpo[-v[[14]]*v[[15]],"-v[[14]]*v[[15]]",c,a,b]&&Dpo[v[[15]]*v[[9]],"v[[15]]*v[[9]]",c,a,b],Print2["Vulpe 3b"],

Dze[v[[4]],"v[[4]]",c,a,b] && Dpo[v[[13]],"v[[13]]",c,a,b]&&Dpo[v[[8]],"v[[8]]",c,a,b]&&Dnze[v[[12]],"v[[12]]",c,a,b],Print2["Vulpe 4"],

Dze[v[[8]],"v[[8]]",c,a,b] && Dze[v[[9]],"v[[9]]",c,a,b]&&Dze[v[[11]],"v[[11]]",c,a,b]&&Dze[v[[12]],"v[[12]]",c,a,b]&&Dpo[v[[5]]*v[[10]],"v[[5]]*v[[10]]",c,a,b],Print2["Vulpe 5"],

Dze[v[[4]],"v[[4]]",c,a,b] && Dze[v[[8]],"v[[8]]",c,a,b]&&Dnze[v[[12]],"v[[12]]",c,a,b],Print2["Vulpe 6"],

Dze[v[[4]],"v[[4]]",c,a,b] && Dze[v[[13]],"v[[13]]",c,a,b]&&Dnze[v[[12]],"v[[12]]",c,a,b],Print2["Vulpe 7"],

Dze[v[[4]],"v[[4]]",c,a,b] && Dze[v[[12]],"v[[12]]",c,a,b]&&Dpo[-v[[8]],"-v[[8]]",c,a,b]&&Dnze[v[[10]],"v[[10]]",c,a,b]&&Dpo[v[[2]]*v[[5]]*(v[[2]]*v[[5]]+2*v[[10]])-4*v[[10]]^2-v[[2]]^3*v[[8]],"v[[2]]*v[[5]]*(v[[2]]*v[[5]]+2*v[[10]])-4*v[[10]]^2-v[[2]]^3*v[[8]]",c,a,b],Print2["Vulpe 8a"],

Dnze[v[[4]],"v[[4]]",c,a,b]  &&Dze[v[[11]],"v[[11]]",c,a,b]  && Dpo[v[[15]]*(v[[15]]-6),"v[[15]]*(v[[15]]-6)",c,a,b]&&Dpo[-v[[15]]*v[[9]],"-v[[15]]*v[[9]]",c,a,b]&&Dpo[v[[15]]*v[[3]]*v[[4]],"v[[15]]*v[[3]]*v[[4]]",c,a,b],Print2["Vulpe 8b"],

Dze[v[[4]],"v[[4]]",c,a,b] && Dze[v[[12]],"v[[12]]",c,a,b]&&Dpo[-v[[8]],"-v[[8]]",c,a,b]&&Dnze[v[[10]],"v[[10]]",c,a,b]&&Dpo[-v[[2]]*v[[5]]*(v[[2]]*v[[5]]+2*v[[10]])+4*v[[10]]^2+v[[2]]^3*v[[8]],"-v[[2]]*v[[5]]*(v[[2]]*v[[5]]+2*v[[10]])+4*v[[10]]^2+v[[2]]^3*v[[8]]",c,a,b],Print2["Vulpe 9a"],

Dnze[v[[4]],"v[[4]]",c,a,b]  &&Dze[v[[11]],"v[[11]]",c,a,b]  && Dpo[v[[15]]*(v[[15]]-6),"v[[15]]*(v[[15]]-6)",c,a,b]&&Dpo[-v[[15]]*v[[9]],"-v[[15]]*v[[9]]",c,a,b]&&Dpo[-v[[15]]*v[[3]]*v[[4]],"-v[[15]]*v[[3]]*v[[4]]",c,a,b],Print2["Vulpe 9b"],

Dze[v[[3]],"v[[3]]",c,a,b] && Dze[v[[10]],"v[[10]]",c,a,b]&&Dpo[v[[9]]-v[[8]],"v[[9]]-v[[8]]",c,a,b],Print2["Vulpe 10"],

Dze[v[[4]],"v[[4]]",c,a,b] && Dpo[-v[[8]],"-v[[8]]",c,a,b]&&Dnze[v[[12]],"v[[12]]",c,a,b],Print2["Vulpe 11"],

Dnze[v[[4]],"v[[4]]",c,a,b]  &&Dze[v[[9]],"v[[9]]",c,a,b]  && Dze[v[[11]],"v[[11]]",c,a,b]&&Dnze[v[[4]],"v[[4]]",c,a,b]&&(Dze[v[[15]],"v[[15]]",c,a,b]||Dpo[v[[15]],"v[[15]]",c,a,b])&&(Dpo[-v[[15]]+3,"-v[[15]]+3",c,a,b]||Dze[v[[15]]-3,"v[[15]]-3",c,a,b]),Print2["Vulpe 12"],

Dnze[v[[4]],"v[[4]]",c,a,b]  &&Dze[v[[9]],"v[[9]]",c,a,b]  && Dze[v[[11]],"v[[11]]",c,a,b]&&Dnze[v[[4]],"v[[4]]",c,a,b]&&Dpo[v[[15]]-4,"v[[15]]-4",c,a,b]&&(Dze[v[[15]]-6,"v[[15]]-6",c,a,b]|| Dpo[-v[[15]]+6,"-v[[15]]+6",c,a,b]),Print2["Vulpe 13"],

Dnze[v[[4]],"v[[4]]",c,a,b]  &&Dze[v[[9]],"v[[9]]",c,a,b]  && Dze[v[[11]],"v[[11]]",c,a,b]&&Dnze[v[[4]],"v[[4]]",c,a,b]&&Dpo[v[[15]]-3,"v[[15]]-3",c,a,b]&&Dpo[-v[[15]]+4,"-v[[15]]+4",c,a,b],Print2["Vulpe 14"],

Dnze[v[[4]],"v[[4]]",c,a,b]  &&Dze[v[[9]],"v[[9]]",c,a,b]  && Dze[v[[11]],"v[[11]]",c,a,b]&&Dnze[v[[4]],"v[[4]]",c,a,b]&&Dze[v[[15]]-4,"v[[15]]-4",c,a,b],Print2["Vulpe 15"],

Dnze[v[[4]],"v[[4]]",c,a,b]  &&Dze[v[[11]],"v[[11]]",c,a,b]  && Dze[v[[15]]-6,"v[[15]]-6",c,a,b]&&Dpo[-v[[9]],"-v[[9]]",c,a,b]&&Dpo[v[[3]]*v[[4]],"v[[3]]*v[[4]]",c,a,b],Print2["Vulpe 16"],

Dze[v[[3]],"v[[3]]",c,a,b] && Dze[v[[8]]-v[[9]],"v[[8]]-v[[9]]",c,a,b]&&Dnze[v[[9]],"v[[9]]",c,a,b],Print2["Vulpe 17"],

Dnze[v[[4]],"v[[4]]",c,a,b]  &&Dze[v[[11]],"v[[11]]",c,a,b]  &&Dze[v[[15]]-6,"v[[15]]-6",c,a,b]&&Dpo[-v[[3]]*v[[4]],"-v[[3]]*v[[4]]",c,a,b],Print2["Vulpe 18"],

Dnze[v[[4]],"v[[4]]",c,a,b]  &&Dze[v[[11]],"v[[11]]",c,a,b]  && Dpo[v[[9]],"v[[9]]",c,a,b]&&(Dze[v[[15]],"v[[15]]",c,a,b] || Dpo[v[[15]],"v[[15]]",c,a,b])&&Dpo[-v[[15]]+4,"-v[[15]]+4",c,a,b],Print2["Vulpe 19"],

Dnze[v[[4]],"v[[4]]",c,a,b]  &&Dze[v[[11]],"v[[11]]",c,a,b]  && Dpo[-v[[9]],"-v[[9]]",c,a,b]&&Dpo[v[[14]],"v[[14]]",c,a,b]&&(Dze[v[[15]],"v[[15]]",c,a,b] || Dpo[v[[15]],"v[[15]]",c,a,b])&&(Dze[v[[15]]-4,"v[[15]]-4",c,a,b] || Dpo[4-v[[15]],"4-v[[15]]",c,a,b]),Print2["Vulpe 20"],

Dnze[v[[4]],"v[[4]]",c,a,b]  &&Dze[v[[11]],"v[[11]]",c,a,b]  && Dpo[-v[[9]],"-v[[9]]",c,a,b]&&Dpo[v[[14]],"v[[14]]",c,a,b]&&Dpo[v[[15]]-4,"v[[15]]-4",c,a,b],Print2["Vulpe 21"],

Dnze[v[[4]],"v[[4]]",c,a,b]  &&Dze[v[[11]],"v[[11]]",c,a,b]  &&Dze[v[[14]],"v[[14]]",c,a,b]&&Dpo[v[[15]],"v[[15]]",c,a,b]&&Dpo[-v[[15]]+3,"-v[[15]]+3",c,a,b],Print2["Vulpe 22"],

Dnze[v[[4]],"v[[4]]",c,a,b]  &&Dze[v[[11]],"v[[11]]",c,a,b]  && Dze[v[[14]],"v[[14]]",c,a,b]&&(Dze[v[[15]]-3,"v[[15]]-3",c,a,b] ||Dpo[v[[15]]-3,"v[[15]]-3",c,a,b]) &&(Dze[v[[15]]-4,"v[[15]]-4",c,a,b] || Dpo[-v[[15]]+4,"-v[[15]]+4",c,a,b]),Print2["Vulpe 23"],

Dnze[v[[4]],"v[[4]]",c,a,b]  &&Dze[v[[11]],"v[[11]]",c,a,b]  && Dze[v[[14]],"v[[14]]",c,a,b]&&Dpo[v[[15]]-4,"v[[15]]-4",c,a,b]&&Dpo[-v[[15]]+6,"-v[[15]]+6",c,a,b],Print2["Vulpe 24"],

Dnze[v[[4]],"v[[4]]",c,a,b]  &&Dze[v[[11]],"v[[11]]",c,a,b]  &&Dpo[-v[[14]],"-v[[14]]",c,a,b]&&Dpo[v[[15]],"v[[15]]",c,a,b]&&(Dze[v[[15]]-4,"v[[15]]-4",c,a,b] || Dpo[-v[[15]]+4,"-v[[15]]+4",c,a,b]),Print2["Vulpe 25"],

Dnze[v[[4]],"v[[4]]",c,a,b]  &&Dze[v[[11]],"v[[11]]",c,a,b]  &&Dpo[-v[[14]],"-v[[14]]",c,a,b]&&Dpo[v[[15]]-4,"v[[15]]-4",c,a,b]&&Dpo[-v[[15]]+6,"-v[[15]]+6",c,a,b]&&Dpo[v[[3]]*v[[4]],"v[[3]]*v[[4]]",c,a,b],Print2["Vulpe 26"],

Dze[v[[3]],"v[[3]]",c,a,b]  && Dpo[v[[8]]-v[[9]],"v[[8]]-v[[9]]",c,a,b]&&Dpo[18*v[[7]]+v[[9]]-27*v[[8]],"18*v[[7]]+v[[9]]-27*v[[8]]",c,a,b],Print2["Vulpe 27"],

Dnze[v[[4]],"v[[4]]",c,a,b]  &&Dze[v[[11]],"v[[11]]",c,a,b]  &&Dpo[-v[[14]],"-v[[14]]",c,a,b]&&Dpo[v[[15]]-4,"v[[15]]-4",c,a,b]&&Dpo[-v[[15]]+6,"-v[[15]]+6",c,a,b]&&Dpo[-v[[3]]*v[[4]],"-v[[3]]*v[[4]]",c,a,b],Print2["Vulpe 28"],

Dnze[v[[4]],"v[[4]]",c,a,b]  &&Dze[v[[11]],"v[[11]]",c,a,b]  &&Dze[v[[14]],"v[[14]]",c,a,b]&&Dze[v[[15]],"v[[15]]",c,a,b],Print2["Vulpe 29"],

Dze[v[[3]],"v[[3]]",c,a,b] && Dnze[v[[11]],"v[[11]]",c,a,b]&&Dpo[-18*v[[7]]-v[[9]]+27*v[[8]],"-18*v[[7]]-v[[9]]+27*v[[8]]",c,a,b],Print2["Vulpe 30"],

Dze[v[[3]],"v[[3]]",c,a,b]  && Dnze[v[[11]],"v[[11]]",c,a,b]&&Dze[18*v[[7]]+v[[9]]-27*v[[8]],"18*v[[7]]+v[[9]]-27*v[[8]]",c,a,b],Print2["Vulpe 31"],

Dze[5*v[[3]]-2*v[[4]],"5*v[[3]]-2*v[[4]]",c,a,b]  && Dnze[v[[11]],"v[[11]]",c,a,b]&&Dze[13*v[[3]]-10*v[[5]],"13*v[[3]]-10*v[[5]]",c,a,b],Print2["Vulpe 32"],

True,Print2["Something fails"]
],Print2["This system has no center at the origin. If there is a center somewhere else, you should first move it to the origin"]]

RatFI2 determines if a parametrized system has a Rational First Integral of degree 2 and if it has, then it gives its phase portrait acording to [ALV:2007] and its first integral and inverse integrating factor. The set "c" are the equalities know among the parameters, "a" corresponds to expressions known to be positive and "b" to expressions known to be different from zero.

printRatFI2Inv:=Print2[Column[{{"WC2=",Factor[WC2]},{"WB3=",Factor[WB3]},{"WN=",Factor[WN]},{"η=",Factor[η]},{"WM=",Factor[WM]},{"WH=",Factor[WH]},{"WILH1=",Factor[WILH1]},{"WILH2=",Factor[WILH2]},{"WILH3=",Factor[WILH3]},{"WILH9=",Factor[WILH9]},{"WILH10=",Factor[WILH10]},{"WILH11=",Factor[WILH11]},{"WILH12=",Factor[WILH12]},{"WN1=",Factor[WN1]},{"WN2=",Factor[WN2]},{"WN3=",Factor[WN3]},{"WN4=",Factor[WN4]},{"WN7=",Factor[WN7]},{"WN8=",Factor[WN8]}}]];

printRatFI2inv:=Print2[Column[{{"WC2=",Factor[WC2]},{"WB3=",Factor[WB3]},{"WN=",Factor[WN]},{"η=",Factor[η]},{"WM=",Factor[WM]},{"WH=",Factor[WH]},{"WILH1=",Factor[WILH1]},{"WILH2=",Factor[WILH2]},{"WILH3=",Factor[WILH3]},{"WILH9=",Factor[WILH9]},{"WILH10=",Factor[WILH10]},{"WILH11=",Factor[WILH11]},{"WILH12=",Factor[WILH12]},{"WN1=",Factor[WN1]},{"WN2=",Factor[WN2]},{"WN3=",Factor[WN3]},{"WN4=",Factor[WN4]},{"WN7=",Factor[WN7]},{"WN8=",Factor[WN8]}}]];

RatFI2[c_,a_,b_]:={Ratfi2=True;tot=Union[Table[c[[i]]==0,{i,1,Length[c]}],Table[a[[i]]>0,{i,1,Length[a]}],Table[b[[i]]^2>0,{i,1,Length[b]}],Table[b[[i]]≠0,{i,1,Length[b]},{var1≠0},{var2≠0}]];Which[

Dnze[WC2,"C2",c,a,b]&&Dze[WB3,"B3",c,a,b]&&Dze[WN,"(OverTilde[N])",c,a,b]&&Dnze[η,"η",c,a,b],Print2["The system has a Rationat First Integral of degree2 (i)"],

Dnze[WC2,"C2",c,a,b]&&Dze[WB3,"B3",c,a,b]&&Dze[WN,"(OverTilde[N])",c,a,b]&&Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dnze[WH,"H",c,a,b]&&Dze[WILH2,"WILH2",c,a,b],Print2["The system has a Rationat First Integral of degree2 (ii)"],

Dnze[WC2,"C2",c,a,b]&&Dze[WB3,"B3",c,a,b]&&Dze[WN,"(OverTilde[N])",c,a,b]&&Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[WH,"H",c,a,b]&&Dze[WN1,"N1",c,a,b]&&Dze[WN2,"N2",c,a,b],Print2["The system has a Rationat First Integral of degree2 (iii)"],

Dnze[WC2,"C2",c,a,b]&&Dze[WB3,"B3",c,a,b]&&Dze[WN,"(OverTilde[N])",c,a,b]&&Dze[η,"η",c,a,b]&&Dze[WM,"(OverTilde[M])",c,a,b]&&Dze[WN3,"N3",c,a,b]&&Dze[WN4,"N4",c,a,b],Print2["The system has a Rationat First Integral of degree2 (iv)"],
 
Dze[WC2,"C2",c,a,b]&&Dze[WN7,"N7",c,a,b],Print2["The system has a Rationat First Integral of degree2 (v)"],
 
True,{Ratfi2=False,Print2["The system has not a Rationat First Integral of degree 2"]}
],  

If[Ratfi2==True,

Which[

Dpo[η,"η",c,a,b]&&Dze[WN,"(OverTilde[N])",c,a,b]&&Dpo[WILH1,"WILH1",c,a,b],Print2["The system has Portait 1 [ALV:2007]"],

Dpo[η,"η",c,a,b]&&Dze[WN,"(OverTilde[N])",c,a,b]&&Dpo[-WILH1,"-WILH1",c,a,b],Print2["The system has Portait 2 [ALV:2007]"],

Dpo[η,"η",c,a,b]&&Dze[WN,"(OverTilde[N])",c,a,b]&&Dze[WILH1,"WILH1",c,a,b],Print2["The system has Portait 3 [ALV:2007]"],

Dpo[-η,"-η",c,a,b]&&Dze[WN,"(OverTilde[N])",c,a,b]&&Dpo[WILH1,"WILH1",c,a,b],Print2["The system has Portait 4 [ALV:2007]"],

Dpo[-η,"-η",c,a,b]&&Dze[WN,"(OverTilde[N])",c,a,b]&&Dpo[-WILH1,"-WILH1",c,a,b],Print2["The system has Portait 5 [ALV:2007]"],

Dpo[-η,"-η",c,a,b]&&Dze[WN,"(OverTilde[N])",c,a,b]&&Dze[WILH1,"WILH1",c,a,b],Print2["The system has Portait 6 [ALV:2007]"],

Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[WN,"(OverTilde[N])",c,a,b]&&Dnze[WH,"H",c,a,b]&&Dze[WILH2,"WILH2",c,a,b]&&Dpo[WILH3,"WILH3",c,a,b],Print2["The system has Portait 7 [ALV:2007]"],

Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[WN,"(OverTilde[N])",c,a,b]&&Dnze[WH,"H",c,a,b]&&Dze[WILH2,"WILH2",c,a,b]&&Dpo[-WILH3,"-WILH3",c,a,b],Print2["The system has Portait 8 [ALV:2007]"],

Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[WN,"(OverTilde[N])",c,a,b]&&Dnze[WH,"H",c,a,b]&&Dze[WILH2,"WILH2",c,a,b]&&Dze[WILH3,"WILH3",c,a,b],Print2["The system has Portait 9 [ALV:2007]"],

Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[WN,"(OverTilde[N])",c,a,b]&&Dze[WH,"H",c,a,b]&&Dze[WN1,"N1",c,a,b]&&Dze[WN2,"N2",c,a,b]&&Dnze[WILH3,"WILH3",c,a,b],Print2["The system has Portait 10 [ALV:2007]"],

Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[WN,"(OverTilde[N])",c,a,b]&&Dze[WH,"H",c,a,b]&&Dze[WN1,"N1",c,a,b]&&Dze[WN2,"N2",c,a,b]&&Dze[WILH3,"WILH3",c,a,b]&&Dnze[WILH8,"WILH8",c,a,b],Print2["The system has Portait 11 [ALV:2007]"],

Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[WN,"(OverTilde[N])",c,a,b]&&Dze[WH,"H",c,a,b]&&Dze[WN1,"N1",c,a,b]&&Dze[WN2,"N2",c,a,b]&&Dze[WILH3,"WILH3",c,a,b]&&Dze[WILH8,"WILH8",c,a,b],Print2["The system has Portait 12 [ALV:2007]"],

Dze[η,"η",c,a,b]&&Dze[WM,"(OverTilde[M])",c,a,b]&&Dnze[WC2,"C2",c,a,b]&&Dze[WN,"(OverTilde[N])",c,a,b]Dze[WN3,"N3",c,a,b]&&Dze[WN4,"N4",c,a,b]&&Dnze[WN7,"N7",c,a,b],Print2["The system has Portait 13 [ALV:2007]"],

Dze[η,"η",c,a,b]&&Dze[WM,"(OverTilde[M])",c,a,b]&&Dnze[WC2,"C2",c,a,b]&&Dze[WN,"(OverTilde[N])",c,a,b]Dze[WN3,"N3",c,a,b]&&Dze[WN4,"N4",c,a,b]&&Dze[WN7,"N7",c,a,b]&&Dpo[WN8,"N8",c,a,b],Print2["The system has Portait 14 [ALV:2007]"],

Dze[η,"η",c,a,b]&&Dze[WM,"(OverTilde[M])",c,a,b]&&Dnze[WC2,"C2",c,a,b]&&Dze[WN,"(OverTilde[N])",c,a,b]Dze[WN3,"N3",c,a,b]&&Dze[WN4,"N4",c,a,b]&&Dze[WN7,"N7",c,a,b]&&Dpo[-WN8,"-N8",c,a,b],Print2["The system has Portait 15 [ALV:2007]"],

Dze[η,"η",c,a,b]&&Dze[WM,"(OverTilde[M])",c,a,b]&&Dnze[WC2,"C2",c,a,b]&&Dze[WN,"(OverTilde[N])",c,a,b]Dze[WN3,"N3",c,a,b]&&Dze[WN4,"N4",c,a,b]&&Dze[WN7,"N7",c,a,b]&&Dze[WN8,"N8",c,a,b],Print2["The system has Portait 16 [ALV:2007]"],

Dze[WC2,"C2",c,a,b]&&Dze[WN7,"N7",c,a,b]&&Dnze[WILH10,"WILH10",c,a,b]&&Dpo[WILH9,"WILH9",c,a,b],Print2["The system has Portait 17 [ALV:2007]"],

Dze[WC2,"C2",c,a,b]&&Dze[WN7,"N7",c,a,b]&&Dnze[WILH10,"WILH10",c,a,b]&&Dpo[-WILH9,"-WILH9",c,a,b],Print2["The system has Portait 18 [ALV:2007]"],

Dze[WC2,"C2",c,a,b]&&Dze[WN7,"N7",c,a,b]&&Dnze[WILH10,"WILH10",c,a,b]&&Dze[WILH9,"WILH9",c,a,b],Print2["The system has Portait 19 [ALV:2007]"],

Dze[WC2,"C2",c,a,b]&&Dze[WN7,"N7",c,a,b]&&Dze[WILH10,"WILH10",c,a,b]&&Dnze[WILH2,"WILH2",c,a,b],Print2["The system has Portait 20 [ALV:2007]"],

Dze[WC2,"C2",c,a,b]&&Dze[WN7,"N7",c,a,b]&&Dze[WILH10,"WILH10",c,a,b]&&Dze[WILH2,"WILH2",c,a,b]&&Dnze[WILH12,"WILH12",c,a,b]&&Dpo[WILH11,"WILH11",c,a,b],Print2["The system has Portait 21 [ALV:2007]"],

Dze[WC2,"C2",c,a,b]&&Dze[WN7,"N7",c,a,b]&&Dze[WILH10,"WILH10",c,a,b]&&Dze[WILH2,"WILH2",c,a,b]&&Dnze[WILH12,"WILH12",c,a,b]&&Dpo[-WILH11,"-WILH11",c,a,b],Print2["The system has Portait 22 [ALV:2007]"],

Dze[WC2,"C2",c,a,b]&&Dze[WN7,"N7",c,a,b]&&Dze[WILH10,"WILH10",c,a,b]&&Dze[WILH2,"WILH2",c,a,b]&&Dze[WILH12,"WILH12",c,a,b]&&Dnze[μ4,"μ4",c,a,b],Print2["The system has Portait 23 [ALV:2007]"],

Dze[WC2,"C2",c,a,b]&&Dze[WN7,"N7",c,a,b]&&Dze[WILH10,"WILH10",c,a,b]&&Dze[WILH2,"WILH2",c,a,b]&&Dze[WILH12,"WILH12",c,a,b]&&Dze[μ4,"μ4",c,a,b],Print2["The system has Portait 24 [ALV:2007]"]

]],

If[Ratfi2==True,

Which[

Dnze[WC2,"C2",c,a,b]&&Dze[WB3,"B3",c,a,b]&&Dze[WN,"(OverTilde[N])",c,a,b]&&(Dnze[η,"η",c,a,b] || (
Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dnze[WH,"H",c,a,b]&&Dze[WILH2,"WILH2",c,a,b]) ||(Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[WH,"H",c,a,b]&&Dze[WN1,"N1",c,a,b]&&Dze[WN2,"N2",c,a,b])) && Dnze[WH,"H",c,a,b],
{FI=(2YG3-YG2)(4YG3^2-YG1^2YG2)/YG4,Print2["The First Integral is ",FI],IF=4YG3^2-YG1^2 YG2,Print2[" and the Integrating factor is", IF]},

Dnze[WC2,"C2",c,a,b]&&Dze[WB3,"B3",c,a,b]&&Dze[WN,"(OverTilde[N])",c,a,b]&&(Dnze[η,"η",c,a,b] || (
Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dnze[WH,"H",c,a,b]&&Dze[WILH2,"WILH2",c,a,b]) ||(Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[WH,"H",c,a,b]&&Dze[WN1,"N1",c,a,b]&&Dze[WN2,"N2",c,a,b])) && Dze[WH,"H",c,a,b]&& Dnze[WILH3,"WILH3",c,a,b],
{FI=(2YG3-YG2)^3/YG4,Print2["The First Integral is ",FI],IF=(2YG3-YG2)^2,Print2[" and the Integrating factor is", IF]},

Dnze[WC2,"C2",c,a,b]&&Dze[WB3,"B3",c,a,b]&&Dze[WN,"(OverTilde[N])",c,a,b]&&(Dnze[η,"η",c,a,b] || (
Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dnze[WH,"H",c,a,b]&&Dze[WILH2,"WILH2",c,a,b]) ||(Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[WH,"H",c,a,b]&&Dze[WN1,"N1",c,a,b]&&Dze[WN2,"N2",c,a,b])) && Dze[WH,"H",c,a,b]&& Dze[WILH3,"WILH3",c,a,b],
{FI=2YG4/YG1^4+WC2/WD2^2,Print2["The First Integral is ",FI],IF=YG1^2,Print2[" and the Integrating factor is", IF]},

Dnze[WC2,"C2",c,a,b]&&Dze[WB3,"B3",c,a,b]&&Dze[WN,"(OverTilde[N])",c,a,b]&&Dze[η,"η",c,a,b]&&Dze[WM,"(OverTilde[M])",c,a,b]&&Dze[WN3,"N3",c,a,b]&&Dze[WN4,"N4",c,a,b],{FI=(YG5^2-2YG6)/YG5,Print2["The First Integral is ",FI],IF=YG5^2,Print2[" and the Integrating factor is", IF]},

Dze[WC2,"C2",c,a,b]&&Dze[WN7,"N7",c,a,b]&&Dnze[WILH10,"WILH10",c,a,b],{FI=(YG1^2-9YG2)^2/(9YG2-YG1^2+12YG3),Print2["The First Integral is ",FI],IF=YG4,Print2[" and the Integrating factor is", IF]},

Dze[WC2,"C2",c,a,b]&&Dze[WN7,"N7",c,a,b]&&Dze[WILH10,"WILH10",c,a,b]&&Dnze[WILH2,"WILH2",c,a,b],{FI=YG3^3/(YG1^3YG4),Print2["The First Integral is ",FI],IF=YG4,Print2[" and the Integrating factor is",IF]},

Dze[WC2,"C2",c,a,b]&&Dze[WN7,"N7",c,a,b]&&Dze[WILH10,"WILH10",c,a,b]&&Dze[WILH2,"WILH2",c,a,b]&&Dnze[WILH12,"WILH12",c,a,b],{FI=YG4^2/YG3^3,Print2["The First Integral is ",FI],IF=YG4,Print2[" and the Integrating factor is",IF]},

Dze[WC2,"C2",c,a,b]&&Dze[WN7,"N7",c,a,b]&&Dze[WILH10,"WILH10",c,a,b]&&Dze[WILH2,"WILH2",c,a,b]&&Dze[WILH12,"WILH12",c,a,b],{FI=YG1^2/(YG7+YG1 YG5),Print2["The First Integral is ",FI],IF=YG4,Print2[" and the Integrating factor is",IF]}


]]}

These are some grouped sets of conditions for finite singular points

(*Cond G1*) centerC1[c_,a_,b_]:=(Dze[WG01,"G01",c,a,b] && Dze[WG03,"G03",c,a,b] && Dze[WG05,"G05",c,a,b]&& Dpo[-WG02 WG04,"-G02 WG04",c,a,b] )

(*Cond G2*)centerC2[c_,a_,b_]:=( Dze[WG01,"G01",c,a,b] && Dze[WG03,"G03",c,a,b] && Dze[WG04,"G04",c,a,b]&& Dpo[-μ0,"-μ0",c,a,b] )

(*Cond G3*)centerC3[c_,a_,b_]:= (Dze[WG01,"G01",c,a,b] && Dze[WG03,"G03",c,a,b] && Dze[WG04,"G04",c,a,b]&& Dpo[μ0,"μ0",c,a,b]&& (Dpo[WG09,"G09",c,a,b]|| Dze[WG09,"G09",c,a,b]) )

(*Cond G4*)centerC4[c_,a_,b_]:=( Dze[WG01,"G01",c,a,b] && Dze[WG03,"G03",c,a,b] && Dze[WG05 (WG06^2+WG07^2),"G05 (WG06^2+WG07^2)",c,a,b]&& Dpo[-WG02 WG04,"-G02 WG04",c,a,b] )

(*Cond G5*)centerC5[c_,a_,b_]:=( Dze[WG01,"G01",c,a,b] && Dze[WG03,"G03",c,a,b] && Dze[WG04,"G04",c,a,b]&& Dpo[μ0,"μ0",c,a,b]&& (Dpo[-WG12,"-G12",c,a,b]|| Dze[WG12,"G12",c,a,b]) )

(*Cond G6*)(centerC6[c_,a_,b_]:= Dze[WG01,"G01",c,a,b] && Dze[WG03,"G03",c,a,b] && Dze[WG04,"G04",c,a,b]&& Dpo[-μ0,"-μ0",c,a,b]&& Dpo[-WG12,"-G12",c,a,b]&& Dpo[WG09,"G09",c,a,b])

(*Cond G7*)centerC7[c_,a_,b_]:=( Dze[WG01,"G01",c,a,b] && Dze[WG03,"G03",c,a,b] && Dze[WG04,"G04",c,a,b]&& Dpo[μ0,"μ0",c,a,b]&& Dze[WG08,"G08",c,a,b] )

(*Cond G8*)centerC8[c_,a_,b_]:=( Dze[WG03,"G03",c,a,b] && Dze[WG04,"G04",c,a,b]&& Dpo[WG09,"G09",c,a,b])

(*Cond G9*)centerC9[c_,a_,b_]:=( Dze[WG03,"G03",c,a,b] && Dze[WG04,"G04",c,a,b]&& Dze[WG09,"G09",c,a,b]&& Dpo[μ0,"μ0",c,a,b])

(*Cond G10*) centerC10[c_,a_,b_]:=(Dze[WG01,"G01",c,a,b] && Dze[WG03,"G03",c,a,b] && Dze[WG04,"G04",c,a,b]&& Dze[WG10,"G10",c,a,b]&& (Dpo[-WG11,"-G11",c,a,b]|| Dze[WG11,"G11",c,a,b]) )

(*Cond G11*)centerC11[c_,a_,b_]:=( Dze[WG03,"G03",c,a,b] && Dze[WG09,"G09",c,a,b]&& Dze[WG10,"G10",c,a,b]&& Dpo[-WG11,"-G11",c,a,b])

(*Cond G12*)centerC12[c_,a_,b_]:=( Dze[WG01,"G01",c,a,b] && Dze[WG03,"G03",c,a,b]&& Dze[WG04,"G04",c,a,b]&& Dpo[WG08,"G08",c,a,b])

(*Cond G13*)centerC13[c_,a_,b_]:=( Dze[WG01,"G01",c,a,b] && Dze[WG03,"G03",c,a,b]&& Dze[WG04,"G04",c,a,b]&& Dpo[-WG08,"-G08",c,a,b]&& Dpo[WG09,"G09",c,a,b])

(*Cond G14*)centerC14[c_,a_,b_]:=( Dze[WD1,"D1",c,a,b] && Dze[WD2,"D2",c,a,b]&& Dze[WK,"(OverTilde[K])",c,a,b])

(*Cond G15*)centerC15[c_,a_,b_]:=( Dze[WG03,"G03",c,a,b] && Dze[WG10,"G10",c,a,b]&& Dpo[-WG11,"-G11",c,a,b]&& Dnze[WN,"(OverTilde[N])",c,a,b])

(*Cond G16*)centerC16[c_,a_,b_]:=( Dze[WG13,"G13",c,a,b] &&  Dpo[WG14,"G14",c,a,b]&& Dze[WN,"(OverTilde[N])",c,a,b])

(*Cond D1*)condD1[c_,a_,b_]:=( Dpo[WW4,"W4",c,a,b] &&  (Dpo[-WV1,"-V1",c,a,b]||Dze[WV1,"V1",c,a,b])&& Dze[WV2,"V2",c,a,b])

(*Cond D2*)condD2[c_,a_,b_]:=( Dze[WW4,"W4",c,a,b] &&  Dze[WW3,"W3",c,a,b]&& Dze[WV4,"V4",c,a,b]&& Dze[WW1-4μ0^2 WW2,"W1-4μ0^2 W2",c,a,b])

finiteGeo makes a complete geometrical description of finite singular points for a parametrized system. The set "c" are the equalities know among the parameters, "a" corresponds to expressions known to be positive and "b" to expressions known to be different from zero.

finiteGeo[c_,a_,b_]:={tot=Union[Table[c[[i]]==0,{i,1,Length[c]}],Table[a[[i]]>0,{i,1,Length[a]}],Table[b[[i]]^2>0,{i,1,Length[b]}],Table[b[[i]]≠0,{i,1,Length[b]}],{var1≠0},{var2≠0}];Which[

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dze[μ4,"(Subscript[μ, 4])",c,a,b]&&Dpo[-η,"-η",c,a,b]&&Dnze[κ,"κ",c,a,b]&&Dnze[θ2,"(Subscript[θ, 2])",c,a,b]&&Dnze[WR,"(OverTilde[R])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"(Subscript[μ, 4])=",Factor[μ4]},{"η=",Factor[η]},{"κ=",Factor[κ]},{"(Subscript[θ, 2])=",Factor[θ2]},{"(OverTilde[R])=",Factor[WR]},"","Finite Singularities: f,(⊖ [|],∅) ",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dze[μ4,"(Subscript[μ, 4])",c,a,b]&&Dpo[-η,"-η",c,a,b]&&Dnze[κ,"κ",c,a,b]&&Dnze[θ2,"(Subscript[θ, 2])",c,a,b]&&Dze[WR,"(OverTilde[R])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"(Subscript[μ, 4])=",Factor[μ4]},{"η=",Factor[η]},{"κ=",Factor[κ]},{"(Subscript[θ, 2])=",Factor[θ2]},{"(OverTilde[R])=",Factor[WR]},"","Finite Singularities: c,(⊖ [|],∅) ",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dze[μ4,"(Subscript[μ, 4])",c,a,b]&&Dpo[-η,"η",c,a,b]&&Dnze[κ,"κ",c,a,b]&&Dze[θ2,"(Subscript[θ, 2])",c,a,b]&&Dnze[WR,"(OverTilde[R])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"(Subscript[μ, 4])=",Factor[μ4]},{"η=",Factor[η]},{"κ=",Factor[κ]},{"(Subscript[θ, 2])=",Factor[θ2]},{"(OverTilde[R])=",Factor[WR]},"","Finite Singularities: (⊖ [|],f) ",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dze[μ4,"(Subscript[μ, 4])",c,a,b]&&Dpo[-η,"-η",c,a,b]&&Dnze[κ,"κ",c,a,b]&&Dze[θ2,"(Subscript[θ, 2])",c,a,b]&&Dze[WR,"(OverTilde[R])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"(Subscript[μ, 4])=",Factor[μ4]},{"η=",Factor[η]},{"κ=",Factor[κ]},{"(Subscript[θ, 2])=",Factor[θ2]},{"(OverTilde[R])=",Factor[WR]},"","Finite Singularities: (⊖ [|],c) ",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dze[μ4,"(Subscript[μ, 4])",c,a,b]&&Dpo[-η,"-η",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dpo[-WL1,"(Subscript[L, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"(Subscript[μ, 4])=",Factor[μ4]},{"η=",Factor[η]},{"κ=",Factor[κ]},{"(Subscript[L, 1])=",Factor[WL1]},"","Finite Singularities: (⊖ [○],∅) ",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dze[μ4,"(Subscript[μ, 4])",c,a,b]&&Dpo[-η,"-η",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dpo[WL1,"(Subscript[L, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"(Subscript[μ, 4])=",Factor[μ4]},{"η=",Factor[η]},{"κ=",Factor[κ]},{"(Subscript[L, 1])=",Factor[WL1]},"","Finite Singularities: (⊖ [©],∅) ",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dze[μ4,"(Subscript[μ, 4])",c,a,b]&&Dpo[-η,"-η",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dze[WL1,"(Subscript[L, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"(Subscript[μ, 4])=",Factor[μ4]},{"η=",Factor[η]},{"κ=",Factor[κ]},{"(Subscript[L, 1])=",Factor[WL1]},"","Finite Singularities: (⊖ [·],∅) ",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dze[μ4,"(Subscript[μ, 4])",c,a,b]&&Dpo[η,"η",c,a,b]&&Dpo[-κ,"κ",c,a,b]&&Dnze[θ2,"(Subscript[θ, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"(Subscript[μ, 4])=",Factor[μ4]},{"η=",Factor[η]},{"κ=",Factor[κ]},{"(Subscript[θ, 2])=",Factor[θ2]},"","Finite Singularities: n,(⊖ [|],∅) ",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dze[μ4,"(Subscript[μ, 4])",c,a,b]&&Dpo[η,"η",c,a,b]&&Dpo[-κ,"κ",c,a,b]&&Dze[θ2,"(Subscript[θ, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"(Subscript[μ, 4])=",Factor[μ4]},{"η=",Factor[η]},{"κ=",Factor[κ]},{"(Subscript[θ, 2])=",Factor[θ2]},"","Finite Singularities: (⊖ [|],n) ",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dze[μ4,"(Subscript[μ, 4])",c,a,b]&&Dpo[η,"η",c,a,b]&&Dpo[κ,"κ",c,a,b]&&Dnze[θ2,"(Subscript[θ, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"(Subscript[μ, 4])=",Factor[μ4]},{"η=",Factor[η]},{"κ=",Factor[κ]},{"(Subscript[θ, 2])=",Factor[θ2]},"","Finite Singularities: s,(⊖ [|],∅) ",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dze[μ4,"(Subscript[μ, 4])",c,a,b]&&Dpo[η,"η",c,a,b]&&Dpo[κ,"κ",c,a,b]&&Dze[θ2,"(Subscript[θ, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"(Subscript[μ, 4])=",Factor[μ4]},{"η=",Factor[η]},{"κ=",Factor[κ]},{"(Subscript[θ, 2])=",Factor[θ2]},"","Finite Singularities: (⊖ [|],s) ",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dze[μ4,"(Subscript[μ, 4])",c,a,b]&&Dpo[η,"η",c,a,b]&&Dpo[-κ,"κ",c,a,b]&&Dnze[WK1,"(Subscript[K, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"(Subscript[μ, 4])=",Factor[μ4]},{"η=",Factor[η]},{"κ=",Factor[κ]},{"(Subscript[K, 1])=",Factor[WK1]},"","Finite Singularities: (⊖ [|],∅) ",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dze[μ4,"(Subscript[μ, 4])",c,a,b]&&Dpo[η,"η",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dnze[WK1,"(Subscript[K, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"(Subscript[μ, 4])=",Factor[μ4]},{"η=",Factor[η]},{"κ=",Factor[κ]},{"(Subscript[K, 1])=",Factor[WK1]},"","Finite Singularities: (⊖ [|],∅) ",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dze[μ4,"(Subscript[μ, 4])",c,a,b]&&Dpo[η,"η",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dze[WK1,"(Subscript[K, 1])",c,a,b]&&Dnze[WL1,"(Subscript[L, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"(Subscript[μ, 4])=",Factor[μ4]},{"η=",Factor[η]},{"κ=",Factor[κ]},{"(Subscript[K, 1])=",Factor[WK1]},{"(Subscript[L, 1])=",Factor[WL1]},"","Finite Singularities: (⊖ [)(],∅) ",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dze[μ4,"(Subscript[μ, 4])",c,a,b]&&Dpo[η,"η",c,a,b]&&Dpo[-κ,"κ",c,a,b]&&Dze[WK1,"(Subscript[K, 1])",c,a,b]&&Dze[WL1,"(Subscript[L, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"(Subscript[μ, 4])=",Factor[μ4]},{"η=",Factor[η]},{"κ=",Factor[κ]},{"(Subscript[K, 1])=",Factor[WK1]},{"(Subscript[L, 1])=",Factor[WL1]},"","Finite Singularities: (⊖ [×],∅) ",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dze[μ4,"(Subscript[μ, 4])",c,a,b]&&Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dnze[κ,"κ",c,a,b]&&Dnze[θ2,"(Subscript[θ, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"(Subscript[μ, 4])=",Factor[μ4]},{"η=",Factor[η]},{"(OverTilde[M])=",Factor[WM]},{"κ=",Factor[κ]},{"(Subscript[θ, 2])=",Factor[θ2]},"","Finite Singularities: (n^d),(\!⊖ [|],∅) ",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dze[μ4,"(Subscript[μ, 4])",c,a,b]&&Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dnze[κ,"κ",c,a,b]&&Dze[θ2,"(Subscript[θ, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"(Subscript[μ, 4])=",Factor[μ4]},{"η=",Factor[η]},{"(OverTilde[M])=",Factor[WM]},{"κ=",Factor[κ]},{"(Subscript[θ, 2])=",Factor[θ2]},"","Finite Singularities: (⊖ [|],(n^d)) ",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dze[μ4,"(Subscript[μ, 4])",c,a,b]&&Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dpo[-(OverTilde[K]),"(OverTilde[K])",c,a,b]&&Dnze[WK2,"(Subscript[K, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"(Subscript[μ, 4])=",Factor[μ4]},{"η=",Factor[η]},{"(OverTilde[M])=",Factor[WM]},{"κ=",Factor[κ]},{"(OverTilde[K])=",Factor[WK]},{"(Subscript[K, 2])=",Factor[WK2]},"","Finite Singularities: s,(⊖ [|],∅) ",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dze[μ4,"(Subscript[μ, 4])",c,a,b]&&Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dpo[-(OverTilde[K]),"(OverTilde[K])",c,a,b]&&Dze[WK2,"(Subscript[K, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"(Subscript[μ, 4])=",Factor[μ4]},{"η=",Factor[η]},{"(OverTilde[M])=",Factor[WM]},{"κ=",Factor[κ]},{"(OverTilde[K])=",Factor[WK]},{"(Subscript[K, 2])=",Factor[WK2]},"","Finite Singularities: (⊖ [|],s) ",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dze[μ4,"(Subscript[μ, 4])",c,a,b]&&Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dpo[(OverTilde[K]),"(OverTilde[K])",c,a,b]&&Dnze[WK2,"(Subscript[K, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"(Subscript[μ, 4])=",Factor[μ4]},{"η=",Factor[η]},{"(OverTilde[M])=",Factor[WM]},{"κ=",Factor[κ]},{"(OverTilde[K])=",Factor[WK]},{"(Subscript[K, 2])=",Factor[WK2]},"","Finite Singularities: n,(⊖ [|],∅) ",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dze[μ4,"(Subscript[μ, 4])",c,a,b]&&Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dpo[(OverTilde[K]),"(OverTilde[K])",c,a,b]&&Dze[WK2,"(Subscript[K, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"(Subscript[μ, 4])=",Factor[μ4]},{"η=",Factor[η]},{"(OverTilde[M])=",Factor[WM]},{"κ=",Factor[κ]},{"(OverTilde[K])=",Factor[WK]},{"(Subscript[K, 2])=",Factor[WK2]},"","Finite Singularities: (⊖ [|],n) ",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dze[μ4,"(Subscript[μ, 4])",c,a,b]&&Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dze[(OverTilde[K]),"(OverTilde[K])",c,a,b]&&Dnze[WL,"(OverTilde[L])",c,a,b]&&Dnze[κ1,"(Subscript[κ, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"(Subscript[μ, 4])=",Factor[μ4]},{"η=",Factor[η]},{"(OverTilde[M])=",Factor[WM]},{"κ=",Factor[κ]},{"(OverTilde[K])=",Factor[WK]},{"(OverTilde[L])=",Factor[WL]},{"(Subscript[κ, 1])=",Factor[κ1]},"","Finite Singularities: (⊖ [⋃],∅) ",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dze[μ4,"(Subscript[μ, 4])",c,a,b]&&Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dze[(OverTilde[K]),"(OverTilde[K])",c,a,b]&&Dnze[WL,"(OverTilde[L])",c,a,b]&&Dze[κ1,"(Subscript[κ, 1])",c,a,b]&&Dpo[-WK2,"(Subscript[K, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"(Subscript[μ, 4])=",Factor[μ4]},{"η=",Factor[η]},{"(OverTilde[M])=",Factor[WM]},{"κ=",Factor[κ]},{"(OverTilde[K])=",Factor[WK]},{"(OverTilde[L])=",Factor[WL]},{"(Subscript[κ, 1])=",Factor[κ1]},{"(Subscript[K, 2])=",Factor[WK2]},"","Finite Singularities: (⊖ [(\[LeftDoubleBracketingBar]^c)],∅) ",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dze[μ4,"(Subscript[μ, 4])",c,a,b]&&Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dze[(OverTilde[K]),"(OverTilde[K])",c,a,b]&&Dnze[WL,"(OverTilde[L])",c,a,b]&&Dze[κ1,"(Subscript[κ, 1])",c,a,b]&&Dnze[θ6,"(Subscript[θ, 6])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"(Subscript[μ, 4])=",Factor[μ4]},{"η=",Factor[η]},{"(OverTilde[M])=",Factor[WM]},{"κ=",Factor[κ]},{"(OverTilde[K])=",Factor[WK]},{"(OverTilde[L])=",Factor[WL]},{"(Subscript[κ, 1])=",Factor[κ1]},{"(Subscript[θ, 6])=",Factor[θ6]},"","Finite Singularities: (⊖ [|],∅) ",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dze[μ4,"(Subscript[μ, 4])",c,a,b]&&Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dze[(OverTilde[K]),"(OverTilde[K])",c,a,b]&&Dnze[WL,"(OverTilde[L])",c,a,b]&&Dze[κ1,"(Subscript[κ, 1])",c,a,b]&&Dze[θ6,"(Subscript[θ, 6])",c,a,b]&&Dpo[WK2,"(Subscript[K, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"(Subscript[μ, 4])=",Factor[μ4]},{"η=",Factor[η]},{"(OverTilde[M])=",Factor[WM]},{"κ=",Factor[κ]},{"(OverTilde[K])=",Factor[WK]},{"(OverTilde[L])=",Factor[WL]},{"(Subscript[κ, 1])=",Factor[κ1]},{"(Subscript[θ, 6])=",Factor[θ6]},{"(Subscript[K, 2])=",Factor[WK2]},"","Finite Singularities: (⊖ [\[LeftDoubleBracketingBar]],∅) ",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dze[μ4,"(Subscript[μ, 4])",c,a,b]&&Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dze[(OverTilde[K]),"(OverTilde[K])",c,a,b]&&Dnze[WL,"(OverTilde[L])",c,a,b]&&Dze[κ1,"(Subscript[κ, 1])",c,a,b]&&Dnze[θ6,"(Subscript[θ, 6])",c,a,b]&&Dze[WK2,"(Subscript[K, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"(Subscript[μ, 4])=",Factor[μ4]},{"η=",Factor[η]},{"(OverTilde[M])=",Factor[WM]},{"κ=",Factor[κ]},{"(OverTilde[K])=",Factor[WK]},{"(OverTilde[L])=",Factor[WL]},{"(Subscript[κ, 1])=",Factor[κ1]},{"(Subscript[θ, 6])=",Factor[θ6]},{"(Subscript[K, 2])=",Factor[WK2]},"","Finite Singularities: (⊖ [|],∅) ",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dze[μ4,"(Subscript[μ, 4])",c,a,b]&&Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dze[(OverTilde[K]),"(OverTilde[K])",c,a,b]&&Dnze[WL,"(OverTilde[L])",c,a,b]&&Dze[κ1,"(Subscript[κ, 1])",c,a,b]&&Dze[θ6,"(Subscript[θ, 6])",c,a,b]&&Dze[WK2,"(Subscript[K, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"(Subscript[μ, 4])=",Factor[μ4]},{"η=",Factor[η]},{"(OverTilde[M])=",Factor[WM]},{"κ=",Factor[κ]},{"(OverTilde[K])=",Factor[WK]},{"(OverTilde[L])=",Factor[WL]},{"(Subscript[κ, 1])=",Factor[κ1]},{"(Subscript[θ, 6])=",Factor[θ6]},{"(Subscript[K, 2])=",Factor[WK2]},"","Finite Singularities: (⊖ [|2],∅) ",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dze[μ4,"(Subscript[μ, 4])",c,a,b]&&Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dze[(OverTilde[K]),"(OverTilde[K])",c,a,b]&&Dze[WL,"(OverTilde[L])",c,a,b]&&Dnze[κ1,"(Subscript[κ, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"(Subscript[μ, 4])=",Factor[μ4]},{"η=",Factor[η]},{"(OverTilde[M])=",Factor[WM]},{"κ=",Factor[κ]},{"(OverTilde[K])=",Factor[WK]},{"(OverTilde[L])=",Factor[WL]},{"(Subscript[κ, 1])=",Factor[κ1]},"","Finite Singularities: (⊖ [|],∅) ",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dze[μ4,"(Subscript[μ, 4])",c,a,b]&&Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dze[(OverTilde[K]),"(OverTilde[K])",c,a,b]&&Dze[WL,"(OverTilde[L])",c,a,b]&&Dze[κ1,"(Subscript[κ, 1])",c,a,b]&&Dnze[WK1,"(Subscript[K, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"(Subscript[μ, 4])=",Factor[μ4]},{"η=",Factor[η]},{"(OverTilde[M])=",Factor[WM]},{"κ=",Factor[κ]},{"(OverTilde[K])=",Factor[WK]},{"(OverTilde[L])=",Factor[WL]},{"(Subscript[κ, 1])=",Factor[κ1]},{"(Subscript[K, 1])=",Factor[WK1]},"","Finite Singularities: (⊖ [|],∅) ",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dze[μ4,"(Subscript[μ, 4])",c,a,b]&&Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dze[(OverTilde[K]),"(OverTilde[K])",c,a,b]&&Dze[WL,"(OverTilde[L])",c,a,b]&&Dze[κ1,"(Subscript[κ, 1])",c,a,b]&&Dze[WK1,"(Subscript[K, 1])",c,a,b]&&Dnze[WL2,"(Subscript[L, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"(Subscript[μ, 4])=",Factor[μ4]},{"η=",Factor[η]},{"(OverTilde[M])=",Factor[WM]},{"κ=",Factor[κ]},{"(OverTilde[K])=",Factor[WK]},{"(OverTilde[L])=",Factor[WL]},{"(Subscript[κ, 1])=",Factor[κ1]},{"(Subscript[K, 1])=",Factor[WK1]},{"(Subscript[L, 2])=",Factor[WL2]},"","Finite Singularities: (⊖ [)(],∅) ",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dze[μ4,"(Subscript[μ, 4])",c,a,b]&&Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dze[(OverTilde[K]),"(OverTilde[K])",c,a,b]&&Dze[WL,"(OverTilde[L])",c,a,b]&&Dze[κ1,"(Subscript[κ, 1])",c,a,b]&&Dze[WK1,"(Subscript[K, 1])",c,a,b]&&Dze[WL2,"(Subscript[L, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"(Subscript[μ, 4])=",Factor[μ4]},{"η=",Factor[η]},{"(OverTilde[M])=",Factor[WM]},{"κ=",Factor[κ]},{"(OverTilde[K])=",Factor[WK]},{"(OverTilde[L])=",Factor[WL]},{"(Subscript[κ, 1])=",Factor[κ1]},{"(Subscript[K, 1])=",Factor[WK1]},{"(Subscript[L, 2])=",Factor[WL2]},"","Finite Singularities: (⊖ [×],∅) ",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dze[μ4,"(Subscript[μ, 4])",c,a,b]&&Dze[η,"η",c,a,b]&&Dze[WM,"(OverTilde[M])",c,a,b]&&Dnze[WC2,"(Subscript[C, 2])",c,a,b]&&Dnze[(OverTilde[K]),"(OverTilde[K])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"(Subscript[μ, 4])=",Factor[μ4]},{"η=",Factor[η]},{"(OverTilde[M])=",Factor[WM]},{"(Subscript[C, 2])=",Factor[WC2]},{"(OverTilde[K])=",Factor[WK]},"","Finite Singularities: (⊖ [|],∅) ",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dze[μ4,"(Subscript[μ, 4])",c,a,b]&&Dze[η,"η",c,a,b]&&Dze[WM,"(OverTilde[M])",c,a,b]&&Dnze[WC2,"(Subscript[C, 2])",c,a,b]&&Dze[(OverTilde[K]),"(OverTilde[K])",c,a,b]&&Dnze[WK1,"(Subscript[K, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"(Subscript[μ, 4])=",Factor[μ4]},{"η=",Factor[η]},{"(OverTilde[M])=",Factor[WM]},{"(Subscript[C, 2])=",Factor[WC2]},{"(OverTilde[K])=",Factor[WK]},{"(Subscript[K, 1])=",Factor[WK1]},"","Finite Singularities: (⊖ [|],∅) ",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dze[μ4,"(Subscript[μ, 4])",c,a,b]&&Dze[η,"η",c,a,b]&&Dze[WM,"(OverTilde[M])",c,a,b]&&Dnze[WC2,"(Subscript[C, 2])",c,a,b]&&Dze[(OverTilde[K]),"(OverTilde[K])",c,a,b]&&Dze[WK1,"(Subscript[K, 1])",c,a,b]&&Dnze[WK3,"(Subscript[K, 3])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"(Subscript[μ, 4])=",Factor[μ4]},{"η=",Factor[η]},{"(OverTilde[M])=",Factor[WM]},{"(Subscript[C, 2])=",Factor[WC2]},{"(OverTilde[K])=",Factor[WK]},{"(Subscript[K, 1])=",Factor[WK1]},{"(Subscript[K, 3])=",Factor[WK3]},"","Finite Singularities: (⊖ [⋃],∅) ",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dze[μ4,"(Subscript[μ, 4])",c,a,b]&&Dze[η,"η",c,a,b]&&Dze[WM,"(OverTilde[M])",c,a,b]&&Dnze[WC2,"(Subscript[C, 2])",c,a,b]&&Dze[(OverTilde[K]),"(OverTilde[K])",c,a,b]&&Dze[WK1,"(Subscript[K, 1])",c,a,b]&&Dze[WK3,"(Subscript[K, 3])",c,a,b]&&Dpo[-WL3,"(Subscript[L, 3])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"(Subscript[μ, 4])=",Factor[μ4]},{"η=",Factor[η]},{"(OverTilde[M])=",Factor[WM]},{"(Subscript[C, 2])=",Factor[WC2]},{"(OverTilde[K])=",Factor[WK]},{"(Subscript[K, 1])=",Factor[WK1]},{"(Subscript[K, 3])=",Factor[WK3]},{"(Subscript[L, 3])=",Factor[WL3]},"","Finite Singularities: (⊖ [(\[LeftDoubleBracketingBar]^c)],∅) ",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dze[μ4,"(Subscript[μ, 4])",c,a,b]&&Dze[η,"η",c,a,b]&&Dze[WM,"(OverTilde[M])",c,a,b]&&Dnze[WC2,"(Subscript[C, 2])",c,a,b]&&Dze[(OverTilde[K]),"(OverTilde[K])",c,a,b]&&Dze[WK1,"(Subscript[K, 1])",c,a,b]&&Dze[WK3,"(Subscript[K, 3])",c,a,b]&&Dpo[WL3,"(Subscript[L, 3])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"(Subscript[μ, 4])=",Factor[μ4]},{"η=",Factor[η]},{"(OverTilde[M])=",Factor[WM]},{"(Subscript[C, 2])=",Factor[WC2]},{"(OverTilde[K])=",Factor[WK]},{"(Subscript[K, 1])=",Factor[WK1]},{"(Subscript[K, 3])=",Factor[WK3]},{"(Subscript[L, 3])=",Factor[WL3]},"","Finite Singularities: (⊖ [\[LeftDoubleBracketingBar]],∅) ",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dze[μ4,"(Subscript[μ, 4])",c,a,b]&&Dze[η,"η",c,a,b]&&Dze[WM,"(OverTilde[M])",c,a,b]&&Dnze[WC2,"(Subscript[C, 2])",c,a,b]&&Dze[(OverTilde[K]),"(OverTilde[K])",c,a,b]&&Dze[WK1,"(Subscript[K, 1])",c,a,b]&&Dze[WK3,"(Subscript[K, 3])",c,a,b]&&Dze[WL3,"(Subscript[L, 3])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"(Subscript[μ, 4])=",Factor[μ4]},{"η=",Factor[η]},{"(OverTilde[M])=",Factor[WM]},{"(Subscript[C, 2])=",Factor[WC2]},{"(OverTilde[K])=",Factor[WK]},{"(Subscript[K, 1])=",Factor[WK1]},{"(Subscript[K, 3])=",Factor[WK3]},{"(Subscript[L, 3])=",Factor[WL3]},"","Finite Singularities: (⊖ [|2],∅) ",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dze[μ4,"(Subscript[μ, 4])",c,a,b]&&Dze[η,"η",c,a,b]&&Dze[WM,"(OverTilde[M])",c,a,b]&&Dze[WC2,"(Subscript[C, 2])",c,a,b]&&Dnze[WK2,"(Subscript[K, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"(Subscript[μ, 4])=",Factor[μ4]},{"η=",Factor[η]},{"(OverTilde[M])=",Factor[WM]},{"(Subscript[C, 2])=",Factor[WC2]},{"(Subscript[K, 2])=",Factor[WK2]},"","Finite Singularities: (SuperStar[n]),(⊖ [|],∅) ",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dze[μ4,"(Subscript[μ, 4])",c,a,b]&&Dze[η,"η",c,a,b]&&Dze[WM,"(OverTilde[M])",c,a,b]&&Dze[WC2,"(Subscript[C, 2])",c,a,b]&&Dze[WK2,"(Subscript[K, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"(Subscript[μ, 4])=",Factor[μ4]},{"η=",Factor[η]},{"(OverTilde[M])=",Factor[WM]},{"(Subscript[C, 2])=",Factor[WC2]},{"(Subscript[K, 2])=",Factor[WK2]},"","Finite Singularities: (⊖ [|],(SuperStar[n])) ",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dnze[μ4,"(Subscript[μ, 4])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"(Subscript[μ, 4])=",Factor[μ4]},"","Finite Singularities: No finite singularity",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dnze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dpo[-κ,"-κ",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dnze[𝔗4,"(Subscript[𝔗, 4])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"κ=",Factor[κ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},"","Finite Singularities: f",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dnze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dpo[-κ,"-κ",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"κ=",Factor[κ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},"","Finite Singularities: (f^((1)))",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dnze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dpo[-κ,"-κ",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"κ=",Factor[κ]},{"(Subscript[W, 4])=",Factor[WW4]},"","Finite Singularities: n",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dnze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dpo[-κ,"-κ",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"κ=",Factor[κ]},{"(Subscript[W, 4])=",Factor[WW4]},"","Finite Singularities: (n^d)",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dnze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dpo[κ,"κ",c,a,b]&&Dnze[𝔗4,"(Subscript[𝔗, 4])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"κ=",Factor[κ]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},"","Finite Singularities: s",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dnze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dpo[κ,"κ",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"κ=",Factor[κ]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},"","Finite Singularities: (s^((1)))",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dnze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dpo[-WK,"-(Overscript[K, ∼])",c,a,b]&&Dnze[𝔅3,"(Subscript[𝔅, 3])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[𝔅, 3])=",Factor[𝔅3]},"","Finite Singularities: s",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dnze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dpo[-WK,"-(Overscript[K, ∼])",c,a,b]&&Dze[𝔅3,"(Subscript[𝔅, 3])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[𝔅, 3])=",Factor[𝔅3]},"","Finite Singularities: $",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dnze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dnze[WL,"(Overscript[L, ∼])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Overscript[L, ∼])=",Factor[WL]},"","Finite Singularities: n",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dnze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WL,"(Overscript[L, ∼])",c,a,b]&&Dze[WC2,"(Subscript[C, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Overscript[L, ∼])=",Factor[WL]},{"(Subscript[C, 2])=",Factor[WC2]},"","Finite Singularities: (n^d)",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dnze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WL,"(Overscript[L, ∼])",c,a,b]&&Dnze[WC2,"(Subscript[C, 2])",c,a,b]&&Dpo[-WK3,"-(Subscript[K, 3])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Overscript[L, ∼])=",Factor[WL]},{"(Subscript[C, 2])=",Factor[WC2]},{"(Subscript[K, 3])=",Factor[WK3]},"","Finite Singularities: (n^d)",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dnze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WL,"(Overscript[L, ∼])",c,a,b]&&Dnze[WC2,"(Subscript[C, 2])",c,a,b]&&Dpo[WK3,"(Subscript[K, 3])",c,a,b]&&Dnze[𝔘3,"(Subscript[𝔘, 3])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Overscript[L, ∼])=",Factor[WL]},{"(Subscript[C, 2])=",Factor[WC2]},{"(Subscript[K, 3])=",Factor[WK3]},{"(Subscript[U, 3])=",Factor[𝔘3]},"","Finite Singularities: (n^d)",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dnze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WL,"(Overscript[L, ∼])",c,a,b]&&Dnze[WC2,"(Subscript[C, 2])",c,a,b]&&Dpo[WK3,"(Subscript[K, 3])",c,a,b]&&Dze[𝔘3,"(Subscript[𝔘, 3])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Overscript[L, ∼])=",Factor[WL]},{"(Subscript[C, 2])=",Factor[WC2]},{"(Subscript[K, 3])=",Factor[WK3]},{"(Subscript[U, 3])=",Factor[𝔘3]},"","Finite Singularities: (SuperStar[n])",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dnze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dze[WK,"(Overscript[K, ∼])",c,a,b]&&Dnze[η,"η",c,a,b]&&Dpo[-μ3 WK1,"-(Subscript[μ, 3]) (Subscript[K, 1])",c,a,b]&&Dnze[𝔗4,"(Subscript[𝔗, 4])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"η=",Factor[η]},{"(Subscript[μ, 3]) (Subscript[K, 1])=",Factor[μ3 WK1]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},"","Finite Singularities: s",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dnze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dze[WK,"(Overscript[K, ∼])",c,a,b]&&Dnze[η,"η",c,a,b]&&Dpo[-μ3 WK1,"-(Subscript[μ, 3]) (Subscript[K, 1])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"η=",Factor[η]},{"(Subscript[μ, 3]) (Subscript[K, 1])=",Factor[μ3 WK1]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},"","Finite Singularities: (s^((1)))",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dnze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dze[WK,"(Overscript[K, ∼])",c,a,b]&&Dnze[η,"η",c,a,b]&&Dpo[μ3 WK1,"(Subscript[μ, 3]) (Subscript[K, 1])",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dnze[𝔗4,"(Subscript[𝔗, 4])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"η=",Factor[η]},{"(Subscript[μ, 3]) (Subscript[K, 1])=",Factor[μ3 WK1]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},"","Finite Singularities: f",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dnze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dze[WK,"(Overscript[K, ∼])",c,a,b]&&Dnze[η,"η",c,a,b]&&Dpo[μ3 WK1,"(Subscript[μ, 3]) (Subscript[K, 1])",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"η=",Factor[η]},{"(Subscript[μ, 3]) (Subscript[K, 1])=",Factor[μ3 WK1]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},"","Finite Singularities: (f^((1)))",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dnze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dze[WK,"(Overscript[K, ∼])",c,a,b]&&Dnze[η,"η",c,a,b]&&Dpo[μ3 WK1,"(Subscript[μ, 3]) (Subscript[K, 1])",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"η=",Factor[η]},{"(Subscript[μ, 3]) (Subscript[K, 1])=",Factor[μ3 WK1]},{"(Subscript[W, 4])=",Factor[WW4]},"","Finite Singularities: n",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dnze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dze[WK,"(Overscript[K, ∼])",c,a,b]&&Dnze[η,"η",c,a,b]&&Dpo[μ3 WK1,"(Subscript[μ, 3]) (Subscript[K, 1])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"η=",Factor[η]},{"(Subscript[μ, 3]) (Subscript[K, 1])=",Factor[μ3 WK1]},{"(Subscript[W, 4])=",Factor[WW4]},"","Finite Singularities: (n^d)",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dnze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dze[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[η,"η",c,a,b]&&Dnze[WM,"(Overscript[M, ∼])",c,a,b]&&Dnze[WL,"(Overscript[L, ∼])",c,a,b]&&Dpo[-μ3 WK1,"-(Subscript[μ, 3]) (Subscript[K, 1])",c,a,b]&&Dnze[𝔅1,"(Subscript[𝔅, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Overscript[L, ∼])=",Factor[WL]},{"(Subscript[μ, 3]) (Subscript[K, 1])=",Factor[μ3 WK1]},{"(Subscript[𝔅, 1])=",Factor[𝔅1]},"","Finite Singularities: s",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dnze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dze[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[η,"η",c,a,b]&&Dnze[WM,"(Overscript[M, ∼])",c,a,b]&&Dnze[WL,"(Overscript[L, ∼])",c,a,b]&&Dpo[-μ3 WK1,"-(Subscript[μ, 3]) (Subscript[K, 1])",c,a,b]&&Dze[𝔅1,"(Subscript[𝔅, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Overscript[L, ∼])=",Factor[WL]},{"(Subscript[μ, 3]) (Subscript[K, 1])=",Factor[μ3 WK1]},{"(Subscript[𝔅, 1])=",Factor[𝔅1]},"","Finite Singularities: $",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dnze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dze[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[η,"η",c,a,b]&&Dnze[WM,"(Overscript[M, ∼])",c,a,b]&&Dnze[WL,"(Overscript[L, ∼])",c,a,b]&&Dpo[μ3 WK1,"(Subscript[μ, 3]) (Subscript[K, 1])",c,a,b]&&Dpo[-WW8,"-(Subscript[W, 8])",c,a,b]&&Dnze[𝔅1,"(Subscript[𝔅, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Overscript[L, ∼])=",Factor[WL]},{"(Subscript[μ, 3]) (Subscript[K, 1])=",Factor[μ3 WK1]},{"(Subscript[W, 8])=",Factor[WW8]},{"(Subscript[𝔅, 1])=",Factor[𝔅1]},"","Finite Singularities: f",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dnze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dze[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[η,"η",c,a,b]&&Dnze[WM,"(Overscript[M, ∼])",c,a,b]&&Dnze[WL,"(Overscript[L, ∼])",c,a,b]&&Dpo[μ3 WK1,"(Subscript[μ, 3]) (Subscript[K, 1])",c,a,b]&&Dpo[-WW8,"-(Subscript[W, 8])",c,a,b]&&Dze[𝔅1,"(Subscript[𝔅, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Overscript[L, ∼])=",Factor[WL]},{"(Subscript[μ, 3]) (Subscript[K, 1])=",Factor[μ3 WK1]},{"(Subscript[W, 8])=",Factor[WW8]},{"(Subscript[𝔅, 1])=",Factor[𝔅1]},"","Finite Singularities: c",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dnze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dze[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[η,"η",c,a,b]&&Dnze[WM,"(Overscript[M, ∼])",c,a,b]&&Dnze[WL,"(Overscript[L, ∼])",c,a,b]&&Dpo[μ3 WK1,"(Subscript[μ, 3]) (Subscript[K, 1])",c,a,b]&&Dpo[WW8,"(Subscript[W, 8])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Overscript[L, ∼])=",Factor[WL]},{"(Subscript[μ, 3]) (Subscript[K, 1])=",Factor[μ3 WK1]},{"(Subscript[W, 8])=",Factor[WW8]},"","Finite Singularities: n",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dnze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dze[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[η,"η",c,a,b]&&Dnze[WM,"(Overscript[M, ∼])",c,a,b]&&Dnze[WL,"(Overscript[L, ∼])",c,a,b]&&Dpo[μ3 WK1,"(Subscript[μ, 3]) (Subscript[K, 1])",c,a,b]&&Dze[WW8,"(Subscript[W, 8])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Overscript[L, ∼])=",Factor[WL]},{"(Subscript[μ, 3]) (Subscript[K, 1])=",Factor[μ3 WK1]},{"(Subscript[W, 8])=",Factor[WW8]},"","Finite Singularities: (n^d)",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dnze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dze[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[η,"η",c,a,b]&&Dnze[WM,"(Overscript[M, ∼])",c,a,b]&&Dze[WL,"(Overscript[L, ∼])",c,a,b]&&Dpo[-μ3 WK1,"-(Subscript[μ, 3]) (Subscript[K, 1])",c,a,b]&&Dnze[κ1,"(Subscript[κ, 1])",c,a,b]&&Dnze[𝔅1,"(Subscript[𝔅, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Overscript[L, ∼])=",Factor[WL]},{"(Subscript[μ, 3]) (Subscript[K, 1])=",Factor[μ3 WK1]},{"(Subscript[κ, 1])=",Factor[κ1]},{"(Subscript[𝔅, 1])=",Factor[𝔅1]},"","Finite Singularities: s",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dnze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dze[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[η,"η",c,a,b]&&Dnze[WM,"(Overscript[M, ∼])",c,a,b]&&Dze[WL,"(Overscript[L, ∼])",c,a,b]&&Dpo[-μ3 WK1,"-(Subscript[μ, 3]) (Subscript[K, 1])",c,a,b]&&Dnze[κ1,"(Subscript[κ, 1])",c,a,b]&&Dze[𝔅1,"(Subscript[𝔅, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Overscript[L, ∼])=",Factor[WL]},{"(Subscript[μ, 3]) (Subscript[K, 1])=",Factor[μ3 WK1]},{"(Subscript[κ, 1])=",Factor[κ1]},{"(Subscript[𝔅, 1])=",Factor[𝔅1]},"","Finite Singularities: $",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dnze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dze[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[η,"η",c,a,b]&&Dnze[WM,"(Overscript[M, ∼])",c,a,b]&&Dze[WL,"(Overscript[L, ∼])",c,a,b]&&Dpo[-μ3 WK1,"-(Subscript[μ, 3]) (Subscript[K, 1])",c,a,b]&&Dze[κ1,"(Subscript[κ, 1])",c,a,b]&&Dnze[𝔅4,"(Subscript[𝔅, 4])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Overscript[L, ∼])=",Factor[WL]},{"(Subscript[μ, 3]) (Subscript[K, 1])=",Factor[μ3 WK1]},{"(Subscript[κ, 1])=",Factor[κ1]},{"(Subscript[𝔅, 4])=",Factor[𝔅4]},"","Finite Singularities: s",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dnze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dze[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[η,"η",c,a,b]&&Dnze[WM,"(Overscript[M, ∼])",c,a,b]&&Dze[WL,"(Overscript[L, ∼])",c,a,b]&&Dpo[-μ3 WK1,"-(Subscript[μ, 3]) (Subscript[K, 1])",c,a,b]&&Dze[κ1,"(Subscript[κ, 1])",c,a,b]&&Dze[𝔅4,"(Subscript[𝔅, 4])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Overscript[L, ∼])=",Factor[WL]},{"(Subscript[μ, 3]) (Subscript[K, 1])=",Factor[μ3 WK1]},{"(Subscript[κ, 1])=",Factor[κ1]},{"(Subscript[𝔅, 4])=",Factor[𝔅4]},"","Finite Singularities: $",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dnze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dze[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[η,"η",c,a,b]&&Dnze[WM,"(Overscript[M, ∼])",c,a,b]&&Dze[WL,"(Overscript[L, ∼])",c,a,b]&&Dpo[μ3 WK1,"(Subscript[μ, 3]) (Subscript[K, 1])",c,a,b]&&Dpo[-WW7,"-(Subscript[W, 7])",c,a,b]&&Dnze[𝔅1,"(Subscript[𝔅, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Overscript[L, ∼])=",Factor[WL]},{"(Subscript[μ, 3]) (Subscript[K, 1])=",Factor[μ3 WK1]},{"(Subscript[W, 7])=",Factor[WW7]},{"(Subscript[𝔅, 1])=",Factor[𝔅1]},"","Finite Singularities: f",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dnze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dze[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[η,"η",c,a,b]&&Dnze[WM,"(Overscript[M, ∼])",c,a,b]&&Dze[WL,"(Overscript[L, ∼])",c,a,b]&&Dpo[μ3 WK1,"(Subscript[μ, 3]) (Subscript[K, 1])",c,a,b]&&Dpo[-WW7,"-(Subscript[W, 7])",c,a,b]&&Dze[𝔅1,"(Subscript[𝔅, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Overscript[L, ∼])=",Factor[WL]},{"(Subscript[μ, 3]) (Subscript[K, 1])=",Factor[μ3 WK1]},{"(Subscript[W, 7])=",Factor[WW7]},{"(Subscript[𝔅, 1])=",Factor[𝔅1]},"","Finite Singularities: c",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dnze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dze[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[η,"η",c,a,b]&&Dnze[WM,"(Overscript[M, ∼])",c,a,b]&&Dze[WL,"(Overscript[L, ∼])",c,a,b]&&Dpo[μ3 WK1,"(Subscript[μ, 3]) (Subscript[K, 1])",c,a,b]&&Dpo[WW7,"(Subscript[W, 7])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Overscript[L, ∼])=",Factor[WL]},{"(Subscript[μ, 3]) (Subscript[K, 1])=",Factor[μ3 WK1]},{"(Subscript[W, 7])=",Factor[WW7]},"","Finite Singularities: n",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dnze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dze[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[η,"η",c,a,b]&&Dnze[WM,"(Overscript[M, ∼])",c,a,b]&&Dze[WL,"(Overscript[L, ∼])",c,a,b]&&Dpo[μ3 WK1,"(Subscript[μ, 3]) (Subscript[K, 1])",c,a,b]&&Dze[WW7,"(Subscript[W, 7])",c,a,b]&&Dnze[κ1,"(Subscript[κ, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Overscript[L, ∼])=",Factor[WL]},{"(Subscript[μ, 3]) (Subscript[K, 1])=",Factor[μ3 WK1]},{"(Subscript[W, 7])=",Factor[WW7]},{"(Subscript[κ, 1])=",Factor[κ1]},"","Finite Singularities: (n^d)",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dnze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dze[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[η,"η",c,a,b]&&Dnze[WM,"(Overscript[M, ∼])",c,a,b]&&Dze[WL,"(Overscript[L, ∼])",c,a,b]&&Dpo[μ3 WK1,"(Subscript[μ, 3]) (Subscript[K, 1])",c,a,b]&&Dze[WW7,"(Subscript[W, 7])",c,a,b]&&Dze[κ1,"(Subscript[κ, 1])",c,a,b]&&Dnze[WW11,"(Subscript[W, 11])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Overscript[L, ∼])=",Factor[WL]},{"(Subscript[μ, 3]) (Subscript[K, 1])=",Factor[μ3 WK1]},{"(Subscript[W, 7])=",Factor[WW7]},{"(Subscript[κ, 1])=",Factor[κ1]},{"(Subscript[W, 11])=",Factor[WW11]},"","Finite Singularities: n",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dnze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dze[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[η,"η",c,a,b]&&Dnze[WM,"(Overscript[M, ∼])",c,a,b]&&Dze[WL,"(Overscript[L, ∼])",c,a,b]&&Dpo[μ3 WK1,"(Subscript[μ, 3]) (Subscript[K, 1])",c,a,b]&&Dze[WW7,"(Subscript[W, 7])",c,a,b]&&Dze[κ1,"(Subscript[κ, 1])",c,a,b]&&Dze[WW11,"(Subscript[W, 11])",c,a,b]&&Dnze[𝔘3,"(Subscript[𝔘, 3])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Overscript[L, ∼])=",Factor[WL]},{"(Subscript[μ, 3]) (Subscript[K, 1])=",Factor[μ3 WK1]},{"(Subscript[W, 7])=",Factor[WW7]},{"(Subscript[κ, 1])=",Factor[κ1]},{"(Subscript[W, 11])=",Factor[WW11]},{"(Subscript[U, 3])=",Factor[𝔘3]},"","Finite Singularities: (n^d)",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dnze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dze[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[η,"η",c,a,b]&&Dnze[WM,"(Overscript[M, ∼])",c,a,b]&&Dze[WL,"(Overscript[L, ∼])",c,a,b]&&Dpo[μ3 WK1,"(Subscript[μ, 3]) (Subscript[K, 1])",c,a,b]&&Dze[WW7,"(Subscript[W, 7])",c,a,b]&&Dze[κ1,"(Subscript[κ, 1])",c,a,b]&&Dze[WW11,"(Subscript[W, 11])",c,a,b]&&Dze[𝔘3,"(Subscript[𝔘, 3])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Overscript[L, ∼])=",Factor[WL]},{"(Subscript[μ, 3]) (Subscript[K, 1])=",Factor[μ3 WK1]},{"(Subscript[W, 7])=",Factor[WW7]},{"(Subscript[κ, 1])=",Factor[κ1]},{"(Subscript[W, 11])=",Factor[WW11]},{"(Subscript[U, 3])=",Factor[𝔘3]},"","Finite Singularities: (SuperStar[n])",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dnze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dze[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[η,"η",c,a,b]&&Dze[WM,"(Overscript[M, ∼])",c,a,b]&&Dpo[-μ3 WK1,"-(Subscript[μ, 3]) (Subscript[K, 1])",c,a,b]&&Dnze[σ,"σ",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[μ, 3]) (Subscript[K, 1])=",Factor[μ3 WK1]},{"σ=",Factor[σ]},"","Finite Singularities: s",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dnze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dze[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[η,"η",c,a,b]&&Dze[WM,"(Overscript[M, ∼])",c,a,b]&&Dpo[-μ3 WK1,"-(Subscript[μ, 3]) (Subscript[K, 1])",c,a,b]&&Dze[σ,"σ",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[μ, 3]) (Subscript[K, 1])=",Factor[μ3 WK1]},{"σ=",Factor[σ]},"","Finite Singularities: $",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dnze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dze[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[η,"η",c,a,b]&&Dze[WM,"(Overscript[M, ∼])",c,a,b]&&Dpo[μ3 WK1,"(Subscript[μ, 3]) (Subscript[K, 1])",c,a,b]&&Dpo[-WK3,"-(Subscript[K, 3])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[μ, 3]) (Subscript[K, 1])=",Factor[μ3 WK1]},{"(Subscript[K, 3])=",Factor[WK3]},"","Finite Singularities: n",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dnze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dze[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[η,"η",c,a,b]&&Dze[WM,"(Overscript[M, ∼])",c,a,b]&&Dpo[μ3 WK1,"(Subscript[μ, 3]) (Subscript[K, 1])",c,a,b]&&Dpo[WK3,"(Subscript[K, 3])",c,a,b]&&Dnze[𝔘4,"(Subscript[𝔘, 4])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[μ, 3]) (Subscript[K, 1])=",Factor[μ3 WK1]},{"(Subscript[K, 3])=",Factor[WK3]},{"(Subscript[U, 4])=",Factor[𝔘4]},"","Finite Singularities: n",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dnze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dze[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[η,"η",c,a,b]&&Dze[WM,"(Overscript[M, ∼])",c,a,b]&&Dpo[μ3 WK1,"(Subscript[μ, 3]) (Subscript[K, 1])",c,a,b]&&Dpo[WK3,"(Subscript[K, 3])",c,a,b]&&Dze[𝔘4,"(Subscript[𝔘, 4])",c,a,b]&&Dnze[𝔘5,"(Subscript[𝔘, 5])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[μ, 3]) (Subscript[K, 1])=",Factor[μ3 WK1]},{"(Subscript[K, 3])=",Factor[WK3]},{"(Subscript[U, 4])=",Factor[𝔘4]},{"(Subscript[U, 5])=",Factor[𝔘5]},"","Finite Singularities: (n^d)",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dnze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dze[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[η,"η",c,a,b]&&Dze[WM,"(Overscript[M, ∼])",c,a,b]&&Dpo[μ3 WK1,"(Subscript[μ, 3]) (Subscript[K, 1])",c,a,b]&&Dpo[WK3,"(Subscript[K, 3])",c,a,b]&&Dze[𝔘4,"(Subscript[𝔘, 4])",c,a,b]&&Dze[𝔘5,"(Subscript[𝔘, 5])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[μ, 3]) (Subscript[K, 1])=",Factor[μ3 WK1]},{"(Subscript[K, 3])=",Factor[WK3]},{"(Subscript[U, 4])=",Factor[𝔘4]},{"(Subscript[U, 5])=",Factor[𝔘5]},"","Finite Singularities: (SuperStar[n])",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dnze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dze[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[η,"η",c,a,b]&&Dze[WM,"(Overscript[M, ∼])",c,a,b]&&Dpo[μ3 WK1,"(Subscript[μ, 3]) (Subscript[K, 1])",c,a,b]&&Dze[WK3,"(Subscript[K, 3])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[μ, 3]) (Subscript[K, 1])=",Factor[μ3 WK1]},{"(Subscript[K, 3])=",Factor[WK3]},"","Finite Singularities: n",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dnze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dpo[-𝕌,"-𝕌",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"𝕌=",Factor[𝕌]},"","Finite Singularities: ©, ©",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dnze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[𝕌,"𝕌",c,a,b]&&Dnze[κ,"κ",c,a,b]&&Dnze[𝔗4,"(Subscript[𝔗, 4])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"𝕌=",Factor[𝕌]},{"κ=",Factor[κ]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},"","Finite Singularities:  (Subscript[(OverBar[sn]), (2)])",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dnze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[𝕌,"𝕌",c,a,b]&&Dnze[κ,"κ",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"𝕌=",Factor[𝕌]},{"κ=",Factor[κ]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},"","Finite Singularities:  (Subscript[(OverHat[cp]), (2)])",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dnze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[𝕌,"𝕌",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dnze[WK,"(Overscript[K, ∼])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"𝕌=",Factor[𝕌]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},"","Finite Singularities:  (Subscript[(OverBar[sn]), (2)])",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dnze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[𝕌,"𝕌",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dze[WK,"(Overscript[K, ∼])",c,a,b]&&Dnze[WL,"(Overscript[L, ∼])",c,a,b]&&Dnze[𝔗4,"(Subscript[𝔗, 4])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"𝕌=",Factor[𝕌]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Overscript[L, ∼])=",Factor[WL]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},"","Finite Singularities:  (Subscript[(OverBar[sn]), (2)])",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dnze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[𝕌,"𝕌",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dze[WK,"(Overscript[K, ∼])",c,a,b]&&Dnze[WL,"(Overscript[L, ∼])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dnze[η,"η",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"𝕌=",Factor[𝕌]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Overscript[L, ∼])=",Factor[WL]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"η=",Factor[η]},"","Finite Singularities:  (Subscript[(OverHat[cp]), (2)])",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dnze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[𝕌,"𝕌",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dze[WK,"(Overscript[K, ∼])",c,a,b]&&Dnze[WL,"(Overscript[L, ∼])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[η,"η",c,a,b]&&Dnze[κ1,"(Subscript[κ, 1])",c,a,b]&&Dnze[𝔅1,"(Subscript[𝔅, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"𝕌=",Factor[𝕌]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Overscript[L, ∼])=",Factor[WL]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"η=",Factor[η]},{"(Subscript[κ, 1])=",Factor[κ1]},{"(Subscript[𝔅, 1])=",Factor[𝔅1]},"","Finite Singularities:   (Subscript[(OverBar[sn]), (2)])",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dnze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[𝕌,"𝕌",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dze[WK,"(Overscript[K, ∼])",c,a,b]&&Dnze[WL,"(Overscript[L, ∼])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[η,"η",c,a,b]&&Dnze[κ1,"(Subscript[κ, 1])",c,a,b]&&Dze[𝔅1,"(Subscript[𝔅, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"𝕌=",Factor[𝕌]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Overscript[L, ∼])=",Factor[WL]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"η=",Factor[η]},{"(Subscript[κ, 1])=",Factor[κ1]},{"(Subscript[𝔅, 1])=",Factor[𝔅1]},"","Finite Singularities:   (Subscript[(OverHat[cp]), (2)])",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dnze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[𝕌,"𝕌",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dze[WK,"(Overscript[K, ∼])",c,a,b]&&Dnze[WL,"(Overscript[L, ∼])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[η,"η",c,a,b]&&Dze[κ1,"(Subscript[κ, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"𝕌=",Factor[𝕌]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Overscript[L, ∼])=",Factor[WL]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"η=",Factor[η]},{"(Subscript[κ, 1])=",Factor[κ1]},"","Finite Singularities:   (Subscript[(OverBar[sn]), (2)])",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dnze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[𝕌,"𝕌",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dze[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WL,"(Overscript[L, ∼])",c,a,b]&&Dnze[WM,"(Overscript[M, ∼])",c,a,b]&&Dnze[𝔅1,"(Subscript[𝔅, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"𝕌=",Factor[𝕌]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Overscript[L, ∼])=",Factor[WL]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[𝔅, 1])=",Factor[𝔅1]},"","Finite Singularities:   (Subscript[(OverBar[sn]), (2)])",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dnze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[𝕌,"𝕌",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dze[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WL,"(Overscript[L, ∼])",c,a,b]&&Dnze[WM,"(Overscript[M, ∼])",c,a,b]&&Dze[𝔅1,"(Subscript[𝔅, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"𝕌=",Factor[𝕌]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Overscript[L, ∼])=",Factor[WL]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[𝔅, 1])=",Factor[𝔅1]},"","Finite Singularities:   (Subscript[(OverHat[cp]), (2)])",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dnze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[𝕌,"𝕌",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dze[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WL,"(Overscript[L, ∼])",c,a,b]&&Dze[WM,"(Overscript[M, ∼])",c,a,b]&&Dnze[𝔅4,"(Subscript[𝔅, 4])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"𝕌=",Factor[𝕌]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Overscript[L, ∼])=",Factor[WL]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[𝔅, 4])=",Factor[𝔅4]},"","Finite Singularities:   (Subscript[(OverBar[sn]), (2)])",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dnze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[𝕌,"𝕌",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dze[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WL,"(Overscript[L, ∼])",c,a,b]&&Dze[WM,"(Overscript[M, ∼])",c,a,b]&&Dze[𝔅4,"(Subscript[𝔅, 4])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"𝕌=",Factor[𝕌]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Overscript[L, ∼])=",Factor[WL]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[𝔅, 4])=",Factor[𝔅4]},"","Finite Singularities:   (Subscript[(OverHat[cp]), (2)])",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dnze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dpo[𝕌,"𝕌",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dze[WK,"(Overscript[K, ∼])",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dnze[𝔗4,"(Subscript[𝔗, 4])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"𝕌=",Factor[𝕌]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},"","Finite Singularities:  s, f",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dnze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dpo[𝕌,"𝕌",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dze[WK,"(Overscript[K, ∼])",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[-𝔗3 𝔉,"-(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"𝕌=",Factor[𝕌]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  s, (f^((1)))",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dnze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dpo[𝕌,"𝕌",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dze[WK,"(Overscript[K, ∼])",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[-𝔗3 𝔉,"-(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"𝕌=",Factor[𝕌]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  s, c,"""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dnze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dpo[𝕌,"𝕌",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dze[WK,"(Overscript[K, ∼])",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[𝔗3 𝔉,"(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"𝕌=",Factor[𝕌]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  (s^((1))), f",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dnze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dpo[𝕌,"𝕌",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dze[WK,"(Overscript[K, ∼])",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[𝔗3 𝔉,"(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"𝕌=",Factor[𝕌]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  $, f",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dnze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dpo[𝕌,"𝕌",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dze[WK,"(Overscript[K, ∼])",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"𝕌=",Factor[𝕌]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3 ]},"","Finite Singularities:  $, c",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dnze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dpo[𝕌,"𝕌",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dze[WK,"(Overscript[K, ∼])",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dnze[𝔗4,"(Subscript[𝔗, 4])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"𝕌=",Factor[𝕌]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},"","Finite Singularities:  s, n",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dnze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dpo[𝕌,"𝕌",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dze[WK,"(Overscript[K, ∼])",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"𝕌=",Factor[𝕌]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  (s^((1))), n",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dnze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dpo[𝕌,"𝕌",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dze[WK,"(Overscript[K, ∼])",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"𝕌=",Factor[𝕌]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  $, n",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dnze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dpo[𝕌,"𝕌",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dze[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dnze[𝔗4,"(Subscript[𝔗, 4])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"𝕌=",Factor[𝕌]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},"","Finite Singularities:  s, (n^d)",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dnze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dpo[𝕌,"𝕌",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dze[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dnze[η,"η",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"𝕌=",Factor[𝕌]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"η=",Factor[η]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  (s^((1))), (n^d)",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dnze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dpo[𝕌,"𝕌",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dze[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dnze[η,"η",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"𝕌=",Factor[𝕌]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"η=",Factor[η]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  $, (SuperStar[n])",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dnze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dpo[𝕌,"𝕌",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dze[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[η,"η",c,a,b]&&Dnze[WL,"(Overscript[L, ∼])",c,a,b]&&Dpo[-WW8,"-(Subscript[W, 8])",c,a,b]&&Dnze[𝔅1,"(Subscript[𝔅, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"𝕌=",Factor[𝕌]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"η=",Factor[η]},{"(Overscript[L, ∼])=",Factor[WL]},{"(Subscript[W, 8])=",Factor[WW8]},{"(Subscript[𝔅, 1])=",Factor[𝔅1]},"","Finite Singularities:  s, f",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dnze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dpo[𝕌,"𝕌",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dze[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[η,"η",c,a,b]&&Dnze[WL,"(Overscript[L, ∼])",c,a,b]&&Dpo[-WW8,"-(Subscript[W, 8])",c,a,b]&&Dze[𝔅1,"(Subscript[𝔅, 1])",c,a,b]&&Dpo[-𝔅2,"-(Subscript[𝔅, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"𝕌=",Factor[𝕌]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"η=",Factor[η]},{"(Overscript[L, ∼])=",Factor[WL]},{"(Subscript[W, 8])=",Factor[WW8]},{"(Subscript[𝔅, 1])=",Factor[𝔅1]},{"(Subscript[𝔅, 2])=",Factor[𝔅2]},"","Finite Singularities:  s, (f^((1)))",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dnze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dpo[𝕌,"𝕌",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dze[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[η,"η",c,a,b]&&Dnze[WL,"(Overscript[L, ∼])",c,a,b]&&Dpo[-WW8,"-(Subscript[W, 8])",c,a,b]&&Dze[𝔅1,"(Subscript[𝔅, 1])",c,a,b]&&Dpo[𝔅2,"(Subscript[𝔅, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"𝕌=",Factor[𝕌]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"η=",Factor[η]},{"(Overscript[L, ∼])=",Factor[WL]},{"(Subscript[W, 8])=",Factor[WW8]},{"(Subscript[𝔅, 1])=",Factor[𝔅1]},{"(Subscript[𝔅, 2])=",Factor[𝔅2]},"","Finite Singularities:  (s^((1))), f",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dnze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dpo[𝕌,"𝕌",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dze[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[η,"η",c,a,b]&&Dnze[WL,"(Overscript[L, ∼])",c,a,b]&&Dpo[WW8,"(Subscript[W, 8])",c,a,b]&&Dnze[𝔅1,"(Subscript[𝔅, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"𝕌=",Factor[𝕌]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"η=",Factor[η]},{"(Overscript[L, ∼])=",Factor[WL]},{"(Subscript[W, 8])=",Factor[WW8]},{"(Subscript[𝔅, 1])=",Factor[𝔅1]},"","Finite Singularities:  s, n",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dnze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dpo[𝕌,"𝕌",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dze[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[η,"η",c,a,b]&&Dnze[WL,"(Overscript[L, ∼])",c,a,b]&&Dpo[WW8,"(Subscript[W, 8])",c,a,b]&&Dze[𝔅1,"(Subscript[𝔅, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"𝕌=",Factor[𝕌]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"η=",Factor[η]},{"(Overscript[L, ∼])=",Factor[WL]},{"(Subscript[W, 8])=",Factor[WW8]},{"(Subscript[𝔅, 1])=",Factor[𝔅1]},"","Finite Singularities:  (s^((1))), n",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dnze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dpo[𝕌,"𝕌",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dze[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[η,"η",c,a,b]&&Dnze[WL,"(Overscript[L, ∼])",c,a,b]&&Dze[WW8,"(Subscript[W, 8])",c,a,b]&&Dnze[κ1,"(Subscript[κ, 1])",c,a,b]&&Dnze[𝔅1,"(Subscript[𝔅, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"𝕌=",Factor[𝕌]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"η=",Factor[η]},{"(Overscript[L, ∼])=",Factor[WL]},{"(Subscript[W, 8])=",Factor[WW8]},{"(Subscript[κ, 1])=",Factor[κ1]},{"(Subscript[𝔅, 1])=",Factor[𝔅1]},"","Finite Singularities:  s, (n^d)",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dnze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dpo[𝕌,"𝕌",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dze[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[η,"η",c,a,b]&&Dnze[WL,"(Overscript[L, ∼])",c,a,b]&&Dze[WW8,"(Subscript[W, 8])",c,a,b]&&Dnze[κ1,"(Subscript[κ, 1])",c,a,b]&&Dze[𝔅1,"(Subscript[𝔅, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"𝕌=",Factor[𝕌]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"η=",Factor[η]},{"(Overscript[L, ∼])=",Factor[WL]},{"(Subscript[W, 8])=",Factor[WW8]},{"(Subscript[κ, 1])=",Factor[κ1]},{"(Subscript[𝔅, 1])=",Factor[𝔅1]},"","Finite Singularities:  (s^((1))), (n^d)",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dnze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dpo[𝕌,"𝕌",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dze[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[η,"η",c,a,b]&&Dnze[WL,"(Overscript[L, ∼])",c,a,b]&&Dze[WW8,"(Subscript[W, 8])",c,a,b]&&Dze[κ1,"(Subscript[κ, 1])",c,a,b]&&Dnze[𝔅3,"(Subscript[𝔅, 3])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"𝕌=",Factor[𝕌]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"η=",Factor[η]},{"(Overscript[L, ∼])=",Factor[WL]},{"(Subscript[W, 8])=",Factor[WW8]},{"(Subscript[κ, 1])=",Factor[κ1]},{"(Subscript[𝔅, 3])=",Factor[𝔅3]},"","Finite Singularities:  s, n",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dnze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dpo[𝕌,"𝕌",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dze[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[η,"η",c,a,b]&&Dnze[WL,"(Overscript[L, ∼])",c,a,b]&&Dze[WW8,"(Subscript[W, 8])",c,a,b]&&Dze[κ1,"(Subscript[κ, 1])",c,a,b]&&Dze[𝔅3,"(Subscript[𝔅, 3])",c,a,b]&&Dnze[θ6,"θ6",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"𝕌=",Factor[𝕌]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"η=",Factor[η]},{"(Overscript[L, ∼])=",Factor[WL]},{"(Subscript[W, 8])=",Factor[WW8]},{"(Subscript[κ, 1])=",Factor[κ1]},{"(Subscript[𝔅, 3])=",Factor[𝔅3]},{"(Subscript[θ, 6])=",Factor[θ6]},"","Finite Singularities:  $, (n^d)",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dnze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dpo[𝕌,"𝕌",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dze[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[η,"η",c,a,b]&&Dnze[WL,"(Overscript[L, ∼])",c,a,b]&&Dze[WW8,"(Subscript[W, 8])",c,a,b]&&Dze[κ1,"(Subscript[κ, 1])",c,a,b]&&Dze[𝔅3,"(Subscript[𝔅, 3])",c,a,b]&&Dze[θ6,"θ6",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"𝕌=",Factor[𝕌]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"η=",Factor[η]},{"(Overscript[L, ∼])=",Factor[WL]},{"(Subscript[W, 8])=",Factor[WW8]},{"(Subscript[κ, 1])=",Factor[κ1]},{"(Subscript[𝔅, 3])=",Factor[𝔅3]},{"(Subscript[θ, 6])=",Factor[θ6]},"","Finite Singularities:  $, (SuperStar[n])",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dnze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dpo[𝕌,"𝕌",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dze[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[η,"η",c,a,b]&&Dze[WL,"(Overscript[L, ∼])",c,a,b]&&Dpo[-WW7,"-(Subscript[W, 7])",c,a,b]&&Dnze[𝔅1,"(Subscript[𝔅, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"𝕌=",Factor[𝕌]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"η=",Factor[η]},{"(Overscript[L, ∼])=",Factor[WL]},{"(Subscript[W, 7])=",Factor[WW7]},{"(Subscript[𝔅, 1])=",Factor[𝔅1]},"","Finite Singularities:  s, f",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dnze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dpo[𝕌,"𝕌",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dze[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[η,"η",c,a,b]&&Dze[WL,"(Overscript[L, ∼])",c,a,b]&&Dpo[-WW7,"-(Subscript[W, 7])",c,a,b]&&Dze[𝔅1,"(Subscript[𝔅, 1])",c,a,b]&&Dpo[-𝔅2,"-(Subscript[𝔅, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"𝕌=",Factor[𝕌]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"η=",Factor[η]},{"(Overscript[L, ∼])=",Factor[WL]},{"(Subscript[W, 7])=",Factor[WW7]},{"(Subscript[𝔅, 1])=",Factor[𝔅1]},{"(Subscript[𝔅, 2])=",Factor[𝔅2]},"","Finite Singularities:  s, (f^((1)))",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dnze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dpo[𝕌,"𝕌",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dze[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[η,"η",c,a,b]&&Dze[WL,"(Overscript[L, ∼])",c,a,b]&&Dpo[-WW7,"-(Subscript[W, 7])",c,a,b]&&Dze[𝔅1,"(Subscript[𝔅, 1])",c,a,b]&&Dpo[𝔅2,"(Subscript[𝔅, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"𝕌=",Factor[𝕌]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"η=",Factor[η]},{"(Overscript[L, ∼])=",Factor[WL]},{"(Subscript[W, 7])=",Factor[WW7]},{"(Subscript[𝔅, 1])=",Factor[𝔅1]},{"(Subscript[𝔅, 2])=",Factor[𝔅2]},"","Finite Singularities:  (s^((1))), f",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dnze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dpo[𝕌,"𝕌",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dze[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[η,"η",c,a,b]&&Dze[WL,"(Overscript[L, ∼])",c,a,b]&&Dpo[WW7,"(Subscript[W, 7])",c,a,b]&&Dnze[𝔅1,"(Subscript[𝔅, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"𝕌=",Factor[𝕌]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"η=",Factor[η]},{"(Overscript[L, ∼])=",Factor[WL]},{"(Subscript[W, 7])=",Factor[WW7]},{"(Subscript[𝔅, 1])=",Factor[𝔅1]},"","Finite Singularities:  s, n",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dnze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dpo[𝕌,"𝕌",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dze[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[η,"η",c,a,b]&&Dze[WL,"(Overscript[L, ∼])",c,a,b]&&Dpo[WW7,"(Subscript[W, 7])",c,a,b]&&Dze[𝔅1,"(Subscript[𝔅, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"𝕌=",Factor[𝕌]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"η=",Factor[η]},{"(Overscript[L, ∼])=",Factor[WL]},{"(Subscript[W, 7])=",Factor[WW7]},{"(Subscript[𝔅, 1])=",Factor[𝔅1]},"","Finite Singularities:  (s^((1))), n",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dnze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dpo[𝕌,"𝕌",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dze[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[η,"η",c,a,b]&&Dze[WL,"(Overscript[L, ∼])",c,a,b]&&Dze[WW7,"(Subscript[W, 7])",c,a,b]&&Dnze[WM,"(Overscript[M, ∼])",c,a,b]&&Dnze[𝔅1,"(Subscript[𝔅, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"𝕌=",Factor[𝕌]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"η=",Factor[η]},{"(Overscript[L, ∼])=",Factor[WL]},{"(Subscript[W, 7])=",Factor[WW7]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[𝔅, 1])=",Factor[𝔅1]},"","Finite Singularities:  s, (n^d)",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dnze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dpo[𝕌,"𝕌",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dze[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[η,"η",c,a,b]&&Dze[WL,"(Overscript[L, ∼])",c,a,b]&&Dze[WW7,"(Subscript[W, 7])",c,a,b]&&Dnze[WM,"(Overscript[M, ∼])",c,a,b]&&Dze[𝔅1,"(Subscript[𝔅, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"𝕌=",Factor[𝕌]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"η=",Factor[η]},{"(Overscript[L, ∼])=",Factor[WL]},{"(Subscript[W, 7])=",Factor[WW7]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[𝔅, 1])=",Factor[𝔅1]},"Finite Singularities:  (s^((1))), (n^d)",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dnze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dpo[𝕌,"𝕌",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dze[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[η,"η",c,a,b]&&Dze[WL,"(Overscript[L, ∼])",c,a,b]&&Dze[WW7,"(Subscript[W, 7])",c,a,b]&&Dze[WM,"(Overscript[M, ∼])",c,a,b]&&Dpo[-WW9,"-(Subscript[W, 9])",c,a,b]&&Dnze[σ,"σ",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"𝕌=",Factor[𝕌]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"η=",Factor[η]},{"(Overscript[L, ∼])=",Factor[WL]},{"(Subscript[W, 7])=",Factor[WW7]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[W, 9])=",Factor[WW9]},{"σ=",Factor[σ]},"","Finite Singularities:  s, f",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dnze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dpo[𝕌,"𝕌",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dze[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[η,"η",c,a,b]&&Dze[WL,"(Overscript[L, ∼])",c,a,b]&&Dze[WW7,"(Subscript[W, 7])",c,a,b]&&Dze[WM,"(Overscript[M, ∼])",c,a,b]&&Dpo[-WW9,"-(Subscript[W, 9])",c,a,b]&&Dze[σ,"σ",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"𝕌=",Factor[𝕌]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"η=",Factor[η]},{"(Overscript[L, ∼])=",Factor[WL]},{"(Subscript[W, 7])=",Factor[WW7]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[W, 9])=",Factor[WW9]},{"σ=",Factor[σ]},"","Finite Singularities:  $, c",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dnze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dpo[𝕌,"𝕌",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dze[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[η,"η",c,a,b]&&Dze[WL,"(Overscript[L, ∼])",c,a,b]&&Dze[WW7,"(Subscript[W, 7])",c,a,b]&&Dze[WM,"(Overscript[M, ∼])",c,a,b]&&Dpo[WW9,"(Subscript[W, 9])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"𝕌=",Factor[𝕌]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"η=",Factor[η]},{"(Overscript[L, ∼])=",Factor[WL]},{"(Subscript[W, 7])=",Factor[WW7]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[W, 9])=",Factor[WW9]},"","Finite Singularities:  s, n",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dnze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dpo[𝕌,"𝕌",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dze[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[η,"η",c,a,b]&&Dze[WL,"(Overscript[L, ∼])",c,a,b]&&Dze[WW7,"(Subscript[W, 7])",c,a,b]&&Dze[WM,"(Overscript[M, ∼])",c,a,b]&&Dze[WW9,"(Subscript[W, 9])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"𝕌=",Factor[𝕌]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"η=",Factor[η]},{"(Overscript[L, ∼])=",Factor[WL]},{"(Subscript[W, 7])=",Factor[WW7]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[W, 9])=",Factor[WW9]},"","Finite Singularities:  s, (n^d)",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[-μ2,"-μ2",c,a,b]&&Dpo[𝕌,"𝕌",c,a,b]&&Dpo[-κ,"-κ",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dnze[𝔗4,"(Subscript[𝔗, 4])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"𝕌=",Factor[𝕌]},{"κ=",Factor[κ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},"","Finite Singularities: n, f",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[-μ2,"-μ2",c,a,b]&&Dpo[𝕌,"𝕌",c,a,b]&&Dpo[-κ,"-κ",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"𝕌=",Factor[𝕌]},{"κ=",Factor[κ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},"","Finite Singularities: n, (f^((1)))",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[-μ2,"-μ2",c,a,b]&&Dpo[𝕌,"𝕌",c,a,b]&&Dpo[-κ,"-κ",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[-WW3,"-(Subscript[W, 3])",c,a,b]&&Dnze[𝔗4,"(Subscript[𝔗, 4])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"𝕌=",Factor[𝕌]},{"κ=",Factor[κ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},"","Finite Singularities: f, f",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[-μ2,"-μ2",c,a,b]&&Dpo[𝕌,"𝕌",c,a,b]&&Dpo[-κ,"-κ",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[-WW3,"-(Subscript[W, 3])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dnze[𝔗3,"(Subscript[𝔗, 3])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"𝕌=",Factor[𝕌]},{"κ=",Factor[κ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},"","Finite Singularities: f, (f^((1)))",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[-μ2,"-μ2",c,a,b]&&Dpo[𝕌,"𝕌",c,a,b]&&Dpo[-κ,"-κ",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[-WW3,"-(Subscript[W, 3])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"𝕌=",Factor[𝕌]},{"κ=",Factor[κ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities: (f^((1))), (f^((1)))",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[-μ2,"-μ2",c,a,b]&&Dpo[𝕌,"𝕌",c,a,b]&&Dpo[-κ,"-κ",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[-WW3,"-(Subscript[W, 3])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"𝕌=",Factor[𝕌]},{"κ=",Factor[κ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities: c, c",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[-μ2,"-μ2",c,a,b]&&Dpo[𝕌,"𝕌",c,a,b]&&Dpo[-κ,"-κ",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[WW3,"(Subscript[W, 3])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"𝕌=",Factor[𝕌]},{"κ=",Factor[κ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},"","Finite Singularities: n, n",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[-μ2,"-μ2",c,a,b]&&Dpo[𝕌,"𝕌",c,a,b]&&Dpo[-κ,"-κ",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[-WW3,"-(Subscript[W, 3])",c,a,b]&&Dnze[𝔗4,"(Subscript[𝔗, 4])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"𝕌=",Factor[𝕌]},{"κ=",Factor[κ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},"","Finite Singularities: (n^d), f",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[-μ2,"-μ2",c,a,b]&&Dpo[𝕌,"𝕌",c,a,b]&&Dpo[-κ,"-κ",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[-WW3,"-(Subscript[W, 3])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"𝕌=",Factor[𝕌]},{"κ=",Factor[κ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},"","Finite Singularities: (n^d), \!(f^((1)))",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[-μ2,"-μ2",c,a,b]&&Dpo[𝕌,"𝕌",c,a,b]&&Dpo[-κ,"-κ",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[WW3,"(Subscript[W, 3])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"𝕌=",Factor[𝕌]},{"κ=",Factor[κ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},"","Finite Singularities: (n^d), n",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[-μ2,"-μ2",c,a,b]&&Dpo[𝕌,"𝕌",c,a,b]&&Dpo[-κ,"-κ",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[WW3,"(Subscript[W, 3])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"𝕌=",Factor[𝕌]},{"κ=",Factor[κ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},"","Finite Singularities: (n^d), (n^d)",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[μ2,"(Subscript[μ, 2])",c,a,b]&&Dpo[𝕌,"𝕌",c,a,b]&&Dpo[-κ,"-κ",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dnze[𝔗4,"(Subscript[𝔗, 4])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"𝕌=",Factor[𝕌]},{"κ=",Factor[κ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},"","Finite Singularities: s, f",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[μ2,"(Subscript[μ, 2])",c,a,b]&&Dpo[𝕌,"𝕌",c,a,b]&&Dpo[-κ,"-κ",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[-𝔗3 𝔉,"-(Subscript[𝔗, 3]) 𝔉",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"𝕌=",Factor[𝕌]},{"κ=",Factor[κ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},"","Finite Singularities: s, (f^((1)))",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[μ2,"(Subscript[μ, 2])",c,a,b]&&Dpo[𝕌,"𝕌",c,a,b]&&Dpo[-κ,"-κ",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[𝔗3 𝔉,"(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"𝕌=",Factor[𝕌]},{"κ=",Factor[κ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[ 𝔉1]},"","Finite Singularities: f, (s^((1)))",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[μ2,"(Subscript[μ, 2])",c,a,b]&&Dpo[𝕌,"𝕌",c,a,b]&&Dpo[-κ,"-κ",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[𝔗3 𝔉,"(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"𝕌=",Factor[𝕌]},{"κ=",Factor[κ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[ 𝔉1]},"","Finite Singularities: f, (s^((2)))",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[μ2,"(Subscript[μ, 2])",c,a,b]&&Dpo[𝕌,"𝕌",c,a,b]&&Dpo[-κ,"-κ",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"𝕌=",Factor[𝕌]},{"κ=",Factor[κ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},"","Finite Singularities: $, c",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[μ2,"(Subscript[μ, 2])",c,a,b]&&Dpo[𝕌,"𝕌",c,a,b]&&Dpo[-κ,"-κ",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dnze[𝔗4,"(Subscript[𝔗, 4])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"𝕌=",Factor[𝕌]},{"κ=",Factor[κ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔉, 1])=",Factor[ 𝔉1]},"","Finite Singularities: s, n",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[μ2,"(Subscript[μ, 2])",c,a,b]&&Dpo[𝕌,"𝕌",c,a,b]&&Dpo[-κ,"-κ",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"𝕌=",Factor[𝕌]},{"κ=",Factor[κ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔉, 1])=",Factor[ 𝔉1]},"","Finite Singularities: (s^((1))), n",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[μ2,"(Subscript[μ, 2])",c,a,b]&&Dpo[𝕌,"𝕌",c,a,b]&&Dpo[-κ,"-κ",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"𝕌=",Factor[𝕌]},{"κ=",Factor[κ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},"","Finite Singularities:  (s^((2))), n",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[μ2,"(Subscript[μ, 2])",c,a,b]&&Dpo[𝕌,"𝕌",c,a,b]&&Dpo[-κ,"-κ",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dnze[𝔗4,"(Subscript[𝔗, 4])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"𝕌=",Factor[𝕌]},{"κ=",Factor[κ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔉, 1])=",Factor[ 𝔉1]},"","Finite Singularities: s, (n^d)",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[μ2,"(Subscript[μ, 2])",c,a,b]&&Dpo[𝕌,"𝕌",c,a,b]&&Dpo[-κ,"-κ",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"𝕌=",Factor[𝕌]},{"κ=",Factor[κ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔉, 1])=",Factor[ 𝔉1]},"","Finite Singularities: (s^((1))), (n^d)",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[μ2,"(Subscript[μ, 2])",c,a,b]&&Dpo[𝕌,"𝕌",c,a,b]&&Dpo[-κ,"-κ",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"𝕌=",Factor[𝕌]},{"κ=",Factor[κ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},"","Finite Singularities:  (s^((2))), (n^d)",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[-μ2,"-μ2",c,a,b]&&Dpo[𝕌,"𝕌",c,a,b]&&Dpo[κ,"κ",c,a,b]&&Dnze[𝔗4,"(Subscript[𝔗, 4])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"𝕌=",Factor[𝕌]},{"κ=",Factor[κ]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},"","Finite Singularities:  s, s",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[-μ2,"-μ2",c,a,b]&&Dpo[𝕌,"𝕌",c,a,b]&&Dpo[κ,"κ",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dnze[𝔗3,"(Subscript[𝔗, 3])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"𝕌=",Factor[𝕌]},{"κ=",Factor[κ]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]}, "","Finite Singularities:  s, (s^((1)))",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[-μ2,"-μ2",c,a,b]&&Dpo[𝕌,"𝕌",c,a,b]&&Dpo[κ,"κ",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"𝕌=",Factor[𝕌]},{"κ=",Factor[κ]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔉, 1])=",Factor[ 𝔉1]},"","Finite Singularities:  (s^((1))), (s^((1)))",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[-μ2,"-μ2",c,a,b]&&Dpo[𝕌,"𝕌",c,a,b]&&Dpo[κ,"κ",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"𝕌=",Factor[𝕌]},{"κ=",Factor[κ]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔉, 1])=",Factor[ 𝔉1]},"","Finite Singularities:  $, $",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[μ2,"(Subscript[μ, 2])",c,a,b]&&Dpo[𝕌,"𝕌",c,a,b]&&Dpo[κ,"κ",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dnze[𝔗4,"(Subscript[𝔗, 4])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"𝕌=",Factor[𝕌]},{"κ=",Factor[κ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},"","Finite Singularities:  s, f",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[μ2,"(Subscript[μ, 2])",c,a,b]&&Dpo[𝕌,"𝕌",c,a,b]&&Dpo[κ,"κ",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[-𝔗3 𝔉,"-(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"𝕌=",Factor[𝕌]},{"κ=",Factor[κ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  s, (f^((1)))",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[μ2,"(Subscript[μ, 2])",c,a,b]&&Dpo[𝕌,"𝕌",c,a,b]&&Dpo[κ,"κ",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[-𝔗3 𝔉,"-(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"𝕌=",Factor[𝕌]},{"κ=",Factor[κ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  s, (f^((2)))",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[μ2,"(Subscript[μ, 2])",c,a,b]&&Dpo[𝕌,"𝕌",c,a,b]&&Dpo[κ,"κ",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[𝔗3 𝔉,"(Subscript[𝔗, 3]) 𝔉",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"𝕌=",Factor[𝕌]},{"κ=",Factor[κ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},"","Finite Singularities:  (s^((1))), f",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[μ2,"(Subscript[μ, 2])",c,a,b]&&Dpo[𝕌,"𝕌",c,a,b]&&Dpo[κ,"κ",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"𝕌=",Factor[𝕌]},{"κ=",Factor[κ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},"","Finite Singularities:  $, c",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[μ2,"(Subscript[μ, 2])",c,a,b]&&Dpo[𝕌,"𝕌",c,a,b]&&Dpo[κ,"κ",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dnze[𝔗4,"(Subscript[𝔗, 4])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"𝕌=",Factor[𝕌]},{"κ=",Factor[κ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},"","Finite Singularities:  s, n",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[μ2,"(Subscript[μ, 2])",c,a,b]&&Dpo[𝕌,"𝕌",c,a,b]&&Dpo[κ,"κ",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"𝕌=",Factor[𝕌]},{"κ=",Factor[κ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},"","Finite Singularities:  (s^((1))), n",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[μ2,"(Subscript[μ, 2])",c,a,b]&&Dpo[𝕌,"𝕌",c,a,b]&&Dpo[κ,"κ",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dnze[𝔗4,"(Subscript[𝔗, 4])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"𝕌=",Factor[𝕌]},{"κ=",Factor[κ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},"","Finite Singularities:  s, (n^d)",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[μ2,"(Subscript[μ, 2])",c,a,b]&&Dpo[𝕌,"𝕌",c,a,b]&&Dpo[κ,"κ",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"𝕌=",Factor[𝕌]},{"κ=",Factor[κ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},"","Finite Singularities:  (s^((1))), (n^d)",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[-μ2,"-μ2",c,a,b]&&Dpo[𝕌,"𝕌",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dpo[-WK,"-(Overscript[K, ∼])",c,a,b]&&Dnze[𝔅3,"(Subscript[𝔅, 3])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"𝕌=",Factor[𝕌]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[𝔅, 3])=",Factor[𝔅3]},"","Finite Singularities:  s, s",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[-μ2,"-μ2",c,a,b]&&Dpo[𝕌,"𝕌",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dpo[-WK,"-(Overscript[K, ∼])",c,a,b]&&Dze[𝔅3,"(Subscript[𝔅, 3])",c,a,b]&&Dnze[σ,"σ",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"𝕌=",Factor[𝕌]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[𝔅, 3])=",Factor[𝔅3]},{"σ=",Factor[σ]},"","Finite Singularities:  s, $",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[-μ2,"-μ2",c,a,b]&&Dpo[𝕌,"𝕌",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dpo[-WK,"-(Overscript[K, ∼])",c,a,b]&&Dze[𝔅3,"(Subscript[𝔅, 3])",c,a,b]&&Dze[σ,"σ",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"𝕌=",Factor[𝕌]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[𝔅, 3])=",Factor[𝔅3]},{"σ=",Factor[σ]},"","Finite Singularities:  $, $",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[μ2,"(Subscript[μ, 2])",c,a,b]&&Dpo[𝕌,"𝕌",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dpo[-WK,"-(Overscript[K, ∼])",c,a,b]&&Dnze[WW11,"(Subscript[W, 11])",c,a,b]&&Dnze[𝔅3,"(Subscript[𝔅, 3])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"𝕌=",Factor[𝕌]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 11])=",Factor[WW11]},{"(Subscript[𝔅, 3])=",Factor[𝔅3]},"","Finite Singularities:  s, n",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[μ2,"(Subscript[μ, 2])",c,a,b]&&Dpo[𝕌,"𝕌",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dpo[-WK,"-(Overscript[K, ∼])",c,a,b]&&Dnze[WW11,"(Subscript[W, 11])",c,a,b]&&Dze[𝔅3,"(Subscript[𝔅, 3])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"𝕌=",Factor[𝕌]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 11])=",Factor[WW11]},{"(Subscript[𝔅, 3])=",Factor[𝔅3]},"","Finite Singularities:  $, n",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[μ2,"(Subscript[μ, 2])",c,a,b]&&Dpo[𝕌,"𝕌",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dpo[-WK,"-(Overscript[K, ∼])",c,a,b]&&Dze[WW11,"(Subscript[W, 11])",c,a,b]&&Dnze[𝔘3,"(Subscript[𝔘, 3])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"𝕌=",Factor[𝕌]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 11])=",Factor[WW11]},{"(Subscript[𝔘, 3])=",Factor[𝔘3]},"","Finite Singularities:  s, (n^d)",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[μ2,"(Subscript[μ, 2])",c,a,b]&&Dpo[𝕌,"𝕌",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dpo[-WK,"-(Overscript[K, ∼])",c,a,b]&&Dze[WW11,"(Subscript[W, 11])",c,a,b]&&Dze[𝔘3,"(Subscript[𝔘, 3])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"𝕌=",Factor[𝕌]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 11])=",Factor[WW11]},{"(Subscript[𝔘, 3])=",Factor[𝔘3]},"","Finite Singularities:  s, (SuperStar[n])",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[-μ2,"-μ2",c,a,b]&&Dpo[𝕌,"𝕌",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dnze[WM,"(Overscript[M, ∼])",c,a,b]&&Dnze[WW11,"(Subscript[W, 11])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"𝕌=",Factor[𝕌]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[W, 11])=",Factor[WW11]},"","Finite Singularities:  n, n",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[-μ2,"-μ2",c,a,b]&&Dpo[𝕌,"𝕌",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dnze[WM,"(Overscript[M, ∼])",c,a,b]&&Dze[WW11,"(Subscript[W, 11])",c,a,b]&&Dnze[𝔘1,"(Subscript[𝔘, 1])",c,a,b]&&Dnze[𝔘3,"(Subscript[𝔘, 3])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"𝕌=",Factor[𝕌]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[W, 11])=",Factor[WW11]},{"(Subscript[𝔘, 1])=",Factor[𝔘1]},{"(Subscript[𝔘, 3])=",Factor[𝔘3]},"","Finite Singularities:  n, (n^d)",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[-μ2,"-μ2",c,a,b]&&Dpo[𝕌,"𝕌",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dnze[WM,"(Overscript[M, ∼])",c,a,b]&&Dze[WW11,"(Subscript[W, 11])",c,a,b]&&Dnze[𝔘1,"(Subscript[𝔘, 1])",c,a,b]&&Dze[𝔘3,"(Subscript[𝔘, 3])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"𝕌=",Factor[𝕌]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[W, 11])=",Factor[WW11]},{"(Subscript[𝔘, 1])=",Factor[𝔘1]},{"(Subscript[𝔘, 3])=",Factor[𝔘3]},"","Finite Singularities:  n, (SuperStar[n])",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[-μ2,"-μ2",c,a,b]&&Dpo[𝕌,"𝕌",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dnze[WM,"(Overscript[M, ∼])",c,a,b]&&Dze[WW11,"(Subscript[W, 11])",c,a,b]&&Dze[𝔘1,"(Subscript[𝔘, 1])",c,a,b]&&Dnze[𝔘5,"(Subscript[𝔘, 5])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"𝕌=",Factor[𝕌]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[W, 11])=",Factor[WW11]},{"(Subscript[𝔘, 1])=",Factor[𝔘1]},{"(Subscript[𝔘, 5])=",Factor[𝔘5]},"","Finite Singularities:  (n^d), (n^d)",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[-μ2,"-μ2",c,a,b]&&Dpo[𝕌,"𝕌",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dnze[WM,"(Overscript[M, ∼])",c,a,b]&&Dze[WW11,"(Subscript[W, 11])",c,a,b]&&Dze[𝔘1,"(Subscript[𝔘, 1])",c,a,b]&&Dze[𝔘5,"(Subscript[𝔘, 5])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"𝕌=",Factor[𝕌]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[W, 11])=",Factor[WW11]},{"(Subscript[𝔘, 1])=",Factor[𝔘1]},{"(Subscript[𝔘, 5])=",Factor[𝔘5]},"","Finite Singularities:  (SuperStar[n]), (SuperStar[n])",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[-μ2,"-μ2",c,a,b]&&Dpo[𝕌,"𝕌",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WM,"(Overscript[M, ∼])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"𝕌=",Factor[𝕌]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Overscript[M, ∼])=",Factor[WM]},"","Finite Singularities:  n, n",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[μ2,"(Subscript[μ, 2])",c,a,b]&&Dpo[𝕌,"𝕌",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dnze[WM,"(Overscript[M, ∼])",c,a,b]&&Dnze[WW11,"(Subscript[W, 11])",c,a,b]&&Dnze[𝔅3,"(Subscript[𝔅, 3])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"𝕌=",Factor[𝕌]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[𝔅, 3])=",Factor[𝔅3]},{"(Subscript[W, 11])=",Factor[WW11]},"","Finite Singularities:  s, n",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[μ2,"(Subscript[μ, 2])",c,a,b]&&Dpo[𝕌,"𝕌",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dnze[WM,"(Overscript[M, ∼])",c,a,b]&&Dze[WW11,"(Subscript[W, 11])",c,a,b]&&Dnze[𝔅3,"(Subscript[𝔅, 3])",c,a,b]&&Dnze[𝔘3,"(Subscript[𝔘, 3])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"𝕌=",Factor[𝕌]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[𝔅, 3])=",Factor[𝔅3]},{"(Subscript[W, 11])=",Factor[WW11]},{"(Subscript[𝔘, 3])=",Factor[𝔘3]},"","Finite Singularities:  s, (n^d)",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[μ2,"(Subscript[μ, 2])",c,a,b]&&Dpo[𝕌,"𝕌",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dnze[WM,"(Overscript[M, ∼])",c,a,b]&&Dze[WW11,"(Subscript[W, 11])",c,a,b]&&Dnze[𝔅3,"(Subscript[𝔅, 3])",c,a,b]&&Dze[𝔘3,"(Subscript[𝔘, 3])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"𝕌=",Factor[𝕌]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[𝔅, 3])=",Factor[𝔅3]},{"(Subscript[W, 11])=",Factor[WW11]},{"(Subscript[𝔘, 3])=",Factor[𝔘3]},"","Finite Singularities:  s, (SuperStar[n])",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[μ2,"(Subscript[μ, 2])",c,a,b]&&Dpo[𝕌,"𝕌",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dnze[WM,"(Overscript[M, ∼])",c,a,b]&&Dze[𝔅3,"(Subscript[𝔅, 3])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"𝕌=",Factor[𝕌]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[𝔅, 3])=",Factor[𝔅3]},"","Finite Singularities:  $, n",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[μ2,"(Subscript[μ, 2])",c,a,b]&&Dpo[𝕌,"𝕌",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WM,"(Overscript[M, ∼])",c,a,b]&&Dnze[𝔅3,"(Subscript[𝔅, 3])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"𝕌=",Factor[𝕌]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[𝔅, 3])=",Factor[𝔅3]},"","Finite Singularities:  s, n",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[μ2,"(Subscript[μ, 2])",c,a,b]&&Dpo[𝕌,"𝕌",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WM,"(Overscript[M, ∼])",c,a,b]&&Dze[𝔅3,"(Subscript[𝔅, 3])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"𝕌=",Factor[𝕌]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[𝔅, 3])=",Factor[𝔅3]},"","Finite Singularities:  $, n",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[-κ,"-κ",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dnze[𝔗4,"(Subscript[𝔗, 4])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"κ=",Factor[κ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},"","Finite Singularities:  f, ©, ©",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[-κ,"-κ",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dnze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"κ=",Factor[κ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  (f^((1))), ©, ©",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[-κ,"-κ",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dnze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dnze[𝔉2,"(Subscript[𝔉, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"κ=",Factor[κ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},"","Finite Singularities:  (f^((2))), ©, ©",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[-κ,"-κ",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dnze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dze[𝔉2,"(Subscript[𝔉, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"κ=",Factor[κ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},"","Finite Singularities:  (f^((3))), ©, ©",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[-κ,"-κ",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"κ=",Factor[κ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},"","Finite Singularities:  f, (©^ρ), (©^ρ)",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[-κ,"-κ",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"κ=",Factor[κ]},{"(Subscript[W, 4])=",Factor[WW4]},"","Finite Singularities:  n, ©, ©",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[-κ,"-κ",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dnze[WW3,"(Subscript[W, 3])",c,a,b]&&Dnze[𝔘3,"(Subscript[𝔘, 3])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"κ=",Factor[κ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[𝔘, 3])=",Factor[𝔘3]},"","Finite Singularities:  (n^d), ©, ©",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[-κ,"-κ",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dnze[WW3,"(Subscript[W, 3])",c,a,b]&&Dze[𝔘3,"(Subscript[𝔘, 3])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"κ=",Factor[κ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[𝔘, 3])=",Factor[𝔘3]},"","Finite Singularities:  (SuperStar[n]), ©, ©",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[-κ,"-κ",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[WW3,"(Subscript[W, 3])",c,a,b]&&Dpo[-WW2,"-(Subscript[W, 2])",c,a,b]&&Dnze[𝔗4,"(Subscript[𝔗, 4])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"κ=",Factor[κ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},"","Finite Singularities:  f, (©^τ), (©^τ)",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[-κ,"-κ",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[WW3,"(Subscript[W, 3])",c,a,b]&&Dpo[-WW2,"-(Subscript[W, 2])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"κ=",Factor[κ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},"","Finite Singularities:  (f^((1))), (©^τ), (©^τ)",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[-κ,"-κ",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[WW3,"(Subscript[W, 3])",c,a,b]&&Dpo[WW2,"(Subscript[W, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"κ=",Factor[κ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[W, 2])=",Factor[WW2]},"","Finite Singularities:  n, (©^τ), (©^τ)",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[-κ,"-κ",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[WW3,"(Subscript[W, 3])",c,a,b]&&Dze[WW2,"(Subscript[W, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"κ=",Factor[κ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[W, 2])=",Factor[WW2]},"","Finite Singularities:  (n^d), (©^τ), (©^τ)",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[κ,"κ",c,a,b]&&Dnze[WW4,"(Subscript[W, 4])",c,a,b]&&Dnze[𝔗4,"(Subscript[𝔗, 4])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"κ=",Factor[κ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},"","Finite Singularities:  s, ©, ©",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[κ,"κ",c,a,b]&&Dnze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dnze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"κ=",Factor[κ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  (s^((1))), ©, ©",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[κ,"κ",c,a,b]&&Dnze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dnze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"κ=",Factor[κ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  (s^((2))), ©, ©",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[κ,"κ",c,a,b]&&Dnze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"κ=",Factor[κ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},"","Finite Singularities:  s, (©^ρ), (©^ρ)",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[κ,"κ",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dnze[𝔗4,"(Subscript[𝔗, 4])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"κ=",Factor[κ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},"","Finite Singularities:  s, (©^τ), (©^τ)",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[κ,"κ",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"κ=",Factor[κ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  (s^((1))), (©^τ), (©^τ)",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[κ,"κ",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"κ=",Factor[κ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  (s^((2))), (©^τ), (©^τ)",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dpo[-WK,"-(Overscript[K, ∼])",c,a,b]&&Dnze[𝔅1,"(Subscript[𝔅, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[𝔅, 1])=",Factor[𝔅1]},"","Finite Singularities:  s, ©, ©",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dpo[-WK,"-(Overscript[K, ∼])",c,a,b]&&Dze[𝔅1,"(Subscript[𝔅, 1])",c,a,b]&&Dnze[σ,"σ",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[𝔅, 1])=",Factor[𝔅1]},{"σ=",Factor[σ]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  (s^((1))), ©, ©",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dpo[-WK,"-(Overscript[K, ∼])",c,a,b]&&Dze[𝔅1,"(Subscript[𝔅, 1])",c,a,b]&&Dnze[σ,"σ",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[𝔅, 1])=",Factor[𝔅1]},{"σ=",Factor[σ]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  $, ©, ©",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dpo[-WK,"-(Overscript[K, ∼])",c,a,b]&&Dze[𝔅1,"(Subscript[𝔅, 1])",c,a,b]&&Dze[σ,"σ",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[𝔅, 1])=",Factor[𝔅1]},{"σ=",Factor[σ]},"","Finite Singularities:  $, (©^ρ), (©^ρ)",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dpo[-WW7,"-(Subscript[W, 7])",c,a,b]&&Dnze[𝔅1,"(Subscript[𝔅, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 7])=",Factor[WW7]},{"(Subscript[𝔅, 1])=",Factor[𝔅1]},"","Finite Singularities:  f, ©, ©",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dpo[-WW7,"-(Subscript[W, 7])",c,a,b]&&Dze[𝔅1,"(Subscript[𝔅, 1])",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 7])=",Factor[WW7]},{"(Subscript[𝔅, 1])=",Factor[𝔅1]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  (f^((1))), ©, ©",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dpo[-WW7,"-(Subscript[W, 7])",c,a,b]&&Dze[𝔅1,"(Subscript[𝔅, 1])",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dnze[ℐ,"ℐ",c,a,b]&&Dnze[WC2,"(Subscript[C, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 7])=",Factor[WW7]},{"(Subscript[𝔅, 1])=",Factor[𝔅1]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"ℐ=",Factor[ℐ]},{"(Subscript[C, 2])=",Factor[WC2]},"","Finite Singularities:  c, ©, ©",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dpo[-WW7,"-(Subscript[W, 7])",c,a,b]&&Dze[𝔅1,"(Subscript[𝔅, 1])",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dze[ℐ,"ℐ",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 7])=",Factor[WW7]},{"(Subscript[𝔅, 1])=",Factor[𝔅1]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"ℐ=",Factor[ℐ]},"","Finite Singularities:  (c^⊙), ©, ©",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dpo[-WW7,"-(Subscript[W, 7])",c,a,b]&&Dze[𝔅1,"(Subscript[𝔅, 1])",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dze[WC2,"(Subscript[C, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 7])=",Factor[WW7]},{"(Subscript[𝔅, 1])=",Factor[𝔅1]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[C, 2])=",Factor[WC2]},"","Finite Singularities:  (c^⊕), ©, ©",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dpo[WW7,"(Subscript[W, 7])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 7])=",Factor[WW7]},"","Finite Singularities:  n, ©, ©",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WW7,"(Subscript[W, 7])",c,a,b]&&Dnze[WW6,"(Subscript[W, 6])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 7])=",Factor[WW7]},{"(Subscript[W, 6])=",Factor[WW6]},"","Finite Singularities:  (n^d), ©, ©",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WW7,"(Subscript[W, 7])",c,a,b]&&Dze[WW6,"(Subscript[W, 6])",c,a,b]&&Dpo[-WW5,"-WW5",c,a,b]&&Dpo[-WL,"-(Overscript[L, ∼])",c,a,b]&&Dnze[WN,"(Overscript[N, ∼])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 7])=",Factor[WW7]},{"(Subscript[W, 6])=",Factor[WW6]},{"(Subscript[W, 5])=",Factor[WW5]},{"(Overscript[L, ∼])=",Factor[WL]},{"(Overscript[N, ∼])=",Factor[WN]},"","Finite Singularities:  f, (©^τ), (©^τ)",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WW7,"(Subscript[W, 7])",c,a,b]&&Dze[WW6,"(Subscript[W, 6])",c,a,b]&&Dpo[-WW5,"-WW5",c,a,b]&&Dpo[-WL,"-(Overscript[L, ∼])",c,a,b]&&Dze[WN,"(Overscript[N, ∼])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 7])=",Factor[WW7]},{"(Subscript[W, 6])=",Factor[WW6]},{"(Subscript[W, 5])=",Factor[WW5]},{"(Overscript[L, ∼])=",Factor[WL]},{"(Overscript[N, ∼])=",Factor[WN]},"","Finite Singularities:  c, (©^τ), (©^τ)",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WW7,"(Subscript[W, 7])",c,a,b]&&Dze[WW6,"(Subscript[W, 6])",c,a,b]&&Dpo[-WW5,"-WW5",c,a,b]&&Dpo[WL,"(Overscript[L, ∼])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 7])=",Factor[WW7]},{"(Subscript[W, 6])=",Factor[WW6]},{"(Subscript[W, 5])=",Factor[WW5]},{"(Overscript[L, ∼])=",Factor[WL]},"","Finite Singularities:  f, (©^τ), (©^τ)",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WW7,"(Subscript[W, 7])",c,a,b]&&Dze[WW6,"(Subscript[W, 6])",c,a,b]&&Dpo[-WW5,"-WW5",c,a,b]&&Dze[WL,"(Overscript[L, ∼])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 7])=",Factor[WW7]},{"(Subscript[W, 6])=",Factor[WW6]},{"(Subscript[W, 5])=",Factor[WW5]},{"(Overscript[L, ∼])=",Factor[WL]},"","Finite Singularities:  f, (©^τ), (©^τ)",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WW7,"(Subscript[W, 7])",c,a,b]&&Dze[WW6,"(Subscript[W, 6])",c,a,b]&&Dpo[WW5,"(Subscript[W, 5])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 7])=",Factor[WW7]},{"(Subscript[W, 6])=",Factor[WW6]},{"(Subscript[W, 5])=",Factor[WW5]},"","Finite Singularities:  n, (©^τ), (©^τ)",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WW7,"(Subscript[W, 7])",c,a,b]&&Dze[WW6,"(Subscript[W, 6])",c,a,b]&&Dze[WW5,"(Subscript[W, 5])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 7])=",Factor[WW7]},{"(Subscript[W, 6])=",Factor[WW6]},{"(Subscript[W, 5])=",Factor[WW5]},"","Finite Singularities:  (n^d), (©^τ), (©^τ)",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dnze[ℙ,"ℙ",c,a,b]&&Dpo[-κ,"-κ",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dnze[𝔗4,"(Subscript[𝔗, 4])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"ℙ=",Factor[ℙ]},{"κ=",Factor[κ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},"","Finite Singularities:  f, (Subscript[(OverBar[sn]), (2)])",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dnze[ℙ,"ℙ",c,a,b]&&Dpo[-κ,"-κ",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"ℙ=",Factor[ℙ]},{"κ=",Factor[κ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  (f^((1))), (Subscript[(OverBar[sn]), (2)])",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dnze[ℙ,"ℙ",c,a,b]&&Dpo[-κ,"-κ",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dnze[𝔉2,"(Subscript[𝔉, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"ℙ=",Factor[ℙ]},{"κ=",Factor[κ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},"","Finite Singularities:  (f^((2))), (Subscript[(OverBar[sn]), (2)])",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dnze[ℙ,"ℙ",c,a,b]&&Dpo[-κ,"-κ",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dze[𝔉2,"(Subscript[𝔉, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"ℙ=",Factor[ℙ]},{"κ=",Factor[κ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},"","Finite Singularities:  (f^((3))), (Subscript[(OverBar[sn]), (2)])",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dnze[ℙ,"ℙ",c,a,b]&&Dpo[-κ,"-κ",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"ℙ=",Factor[ℙ]},{"κ=",Factor[κ]},{"(Subscript[W, 4])=",Factor[WW4]},"","Finite Singularities:  n, (Subscript[(OverBar[sn]), (2)])",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dnze[ℙ,"ℙ",c,a,b]&&Dpo[-κ,"-κ",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dnze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dnze[𝔘3,"(Subscript[𝔘, 3])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"ℙ=",Factor[ℙ]},{"κ=",Factor[κ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔘, 3])=",Factor[𝔘3]},"","Finite Singularities:  (n^d), (Subscript[(OverBar[sn]), (2)])",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dnze[ℙ,"ℙ",c,a,b]&&Dpo[-κ,"-κ",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dnze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔘3,"(Subscript[𝔘, 3])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"ℙ=",Factor[ℙ]},{"κ=",Factor[κ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔘, 3])=",Factor[𝔘3]},"","Finite Singularities:  (SuperStar[n]), (Subscript[(OverBar[sn]), (2)])",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dnze[ℙ,"ℙ",c,a,b]&&Dpo[-κ,"-κ",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[-WW2,"-(Subscript[W, 2])",c,a,b]&&Dnze[𝔗2,"(Subscript[𝔗, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"ℙ=",Factor[ℙ]},{"κ=",Factor[κ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[𝔗, 2])=",Factor[𝔗2]},"","Finite Singularities:  f, (Subscript[(OverHat[cp]), (2)])",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dnze[ℙ,"ℙ",c,a,b]&&Dpo[-κ,"-κ",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[-WW2,"-(Subscript[W, 2])",c,a,b]&&Dze[𝔗2,"(Subscript[𝔗, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"ℙ=",Factor[ℙ]},{"κ=",Factor[κ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[𝔗, 2])=",Factor[𝔗2]},"","Finite Singularities:  (f^((1))), (Subscript[(OverHat[cp]), (2)])",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dnze[ℙ,"ℙ",c,a,b]&&Dpo[-κ,"-κ",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[WW2,"(Subscript[W, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"ℙ=",Factor[ℙ]},{"κ=",Factor[κ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[W, 2])=",Factor[WW2]},"","Finite Singularities:  n, (Subscript[(OverHat[cp]), (2)])",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dnze[ℙ,"ℙ",c,a,b]&&Dpo[-κ,"-κ",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[WW2,"(Subscript[W, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"ℙ=",Factor[ℙ]},{"κ=",Factor[κ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[W, 2])=",Factor[WW2]},"","Finite Singularities:  (n^d), (Subscript[(OverHat[cp]), (2)])",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dnze[ℙ,"ℙ",c,a,b]&&Dpo[κ,"κ",c,a,b]&&Dnze[𝔗4,"(Subscript[𝔗, 4])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"ℙ=",Factor[ℙ]},{"κ=",Factor[κ]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},"","Finite Singularities:  s, (Subscript[(OverBar[sn]), (2)])",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dnze[ℙ,"ℙ",c,a,b]&&Dpo[κ,"κ",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dnze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"ℙ=",Factor[ℙ]},{"κ=",Factor[κ]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  (s^((1))), (Subscript[(OverBar[sn]), (2)])",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dnze[ℙ,"ℙ",c,a,b]&&Dpo[κ,"κ",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dnze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"ℙ=",Factor[ℙ]},{"κ=",Factor[κ]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  (s^((2))), (Subscript[(OverBar[sn]), (2)])",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dnze[ℙ,"ℙ",c,a,b]&&Dpo[κ,"κ",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dnze[𝔗2,"(Subscript[𝔗, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"ℙ=",Factor[ℙ]},{"κ=",Factor[κ]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔗, 2])=",Factor[𝔗2]},"","Finite Singularities:  s, (Subscript[(OverHat[cp]), (2)])",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dnze[ℙ,"ℙ",c,a,b]&&Dpo[κ,"κ",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dze[𝔗2,"(Subscript[𝔗, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"ℙ=",Factor[ℙ]},{"κ=",Factor[κ]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔗, 2])=",Factor[𝔗2]},"","Finite Singularities:  (s^((1))), (Subscript[(OverHat[cp]), (2)])",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dnze[ℙ,"ℙ",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dpo[-WK,"-(Overscript[K, ∼])",c,a,b]&&Dnze[𝔅1,"(Subscript[𝔅, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"ℙ=",Factor[ℙ]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[𝔅, 1])=",Factor[𝔅1]},"","Finite Singularities:  s, (Subscript[(OverBar[sn]), (2)])",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dnze[ℙ,"ℙ",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dpo[-WK,"-(Overscript[K, ∼])",c,a,b]&&Dze[𝔅1,"(Subscript[𝔅, 1])",c,a,b]&&Dnze[𝔅2,"(Subscript[𝔅, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"ℙ=",Factor[ℙ]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[𝔅, 1])=",Factor[𝔅1]},{"(Subscript[𝔅, 2])=",Factor[𝔅2]},"","Finite Singularities:  (s^((1))), (Subscript[(OverBar[sn]), (2)])",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dnze[ℙ,"ℙ",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dpo[-WK,"-(Overscript[K, ∼])",c,a,b]&&Dze[𝔅1,"(Subscript[𝔅, 1])",c,a,b]&&Dze[𝔅2,"(Subscript[𝔅, 2])",c,a,b]&&Dnze[σ,"σ",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"ℙ=",Factor[ℙ]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[𝔅, 1])=",Factor[𝔅1]},{"(Subscript[𝔅, 2])=",Factor[𝔅2]},{"σ=",Factor[σ]},"","Finite Singularities:  s, (Subscript[(OverHat[cp]), (2)])",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dnze[ℙ,"ℙ",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dpo[-WK,"-(Overscript[K, ∼])",c,a,b]&&Dze[𝔅1,"(Subscript[𝔅, 1])",c,a,b]&&Dze[𝔅2,"(Subscript[𝔅, 2])",c,a,b]&&Dze[σ,"σ",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"ℙ=",Factor[ℙ]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[𝔅, 1])=",Factor[𝔅1]},{"(Subscript[𝔅, 2])=",Factor[𝔅2]},{"σ=",Factor[σ]},"","Finite Singularities:  $, (Subscript[(OverHat[cp]), (2)])",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dnze[ℙ,"ℙ",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dpo[-WW7,"-(Subscript[W, 7])",c,a,b]&&Dnze[𝔅1,"(Subscript[𝔅, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"ℙ=",Factor[ℙ]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 7])=",Factor[WW7]},{"(Subscript[𝔅, 1])=",Factor[𝔅1]},"","Finite Singularities:  f, (Subscript[(OverBar[sn]), (2)])",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dnze[ℙ,"ℙ",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dpo[-WW7,"-(Subscript[W, 7])",c,a,b]&&Dze[𝔅1,"(Subscript[𝔅, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"ℙ=",Factor[ℙ]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 7])=",Factor[WW7]},{"(Subscript[𝔅, 1])=",Factor[𝔅1]},"","Finite Singularities:  (f^((1))), (Subscript[(OverBar[sn]), (2)])",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dnze[ℙ,"ℙ",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dpo[WW7,"(Subscript[W, 7])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"ℙ=",Factor[ℙ]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 7])=",Factor[WW7]},"","Finite Singularities:  n, (Subscript[(OverBar[sn]), (2)])",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dnze[ℙ,"ℙ",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WW7,"(Subscript[W, 7])",c,a,b]&&Dnze[𝔅1,"(Subscript[𝔅, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"ℙ=",Factor[ℙ]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 7])=",Factor[WW7]},{"(Subscript[𝔅, 1])=",Factor[𝔅1]},"","Finite Singularities:  (n^d), (Subscript[(OverBar[sn]), (2)])",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dnze[ℙ,"ℙ",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WW7,"(Subscript[W, 7])",c,a,b]&&Dze[𝔅1,"(Subscript[𝔅, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"ℙ=",Factor[ℙ]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 7])=",Factor[WW7]},{"(Subscript[𝔅, 1])=",Factor[𝔅1]},"","Finite Singularities:  n, (Subscript[(OverHat[cp]), (2)])",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dze[ℙ,"ℙ",c,a,b]&&Dpo[-κ,"-κ",c,a,b]&&Dnze[𝔗4,"(Subscript[𝔗, 4])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"ℙ=",Factor[ℙ]},{"κ=",Factor[κ]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},"","Finite Singularities:  (Subscript[(OverBar[n]), (3)])",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dze[ℙ,"ℙ",c,a,b]&&Dpo[-κ,"-κ",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dnze[θ2,"(Subscript[θ, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"ℙ=",Factor[ℙ]},{"κ=",Factor[κ]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[θ, 2])=",Factor[θ2]},"","Finite Singularities:  (Subscript[(OverHat[es]), (3)])",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dze[ℙ,"ℙ",c,a,b]&&Dpo[-κ,"-κ",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dnze[θ2,"(Subscript[θ, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"ℙ=",Factor[ℙ]},{"κ=",Factor[κ]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[θ, 2])=",Factor[θ2]},"","Finite Singularities:  (Subscript[(SuperMinus[(OverHat[es])]), (3)])",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dze[ℙ,"ℙ",c,a,b]&&Dpo[κ,"κ",c,a,b]&&Dnze[𝔗4,"(Subscript[𝔗, 4])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"ℙ=",Factor[ℙ]},{"κ=",Factor[κ]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},"","Finite Singularities:  (Subscript[(OverBar[s]), (3)])",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dze[ℙ,"ℙ",c,a,b]&&Dpo[κ,"κ",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"ℙ=",Factor[ℙ]},{"κ=",Factor[κ]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},"","Finite Singularities:  (Subscript[(OverHat[s]), (3)])",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dze[ℙ,"ℙ",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dpo[-WK,"-(Overscript[K, ∼])",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"ℙ=",Factor[ℙ]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  (Subscript[(OverBar[s]), (3)])",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dze[ℙ,"ℙ",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dpo[-WK,"-(Overscript[K, ∼])",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"ℙ=",Factor[ℙ]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  (Subscript[(OverHat[s]), (3)]),"""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dze[ℙ,"ℙ",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"ℙ=",Factor[ℙ]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  (Subscript[(OverBar[n]), (3)]),"""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dze[ℙ,"ℙ",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dnze[θ2,"(Subscript[θ, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"ℙ=",Factor[ℙ]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[θ, 2])=",Factor[θ2]},"","Finite Singularities:  (Subscript[(OverHat[es]), (3)])",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dze[ℙ,"ℙ",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dze[θ2,"(Subscript[θ, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"ℙ=",Factor[ℙ]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[θ, 2])=",Factor[θ2]},"","Finite Singularities:  (Subscript[(OverHat[(SuperMinus[es])]), (3)])",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[-κ,"-κ",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dnze[𝔗4,"(Subscript[𝔗, 4])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"κ=",Factor[κ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},"","Finite Singularities:  s, n, f",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[-κ,"-κ",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[-𝔗3 𝔉,"-(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"κ=",Factor[κ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  s, n, (f^((1)))",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[-κ,"-κ",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[-𝔗3 𝔉,"-(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dnze[𝔉2,"(Subscript[𝔉, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"κ=",Factor[κ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},"","Finite Singularities:  s, n, (f^((2)))",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[-κ,"-κ",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[-𝔗3 𝔉,"-(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dze[𝔉2,"(Subscript[𝔉, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"κ=",Factor[κ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},"","Finite Singularities:  s, n, (f^((3)))",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[-κ,"-κ",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[𝔗3 𝔉,"(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"κ=",Factor[κ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  (s^((1))), n, f",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[-κ,"-κ",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[𝔗3 𝔉,"(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dnze[𝔉2,"(Subscript[𝔉, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"κ=",Factor[κ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},"","Finite Singularities:  (s^((2))), n, f",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[-κ,"-κ",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[𝔗3 𝔉,"(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dze[𝔉2,"(Subscript[𝔉, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"κ=",Factor[κ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},"","Finite Singularities:  (s^((3))), n, f",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[-κ,"-κ",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"κ=",Factor[κ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},"","Finite Singularities:  (s^((1))), n, (f^((1)))",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[-κ,"-κ",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[-WW3,"-(Subscript[W, 3])",c,a,b]&&Dnze[𝔗4,"(Subscript[𝔗, 4])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"κ=",Factor[κ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},"","Finite Singularities:  s, f, f",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[-κ,"-κ",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[WW3,"(Subscript[W, 3])",c,a,b]&&Dpo[-WW2,"-(Subscript[W, 2])",c,a,b]&&Dnze[𝔗4,"(Subscript[𝔗, 4])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"κ=",Factor[κ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},"","Finite Singularities:  s, f, f",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[-κ,"-κ",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[-WW3,"-(Subscript[W, 3])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[-𝔗3 𝔉,"-(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"κ=",Factor[κ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  s, f, (f^((1)))",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[-κ,"-κ",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[WW3,"(Subscript[W, 3])",c,a,b]&&Dpo[-WW2,"-(Subscript[W, 2])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[-𝔗3 𝔉,"-(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"κ=",Factor[κ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  s, f, (f^((1)))",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[-κ,"-κ",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[-WW3,"-(Subscript[W, 3])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[-𝔗3 𝔉,"-(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"κ=",Factor[κ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  s, f, (f^((2)))",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[-κ,"-κ",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[WW3,"(Subscript[W, 3])",c,a,b]&&Dpo[-WW2,"-(Subscript[W, 2])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[-𝔗3 𝔉,"-(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"κ=",Factor[κ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  s, f, (f^((2)))",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[-κ,"-κ",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[-WW3,"-(Subscript[W, 3])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[𝔗3 𝔉,"(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"κ=",Factor[κ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  (s^((1))), f, f",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[-κ,"-κ",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[WW3,"(Subscript[W, 3])",c,a,b]&&Dpo[-WW2,"-(Subscript[W, 2])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[𝔗3 𝔉,"(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"κ=",Factor[κ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  (s^((1))), f, f",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[-κ,"-κ",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[-WW3,"-(Subscript[W, 3])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[𝔗3 𝔉,"(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"κ=",Factor[κ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  (s^((2))), f, f",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[-κ,"-κ",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[WW3,"(Subscript[W, 3])",c,a,b]&&Dpo[-WW2,"-(Subscript[W, 2])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[𝔗3 𝔉,"(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"κ=",Factor[κ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  (s^((2))), f, f",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[-κ,"-κ",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[-WW3,"-(Subscript[W, 3])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dpo[-𝔗2,"-𝔗2",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"κ=",Factor[κ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔗, 2])=",Factor[𝔗2]},"","Finite Singularities:  s, (f^((1))), (f^((1)))",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[-κ,"-κ",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[WW3,"(Subscript[W, 3])",c,a,b]&&Dpo[-WW2,"-(Subscript[W, 2])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dpo[-𝔗2,"-𝔗2",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"κ=",Factor[κ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔗, 2])=",Factor[𝔗2]},"","Finite Singularities:  s, (f^((1))), (f^((1)))",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[-κ,"-κ",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[-WW3,"-(Subscript[W, 3])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dpo[𝔗2,"(Subscript[𝔗, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"κ=",Factor[κ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔗, 2])=",Factor[𝔗2]},"","Finite Singularities:  (s^((1))), f, (f^((1)))",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[-κ,"-κ",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[WW3,"(Subscript[W, 3])",c,a,b]&&Dpo[-WW2,"-(Subscript[W, 2])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dpo[𝔗2,"(Subscript[𝔗, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"κ=",Factor[κ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔗, 2])=",Factor[𝔗2]},"","Finite Singularities:  (s^((1))), f, (f^((1)))",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[-κ,"-κ",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[WW3,"(Subscript[W, 3])",c,a,b]&&Dpo[WW2,"(Subscript[W, 2])",c,a,b]&&Dnze[𝔗4,"(Subscript[𝔗, 4])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"κ=",Factor[κ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},"","Finite Singularities:  s, n, n",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[-κ,"-κ",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[WW3,"(Subscript[W, 3])",c,a,b]&&Dpo[WW2,"(Subscript[W, 2])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"κ=",Factor[κ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  (s^((1))), n, n",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[-κ,"-κ",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[WW3,"(Subscript[W, 3])",c,a,b]&&Dpo[WW2,"(Subscript[W, 2])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dnze[𝔉2,"(Subscript[𝔉, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"κ=",Factor[κ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},"","Finite Singularities:  (s^((2))), n, n",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[-κ,"-κ",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[WW3,"(Subscript[W, 3])",c,a,b]&&Dpo[WW2,"(Subscript[W, 2])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dze[𝔉2,"(Subscript[𝔉, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"κ=",Factor[κ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},"","Finite Singularities:  (s^((3))), n, n",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[-κ,"-κ",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[-WW3,"-(Subscript[W, 3])",c,a,b]&&Dnze[𝔗4,"(Subscript[𝔗, 4])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"κ=",Factor[κ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},"","Finite Singularities:  s, (n^d), f",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[-κ,"-κ",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[-WW3,"-(Subscript[W, 3])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[-𝔗3 𝔉,"-(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"κ=",Factor[κ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  s, (n^d), (f^((1)))",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[-κ,"-κ",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[-WW3,"-(Subscript[W, 3])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[-𝔗3 𝔉,"-(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"κ=",Factor[κ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  s, (n^d), (f^((2)))",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[-κ,"-κ",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[-WW3,"-(Subscript[W, 3])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[𝔗3 𝔉,"(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"κ=",Factor[κ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  (s^((1))), (n^d), f",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[-κ,"-κ",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[-WW3,"-(Subscript[W, 3])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[𝔗3 𝔉,"(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"κ=",Factor[κ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  (s^((2))), (n^d), f",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[-κ,"-κ",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[-WW3,"-(Subscript[W, 3])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"κ=",Factor[κ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},"","Finite Singularities:  (s^((1))), (n^d), (f^((1)))",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[-κ,"-κ",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[WW3,"(Subscript[W, 3])",c,a,b]&&Dnze[𝔘3,"(Subscript[𝔘, 3])",c,a,b]&&Dnze[𝔗4,"(Subscript[𝔗, 4])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"κ=",Factor[κ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[U, 3])=",Factor[𝔘3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},"","Finite Singularities:  s, n, (n^d)",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[-κ,"-κ",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[WW3,"(Subscript[W, 3])",c,a,b]&&Dnze[𝔘3,"(Subscript[𝔘, 3])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"κ=",Factor[κ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[U, 3])=",Factor[𝔘3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  (s^((1))), n, (n^d)",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[-κ,"-κ",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[WW3,"(Subscript[W, 3])",c,a,b]&&Dnze[𝔘3,"(Subscript[𝔘, 3])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dnze[𝔉2,"(Subscript[𝔉, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"κ=",Factor[κ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[U, 3])=",Factor[𝔘3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},"","Finite Singularities:  (s^((2))), n, (n^d)",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[-κ,"-κ",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[WW3,"(Subscript[W, 3])",c,a,b]&&Dnze[𝔘3,"(Subscript[𝔘, 3])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dze[𝔉2,"(Subscript[𝔉, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"κ=",Factor[κ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[U, 3])=",Factor[𝔘3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},"","Finite Singularities:  (s^((3))), n, (n^d)",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[-κ,"-κ",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[WW3,"(Subscript[W, 3])",c,a,b]&&Dze[𝔘3,"(Subscript[𝔘, 3])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"κ=",Factor[κ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[U, 3])=",Factor[𝔘3]},"","Finite Singularities:  s, n, (SuperStar[n])",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[-κ,"-κ",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[WW3,"(Subscript[W, 3])",c,a,b]&&Dnze[𝔘3,"(Subscript[𝔘, 3])",c,a,b]&&Dnze[𝔗4,"(Subscript[𝔗, 4])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"κ=",Factor[κ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[U, 3])=",Factor[𝔘3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},"","Finite Singularities:  s, (n^d), (n^d)",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[-κ,"-κ",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[WW3,"(Subscript[W, 3])",c,a,b]&&Dnze[𝔘3,"(Subscript[𝔘, 3])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"κ=",Factor[κ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[U, 3])=",Factor[𝔘3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  (s^((1))), (n^d), (n^d)",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[-κ,"-κ",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[WW3,"(Subscript[W, 3])",c,a,b]&&Dnze[𝔘3,"(Subscript[𝔘, 3])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"κ=",Factor[κ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[U, 3])=",Factor[𝔘3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  (s^((2))), (n^d), (n^d)",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[-κ,"-κ",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[WW3,"(Subscript[W, 3])",c,a,b]&&Dze[𝔘3,"(Subscript[𝔘, 3])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"κ=",Factor[κ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[U, 3])=",Factor[𝔘3]},"","Finite Singularities:  s, (n^d), (SuperStar[n])",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[κ,"κ",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dnze[𝔗4,"(Subscript[𝔗, 4])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"κ=",Factor[κ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},"","Finite Singularities:  s, s, f",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[κ,"κ",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[-𝔗3 𝔉,"-(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"κ=",Factor[κ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  s, s, (f^((1)))",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[κ,"κ",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[-𝔗3 𝔉,"-(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dnze[𝔉2,"(Subscript[𝔉, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"κ=",Factor[κ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},"","Finite Singularities:  s, s, (f^((2)))",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[κ,"κ",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[-𝔗3 𝔉,"-(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dze[𝔉2,"(Subscript[𝔉, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"κ=",Factor[κ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},"","Finite Singularities:  s, s, (f^((3)))",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[κ,"κ",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[𝔗3 𝔉,"(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"κ=",Factor[κ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  s, (s^((2))), f",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[κ,"κ",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[𝔗3 𝔉,"(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"κ=",Factor[κ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  s, (s^((1))), f",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[κ,"κ",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dpo[-𝔗2,"-𝔗2",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"κ=",Factor[κ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔗, 2])=",Factor[𝔗2]},"","Finite Singularities:  (s^((1))), (s^((1))), f",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[κ,"κ",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dpo[𝔗2,"(Subscript[𝔗, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"κ=",Factor[κ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔗, 2])=",Factor[𝔗2]},"","Finite Singularities:  s, (s^((1))), (f^((1)))",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[κ,"κ",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dnze[𝔗4,"(Subscript[𝔗, 4])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"κ=",Factor[κ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},"","Finite Singularities:  s, s, n",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[κ,"κ",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dnze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"κ=",Factor[κ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  s, (s^((1))), n",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[κ,"κ",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dnze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"κ=",Factor[κ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  s, (s^((2))), n",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[κ,"κ",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"κ=",Factor[κ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},"","Finite Singularities:  (s^((1))), (s^((1))), n",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[κ,"κ",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dnze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dnze[𝔘3,"(Subscript[𝔘, 3])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"κ=",Factor[κ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[U, 3])=",Factor[𝔘3]},"","Finite Singularities:  s, s, (n^d)",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[κ,"κ",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dnze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔘3,"(Subscript[𝔘, 3])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"κ=",Factor[κ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[U, 3])=",Factor[𝔘3]},"","Finite Singularities:  s, s, (SuperStar[n])",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[κ,"κ",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dnze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"κ=",Factor[κ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  s, (s^((1))), (n^d)",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[κ,"κ",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dnze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"κ=",Factor[κ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  s, (s^((2))), (n^d)",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[κ,"κ",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"κ=",Factor[κ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},"","Finite Singularities:  (s^((1))), (s^((1))), (n^d)",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dpo[-WK,"-(Overscript[K, ∼])",c,a,b]&&Dpo[-WW7,"-(Subscript[W, 7])",c,a,b]&&Dnze[𝔅1,"(Subscript[𝔅, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 7])=",Factor[WW7]},{"(Subscript[𝔅, 1])=",Factor[𝔅1]},"","Finite Singularities:  s, s, f",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dpo[-WK,"-(Overscript[K, ∼])",c,a,b]&&Dpo[-WW7,"-(Subscript[W, 7])",c,a,b]&&Dze[𝔅1,"(Subscript[𝔅, 1])",c,a,b]&&Dpo[-𝔅2,"-(Subscript[𝔅, 2])",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 7])=",Factor[WW7]},{"(Subscript[𝔅, 1])=",Factor[𝔅1]},{"(Subscript[𝔅, 2])=",Factor[𝔅2]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  s, s, (f^((1)))",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dpo[-WK,"-(Overscript[K, ∼])",c,a,b]&&Dpo[-WW7,"-(Subscript[W, 7])",c,a,b]&&Dze[𝔅1,"(Subscript[𝔅, 1])",c,a,b]&&Dpo[-𝔅2,"-(Subscript[𝔅, 2])",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 7])=",Factor[WW7]},{"(Subscript[𝔅, 1])=",Factor[𝔅1]},{"(Subscript[𝔅, 2])=",Factor[𝔅2]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  s, s, c",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dpo[-WK,"-(Overscript[K, ∼])",c,a,b]&&Dpo[-WW7,"-(Subscript[W, 7])",c,a,b]&&Dze[𝔅1,"(Subscript[𝔅, 1])",c,a,b]&&Dpo[𝔅2,"(Subscript[𝔅, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 7])=",Factor[WW7]},{"(Subscript[𝔅, 1])=",Factor[𝔅1]},{"(Subscript[𝔅, 2])=",Factor[𝔅2]},"","Finite Singularities:  s, (s^((1))), f",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dpo[-WK,"-(Overscript[K, ∼])",c,a,b]&&Dpo[-WW7,"-(Subscript[W, 7])",c,a,b]&&Dze[𝔅1,"(Subscript[𝔅, 1])",c,a,b]&&Dze[𝔅2,"(Subscript[𝔅, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 7])=",Factor[WW7]},{"(Subscript[𝔅, 1])=",Factor[𝔅1]},{"(Subscript[𝔅, 2])=",Factor[𝔅2]},"","Finite Singularities:  $, $, c",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dpo[-WK,"-(Overscript[K, ∼])",c,a,b]&&Dpo[WW7,"(Subscript[W, 7])",c,a,b]&&Dnze[𝔅1,"(Subscript[𝔅, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 7])=",Factor[WW7]},{"(Subscript[𝔅, 1])=",Factor[𝔅1]},"","Finite Singularities:  s, s, n",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dpo[-WK,"-(Overscript[K, ∼])",c,a,b]&&Dpo[WW7,"(Subscript[W, 7])",c,a,b]&&Dze[𝔅1,"(Subscript[𝔅, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 7])=",Factor[WW7]},{"(Subscript[𝔅, 1])=",Factor[𝔅1]},"","Finite Singularities:  s, (s^((1))), n",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dpo[-WK,"-(Overscript[K, ∼])",c,a,b]&&Dze[WW7,"(Subscript[W, 7])",c,a,b]&&Dnze[𝔅1,"(Subscript[𝔅, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 7])=",Factor[WW7]},{"(Subscript[𝔅, 1])=",Factor[𝔅1]},"","Finite Singularities:  s, s, (n^d)",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dpo[-WK,"-(Overscript[K, ∼])",c,a,b]&&Dze[WW7,"(Subscript[W, 7])",c,a,b]&&Dze[𝔅1,"(Subscript[𝔅, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 7])=",Factor[WW7]},{"(Subscript[𝔅, 1])=",Factor[𝔅1]},"","Finite Singularities:  s, (s^((1))), (n^d)",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dpo[-WW7,"-(Subscript[W, 7])",c,a,b]&&Dnze[𝔅1,"(Subscript[𝔅, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 7])=",Factor[WW7]},{"(Subscript[𝔅, 1])=",Factor[𝔅1]},"","Finite Singularities:  s, n, f",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dpo[-WW7,"-(Subscript[W, 7])",c,a,b]&&Dze[𝔅1,"(Subscript[𝔅, 1])",c,a,b]&&Dpo[-𝔅2,"-(Subscript[𝔅, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 7])=",Factor[WW7]},{"(Subscript[𝔅, 1])=",Factor[𝔅1]},{"(Subscript[𝔅, 2])=",Factor[𝔅2]},"","Finite Singularities:  s, n, (f^((1)))",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dpo[-WW7,"-(Subscript[W, 7])",c,a,b]&&Dze[𝔅1,"(Subscript[𝔅, 1])",c,a,b]&&Dpo[𝔅2,"(Subscript[𝔅, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 7])=",Factor[WW7]},{"(Subscript[𝔅, 1])=",Factor[𝔅1]},{"(Subscript[𝔅, 2])=",Factor[𝔅2]},"","Finite Singularities:  (s^((1))), n, f",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dpo[WW7,"(Subscript[W, 7])",c,a,b]&&Dnze[𝔅1,"(Subscript[𝔅, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 7])=",Factor[WW7]},
{"(Subscript[𝔅, 1])=",Factor[𝔅1]},"","Finite Singularities:  s, n, n",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dpo[WW7,"(Subscript[W, 7])",c,a,b]&&Dze[𝔅1,"(Subscript[𝔅, 1])",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 7])=",Factor[WW7]},{"(Subscript[𝔅, 1])=",Factor[𝔅1]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  (s^((1))), n, n",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dpo[WW7,"(Subscript[W, 7])",c,a,b]&&Dze[𝔅1,"(Subscript[𝔅, 1])",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 7])=",Factor[WW7]},{"(Subscript[𝔅, 1])=",Factor[𝔅1]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  $, n, n",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WW7,"(Subscript[W, 7])",c,a,b]&&Dnze[WW6,"(Subscript[W, 6])",c,a,b]&&Dnze[𝔅1,"(Subscript[𝔅, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 7])=",Factor[WW7]},{"(Subscript[W, 6])=",Factor[WW6]},{"(Subscript[𝔅, 1])=",Factor[𝔅1]},"","Finite Singularities:  s, n, (n^d)",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WW7,"(Subscript[W, 7])",c,a,b]&&Dnze[WW6,"(Subscript[W, 6])",c,a,b]&&Dze[𝔅1,"(Subscript[𝔅, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 7])=",Factor[WW7]},{"(Subscript[W, 6])=",Factor[WW6]},{"(Subscript[𝔅, 1])=",Factor[𝔅1]},"","Finite Singularities:  (s^((1))), n, (n^d)",""}]],

Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WW7,"(Subscript[W, 7])",c,a,b]&&Dze[WW6,"(Subscript[W, 6])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"𝔻=",Factor[𝔻]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 7])=",Factor[WW7]},{"(Subscript[W, 6])=",Factor[WW6]},"","Finite Singularities:  $, (n^d), (n^d)",""}]],

Dnze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dze[𝕋,"𝕋",c,a,b]&&Dpo[-ℙ ℝ,"-ℙ ℝ",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕋=",Factor[𝕋]},{"ℙ ℝ=",Factor[ℙ ℝ]},"","Finite Singularities:  (Subscript[©, (2)]), (Subscript[©, (2)])",""}]],

Dnze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dze[𝕋,"𝕋",c,a,b]&&Dpo[ℙ ℝ,"ℙ ℝ",c,a,b]&&Dnze[𝔗4,"(Subscript[𝔗, 4])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕋=",Factor[𝕋]},{"ℙ ℝ=",Factor[ℙ ℝ]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},"","Finite Singularities:  (Subscript[(OverBar[sn]), (2)]), (Subscript[(OverBar[sn]), (2)])",""}]],

Dnze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dze[𝕋,"𝕋",c,a,b]&&Dpo[ℙ ℝ,"ℙ ℝ",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dnze[𝔗2,"(Subscript[𝔗, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕋=",Factor[𝕋]},{"ℙ ℝ=",Factor[ℙ ℝ]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 2])=",Factor[𝔗2]},"","Finite Singularities:  (Subscript[(OverBar[sn]), (2)]), (Subscript[(OverHat[cp]), (2)])",""}]],

Dnze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dze[𝕋,"𝕋",c,a,b]&&Dpo[ℙ ℝ,"ℙ ℝ",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗2,"(Subscript[𝔗, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕋=",Factor[𝕋]},{"ℙ ℝ=",Factor[ℙ ℝ]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 2])=",Factor[𝔗2]},"","Finite Singularities:  (Subscript[(OverHat[cp]), (2)]), (Subscript[(OverHat[cp]), (2)])",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dze[𝕋,"𝕋",c,a,b]&&Dze[ℙ,"ℙ",c,a,b]&&Dnze[ℝ,"ℝ",c,a,b]&&Dpo[-WE3,"-E3",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dnze[𝔗4,"(Subscript[𝔗, 4])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕋=",Factor[𝕋]},{"ℙ=",Factor[ℙ]},{"ℝ=",Factor[ℝ]},{"(Subscript[E, 3])=",Factor[WE3]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},"","Finite Singularities:  (Subscript[(OverBar[n]), (3)]), f",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dze[𝕋,"𝕋",c,a,b]&&Dze[ℙ,"ℙ",c,a,b]&&Dnze[ℝ,"ℝ",c,a,b]&&Dpo[-WE3,"-E3",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕋=",Factor[𝕋]},{"ℙ=",Factor[ℙ]},{"ℝ=",Factor[ℝ]},{"(Subscript[E, 3])=",Factor[WE3]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},"","Finite Singularities:  (Subscript[(OverBar[n]), (3)]), (f^((1)))",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dze[𝕋,"𝕋",c,a,b]&&Dze[ℙ,"ℙ",c,a,b]&&Dnze[ℝ,"ℝ",c,a,b]&&Dpo[-WE3,"-E3",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕋=",Factor[𝕋]},{"ℙ=",Factor[ℙ]},{"ℝ=",Factor[ℝ]},{"(Subscript[E, 3])=",Factor[WE3]},{"(Subscript[W, 4])=",Factor[WW4]},"","Finite Singularities:  (Subscript[(OverBar[n]), (3)]), n",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dze[𝕋,"𝕋",c,a,b]&&Dze[ℙ,"ℙ",c,a,b]&&Dnze[ℝ,"ℝ",c,a,b]&&Dpo[-WE3,"-E3",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dnze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[η,"η",c,a,b]&&Dnze[WM,"(Overscript[M, ∼])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕋=",Factor[𝕋]},{"ℙ=",Factor[ℙ]},{"ℝ=",Factor[ℝ]},{"(Subscript[E, 3])=",Factor[WE3]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},"","Finite Singularities:  (Subscript[(OverBar[n]), (3)]), (n^d)",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dze[𝕋,"𝕋",c,a,b]&&Dze[ℙ,"ℙ",c,a,b]&&Dnze[ℝ,"ℝ",c,a,b]&&Dpo[-WE3,"-E3",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dnze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[η,"η",c,a,b]&&Dze[WM,"(Overscript[M, ∼])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕋=",Factor[𝕋]},{"ℙ=",Factor[ℙ]},{"ℝ=",Factor[ℝ]},{"(Subscript[E, 3])=",Factor[WE3]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},"","Finite Singularities:  (Subscript[(OverBar[n]), (3)]), (SuperStar[n])",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dze[𝕋,"𝕋",c,a,b]&&Dze[ℙ,"ℙ",c,a,b]&&Dnze[ℝ,"ℝ",c,a,b]&&Dpo[-WE3,"-E3",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[-WW1,"-(Subscript[W, 1])",c,a,b]&&Dnze[𝔗1,"(Subscript[𝔗, 1])",c,a,b]&&Dnze[𝔜1,"(Subscript[Y, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕋=",Factor[𝕋]},{"ℙ=",Factor[ℙ]},{"ℝ=",Factor[ℝ]},{"(Subscript[E, 3])=",Factor[WE3]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[W, 1])=",Factor[WW1]},{"(Subscript[𝔗, 1])=",Factor[𝔗1]},{"(Subscript[Y, 1])=",Factor[𝔜1]},"","Finite Singularities:  (Subscript[(OverHat[es]), (3)]), f",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dze[𝕋,"𝕋",c,a,b]&&Dze[ℙ,"ℙ",c,a,b]&&Dnze[ℝ,"ℝ",c,a,b]&&Dpo[-WE3,"-E3",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[-WW1,"-(Subscript[W, 1])",c,a,b]&&Dnze[𝔗1,"(Subscript[𝔗, 1])",c,a,b]&&Dze[𝔜1,"(Subscript[Y, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕋=",Factor[𝕋]},{"ℙ=",Factor[ℙ]},{"ℝ=",Factor[ℝ]},{"(Subscript[E, 3])=",Factor[WE3]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[W, 1])=",Factor[WW1]},{"(Subscript[𝔗, 1])=",Factor[𝔗1]},{"(Subscript[Y, 1])=",Factor[𝔜1]},"","Finite Singularities:  (Subscript[(SuperMinus[(OverHat[es])]), (3)]), f",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dze[𝕋,"𝕋",c,a,b]&&Dze[ℙ,"ℙ",c,a,b]&&Dnze[ℝ,"ℝ",c,a,b]&&Dpo[-WE3,"-E3",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[-WW1,"-(Subscript[W, 1])",c,a,b]&&Dze[𝔗1,"(Subscript[𝔗, 1])",c,a,b]&&Dnze[𝔜1,"(Subscript[Y, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕋=",Factor[𝕋]},{"ℙ=",Factor[ℙ]},{"ℝ=",Factor[ℝ]},{"(Subscript[E, 3])=",Factor[WE3]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[W, 1])=",Factor[WW1]},{"(Subscript[𝔗, 1])=",Factor[𝔗1]},{"(Subscript[Y, 1])=",Factor[𝔜1]},"","Finite Singularities:  (Subscript[(OverHat[es]), (3)]), c",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dze[𝕋,"𝕋",c,a,b]&&Dze[ℙ,"ℙ",c,a,b]&&Dnze[ℝ,"ℝ",c,a,b]&&Dpo[-WE3,"-E3",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[-WW1,"-(Subscript[W, 1])",c,a,b]&&Dze[𝔗1,"(Subscript[𝔗, 1])",c,a,b]&&Dze[𝔜1,"(Subscript[Y, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕋=",Factor[𝕋]},{"ℙ=",Factor[ℙ]},{"ℝ=",Factor[ℝ]},{"(Subscript[E, 3])=",Factor[WE3]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[W, 1])=",Factor[WW1]},{"(Subscript[𝔗, 1])=",Factor[𝔗1]},{"(Subscript[Y, 1])=",Factor[𝔜1]},"","Finite Singularities:  (Subscript[(OverHat[(SuperMinus[es])]), (3)]), c",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dze[𝕋,"𝕋",c,a,b]&&Dze[ℙ,"ℙ",c,a,b]&&Dnze[ℝ,"ℝ",c,a,b]&&Dpo[-WE3,"-E3",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[WW1,"W1",c,a,b]&&Dnze[𝔜1,"(Subscript[Y, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕋=",Factor[𝕋]},{"ℙ=",Factor[ℙ]},{"ℝ=",Factor[ℝ]},{"(Subscript[E, 3])=",Factor[WE3]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[W, 1])=",Factor[WW1]},{"(Subscript[Y, 1])=",Factor[𝔜1]},"","Finite Singularities:  (Subscript[(OverHat[es]), (3)]), n",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dze[𝕋,"𝕋",c,a,b]&&Dze[ℙ,"ℙ",c,a,b]&&Dnze[ℝ,"ℝ",c,a,b]&&Dpo[-WE3,"-E3",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[WW1,"W1",c,a,b]&&Dze[𝔜1,"(Subscript[Y, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕋=",Factor[𝕋]},{"ℙ=",Factor[ℙ]},{"ℝ=",Factor[ℝ]},{"(Subscript[E, 3])=",Factor[WE3]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[W, 1])=",Factor[WW1]},{"(Subscript[Y, 1])=",Factor[𝔜1]},"","Finite Singularities:  (Subscript[(SuperMinus[(OverHat[es])]), (3)]), n",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dze[𝕋,"𝕋",c,a,b]&&Dze[ℙ,"ℙ",c,a,b]&&Dnze[ℝ,"ℝ",c,a,b]&&Dpo[-WE3,"-E3",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[WW1,"W1",c,a,b]&&Dnze[𝔜1,"(Subscript[Y, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕋=",Factor[𝕋]},{"ℙ=",Factor[ℙ]},{"ℝ=",Factor[ℝ]},{"(Subscript[E, 3])=",Factor[WE3]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[W, 1])=",Factor[WW1]},{"(Subscript[Y, 1])=",Factor[𝔜1]},"","Finite Singularities:  (Subscript[(OverHat[es]), (3)]), (n^d)",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dze[𝕋,"𝕋",c,a,b]&&Dze[ℙ,"ℙ",c,a,b]&&Dnze[ℝ,"ℝ",c,a,b]&&Dpo[-WE3,"-E3",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[WW1,"W1",c,a,b]&&Dze[𝔜1,"(Subscript[Y, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕋=",Factor[𝕋]},{"ℙ=",Factor[ℙ]},{"ℝ=",Factor[ℝ]},{"(Subscript[E, 3])=",Factor[WE3]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[W, 1])=",Factor[WW1]},{"(Subscript[Y, 1])=",Factor[𝔜1]},"","Finite Singularities:  (Subscript[(OverHat[(SuperMinus[es])]), (3)]), (n^d)",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dze[𝕋,"𝕋",c,a,b]&&Dze[ℙ,"ℙ",c,a,b]&&Dnze[ℝ,"ℝ",c,a,b]&&Dpo[WE3,"(Subscript[E, 3])",c,a,b]&&Dnze[𝔗4,"(Subscript[𝔗, 4])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕋=",Factor[𝕋]},{"ℙ=",Factor[ℙ]},{"ℝ=",Factor[ℝ]},{"(Subscript[E, 3])=",Factor[WE3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},"","Finite Singularities:  (Subscript[(OverBar[s]), (3)]), s",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dze[𝕋,"𝕋",c,a,b]&&Dze[ℙ,"ℙ",c,a,b]&&Dnze[ℝ,"ℝ",c,a,b]&&Dpo[WE3,"(Subscript[E, 3])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dnze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕋=",Factor[𝕋]},{"ℙ=",Factor[ℙ]},{"ℝ=",Factor[ℝ]},{"(Subscript[E, 3])=",Factor[WE3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  (Subscript[(OverBar[s]), (3)]), (s^((1)))",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dze[𝕋,"𝕋",c,a,b]&&Dze[ℙ,"ℙ",c,a,b]&&Dnze[ℝ,"ℝ",c,a,b]&&Dpo[WE3,"(Subscript[E, 3])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dnze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕋=",Factor[𝕋]},{"ℙ=",Factor[ℙ]},{"ℝ=",Factor[ℝ]},{"(Subscript[E, 3])=",Factor[WE3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  (Subscript[(OverBar[s]), (3)]), (s^((2)))",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dze[𝕋,"𝕋",c,a,b]&&Dze[ℙ,"ℙ",c,a,b]&&Dnze[ℝ,"ℝ",c,a,b]&&Dpo[WE3,"(Subscript[E, 3])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dnze[𝔗1,"(Subscript[𝔗, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕋=",Factor[𝕋]},{"ℙ=",Factor[ℙ]},{"ℝ=",Factor[ℝ]},{"(Subscript[E, 3])=",Factor[WE3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔗, 1])=",Factor[𝔗1]},"","Finite Singularities:  (Subscript[(OverHat[s]), (3)]), s",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dze[𝕋,"𝕋",c,a,b]&&Dze[ℙ,"ℙ",c,a,b]&&Dnze[ℝ,"ℝ",c,a,b]&&Dpo[WE3,"(Subscript[E, 3])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dze[𝔗1,"(Subscript[𝔗, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕋=",Factor[𝕋]},{"ℙ=",Factor[ℙ]},{"ℝ=",Factor[ℝ]},{"(Subscript[E, 3])=",Factor[WE3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔗, 1])=",Factor[𝔗1]},"","Finite Singularities:  (Subscript[(OverHat[s]), (3)]), $",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dze[𝕋,"𝕋",c,a,b]&&Dze[ℙ,"ℙ",c,a,b]&&Dnze[ℝ,"ℝ",c,a,b]&&Dpo[-WE3,"-E3",c,a,b]&&Dnze[𝔗4,"(Subscript[𝔗, 4])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕋=",Factor[𝕋]},{"ℙ=",Factor[ℙ]},{"ℝ=",Factor[ℝ]},{"(Subscript[E, 3])=",Factor[WE3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},"","Finite Singularities:  (Subscript[(OverBar[n]), (3)]), s",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dze[𝕋,"𝕋",c,a,b]&&Dze[ℙ,"ℙ",c,a,b]&&Dnze[ℝ,"ℝ",c,a,b]&&Dpo[-WE3,"-E3",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dnze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕋=",Factor[𝕋]},{"ℙ=",Factor[ℙ]},{"ℝ=",Factor[ℝ]},{"(Subscript[E, 3])=",Factor[WE3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  (Subscript[(OverBar[n]), (3)]), (s^((1)))",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dze[𝕋,"𝕋",c,a,b]&&Dze[ℙ,"ℙ",c,a,b]&&Dnze[ℝ,"ℝ",c,a,b]&&Dpo[-WE3,"-E3",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dnze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕋=",Factor[𝕋]},{"ℙ=",Factor[ℙ]},{"ℝ=",Factor[ℝ]},{"(Subscript[E, 3])=",Factor[WE3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  (Subscript[(OverBar[n]), (3)]), (s^((2)))",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dze[𝕋,"𝕋",c,a,b]&&Dze[ℙ,"ℙ",c,a,b]&&Dnze[ℝ,"ℝ",c,a,b]&&Dpo[-WE3,"-E3",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dnze[𝔗1,"(Subscript[𝔗, 1])",c,a,b]&&Dnze[𝔜1,"(Subscript[Y, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕋=",Factor[𝕋]},{"ℙ=",Factor[ℙ]},{"ℝ=",Factor[ℝ]},{"(Subscript[E, 3])=",Factor[WE3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔗, 1])=",Factor[𝔗1]},{"(Subscript[Y, 1])=",Factor[𝔜1]},"","Finite Singularities:  (Subscript[(OverHat[es]), (3)]), s",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dze[𝕋,"𝕋",c,a,b]&&Dze[ℙ,"ℙ",c,a,b]&&Dnze[ℝ,"ℝ",c,a,b]&&Dpo[-WE3,"-E3",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dnze[𝔗1,"(Subscript[𝔗, 1])",c,a,b]&&Dze[𝔜1,"(Subscript[Y, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕋=",Factor[𝕋]},{"ℙ=",Factor[ℙ]},{"ℝ=",Factor[ℝ]},{"(Subscript[E, 3])=",Factor[WE3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔗, 1])=",Factor[𝔗1]},{"(Subscript[Y, 1])=",Factor[𝔜1]},"","Finite Singularities:  (Subscript[(SuperMinus[(OverHat[es])]), (3)]), s",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dze[𝕋,"𝕋",c,a,b]&&Dze[ℙ,"ℙ",c,a,b]&&Dnze[ℝ,"ℝ",c,a,b]&&Dpo[-WE3,"-E3",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dze[𝔗1,"(Subscript[𝔗, 1])",c,a,b]&&Dnze[𝔜1,"(Subscript[Y, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕋=",Factor[𝕋]},{"ℙ=",Factor[ℙ]},{"ℝ=",Factor[ℝ]},{"(Subscript[E, 3])=",Factor[WE3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔗, 1])=",Factor[𝔗1]},{"(Subscript[Y, 1])=",Factor[𝔜1]},"","Finite Singularities:  (Subscript[(OverHat[es]), (3)]), $",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dze[𝕋,"𝕋",c,a,b]&&Dze[ℙ,"ℙ",c,a,b]&&Dnze[ℝ,"ℝ",c,a,b]&&Dpo[-WE3,"-E3",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dze[𝔗1,"(Subscript[𝔗, 1])",c,a,b]&&Dze[𝔜1,"(Subscript[Y, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕋=",Factor[𝕋]},{"ℙ=",Factor[ℙ]},{"ℝ=",Factor[ℝ]},{"(Subscript[E, 3])=",Factor[WE3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔗, 1])=",Factor[𝔗1]},{"(Subscript[Y, 1])=",Factor[𝔜1]},"","Finite Singularities:  (Subscript[(SuperMinus[(OverHat[es])]), (3)]), $",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dze[𝕋,"𝕋",c,a,b]&&Dze[ℙ,"ℙ",c,a,b]&&Dnze[ℝ,"ℝ",c,a,b]&&Dpo[WE3,"(Subscript[E, 3])",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dnze[𝔗4,"(Subscript[𝔗, 4])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕋=",Factor[𝕋]},{"ℙ=",Factor[ℙ]},{"ℝ=",Factor[ℝ]},{"(Subscript[E, 3])=",Factor[WE3]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},"","Finite Singularities:  (Subscript[(OverBar[s]), (3)]), f",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dze[𝕋,"𝕋",c,a,b]&&Dze[ℙ,"ℙ",c,a,b]&&Dnze[ℝ,"ℝ",c,a,b]&&Dpo[WE3,"(Subscript[E, 3])",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕋=",Factor[𝕋]},{"ℙ=",Factor[ℙ]},{"ℝ=",Factor[ℝ]},{"(Subscript[E, 3])=",Factor[WE3]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},"","Finite Singularities:  (Subscript[(OverBar[s]), (3)]), (f^((1)))",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dze[𝕋,"𝕋",c,a,b]&&Dze[ℙ,"ℙ",c,a,b]&&Dnze[ℝ,"ℝ",c,a,b]&&Dpo[WE3,"(Subscript[E, 3])",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕋=",Factor[𝕋]},{"ℙ=",Factor[ℙ]},{"ℝ=",Factor[ℝ]},{"(Subscript[E, 3])=",Factor[WE3]},{"(Subscript[W, 4])=",Factor[WW4]},"","Finite Singularities:  (Subscript[(OverBar[s]), (3)]), n",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dze[𝕋,"𝕋",c,a,b]&&Dze[ℙ,"ℙ",c,a,b]&&Dnze[ℝ,"ℝ",c,a,b]&&Dpo[WE3,"(Subscript[E, 3])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dnze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dnze[𝔘3,"(Subscript[𝔘, 3])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕋=",Factor[𝕋]},{"ℙ=",Factor[ℙ]},{"ℝ=",Factor[ℝ]},{"(Subscript[E, 3])=",Factor[WE3]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[U, 3])=",Factor[𝔘3]},"","Finite Singularities:  (Subscript[(OverBar[s]), (3)]), (n^d)",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dze[𝕋,"𝕋",c,a,b]&&Dze[ℙ,"ℙ",c,a,b]&&Dnze[ℝ,"ℝ",c,a,b]&&Dpo[WE3,"(Subscript[E, 3])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dnze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔘3,"(Subscript[𝔘, 3])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕋=",Factor[𝕋]},{"ℙ=",Factor[ℙ]},{"ℝ=",Factor[ℝ]},{"(Subscript[E, 3])=",Factor[WE3]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[U, 3])=",Factor[𝔘3]},"","Finite Singularities:  (Subscript[(OverBar[s]), (3)]), (SuperStar[n])",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dze[𝕋,"𝕋",c,a,b]&&Dze[ℙ,"ℙ",c,a,b]&&Dnze[ℝ,"ℝ",c,a,b]&&Dpo[WE3,"(Subscript[E, 3])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[-WW1,"-(Subscript[W, 1])",c,a,b]&&Dnze[𝔗1,"(Subscript[𝔗, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕋=",Factor[𝕋]},{"ℙ=",Factor[ℙ]},{"ℝ=",Factor[ℝ]},{"(Subscript[E, 3])=",Factor[WE3]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[W, 1])=",Factor[WW1]},{"(Subscript[𝔗, 1])=",Factor[𝔗1]},"","Finite Singularities:  (Subscript[(OverHat[s]), (3)]), f",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dze[𝕋,"𝕋",c,a,b]&&Dze[ℙ,"ℙ",c,a,b]&&Dnze[ℝ,"ℝ",c,a,b]&&Dpo[WE3,"(Subscript[E, 3])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[-WW1,"-(Subscript[W, 1])",c,a,b]&&Dze[𝔗1,"(Subscript[𝔗, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕋=",Factor[𝕋]},{"ℙ=",Factor[ℙ]},{"ℝ=",Factor[ℝ]},{"(Subscript[E, 3])=",Factor[WE3]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[W, 1])=",Factor[WW1]},{"(Subscript[𝔗, 1])=",Factor[𝔗1]},"","Finite Singularities:  (Subscript[(OverHat[s]), (3)]), c",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dze[𝕋,"𝕋",c,a,b]&&Dze[ℙ,"ℙ",c,a,b]&&Dnze[ℝ,"ℝ",c,a,b]&&Dpo[WE3,"(Subscript[E, 3])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[WW1,"W1",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕋=",Factor[𝕋]},{"ℙ=",Factor[ℙ]},{"ℝ=",Factor[ℝ]},{"(Subscript[E, 3])=",Factor[WE3]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[W, 1])=",Factor[WW1]},{"(Subscript[𝔗, 1])=",Factor[𝔗1]},"","Finite Singularities:  (Subscript[(OverHat[s]), (3)]), n",""}]],

Dnze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dpo[𝕋,"𝕋",c,a,b]&&Dnze[WE1,"(Subscript[E, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕋=",Factor[𝕋]},{"(Subscript[E, 1])=",Factor[WE1]},"","Finite Singularities:  (Subscript[(OverBar[sn]), (2)]), ©, ©",""}]],

Dnze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dpo[𝕋,"𝕋",c,a,b]&&Dze[WE1,"(Subscript[E, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕋=",Factor[𝕋]},{"(Subscript[E, 1])=",Factor[WE1]},"","Finite Singularities:  (Subscript[(OverHat[cp]), (2)]), ©, ©",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dpo[-𝕋,"-𝕋",c,a,b]&&Dpo[-WK,"-(Overscript[K, ∼])",c,a,b]&&Dnze[WE1,"(Subscript[E, 1])",c,a,b]&&Dnze[𝔗4,"(Subscript[𝔗, 4])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕋=",Factor[𝕋]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[E, 1])=",Factor[WE1]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},"","Finite Singularities:  (Subscript[(OverBar[sn]), (2)]), s, s",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dpo[-𝕋,"-𝕋",c,a,b]&&Dpo[-WK,"-(Overscript[K, ∼])",c,a,b]&&Dnze[WE1,"(Subscript[E, 1])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dnze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕋=",Factor[𝕋]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[E, 1])=",Factor[WE1]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  (Subscript[(OverBar[sn]), (2)]), s, (s^((1)))",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dpo[-𝕋,"-𝕋",c,a,b]&&Dpo[-WK,"-(Overscript[K, ∼])",c,a,b]&&Dnze[WE1,"(Subscript[E, 1])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dnze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dnze[𝔉2,"(Subscript[𝔉, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕋=",Factor[𝕋]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[E, 1])=",Factor[WE1]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},"","Finite Singularities:  (Subscript[(OverBar[sn]), (2)]), s, (s^((2)))",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dpo[-𝕋,"-𝕋",c,a,b]&&Dpo[-WK,"-(Overscript[K, ∼])",c,a,b]&&Dnze[WE1,"(Subscript[E, 1])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dnze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dze[𝔉2,"(Subscript[𝔉, 2])",c,a,b]&&Dnze[𝔉3 𝔉4,"𝔉3 𝔉4",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕋=",Factor[𝕋]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[E, 1])=",Factor[WE1]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},{"(Subscript[𝔉, 3]) (Subscript[𝔉, 4])=",Factor[𝔉3 𝔉4]},"","Finite Singularities:  (Subscript[(OverBar[sn]), (2)]), s, (s^((3)))",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dpo[-𝕋,"-𝕋",c,a,b]&&Dpo[-WK,"-(Overscript[K, ∼])",c,a,b]&&Dnze[WE1,"(Subscript[E, 1])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dnze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dze[𝔉2,"(Subscript[𝔉, 2])",c,a,b]&&Dze[𝔉3 𝔉4,"𝔉3 𝔉4",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕋=",Factor[𝕋]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[E, 1])=",Factor[WE1]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},{"(Subscript[𝔉, 3]) (Subscript[𝔉, 4])=",Factor[𝔉3 𝔉4]},"","Finite Singularities:  (Subscript[(OverBar[sn]), (2)]), s, $",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dpo[-𝕋,"-𝕋",c,a,b]&&Dpo[-WK,"-(Overscript[K, ∼])",c,a,b]&&Dnze[WE1,"(Subscript[E, 1])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕋=",Factor[𝕋]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[E, 1])=",Factor[WE1]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  (Subscript[(OverBar[sn]), (2)]), (s^((1))), (s^((1)))",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dpo[-𝕋,"-𝕋",c,a,b]&&Dpo[-WK,"-(Overscript[K, ∼])",c,a,b]&&Dnze[WE1,"(Subscript[E, 1])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕋=",Factor[𝕋]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[E, 1])=",Factor[WE1]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  (Subscript[(OverBar[sn]), (2)]), $, $",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dpo[-𝕋,"-𝕋",c,a,b]&&Dpo[-WK,"-(Overscript[K, ∼])",c,a,b]&&Dze[WE1,"(Subscript[E, 1])",c,a,b]&&Dnze[𝔗2,"(Subscript[𝔗, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕋=",Factor[𝕋]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[E, 1])=",Factor[WE1]},{"(Subscript[𝔗, 2])=",Factor[𝔗2]},"","Finite Singularities:  (Subscript[(OverHat[cp]), (2)]), s, s",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dpo[-𝕋,"-𝕋",c,a,b]&&Dpo[-WK,"-(Overscript[K, ∼])",c,a,b]&&Dze[WE1,"(Subscript[E, 1])",c,a,b]&&Dze[𝔗2,"(Subscript[𝔗, 2])",c,a,b]&&Dnze[𝔗1,"(Subscript[𝔗, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕋=",Factor[𝕋]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[E, 1])=",Factor[WE1]},{"(Subscript[𝔗, 2])=",Factor[𝔗2]},{"(Subscript[𝔗, 1])=",Factor[𝔗1]},"","Finite Singularities:  (Subscript[(OverHat[cp]), (2)]), s, (s^((1)))",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dpo[-𝕋,"-𝕋",c,a,b]&&Dpo[-WK,"-(Overscript[K, ∼])",c,a,b]&&Dze[WE1,"(Subscript[E, 1])",c,a,b]&&Dze[𝔗2,"(Subscript[𝔗, 2])",c,a,b]&&Dze[𝔗1,"(Subscript[𝔗, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕋=",Factor[𝕋]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[E, 1])=",Factor[WE1]},{"(Subscript[𝔗, 2])=",Factor[𝔗2]},{"(Subscript[𝔗, 1])=",Factor[𝔗1]},"","Finite Singularities:  (Subscript[(OverHat[cp]), (2)]), $, $",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dpo[-𝕋,"-𝕋",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dnze[WE1,"(Subscript[E, 1])",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dnze[𝔗4,"(Subscript[𝔗, 4])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕋=",Factor[𝕋]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[E, 1])=",Factor[WE1]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},"","Finite Singularities:  (Subscript[(OverBar[sn]), (2)]), n, f",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dpo[-𝕋,"-𝕋",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dnze[WE1,"(Subscript[E, 1])",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dnze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕋=",Factor[𝕋]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[E, 1])=",Factor[WE1]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  (Subscript[(OverBar[sn]), (2)]), n, (f^((1)))",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dpo[-𝕋,"-𝕋",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dnze[WE1,"(Subscript[E, 1])",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dnze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dnze[𝔉2,"(Subscript[𝔉, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕋=",Factor[𝕋]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[E, 1])=",Factor[WE1]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},"","Finite Singularities:  (Subscript[(OverBar[sn]), (2)]), n, (f^((2)))",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dpo[-𝕋,"-𝕋",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dnze[WE1,"(Subscript[E, 1])",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dnze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dze[𝔉2,"(Subscript[𝔉, 2])",c,a,b]&&Dnze[𝔉3 𝔉4,"𝔉3 𝔉4",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕋=",Factor[𝕋]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[E, 1])=",Factor[WE1]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},{"(Subscript[𝔉, 3]) (Subscript[𝔉, 4])=",Factor[𝔉3 𝔉4]},"","Finite Singularities:  (Subscript[(OverBar[sn]), (2)]), n, (f^((3)))",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dpo[-𝕋,"-𝕋",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dnze[WE1,"(Subscript[E, 1])",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dnze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dze[𝔉2,"(Subscript[𝔉, 2])",c,a,b]&&Dze[𝔉3 𝔉4,"𝔉3 𝔉4",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕋=",Factor[𝕋]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[E, 1])=",Factor[WE1]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},{"(Subscript[𝔉, 3]) (Subscript[𝔉, 4])=",Factor[𝔉3 𝔉4]},"","Finite Singularities:  (Subscript[(OverBar[sn]), (2)]), n, c",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dpo[-𝕋,"-𝕋",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dnze[WE1,"(Subscript[E, 1])",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[-WW2,"-(Subscript[W, 2])",c,a,b]&&Dnze[𝔗4,"(Subscript[𝔗, 4])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕋=",Factor[𝕋]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[E, 1])=",Factor[WE1]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},"","Finite Singularities:  (Subscript[(OverBar[sn]), (2)]), f, f",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dpo[-𝕋,"-𝕋",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dnze[WE1,"(Subscript[E, 1])",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[-WW2,"-(Subscript[W, 2])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dnze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕋=",Factor[𝕋]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[E, 1])=",Factor[WE1]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  (Subscript[(OverBar[sn]), (2)]), f, (f^((1)))",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dpo[-𝕋,"-𝕋",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dnze[WE1,"(Subscript[E, 1])",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[-WW2,"-(Subscript[W, 2])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dnze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dnze[𝔉2,"(Subscript[𝔉, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕋=",Factor[𝕋]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[E, 1])=",Factor[WE1]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},"","Finite Singularities:  (Subscript[(OverBar[sn]), (2)]), f, (f^((2)))",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dpo[-𝕋,"-𝕋",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dnze[WE1,"(Subscript[E, 1])",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[-WW2,"-(Subscript[W, 2])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dnze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dze[𝔉2,"(Subscript[𝔉, 2])",c,a,b]&&Dnze[𝔉3 𝔉4,"𝔉3 𝔉4",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕋=",Factor[𝕋]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[E, 1])=",Factor[WE1]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},{"(Subscript[𝔉, 3]) (Subscript[𝔉, 4])=",Factor[𝔉3 𝔉4]},"","Finite Singularities:  (Subscript[(OverBar[sn]), (2)]), f, (f^((3)))",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dpo[-𝕋,"-𝕋",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dnze[WE1,"(Subscript[E, 1])",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[-WW2,"-(Subscript[W, 2])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dnze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dze[𝔉2,"(Subscript[𝔉, 2])",c,a,b]&&Dze[𝔉3 𝔉4,"𝔉3 𝔉4",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕋=",Factor[𝕋]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[E, 1])=",Factor[WE1]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},{"(Subscript[𝔉, 3]) (Subscript[𝔉, 4])=",Factor[𝔉3 𝔉4]},"","Finite Singularities:  (Subscript[(OverBar[sn]), (2)]), f, c",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dpo[-𝕋,"-𝕋",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dnze[WE1,"(Subscript[E, 1])",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[-WW2,"-(Subscript[W, 2])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕋=",Factor[𝕋]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[E, 1])=",Factor[WE1]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  (Subscript[(OverBar[sn]), (2)]), (f^((1))), (f^((1)))",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dpo[-𝕋,"-𝕋",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dnze[WE1,"(Subscript[E, 1])",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[-WW2,"-(Subscript[W, 2])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕋=",Factor[𝕋]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[E, 1])=",Factor[WE1]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  (Subscript[(OverBar[sn]), (2)]), c, c",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dpo[-𝕋,"-𝕋",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dnze[WE1,"(Subscript[E, 1])",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[WW2,"(Subscript[W, 2])",c,a,b]&&Dpo[-WW1 WW3,"-W1 W3",c,a,b]&&Dnze[𝔗4,"(Subscript[𝔗, 4])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕋=",Factor[𝕋]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[E, 1])=",Factor[WE1]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[W, 1]) (Subscript[W, 3])=",Factor[WW1 WW3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},"","Finite Singularities:  (Subscript[(OverBar[sn]), (2)]), f, f",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dpo[-𝕋,"-𝕋",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dnze[WE1,"(Subscript[E, 1])",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[WW2,"(Subscript[W, 2])",c,a,b]&&Dpo[-WW1 WW3,"-W1 W3",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dnze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕋=",Factor[𝕋]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[E, 1])=",Factor[WE1]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[W, 1]) (Subscript[W, 3])=",Factor[WW1 WW3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  (Subscript[(OverBar[sn]), (2)]), f, (f^((1)))",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dpo[-𝕋,"-𝕋",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dnze[WE1,"(Subscript[E, 1])",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[WW2,"(Subscript[W, 2])",c,a,b]&&Dpo[-WW1 WW3,"-W1 W3",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dnze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dnze[𝔉2,"(Subscript[𝔉, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕋=",Factor[𝕋]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[E, 1])=",Factor[WE1]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[W, 1]) (Subscript[W, 3])=",Factor[WW1 WW3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},"","Finite Singularities:  (Subscript[(OverBar[sn]), (2)]), f, (f^((2)))",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dpo[-𝕋,"-𝕋",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dnze[WE1,"(Subscript[E, 1])",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[WW2,"(Subscript[W, 2])",c,a,b]&&Dpo[-WW1 WW3,"-W1 W3",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dnze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dze[𝔉2,"(Subscript[𝔉, 2])",c,a,b]&&Dnze[𝔉3 𝔉4,"𝔉3 𝔉4",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕋=",Factor[𝕋]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[E, 1])=",Factor[WE1]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[W, 1]) (Subscript[W, 3])=",Factor[WW1 WW3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},{"(Subscript[𝔉, 3]) (Subscript[𝔉, 4])=",Factor[𝔉3 𝔉4]},"","Finite Singularities:  (Subscript[(OverBar[sn]), (2)]), f, (f^((3)))",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dpo[-𝕋,"-𝕋",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dnze[WE1,"(Subscript[E, 1])",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[WW2,"(Subscript[W, 2])",c,a,b]&&Dpo[-WW1 WW3,"-W1 W3",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dnze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dze[𝔉2,"(Subscript[𝔉, 2])",c,a,b]&&Dze[𝔉3 𝔉4,"𝔉3 𝔉4",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕋=",Factor[𝕋]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[E, 1])=",Factor[WE1]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[W, 1]) (Subscript[W, 3])=",Factor[WW1 WW3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},{"(Subscript[𝔉, 3]) (Subscript[𝔉, 4])=",Factor[𝔉3 𝔉4]},"","Finite Singularities:  (Subscript[(OverBar[sn]), (2)]), f, c",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dpo[-𝕋,"-𝕋",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dnze[WE1,"(Subscript[E, 1])",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[WW2,"(Subscript[W, 2])",c,a,b]&&Dpo[-WW1 WW3,"-W1 W3",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕋=",Factor[𝕋]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[E, 1])=",Factor[WE1]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[W, 1]) (Subscript[W, 3])=",Factor[WW1 WW3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  (Subscript[(OverBar[sn]), (2)]), (f^((1))), (f^((1)))",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dpo[-𝕋,"-𝕋",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dnze[WE1,"(Subscript[E, 1])",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[WW2,"(Subscript[W, 2])",c,a,b]&&Dpo[-WW1 WW3,"-W1 W3",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕋=",Factor[𝕋]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[E, 1])=",Factor[WE1]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[W, 1]) (Subscript[W, 3])=",Factor[WW1 WW3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  (Subscript[(OverBar[sn]), (2)]), c, c",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dpo[-𝕋,"-𝕋",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dnze[WE1,"(Subscript[E, 1])",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[WW2,"(Subscript[W, 2])",c,a,b]&&Dpo[WW1 WW3,"W1 W3",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕋=",Factor[𝕋]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[E, 1])=",Factor[WE1]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[W, 1]) (Subscript[W, 3])=",Factor[WW1 WW3]},"","Finite Singularities:  (Subscript[(OverBar[sn]), (2)]), n, n",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dpo[-𝕋,"-𝕋",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dnze[WE1,"(Subscript[E, 1])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[-WW3,"-(Subscript[W, 3])",c,a,b]&&Dnze[𝔗4,"(Subscript[𝔗, 4])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕋=",Factor[𝕋]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[E, 1])=",Factor[WE1]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},"","Finite Singularities:  (Subscript[(OverBar[sn]), (2)]), (n^d), f",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dpo[-𝕋,"-𝕋",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dnze[WE1,"(Subscript[E, 1])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[-WW3,"-(Subscript[W, 3])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dnze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕋=",Factor[𝕋]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[E, 1])=",Factor[WE1]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  (Subscript[(OverBar[sn]), (2)]), (n^d), (f^((1)))",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dpo[-𝕋,"-𝕋",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dnze[WE1,"(Subscript[E, 1])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[-WW3,"-(Subscript[W, 3])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dnze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dnze[𝔉2,"(Subscript[𝔉, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕋=",Factor[𝕋]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[E, 1])=",Factor[WE1]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},"","Finite Singularities:  (Subscript[(OverBar[sn]), (2)]), (n^d), (f^((2)))",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dpo[-𝕋,"-𝕋",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dnze[WE1,"(Subscript[E, 1])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[-WW3,"-(Subscript[W, 3])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dnze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dze[𝔉2,"(Subscript[𝔉, 2])",c,a,b]&&Dnze[𝔉3 𝔉4,"𝔉3 𝔉4",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕋=",Factor[𝕋]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[E, 1])=",Factor[WE1]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},{"(Subscript[𝔉, 3]) (Subscript[𝔉, 4])=",Factor[𝔉3 𝔉4]},"","Finite Singularities:  (Subscript[(OverBar[sn]), (2)]), (n^d), (f^((3)))",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dpo[-𝕋,"-𝕋",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dnze[WE1,"(Subscript[E, 1])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[-WW3,"-(Subscript[W, 3])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dnze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dze[𝔉2,"(Subscript[𝔉, 2])",c,a,b]&&Dze[𝔉3 𝔉4,"𝔉3 𝔉4",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕋=",Factor[𝕋]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[E, 1])=",Factor[WE1]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},{"(Subscript[𝔉, 3]) (Subscript[𝔉, 4])=",Factor[𝔉3 𝔉4]},"","Finite Singularities:  (Subscript[(OverBar[sn]), (2)]), (n^d), c",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dpo[-𝕋,"-𝕋",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dnze[WE1,"(Subscript[E, 1])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[WW3,"(Subscript[W, 3])",c,a,b]&&Dnze[𝔘3,"(Subscript[𝔘, 3])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕋=",Factor[𝕋]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[E, 1])=",Factor[WE1]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[U, 3])=",Factor[𝔘3]},"","Finite Singularities:  (Subscript[(OverBar[sn]), (2)]), (n^d), n",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dpo[-𝕋,"-𝕋",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dnze[WE1,"(Subscript[E, 1])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[WW3,"(Subscript[W, 3])",c,a,b]&&Dnze[𝔘3,"(Subscript[𝔘, 3])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕋=",Factor[𝕋]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[E, 1])=",Factor[WE1]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[U, 3])=",Factor[𝔘3]},"","Finite Singularities:  (Subscript[(OverBar[sn]), (2)]), (n^d), (n^d)",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dpo[-𝕋,"-𝕋",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dnze[WE1,"(Subscript[E, 1])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[WW3,"(Subscript[W, 3])",c,a,b]&&Dze[𝔘3,"(Subscript[𝔘, 3])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕋=",Factor[𝕋]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[E, 1])=",Factor[WE1]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[U, 3])=",Factor[𝔘3]},"","Finite Singularities:  (Subscript[(OverBar[sn]), (2)]), (SuperStar[n]), n",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dpo[-𝕋,"-𝕋",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dnze[WE1,"(Subscript[E, 1])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[WW3,"(Subscript[W, 3])",c,a,b]&&Dze[𝔘3,"(Subscript[𝔘, 3])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕋=",Factor[𝕋]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[E, 1])=",Factor[WE1]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[U, 3])=",Factor[𝔘3]},"","Finite Singularities:  (Subscript[(OverBar[sn]), (2)]), (SuperStar[n]), (n^d)",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dpo[-𝕋,"-𝕋",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WE1,"(Subscript[E, 1])",c,a,b]&&Dpo[-WW2,"-(Subscript[W, 2])",c,a,b]&&Dnze[𝔗2,"(Subscript[𝔗, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕋=",Factor[𝕋]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[E, 1])=",Factor[WE1]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[𝔗, 2])=",Factor[𝔗2]},"","Finite Singularities:  (Subscript[(OverHat[cp]), (2)]), n, f",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dpo[-𝕋,"-𝕋",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WE1,"(Subscript[E, 1])",c,a,b]&&Dpo[-WW2,"-(Subscript[W, 2])",c,a,b]&&Dze[𝔗2,"(Subscript[𝔗, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕋=",Factor[𝕋]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[E, 1])=",Factor[WE1]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[𝔗, 2])=",Factor[𝔗2]},{"ℌ=",Factor[ℌ]},"","Finite Singularities:  (Subscript[(OverHat[cp]), (2)]), n, (f^((1)))",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dpo[-𝕋,"-𝕋",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WE1,"(Subscript[E, 1])",c,a,b]&&Dpo[WW2,"(Subscript[W, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕋=",Factor[𝕋]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[E, 1])=",Factor[WE1]},{"(Subscript[W, 2])=",Factor[WW2]},"","Finite Singularities:  (Subscript[(OverHat[cp]), (2)]), n, n",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dpo[-𝕋,"-𝕋",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WE1,"(Subscript[E, 1])",c,a,b]&&Dze[WW2,"(Subscript[W, 2])",c,a,b]&&Dnze[WW1,"W1",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕋=",Factor[𝕋]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[E, 1])=",Factor[WE1]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[W, 1])=",Factor[WW1]},"","Finite Singularities:  (Subscript[(OverHat[cp]), (2)]), (n^d), n",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dpo[-𝕋,"-𝕋",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WE1,"(Subscript[E, 1])",c,a,b]&&Dze[WW2,"(Subscript[W, 2])",c,a,b]&&Dze[WW1,"W1",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕋=",Factor[𝕋]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[E, 1])=",Factor[WE1]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[W, 1])=",Factor[WW1]},"","Finite Singularities:  (Subscript[(OverHat[cp]), (2)]), (n^d), (n^d)",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dpo[-𝕋,"-𝕋",c,a,b]&&Dnze[WE1,"(Subscript[E, 1])",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dnze[𝔗4,"(Subscript[𝔗, 4])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕋=",Factor[𝕋]},{"(Subscript[E, 1])=",Factor[WE1]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},"","Finite Singularities:  (Subscript[(OverBar[sn]), (2)]), s, f",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dpo[-𝕋,"-𝕋",c,a,b]&&Dnze[WE1,"(Subscript[E, 1])",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[-𝔗3 𝔉,"-(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕋=",Factor[𝕋]},{"(Subscript[E, 1])=",Factor[WE1]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  (Subscript[(OverBar[sn]), (2)]), s, (f^((1)))",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dpo[-𝕋,"-𝕋",c,a,b]&&Dnze[WE1,"(Subscript[E, 1])",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[-𝔗3 𝔉,"-(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dnze[𝔉2,"(Subscript[𝔉, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕋=",Factor[𝕋]},{"(Subscript[E, 1])=",Factor[WE1]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},"","Finite Singularities:  (Subscript[(OverBar[sn]), (2)]), s, (f^((2)))",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dpo[-𝕋,"-𝕋",c,a,b]&&Dnze[WE1,"(Subscript[E, 1])",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[-𝔗3 𝔉,"-(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dze[𝔉2,"(Subscript[𝔉, 2])",c,a,b]&&Dnze[𝔉3 𝔉4,"𝔉3 𝔉4",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕋=",Factor[𝕋]},{"(Subscript[E, 1])=",Factor[WE1]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},{"(Subscript[𝔉, 3]) (Subscript[𝔉, 4])=",Factor[𝔉3 𝔉4]},"","Finite Singularities:  (Subscript[(OverBar[sn]), (2)]), s, (f^((3)))",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dpo[-𝕋,"-𝕋",c,a,b]&&Dnze[WE1,"(Subscript[E, 1])",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[-𝔗3 𝔉,"-(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dze[𝔉2,"(Subscript[𝔉, 2])",c,a,b]&&Dze[𝔉3 𝔉4,"𝔉3 𝔉4",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕋=",Factor[𝕋]},{"(Subscript[E, 1])=",Factor[WE1]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},{"(Subscript[𝔉, 3]) (Subscript[𝔉, 4])=",Factor[𝔉3 𝔉4]},"","Finite Singularities:  (Subscript[(OverBar[sn]), (2)]), s, c",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dpo[-𝕋,"-𝕋",c,a,b]&&Dnze[WE1,"(Subscript[E, 1])",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[𝔗3 𝔉,"(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕋=",Factor[𝕋]},{"(Subscript[E, 1])=",Factor[WE1]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  (Subscript[(OverBar[sn]), (2)]), (s^((1))), f",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dpo[-𝕋,"-𝕋",c,a,b]&&Dnze[WE1,"(Subscript[E, 1])",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[𝔗3 𝔉,"(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dnze[𝔉2,"(Subscript[𝔉, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕋=",Factor[𝕋]},{"(Subscript[E, 1])=",Factor[WE1]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},"","Finite Singularities:  (Subscript[(OverBar[sn]), (2)]), (s^((2))), f",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dpo[-𝕋,"-𝕋",c,a,b]&&Dnze[WE1,"(Subscript[E, 1])",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[𝔗3 𝔉,"(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dze[𝔉2,"(Subscript[𝔉, 2])",c,a,b]&&Dnze[𝔉3 𝔉4,"𝔉3 𝔉4",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕋=",Factor[𝕋]},{"(Subscript[E, 1])=",Factor[WE1]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},{"(Subscript[𝔉, 3]) (Subscript[𝔉, 4])=",Factor[𝔉3 𝔉4]},"","Finite Singularities:  (Subscript[(OverBar[sn]), (2)]), (s^((3))), f",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dpo[-𝕋,"-𝕋",c,a,b]&&Dnze[WE1,"(Subscript[E, 1])",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[𝔗3 𝔉,"(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dze[𝔉2,"(Subscript[𝔉, 2])",c,a,b]&&Dze[𝔉3 𝔉4,"𝔉3 𝔉4",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕋=",Factor[𝕋]},{"(Subscript[E, 1])=",Factor[WE1]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},{"(Subscript[𝔉, 3]) (Subscript[𝔉, 4])=",Factor[𝔉3 𝔉4]},"","Finite Singularities:  (Subscript[(OverBar[sn]), (2)]), $, f",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dpo[-𝕋,"-𝕋",c,a,b]&&Dnze[WE1,"(Subscript[E, 1])",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕋=",Factor[𝕋]},{"(Subscript[E, 1])=",Factor[WE1]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  (Subscript[(OverBar[sn]), (2)]), (s^((1))), (f^((1)))",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dpo[-𝕋,"-𝕋",c,a,b]&&Dnze[WE1,"(Subscript[E, 1])",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕋=",Factor[𝕋]},{"(Subscript[E, 1])=",Factor[WE1]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  (Subscript[(OverBar[sn]), (2)]), $, c",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dpo[-𝕋,"-𝕋",c,a,b]&&Dnze[WE1,"(Subscript[E, 1])",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dnze[𝔗4,"(Subscript[𝔗, 4])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕋=",Factor[𝕋]},{"(Subscript[E, 1])=",Factor[WE1]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},"","Finite Singularities:  (Subscript[(OverBar[sn]), (2)]), s, n",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dpo[-𝕋,"-𝕋",c,a,b]&&Dnze[WE1,"(Subscript[E, 1])",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dnze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕋=",Factor[𝕋]},{"(Subscript[E, 1])=",Factor[WE1]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  (Subscript[(OverBar[sn]), (2)]), n, (s^((1)))",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dpo[-𝕋,"-𝕋",c,a,b]&&Dnze[WE1,"(Subscript[E, 1])",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dnze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dnze[𝔉2,"(Subscript[𝔉, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕋=",Factor[𝕋]},{"(Subscript[E, 1])=",Factor[WE1]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},"","Finite Singularities:  (Subscript[(OverBar[sn]), (2)]), n, (s^((2)))",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dpo[-𝕋,"-𝕋",c,a,b]&&Dnze[WE1,"(Subscript[E, 1])",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dnze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dze[𝔉2,"(Subscript[𝔉, 2])",c,a,b]&&Dnze[𝔉3 𝔉4,"𝔉3 𝔉4",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕋=",Factor[𝕋]},{"(Subscript[E, 1])=",Factor[WE1]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},{"(Subscript[𝔉, 3]) (Subscript[𝔉, 4])=",Factor[𝔉3 𝔉4]},"","Finite Singularities:  (Subscript[(OverBar[sn]), (2)]), n, (s^((3)))",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dpo[-𝕋,"-𝕋",c,a,b]&&Dnze[WE1,"(Subscript[E, 1])",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dnze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dze[𝔉2,"(Subscript[𝔉, 2])",c,a,b]&&Dze[𝔉3 𝔉4,"𝔉3 𝔉4",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕋=",Factor[𝕋]},{"(Subscript[E, 1])=",Factor[WE1]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},{"(Subscript[𝔉, 3]) (Subscript[𝔉, 4])=",Factor[𝔉3 𝔉4]},"","Finite Singularities:  (Subscript[(OverBar[sn]), (2)]), n, $",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dpo[-𝕋,"-𝕋",c,a,b]&&Dnze[WE1,"(Subscript[E, 1])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dnze[𝔗4,"(Subscript[𝔗, 4])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕋=",Factor[𝕋]},{"(Subscript[E, 1])=",Factor[WE1]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},"","Finite Singularities:  (Subscript[(OverBar[sn]), (2)]), s, (n^d)",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dpo[-𝕋,"-𝕋",c,a,b]&&Dnze[WE1,"(Subscript[E, 1])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dnze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕋=",Factor[𝕋]},{"(Subscript[E, 1])=",Factor[WE1]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  (Subscript[(OverBar[sn]), (2)]), (n^d), (s^((1)))",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dpo[-𝕋,"-𝕋",c,a,b]&&Dnze[WE1,"(Subscript[E, 1])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dnze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dnze[𝔉2,"(Subscript[𝔉, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕋=",Factor[𝕋]},{"(Subscript[E, 1])=",Factor[WE1]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},"","Finite Singularities:  (Subscript[(OverBar[sn]), (2)]), (n^d), (s^((2)))",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dpo[-𝕋,"-𝕋",c,a,b]&&Dnze[WE1,"(Subscript[E, 1])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dnze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dze[𝔉2,"(Subscript[𝔉, 2])",c,a,b]&&Dnze[𝔉3 𝔉4,"𝔉3 𝔉4",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕋=",Factor[𝕋]},{"(Subscript[E, 1])=",Factor[WE1]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},{"(Subscript[𝔉, 3]) (Subscript[𝔉, 4])=",Factor[𝔉3 𝔉4]},"","Finite Singularities:  (Subscript[(OverBar[sn]), (2)]), (n^d), (s^((3)))",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dpo[-𝕋,"-𝕋",c,a,b]&&Dnze[WE1,"(Subscript[E, 1])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dnze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dze[𝔉2,"(Subscript[𝔉, 2])",c,a,b]&&Dze[𝔉3 𝔉4,"𝔉3 𝔉4",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕋=",Factor[𝕋]},{"(Subscript[E, 1])=",Factor[WE1]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},{"(Subscript[𝔉, 3]) (Subscript[𝔉, 4])=",Factor[𝔉3 𝔉4]},"","Finite Singularities:  (Subscript[(OverBar[sn]), (2)]), (n^d), $",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dpo[-𝕋,"-𝕋",c,a,b]&&Dze[WE1,"(Subscript[E, 1])",c,a,b]&&Dpo[-WW2,"-(Subscript[W, 2])",c,a,b]&&Dnze[𝔗2,"(Subscript[𝔗, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕋=",Factor[𝕋]},{"(Subscript[E, 1])=",Factor[WE1]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[𝔗, 2])=",Factor[𝔗2]},"","Finite Singularities:  (Subscript[(OverHat[cp]), (2)]), s, f",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dpo[-𝕋,"-𝕋",c,a,b]&&Dze[WE1,"(Subscript[E, 1])",c,a,b]&&Dpo[-WW2,"-(Subscript[W, 2])",c,a,b]&&Dze[𝔗2,"(Subscript[𝔗, 2])",c,a,b]&&Dnze[𝔗1,"(Subscript[𝔗, 1])",c,a,b]&&Dpo[-ℌ,"-ℌ",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕋=",Factor[𝕋]},{"(Subscript[E, 1])=",Factor[WE1]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[𝔗, 2])=",Factor[𝔗2]},{"(Subscript[𝔗, 1])=",Factor[1]},{"ℌ=",Factor[ℌ]},"","Finite Singularities:  (Subscript[(OverHat[cp]), (2)]), s, (f^((1)))",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dpo[-𝕋,"-𝕋",c,a,b]&&Dze[WE1,"(Subscript[E, 1])",c,a,b]&&Dpo[-WW2,"-(Subscript[W, 2])",c,a,b]&&Dze[𝔗2,"(Subscript[𝔗, 2])",c,a,b]&&Dnze[𝔗1,"(Subscript[𝔗, 1])",c,a,b]&&Dpo[ℌ,"ℌ",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕋=",Factor[𝕋]},{"(Subscript[E, 1])=",Factor[WE1]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[𝔗, 2])=",Factor[𝔗2]},{"(Subscript[𝔗, 1])=",Factor[1]},{"ℌ=",Factor[ℌ]},"","Finite Singularities:  (Subscript[(OverHat[cp]), (2)]), (s^((1))), f",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dpo[-𝕋,"-𝕋",c,a,b]&&Dze[WE1,"(Subscript[E, 1])",c,a,b]&&Dpo[-WW2,"-(Subscript[W, 2])",c,a,b]&&Dze[𝔗2,"(Subscript[𝔗, 2])",c,a,b]&&Dze[𝔗1,"(Subscript[𝔗, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕋=",Factor[𝕋]},{"(Subscript[E, 1])=",Factor[WE1]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[𝔗, 2])=",Factor[𝔗2]},{"(Subscript[𝔗, 1])=",Factor[𝔗1]},"","Finite Singularities:  (Subscript[(OverHat[cp]), (2)]), $, c",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dpo[-𝕋,"-𝕋",c,a,b]&&Dze[WE1,"(Subscript[E, 1])",c,a,b]&&Dpo[WW2,"(Subscript[W, 2])",c,a,b]&&Dnze[𝔗2,"(Subscript[𝔗, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕋=",Factor[𝕋]},{"(Subscript[E, 1])=",Factor[WE1]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[𝔗, 2])=",Factor[𝔗2]},"","Finite Singularities:  (Subscript[(OverHat[cp]), (2)]), s, n",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dpo[-𝕋,"-𝕋",c,a,b]&&Dze[WE1,"(Subscript[E, 1])",c,a,b]&&Dpo[WW2,"(Subscript[W, 2])",c,a,b]&&Dze[𝔗2,"(Subscript[𝔗, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕋=",Factor[𝕋]},{"(Subscript[E, 1])=",Factor[WE1]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[𝔗, 2])=",Factor[𝔗2]},"","Finite Singularities:  (Subscript[(OverHat[cp]), (2)]), n, (s^((1)))",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dpo[-𝕋,"-𝕋",c,a,b]&&Dze[WE1,"(Subscript[E, 1])",c,a,b]&&Dze[WW2,"(Subscript[W, 2])",c,a,b]&&Dnze[𝔗2,"(Subscript[𝔗, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕋=",Factor[𝕋]},{"(Subscript[E, 1])=",Factor[WE1]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[𝔗, 2])=",Factor[𝔗2]},"","Finite Singularities:  (Subscript[(OverHat[cp]), (2)]), s, (n^d)",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dpo[-𝕋,"-𝕋",c,a,b]&&Dze[WE1,"(Subscript[E, 1])",c,a,b]&&Dze[WW2,"(Subscript[W, 2])",c,a,b]&&Dze[𝔗2,"(Subscript[𝔗, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕋=",Factor[𝕋]},{"(Subscript[E, 1])=",Factor[WE1]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[𝔗, 2])=",Factor[𝔗2]},"","Finite Singularities:  (Subscript[(OverHat[cp]), (2)]), (n^d), (s^((1)))",""}]],

Dnze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&(Dpo[-ℝ,"-ℝ",c,a,b]||Dze[ℝ,"ℝ",c,a,b]||Dpo[-𝕊,"-𝕊",c,a,b]||Dze[𝕊,"𝕊",c,a,b]),Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"ℝ=",Factor[ℝ]},{"𝕊=",Factor[𝕊]},"","Finite Singularities:  ©, ©, ©, ©",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[-WK,"-(Overscript[K, ∼])",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dnze[𝔗4,"(Subscript[𝔗, 4])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Overscript[K, ∼]) =",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},"","Finite Singularities:  s, s, s, f",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[-WK,"-(Overscript[K, ∼])",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[-𝔗3 𝔉,"-(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Overscript[K, ∼]) =",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  s, s, s, (f^((1)))",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[-WK,"-(Overscript[K, ∼])",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[-𝔗3 𝔉,"-(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dnze[𝔉2,"(Subscript[𝔉, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Overscript[K, ∼]) =",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},"","Finite Singularities:  s, s, s, (f^((2)))",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[-WK,"-(Overscript[K, ∼])",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[-𝔗3 𝔉,"-(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dze[𝔉2,"(Subscript[𝔉, 2])",c,a,b]&&Dnze[𝔉3 𝔉4,"𝔉3 𝔉4",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Overscript[K, ∼]) =",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},{"(Subscript[𝔉, 3]) (Subscript[𝔉, 4])=",Factor[𝔉3 𝔉4]},"","Finite Singularities:  s, s, s, (f^((3)))",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[-WK,"-(Overscript[K, ∼])",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[-𝔗3 𝔉,"-(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dze[𝔉2,"(Subscript[𝔉, 2])",c,a,b]&&Dze[𝔉3 𝔉4,"𝔉3 𝔉4",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Overscript[K, ∼]) =",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},{"(Subscript[𝔉, 3]) (Subscript[𝔉, 4])=",Factor[𝔉3 𝔉4]},"","Finite Singularities:  s, s, s, c",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[-WK,"-(Overscript[K, ∼])",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[𝔗3 𝔉,"(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Overscript[K, ∼]) =",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  (s^((1))), s, s, f",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[-WK,"-(Overscript[K, ∼])",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[𝔗3 𝔉,"(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dnze[𝔉2,"(Subscript[𝔉, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Overscript[K, ∼]) =",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},"","Finite Singularities:  (s^((2))), s, s, f",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[-WK,"-(Overscript[K, ∼])",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[𝔗3 𝔉,"(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dze[𝔉2,"(Subscript[𝔉, 2])",c,a,b]&&Dnze[𝔉3 𝔉4,"𝔉3 𝔉4",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Overscript[K, ∼]) =",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},{"(Subscript[𝔉, 3]) (Subscript[𝔉, 4])=",Factor[𝔉3 𝔉4]},"","Finite Singularities:  (s^((3))), s, s, f",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[-WK,"-(Overscript[K, ∼])",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[𝔗3 𝔉,"(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dze[𝔉2,"(Subscript[𝔉, 2])",c,a,b]&&Dze[𝔉3 𝔉4,"𝔉3 𝔉4",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Overscript[K, ∼]) =",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},{"(Subscript[𝔉, 3]) (Subscript[𝔉, 4])=",Factor[𝔉3 𝔉4]},"","Finite Singularities:  $, s, s, f",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[-WK,"-(Overscript[K, ∼])",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dpo[-𝔗2,"-𝔗2",c,a,b]&&Dpo[-𝔅,"-𝔅",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Overscript[K, ∼]) =",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔗, 2])=",Factor[𝔗2]},{"𝔅=",Factor[𝔅]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  (s^((1))), (s^((1))), s, f",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[-WK,"-(Overscript[K, ∼])",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dpo[𝔗2,"(Subscript[𝔗, 2])",c,a,b]&&Dpo[-𝔅,"-𝔅",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Overscript[K, ∼]) =",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔗, 2])=",Factor[𝔗2]},{"𝔅=",Factor[𝔅]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  (s^((1))), s, s, (f^((1)))",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[-WK,"-(Overscript[K, ∼])",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dpo[-𝔗2,"-𝔗2",c,a,b]&&Dpo[-𝔅,"-𝔅",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Overscript[K, ∼]) =",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔗, 2])=",Factor[𝔗2]},{"𝔅=",Factor[𝔅]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  $, $, s, f",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[-WK,"-(Overscript[K, ∼])",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dpo[𝔗2,"(Subscript[𝔗, 2])",c,a,b]&&Dpo[-𝔅,"-𝔅",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Overscript[K, ∼]) =",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔗, 2])=",Factor[𝔗2]},{"𝔅=",Factor[𝔅]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  $, s, s, c",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[-WK,"-(Overscript[K, ∼])",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dpo[-𝔗2,"-𝔗2",c,a,b]&&Dze[𝔅,"𝔅",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Overscript[K, ∼]) =",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔗, 2])=",Factor[𝔗2]},{"𝔅=",Factor[𝔅]},"","Finite Singularities:  (s^((1))), (s^((1))), s, f",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[-WK,"-(Overscript[K, ∼])",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dze[𝔗2,"(Subscript[𝔗, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Overscript[K, ∼]) =",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔗, 2])=",Factor[𝔗2]},"","Finite Singularities:  $, $, $, c",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[-WK,"-(Overscript[K, ∼])",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dnze[𝔗4,"(Subscript[𝔗, 4])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Overscript[K, ∼]) =",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},"","Finite Singularities:  s, s, s, n",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[-WK,"-(Overscript[K, ∼])",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[𝔗3 𝔉,"(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Overscript[K, ∼]) =",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  (s^((1))), s, s, n",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[-WK,"-(Overscript[K, ∼])",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[𝔗3 𝔉,"(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dnze[𝔉2,"(Subscript[𝔉, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Overscript[K, ∼]) =",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},"","Finite Singularities:  (s^((2))), s, s, n",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[-WK,"-(Overscript[K, ∼])",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[𝔗3 𝔉,"(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dze[𝔉2,"(Subscript[𝔉, 2])",c,a,b]&&Dnze[𝔉3 𝔉4,"𝔉3 𝔉4",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Overscript[K, ∼]) =",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},{"(Subscript[𝔉, 3]) (Subscript[𝔉, 4])=",Factor[𝔉3 𝔉4]},"","Finite Singularities:  (s^((3))), s, s, n",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[-WK,"-(Overscript[K, ∼])",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[𝔗3 𝔉,"(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dze[𝔉2,"(Subscript[𝔉, 2])",c,a,b]&&Dze[𝔉3 𝔉4,"𝔉3 𝔉4",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Overscript[K, ∼]) =",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},{"(Subscript[𝔉, 3]) (Subscript[𝔉, 4])=",Factor[𝔉3 𝔉4]},"","Finite Singularities:  $, s, s, n",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[-WK,"-(Overscript[K, ∼])",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dpo[-𝔅,"-𝔅",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Overscript[K, ∼]) =",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"𝔅=",Factor[𝔅]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  (s^((1))), (s^((1))), s, n",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[-WK,"-(Overscript[K, ∼])",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dpo[-𝔅,"-𝔅",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Overscript[K, ∼]) =",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"𝔅=",Factor[𝔅]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  $, $, s, n",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[-WK,"-(Overscript[K, ∼])",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dze[𝔅,"𝔅",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Overscript[K, ∼]) =",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"𝔅=",Factor[𝔅]},"","Finite Singularities:  (s^((1))), (s^((1))), s, n",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[-WK,"-(Overscript[K, ∼])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dnze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dnze[𝔘3,"(Subscript[𝔘, 3])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Overscript[K, ∼]) =",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[U, 3])=",Factor[𝔘3]},"","Finite Singularities:  s, s, s, (n^d)",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[-WK,"-(Overscript[K, ∼])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dnze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔘3,"(Subscript[𝔘, 3])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Overscript[K, ∼]) =",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[U, 3])=",Factor[𝔘3]},"","Finite Singularities:  s, s, s, (SuperStar[n])",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[-WK,"-(Overscript[K, ∼])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[𝔗3 𝔉,"(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Overscript[K, ∼]) =",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  (s^((1))), s, s, (n^d)",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[-WK,"-(Overscript[K, ∼])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[𝔗3 𝔉,"(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dnze[𝔉2,"(Subscript[𝔉, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Overscript[K, ∼]) =",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},"","Finite Singularities:  (s^((2))), s, s, (n^d)",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[-WK,"-(Overscript[K, ∼])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[𝔗3 𝔉,"(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dze[𝔉2,"(Subscript[𝔉, 2])",c,a,b]&&Dnze[𝔉3 𝔉4,"𝔉3 𝔉4",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Overscript[K, ∼]) =",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},{"(Subscript[𝔉, 3]) (Subscript[𝔉, 4])=",Factor[𝔉3 𝔉4]},"","Finite Singularities:  (s^((3))), s, s, (n^d)",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[-WK,"-(Overscript[K, ∼])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[𝔗3 𝔉,"(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dze[𝔉2,"(Subscript[𝔉, 2])",c,a,b]&&Dze[𝔉3 𝔉4,"𝔉3 𝔉4",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Overscript[K, ∼]) =",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},{"(Subscript[𝔉, 3]) (Subscript[𝔉, 4])=",Factor[𝔉3 𝔉4]},"","Finite Singularities:  $, s, s, (n^d)",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[-WK,"-(Overscript[K, ∼])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dpo[-𝔅,"-𝔅",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Overscript[K, ∼]) =",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"𝔅=",Factor[𝔅]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  (s^((1))), (s^((1))), s, (n^d)",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[-WK,"-(Overscript[K, ∼])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dpo[-𝔅,"-𝔅",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Overscript[K, ∼]) =",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"𝔅=",Factor[𝔅]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  $, $, s, (n^d)",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[-WK,"-(Overscript[K, ∼])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dze[𝔅,"𝔅",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Overscript[K, ∼]) =",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"𝔅=",Factor[𝔅]},"","Finite Singularities:  (s^((1))), (s^((1))), s, (n^d)",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dnze[𝔗4,"(Subscript[𝔗, 4])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},"","Finite Singularities:  s, n, n, f",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[-𝔗3 𝔉,"-(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Overscript[K, ∼]) =",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  s, n, n, (f^((1)))",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[-𝔗3 𝔉,"-(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dnze[𝔉2,"(Subscript[𝔉, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Overscript[K, ∼]) =",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},"","Finite Singularities:  s, n, n, (f^((2)))",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[-𝔗3 𝔉,"-(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dze[𝔉2,"(Subscript[𝔉, 2])",c,a,b]&&Dnze[𝔉3 𝔉4,"𝔉3 𝔉4",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Overscript[K, ∼]) =",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},{"(Subscript[𝔉, 3]) (Subscript[𝔉, 4])=",Factor[𝔉3 𝔉4]},"","Finite Singularities:  s, n, n, (f^((3)))",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[-𝔗3 𝔉,"-(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dze[𝔉2,"(Subscript[𝔉, 2])",c,a,b]&&Dze[𝔉3 𝔉4,"𝔉3 𝔉4",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Overscript[K, ∼]) =",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},{"(Subscript[𝔉, 3]) (Subscript[𝔉, 4])=",Factor[𝔉3 𝔉4]},"","Finite Singularities:  s, n, n, c",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[𝔗3 𝔉,"(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Overscript[K, ∼]) =",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  (s^((1))), n, n, f",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[𝔗3 𝔉,"(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dnze[𝔉2,"(Subscript[𝔉, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Overscript[K, ∼]) =",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},"","Finite Singularities:  (s^((2))), n, n, f",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[𝔗3 𝔉,"(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dze[𝔉2,"(Subscript[𝔉, 2])",c,a,b]&&Dnze[𝔉3 𝔉4,"𝔉3 𝔉4",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Overscript[K, ∼]) =",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},{"(Subscript[𝔉, 3]) (Subscript[𝔉, 4])=",Factor[𝔉3 𝔉4]},"","Finite Singularities:  (s^((3))), n, n, f",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[𝔗3 𝔉,"(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dze[𝔉2,"(Subscript[𝔉, 2])",c,a,b]&&Dze[𝔉3 𝔉4,"𝔉3 𝔉4",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Overscript[K, ∼]) =",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},{"(Subscript[𝔉, 3]) (Subscript[𝔉, 4])=",Factor[𝔉3 𝔉4]},"","Finite Singularities:  $, n, n, f",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dnze[𝔗2,"(Subscript[𝔗, 2])",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Overscript[K, ∼]) =",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔗, 2])=",Factor[𝔗2]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  (s^((1))), n, n, (f^((1)))",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dnze[𝔗2,"(Subscript[𝔗, 2])",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Overscript[K, ∼]) =",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔗, 2])=",Factor[𝔗2]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  $, n, n, c",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[-WW2,"-(Subscript[W, 2])",c,a,b]&&Dnze[𝔗4,"(Subscript[𝔗, 4])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Overscript[K, ∼]) =",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},"","Finite Singularities:  s, n, f, f",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[-WW2,"-(Subscript[W, 2])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[-𝔗3 𝔉,"-(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Overscript[K, ∼]) =",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  s, n, f, (f^((1)))",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[-WW2,"-(Subscript[W, 2])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[-𝔗3 𝔉,"-(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dnze[𝔉2,"(Subscript[𝔉, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Overscript[K, ∼]) =",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},"","Finite Singularities:  s, n, f, (f^((2)))",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[-WW2,"-(Subscript[W, 2])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[-𝔗3 𝔉,"-(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dze[𝔉2,"(Subscript[𝔉, 2])",c,a,b]&&Dnze[𝔉3 𝔉4,"𝔉3 𝔉4",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Overscript[K, ∼]) =",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},{"(Subscript[𝔉, 3]) (Subscript[𝔉, 4])=",Factor[𝔉3 𝔉4]},"","Finite Singularities:  s, n, f, (f^((3)))",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[-WW2,"-(Subscript[W, 2])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[-𝔗3 𝔉,"-(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dze[𝔉2,"(Subscript[𝔉, 2])",c,a,b]&&Dze[𝔉3 𝔉4,"𝔉3 𝔉4",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Overscript[K, ∼]) =",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},{"(Subscript[𝔉, 3]) (Subscript[𝔉, 4])=",Factor[𝔉3 𝔉4]},"","Finite Singularities:  s, n, f, c",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[-WW2,"-(Subscript[W, 2])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[𝔗3 𝔉,"(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Overscript[K, ∼]) =",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  (s^((1))), n, f, f",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[-WW2,"-(Subscript[W, 2])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[𝔗3 𝔉,"(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dnze[𝔉2,"(Subscript[𝔉, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Overscript[K, ∼]) =",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},"","Finite Singularities:  (s^((2))), n, f, f",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[-WW2,"-(Subscript[W, 2])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[𝔗3 𝔉,"(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dze[𝔉2,"(Subscript[𝔉, 2])",c,a,b]&&Dnze[𝔉3 𝔉4,"𝔉3 𝔉4",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Overscript[K, ∼]) =",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},{"(Subscript[𝔉, 3]) (Subscript[𝔉, 4])=",Factor[𝔉3 𝔉4]},"","Finite Singularities:  (s^((3))), n, f, f",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[-WW2,"-(Subscript[W, 2])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[𝔗3 𝔉,"(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dze[𝔉2,"(Subscript[𝔉, 2])",c,a,b]&&Dze[𝔉3 𝔉4,"𝔉3 𝔉4",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Overscript[K, ∼]) =",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},{"(Subscript[𝔉, 3]) (Subscript[𝔉, 4])=",Factor[𝔉3 𝔉4]},"","Finite Singularities:  $, n, f, f",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[-WW2,"-(Subscript[W, 2])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dpo[-𝔗2,"-𝔗2",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Overscript[K, ∼]) =",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔗, 2])=",Factor[𝔗2]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  s, n, (f^((1))), (f^((1)))",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[-WW2,"-(Subscript[W, 2])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dpo[𝔗2,"(Subscript[𝔗, 2])",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Overscript[K, ∼]) =",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔗, 2])=",Factor[𝔗2]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  (s^((1))), n, f, (f^((1)))",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[-WW2,"-(Subscript[W, 2])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dpo[-𝔗2,"-𝔗2",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Overscript[K, ∼]) =",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔗, 2])=",Factor[𝔗2]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  s, n, c, c",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[-WW2,"-(Subscript[W, 2])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dpo[𝔗2,"(Subscript[𝔗, 2])",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Overscript[K, ∼]) =",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔗, 2])=",Factor[𝔗2]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  $, n, f, c",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[WW2,"(Subscript[W, 2])",c,a,b]&&Dpo[-WW1 WW3,"-W1 W3",c,a,b]&&Dnze[𝔗4,"(Subscript[𝔗, 4])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Overscript[K, ∼]) =",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[W, 1]) (Subscript[W, 3])=",Factor[WW1 WW3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},"","Finite Singularities:  s, n, f, f",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[WW2,"(Subscript[W, 2])",c,a,b]&&Dpo[-WW1 WW3,"-W1 W3",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[-𝔗3 𝔉,"-(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Overscript[K, ∼]) =",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[W, 1]) (Subscript[W, 3])=",Factor[WW1 WW3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  s, n, f, (f^((1)))",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[WW2,"(Subscript[W, 2])",c,a,b]&&Dpo[-WW1 WW3,"-W1 W3",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[-𝔗3 𝔉,"-(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dnze[𝔉2,"(Subscript[𝔉, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Overscript[K, ∼]) =",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[W, 1]) (Subscript[W, 3])=",Factor[WW1 WW3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},"","Finite Singularities:  s, n, f, (f^((2)))",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[WW2,"(Subscript[W, 2])",c,a,b]&&Dpo[-WW1 WW3,"-W1 W3",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[-𝔗3 𝔉,"-(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dze[𝔉2,"(Subscript[𝔉, 2])",c,a,b]&&Dnze[𝔉3 𝔉4,"𝔉3 𝔉4",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Overscript[K, ∼]) =",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[W, 1]) (Subscript[W, 3])=",Factor[WW1 WW3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},{"(Subscript[𝔉, 3]) (Subscript[𝔉, 4])=",Factor[𝔉3 𝔉4]},"","Finite Singularities:  s, n, f, (f^((3)))",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[WW2,"(Subscript[W, 2])",c,a,b]&&Dpo[-WW1 WW3,"-W1 W3",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[-𝔗3 𝔉,"-(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dze[𝔉2,"(Subscript[𝔉, 2])",c,a,b]&&Dze[𝔉3 𝔉4,"𝔉3 𝔉4",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Overscript[K, ∼]) =",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[W, 1]) (Subscript[W, 3])=",Factor[WW1 WW3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},{"(Subscript[𝔉, 3]) (Subscript[𝔉, 4])=",Factor[𝔉3 𝔉4]},"","Finite Singularities:  s, n, f, c",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[WW2,"(Subscript[W, 2])",c,a,b]&&Dpo[-WW1 WW3,"-W1 W3",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[𝔗3 𝔉,"(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Overscript[K, ∼]) =",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[W, 1]) (Subscript[W, 3])=",Factor[WW1 WW3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  (s^((1))), n, f, f",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[WW2,"(Subscript[W, 2])",c,a,b]&&Dpo[-WW1 WW3,"-W1 W3",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[𝔗3 𝔉,"(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dnze[𝔉2,"(Subscript[𝔉, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Overscript[K, ∼]) =",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[W, 1]) (Subscript[W, 3])=",Factor[WW1 WW3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},"","Finite Singularities:  (s^((2))), n, f, f",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[WW2,"(Subscript[W, 2])",c,a,b]&&Dpo[-WW1 WW3,"-W1 W3",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[𝔗3 𝔉,"(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dze[𝔉2,"(Subscript[𝔉, 2])",c,a,b]&&Dnze[𝔉3 𝔉4,"𝔉3 𝔉4",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Overscript[K, ∼]) =",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[W, 1]) (Subscript[W, 3])=",Factor[WW1 WW3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},{"(Subscript[𝔉, 3]) (Subscript[𝔉, 4])=",Factor[𝔉3 𝔉4]},"","Finite Singularities:  (s^((3))), n, f, f",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[WW2,"(Subscript[W, 2])",c,a,b]&&Dpo[-WW1 WW3,"-W1 W3",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[𝔗3 𝔉,"(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dze[𝔉2,"(Subscript[𝔉, 2])",c,a,b]&&Dze[𝔉3 𝔉4,"𝔉3 𝔉4",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Overscript[K, ∼]) =",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[W, 1]) (Subscript[W, 3])=",Factor[WW1 WW3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},{"(Subscript[𝔉, 3]) (Subscript[𝔉, 4])=",Factor[𝔉3 𝔉4]},"","Finite Singularities:  $, n, f, f",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[WW2,"(Subscript[W, 2])",c,a,b]&&Dpo[-WW1 WW3,"-W1 W3",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dpo[-𝔗2,"-𝔗2",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Overscript[K, ∼]) =",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[W, 1]) (Subscript[W, 3])=",Factor[WW1 WW3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔗, 2])=",Factor[𝔗2]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  s, n, (f^((1))), (f^((1)))",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[WW2,"(Subscript[W, 2])",c,a,b]&&Dpo[-WW1 WW3,"-W1 W3",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dpo[𝔗2,"(Subscript[𝔗, 2])",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Overscript[K, ∼]) =",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[W, 1]) (Subscript[W, 3])=",Factor[WW1 WW3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔗, 2])=",Factor[𝔗2]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  (s^((1))), n, f, (f^((1)))",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[WW2,"(Subscript[W, 2])",c,a,b]&&Dpo[-WW1 WW3,"-W1 W3",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dpo[-𝔗2,"-𝔗2",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Overscript[K, ∼]) =",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[W, 1]) (Subscript[W, 3])=",Factor[WW1 WW3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔗, 2])=",Factor[𝔗2]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  s, n, c, c",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[WW2,"(Subscript[W, 2])",c,a,b]&&Dpo[-WW1 WW3,"-W1 W3",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dpo[𝔗2,"(Subscript[𝔗, 2])",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Overscript[K, ∼]) =",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[W, 1]) (Subscript[W, 3])=",Factor[WW1 WW3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔗, 2])=",Factor[𝔗2]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  $, n, f, c",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[WW2,"(Subscript[W, 2])",c,a,b]&&Dpo[WW1 WW3,"W1 W3",c,a,b]&&Dnze[𝔗4,"(Subscript[𝔗, 4])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Overscript[K, ∼]) =",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[W, 1]) (Subscript[W, 3])=",Factor[WW1 WW3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},"","Finite Singularities:  s, n, n, n",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[WW2,"(Subscript[W, 2])",c,a,b]&&Dpo[WW1 WW3,"W1 W3",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Overscript[K, ∼]) =",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[W, 1]) (Subscript[W, 3])=",Factor[WW1 WW3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  (s^((1))), n, n, n",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[WW2,"(Subscript[W, 2])",c,a,b]&&Dpo[WW1 WW3,"W1 W3",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dnze[𝔉2,"(Subscript[𝔉, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Overscript[K, ∼]) =",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[W, 1]) (Subscript[W, 3])=",Factor[WW1 WW3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},"","Finite Singularities:  (s^((2))), n, n, n",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[WW2,"(Subscript[W, 2])",c,a,b]&&Dpo[WW1 WW3,"W1 W3",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dze[𝔉2,"(Subscript[𝔉, 2])",c,a,b]&&Dnze[𝔉3 𝔉4,"𝔉3 𝔉4",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Overscript[K, ∼]) =",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[W, 1]) (Subscript[W, 3])=",Factor[WW1 WW3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},{"(Subscript[𝔉, 3]) (Subscript[𝔉, 4])=",Factor[𝔉3 𝔉4]},"","Finite Singularities:  (s^((3))), n, n, n",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[WW2,"(Subscript[W, 2])",c,a,b]&&Dpo[WW1 WW3,"W1 W3",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dze[𝔉2,"(Subscript[𝔉, 2])",c,a,b]&&Dze[𝔉3 𝔉4,"𝔉3 𝔉4",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Overscript[K, ∼]) =",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[W, 1]) (Subscript[W, 3])=",Factor[WW1 WW3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},{"(Subscript[𝔉, 3]) (Subscript[𝔉, 4])=",Factor[𝔉3 𝔉4]},"","Finite Singularities:  $, n, n, n",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[-WW3,"-(Subscript[W, 3])",c,a,b]&&Dnze[𝔗4,"(Subscript[𝔗, 4])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Overscript[K, ∼]) =",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},"","Finite Singularities:  s, n, (n^d), f",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[-WW3,"-(Subscript[W, 3])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[-𝔗3 𝔉,"-(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Overscript[K, ∼]) =",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  s, n, (n^d), (f^((1)))",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[-WW3,"-(Subscript[W, 3])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[-𝔗3 𝔉,"-(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dnze[𝔉2,"(Subscript[𝔉, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Overscript[K, ∼]) =",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},"","Finite Singularities:  s, n, (n^d), (f^((2)))",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[-WW3,"-(Subscript[W, 3])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[-𝔗3 𝔉,"-(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dze[𝔉2,"(Subscript[𝔉, 2])",c,a,b]&&Dnze[𝔉3 𝔉4,"𝔉3 𝔉4",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Overscript[K, ∼]) =",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},{"(Subscript[𝔉, 3]) (Subscript[𝔉, 4])=",Factor[𝔉3 𝔉4]},"","Finite Singularities:  s, n, (n^d), (f^((3)))",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[-WW3,"-(Subscript[W, 3])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[-𝔗3 𝔉,"-(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dze[𝔉2,"(Subscript[𝔉, 2])",c,a,b]&&Dze[𝔉3 𝔉4,"𝔉3 𝔉4",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Overscript[K, ∼]) =",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},{"(Subscript[𝔉, 3]) (Subscript[𝔉, 4])=",Factor[𝔉3 𝔉4]},"","Finite Singularities:  s, n, (n^d), c",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[-WW3,"-(Subscript[W, 3])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[𝔗3 𝔉,"(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Overscript[K, ∼]) =",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  (s^((1))), n, (n^d), f",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[-WW3,"-(Subscript[W, 3])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[𝔗3 𝔉,"(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dnze[𝔉2,"(Subscript[𝔉, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Overscript[K, ∼]) =",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},"","Finite Singularities:  (s^((2))), n, (n^d), f",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[-WW3,"-(Subscript[W, 3])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[𝔗3 𝔉,"(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dze[𝔉2,"(Subscript[𝔉, 2])",c,a,b]&&Dnze[𝔉3 𝔉4,"𝔉3 𝔉4",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Overscript[K, ∼]) =",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},{"(Subscript[𝔉, 3]) (Subscript[𝔉, 4])=",Factor[𝔉3 𝔉4]},"","Finite Singularities:  (s^((3))), n, (n^d), f",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[-WW3,"-(Subscript[W, 3])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[𝔗3 𝔉,"(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dze[𝔉2,"(Subscript[𝔉, 2])",c,a,b]&&Dze[𝔉3 𝔉4,"𝔉3 𝔉4",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Overscript[K, ∼]) =",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},{"(Subscript[𝔉, 3]) (Subscript[𝔉, 4])=",Factor[𝔉3 𝔉4]},"","Finite Singularities:  $, n, (n^d), f",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[-WW3,"-(Subscript[W, 3])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dnze[𝔗2,"(Subscript[𝔗, 2])",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Overscript[K, ∼]) =",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔗, 2])=",Factor[𝔗2]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  (s^((1))), n, (n^d), (f^((1)))",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[-WW3,"-(Subscript[W, 3])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dnze[𝔗2,"(Subscript[𝔗, 2])",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Overscript[K, ∼]) =",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔗, 2])=",Factor[𝔗2]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  $, n, (n^d), c",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[WW3,"(Subscript[W, 3])",c,a,b]&&Dnze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dnze[𝔘3,"(Subscript[𝔘, 3])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Overscript[K, ∼]) =",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔘, 3])=",Factor[𝔘3]},"","Finite Singularities:  s, n, n, (n^d)",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[WW3,"(Subscript[W, 3])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dnze[𝔘3,"(Subscript[𝔘, 3])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Overscript[K, ∼]) =",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔘, 3])=",Factor[𝔘3]},"","Finite Singularities:  (s^((1))), n, n, (n^d)",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[WW3,"(Subscript[W, 3])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dnze[𝔉2,"(Subscript[𝔉, 2])",c,a,b]&&Dnze[𝔘3,"(Subscript[𝔘, 3])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Overscript[K, ∼]) =",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},{"(Subscript[𝔘, 3])=",Factor[𝔘3]},"","Finite Singularities:  (s^((2))), n, n, (n^d)",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[WW3,"(Subscript[W, 3])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dze[𝔉2,"(Subscript[𝔉, 2])",c,a,b]&&Dnze[𝔉3 𝔉4,"𝔉3 𝔉4",c,a,b]&&Dnze[𝔘3,"(Subscript[𝔘, 3])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Overscript[K, ∼]) =",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},{"(Subscript[𝔉, 3]) (Subscript[𝔉, 4])=",Factor[𝔉3 𝔉4]},{"(Subscript[𝔘, 3])=",Factor[𝔘3]},"","Finite Singularities:  (s^((3))), n, n, (n^d)",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[WW3,"(Subscript[W, 3])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dze[𝔉2,"(Subscript[𝔉, 2])",c,a,b]&&Dze[𝔉3 𝔉4,"𝔉3 𝔉4",c,a,b]&&Dnze[𝔘3,"(Subscript[𝔘, 3])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Overscript[K, ∼]) =",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},{"(Subscript[𝔉, 3]) (Subscript[𝔉, 4])=",Factor[𝔉3 𝔉4]},{"(Subscript[𝔘, 3])=",Factor[𝔘3]},"","Finite Singularities:  $, n, n, (n^d)",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[WW3,"(Subscript[W, 3])",c,a,b]&&Dnze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔘3,"(Subscript[𝔘, 3])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Overscript[K, ∼]) =",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔘, 3])=",Factor[𝔘3]},"","Finite Singularities:  s, n, n, (SuperStar[n])",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[WW3,"(Subscript[W, 3])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dze[𝔘3,"(Subscript[𝔘, 3])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Overscript[K, ∼]) =",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔘, 3])=",Factor[𝔘3]},"","Finite Singularities:  (s^((1))), n, n, (SuperStar[n])",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[WW3,"(Subscript[W, 3])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dnze[𝔉2,"(Subscript[𝔉, 2])",c,a,b]&&Dze[𝔘3,"(Subscript[𝔘, 3])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Overscript[K, ∼]) =",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},{"(Subscript[𝔘, 3])=",Factor[𝔘3]},"","Finite Singularities:  (s^((2))), n, n, (SuperStar[n])",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[WW3,"(Subscript[W, 3])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dze[𝔉2,"(Subscript[𝔉, 2])",c,a,b]&&Dnze[𝔉3 𝔉4,"𝔉3 𝔉4",c,a,b]&&Dze[𝔘3,"(Subscript[𝔘, 3])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Overscript[K, ∼]) =",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},{"(Subscript[𝔉, 3]) (Subscript[𝔉, 4])=",Factor[𝔉3 𝔉4]},{"(Subscript[𝔘, 3])=",Factor[𝔘3]},"","Finite Singularities:  (s^((3))), n, n, (SuperStar[n])",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[WW3,"(Subscript[W, 3])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dze[𝔉2,"(Subscript[𝔉, 2])",c,a,b]&&Dze[𝔉3 𝔉4,"𝔉3 𝔉4",c,a,b]&&Dze[𝔘3,"(Subscript[𝔘, 3])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Overscript[K, ∼]) =",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},{"(Subscript[𝔉, 3]) (Subscript[𝔉, 4])=",Factor[𝔉3 𝔉4]},{"(Subscript[𝔘, 3])=",Factor[𝔘3]},"","Finite Singularities:  $, n, n, (SuperStar[n])",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[WW3,"(Subscript[W, 3])",c,a,b]&&Dpo[-WW2,"-(Subscript[W, 2])",c,a,b]&&Dnze[𝔗4,"(Subscript[𝔗, 4])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Overscript[K, ∼]) =",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},"","Finite Singularities:  s, (n^d), (n^d), f",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[WW3,"(Subscript[W, 3])",c,a,b]&&Dpo[-WW2,"-(Subscript[W, 2])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[-𝔗3 𝔉,"-(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Overscript[K, ∼]) =",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  s, (n^d), (n^d), (f^((1)))",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[WW3,"(Subscript[W, 3])",c,a,b]&&Dpo[-WW2,"-(Subscript[W, 2])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[-𝔗3 𝔉,"-(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dnze[𝔉2,"(Subscript[𝔉, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Overscript[K, ∼]) =",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},"","Finite Singularities:  s, (n^d), (n^d), (f^((2)))",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[WW3,"(Subscript[W, 3])",c,a,b]&&Dpo[-WW2,"-(Subscript[W, 2])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[-𝔗3 𝔉,"-(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dze[𝔉2,"(Subscript[𝔉, 2])",c,a,b]&&Dnze[𝔉3 𝔉4,"𝔉3 𝔉4",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Overscript[K, ∼]) =",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},{"(Subscript[𝔉, 3]) (Subscript[𝔉, 4])=",Factor[𝔉3 𝔉4]},"","Finite Singularities:  s, (n^d), (n^d), (f^((3)))",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[WW3,"(Subscript[W, 3])",c,a,b]&&Dpo[-WW2,"-(Subscript[W, 2])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[-𝔗3 𝔉,"-(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dze[𝔉2,"(Subscript[𝔉, 2])",c,a,b]&&Dze[𝔉3 𝔉4,"𝔉3 𝔉4",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Overscript[K, ∼]) =",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},{"(Subscript[𝔉, 3]) (Subscript[𝔉, 4])=",Factor[𝔉3 𝔉4]},"","Finite Singularities:  s, (n^d), (n^d), c",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[WW3,"(Subscript[W, 3])",c,a,b]&&Dpo[-WW2,"-(Subscript[W, 2])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[𝔗3 𝔉,"(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Overscript[K, ∼]) =",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  (s^((1))), (n^d), (n^d), f",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[WW3,"(Subscript[W, 3])",c,a,b]&&Dpo[-WW2,"-(Subscript[W, 2])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[𝔗3 𝔉,"(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dnze[𝔉2,"(Subscript[𝔉, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Overscript[K, ∼]) =",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},"","Finite Singularities:  (s^((2))), (n^d), (n^d), f",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[WW3,"(Subscript[W, 3])",c,a,b]&&Dpo[-WW2,"-(Subscript[W, 2])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[𝔗3 𝔉,"(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dze[𝔉2,"(Subscript[𝔉, 2])",c,a,b]&&Dnze[𝔉3 𝔉4,"𝔉3 𝔉4",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Overscript[K, ∼]) =",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},{"(Subscript[𝔉, 3]) (Subscript[𝔉, 4])=",Factor[𝔉3 𝔉4]},"","Finite Singularities:  (s^((3))), (n^d), (n^d), f",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[WW3,"(Subscript[W, 3])",c,a,b]&&Dpo[-WW2,"-(Subscript[W, 2])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[𝔗3 𝔉,"(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dze[𝔉2,"(Subscript[𝔉, 2])",c,a,b]&&Dze[𝔉3 𝔉4,"𝔉3 𝔉4",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Overscript[K, ∼]) =",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},{"(Subscript[𝔉, 3]) (Subscript[𝔉, 4])=",Factor[𝔉3 𝔉4]},"","Finite Singularities:  $, (n^d), (n^d), f",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[WW3,"(Subscript[W, 3])",c,a,b]&&Dpo[-WW2,"-(Subscript[W, 2])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dnze[𝔗2,"(Subscript[𝔗, 2])",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Overscript[K, ∼]) =",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔗, 2])=",Factor[𝔗2]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  (s^((1))), (n^d), (n^d), (f^((1)))",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[WW3,"(Subscript[W, 3])",c,a,b]&&Dpo[-WW2,"-(Subscript[W, 2])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dnze[𝔗2,"(Subscript[𝔗, 2])",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Overscript[K, ∼]) =",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔗, 2])=",Factor[𝔗2]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  $, (n^d), (n^d), c",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[WW3,"(Subscript[W, 3])",c,a,b]&&Dpo[WW2,"(Subscript[W, 2])",c,a,b]&&Dnze[𝔗4,"(Subscript[𝔗, 4])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Overscript[K, ∼]) =",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},"","Finite Singularities:  s, n, (n^d), (n^d)",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[WW3,"(Subscript[W, 3])",c,a,b]&&Dpo[WW2,"(Subscript[W, 2])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Overscript[K, ∼]) =",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  (s^((1))), n, (n^d), (n^d)",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[WW3,"(Subscript[W, 3])",c,a,b]&&Dpo[WW2,"(Subscript[W, 2])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dnze[𝔉2,"(Subscript[𝔉, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Overscript[K, ∼]) =",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},"","Finite Singularities:  (s^((2))), n, (n^d), (n^d)",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[WW3,"(Subscript[W, 3])",c,a,b]&&Dpo[WW2,"(Subscript[W, 2])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dze[𝔉2,"(Subscript[𝔉, 2])",c,a,b]&&Dnze[𝔉3 𝔉4,"𝔉3 𝔉4",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Overscript[K, ∼]) =",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},{"(Subscript[𝔉, 3]) (Subscript[𝔉, 4])=",Factor[𝔉3 𝔉4]},"","Finite Singularities:  (s^((3))), n, (n^d), (n^d)",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[WW3,"(Subscript[W, 3])",c,a,b]&&Dpo[WW2,"(Subscript[W, 2])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dze[𝔉2,"(Subscript[𝔉, 2])",c,a,b]&&Dze[𝔉3 𝔉4,"𝔉3 𝔉4",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Overscript[K, ∼]) =",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},{"(Subscript[𝔉, 3]) (Subscript[𝔉, 4])=",Factor[𝔉3 𝔉4]},"","Finite Singularities:  $, n, (n^d), (n^d)",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[WW3,"(Subscript[W, 3])",c,a,b]&&Dze[WW2,"(Subscript[W, 2])",c,a,b]&&Dnze[𝔗4,"(Subscript[𝔗, 4])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Overscript[K, ∼]) =",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},"","Finite Singularities:  s, (n^d), (n^d), (n^d)",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dnze[𝔗4,"(Subscript[𝔗, 4])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},"","Finite Singularities:  s, s, n, f",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[-𝔗3 𝔉,"-(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  s, s, n, (f^((1)))",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[-𝔗3 𝔉,"-(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dnze[𝔉2,"(Subscript[𝔉, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},"","Finite Singularities:  s, s, n, (f^((2)))",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[-𝔗3 𝔉,"-(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dze[𝔉2,"(Subscript[𝔉, 2])",c,a,b]&&Dnze[𝔉3 𝔉4,"𝔉3 𝔉4",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},{"(Subscript[𝔉, 3]) (Subscript[𝔉, 4])=",Factor[𝔉3 𝔉4]},"","Finite Singularities:  s, s, n, (f^((3)))",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[-𝔗3 𝔉,"-(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dze[𝔉2,"(Subscript[𝔉, 2])",c,a,b]&&Dze[𝔉3 𝔉4,"𝔉3 𝔉4",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},{"(Subscript[𝔉, 3]) (Subscript[𝔉, 4])=",Factor[𝔉3 𝔉4]},"","Finite Singularities:  s, s, n, c",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[𝔗3 𝔉,"(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  (s^((1))), s, n, f",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[𝔗3 𝔉,"(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dnze[𝔉2,"(Subscript[𝔉, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},"","Finite Singularities:  (s^((2))), s, n, f",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[𝔗3 𝔉,"(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dze[𝔉2,"(Subscript[𝔉, 2])",c,a,b]&&Dnze[𝔉3 𝔉4,"𝔉3 𝔉4",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},{"(Subscript[𝔉, 3]) (Subscript[𝔉, 4])=",Factor[𝔉3 𝔉4]},"","Finite Singularities:  (s^((3))), s, n, f",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[𝔗3 𝔉,"(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dze[𝔉2,"(Subscript[𝔉, 2])",c,a,b]&&Dze[𝔉3 𝔉4,"𝔉3 𝔉4",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},{"(Subscript[𝔉, 3]) (Subscript[𝔉, 4])=",Factor[𝔉3 𝔉4]},"","Finite Singularities:  $, s, n, f",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dpo[-𝔗2,"-𝔗2",c,a,b]&&Dpo[-𝔅,"-𝔅",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔗, 2])=",Factor[𝔗2]},{"𝔅=",Factor[𝔅]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  (s^((1))), (s^((1))), n, f",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dpo[𝔗2,"(Subscript[𝔗, 2])",c,a,b]&&Dpo[-𝔅,"-𝔅",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔗, 2])=",Factor[𝔗2]},{"𝔅=",Factor[𝔅]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  (s^((1))), s, n, (f^((1)))",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dpo[-𝔗2,"-𝔗2",c,a,b]&&Dpo[-𝔅,"-𝔅",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔗, 2])=",Factor[𝔗2]},{"𝔅=",Factor[𝔅]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  $, $, n, f",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dpo[𝔗2,"(Subscript[𝔗, 2])",c,a,b]&&Dpo[-𝔅,"-𝔅",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔗, 2])=",Factor[𝔗2]},{"𝔅=",Factor[𝔅]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  $, s, n, c",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dpo[-𝔗2,"-𝔗2",c,a,b]&&Dze[𝔅,"𝔅",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔗, 2])=",Factor[𝔗2]},{"𝔅=",Factor[𝔅]},"","Finite Singularities:  (s^((1))), (s^((1))), n, f",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dze[𝔗2,"(Subscript[𝔗, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔗, 2])=",Factor[𝔗2]},"","Finite Singularities:  $, $, n, c",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[-WW2,"-(Subscript[W, 2])",c,a,b]&&Dnze[𝔗4,"(Subscript[𝔗, 4])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},"","Finite Singularities:  s, s, f, f",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[-WW2,"-(Subscript[W, 2])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[-𝔗3 𝔉,"-(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  s, s, f, (f^((1)))",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[-WW2,"-(Subscript[W, 2])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[-𝔗3 𝔉,"-(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dnze[𝔉2,"(Subscript[𝔉, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},"","Finite Singularities:  s, s, f, (f^((2)))",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[-WW2,"-(Subscript[W, 2])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[-𝔗3 𝔉,"-(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dze[𝔉2,"(Subscript[𝔉, 2])",c,a,b]&&Dnze[𝔉3 𝔉4,"𝔉3 𝔉4",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},{"(Subscript[𝔉, 3]) (Subscript[𝔉, 4])=",Factor[𝔉3 𝔉4]},"","Finite Singularities:  s, s, f, (f^((3)))",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[-WW2,"-(Subscript[W, 2])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[-𝔗3 𝔉,"-(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dze[𝔉2,"(Subscript[𝔉, 2])",c,a,b]&&Dze[𝔉3 𝔉4,"𝔉3 𝔉4",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},{"(Subscript[𝔉, 3]) (Subscript[𝔉, 4])=",Factor[𝔉3 𝔉4]},"","Finite Singularities:  s, s, f, c",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[-WW2,"-(Subscript[W, 2])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[𝔗3 𝔉,"(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  (s^((1))), s, f, f",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[-WW2,"-(Subscript[W, 2])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[𝔗3 𝔉,"(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dnze[𝔉2,"(Subscript[𝔉, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},"","Finite Singularities:  (s^((2))), s, f, f",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[-WW2,"-(Subscript[W, 2])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[𝔗3 𝔉,"(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dze[𝔉2,"(Subscript[𝔉, 2])",c,a,b]&&Dnze[𝔉3 𝔉4,"𝔉3 𝔉4",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},{"(Subscript[𝔉, 3]) (Subscript[𝔉, 4])=",Factor[𝔉3 𝔉4]},"","Finite Singularities:  (s^((3))), s, f, f",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[-WW2,"-(Subscript[W, 2])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[𝔗3 𝔉,"(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dze[𝔉2,"(Subscript[𝔉, 2])",c,a,b]&&Dze[𝔉3 𝔉4,"𝔉3 𝔉4",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},{"(Subscript[𝔉, 3]) (Subscript[𝔉, 4])=",Factor[𝔉3 𝔉4]},"","Finite Singularities:  $, s, f, f",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[-WW2,"-(Subscript[W, 2])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dpo[-𝔗2,"-𝔗2",c,a,b]&&Dpo[-𝔅,"-𝔅",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dpo[-ℌ,"-ℌ",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔗, 2])=",Factor[𝔗2]},{"𝔅=",Factor[𝔅]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"ℌ=",Factor[ℌ]},"","Finite Singularities:  s, s, (f^((1))), (f^((1)))",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[-WW2,"-(Subscript[W, 2])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dpo[-𝔗2,"-𝔗2",c,a,b]&&Dpo[-𝔅,"-𝔅",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dpo[ℌ,"ℌ",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔗, 2])=",Factor[𝔗2]},{"𝔅=",Factor[𝔅]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"ℌ=",Factor[ℌ]},"","Finite Singularities:  (s^((1))), (s^((1))), f, f",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[-WW2,"-(Subscript[W, 2])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dpo[𝔗2,"(Subscript[𝔗, 2])",c,a,b]&&Dpo[-𝔅,"-𝔅",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔗, 2])=",Factor[𝔗2]},{"𝔅=",Factor[𝔅]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  (s^((1))), s, f, (f^((1)))",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[-WW2,"-(Subscript[W, 2])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dpo[-𝔗2,"-𝔗2",c,a,b]&&Dpo[-𝔅,"-𝔅",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dpo[-ℌ,"-ℌ",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔗, 2])=",Factor[𝔗2]},{"𝔅=",Factor[𝔅]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"ℌ=",Factor[ℌ]},"","Finite Singularities:  s, s, c, c",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[-WW2,"-(Subscript[W, 2])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dpo[-𝔗2,"-𝔗2",c,a,b]&&Dpo[-𝔅,"-𝔅",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dpo[ℌ,"ℌ",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔗, 2])=",Factor[𝔗2]},{"𝔅=",Factor[𝔅]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"ℌ=",Factor[ℌ]},"","Finite Singularities:  $, $, f, f",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[-WW2,"-(Subscript[W, 2])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dpo[𝔗2,"(Subscript[𝔗, 2])",c,a,b]&&Dpo[-𝔅,"-𝔅",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔗, 2])=",Factor[𝔗2]},{"𝔅=",Factor[𝔅]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  $, s, f, c",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[-WW2,"-(Subscript[W, 2])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dnze[𝔗2,"(Subscript[𝔗, 2])",c,a,b]&&Dze[𝔅,"𝔅",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔗, 2])=",Factor[𝔗2]},{"𝔅=",Factor[𝔅]},"","Finite Singularities:  (s^((1))), (s^((1))), f, f",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[-WW2,"-(Subscript[W, 2])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dze[𝔗2,"(Subscript[𝔗, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔗, 2])=",Factor[𝔗2]},"","Finite Singularities:  $, $, c, c",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[WW2,"(Subscript[W, 2])",c,a,b]&&Dpo[-WW1 WW3,"-W1 W3",c,a,b]&&Dnze[𝔗4,"(Subscript[𝔗, 4])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[W, 1]) (Subscript[W, 3])=",Factor[WW1 WW3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},"","Finite Singularities:  s, s, f, f",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[WW2,"(Subscript[W, 2])",c,a,b]&&Dpo[-WW1 WW3,"-W1 W3",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[-𝔗3 𝔉,"-(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[W, 1]) (Subscript[W, 3])=",Factor[WW1 WW3]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  s, s, f, (f^((1)))",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[WW2,"(Subscript[W, 2])",c,a,b]&&Dpo[-WW1 WW3,"-W1 W3",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[-𝔗3 𝔉,"-(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dnze[𝔉2,"(Subscript[𝔉, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[W, 1]) (Subscript[W, 3])=",Factor[WW1 WW3]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},"","Finite Singularities:  s, s, f, (f^((2)))",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[WW2,"(Subscript[W, 2])",c,a,b]&&Dpo[-WW1 WW3,"-W1 W3",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[-𝔗3 𝔉,"-(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dze[𝔉2,"(Subscript[𝔉, 2])",c,a,b]&&Dnze[𝔉3 𝔉4,"𝔉3 𝔉4",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[W, 1]) (Subscript[W, 3])=",Factor[WW1 WW3]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},{"(Subscript[𝔉, 3]) (Subscript[𝔉, 4])=",Factor[𝔉3 𝔉4]},"","Finite Singularities:  s, s, f, (f^((3)))",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[WW2,"(Subscript[W, 2])",c,a,b]&&Dpo[-WW1 WW3,"-W1 W3",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[-𝔗3 𝔉,"-(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dze[𝔉2,"(Subscript[𝔉, 2])",c,a,b]&&Dze[𝔉3 𝔉4,"𝔉3 𝔉4",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[W, 1]) (Subscript[W, 3])=",Factor[WW1 WW3]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},{"(Subscript[𝔉, 3]) (Subscript[𝔉, 4])=",Factor[𝔉3 𝔉4]},"","Finite Singularities:  s, s, f, c",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[WW2,"(Subscript[W, 2])",c,a,b]&&Dpo[-WW1 WW3,"-W1 W3",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[𝔗3 𝔉,"(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[W, 1]) (Subscript[W, 3])=",Factor[WW1 WW3]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  (s^((1))), s, f, f",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[WW2,"(Subscript[W, 2])",c,a,b]&&Dpo[-WW1 WW3,"-W1 W3",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[𝔗3 𝔉,"(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dnze[𝔉2,"(Subscript[𝔉, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[W, 1]) (Subscript[W, 3])=",Factor[WW1 WW3]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},"","Finite Singularities:  (s^((2))), s, f, f",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[WW2,"(Subscript[W, 2])",c,a,b]&&Dpo[-WW1 WW3,"-W1 W3",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[𝔗3 𝔉,"(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dze[𝔉2,"(Subscript[𝔉, 2])",c,a,b]&&Dnze[𝔉3 𝔉4,"𝔉3 𝔉4",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[W, 1]) (Subscript[W, 3])=",Factor[WW1 WW3]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},{"(Subscript[𝔉, 3]) (Subscript[𝔉, 4])=",Factor[𝔉3 𝔉4]},"","Finite Singularities:  (s^((3))), s, f, f",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[WW2,"(Subscript[W, 2])",c,a,b]&&Dpo[-WW1 WW3,"-W1 W3",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[𝔗3 𝔉,"(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dze[𝔉2,"(Subscript[𝔉, 2])",c,a,b]&&Dze[𝔉3 𝔉4,"𝔉3 𝔉4",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[W, 1]) (Subscript[W, 3])=",Factor[WW1 WW3]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},{"(Subscript[𝔉, 3]) (Subscript[𝔉, 4])=",Factor[𝔉3 𝔉4]},"","Finite Singularities:  $, s, f, f",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[WW2,"(Subscript[W, 2])",c,a,b]&&Dpo[-WW1 WW3,"-W1 W3",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dpo[-𝔗2,"-𝔗2",c,a,b]&&Dpo[-𝔅,"-𝔅",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dpo[-ℌ,"-ℌ",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[W, 1]) (Subscript[W, 3])=",Factor[WW1 WW3]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔗, 2])=",Factor[𝔗2]},{"𝔅=",Factor[𝔅]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"ℌ=",Factor[ℌ]},"","Finite Singularities:  s, s, (f^((1))), (f^((1)))",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[WW2,"(Subscript[W, 2])",c,a,b]&&Dpo[-WW1 WW3,"-W1 W3",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dpo[-𝔗2,"-𝔗2",c,a,b]&&Dpo[-𝔅,"-𝔅",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dpo[ℌ,"ℌ",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[W, 1]) (Subscript[W, 3])=",Factor[WW1 WW3]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔗, 2])=",Factor[𝔗2]},{"𝔅=",Factor[𝔅]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"ℌ=",Factor[ℌ]},"","Finite Singularities:  (s^((1))), (s^((1))), f, f",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[WW2,"(Subscript[W, 2])",c,a,b]&&Dpo[-WW1 WW3,"-W1 W3",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dpo[𝔗2,"(Subscript[𝔗, 2])",c,a,b]&&Dpo[-𝔅,"-𝔅",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[W, 1]) (Subscript[W, 3])=",Factor[WW1 WW3]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔗, 2])=",Factor[𝔗2]},{"𝔅=",Factor[𝔅]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  (s^((1))), s, f, (f^((1)))",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[WW2,"(Subscript[W, 2])",c,a,b]&&Dpo[-WW1 WW3,"-W1 W3",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dpo[-𝔗2,"-𝔗2",c,a,b]&&Dpo[-𝔅,"-𝔅",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dpo[-ℌ,"-ℌ",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[W, 1]) (Subscript[W, 3])=",Factor[WW1 WW3]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔗, 2])=",Factor[𝔗2]},{"𝔅=",Factor[𝔅]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"ℌ=",Factor[ℌ]},"","Finite Singularities:  s, s, c, c",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[WW2,"(Subscript[W, 2])",c,a,b]&&Dpo[-WW1 WW3,"-W1 W3",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dpo[-𝔗2,"-𝔗2",c,a,b]&&Dpo[-𝔅,"-𝔅",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dpo[ℌ,"ℌ",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[W, 1]) (Subscript[W, 3])=",Factor[WW1 WW3]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔗, 2])=",Factor[𝔗2]},{"𝔅=",Factor[𝔅]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"ℌ=",Factor[ℌ]},"","Finite Singularities:  $, $, f, f",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[WW2,"(Subscript[W, 2])",c,a,b]&&Dpo[-WW1 WW3,"-W1 W3",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dpo[𝔗2,"(Subscript[𝔗, 2])",c,a,b]&&Dpo[-𝔅,"-𝔅",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[W, 1]) (Subscript[W, 3])=",Factor[WW1 WW3]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔗, 2])=",Factor[𝔗2]},{"𝔅=",Factor[𝔅]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  $, s, f, c",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[WW2,"(Subscript[W, 2])",c,a,b]&&Dpo[-WW1 WW3,"-W1 W3",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dnze[𝔗2,"(Subscript[𝔗, 2])",c,a,b]&&Dze[𝔅,"𝔅",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[W, 1]) (Subscript[W, 3])=",Factor[WW1 WW3]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔗, 2])=",Factor[𝔗2]},{"𝔅=",Factor[𝔅]},"","Finite Singularities:  (s^((1))), (s^((1))), f, f",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[WW2,"(Subscript[W, 2])",c,a,b]&&Dpo[-WW1 WW3,"-W1 W3",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dze[𝔗2,"(Subscript[𝔗, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[W, 1]) (Subscript[W, 3])=",Factor[WW1 WW3]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔗, 2])=",Factor[𝔗2]},"","Finite Singularities:  $, $, c, c",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[WW2,"(Subscript[W, 2])",c,a,b]&&Dpo[WW1 WW3,"W1 W3",c,a,b]&&Dnze[𝔗4,"(Subscript[𝔗, 4])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[W, 1]) (Subscript[W, 3])=",Factor[WW1 WW3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},"","Finite Singularities:  s, s, n, n",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[WW2,"(Subscript[W, 2])",c,a,b]&&Dpo[WW1 WW3,"W1 W3",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[𝔗3 𝔉,"(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[W, 1]) (Subscript[W, 3])=",Factor[WW1 WW3]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  (s^((1))), s, n, n",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[WW2,"(Subscript[W, 2])",c,a,b]&&Dpo[WW1 WW3,"W1 W3",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[𝔗3 𝔉,"(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dnze[𝔉2,"(Subscript[𝔉, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[W, 1]) (Subscript[W, 3])=",Factor[WW1 WW3]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},"","Finite Singularities:  (s^((2))), s, n, n",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[WW2,"(Subscript[W, 2])",c,a,b]&&Dpo[WW1 WW3,"W1 W3",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[𝔗3 𝔉,"(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dze[𝔉2,"(Subscript[𝔉, 2])",c,a,b]&&Dnze[𝔉3 𝔉4,"𝔉3 𝔉4",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[W, 1]) (Subscript[W, 3])=",Factor[WW1 WW3]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},{"(Subscript[𝔉, 3]) (Subscript[𝔉, 4])=",Factor[𝔉3 𝔉4]},"","Finite Singularities:  (s^((3))), s, n, n",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[WW2,"(Subscript[W, 2])",c,a,b]&&Dpo[WW1 WW3,"W1 W3",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[𝔗3 𝔉,"(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dze[𝔉2,"(Subscript[𝔉, 2])",c,a,b]&&Dze[𝔉3 𝔉4,"𝔉3 𝔉4",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[W, 1]) (Subscript[W, 3])=",Factor[WW1 WW3]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},{"(Subscript[𝔉, 3]) (Subscript[𝔉, 4])=",Factor[𝔉3 𝔉4]},"","Finite Singularities:  $, s, n, n",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[WW2,"(Subscript[W, 2])",c,a,b]&&Dpo[WW1 WW3,"W1 W3",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[W, 1]) (Subscript[W, 3])=",Factor[WW1 WW3]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  (s^((1))), (s^((1))), n, n",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[WW2,"(Subscript[W, 2])",c,a,b]&&Dpo[WW1 WW3,"W1 W3",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[W, 1]) (Subscript[W, 3])=",Factor[WW1 WW3]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  $, $, n, n",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[-WW3,"-(Subscript[W, 3])",c,a,b]&&Dnze[𝔗4,"(Subscript[𝔗, 4])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},"","Finite Singularities:  s, s, (n^d), f",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[-WW3,"-(Subscript[W, 3])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[-𝔗3 𝔉,"-(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  s, s, (n^d), (f^((1)))",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[-WW3,"-(Subscript[W, 3])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[-𝔗3 𝔉,"-(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dnze[𝔉2,"(Subscript[𝔉, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},"","Finite Singularities:  s, s, (n^d), (f^((2)))",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[-WW3,"-(Subscript[W, 3])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[-𝔗3 𝔉,"-(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dze[𝔉2,"(Subscript[𝔉, 2])",c,a,b]&&Dnze[𝔉3 𝔉4,"𝔉3 𝔉4",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},{"(Subscript[𝔉, 3]) (Subscript[𝔉, 4])=",Factor[𝔉3 𝔉4]},"","Finite Singularities:  s, s, (n^d), (f^((3)))",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[-WW3,"-(Subscript[W, 3])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[-𝔗3 𝔉,"-(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dze[𝔉2,"(Subscript[𝔉, 2])",c,a,b]&&Dze[𝔉3 𝔉4,"𝔉3 𝔉4",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},{"(Subscript[𝔉, 3]) (Subscript[𝔉, 4])=",Factor[𝔉3 𝔉4]},"","Finite Singularities:  s, s, (n^d), c",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[-WW3,"-(Subscript[W, 3])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[𝔗3 𝔉,"(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  (s^((1))), s, (n^d), f",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[-WW3,"-(Subscript[W, 3])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[𝔗3 𝔉,"(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dnze[𝔉2,"(Subscript[𝔉, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},"","Finite Singularities:  (s^((2))), s, (n^d), f",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[-WW3,"-(Subscript[W, 3])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[𝔗3 𝔉,"(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dze[𝔉2,"(Subscript[𝔉, 2])",c,a,b]&&Dnze[𝔉3 𝔉4,"𝔉3 𝔉4",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},{"(Subscript[𝔉, 3]) (Subscript[𝔉, 4])=",Factor[𝔉3 𝔉4]},"","Finite Singularities:  (s^((3))), s, (n^d), f",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[-WW3,"-(Subscript[W, 3])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[𝔗3 𝔉,"(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dze[𝔉2,"(Subscript[𝔉, 2])",c,a,b]&&Dze[𝔉3 𝔉4,"𝔉3 𝔉4",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},{"(Subscript[𝔉, 3]) (Subscript[𝔉, 4])=",Factor[𝔉3 𝔉4]},"","Finite Singularities:  $, s, (n^d), f",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[-WW3,"-(Subscript[W, 3])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dpo[-𝔗2,"-𝔗2",c,a,b]&&Dpo[-𝔅,"-𝔅",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔗, 2])=",Factor[𝔗2]},{"𝔅=",Factor[𝔅]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  (s^((1))), (s^((1))), (n^d), f",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[-WW3,"-(Subscript[W, 3])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dpo[𝔗2,"(Subscript[𝔗, 2])",c,a,b]&&Dpo[-𝔅,"-𝔅",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔗, 2])=",Factor[𝔗2]},{"𝔅=",Factor[𝔅]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  (s^((1))), s, (n^d), (f^((1)))",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[-WW3,"-(Subscript[W, 3])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dpo[-𝔗2,"-𝔗2",c,a,b]&&Dpo[-𝔅,"-𝔅",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔗, 2])=",Factor[𝔗2]},{"𝔅=",Factor[𝔅]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  $, $, (n^d), f",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[-WW3,"-(Subscript[W, 3])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dpo[𝔗2,"(Subscript[𝔗, 2])",c,a,b]&&Dpo[-𝔅,"-𝔅",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔗, 2])=",Factor[𝔗2]},{"𝔅=",Factor[𝔅]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  $, s, (n^d), c",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[-WW3,"-(Subscript[W, 3])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dpo[-𝔗2,"-𝔗2",c,a,b]&&Dze[𝔅,"𝔅",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔗, 2])=",Factor[𝔗2]},{"𝔅=",Factor[𝔅]},"","Finite Singularities:  (s^((1))), (s^((1))), (n^d), f",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[-WW3,"-(Subscript[W, 3])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dze[𝔗2,"(Subscript[𝔗, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔗, 2])=",Factor[𝔗2]},"","Finite Singularities:  $, $, (n^d), c",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[WW3,"(Subscript[W, 3])",c,a,b]&&Dnze[𝔗4,"(Subscript[𝔗, 4])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},"","Finite Singularities:  s, s, (n^d), n",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[WW3,"(Subscript[W, 3])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[𝔗3 𝔉,"(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  (s^((1))), s, (n^d), n",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[WW3,"(Subscript[W, 3])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[𝔗3 𝔉,"(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dnze[𝔉2,"(Subscript[𝔉, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},"","Finite Singularities:  (s^((2))), s, (n^d), n",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[WW3,"(Subscript[W, 3])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[𝔗3 𝔉,"(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dze[𝔉2,"(Subscript[𝔉, 2])",c,a,b]&&Dnze[𝔉3 𝔉4,"𝔉3 𝔉4",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},{"(Subscript[𝔉, 3]) (Subscript[𝔉, 4])=",Factor[𝔉3 𝔉4]},"","Finite Singularities:  (s^((3))), s, (n^d), n",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[WW3,"(Subscript[W, 3])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[𝔗3 𝔉,"(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dze[𝔉2,"(Subscript[𝔉, 2])",c,a,b]&&Dze[𝔉3 𝔉4,"𝔉3 𝔉4",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},{"(Subscript[𝔉, 3]) (Subscript[𝔉, 4])=",Factor[𝔉3 𝔉4]},"","Finite Singularities:  $, s, (n^d), n",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[WW3,"(Subscript[W, 3])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dpo[-𝔅,"-𝔅",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"𝔅=",Factor[𝔅]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  (s^((1))), (s^((1))), (n^d), n",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[WW3,"(Subscript[W, 3])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dpo[-𝔅,"-𝔅",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"𝔅=",Factor[𝔅]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  $, $, (n^d), n",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[WW3,"(Subscript[W, 3])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dze[𝔅,"𝔅",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"𝔅=",Factor[𝔅]},"","Finite Singularities:  (s^((1))), (s^((1))), (n^d), n",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[WW3,"(Subscript[W, 3])",c,a,b]&&Dnze[𝔗4,"(Subscript[𝔗, 4])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},"","Finite Singularities:  s, s, (n^d), (n^d)",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[WW3,"(Subscript[W, 3])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[𝔗3 𝔉,"(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  (s^((1))), s, (n^d), (n^d)",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[WW3,"(Subscript[W, 3])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[𝔗3 𝔉,"(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dnze[𝔉2,"(Subscript[𝔉, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},"","Finite Singularities:  (s^((2))), s, (n^d), (n^d)",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[WW3,"(Subscript[W, 3])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[𝔗3 𝔉,"(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dze[𝔉2,"(Subscript[𝔉, 2])",c,a,b]&&Dnze[𝔉3 𝔉4,"𝔉3 𝔉4",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},{"(Subscript[𝔉, 3]) (Subscript[𝔉, 4])=",Factor[𝔉3 𝔉4]},"","Finite Singularities:  (s^((3))), s, (n^d), (n^d)",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[WW3,"(Subscript[W, 3])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[𝔗3 𝔉,"(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dze[𝔉2,"(Subscript[𝔉, 2])",c,a,b]&&Dze[𝔉3 𝔉4,"𝔉3 𝔉4",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},{"(Subscript[𝔉, 3]) (Subscript[𝔉, 4])=",Factor[𝔉3 𝔉4]},"","Finite Singularities:  $, s, (n^d), (n^d)",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[WW3,"(Subscript[W, 3])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dpo[-𝔅,"-𝔅",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"𝔅=",Factor[𝔅]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  (s^((1))), (s^((1))), (n^d), (n^d)",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[WW3,"(Subscript[W, 3])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dpo[-𝔅,"-𝔅",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"𝔅=",Factor[𝔅]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  $, $, (n^d), (n^d)",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[WW3,"(Subscript[W, 3])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dze[𝔅,"𝔅",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕊=",Factor[𝕊]},{"ℝ=",Factor[ℝ]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"𝔅=",Factor[𝔅]},"","Finite Singularities:  (s^((1))), (s^((1))), (n^d), (n^d)",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[-WK,"-(Overscript[K, ∼])",c,a,b]&&Dnze[𝔗4,"(Subscript[𝔗, 4])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},"","Finite Singularities:  s, s, ©, ©",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[-WK,"-(Overscript[K, ∼])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dnze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  (s^((1))), s, ©, ©",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[-WK,"-(Overscript[K, ∼])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dnze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dnze[𝔉2,"(Subscript[𝔉, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},"","Finite Singularities:  (s^((2))), s, ©, ©",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[-WK,"-(Overscript[K, ∼])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dnze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dze[𝔉2,"(Subscript[𝔉, 2])",c,a,b]&&Dnze[𝔉3 𝔉4,"𝔉3 𝔉4",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},{"(Subscript[𝔉, 3])(Subscript[𝔉, 4])=",Factor[𝔉3 𝔉4]},"","Finite Singularities:  (s^((3))), s, ©, ©",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[-WK,"-(Overscript[K, ∼])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dnze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dze[𝔉2,"(Subscript[𝔉, 2])",c,a,b]&&Dze[𝔉3 𝔉4,"𝔉3 𝔉4",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},{"(Subscript[𝔉, 3])(Subscript[𝔉, 4])=",Factor[𝔉3 𝔉4]},"","Finite Singularities:  $, s, ©, ©",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[-WK,"-(Overscript[K, ∼])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dnze[𝔗2,"(Subscript[𝔗, 2])",c,a,b]&&Dnze[𝔉,"𝔉",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔗, 2])=",Factor[𝔗2]},{"𝔉=",Factor[𝔉]},"","Finite Singularities:  s, s, (©^ρ), (©^ρ)",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[-WK,"-(Overscript[K, ∼])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dnze[𝔗2,"(Subscript[𝔗, 2])",c,a,b]&&Dze[𝔉,"𝔉",c,a,b]&&Dpo[-𝔅,"-𝔅",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔗, 2])=",Factor[𝔗2]},{"𝔉=",Factor[𝔉]},{"𝔅=",Factor[𝔅]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  (s^((1))), (s^((1))), ©, ©",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[-WK,"-(Overscript[K, ∼])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dnze[𝔗2,"(Subscript[𝔗, 2])",c,a,b]&&Dze[𝔉,"𝔉",c,a,b]&&Dpo[-𝔅,"-𝔅",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔗, 2])=",Factor[𝔗2]},{"𝔉=",Factor[𝔉]},{"𝔅=",Factor[𝔅]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  $, $, ©, ©",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[-WK,"-(Overscript[K, ∼])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dnze[𝔗2,"(Subscript[𝔗, 2])",c,a,b]&&Dze[𝔉,"𝔉",c,a,b]&&Dpo[𝔅,"𝔅",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔗, 2])=",Factor[𝔗2]},{"𝔉=",Factor[𝔉]},{"𝔅=",Factor[𝔅]},"","Finite Singularities:  s, s, (©^ρ), (©^ρ)",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[-WK,"-(Overscript[K, ∼])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dnze[𝔗2,"(Subscript[𝔗, 2])",c,a,b]&&Dze[𝔉,"𝔉",c,a,b]&&Dze[𝔅,"𝔅",c,a,b]&&Dpo[-ℌ,"-ℌ",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔗, 2])=",Factor[𝔗2]},{"𝔉=",Factor[𝔉]},{"𝔅=",Factor[𝔅]},{"ℌ=",Factor[ℌ]},"","Finite Singularities:  s, s, (©^ρ), (©^ρ)",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[-WK,"-(Overscript[K, ∼])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dnze[𝔗2,"(Subscript[𝔗, 2])",c,a,b]&&Dze[𝔉,"𝔉",c,a,b]&&Dze[𝔅,"𝔅",c,a,b]&&Dpo[ℌ,"ℌ",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔗, 2])=",Factor[𝔗2]},{"𝔉=",Factor[𝔉]},{"𝔅=",Factor[𝔅]},{"ℌ=",Factor[ℌ]},"","Finite Singularities:  (s^((1))), (s^((1))), ©, ©",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[-WK,"-(Overscript[K, ∼])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dnze[𝔗2,"(Subscript[𝔗, 2])",c,a,b]&&Dze[𝔉,"𝔉",c,a,b]&&Dze[𝔅,"𝔅",c,a,b]&&Dze[ℌ,"ℌ",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔗, 2])=",Factor[𝔗2]},{"𝔉=",Factor[𝔉]},{"𝔅=",Factor[𝔅]},{"ℌ=",Factor[ℌ]},"","Finite Singularities:  s, s, (©^ρ), (©^ρ)",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[-WK,"-(Overscript[K, ∼])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dze[𝔗2,"(Subscript[𝔗, 2])",c,a,b]&&Dnze[𝔗1,"(Subscript[𝔗, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔗, 2])=",Factor[𝔗2]},{"(Subscript[𝔗, 1])=",Factor[𝔗1]},"","Finite Singularities:  (s^((1))), s, (©^ρ), (©^ρ)",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[-WK,"-(Overscript[K, ∼])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dze[𝔗2,"(Subscript[𝔗, 2])",c,a,b]&&Dze[𝔗1,"(Subscript[𝔗, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔗, 2])=",Factor[𝔗2]},{"(Subscript[𝔗, 1])=",Factor[𝔗1]},"","Finite Singularities:  $, $, (©^ρ), (©^ρ)",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dnze[𝔗4,"(Subscript[𝔗, 4])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},"","Finite Singularities:  n, f, ©, ©",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dnze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  n, (f^((1))), ©, ©",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dnze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dnze[𝔉2,"(Subscript[𝔉, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},"","Finite Singularities:  n, (f^((2))), ©, ©",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dnze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dze[𝔉2,"(Subscript[𝔉, 2])",c,a,b]&&Dnze[𝔉3 𝔉4,"𝔉3 𝔉4",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},{"(Subscript[𝔉, 3])(Subscript[𝔉, 4])=",Factor[𝔉3 𝔉4]},"","Finite Singularities:  n, (f^((3))), ©, ©",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dnze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dze[𝔉2,"(Subscript[𝔉, 2])",c,a,b]&&Dze[𝔉3 𝔉4,"𝔉3 𝔉4",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},{"(Subscript[𝔉, 3])(Subscript[𝔉, 4])=",Factor[𝔉3 𝔉4]},"","Finite Singularities:  n,c, ©, ©",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dnze[𝔗2,"(Subscript[𝔗, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔗, 2])=",Factor[𝔗2]},"","Finite Singularities:  n, f, (©^ρ), (©^ρ)",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dze[𝔗2,"(Subscript[𝔗, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔗, 2])=",Factor[𝔗2]},"","Finite Singularities:  n, (f^((1))), (©^ρ), (©^ρ)",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[WV1,"V1",c,a,b]&&Dpo[-WW1,"-(Subscript[W, 1])",c,a,b]&&Dnze[𝔗4,"(Subscript[𝔗, 4])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[V, 1])=",Factor[WV1]},{"(Subscript[W, 1])=",Factor[WW1]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  f, f, ©, ©",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[WV1,"V1",c,a,b]&&Dpo[-WW1,"-(Subscript[W, 1])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dnze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[V, 1])=",Factor[WV1]},{"(Subscript[W, 1])=",Factor[WW1]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  f, (f^((1))), ©, ©",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[WV1,"V1",c,a,b]&&Dpo[-WW1,"-(Subscript[W, 1])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dnze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dnze[𝔉2,"(Subscript[𝔉, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[V, 1])=",Factor[WV1]},{"(Subscript[W, 1])=",Factor[WW1]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},"","Finite Singularities:  f, (f^((2))), ©, ©",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[WV1,"V1",c,a,b]&&Dpo[-WW1,"-(Subscript[W, 1])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dnze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dze[𝔉2,"(Subscript[𝔉, 2])",c,a,b]&&Dnze[𝔉3 𝔉4,"𝔉3 𝔉4",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[V, 1])=",Factor[WV1]},{"(Subscript[W, 1])=",Factor[WW1]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},{"(Subscript[𝔉, 3])(Subscript[𝔉, 4])=",Factor[𝔉3 𝔉4 ]},"","Finite Singularities:  f, (f^((3))), ©, ©",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[WV1,"V1",c,a,b]&&Dpo[-WW1,"-(Subscript[W, 1])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dnze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dze[𝔉2,"(Subscript[𝔉, 2])",c,a,b]&&Dze[𝔉3 𝔉4,"𝔉3 𝔉4",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[V, 1])=",Factor[WV1]},{"(Subscript[W, 1])=",Factor[WW1]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},{"(Subscript[𝔉, 3])(Subscript[𝔉, 4])=",Factor[𝔉3 𝔉4 ]},"","Finite Singularities:  f, c, ©, ©",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[WV1,"V1",c,a,b]&&Dpo[-WW1,"-(Subscript[W, 1])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dnze[𝔗2,"(Subscript[𝔗, 2])",c,a,b]&&Dnze[𝔉,"𝔉",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[V, 1])=",Factor[WV1]},{"(Subscript[W, 1])=",Factor[WW1]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔗, 2])=",Factor[𝔗2]},{"𝔉=",Factor[𝔉]},"","Finite Singularities:  f, f, (©^ρ), (©^ρ)",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[WV1,"V1",c,a,b]&&Dpo[-WW1,"-(Subscript[W, 1])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dnze[𝔗2,"(Subscript[𝔗, 2])",c,a,b]&&Dze[𝔉,"𝔉",c,a,b]&&Dpo[-𝔅,"-𝔅",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[V, 1])=",Factor[WV1]},{"(Subscript[W, 1])=",Factor[WW1]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔗, 2])=",Factor[𝔗2]},{"𝔉=",Factor[𝔉]},{"𝔅=",Factor[𝔅]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  (f^((1))), (f^((1))), ©, ©",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[WV1,"V1",c,a,b]&&Dpo[-WW1,"-(Subscript[W, 1])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dnze[𝔗2,"(Subscript[𝔗, 2])",c,a,b]&&Dze[𝔉,"𝔉",c,a,b]&&Dpo[-𝔅,"-𝔅",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[V, 1])=",Factor[WV1]},{"(Subscript[W, 1])=",Factor[WW1]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔗, 2])=",Factor[𝔗2]},{"𝔉=",Factor[𝔉]},{"𝔅=",Factor[𝔅]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  c, c, ©, ©",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[WV1,"V1",c,a,b]&&Dpo[-WW1,"-(Subscript[W, 1])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dnze[𝔗2,"(Subscript[𝔗, 2])",c,a,b]&&Dze[𝔉,"𝔉",c,a,b]&&Dpo[𝔅,"𝔅",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[V, 1])=",Factor[WV1]},{"(Subscript[W, 1])=",Factor[WW1]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔗, 2])=",Factor[𝔗2]},{"𝔉=",Factor[𝔉]},{"𝔅=",Factor[𝔅]},"","Finite Singularities:  f, f, (©^ρ), (©^ρ)",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[WV1,"V1",c,a,b]&&Dpo[-WW1,"-(Subscript[W, 1])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dnze[𝔗2,"(Subscript[𝔗, 2])",c,a,b]&&Dze[𝔉,"𝔉",c,a,b]&&Dze[𝔅,"𝔅",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[V, 1])=",Factor[WV1]},{"(Subscript[W, 1])=",Factor[WW1]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔗, 2])=",Factor[𝔗2]},{"𝔉=",Factor[𝔉]},{"𝔅=",Factor[𝔅]},"","Finite Singularities:  f, f, (©^ρ), (©^ρ)",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[WV1,"V1",c,a,b]&&Dpo[-WW1,"-(Subscript[W, 1])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dze[𝔗2,"(Subscript[𝔗, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[V, 1])=",Factor[WV1]},{"(Subscript[W, 1])=",Factor[WW1]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔗, 2])=",Factor[𝔗2]},"","Finite Singularities:  f, (f^((1))), (©^ρ), (©^ρ)",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[-WV1,"-V1",c,a,b]&&Dpo[-WV2,"-V2",c,a,b]&&Dnze[𝔗4,"(Subscript[𝔗, 4])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[V, 1])=",Factor[WV1]},{"(Subscript[V, 2])=",Factor[WV2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},"","Finite Singularities:  f, f, ©, ©",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[-WV1,"-V1",c,a,b]&&Dpo[-WV2,"-V2",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dnze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[V, 1])=",Factor[WV1]},{"(Subscript[V, 2])=",Factor[WV2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  f, (f^((1))), ©, ©",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[-WV1,"-V1",c,a,b]&&Dpo[-WV2,"-V2",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dnze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dnze[𝔉2,"(Subscript[𝔉, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[V, 1])=",Factor[WV1]},{"(Subscript[V, 2])=",Factor[WV2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},"","Finite Singularities:  f, (f^((2))), ©, ©",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[-WV1,"-V1",c,a,b]&&Dpo[-WV2,"-V2",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dnze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dze[𝔉2,"(Subscript[𝔉, 2])",c,a,b]&&Dnze[𝔉3 𝔉4,"𝔉3 𝔉4",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[V, 1])=",Factor[WV1]},{"(Subscript[V, 2])=",Factor[WV2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},{"(Subscript[𝔉, 3])(Subscript[𝔉, 4])=",Factor[𝔉3 𝔉4 ]},"","Finite Singularities:  f, (f^((3))), ©, ©",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[-WV1,"-V1",c,a,b]&&Dpo[-WV2,"-V2",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dnze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dze[𝔉2,"(Subscript[𝔉, 2])",c,a,b]&&Dze[𝔉3 𝔉4,"𝔉3 𝔉4",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[V, 1])=",Factor[WV1]},{"(Subscript[V, 2])=",Factor[WV2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},{"(Subscript[𝔉, 3])(Subscript[𝔉, 4])=",Factor[𝔉3 𝔉4 ]},"","Finite Singularities:  f, c, ©, ©",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[-WV1,"-V1",c,a,b]&&Dpo[-WV2,"-V2",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dnze[𝔗2,"(Subscript[𝔗, 2])",c,a,b]&&Dnze[𝔉,"𝔉",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[V, 1])=",Factor[WV1]},{"(Subscript[V, 2])=",Factor[WV2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔗, 2])=",Factor[𝔗2]},{"𝔉=",Factor[𝔉]},"","Finite Singularities:  f, f, (©^ρ), (©^ρ)",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[-WV1,"-V1",c,a,b]&&Dpo[-WV2,"-V2",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dnze[𝔗2,"(Subscript[𝔗, 2])",c,a,b]&&Dze[𝔉,"𝔉",c,a,b]&&Dpo[-𝔅,"-𝔅",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[V, 1])=",Factor[WV1]},{"(Subscript[V, 2])=",Factor[WV2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔗, 2])=",Factor[𝔗2]},{"𝔉=",Factor[𝔉]},{"𝔅=",Factor[𝔅]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  (f^((1))), (f^((1))), ©, ©",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[-WV1,"-V1",c,a,b]&&Dpo[-WV2,"-V2",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dnze[𝔗2,"(Subscript[𝔗, 2])",c,a,b]&&Dze[𝔉,"𝔉",c,a,b]&&Dpo[-𝔅,"-𝔅",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[V, 1])=",Factor[WV1]},{"(Subscript[V, 2])=",Factor[WV2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔗, 2])=",Factor[𝔗2]},{"𝔉=",Factor[𝔉]},{"𝔅=",Factor[𝔅]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  c, c, ©, ©",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[-WV1,"-V1",c,a,b]&&Dpo[-WV2,"-V2",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dnze[𝔗2,"(Subscript[𝔗, 2])",c,a,b]&&Dze[𝔉,"𝔉",c,a,b]&&Dpo[𝔅,"𝔅",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[V, 1])=",Factor[WV1]},{"(Subscript[V, 2])=",Factor[WV2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔗, 2])=",Factor[𝔗2]},{"𝔉=",Factor[𝔉]},{"𝔅=",Factor[𝔅]},"","Finite Singularities:  f, f, (©^ρ), (©^ρ)",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[-WV1,"-V1",c,a,b]&&Dpo[-WV2,"-V2",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dnze[𝔗2,"(Subscript[𝔗, 2])",c,a,b]&&Dze[𝔉,"𝔉",c,a,b]&&Dze[𝔅,"𝔅",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[V, 1])=",Factor[WV1]},{"(Subscript[V, 2])=",Factor[WV2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔗, 2])=",Factor[𝔗2]},{"𝔉=",Factor[𝔉]},{"𝔅=",Factor[𝔅]},"","Finite Singularities:  f, f, (©^ρ), (©^ρ)",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[-WV1,"-V1",c,a,b]&&Dpo[-WV2,"-V2",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dze[𝔗2,"(Subscript[𝔗, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[V, 1])=",Factor[WV1]},{"(Subscript[V, 2])=",Factor[WV2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔗, 2])=",Factor[𝔗2]},"","Finite Singularities:  f, (f^((1))), (©^ρ), (©^ρ)",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[WV1,"V1",c,a,b]&&Dnze[WV3,"V3",c,a,b]&&Dpo[-WW1,"-(Subscript[W, 1])",c,a,b]&&Dnze[𝔗4,"(Subscript[𝔗, 4])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[V, 1])=",Factor[WV1]},{"(Subscript[V, 3])=",Factor[WV3]},{"(Subscript[W, 1])=",Factor[WW1]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},"","Finite Singularities:  f, f, ©, ©",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[WV1,"V1",c,a,b]&&Dnze[WV3,"V3",c,a,b]&&Dpo[-WW1,"-(Subscript[W, 1])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dnze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[V, 1])=",Factor[WV1]},{"(Subscript[V, 3])=",Factor[WV3]},{"(Subscript[W, 1])=",Factor[WW1]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  f, (f^((1))), ©, ©",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[WV1,"V1",c,a,b]&&Dnze[WV3,"V3",c,a,b]&&Dpo[-WW1,"-(Subscript[W, 1])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dnze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dnze[𝔉2,"(Subscript[𝔉, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[V, 1])=",Factor[WV1]},{"(Subscript[V, 3])=",Factor[WV3]},{"(Subscript[W, 1])=",Factor[WW1]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},"","Finite Singularities:  f, (f^((2))), ©, ©",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[WV1,"V1",c,a,b]&&Dnze[WV3,"V3",c,a,b]&&Dpo[-WW1,"-(Subscript[W, 1])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dnze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dze[𝔉2,"(Subscript[𝔉, 2])",c,a,b]&&Dnze[𝔉3 𝔉4,"𝔉3 𝔉4",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[V, 1])=",Factor[WV1]},{"(Subscript[V, 3])=",Factor[WV3]},{"(Subscript[W, 1])=",Factor[WW1]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},{"(Subscript[𝔉, 3])(Subscript[𝔉, 4])=",Factor[𝔉3 𝔉4 ]},"","Finite Singularities:  f, (f^((3))), ©, ©",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[WV1,"V1",c,a,b]&&Dnze[WV3,"V3",c,a,b]&&Dpo[-WW1,"-(Subscript[W, 1])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dnze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dze[𝔉2,"(Subscript[𝔉, 2])",c,a,b]&&Dze[𝔉3 𝔉4,"𝔉3 𝔉4",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[V, 1])=",Factor[WV1]},{"(Subscript[V, 3])=",Factor[WV3]},{"(Subscript[W, 1])=",Factor[WW1]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},{"(Subscript[𝔉, 3])(Subscript[𝔉, 4])=",Factor[𝔉3 𝔉4 ]},"","Finite Singularities:  f, c, ©, ©",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[WV1,"V1",c,a,b]&&Dnze[WV3,"V3",c,a,b]&&Dpo[-WW1,"-(Subscript[W, 1])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dnze[𝔗2,"(Subscript[𝔗, 2])",c,a,b]&&Dnze[𝔉,"𝔉",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[V, 1])=",Factor[WV1]},{"(Subscript[V, 3])=",Factor[WV3]},{"(Subscript[W, 1])=",Factor[WW1]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔗, 2])=",Factor[𝔗2]},{"𝔉=",Factor[𝔉]},"","Finite Singularities:  f, f, (©^ρ), (©^ρ)",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[WV1,"V1",c,a,b]&&Dnze[WV3,"V3",c,a,b]&&Dpo[-WW1,"-(Subscript[W, 1])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dnze[𝔗2,"(Subscript[𝔗, 2])",c,a,b]&&Dze[𝔉,"𝔉",c,a,b]&&Dpo[-𝔅,"-𝔅",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[V, 1])=",Factor[WV1]},{"(Subscript[V, 3])=",Factor[WV3]},{"(Subscript[W, 1])=",Factor[WW1]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔗, 2])=",Factor[𝔗2]},{"𝔉=",Factor[𝔉]},{"𝔅=",Factor[𝔅]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  (f^((1))), (f^((1))), ©, ©",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[WV1,"V1",c,a,b]&&Dnze[WV3,"V3",c,a,b]&&Dpo[-WW1,"-(Subscript[W, 1])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dnze[𝔗2,"(Subscript[𝔗, 2])",c,a,b]&&Dze[𝔉,"𝔉",c,a,b]&&Dpo[-𝔅,"-𝔅",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[V, 1])=",Factor[WV1]},{"(Subscript[V, 3])=",Factor[WV3]},{"(Subscript[W, 1])=",Factor[WW1]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔗, 2])=",Factor[𝔗2]},{"𝔉=",Factor[𝔉]},{"𝔅=",Factor[𝔅]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  c, c, ©, ©",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[WV1,"V1",c,a,b]&&Dnze[WV3,"V3",c,a,b]&&Dpo[-WW1,"-(Subscript[W, 1])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dnze[𝔗2,"(Subscript[𝔗, 2])",c,a,b]&&Dze[𝔉,"𝔉",c,a,b]&&Dpo[𝔅,"𝔅",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[V, 1])=",Factor[WV1]},{"(Subscript[V, 3])=",Factor[WV3]},{"(Subscript[W, 1])=",Factor[WW1]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔗, 2])=",Factor[𝔗2]},{"𝔉=",Factor[𝔉]},{"𝔅=",Factor[𝔅]},"","Finite Singularities:  f, f, (©^ρ), (©^ρ)",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[WV1,"V1",c,a,b]&&Dnze[WV3,"V3",c,a,b]&&Dpo[-WW1,"-(Subscript[W, 1])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dnze[𝔗2,"(Subscript[𝔗, 2])",c,a,b]&&Dze[𝔉,"𝔉",c,a,b]&&Dze[𝔅,"𝔅",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[V, 1])=",Factor[WV1]},{"(Subscript[V, 3])=",Factor[WV3]},{"(Subscript[W, 1])=",Factor[WW1]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔗, 2])=",Factor[𝔗2]},{"𝔉=",Factor[𝔉]},{"𝔅=",Factor[𝔅]},"","Finite Singularities:  f, f, (©^ρ), (©^ρ)",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[WV1,"V1",c,a,b]&&Dnze[WV3,"V3",c,a,b]&&Dpo[-WW1,"-(Subscript[W, 1])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dze[𝔗2,"(Subscript[𝔗, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[V, 1])=",Factor[WV1]},{"(Subscript[V, 3])=",Factor[WV3]},{"(Subscript[W, 1])=",Factor[WW1]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔗, 2])=",Factor[𝔗2]},"","Finite Singularities:  f, (f^((1))), (©^ρ), (©^ρ)",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[WV1,"V1",c,a,b]&&Dze[WV3,"V3",c,a,b]&&Dpo[-WV2,"-V2",c,a,b]&&Dnze[𝔗4,"(Subscript[𝔗, 4])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[V, 1])=",Factor[WV1]},{"(Subscript[V, 3])=",Factor[WV3]},{"(Subscript[V, 2])=",Factor[WV2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},"","Finite Singularities:  f, f, ©, ©",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[WV1,"V1",c,a,b]&&Dze[WV3,"V3",c,a,b]&&Dpo[-WV2,"-V2",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dnze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[V, 1])=",Factor[WV1]},{"(Subscript[V, 3])=",Factor[WV3]},{"(Subscript[V, 2])=",Factor[WV2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  f, (f^((1))), ©, ©",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[WV1,"V1",c,a,b]&&Dze[WV3,"V3",c,a,b]&&Dpo[-WV2,"-V2",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dnze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dnze[𝔉2,"(Subscript[𝔉, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[V, 1])=",Factor[WV1]},{"(Subscript[V, 3])=",Factor[WV3]},{"(Subscript[V, 2])=",Factor[WV2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},"","Finite Singularities:  f, (f^((2))), ©, ©",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[WV1,"V1",c,a,b]&&Dze[WV3,"V3",c,a,b]&&Dpo[-WV2,"-V2",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dnze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dze[𝔉2,"(Subscript[𝔉, 2])",c,a,b]&&Dnze[𝔉3 𝔉4,"𝔉3 𝔉4",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[V, 1])=",Factor[WV1]},{"(Subscript[V, 3])=",Factor[WV3]},{"(Subscript[V, 2])=",Factor[WV2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},{"(Subscript[𝔉, 3])(Subscript[𝔉, 4])=",Factor[𝔉3 𝔉4 ]},"","Finite Singularities:  f, (f^((3))), ©, ©",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[WV1,"V1",c,a,b]&&Dze[WV3,"V3",c,a,b]&&Dpo[-WV2,"-V2",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dnze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dze[𝔉2,"(Subscript[𝔉, 2])",c,a,b]&&Dze[𝔉3 𝔉4,"𝔉3 𝔉4",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[V, 1])=",Factor[WV1]},{"(Subscript[V, 3])=",Factor[WV3]},{"(Subscript[V, 2])=",Factor[WV2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},{"(Subscript[𝔉, 3])(Subscript[𝔉, 4])=",Factor[𝔉3 𝔉4 ]},"","Finite Singularities:  f, c, ©, ©",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[WV1,"V1",c,a,b]&&Dpo[-WW1,"-(Subscript[W, 1])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dnze[𝔗2,"(Subscript[𝔗, 2])",c,a,b]&&Dpo[𝔅,"𝔅",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[V, 1])=",Factor[WV1]},{"(Subscript[V, 3])=",Factor[WV3]},{"(Subscript[V, 2])=",Factor[WV2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔗, 2])=",Factor[𝔗2]},{"𝔅=",Factor[𝔅]},"","Finite Singularities:  f, f, (©^ρ), (©^ρ)",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[WV1,"V1",c,a,b]&&Dpo[-WW1,"-(Subscript[W, 1])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dnze[𝔗2,"(Subscript[𝔗, 2])",c,a,b]&&Dze[𝔅,"𝔅",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[V, 1])=",Factor[WV1]},{"(Subscript[V, 3])=",Factor[WV3]},{"(Subscript[V, 2])=",Factor[WV2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔗, 2])=",Factor[𝔗2]},{"𝔅=",Factor[𝔅]},"","Finite Singularities:  f, f, (©^ρ), (©^ρ)",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[WV1,"V1",c,a,b]&&Dze[WV3,"V3",c,a,b]&&Dpo[-WV2,"-V2",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dnze[𝔗2,"(Subscript[𝔗, 2])",c,a,b]&&Dze[𝔉,"𝔉",c,a,b]&&Dpo[-𝔅,"-𝔅",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[V, 1])=",Factor[WV1]},{"(Subscript[V, 3])=",Factor[WV3]},{"(Subscript[V, 2])=",Factor[WV2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔗, 2])=",Factor[𝔗2]},{"𝔉=",Factor[𝔉]},{"𝔅=",Factor[𝔅]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  (f^((1))), (f^((1))), ©, ©",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[WV1,"V1",c,a,b]&&Dze[WV3,"V3",c,a,b]&&Dpo[-WV2,"-V2",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dnze[𝔗2,"(Subscript[𝔗, 2])",c,a,b]&&Dze[𝔉,"𝔉",c,a,b]&&Dpo[-𝔅,"-𝔅",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[V, 1])=",Factor[WV1]},{"(Subscript[V, 3])=",Factor[WV3]},{"(Subscript[V, 2])=",Factor[WV2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔗, 2])=",Factor[𝔗2]},{"𝔉=",Factor[𝔉]},{"𝔅=",Factor[𝔅]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  c, c, ©, ©",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[WV1,"V1",c,a,b]&&Dze[WV3,"V3",c,a,b]&&Dpo[-WV2,"-V2",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dnze[𝔗2,"(Subscript[𝔗, 2])",c,a,b]&&Dze[𝔉,"𝔉",c,a,b]&&Dpo[𝔅,"𝔅",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[V, 1])=",Factor[WV1]},{"(Subscript[V, 3])=",Factor[WV3]},{"(Subscript[V, 2])=",Factor[WV2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔗, 2])=",Factor[𝔗2]},{"𝔉=",Factor[𝔉]},{"𝔅=",Factor[𝔅]},"","Finite Singularities:  f, f, (©^ρ), (©^ρ)",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[WV1,"V1",c,a,b]&&Dze[WV3,"V3",c,a,b]&&Dpo[-WV2,"-V2",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dnze[𝔗2,"(Subscript[𝔗, 2])",c,a,b]&&Dze[𝔉,"𝔉",c,a,b]&&Dze[𝔅,"𝔅",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[V, 1])=",Factor[WV1]},{"(Subscript[V, 3])=",Factor[WV3]},{"(Subscript[V, 2])=",Factor[WV2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔗, 2])=",Factor[𝔗2]},{"𝔉=",Factor[𝔉]},{"𝔅=",Factor[𝔅]},"","Finite Singularities:  f, f, (©^ρ), (©^ρ)",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[WV1,"V1",c,a,b]&&Dze[WV3,"V3",c,a,b]&&Dpo[-WV2,"-V2",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dze[𝔗2,"(Subscript[𝔗, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[V, 1])=",Factor[WV1]},{"(Subscript[V, 3])=",Factor[WV3]},{"(Subscript[V, 2])=",Factor[WV2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔗, 2])=",Factor[𝔗2]},"","Finite Singularities:  f, (f^((1))), (©^ρ), (©^ρ)",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dnze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[WV1,"V1",c,a,b]&&Dpo[WW1,"W1",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[V, 1])=",Factor[WV1]},{"(Subscript[W, 1])=",Factor[WW1]},,"","Finite Singularities:  n, n, ©, ©",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dnze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[-WV1,"-V1",c,a,b]&&Dpo[WV2,"V2",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[V, 1])=",Factor[WV1]},{"(Subscript[V, 2])=",Factor[WV2]},,"","Finite Singularities:  n, n, ©, ©",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dnze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[WV1,"V1",c,a,b]&&Dnze[WV2 WV3,"V2 V3",c,a,b]&&Dpo[WW1,"W1",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[V, 1])=",Factor[WV1]},{"(Subscript[V, 2]) (Subscript[V, 3])=",Factor[WV2 WV3]},{"(Subscript[W, 1])=",Factor[WW1]},"","Finite Singularities:  n, n, ©, ©",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dnze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[WV1,"V1",c,a,b]&&Dze[WV3,"V3",c,a,b]&&Dpo[WV2,"V2",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[V, 1])=",Factor[WV1]},{"(Subscript[V, 3])=",Factor[WV3]},{"(Subscript[V, 2])=",Factor[WV2]},"","Finite Singularities:  n, n, ©, ©",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[WV1,"V1",c,a,b]&&Dpo[WW1,"W1",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[V, 1])=",Factor[WV1]},{"(Subscript[W, 1])=",Factor[WW1]},,"","Finite Singularities:  n, n, (©^ρ), (©^ρ)",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[-WV1,"-V1",c,a,b]&&Dpo[WV2,"V2",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[V, 1])=",Factor[WV1]},{"(Subscript[V, 2])=",Factor[WV2]},,"","Finite Singularities:  n, n, (©^ρ), (©^ρ)",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[WV1,"V1",c,a,b]&&Dnze[WV2 WV3,"V2 V3",c,a,b]&&Dpo[WW1,"W1",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[V, 1])=",Factor[WV1]},{"(Subscript[V, 2]) (Subscript[V, 3])=",Factor[WV2 WV3]},{"(Subscript[W, 1])=",Factor[WW1]},"","Finite Singularities:  n, n, (©^ρ), (©^ρ)",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[WV1,"V1",c,a,b]&&Dze[WV3,"V3",c,a,b]&&Dpo[WV2,"V2",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[V, 1])=",Factor[WV1]},{"(Subscript[V, 3])=",Factor[WV3]},{"(Subscript[V, 2])=",Factor[WV2]},"","Finite Singularities:  n, n, (©^ρ), (©^ρ)",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[-WW3,"-(Subscript[W, 3])",c,a,b]&&Dnze[𝔗4,"(Subscript[𝔗, 4])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},"","Finite Singularities:  (n^d), f, ©, ©",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[-WW3,"-(Subscript[W, 3])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dnze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  (n^d), (f^((1))), ©, ©",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[-WW3,"-(Subscript[W, 3])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dnze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dnze[𝔉2,"(Subscript[𝔉, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},"","Finite Singularities:  (n^d), (f^((2))), ©, ©",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[-WW3,"-(Subscript[W, 3])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dnze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dze[𝔉2,"(Subscript[𝔉, 2])",c,a,b]&&Dnze[𝔉3 𝔉4,"𝔉3 𝔉4",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},{"(Subscript[𝔉, 3]) (Subscript[𝔉, 4])=",Factor[𝔉3 𝔉4]},"","Finite Singularities:  (n^d), (f^((3))), ©, ©",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[-WW3,"-(Subscript[W, 3])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dnze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dze[𝔉2,"(Subscript[𝔉, 2])",c,a,b]&&Dze[𝔉3 𝔉4,"𝔉3 𝔉4",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},{"(Subscript[𝔉, 3]) (Subscript[𝔉, 4])=",Factor[𝔉3 𝔉4]},"","Finite Singularities:  (n^d), c, ©, ©",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[-WW3,"-(Subscript[W, 3])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dnze[𝔗2,"(Subscript[𝔗, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔗, 2])=",Factor[𝔗2]},"","Finite Singularities:  (n^d), f, (©^ρ), (©^ρ)",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[-WW3,"-(Subscript[W, 3])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dze[𝔗2,"(Subscript[𝔗, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔗, 2])=",Factor[𝔗2]},"","Finite Singularities:  (n^d), (f^((1))), (©^ρ), (©^ρ)",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dpo[WW3,"(Subscript[W, 3])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},,"","Finite Singularities:  (n^d), n, ©, ©",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[WW3,"(Subscript[W, 3])",c,a,b]&&Dpo[-WW2,"-(Subscript[W, 2])",c,a,b]&&Dnze[𝔗4,"(Subscript[𝔗, 4])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},"","Finite Singularities:  n, f, (©^τ), (©^τ)",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[WW3,"(Subscript[W, 3])",c,a,b]&&Dpo[-WW2,"-(Subscript[W, 2])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dnze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  n, (f^((1))), (©^τ), (©^τ)",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[WW3,"(Subscript[W, 3])",c,a,b]&&Dpo[-WW2,"-(Subscript[W, 2])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dnze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dnze[𝔉2,"(Subscript[𝔉, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},"","Finite Singularities:  n, (f^((2))), (©^τ), (©^τ)",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[WW3,"(Subscript[W, 3])",c,a,b]&&Dpo[-WW2,"-(Subscript[W, 2])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dnze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dze[𝔉2,"(Subscript[𝔉, 2])",c,a,b]&&Dnze[𝔉3 𝔉4,"𝔉3 𝔉4",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},{"(Subscript[𝔉, 3])(Subscript[𝔉, 4])=",Factor[𝔉3 𝔉4]},"","Finite Singularities:  n, (f^((3))), (©^τ), (©^τ)",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[WW3,"(Subscript[W, 3])",c,a,b]&&Dpo[-WW2,"-(Subscript[W, 2])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dnze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dze[𝔉2,"(Subscript[𝔉, 2])",c,a,b]&&Dze[𝔉3 𝔉4,"𝔉3 𝔉4",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},{"(Subscript[𝔉, 3])(Subscript[𝔉, 4])=",Factor[𝔉3 𝔉4]},"","Finite Singularities:  n, c, (©^τ), (©^τ)",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[WW3,"(Subscript[W, 3])",c,a,b]&&Dpo[WW2,"(Subscript[W, 2])",c,a,b]&&Dnze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[-WV4,"-V4",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[V, 4])=",Factor[WV4]},"","Finite Singularities:  (n^d), (n^d), ©, ©",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[WW3,"(Subscript[W, 3])",c,a,b]&&Dpo[WW2,"(Subscript[W, 2])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[-WV4,"-V4",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[V, 4])=",Factor[WV4]},"","Finite Singularities:  (n^d), (n^d), (©^ρ), (©^ρ)",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[WW3,"(Subscript[W, 3])",c,a,b]&&Dpo[WW2,"(Subscript[W, 2])",c,a,b]&&Dpo[WV4,"V4",c,a,b]&&Dpo[-WW1,"-(Subscript[W, 1])",c,a,b]&&Dnze[𝔗4,"(Subscript[𝔗, 4])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[V, 4])=",Factor[WV4]},{"(Subscript[W, 1])=",Factor[WW1]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},"","Finite Singularities:  f, f, (©^τ), (©^τ)",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[WW3,"(Subscript[W, 3])",c,a,b]&&Dpo[WW2,"(Subscript[W, 2])",c,a,b]&&Dpo[WV4,"V4",c,a,b]&&Dpo[-WW1,"-(Subscript[W, 1])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dnze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[V, 4])=",Factor[WV4]},{"(Subscript[W, 1])=",Factor[WW1]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  f, (f^((1))), (©^τ), (©^τ)",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[WW3,"(Subscript[W, 3])",c,a,b]&&Dpo[WW2,"(Subscript[W, 2])",c,a,b]&&Dpo[WV4,"V4",c,a,b]&&Dpo[-WW1,"-(Subscript[W, 1])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dnze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dnze[𝔉2,"(Subscript[𝔉, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[V, 4])=",Factor[WV4]},{"(Subscript[W, 1])=",Factor[WW1]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},"","Finite Singularities:  f, (f^((2))), (©^τ), (©^τ)",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[WW3,"(Subscript[W, 3])",c,a,b]&&Dpo[WW2,"(Subscript[W, 2])",c,a,b]&&Dpo[WV4,"V4",c,a,b]&&Dpo[-WW1,"-(Subscript[W, 1])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dnze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dze[𝔉2,"(Subscript[𝔉, 2])",c,a,b]&&Dnze[𝔉3 𝔉4,"𝔉3 𝔉4",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[V, 4])=",Factor[WV4]},{"(Subscript[W, 1])=",Factor[WW1]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},{"(Subscript[𝔉, 3])(Subscript[𝔉, 4])=",Factor[𝔉3 𝔉4]},"","Finite Singularities:  f, (f^((3))), (©^τ), (©^τ)",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[WW3,"(Subscript[W, 3])",c,a,b]&&Dpo[WW2,"(Subscript[W, 2])",c,a,b]&&Dpo[WV4,"V4",c,a,b]&&Dpo[-WW1,"-(Subscript[W, 1])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dnze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dze[𝔉2,"(Subscript[𝔉, 2])",c,a,b]&&Dze[𝔉3 𝔉4,"𝔉3 𝔉4",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[V, 4])=",Factor[WV4]},{"(Subscript[W, 1])=",Factor[WW1]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},{"(Subscript[𝔉, 3])(Subscript[𝔉, 4])=",Factor[𝔉3 𝔉4]},"","Finite Singularities:  f, c, (©^τ), (©^τ)",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[WW3,"(Subscript[W, 3])",c,a,b]&&Dpo[WW2,"(Subscript[W, 2])",c,a,b]&&Dpo[WV4,"V4",c,a,b]&&Dpo[-WW1,"-(Subscript[W, 1])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[V, 4])=",Factor[WV4]},{"(Subscript[W, 1])=",Factor[WW1]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  (f^((1))), (f^((1))), (©^τ), (©^τ)",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[WW3,"(Subscript[W, 3])",c,a,b]&&Dpo[WW2,"(Subscript[W, 2])",c,a,b]&&Dpo[WV4,"V4",c,a,b]&&Dpo[-WW1,"-(Subscript[W, 1])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[V, 4])=",Factor[WV4]},{"(Subscript[W, 1])=",Factor[WW1]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  c, c, (©^τ), (©^τ)",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[WW3,"(Subscript[W, 3])",c,a,b]&&Dpo[WW2,"(Subscript[W, 2])",c,a,b]&&Dpo[WV4,"V4",c,a,b]&&Dpo[WW1,"W1",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[V, 4])=",Factor[WV4]},{"(Subscript[W, 1])=",Factor[WW1]},"","Finite Singularities:  n, n, (©^τ), (©^τ)  ",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[WW3,"(Subscript[W, 3])",c,a,b]&&Dpo[WW2,"(Subscript[W, 2])",c,a,b]&&Dnze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[WV4,"V4",c,a,b]&&Dnze[WH1,"H1",c,a,b]&&Dpo[-WW1 WW10,"-W1 W10",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[W, 1])=",Factor[WW1]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[V, 4])=",Factor[WV4]},{"(Subscript[H, 1])=",Factor[WH1]},{"(Subscript[W, 10])=",Factor[WW10]},"","Finite Singularities:  (n^d), (n^d), ©, ©",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[WW3,"(Subscript[W, 3])",c,a,b]&&Dpo[WW2,"(Subscript[W, 2])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[WV4,"V4",c,a,b]&&Dnze[WH1,"H1",c,a,b]&&Dpo[-WW1 WW10,"-W1 W10",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[W, 1])=",Factor[WW1]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[V, 4])=",Factor[WV4]},{"(Subscript[H, 1])=",Factor[WH1]},{"(Subscript[W, 10])=",Factor[WW10]},"","Finite Singularities:  (n^d), (n^d), (©^ρ), (©^ρ)",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[WW3,"(Subscript[W, 3])",c,a,b]&&Dpo[WW2,"(Subscript[W, 2])",c,a,b]&&Dze[WV4,"V4",c,a,b]&&Dpo[-WW1,"-(Subscript[W, 1])",c,a,b]&&Dpo[-WW10,"-W10",c,a,b]&&Dnze[𝔗4,"(Subscript[𝔗, 4])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[V, 4])=",Factor[WV4]},{"(Subscript[W, 1])=",Factor[WW1]},{"(Subscript[W, 10])=",Factor[WW10]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},"","Finite Singularities:  f, f, (©^τ), (©^τ)",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[WW3,"(Subscript[W, 3])",c,a,b]&&Dpo[WW2,"(Subscript[W, 2])",c,a,b]&&Dze[WV4,"V4",c,a,b]&&Dpo[-WW1,"-(Subscript[W, 1])",c,a,b]&&Dpo[-WW10,"-W10",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dnze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[V, 4])=",Factor[WV4]},{"(Subscript[W, 1])=",Factor[WW1]},{"(Subscript[W, 10])=",Factor[WW10]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  f, (f^((1))), (©^τ), (©^τ)",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[WW3,"(Subscript[W, 3])",c,a,b]&&Dpo[WW2,"(Subscript[W, 2])",c,a,b]&&Dze[WV4,"V4",c,a,b]&&Dpo[-WW1,"-(Subscript[W, 1])",c,a,b]&&Dpo[-WW10,"-W10",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dnze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dnze[𝔉2,"(Subscript[𝔉, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[V, 4])=",Factor[WV4]},{"(Subscript[W, 1])=",Factor[WW1]},{"(Subscript[W, 10])=",Factor[WW10]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},"","Finite Singularities:  f, (f^((2))), (©^τ), (©^τ)",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[WW3,"(Subscript[W, 3])",c,a,b]&&Dpo[WW2,"(Subscript[W, 2])",c,a,b]&&Dze[WV4,"V4",c,a,b]&&Dpo[-WW1,"-(Subscript[W, 1])",c,a,b]&&Dpo[-WW10,"-W10",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dnze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dze[𝔉2,"(Subscript[𝔉, 2])",c,a,b]&&Dnze[𝔉3 𝔉4,"𝔉3 𝔉4",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[V, 4])=",Factor[WV4]},{"(Subscript[W, 1])=",Factor[WW1]},{"(Subscript[W, 10])=",Factor[WW10]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},{"(Subscript[𝔉, 3])(Subscript[𝔉, 4])=",Factor[𝔉3 𝔉4]},"","Finite Singularities:  f, (f^((3))), (©^τ), (©^τ)",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[WW3,"(Subscript[W, 3])",c,a,b]&&Dpo[WW2,"(Subscript[W, 2])",c,a,b]&&Dze[WV4,"V4",c,a,b]&&Dpo[-WW1,"-(Subscript[W, 1])",c,a,b]&&Dpo[-WW10,"-W10",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dnze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dze[𝔉2,"(Subscript[𝔉, 2])",c,a,b]&&Dze[𝔉3 𝔉4,"𝔉3 𝔉4",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[V, 4])=",Factor[WV4]},{"(Subscript[W, 1])=",Factor[WW1]},{"(Subscript[W, 10])=",Factor[WW10]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},{"(Subscript[𝔉, 3])(Subscript[𝔉, 4])=",Factor[𝔉3 𝔉4]},"","Finite Singularities:  f, c, (©^τ), (©^τ)",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[WW3,"(Subscript[W, 3])",c,a,b]&&Dpo[WW2,"(Subscript[W, 2])",c,a,b]&&Dze[WV4,"V4",c,a,b]&&Dpo[-WW1,"-(Subscript[W, 1])",c,a,b]&&Dpo[-WW10,"-W10",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[V, 4])=",Factor[WV4]},{"(Subscript[W, 1])=",Factor[WW1]},{"(Subscript[W, 10])=",Factor[WW10]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  (f^((1))), (f^((1))), (©^τ), (©^τ)",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[WW3,"(Subscript[W, 3])",c,a,b]&&Dpo[WW2,"(Subscript[W, 2])",c,a,b]&&Dze[WV4,"V4",c,a,b]&&Dpo[-WW1,"-(Subscript[W, 1])",c,a,b]&&Dpo[-WW10,"-W10",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[V, 4])=",Factor[WV4]},{"(Subscript[W, 1])=",Factor[WW1]},{"(Subscript[W, 10])=",Factor[WW10]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  c, c, (©^τ), (©^τ)",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[WW3,"(Subscript[W, 3])",c,a,b]&&Dpo[WW2,"(Subscript[W, 2])",c,a,b]&&Dpo[WW1,"W1",c,a,b]&&Dze[WV4,"V4",c,a,b]&&Dnze[WH1,"H1",c,a,b]&&Dpo[WW10,"W10",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[W, 1])=",Factor[WW1]},{"(Subscript[V, 4])=",Factor[WV4]},{"(Subscript[H, 1])=",Factor[WH1]},{"(Subscript[W, 10])=",Factor[WW10]},"","Finite Singularities:  n, n, (©^τ), (©^τ) ",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[WW3,"(Subscript[W, 3])",c,a,b]&&Dpo[WW2,"(Subscript[W, 2])",c,a,b]&&Dpo[-WW1,"-(Subscript[W, 1])",c,a,b]&&Dze[WV4,"V4",c,a,b]&&Dnze[WH1,"H1",c,a,b]&&Dze[WW10,"W10",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[W, 1])=",Factor[WW1]},{"(Subscript[V, 4])=",Factor[WV4]},{"(Subscript[H, 1])=",Factor[WH1]},{"(Subscript[W, 10])=",Factor[WW10]},"","Finite Singularities:  c, c, (©^τ), (©^τ)",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[WW3,"(Subscript[W, 3])",c,a,b]&&Dpo[WW2,"(Subscript[W, 2])",c,a,b]&&Dpo[WW1,"W1",c,a,b]&&Dnze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[WV4,"V4",c,a,b]&&Dnze[WH1,"H1",c,a,b]&&Dze[WW10,"W10",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[W, 1])=",Factor[WW1]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[V, 4])=",Factor[WV4]},{"(Subscript[H, 1])=",Factor[WH1]},{"(Subscript[W, 10])=",Factor[WW10]},"","Finite Singularities:  (n^d), (n^d), ©, ©",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[WW3,"(Subscript[W, 3])",c,a,b]&&Dpo[WW2,"(Subscript[W, 2])",c,a,b]&&Dnze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[WV4,"V4",c,a,b]&&Dze[WH1,"H1",c,a,b]&&Dpo[-WW1 WH4 WH5,"-W1 H4 H5",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[W, 1])=",Factor[WW1]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[V, 4])=",Factor[WV4]},{"(Subscript[H, 1])=",Factor[WH1]},{"(Subscript[H, 4]) (Subscript[H, 5])=",Factor[WH4 WH5]},"","Finite Singularities:  (n^d), (n^d), ©, ©",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[WW3,"(Subscript[W, 3])",c,a,b]&&Dpo[WW2,"(Subscript[W, 2])",c,a,b]&&Dpo[WW1,"W1",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[WV4,"V4",c,a,b]&&Dnze[WH1,"H1",c,a,b]&&Dze[WW10,"W10",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[W, 1])=",Factor[WW1]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[V, 4])=",Factor[WV4]},{"(Subscript[H, 1])=",Factor[WH1]},{"(Subscript[W, 10])=",Factor[WW10]},"","Finite Singularities:  (n^d), (n^d), (©^ρ), (©^ρ)",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[WW3,"(Subscript[W, 3])",c,a,b]&&Dpo[WW2,"(Subscript[W, 2])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[WV4,"V4",c,a,b]&&Dze[WH1,"H1",c,a,b]&&Dpo[-WW1 WH4 WH5,"-W1 H4 H5",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[W, 1])=",Factor[WW1]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[V, 4])=",Factor[WV4]},{"(Subscript[H, 1])=",Factor[WH1]},{"(Subscript[H, 4]) (Subscript[H, 5])=",Factor[WH4 WH5]},"","Finite Singularities:  (n^d), (n^d), (©^ρ), (©^ρ)",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[WW3,"(Subscript[W, 3])",c,a,b]&&Dpo[WW2,"(Subscript[W, 2])",c,a,b]&&Dpo[-WW1,"-(Subscript[W, 1])",c,a,b]&&Dze[WV4,"V4",c,a,b]&&Dze[WH1,"H1",c,a,b]&&Dpo[-WH4 WH5,"-H4 H5",c,a,b]&&Dnze[𝔗4,"(Subscript[𝔗, 4])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[W, 1])=",Factor[WW1]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},"","Finite Singularities:  f, f, (©^τ), (©^τ)",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[WW3,"(Subscript[W, 3])",c,a,b]&&Dpo[WW2,"(Subscript[W, 2])",c,a,b]&&Dpo[-WW1,"-(Subscript[W, 1])",c,a,b]&&Dze[WV4,"V4",c,a,b]&&Dze[WH1,"H1",c,a,b]&&Dpo[-WH4 WH5,"-H4 H5",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dnze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[W, 1])=",Factor[WW1]},{"(Subscript[V, 4])=",Factor[WV4]},{"(Subscript[H, 1])=",Factor[WH1]},{"(Subscript[H, 4]) (Subscript[H, 5])=",Factor[WH4 WH5]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  f, (f^((1))), (©^τ), (©^τ)",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[WW3,"(Subscript[W, 3])",c,a,b]&&Dpo[WW2,"(Subscript[W, 2])",c,a,b]&&Dpo[-WW1,"-(Subscript[W, 1])",c,a,b]&&Dze[WV4,"V4",c,a,b]&&Dze[WH1,"H1",c,a,b]&&Dpo[-WH4 WH5,"-H4 H5",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dnze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dnze[𝔉2,"(Subscript[𝔉, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[W, 1])=",Factor[WW1]},{"(Subscript[V, 4])=",Factor[WV4]},{"(Subscript[H, 1])=",Factor[WH1]},{"(Subscript[H, 4]) (Subscript[H, 5])=",Factor[WH4 WH5]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},"","Finite Singularities:  f, (f^((2))), (©^τ), (©^τ)",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[WW3,"(Subscript[W, 3])",c,a,b]&&Dpo[WW2,"(Subscript[W, 2])",c,a,b]&&Dpo[-WW1,"-(Subscript[W, 1])",c,a,b]&&Dze[WV4,"V4",c,a,b]&&Dze[WH1,"H1",c,a,b]&&Dpo[-WH4 WH5,"-H4 H5",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dnze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dze[𝔉2,"(Subscript[𝔉, 2])",c,a,b]&&Dnze[𝔉3 𝔉4,"𝔉3 𝔉4",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[W, 1])=",Factor[WW1]},{"(Subscript[V, 4])=",Factor[WV4]},{"(Subscript[H, 1])=",Factor[WH1]},{"(Subscript[H, 4]) (Subscript[H, 5])=",Factor[WH4 WH5]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},{"(Subscript[𝔉, 3])(Subscript[𝔉, 4])=",Factor[𝔉3 𝔉4]},"","Finite Singularities:  f, (f^((3))), (©^τ), (©^τ)",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[WW3,"(Subscript[W, 3])",c,a,b]&&Dpo[WW2,"(Subscript[W, 2])",c,a,b]&&Dpo[-WW1,"-(Subscript[W, 1])",c,a,b]&&Dze[WV4,"V4",c,a,b]&&Dze[WH1,"H1",c,a,b]&&Dpo[-WH4 WH5,"-H4 H5",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dnze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dze[𝔉2,"(Subscript[𝔉, 2])",c,a,b]&&Dze[𝔉3 𝔉4,"𝔉3 𝔉4",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[W, 1])=",Factor[WW1]},{"(Subscript[V, 4])=",Factor[WV4]},{"(Subscript[H, 1])=",Factor[WH1]},{"(Subscript[H, 4]) (Subscript[H, 5])=",Factor[WH4 WH5]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},{"(Subscript[𝔉, 3])(Subscript[𝔉, 4])=",Factor[𝔉3 𝔉4]},"","Finite Singularities:  f, c, (©^τ), (©^τ)",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[WW3,"(Subscript[W, 3])",c,a,b]&&Dpo[WW2,"(Subscript[W, 2])",c,a,b]&&Dpo[-WW1,"-(Subscript[W, 1])",c,a,b]&&Dze[WV4,"V4",c,a,b]&&Dze[WH1,"H1",c,a,b]&&Dpo[-WH4 WH5,"-H4 H5",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[W, 1])=",Factor[WW1]},{"(Subscript[V, 4])=",Factor[WV4]},{"(Subscript[H, 1])=",Factor[WH1]},{"(Subscript[H, 4]) (Subscript[H, 5])=",Factor[WH4 WH5]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  (f^((1))), (f^((1))), (©^τ), (©^τ)",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[WW3,"(Subscript[W, 3])",c,a,b]&&Dpo[WW2,"(Subscript[W, 2])",c,a,b]&&Dpo[-WW1,"-(Subscript[W, 1])",c,a,b]&&Dze[WV4,"V4",c,a,b]&&Dze[WH1,"H1",c,a,b]&&Dpo[-WH4 WH5,"-H4 H5",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[W, 1])=",Factor[WW1]},{"(Subscript[V, 4])=",Factor[WV4]},{"(Subscript[H, 1])=",Factor[WH1]},{"(Subscript[H, 4]) (Subscript[H, 5])=",Factor[WH4 WH5]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  c, c, (©^τ), (©^τ)",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[WW3,"(Subscript[W, 3])",c,a,b]&&Dpo[WW2,"(Subscript[W, 2])",c,a,b]&&Dpo[WW1,"W1",c,a,b]&&Dze[WV4,"V4",c,a,b]&&Dze[WH1,"H1",c,a,b]&&Dpo[WH4 WH5,"H4 H5",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[W, 1])=",Factor[WW1]},{"(Subscript[V, 4])=",Factor[WV4]},{"(Subscript[H, 1])=",Factor[WH1]},{"(Subscript[H, 4]) (Subscript[H, 5])=",Factor[WH4 WH5]},"","Finite Singularities:  n, n, (©^τ), (©^τ) ",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[WW3,"(Subscript[W, 3])",c,a,b]&&Dze[WW2,"(Subscript[W, 2])",c,a,b]&&Dpo[WW1,"W1",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[W, 1])=",Factor[WW1]},"","Finite Singularities:  n, (n^d), (©^τ), (©^τ)",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[WW3,"(Subscript[W, 3])",c,a,b]&&Dze[WW2,"(Subscript[W, 2])",c,a,b]&&Dpo[-WW1,"-(Subscript[W, 1])",c,a,b]&&Dnze[𝔗4,"(Subscript[𝔗, 4])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[W, 1])=",Factor[WW1]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},"","Finite Singularities:  f, (n^d), (©^τ), (©^τ)",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[WW3,"(Subscript[W, 3])",c,a,b]&&Dze[WW2,"(Subscript[W, 2])",c,a,b]&&Dpo[-WW1,"-(Subscript[W, 1])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dnze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[W, 1])=",Factor[WW1]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  (n^d), (f^((1))), (©^τ), (©^τ)",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[WW3,"(Subscript[W, 3])",c,a,b]&&Dze[WW2,"(Subscript[W, 2])",c,a,b]&&Dpo[-WW1,"-(Subscript[W, 1])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dnze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dnze[𝔉2,"(Subscript[𝔉, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[W, 1])=",Factor[WW1]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},"","Finite Singularities:  (n^d), (f^((2))), (©^τ), (©^τ)",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[WW3,"(Subscript[W, 3])",c,a,b]&&Dze[WW2,"(Subscript[W, 2])",c,a,b]&&Dpo[-WW1,"-(Subscript[W, 1])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dnze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dze[𝔉2,"(Subscript[𝔉, 2])",c,a,b]&&Dnze[𝔉3 𝔉4,"𝔉3 𝔉4",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[W, 1])=",Factor[WW1]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},{"(Subscript[𝔉, 3]) (Subscript[𝔉, 4])=",Factor[𝔉3 𝔉4]},"","Finite Singularities:  (n^d), (f^((3))), (©^τ), (©^τ)",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[WW3,"(Subscript[W, 3])",c,a,b]&&Dze[WW2,"(Subscript[W, 2])",c,a,b]&&Dpo[-WW1,"-(Subscript[W, 1])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dnze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dze[𝔉2,"(Subscript[𝔉, 2])",c,a,b]&&Dze[𝔉3 𝔉4,"𝔉3 𝔉4",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[W, 1])=",Factor[WW1]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},{"(Subscript[𝔉, 3]) (Subscript[𝔉, 4])=",Factor[𝔉3 𝔉4]},"","Finite Singularities:  (n^d), c, (©^τ), (©^τ)",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[WK,"(Overscript[K, ∼])",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[WW3,"(Subscript[W, 3])",c,a,b]&&Dze[WW2,"(Subscript[W, 2])",c,a,b]&&Dze[WW1,"W1",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[W, 1])=",Factor[WW1]},"","Finite Singularities:  (n^d), (n^d), (©^τ), (©^τ)",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dnze[𝔗4,"(Subscript[𝔗, 4])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},"","Finite Singularities:  s, f, ©, ©",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[-𝔗3 𝔉,"-(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  s, (f^((1))), ©, ©",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[-𝔗3 𝔉,"-(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dnze[𝔉2,"(Subscript[𝔉, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},"","Finite Singularities:  s, (f^((2))), ©, ©",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[-𝔗3 𝔉,"-(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dze[𝔉2,"(Subscript[𝔉, 2])",c,a,b]&&Dnze[𝔉3 𝔉4,"𝔉3 𝔉4",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},{"(Subscript[𝔉, 3]) (Subscript[𝔉, 4])=",Factor[𝔉3 𝔉4]},"","Finite Singularities:  s, (f^((3))), ©, ©",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[-𝔗3 𝔉,"-(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dze[𝔉2,"(Subscript[𝔉, 2])",c,a,b]&&Dze[𝔉3 𝔉4,"𝔉3 𝔉4",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},{"(Subscript[𝔉, 3]) (Subscript[𝔉, 4])=",Factor[𝔉3 𝔉4]},"","Finite Singularities:  s, c, ©, ©",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[𝔗3 𝔉,"(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  f, (s^((1))), ©, ©",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[𝔗3 𝔉,"(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dnze[𝔉2,"(Subscript[𝔉, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},"","Finite Singularities:  f, (s^((2))), ©, ©",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[𝔗3 𝔉,"(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dze[𝔉2,"(Subscript[𝔉, 2])",c,a,b]&&Dnze[𝔉3 𝔉4,"𝔉3 𝔉4",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},{"(Subscript[𝔉, 3]) (Subscript[𝔉, 4])=",Factor[𝔉3 𝔉4]},"","Finite Singularities:  f, (s^((3))), ©, ©",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[𝔗3 𝔉,"(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dze[𝔉2,"(Subscript[𝔉, 2])",c,a,b]&&Dze[𝔉3 𝔉4,"𝔉3 𝔉4",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},{"(Subscript[𝔉, 3]) (Subscript[𝔉, 4])=",Factor[𝔉3 𝔉4]},"","Finite Singularities:  $, f, ©, ©",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dnze[𝔗2,"(Subscript[𝔗, 2])",c,a,b]&&Dpo[-𝔅5,"(Subscript[𝔅, 5])",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔗, 2])=",Factor[𝔗2]},{"(Subscript[𝔅, 5])=",Factor[𝔅5]},{"𝔉1=",Factor[𝔉1]},"","Finite Singularities:  (s^((1))), (f^((1))), ©, ©",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dnze[𝔗2,"(Subscript[𝔗, 2])",c,a,b]&&Dze[𝔅5,"(Subscript[𝔅, 5])",c,a,b]&&Dpo[-𝔅,"𝔅",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔗, 2])=",Factor[𝔗2]},{"(Subscript[𝔅, 5])=",Factor[𝔅5]},{"𝔉1=",Factor[𝔉1]},"","Finite Singularities:  (s^((1))), (f^((1))), ©, ©",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dnze[𝔗2,"(Subscript[𝔗, 2])",c,a,b]&&Dpo[-𝔅5,"(Subscript[𝔅, 5])",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔗, 2])=",Factor[𝔗2]},{"(Subscript[𝔅, 5])=",Factor[𝔅5]},{"𝔉1=",Factor[𝔉1]},"","Finite Singularities:  $, c, ©, ©",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dnze[𝔗2,"(Subscript[𝔗, 2])",c,a,b]&&Dze[𝔅5,"(Subscript[𝔅, 5])",c,a,b]&&Dpo[-𝔅,"𝔅",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔗, 2])=",Factor[𝔗2]},{"(Subscript[𝔅, 5])=",Factor[𝔅5]},{"𝔉1=",Factor[𝔉1]},"","Finite Singularities:  $, c, ©, ©",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dnze[𝔗2,"(Subscript[𝔗, 2])",c,a,b]&&Dpo[𝔅5,"(Subscript[𝔅, 5])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔗, 2])=",Factor[𝔗2]},{"(Subscript[𝔅, 5])=",Factor[𝔅5]},{"𝔉1=",Factor[𝔉1]},"","Finite Singularities:  s, f, (©^ρ), (©^ρ)",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dnze[𝔗2,"(Subscript[𝔗, 2])",c,a,b]&&Dze[𝔅5,"(Subscript[𝔅, 5])",c,a,b]&&Dpo[𝔅,"𝔅",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔗, 2])=",Factor[𝔗2]},{"(Subscript[𝔅, 5])=",Factor[𝔅5]},{"𝔉1=",Factor[𝔉1]},"","Finite Singularities:  s, f, (©^ρ), (©^ρ)",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dnze[𝔗2,"(Subscript[𝔗, 2])",c,a,b]&&Dze[𝔅5,"(Subscript[𝔅, 5])",c,a,b]&&Dze[𝔅,"𝔅",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔗, 2])=",Factor[𝔗2]},{"(Subscript[𝔅, 5])=",Factor[𝔅5]},{"𝔉1=",Factor[𝔉1]},"","Finite Singularities:  s, f, (©^ρ), (©^ρ)",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[-WW4,"-(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dze[𝔗2,"(Subscript[𝔗, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔗, 2])=",Factor[𝔗2]},"","Finite Singularities:  $, c, (©^ρ), (©^ρ)",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dnze[𝔗4,"(Subscript[𝔗, 4])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},"","Finite Singularities:  s, n, ©, ©",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dnze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  n, (s^((1))), ©, ©",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dnze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dnze[𝔉2,"(Subscript[𝔉, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},"","Finite Singularities:  n, (s^((2))), ©, ©",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dnze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dze[𝔉2,"(Subscript[𝔉, 2])",c,a,b]&&Dnze[𝔉3 𝔉4,"𝔉3 𝔉4",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},{"(Subscript[𝔉, 3]) (Subscript[𝔉, 4])=",Factor[𝔉3 𝔉4]},"","Finite Singularities:  n, (s^((3))), ©, ©",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dnze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dze[𝔉2,"(Subscript[𝔉, 2])",c,a,b]&&Dze[𝔉3 𝔉4,"𝔉3 𝔉4",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},{"(Subscript[𝔉, 3]) (Subscript[𝔉, 4])=",Factor[𝔉3 𝔉4]},"","Finite Singularities:  $, n, ©, ©",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dpo[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dnze[𝔗2,"(Subscript[𝔗, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔗, 2])=",Factor[𝔗2]},"","Finite Singularities:  n, s, (©^ρ), (©^ρ)",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dnze[WW3,"(Subscript[W, 3])",c,a,b]&&Dnze[𝔗4,"(Subscript[𝔗, 4])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},"","Finite Singularities:  (n^d), s, ©, ©",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dnze[WW3,"(Subscript[W, 3])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dnze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  (n^d), (s^((1))), ©, ©",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dnze[WW3,"(Subscript[W, 3])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dnze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dnze[𝔉2,"(Subscript[𝔉, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},"","Finite Singularities:  (n^d), (s^((2))), ©, ©",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dnze[WW3,"(Subscript[W, 3])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dnze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dze[𝔉2,"(Subscript[𝔉, 2])",c,a,b]&&Dnze[𝔉3 𝔉4,"𝔉3 𝔉4",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},{"(Subscript[𝔉, 3]) (Subscript[𝔉, 4])=",Factor[𝔉3 𝔉4]},"","Finite Singularities:  (n^d), (s^((3))), ©, ©",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dnze[WW3,"(Subscript[W, 3])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dnze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dze[𝔉2,"(Subscript[𝔉, 2])",c,a,b]&&Dze[𝔉3 𝔉4,"𝔉3 𝔉4",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},{"(Subscript[𝔉, 3]) (Subscript[𝔉, 4])=",Factor[𝔉3 𝔉4]},"","Finite Singularities:  $, (n^d), ©, ©",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dnze[WW3,"(Subscript[W, 3])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dnze[𝔗2,"(Subscript[𝔗, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔗, 2])=",Factor[𝔗2]},"","Finite Singularities:  (n^d), s, (©^ρ), (©^ρ)",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dnze[WW3,"(Subscript[W, 3])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dze[𝔗2,"(Subscript[𝔗, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔗, 2])=",Factor[𝔗2]},"","Finite Singularities:  (n^d), (s^((1))), (©^ρ), (©^ρ)",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[WW3,"(Subscript[W, 3])",c,a,b]&&Dpo[-WW2,"-(Subscript[W, 2])",c,a,b]&&Dnze[𝔗4,"(Subscript[𝔗, 4])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},"","Finite Singularities:  f, s, (©^τ), (©^τ)",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[WW3,"(Subscript[W, 3])",c,a,b]&&Dpo[-WW2,"-(Subscript[W, 2])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[-𝔗3 𝔉,"-(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  (f^((1))), s, (©^τ), (©^τ)",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[WW3,"(Subscript[W, 3])",c,a,b]&&Dpo[-WW2,"-(Subscript[W, 2])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[-𝔗3 𝔉,"-(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dnze[𝔉2,"(Subscript[𝔉, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},"","Finite Singularities:  (f^((2))), s, (©^τ), (©^τ)",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[WW3,"(Subscript[W, 3])",c,a,b]&&Dpo[-WW2,"-(Subscript[W, 2])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[-𝔗3 𝔉,"-(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dze[𝔉2,"(Subscript[𝔉, 2])",c,a,b]&&Dnze[𝔉3 𝔉4,"𝔉3 𝔉4",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},{"(Subscript[𝔉, 3]) (Subscript[𝔉, 4])=",Factor[𝔉3 𝔉4]},"","Finite Singularities:  (f^((3))), s, (©^τ), (©^τ)",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[WW3,"(Subscript[W, 3])",c,a,b]&&Dpo[-WW2,"-(Subscript[W, 2])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[-𝔗3 𝔉,"-(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dze[𝔉2,"(Subscript[𝔉, 2])",c,a,b]&&Dze[𝔉3 𝔉4,"𝔉3 𝔉4",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},{"(Subscript[𝔉, 3]) (Subscript[𝔉, 4])=",Factor[𝔉3 𝔉4]},"","Finite Singularities:  c, s, (©^τ), (©^τ)",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[WW3,"(Subscript[W, 3])",c,a,b]&&Dpo[-WW2,"-(Subscript[W, 2])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[𝔗3 𝔉,"(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  (s^((1))), f, (©^τ), (©^τ)",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[WW3,"(Subscript[W, 3])",c,a,b]&&Dpo[-WW2,"-(Subscript[W, 2])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[𝔗3 𝔉,"(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dnze[𝔉2,"(Subscript[𝔉, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},"","Finite Singularities:  (s^((2))), f, (©^τ), (©^τ)",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[WW3,"(Subscript[W, 3])",c,a,b]&&Dpo[-WW2,"-(Subscript[W, 2])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[𝔗3 𝔉,"(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dze[𝔉2,"(Subscript[𝔉, 2])",c,a,b]&&Dnze[𝔉3 𝔉4,"𝔉3 𝔉4",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},{"(Subscript[𝔉, 3]) (Subscript[𝔉, 4])=",Factor[𝔉3 𝔉4]},"","Finite Singularities:  (s^((3))), f, (©^τ), (©^τ)",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[WW3,"(Subscript[W, 3])",c,a,b]&&Dpo[-WW2,"-(Subscript[W, 2])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dpo[𝔗3 𝔉,"(Subscript[𝔗, 3]) 𝔉",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dze[𝔉2,"(Subscript[𝔉, 2])",c,a,b]&&Dze[𝔉3 𝔉4,"𝔉3 𝔉4",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3]) 𝔉=",Factor[𝔗3 𝔉]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},{"(Subscript[𝔉, 3]) (Subscript[𝔉, 4])=",Factor[𝔉3 𝔉4]},"","Finite Singularities:  $, f, (©^τ), (©^τ)",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[WW3,"(Subscript[W, 3])",c,a,b]&&Dpo[-WW2,"-(Subscript[W, 2])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔗3,"(Subscript[𝔗, 3])",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dze[𝔉2,"(Subscript[𝔉, 2])",c,a,b]&&Dze[𝔉3 𝔉4,"𝔉3 𝔉4",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔗, 3])=",Factor[𝔗3]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},{"(Subscript[𝔉, 3]) (Subscript[𝔉, 4])=",Factor[𝔉3 𝔉4]},"","Finite Singularities:  $, c, (©^τ), (©^τ)",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[WW3,"(Subscript[W, 3])",c,a,b]&&Dpo[WW2,"(Subscript[W, 2])",c,a,b]&&Dnze[𝔗4,"(Subscript[𝔗, 4])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},"","Finite Singularities:  n, s, (©^τ), (©^τ)",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[WW3,"(Subscript[W, 3])",c,a,b]&&Dpo[WW2,"(Subscript[W, 2])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  n, (s^((1))), (©^τ), (©^τ)",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[WW3,"(Subscript[W, 3])",c,a,b]&&Dpo[WW2,"(Subscript[W, 2])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dnze[𝔉2,"(Subscript[𝔉, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},"","Finite Singularities:  n, (s^((2))), (©^τ), (©^τ)",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[WW3,"(Subscript[W, 3])",c,a,b]&&Dpo[WW2,"(Subscript[W, 2])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dze[𝔉2,"(Subscript[𝔉, 2])",c,a,b]&&Dnze[𝔉3 𝔉4,"𝔉3 𝔉4",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},{"(Subscript[𝔉, 3]) (Subscript[𝔉, 4])=",Factor[𝔉3 𝔉4]},"","Finite Singularities:  n, (s^((3))), (©^τ), (©^τ)",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[WW3,"(Subscript[W, 3])",c,a,b]&&Dpo[WW2,"(Subscript[W, 2])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dze[𝔉2,"(Subscript[𝔉, 2])",c,a,b]&&Dze[𝔉3 𝔉4,"𝔉3 𝔉4",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},{"(Subscript[𝔉, 3]) (Subscript[𝔉, 4])=",Factor[𝔉3 𝔉4]},"","Finite Singularities:  $, n, (©^τ), (©^τ)",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[WW3,"(Subscript[W, 3])",c,a,b]&&Dze[WW2,"(Subscript[W, 2])",c,a,b]&&Dnze[𝔗4,"(Subscript[𝔗, 4])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},"","Finite Singularities:  (n^d), s, (©^τ), (©^τ)",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[WW3,"(Subscript[W, 3])",c,a,b]&&Dze[WW2,"(Subscript[W, 2])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dnze[𝔉1,"(Subscript[𝔉, 1])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},"","Finite Singularities:  (n^d), (s^((1))), (©^τ), (©^τ)",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[WW3,"(Subscript[W, 3])",c,a,b]&&Dze[WW2,"(Subscript[W, 2])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dnze[𝔉2,"(Subscript[𝔉, 2])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},"","Finite Singularities:  (n^d), (s^((2))), (©^τ), (©^τ)",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[WW3,"(Subscript[W, 3])",c,a,b]&&Dze[WW2,"(Subscript[W, 2])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dze[𝔉2,"(Subscript[𝔉, 2])",c,a,b]&&Dnze[𝔉3 𝔉4,"𝔉3 𝔉4",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},{"(Subscript[𝔉, 3]) (Subscript[𝔉, 4])=",Factor[𝔉3 𝔉4]},"","Finite Singularities:  (n^d), (s^((3))), (©^τ), (©^τ)",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[𝔻,"𝔻",c,a,b]&&Dze[WW4,"(Subscript[W, 4])",c,a,b]&&Dze[WW3,"(Subscript[W, 3])",c,a,b]&&Dze[WW2,"(Subscript[W, 2])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b]&&Dze[𝔉1,"(Subscript[𝔉, 1])",c,a,b]&&Dze[𝔉2,"(Subscript[𝔉, 2])",c,a,b]&&Dze[𝔉3 𝔉4,"𝔉3 𝔉4",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"(Subscript[W, 4])=",Factor[WW4]},{"(Subscript[W, 3])=",Factor[WW3]},{"(Subscript[W, 2])=",Factor[WW2]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"(Subscript[𝔉, 1])=",Factor[𝔉1]},{"(Subscript[𝔉, 2])=",Factor[𝔉2]},{"(Subscript[𝔉, 3]) (Subscript[𝔉, 4])=",Factor[𝔉3 𝔉4]},"","Finite Singularities:  $, (n^d), (©^τ), (©^τ)",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dze[𝕋,"𝕋",c,a,b]&&Dze[ℙ,"ℙ",c,a,b]&&Dze[ℝ,"ℝ",c,a,b]&&Dnze[WF1,"(Overscript[D, ∼])",c,a,b]&&Dnze[𝔗4,"(Subscript[𝔗, 4])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕋=",Factor[𝕋]},{"ℙ=",Factor[ℙ]},{"ℝ=",Factor[ℝ]},{"(Overscript[D, ∼])=",Factor[WF1]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},"","Finite Singularities:  (Subscript[(OverBar[sn]), (4)])",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dze[𝕋,"𝕋",c,a,b]&&Dze[ℙ,"ℙ",c,a,b]&&Dze[ℝ,"ℝ",c,a,b]&&Dnze[WF1,"(Overscript[D, ∼])",c,a,b]&&Dze[𝔗4,"(Subscript[𝔗, 4])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕋=",Factor[𝕋]},{"ℙ=",Factor[ℙ]},{"ℝ=",Factor[ℝ]},{"(Overscript[D, ∼])=",Factor[WF1]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},"","Finite Singularities:  (Subscript[(OverHat[sn]), (4)])",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dze[𝕋,"𝕋",c,a,b]&&Dze[ℙ,"ℙ",c,a,b]&&Dze[ℝ,"ℝ",c,a,b]&&Dze[WF1,"(Overscript[D, ∼])",c,a,b]&&Dpo[-η,"-η",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕋=",Factor[𝕋]},{"ℙ=",Factor[ℙ]},{"ℝ=",Factor[ℝ]},{"(Overscript[D, ∼])=",Factor[WF1]},{"η=",Factor[η]},"","Finite Singularities:  (Subscript[hh, (4)])",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dze[𝕋,"𝕋",c,a,b]&&Dze[ℙ,"ℙ",c,a,b]&&Dze[ℝ,"ℝ",c,a,b]&&Dze[WF1,"(Overscript[D, ∼])",c,a,b]&&Dpo[η,"η",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕋=",Factor[𝕋]},{"ℙ=",Factor[ℙ]},{"ℝ=",Factor[ℝ]},{"(Overscript[D, ∼])=",Factor[WF1]},{"η=",Factor[η]},"","Finite Singularities:  (Subscript[pphpph, (4)])",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dze[𝕋,"𝕋",c,a,b]&&Dze[ℙ,"ℙ",c,a,b]&&Dze[ℝ,"ℝ",c,a,b]&&Dze[WF1,"(Overscript[D, ∼])",c,a,b]&&Dze[η,"η",c,a,b]&&Dnze[WM,"(Overscript[M, ∼])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕋=",Factor[𝕋]},{"ℙ=",Factor[ℙ]},{"ℝ=",Factor[ℝ]},{"(Overscript[D, ∼])=",Factor[WF1]},{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},"","Finite Singularities:  (Subscript[phph, (4)])",""}]],

Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dze[𝕋,"𝕋",c,a,b]&&Dze[ℙ,"ℙ",c,a,b]&&Dze[ℝ,"ℝ",c,a,b]&&Dze[WF1,"(Overscript[D, ∼])",c,a,b]&&Dze[η,"η",c,a,b]&&Dze[WM,"(Overscript[M, ∼])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕋=",Factor[𝕋]},{"ℙ=",Factor[ℙ]},{"ℝ=",Factor[ℝ]},{"(Overscript[D, ∼])=",Factor[WF1]},{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},"","Finite Singularities:  (Subscript[hh, (4)])",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dze[𝕋,"𝕋",c,a,b]&&Dze[ℙ,"ℙ",c,a,b]&&Dze[ℝ,"ℝ",c,a,b]&&Dze[WF1,"(Overscript[D, ∼])",c,a,b]&&Dpo[η,"η",c,a,b]&&Dpo[-κ,"-κ",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕋=",Factor[𝕋]},{"ℙ=",Factor[ℙ]},{"ℝ=",Factor[ℝ]},{"(Overscript[D, ∼])=",Factor[WF1]},{"η=",Factor[η]},{"κ=",Factor[κ]},"","Finite Singularities:  (Subscript[ppeppe, (4)])",""}]],

Dpo[-μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dze[𝕋,"𝕋",c,a,b]&&Dze[ℙ,"ℙ",c,a,b]&&Dze[ℝ,"ℝ",c,a,b]&&Dze[WF1,"(Overscript[D, ∼])",c,a,b]&&Dpo[η,"η",c,a,b]&&Dpo[κ,"κ",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕋=",Factor[𝕋]},{"ℙ=",Factor[ℙ]},{"ℝ=",Factor[ℝ]},{"(Overscript[D, ∼])=",Factor[WF1]},{"η=",Factor[η]},{"κ=",Factor[κ]},"","Finite Singularities:  (Subscript[hhhhhh, (4)])",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dze[𝕋,"𝕋",c,a,b]&&Dze[ℙ,"ℙ",c,a,b]&&Dze[ℝ,"ℝ",c,a,b]&&Dze[WF1,"(Overscript[D, ∼])",c,a,b]&&Dze[η,"η",c,a,b]&&Dnze[WM,"(Overscript[M, ∼])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕋=",Factor[𝕋]},{"ℙ=",Factor[ℙ]},{"ℝ=",Factor[ℝ]},{"(Overscript[D, ∼])=",Factor[WF1]},{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},"","Finite Singularities:  (Subscript[pepe, (4)])",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dze[𝕋,"𝕋",c,a,b]&&Dze[ℙ,"ℙ",c,a,b]&&Dze[ℝ,"ℝ",c,a,b]&&Dze[WF1,"(Overscript[D, ∼])",c,a,b]&&Dze[η,"η",c,a,b]&&Dze[WM,"(Overscript[M, ∼])",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕋=",Factor[𝕋]},{"ℙ=",Factor[ℙ]},{"ℝ=",Factor[ℝ]},{"(Overscript[D, ∼])=",Factor[WF1]},{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},"","Finite Singularities:  (Subscript[ee, (4)])",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dze[𝔻,"𝔻",c,a,b]&&Dze[𝕋,"𝕋",c,a,b]&&Dze[ℙ,"ℙ",c,a,b]&&Dze[ℝ,"ℝ",c,a,b]&&Dze[WF1,"(Overscript[D, ∼])",c,a,b]&&Dpo[-η,"-η",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕋=",Factor[𝕋]},{"ℙ=",Factor[ℙ]},{"ℝ=",Factor[ℝ]},{"(Overscript[D, ∼])=",Factor[WF1]},{"η=",Factor[η]},"","Finite Singularities:  (Subscript[ee, (4)])",""}]],

Dpo[-μ0,"-μ0",c,a,b]&&Dpo[-𝔻,"-𝔻",c,a,b]&&Dpo[ℝ,"ℝ",c,a,b]&&Dpo[𝕊,"𝕊",c,a,b]&&Dze[WF1,"(Overscript[D, ∼])",c,a,b]&&Dpo[-η,"-η",c,a,b],Print2[Column[{{"(Subscript[μ, 0])=",Factor[μ0]},{"𝔻=",Factor[𝔻]},{"𝕋=",Factor[𝕋]},{"ℙ=",Factor[ℙ]},{"ℝ=",Factor[ℝ]},{"(Overscript[D, ∼])=",Factor[WF1]},{"η=",Factor[η]},"","Finite Singularities:  (Subscript[ee, (4)])",""}]],

Dnze[μ0,"(Subscript[μ, 0])",c,a,b],Print2["Under Work"],

True,Print2["Something fails"]
]}

CSP[c_,a_,b_]:={finiteGeo[c,a,b],infiniteG[c,a,b]}

infiniteGeo makes a complete description of infinite singular points for a parametrized system up to GEOMETRICAL EQUIVALENCE. The set "c" are the equalities know among the parameters, "a" corresponds to expressions known to be positive and "b" to expressions known to be different from zero.

printinfGinv:=Print2[Column[{{"WC2=",Factor[WC2]},{"η=",Factor[η]},{"WM=",Factor[WM]},{"μ0=",Factor[μ0]},{"μ1=",Factor[μ1]},{"μ2=",Factor[μ2]},{"μ3=",Factor[μ3]},{"μ4=",Factor[μ4]},{"θ=",Factor[θ]},{"θ1=",Factor[θ1]},{"θ2=",Factor[θ2]},{"θ3=",Factor[θ3]},{"θ4=",Factor[θ4]},{"θ5=",Factor[θ5]},{"θ6=",Factor[θ6]},{"κ=",Factor[κ]},{"κ1=",Factor[κ1]},{"κ2=",Factor[κ2]},{"(OverTilde[K])=",Factor[(OverTilde[K])]},{"WL=",Factor[WL]},{"WK1=",Factor[WK1]},{"WK2=",Factor[WK2]},{"WK3=",Factor[WK3]},{"WL1=",Factor[WL1]},{"WL2=",Factor[WL2]},{"WL3=",Factor[WL3]},{"WR=",Factor[WR]},{"WN=",Factor[WN]}}]];

printInfGeoInv:=Print2[Column[{{"WC2=",Factor[WC2]},{"η=",Factor[η]},{"WM=",Factor[WM]},{"μ0=",Factor[μ0]},{"μ1=",Factor[μ1]},{"μ2=",Factor[μ2]},{"μ3=",Factor[μ3]},{"μ4=",Factor[μ4]},{"θ=",Factor[θ]},{"θ1=",Factor[θ1]},{"θ2=",Factor[θ2]},{"θ3=",Factor[θ3]},{"θ4=",Factor[θ4]},{"θ5=",Factor[θ5]},{"θ6=",Factor[θ6]},{"κ=",Factor[κ]},{"κ1=",Factor[κ1]},{"κ2=",Factor[κ2]},{"(OverTilde[K])=",Factor[(OverTilde[K])]},{"WL=",Factor[WL]},{"WK1=",Factor[WK1]},{"WK2=",Factor[WK2]},{"WK3=",Factor[WK3]},{"WL1=",Factor[WL1]},{"WL2=",Factor[WL2]},{"WL3=",Factor[WL3]},{"WR=",Factor[WR]},{"WN=",Factor[WN]}}]];

infiniteG[c_,a_,b_]:=infiniteGeo[c,a,b]

infiniteGeo[c_,a_,b_]:={η=FullSimplify[η];tot=Union[Table[c[[i]]==0,{i,1,Length[c]}],Table[a[[i]]>0,{i,1,Length[a]}],Table[b[[i]]^2>0,{i,1,Length[b]}],Table[b[[i]]≠0,{i,1,Length[b]}],{var1≠0},{var2≠0}];Which[

Dpo[η,"η",c,a,b]&&Dpo[-μ0,"-μ0",c,a,b]&&Dpo[-κ,"-κ",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Subscript[μ, 0])=",Factor[μ0]},{"κ=",Factor[κ]},"Infinite Singularities:  S, S, (N^∞) (Config. 7)"}]],

Dpo[η,"η",c,a,b]&&Dpo[-μ0,"-μ0",c,a,b]&&Dpo[κ,"κ",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Subscript[μ, 0])=",Factor[μ0]},{"κ=",Factor[κ]},"Infinite Singularities:  (N^f), (N^f), (N^f) (Config. 1)"}]],

Dpo[η,"η",c,a,b]&&Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[-θ,"-θ",c,a,b]&&Dpo[-θ1,"-θ1",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Subscript[μ, 0])=",Factor[μ0]},{"θ=",Factor[θ]},{"(Subscript[θ, 1])=",Factor[θ1]},"Infinite Singularities:  S, (N^∞), (N^∞) (Config. 5)"}]],

Dpo[η,"η",c,a,b]&&Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[-θ,"-θ",c,a,b]&&Dpo[θ1,"θ1",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Subscript[μ, 0])=",Factor[μ0]},{"θ=",Factor[θ]},{"(Subscript[θ, 1])=",Factor[θ1]},"Infinite Singularities:  S, (N^f), (N^f) (Config. 5)"}]],

Dpo[η,"η",c,a,b]&&Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[θ,"θ",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Subscript[μ, 0])=",Factor[μ0]},{"θ=",Factor[θ]},"Infinite Singularities:  S, (N^f), (N^∞) (Config. 5)"}]],

Dpo[η,"η",c,a,b]&&Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[θ,"θ",c,a,b]&&Dpo[-θ1,"-θ1",c,a,b]&&Dnze[θ2,"θ2",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Subscript[μ, 0])=",Factor[μ0]},{"θ=",Factor[θ]},{"(Subscript[θ, 1])=",Factor[θ1]},{"(Subscript[θ, 2])=",Factor[θ2]},"Infinite Singularities:  S, (N^∞), (N^d) (Config. 5)"}]],

Dpo[η,"η",c,a,b]&&Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[θ,"θ",c,a,b]&&Dpo[-θ1,"-θ1",c,a,b]&&Dze[θ2,"θ2",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Subscript[μ, 0])=",Factor[μ0]},{"θ=",Factor[θ]},{"(Subscript[θ, 1])=",Factor[θ1]},{"(Subscript[θ, 2])=",Factor[θ2]},"Infinite Singularities:  S, (N^∞), (SuperStar[N]) (Config. 5)"}]],

Dpo[η,"η",c,a,b]&&Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[θ,"θ",c,a,b]&&Dpo[θ1,"θ1",c,a,b]&&Dnze[θ2,"θ2",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Subscript[μ, 0])=",Factor[μ0]},{"θ=",Factor[θ]},{"(Subscript[θ, 1])=",Factor[θ1]},{"(Subscript[θ, 2])=",Factor[θ2]},"Infinite Singularities:  S, (N^f), (N^d) (Config. 5)"}]],

Dpo[η,"η",c,a,b]&&Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[θ,"θ",c,a,b]&&Dpo[θ1,"θ1",c,a,b]&&Dze[θ2,"θ2",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Subscript[μ, 0])=",Factor[μ0]},{"θ=",Factor[θ]},{"(Subscript[θ, 1])=",Factor[θ1]},{"(Subscript[θ, 2])=",Factor[θ2]},"Infinite Singularities:  S, (N^f), (SuperStar[N]) (Config. 5)"}]],

Dpo[η,"η",c,a,b]&&Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[θ,"θ",c,a,b]&&Dze[θ1,"θ1",c,a,b]&&Dnze[θ3,"θ3",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Subscript[μ, 0])=",Factor[μ0]},{"θ=",Factor[θ]},{"(Subscript[θ, 1])=",Factor[θ1]},{"(Subscript[θ, 3])=",Factor[θ3]},"Infinite Singularities:  S, (N^d), (N^d) (Config. 5)"}]],

Dpo[η,"η",c,a,b]&&Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[θ,"θ",c,a,b]&&Dze[θ1,"θ1",c,a,b]&&Dze[θ3,"θ3",c,a,b]&&Dnze[θ4,"θ4",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Subscript[μ, 0])=",Factor[μ0]},{"θ=",Factor[θ]},{"(Subscript[θ, 1])=",Factor[θ1]},{"(Subscript[θ, 3])=",Factor[θ3]},{"(Subscript[θ, 4])=",Factor[θ4]},"Infinite Singularities:  S, (N^d), (SuperStar[N]) (Config. 5)"}]],

Dpo[η,"η",c,a,b]&&Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[θ,"θ",c,a,b]&&Dze[θ1,"θ1",c,a,b]&&Dze[θ3,"θ3",c,a,b]&&Dze[θ4,"θ4",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Subscript[μ, 0])=",Factor[μ0]},{"θ=",Factor[θ]},{"(Subscript[θ, 1])=",Factor[θ1]},{"(Subscript[θ, 3])=",Factor[θ3]},{"(Subscript[θ, 4])=",Factor[θ4]},"Infinite Singularities:  S, (SuperStar[N]), (SuperStar[N]) (Config. 5)"}]],

Dpo[η,"η",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[-κ,"-κ",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"κ=",Factor[κ]},"Infinite Singularities:  (Overscript[(({{1}, {1}})), -])SN, S, (N^∞) (Config. 6)"}]],

Dpo[η,"η",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[κ,"κ",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"κ=",Factor[κ]},"Infinite Singularities:  (Overscript[(({{1}, {1}})), -])SN, (N^f), (N^f) (Config. 2)"}]],

Dpo[η,"η",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[-κ,"-κ",c,a,b]&&Dpo[-μ2,"-μ2",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"κ=",Factor[κ]},"Infinite Singularities:  (Overscript[(({{2}, {1}})), -])S, S, (N^∞) (Config. 7)"}]],

Dpo[η,"η",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[-κ,"-κ",c,a,b]&&Dpo[μ2,"(Subscript[μ, 2])",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"κ=",Factor[κ]},"Infinite Singularities:  (Overscript[(({{2}, {1}})), -])N, S, (N^∞) (Config. 5)"}]],

Dpo[η,"η",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[κ,"κ",c,a,b]&&Dpo[-μ2,"-μ2",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"κ=",Factor[κ]},"Infinite Singularities:  (Overscript[(({{2}, {1}})), -])N, (N^f), (N^f) (Config. 1)"}]],

Dpo[η,"η",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[κ,"κ",c,a,b]&&Dpo[μ2,"(Subscript[μ, 2])",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"κ=",Factor[κ]},"Infinite Singularities:  (Overscript[(({{2}, {1}})), -])S, (N^f), (N^f) (Config. 5)"}]],

Dpo[η,"η",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dpo[-μ2 WL,"-μ2 L",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2]) (Overscript[L, ∼])=",Factor[μ2 WL]},{"κ=",Factor[κ]},"Infinite Singularities:  (Overscript[(({{1}, {1}})), -])SN, (Overscript[(({{1}, {1}})), -])SN, (N^d) (Config. 3)"}]],

Dpo[η,"η",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dpo[μ2 WL,"μ2 L",c,a,b]&&Dnze[θ2,"θ2",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2]) (Overscript[L, ∼])=",Factor[μ2 WL]},{"κ=",Factor[κ]},{"(Subscript[θ, 2])=",Factor[θ2]},"Infinite Singularities:  (Overscript[(({{1}, {1}})), -])SN, (Overscript[(({{1}, {1}})), -])NS, (N^d) (Config. 4)"}]],

Dpo[η,"η",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dpo[μ2 WL,"μ2 L",c,a,b]&&Dze[θ2,"θ2",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2]) (Overscript[L, ∼])=",Factor[μ2 WL]},{"κ=",Factor[κ]},{"(Subscript[θ, 2])=",Factor[θ2]},"Infinite Singularities:  (Overscript[(({{1}, {1}})), -])SN, (Overscript[(({{1}, {1}})), -])NS, (SuperStar[N]) (Config. 4)"}]],

Dpo[η,"η",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dnze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dpo[-κ,"-κ",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"κ=",Factor[κ]},"Infinite Singularities:  (Overscript[(({{3}, {1}})), -])SN, S, (N^∞) (Config. 6)"}]],

Dpo[η,"η",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dnze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dpo[κ,"κ",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"κ=",Factor[κ]},"Infinite Singularities:  (Overscript[(({{3}, {1}})), -])SN, (N^f), (N^f) (Config. 2)"}]],

Dpo[η,"η",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dnze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dpo[-μ3 WK1,"-(Subscript[μ, 3]) (Subscript[K, 1])",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3]) (Subscript[K, 1])=",Factor[μ3 WK1]},{"κ=",Factor[κ]},"Infinite Singularities:  (Overscript[(({{2}, {1}})), -])N, (Overscript[(({{1}, {1}})), -])SN, (N^d) (Config. 2)"}]],

Dpo[η,"η",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dnze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dpo[μ3 WK1,"(Subscript[μ, 3]) (Subscript[K, 1])",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3]) (Subscript[K, 1])=",Factor[μ3 WK1]},{"κ=",Factor[κ]},"Infinite Singularities:  (Overscript[(({{2}, {1}})), -])S, (Overscript[(({{1}, {1}})), -])SN, (N^d) (Config. 6)"}]],

Dpo[η,"η",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dnze[μ4,"(Subscript[μ, 4])",c,a,b]&&Dpo[-κ,"-κ",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"(Subscript[μ, 4])=",Factor[μ4]},{"κ=",Factor[κ]},"Infinite Singularities:  (Overscript[(({{4}, {1}})), -])N, S, (N^∞) (Config. 5)"}]],

Dpo[η,"η",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dnze[μ4,"(Subscript[μ, 4])",c,a,b]&&Dpo[κ,"κ",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"(Subscript[μ, 4])=",Factor[μ4]},{"κ=",Factor[κ]},"Infinite Singularities:  (Overscript[(({{4}, {1}})), -])S, (N^f), (N^f) (Config. 5)"}]],

Dpo[η,"η",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dnze[μ4,"(Subscript[μ, 4])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dnze[WK1,"(Subscript[K, 1])",c,a,b]&&Dpo[-μ4 WL,"-μ4 L",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"(Subscript[μ, 4]) (Overscript[L, ∼])=",Factor[μ4 WL]},{"κ=",Factor[κ]},{"(Subscript[K, 1])=",Factor[WK1]},"Infinite Singularities:  (Overscript[(({{3}, {1}})), -])SN, (Overscript[(({{1}, {1}})), -])SN, (N^d) (Config. 3)"}]],

Dpo[η,"η",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dnze[μ4,"(Subscript[μ, 4])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dnze[WK1,"(Subscript[K, 1])",c,a,b]&&Dpo[μ4 WL,"μ4 L",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"(Subscript[μ, 4]) (Overscript[L, ∼])=",Factor[μ4 WL]},{"κ=",Factor[κ]},{"(Subscript[K, 1])=",Factor[WK1]},"Infinite Singularities:  (Overscript[(({{3}, {1}})), -])SN, (Overscript[(({{1}, {1}})), -])NS, (N^d) (Config. 4)"}]],

Dpo[η,"η",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dnze[μ4,"(Subscript[μ, 4])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dze[WK1,"(Subscript[K, 1])",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"(Subscript[μ, 4])=",Factor[μ4]},{"κ=",Factor[κ]},{"(Subscript[K, 1])=",Factor[WK1]},"Infinite Singularities:  (Overscript[(({{2}, {1}})), -])S, (Overscript[(({{2}, {1}})), -])N, (SuperStar[N]) (Config. 5)"}]],

Dpo[η,"η",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dze[μ4,"(Subscript[μ, 4])",c,a,b]&&Dpo[-κ,"-κ",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"(Subscript[μ, 4])=",Factor[μ4]},{"κ=",Factor[κ]},"Infinite Singularities:  (N^∞), S, (⊖ [|],∅) (((Subscript[QD, 1])^∞))"}]],

Dpo[η,"η",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dze[μ4,"(Subscript[μ, 4])",c,a,b]&&Dpo[κ,"κ",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"(Subscript[μ, 4])=",Factor[μ4]},{"κ=",Factor[κ]},"Infinite Singularities:  (N^f), (N^f), (⊖ [|],∅) (((Subscript[QD, 2])^∞))"}]],

Dpo[η,"η",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dze[μ4,"(Subscript[μ, 4])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dnze[WK1,"(Subscript[K, 1])",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"(Subscript[μ, 4])=",Factor[μ4]},{"κ=",Factor[κ]},{"(Subscript[K, 1])=",Factor[WK1]},"Infinite Singularities:  (Overscript[(({{1}, {1}})), -])SN, (N^d), (⊖ [|],∅) (((Subscript[QD, 3])^∞))"}]],

Dpo[η,"η",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dze[μ4,"(Subscript[μ, 4])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dze[WK1,"(Subscript[K, 1])",c,a,b]&&Dnze[WL1,"L1",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"(Subscript[μ, 4])=",Factor[μ4]},{"κ=",Factor[κ]},{"(Subscript[K, 1])=",Factor[WK1]},{"(Subscript[L, 1])=",Factor[WL1]},"Infinite Singularities:   (SuperStar[N]), (⊖ [)(],∅,∅) (((Subscript[QD, 4])^∞))"}]],

Dpo[η,"η",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dze[μ4,"(Subscript[μ, 4])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dze[WK1,"(Subscript[K, 1])",c,a,b]&&Dze[WL1,"L1",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"(Subscript[μ, 4])=",Factor[μ4]},{"κ=",Factor[κ]},{"(Subscript[K, 1])=",Factor[WK1]},{"(Subscript[L, 1])=",Factor[WL1]},"Infinite Singularities:    (SuperStar[N]), (⊖ [×],∅,∅) (((Subscript[QD, 4])^∞))"}]],

Dpo[-η,"-η",c,a,b]&&Dpo[-μ0,"-μ0",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Subscript[μ, 0])=",Factor[μ0]},"Infinite Singularities:   S, ©, © (Config. 34)"}]],

Dpo[-η,"-η",c,a,b]&&Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[-θ,"-θ",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Subscript[μ, 0])=",Factor[μ0]},{"θ=",Factor[θ]},"Infinite Singularities:   (N^∞), ©, © (Config. 30)"}]],

Dpo[-η,"-η",c,a,b]&&Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[θ,"θ",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Subscript[μ, 0])=",Factor[μ0]},{"θ=",Factor[θ]},"Infinite Singularities:   (N^f), ©, © (Config. 30)"}]],

Dpo[-η,"-η",c,a,b]&&Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[θ,"θ",c,a,b]&&Dnze[θ2,"θ2",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Subscript[μ, 0])=",Factor[μ0]},{"θ=",Factor[θ]},{"(Subscript[θ, 2])=",Factor[θ2]},"Infinite Singularities:   (N^d), ©, © (Config. 30)"}]],

Dpo[-η,"-η",c,a,b]&&Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[θ,"θ",c,a,b]&&Dze[θ2,"θ2",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Subscript[μ, 0])=",Factor[μ0]},{"θ=",Factor[θ]},{"(Subscript[θ, 2])=",Factor[θ2]},"Infinite Singularities:   (SuperStar[N]), ©, © (Config. 30)"}]],

Dpo[-η,"-η",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},"Infinite Singularities:   (Overscript[(({{1}, {1}})), -])SN, ©, © (Config. 31)"}]],

Dpo[-η,"-η",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dnze[κ,"κ",c,a,b]&&Dpo[-μ2,"-μ2",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"κ=",Factor[κ]},"Infinite Singularities:   (Overscript[(({{2}, {1}})), -])S, ©, © (Config. 34)"}]],

Dpo[-η,"-η",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dnze[κ,"κ",c,a,b]&&Dpo[μ2,"(Subscript[μ, 2])",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"κ=",Factor[κ]},"Infinite Singularities:   (Overscript[(({{2}, {1}})), -])N, ©, © (Config. 30)"}]],

Dpo[-η,"-η",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dnze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dnze[θ2,"θ2",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"κ=",Factor[κ]},{"(Subscript[θ, 2])=",Factor[θ2]},"Infinite Singularities:    (N^d),(\!\(\*GridBox[{
{1},
{1}
}]\))©,(\!\(\*GridBox[{
{1},
{1}
}]\)) © (Config. 30)"}]],

Dpo[-η,"-η",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dnze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dze[θ2,"θ2",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"κ=",Factor[κ]},{"(Subscript[θ, 2])=",Factor[θ2]},"Infinite Singularities:     (SuperStar[N]),(\!\(\*GridBox[{
{1},
{1}
}]\))©,(\!\(\*GridBox[{
{1},
{1}
}]\)) © (Config. 30)"}]],

Dpo[-η,"-η",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dnze[μ3,"(Subscript[μ, 3])",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},"Infinite Singularities:    (Overscript[(({{3}, {1}})), -])SN, ©, © (Config. 31)"}]],

Dpo[-η,"-η",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dnze[μ4,"(Subscript[μ, 4])",c,a,b]&&Dnze[κ,"κ",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"(Subscript[μ, 4])=",Factor[μ4]},{"κ=",Factor[κ]},"Infinite Singularities:     (Overscript[(({{4}, {1}})), -])N, ©, © (Config. 30)"}]],

Dpo[-η,"-η",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dnze[μ4,"(Subscript[μ, 4])",c,a,b]&&Dze[κ,"κ",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"(Subscript[μ, 4])=",Factor[μ4]},{"κ=",Factor[κ]},"Infinite Singularities:     (SuperStar[N]),(Overscript[(({{2}, {1}})), -])©,(Overscript[(({{2}, {1}})), -]) © (Config. 30)"}]],

Dpo[-η,"-η",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dze[μ4,"(Subscript[μ, 4])",c,a,b]&&Dnze[κ,"κ",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"(Subscript[μ, 4])=",Factor[μ4]},{"κ=",Factor[κ]},"Infinite Singularities:     ©, ©,  (⊖ [|],∅) (((Subscript[QD, 5])^∞))"}]],

Dpo[-η,"-η",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dze[μ4,"(Subscript[μ, 4])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dpo[-WL1,"-L1",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"(Subscript[μ, 4])=",Factor[μ4]},{"κ=",Factor[κ]},{"(Subscript[L, 1])=",Factor[WL1]},"Infinite Singularities:     (SuperStar[N]), (⊖ [○],∅,∅) (((Subscript[QD, 30])^∞))"}]],

Dpo[-η,"-η",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dze[μ4,"(Subscript[μ, 4])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dpo[WL1,"L1",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"(Subscript[μ, 4])=",Factor[μ4]},{"κ=",Factor[κ]},{"(Subscript[L, 1])=",Factor[WL1]},"Infinite Singularities:     (SuperStar[N]), (⊖ [©],∅,∅) (((Subscript[QD, 30])^∞))"}]],

Dpo[-η,"-η",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dze[μ4,"(Subscript[μ, 4])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dze[WL1,"L1",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"(Subscript[μ, 4])=",Factor[μ4]},{"κ=",Factor[κ]},{"(Subscript[L, 1])=",Factor[WL1]},"Infinite Singularities:     (SuperStar[N]), (⊖ [•],∅,∅) (((Subscript[QD, 30])^∞))"}]],

Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dpo[-μ0,"-μ0",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[μ, 0])=",Factor[μ0]},"Infinite Singularities:     (Overscript[(({{0}, {2}})), -])SN, S (Config. 22)"}]],

Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[-θ,"-θ",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[μ, 0])=",Factor[μ0]},{"θ=",Factor[θ]},"Infinite Singularities:     (Overscript[(({{0}, {2}})), -])SN, (N^∞) (Config. 18)"}]],

Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dpo[θ,"θ",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[μ, 0])=",Factor[μ0]},{"θ=",Factor[θ]},"Infinite Singularities:     (Overscript[(({{0}, {2}})), -])SN, (N^f) (Config. 18)"}]],

Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[θ,"θ",c,a,b]&&Dnze[θ2,"θ2",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[μ, 0])=",Factor[μ0]},{"θ=",Factor[θ]},{"(Subscript[θ, 2])=",Factor[θ2]},"Infinite Singularities:     (Overscript[(({{0}, {2}})), -])SN, (N^d) (Config. 18)"}]],

Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dpo[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[θ,"θ",c,a,b]&&Dze[θ2,"θ2",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[μ, 0])=",Factor[μ0]},{"θ=",Factor[θ]},{"(Subscript[θ, 2])=",Factor[θ2]},"Infinite Singularities:     (Overscript[(({{0}, {2}})), -])SN, (SuperStar[N]) (Config. 18)"}]],

Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dnze[κ,"κ",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"κ=",Factor[κ]},"Infinite Singularities:     (Overscript[(({{0}, {2}})), -])SN, (Overscript[(({{1}, {1}})), -])SN (Config. 20)"}]],

Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dpo[-WK,"-(OverTilde[K])",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},"Infinite Singularities:     (OverHat[(({{1}, {2}}))])(Subscript[(Overscript[P, →]), ∧]) E (Subscript[(Overscript[P, ←]), ∧]) - H, (N^f) (Config. 9)"}]],

Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dpo[WK,"(OverTilde[K])",c,a,b]&&Dpo[-WL,"-(OverTilde[L])",c,a,b]&&Dpo[-WN,"-(OverTilde[N])",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Overscript[L, ∼])=",Factor[WL]},{"(Overscript[N, ∼])=",Factor[WN]},"Infinite Singularities:     (OverHat[(({{1}, {2}}))])(Subscript[(Overscript[P, →]), ∧]) E (Subscript[(Overscript[P, ←]), ∧]) - H, S (Config. 16)"}]],

Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dpo[WK,"(OverTilde[K])",c,a,b]&&Dpo[-WL,"-(OverTilde[L])",c,a,b]&&Dpo[WN,"(OverTilde[N])",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Overscript[L, ∼])=",Factor[WL]},{"(Overscript[N, ∼])=",Factor[WN]},"Infinite Singularities:     (OverHat[(({{1}, {2}}))])(Subscript[(Overscript[P, →]), ∧]) H (Subscript[(Overscript[P, ←]), ∧]) - E, S (Config. 26)"}]],

Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dpo[WK,"(OverTilde[K])",c,a,b]&&Dpo[-WL,"-(OverTilde[L])",c,a,b]&&Dze[WN,"(OverTilde[N])",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Overscript[L, ∼])=",Factor[WL]},{"(Overscript[N, ∼])=",Factor[WN]},"Infinite Singularities:     (OverHat[(({{1}, {2}}))])H - E, S (Config. 16)"}]],

Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dpo[WK,"(OverTilde[K])",c,a,b]&&Dpo[WL,"(OverTilde[L])",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Overscript[L, ∼])=",Factor[WL]},"Infinite Singularities:     (OverHat[(({{1}, {2}}))])(Subscript[H, ∧]) H (Subscript[H, ∧]) - H, (N^∞) (Config. 23)"}]],

Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dnze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dnze[κ,"κ",c,a,b]&&Dpo[-μ2,"-μ2",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"κ=",Factor[κ]},"Infinite Singularities:     (Overscript[(({{0}, {2}})), -])SN, (Overscript[(({{2}, {1}})), -])S (Config. 22)"}]],

Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dnze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dnze[κ,"κ",c,a,b]&&Dpo[μ2,"(Subscript[μ, 2])",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"κ=",Factor[κ]},"Infinite Singularities:     (Overscript[(({{0}, {2}})), -])SN, (Overscript[(({{2}, {1}})), -])N (Config. 22)"}]],

Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dnze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dpo[-WK,"-(OverTilde[K])",c,a,b]&&Dpo[-μ2,"-μ2",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},"Infinite Singularities:     (\!\(\*GridBox[{
{2},
{2}
}]\))(Overscript[P, →]) E (Overscript[P, ←]) - (Overscript[P, →]) E (Overscript[P, ←]) , (N^f) (Config. 10)"}]],

Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dnze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dpo[-WK,"-(OverTilde[K])",c,a,b]&&Dpo[μ2,"(Subscript[μ, 2])",c,a,b]&&Dpo[-WK2,"-(Subscript[K, 2])",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[K, 2])=",Factor[WK2]},"Infinite Singularities:     (\!\(\*GridBox[{
{2},
{2}
}]\))H - H , (N^f) (Config. 8)"}]],

Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dnze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dpo[-WK,"-(OverTilde[K])",c,a,b]&&Dpo[μ2,"(Subscript[μ, 2])",c,a,b]&&Dpo[WK2,"(Subscript[K, 2])",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[K, 2])=",Factor[WK2]},"Infinite Singularities:     (\!\(\*GridBox[{
{2},
{2}
}]\))(Overscript[P, →]) (Overscript[P, ←]) H - (Overscript[P, →]) (Overscript[P, ←]) H, (N^f) (Config. 19)"}]],

Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dnze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dpo[-WK,"-(OverTilde[K])",c,a,b]&&Dpo[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[WK2,"(Subscript[K, 2])",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[K, 2])=",Factor[WK2]},"Infinite Singularities:     (\!\(\*GridBox[{
{2},
{2}
}]\))(Overscript[P, →]) H - (Overscript[P, →]) H, (N^f) (Config. 19)"}]],

Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dpo[WK,"(OverTilde[K])",c,a,b]&&Dpo[-WL,"-(OverTilde[L])",c,a,b]&&Dpo[-μ2,"-μ2",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Overscript[L, ∼])=",Factor[WL]},"Infinite Singularities:     (\!\(\*GridBox[{
{2},
{2}
}]\))(Overscript[P, ←]) H (Overscript[P, →]) - (Overscript[P, ←]) H (Overscript[P, →]), S (Config. 29)"}]],

Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dpo[WK,"(OverTilde[K])",c,a,b]&&Dpo[-WL,"-(OverTilde[L])",c,a,b]&&Dpo[μ2,"(Subscript[μ, 2])",c,a,b]&&Dpo[-WK2,"-(Subscript[K, 2])",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Overscript[L, ∼])=",Factor[WL]},{"(Subscript[K, 2])=",Factor[WK2]},"Infinite Singularities:     (\!\(\*GridBox[{
{2},
{2}
}]\))E - E, S (Config. 17)"}]],

Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dpo[WK,"(OverTilde[K])",c,a,b]&&Dpo[-WL,"-(OverTilde[L])",c,a,b]&&Dpo[μ2,"(Subscript[μ, 2])",c,a,b]&&Dpo[WK2,"(Subscript[K, 2])",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Overscript[L, ∼])=",Factor[WL]},{"(Subscript[K, 2])=",Factor[WK2]},"Infinite Singularities:     (\!\(\*GridBox[{
{2},
{2}
}]\))(Overscript[P, ←]) (Overscript[P, →]) E- (Overscript[P, ←]) (Overscript[P, →]) E, S (Config. 17)"}]],

Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dpo[WK,"(OverTilde[K])",c,a,b]&&Dpo[-WL,"-(OverTilde[L])",c,a,b]&&Dpo[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[WK2,"(Subscript[K, 2])",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Overscript[L, ∼])=",Factor[WL]},{"(Subscript[K, 2])=",Factor[WK2]},"Infinite Singularities:     (\!\(\*GridBox[{
{2},
{2}
}]\))(Overscript[P, ←]) E- (Overscript[P, ←]) E, S (Config. 17)"}]],

Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dpo[WK,"(OverTilde[K])",c,a,b]&&Dpo[WL,"(OverTilde[L])",c,a,b]&&Dpo[-μ2,"-μ2",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Overscript[L, ∼])=",Factor[WL]},"Infinite Singularities:     (\!\(\*GridBox[{
{2},
{2}
}]\))H H H - H H H, (N^∞) (Config. 27)"}]],

Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dpo[WK,"(OverTilde[K])",c,a,b]&&Dpo[WL,"(OverTilde[L])",c,a,b]&&Dpo[μ2,"(Subscript[μ, 2])",c,a,b]&&Dpo[-WK2,"-(Subscript[K, 2])",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Overscript[L, ∼])=",Factor[WL]},{"(Subscript[K, 2])=",Factor[WK2]},"Infinite Singularities:     (\!\(\*GridBox[{
{2},
{2}
}]\))H - H, (N^∞) (Config. 8)"}]],

Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dpo[WK,"(OverTilde[K])",c,a,b]&&Dpo[WL,"(OverTilde[L])",c,a,b]&&Dpo[μ2,"(Subscript[μ, 2])",c,a,b]&&Dpo[WK2,"(Subscript[K, 2])",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Overscript[L, ∼])=",Factor[WL]},{"(Subscript[K, 2])=",Factor[WK2]},"Infinite Singularities:     (\!\(\*GridBox[{
{2},
{2}
}]\))(Overscript[P, →]) (Overscript[P, ←]) H- (Overscript[P, →]) (Overscript[P, ←]) H, (N^∞) (Config. 19)"}]],

Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dpo[WK,"(OverTilde[K])",c,a,b]&&Dpo[WL,"(OverTilde[L])",c,a,b]&&Dpo[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[WK2,"(Subscript[K, 2])",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Overscript[L, ∼])=",Factor[WL]},{"(Subscript[K, 2])=",Factor[WK2]},"Infinite Singularities:     (\!\(\*GridBox[{
{2},
{2}
}]\))(Overscript[P, →]) H- (Overscript[P, →]) H, (N^∞) (Config. 19)"}]],

Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dnze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dze[WK,"(OverTilde[K])",c,a,b]&&Dnze[WL,"(OverTilde[L])",c,a,b]&&Dnze[κ1,"(Subscript[κ, 1])",c,a,b]&&Dnze[θ5,"θ5",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Overscript[L, ∼])=",Factor[WL]},{"(Subscript[κ, 1])=",Factor[κ1]},{"(Subscript[θ, 5])=",Factor[θ5]},"Infinite Singularities:     (OverHat[(({{2}, {2}}))])(Subscript[(Overscript[P, →]), ∧]) (Overscript[P, ←]) (Subscript[H, ∧]) - H, (N^d) (Config. 13)"}]],

Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dnze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dze[WK,"(OverTilde[K])",c,a,b]&&Dnze[WL,"(OverTilde[L])",c,a,b]&&Dnze[κ1,"(Subscript[κ, 1])",c,a,b]&&Dze[θ5,"θ5",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Overscript[L, ∼])=",Factor[WL]},{"(Subscript[κ, 1])=",Factor[κ1]},{"(Subscript[θ, 5])=",Factor[θ5]},"Infinite Singularities:     (OverHat[(({{2}, {2}}))])(Subscript[(Overscript[P, →]), ∧]) (Overscript[P, ←]) (Subscript[H, ∧]) - H, (SuperStar[N]) (Config. 13)"}]],

Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dnze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dze[WK,"(OverTilde[K])",c,a,b]&&Dnze[WL,"(OverTilde[L])",c,a,b]&&Dze[κ1,"(Subscript[κ, 1])",c,a,b]&&Dpo[-WK2,"-(Subscript[K, 2])",c,a,b]&&Dnze[θ6,"θ6",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Overscript[L, ∼])=",Factor[WL]},{"(Subscript[κ, 1])=",Factor[κ1]},{"(Subscript[K, 2])=",Factor[WK2]},{"(Subscript[θ, 6])=",Factor[θ6]},"Infinite Singularities:     (\!\(\*GridBox[{
{2},
{2}
}]\))H - H, (N^d) (Config. 8)"}]],

Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dnze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dze[WK,"(OverTilde[K])",c,a,b]&&Dnze[WL,"(OverTilde[L])",c,a,b]&&Dze[κ1,"(Subscript[κ, 1])",c,a,b]&&Dpo[-WK2,"-(Subscript[K, 2])",c,a,b]&&Dze[θ6,"θ6",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Overscript[L, ∼])=",Factor[WL]},{"(Subscript[κ, 1])=",Factor[κ1]},{"(Subscript[K, 2])=",Factor[WK2]},{"(Subscript[θ, 6])=",Factor[θ6]},"Infinite Singularities:     (\!\(\*GridBox[{
{2},
{2}
}]\))H - H, (SuperStar[N]) (Config. 8)"}]],

Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dnze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dze[WK,"(OverTilde[K])",c,a,b]&&Dnze[WL,"(OverTilde[L])",c,a,b]&&Dze[κ1,"(Subscript[κ, 1])",c,a,b]&&Dpo[WK2,"(Subscript[K, 2])",c,a,b]&&Dnze[θ6,"θ6",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Overscript[L, ∼])=",Factor[WL]},{"(Subscript[κ, 1])=",Factor[κ1]},{"(Subscript[K, 2])=",Factor[WK2]},{"(Subscript[θ, 6])=",Factor[θ6]},"Infinite Singularities:     (\!\(\*GridBox[{
{2},
{2}
}]\))(Overscript[P, →]) (Overscript[P, ←]) H - (Overscript[P, →]) (Overscript[P, ←]) H, (N^d) (Config. 19)"}]],

Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dnze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dze[WK,"(OverTilde[K])",c,a,b]&&Dnze[WL,"(OverTilde[L])",c,a,b]&&Dze[κ1,"(Subscript[κ, 1])",c,a,b]&&Dpo[WK2,"(Subscript[K, 2])",c,a,b]&&Dze[θ6,"θ6",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Overscript[L, ∼])=",Factor[WL]},{"(Subscript[κ, 1])=",Factor[κ1]},{"(Subscript[K, 2])=",Factor[WK2]},{"(Subscript[θ, 6])=",Factor[θ6]},"Infinite Singularities:     (\!\(\*GridBox[{
{2},
{2}
}]\))(Overscript[P, →]) (Overscript[P, ←]) H - (Overscript[P, →]) (Overscript[P, ←]) H, (SuperStar[N]) (Config. 19)"}]],

Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dnze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dze[WK,"(OverTilde[K])",c,a,b]&&Dnze[WL,"(OverTilde[L])",c,a,b]&&Dze[κ1,"(Subscript[κ, 1])",c,a,b]&&Dze[WK2,"(Subscript[K, 2])",c,a,b]&&Dnze[θ6,"θ6",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Overscript[L, ∼])=",Factor[WL]},{"(Subscript[κ, 1])=",Factor[κ1]},{"(Subscript[K, 2])=",Factor[WK2]},{"(Subscript[θ, 6])=",Factor[θ6]},"Infinite Singularities:     (\!\(\*GridBox[{
{2},
{2}
}]\))(Overscript[P, →]) H - (Overscript[P, →]) H, (N^d) (Config. 19)"}]],

Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dnze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dze[WK,"(OverTilde[K])",c,a,b]&&Dnze[WL,"(OverTilde[L])",c,a,b]&&Dze[κ1,"(Subscript[κ, 1])",c,a,b]&&Dze[WK2,"(Subscript[K, 2])",c,a,b]&&Dze[θ6,"θ6",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Overscript[L, ∼])=",Factor[WL]},{"(Subscript[κ, 1])=",Factor[κ1]},{"(Subscript[K, 2])=",Factor[WK2]},{"(Subscript[θ, 6])=",Factor[θ6]},"Infinite Singularities:     (\!\(\*GridBox[{
{2},
{2}
}]\))(Overscript[P, →]) H - (Overscript[P, →]) H, (SuperStar[N]) (Config. 19)"}]],

Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dnze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dze[WK,"(OverTilde[K])",c,a,b]&&Dze[WL,"(OverTilde[L])",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Overscript[L, ∼])=",Factor[WL]},"Infinite Singularities:     (OverHat[(({{1}, {2}}))])(Subscript[(Overscript[P, →]), ∧]) E (Subscript[(Overscript[P, ←]), ∧]) - H, (Overscript[(({{1}, {1}})), -])SN (Config. 11)"}]],

Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dnze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dnze[κ,"κ",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"κ=",Factor[κ]},"Infinite Singularities:     (Overscript[(({{0}, {2}})), -])SN, (Overscript[(({{3}, {1}})), -])SN (Config. 20)"}]],

Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dnze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dpo[-WK,"-(OverTilde[K])",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},"Infinite Singularities:     (\!\(\*GridBox[{
{3},
{2}
}]\)) (Overscript[P, →]) E (Overscript[P, ←]) - (Overscript[P, →]) (Overscript[P, ←]) H, (N^f) (Config. 14)"}]],

Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dnze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dpo[WK,"(OverTilde[K])",c,a,b]&&Dpo[-WL,"-(OverTilde[L])",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Overscript[L, ∼])=",Factor[WL]},"Infinite Singularities:     (\!\(\*GridBox[{
{3},
{2}
}]\))(Overscript[P, ←]) H (Overscript[P, →]) - (Overscript[P, ←]) (Overscript[P, →]) E, S (Config. 26)"}]],

Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dnze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dpo[WK,"(OverTilde[K])",c,a,b]&&Dpo[WL,"(OverTilde[L])",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Overscript[L, ∼])=",Factor[WL]},"Infinite Singularities:     (\!\(\*GridBox[{
{3},
{2}
}]\))H (Overscript[P, →]) (Overscript[P, ←]) - H H H, (N^∞) (Config. 25)"}]],

Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dnze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dze[WK,"(OverTilde[K])",c,a,b]&&Dnze[WL,"(OverTilde[L])",c,a,b]&&Dpo[-μ3 WK1,"-(Subscript[μ, 3]) (Subscript[K, 1])",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3]) (Subscript[K, 1])=",Factor[μ3 WK1]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Overscript[L, ∼])=",Factor[WL]},"Infinite Singularities:     (OverHat[(({{3}, {2}}))])(Subscript[(Overscript[P, →]), ∧]) E (Subscript[(Overscript[P, ←]), ∧]) - H, (N^d) (Config. 9)"}]],

Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dnze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dze[WK,"(OverTilde[K])",c,a,b]&&Dnze[WL,"(OverTilde[L])",c,a,b]&&Dpo[μ3 WK1,"(Subscript[μ, 3]) (Subscript[K, 1])",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3]) (Subscript[K, 1])=",Factor[μ3 WK1]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Overscript[L, ∼])=",Factor[WL]},"Infinite Singularities:     (OverHat[(({{3}, {2}}))])(Subscript[H, ∧]) H (Subscript[H, ∧]) - H, (N^d) (Config. 23)"}]],

Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dnze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dze[WK,"(OverTilde[K])",c,a,b]&&Dze[WL,"(OverTilde[L])",c,a,b]&&Dnze[κ1,"(Subscript[κ, 1])",c,a,b]&&Dpo[-μ3 WK1,"-(Subscript[μ, 3]) (Subscript[K, 1])",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3]) (Subscript[K, 1])=",Factor[μ3 WK1]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Overscript[L, ∼])=",Factor[WL]},{"(Subscript[κ, 1])=",Factor[κ1]},"Infinite Singularities:     (OverHat[(({{1}, {2}}))])(Subscript[(Overscript[P, →]), ∧]) E (Subscript[(Overscript[P, ←]), ∧]) - H, (Overscript[(({{2}, {1}})), -])N (Config. 9)"}]],

Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dnze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dze[WK,"(OverTilde[K])",c,a,b]&&Dze[WL,"(OverTilde[L])",c,a,b]&&Dnze[κ1,"(Subscript[κ, 1])",c,a,b]&&Dpo[μ3 WK1,"(Subscript[μ, 3]) (Subscript[K, 1])",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3]) (Subscript[K, 1])=",Factor[μ3 WK1]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Overscript[L, ∼])=",Factor[WL]},{"(Subscript[κ, 1])=",Factor[κ1]},"Infinite Singularities:     (OverHat[(({{1}, {2}}))])(Subscript[(Overscript[P, →]), ∧]) E (Subscript[(Overscript[P, ←]), ∧]) - H, (Overscript[(({{2}, {1}})), -])S (Config. 9)"}]],

Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dnze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dze[WK,"(OverTilde[K])",c,a,b]&&Dze[WL,"(OverTilde[L])",c,a,b]&&Dze[κ1,"(Subscript[κ, 1])",c,a,b]&&Dpo[-μ3 WK1,"-(Subscript[μ, 3]) (Subscript[K, 1])",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3]) (Subscript[K, 1])=",Factor[μ3 WK1]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Overscript[L, ∼])=",Factor[WL]},{"(Subscript[κ, 1])=",Factor[κ1]},"Infinite Singularities:     (\!\(\*GridBox[{
{2},
{2}
}]\))(Overscript[P, →]) E - (Overscript[P, →]) E, (Overscript[(({{1}, {1}})), -])SN (Config. 16)"}]],

Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dnze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dze[WK,"(OverTilde[K])",c,a,b]&&Dze[WL,"(OverTilde[L])",c,a,b]&&Dze[κ1,"(Subscript[κ, 1])",c,a,b]&&Dpo[μ3 WK1,"(Subscript[μ, 3]) (Subscript[K, 1])",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3]) (Subscript[K, 1])=",Factor[μ3 WK1]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Overscript[L, ∼])=",Factor[WL]},{"(Subscript[κ, 1])=",Factor[κ1]},"Infinite Singularities:     (\!\(\*GridBox[{
{2},
{2}
}]\))(Overscript[P, ←]) H - (Overscript[P, ←]) H, (Overscript[(({{1}, {1}})), -])SN (Config. 21)"}]],

Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dnze[μ4,"(Subscript[μ, 4])",c,a,b]&&Dnze[κ,"κ",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"(Subscript[μ, 4])=",Factor[μ4]},{"κ=",Factor[κ]},"Infinite Singularities:     (Overscript[(({{0}, {2}})), -])SN, (Overscript[(({{4}, {1}})), -])N (Config. 18)"}]],

Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dnze[μ4,"(Subscript[μ, 4])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dpo[-WK,"-(OverTilde[K])",c,a,b]&&Dpo[-WR,"-R",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"(Subscript[μ, 4])=",Factor[μ4]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Overscript[R, ∼])=",Factor[WR]},"Infinite Singularities:     (\!\(\*GridBox[{
{4},
{2}
}]\))(Overscript[P, →]) (Subscript[H, ∧]) (Overscript[P, ←]) - (Overscript[P, →]) (Subscript[H, ∧]) (Overscript[P, ←]), (N^f) (Config. 28)"}]],

Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dnze[μ4,"(Subscript[μ, 4])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dpo[-WK,"-(OverTilde[K])",c,a,b]&&Dpo[WR,"R",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"(Subscript[μ, 4])=",Factor[μ4]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Overscript[R, ∼])=",Factor[WR]},"Infinite Singularities:     (\!\(\*GridBox[{
{4},
{2}
}]\))(Overscript[P, →]) (Subscript[(Overscript[P, ←]), ∧]) H - H (Subscript[(Overscript[P, →]), ∧]) (Overscript[P, ←]) , (N^f) (Config. 18)"}]],

Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dnze[μ4,"(Subscript[μ, 4])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dpo[-WK,"-(OverTilde[K])",c,a,b]&&Dze[WR,"R",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"(Subscript[μ, 4])=",Factor[μ4]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Overscript[R, ∼])=",Factor[WR]},"Infinite Singularities:     (\!\(\*GridBox[{
{4},
{2}
}]\))(Overscript[P, →]) H - H (Overscript[P, ←]) , (N^f) (Config. 18)"}]],

Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dnze[μ4,"(Subscript[μ, 4])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dpo[WK,"(OverTilde[K])",c,a,b]&&Dpo[-WL,"-(OverTilde[L])",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"(Subscript[μ, 4])=",Factor[μ4]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Overscript[L, ∼])=",Factor[WL]},"Infinite Singularities:     (\!\(\*GridBox[{
{4},
{2}
}]\))(Overscript[P, ←]) (Subscript[(Overscript[P, →]), ∧]) E - E (Subscript[(Overscript[P, →]), ∧]) (Overscript[P, ←]), S (Config. 17)"}]],

Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dnze[μ4,"(Subscript[μ, 4])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dpo[WK,"(OverTilde[K])",c,a,b]&&Dpo[WL,"(OverTilde[L])",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"(Subscript[μ, 4])=",Factor[μ4]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Overscript[L, ∼])=",Factor[WL]},"Infinite Singularities:     (\!\(\*GridBox[{
{4},
{2}
}]\))(Overscript[P, →]) (Subscript[(Overscript[P, ←]), ∧]) H - H (Subscript[(Overscript[P, →]), ∧]) (Overscript[P, ←]), (N^∞) (Config. 18)"}]],

Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dnze[μ4,"(Subscript[μ, 4])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dze[WK,"(OverTilde[K])",c,a,b]&&Dnze[WL,"(OverTilde[L])",c,a,b]&&Dnze[κ1,"(Subscript[κ, 1])",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"(Subscript[μ, 4])=",Factor[μ4]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Overscript[L, ∼])=",Factor[WL]},{"(Subscript[κ, 1])=",Factor[κ1]},"Infinite Singularities:     (OverHat[(({{4}, {2}}))])(Subscript[(Overscript[P, →]), ∧]) (Overscript[P, ←]) (Subscript[H, ∧]) - H, (SuperStar[N]) (Config. 13)"}]],

Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dnze[μ4,"(Subscript[μ, 4])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dze[WK,"(OverTilde[K])",c,a,b]&&Dnze[WL,"(OverTilde[L])",c,a,b]&&Dze[κ1,"(Subscript[κ, 1])",c,a,b]&&Dpo[-WK2,"-(Subscript[K, 2])",c,a,b]&&Dnze[θ6,"θ6",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"(Subscript[μ, 4])=",Factor[μ4]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Overscript[L, ∼])=",Factor[WL]},{"(Subscript[κ, 1])=",Factor[κ1]},{"(Subscript[K, 2])=",Factor[WK2]},{"(Subscript[θ, 6])=",Factor[θ6]},"Infinite Singularities:     (\!\(\*GridBox[{
{4},
{2}
}]\))H - H, (N^d) (Config. 8)"}]],

Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dnze[μ4,"(Subscript[μ, 4])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dze[WK,"(OverTilde[K])",c,a,b]&&Dnze[WL,"(OverTilde[L])",c,a,b]&&Dze[κ1,"(Subscript[κ, 1])",c,a,b]&&Dpo[-WK2,"-(Subscript[K, 2])",c,a,b]&&Dze[θ6,"θ6",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"(Subscript[μ, 4])=",Factor[μ4]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Overscript[L, ∼])=",Factor[WL]},{"(Subscript[κ, 1])=",Factor[κ1]},{"(Subscript[K, 2])=",Factor[WK2]},{"(Subscript[θ, 6])=",Factor[θ6]},"Infinite Singularities:     (\!\(\*GridBox[{
{4},
{2}
}]\))H - H, (SuperStar[N]) (Config. 8)"}]],

Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dnze[μ4,"(Subscript[μ, 4])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dze[WK,"(OverTilde[K])",c,a,b]&&Dnze[WL,"(OverTilde[L])",c,a,b]&&Dze[κ1,"(Subscript[κ, 1])",c,a,b]&&Dpo[WK2,"(Subscript[K, 2])",c,a,b]&&Dpo[-μ4,"-μ4",c,a,b]&&Dnze[θ6,"θ6",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"(Subscript[μ, 4])=",Factor[μ4]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Overscript[L, ∼])=",Factor[WL]},{"(Subscript[κ, 1])=",Factor[κ1]},{"(Subscript[K, 2])=",Factor[WK2]},{"(Subscript[θ, 6])=",Factor[θ6]},"Infinite Singularities:     (\!\(\*GridBox[{
{4},
{2}
}]\))(Overscript[P, →]) E (Overscript[P, ←]) - H H H, (N^d) (Config. 24)"}]],

Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dnze[μ4,"(Subscript[μ, 4])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dze[WK,"(OverTilde[K])",c,a,b]&&Dnze[WL,"(OverTilde[L])",c,a,b]&&Dze[κ1,"(Subscript[κ, 1])",c,a,b]&&Dpo[WK2,"(Subscript[K, 2])",c,a,b]&&Dpo[-μ4,"-μ4",c,a,b]&&Dze[θ6,"θ6",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"(Subscript[μ, 4])=",Factor[μ4]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Overscript[L, ∼])=",Factor[WL]},{"(Subscript[κ, 1])=",Factor[κ1]},{"(Subscript[K, 2])=",Factor[WK2]},{"(Subscript[θ, 6])=",Factor[θ6]},"Infinite Singularities:     (\!\(\*GridBox[{
{4},
{2}
}]\))(Overscript[P, →]) E (Overscript[P, ←]) - H H H, (SuperStar[N]) (Config. 24)"}]],

Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dnze[μ4,"(Subscript[μ, 4])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dze[WK,"(OverTilde[K])",c,a,b]&&Dnze[WL,"(OverTilde[L])",c,a,b]&&Dze[κ1,"(Subscript[κ, 1])",c,a,b]&&Dpo[WK2,"(Subscript[K, 2])",c,a,b]&&Dpo[μ4,"(Subscript[μ, 4])",c,a,b]&&Dnze[θ6,"θ6",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"(Subscript[μ, 4])=",Factor[μ4]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Overscript[L, ∼])=",Factor[WL]},{"(Subscript[κ, 1])=",Factor[κ1]},{"(Subscript[K, 2])=",Factor[WK2]},{"(Subscript[θ, 6])=",Factor[θ6]},"Infinite Singularities:     (\!\(\*GridBox[{
{4},
{2}
}]\))(Overscript[P, →]) (Overscript[P, ←]) H - H (Overscript[P, →]) (Overscript[P, ←]) , (N^d) (Config. 18)"}]],

Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dnze[μ4,"(Subscript[μ, 4])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dze[WK,"(OverTilde[K])",c,a,b]&&Dnze[WL,"(OverTilde[L])",c,a,b]&&Dze[κ1,"(Subscript[κ, 1])",c,a,b]&&Dpo[WK2,"(Subscript[K, 2])",c,a,b]&&Dpo[μ4,"(Subscript[μ, 4])",c,a,b]&&Dze[θ6,"θ6",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"(Subscript[μ, 4])=",Factor[μ4]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Overscript[L, ∼])=",Factor[WL]},{"(Subscript[κ, 1])=",Factor[κ1]},{"(Subscript[K, 2])=",Factor[WK2]},{"(Subscript[θ, 6])=",Factor[θ6]},"Infinite Singularities:     (\!\(\*GridBox[{
{4},
{2}
}]\))(Overscript[P, →]) (Overscript[P, ←]) H - H (Overscript[P, →]) (Overscript[P, ←]) , (SuperStar[N]) (Config. 18)"}]],

Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dnze[μ4,"(Subscript[μ, 4])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dze[WK,"(OverTilde[K])",c,a,b]&&Dnze[WL,"(OverTilde[L])",c,a,b]&&Dze[κ1,"(Subscript[κ, 1])",c,a,b]&&Dze[WK2,"(Subscript[K, 2])",c,a,b]&&Dnze[θ6,"θ6",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"(Subscript[μ, 4])=",Factor[μ4]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Overscript[L, ∼])=",Factor[WL]},{"(Subscript[κ, 1])=",Factor[κ1]},{"(Subscript[K, 2])=",Factor[WK2]},{"(Subscript[θ, 6])=",Factor[θ6]},"Infinite Singularities:     (\!\(\*GridBox[{
{4},
{2}
}]\))(Overscript[P, →]) (Subscript[(Overscript[P, ←]), ∧]) H - H (Subscript[(Overscript[P, →]), ∧]) (Overscript[P, ←]), (N^d) (Config. 18)"}]],

Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dnze[μ4,"(Subscript[μ, 4])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dze[WK,"(OverTilde[K])",c,a,b]&&Dnze[WL,"(OverTilde[L])",c,a,b]&&Dze[κ1,"(Subscript[κ, 1])",c,a,b]&&Dze[WK2,"(Subscript[K, 2])",c,a,b]&&Dze[θ6,"θ6",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"(Subscript[μ, 4])=",Factor[μ4]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Overscript[L, ∼])=",Factor[WL]},{"(Subscript[κ, 1])=",Factor[κ1]},{"(Subscript[K, 2])=",Factor[WK2]},{"(Subscript[θ, 6])=",Factor[θ6]},"Infinite Singularities:     (\!\(\*GridBox[{
{4},
{2}
}]\))(Overscript[P, →]) (Subscript[(Overscript[P, ←]), ∧]) H - H (Subscript[(Overscript[P, →]), ∧]) (Overscript[P, ←]), (SuperStar[N]) (Config. 18)"}]],

Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dnze[μ4,"(Subscript[μ, 4])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dze[WK,"(OverTilde[K])",c,a,b]&&Dze[WL,"(OverTilde[L])",c,a,b]&&Dnze[κ1,"(Subscript[κ, 1])",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"(Subscript[μ, 4])=",Factor[μ4]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Overscript[L, ∼])=",Factor[WL]},{"(Subscript[κ, 1])=",Factor[κ1]},"Infinite Singularities:     (OverHat[(({{1}, {2}}))])(Subscript[(Overscript[P, →]), ∧]) E (Subscript[(Overscript[P, ←]), ∧]) - H, (Overscript[(({{3}, {1}})), -])SN (Config. 11)"}]],

Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dnze[μ4,"(Subscript[μ, 4])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dze[WK,"(OverTilde[K])",c,a,b]&&Dze[WL,"(OverTilde[L])",c,a,b]&&Dze[κ1,"(Subscript[κ, 1])",c,a,b]&&Dnze[WK1,"(Subscript[K, 1])",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"(Subscript[μ, 4])=",Factor[μ4]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Overscript[L, ∼])=",Factor[WL]},{"(Subscript[κ, 1])=",Factor[κ1]},{"(Subscript[K, 1])=",Factor[WK1]},"Infinite Singularities:     (\!\(\*GridBox[{
{3},
{2}
}]\))E (Overscript[P, ←]) - (Overscript[P, ←])  H, (Overscript[(({{1}, {1}})), -])SN (Config. 15)"}]],

Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dnze[μ4,"(Subscript[μ, 4])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dze[WK,"(OverTilde[K])",c,a,b]&&Dze[WL,"(OverTilde[L])",c,a,b]&&Dze[κ1,"(Subscript[κ, 1])",c,a,b]&&Dze[WK1,"(Subscript[K, 1])",c,a,b]&&Dpo[-WL1,"-L1",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"(Subscript[μ, 4])=",Factor[μ4]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Overscript[L, ∼])=",Factor[WL]},{"(Subscript[κ, 1])=",Factor[κ1]},{"(Subscript[K, 1])=",Factor[WK1]},{"(Subscript[L, 1])=",Factor[WL1]},"Infinite Singularities:     (\!\(\*GridBox[{
{2},
{2}
}]\))E - E, (Overscript[(({{2}, {1}})), -])S (Config. 17)"}]],

Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dnze[μ4,"(Subscript[μ, 4])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dze[WK,"(OverTilde[K])",c,a,b]&&Dze[WL,"(OverTilde[L])",c,a,b]&&Dze[κ1,"(Subscript[κ, 1])",c,a,b]&&Dze[WK1,"(Subscript[K, 1])",c,a,b]&&Dpo[WL1,"L1",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"(Subscript[μ, 4])=",Factor[μ4]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Overscript[L, ∼])=",Factor[WL]},{"(Subscript[κ, 1])=",Factor[κ1]},{"(Subscript[K, 1])=",Factor[WK1]},{"(Subscript[L, 1])=",Factor[WL1]},"Infinite Singularities:     (\!\(\*GridBox[{
{2},
{2}
}]\))H - H, (Overscript[(({{2}, {1}})), -])N (Config. 8)"}]],

Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dze[μ4,"(Subscript[μ, 4])",c,a,b]&&Dnze[κ,"κ",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"(Subscript[μ, 4])=",Factor[μ4]},{"κ=",Factor[κ]},"Infinite Singularities:     (Overscript[(({{0}, {2}})), -])SN, (⊖ [|],∅) (((Subscript[QD, 6])^∞))"}]],

Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dze[μ4,"(Subscript[μ, 4])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dpo[-WK,"-(OverTilde[K])",c,a,b]&&Dnze[WK2,"(Subscript[K, 2])",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"(Subscript[μ, 4])=",Factor[μ4]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[K, 2])=",Factor[WK2]},"Infinite Singularities:     (N^f), (⊖ [|],(Subscript[(N^f), ∧])) (((Subscript[QD, 7])^∞))"}]],

Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dze[μ4,"(Subscript[μ, 4])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dpo[-WK,"-(OverTilde[K])",c,a,b]&&Dze[WK2,"(Subscript[K, 2])",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"(Subscript[μ, 4])=",Factor[μ4]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[K, 2])=",Factor[WK2]},"Infinite Singularities:     (N^f), (⊖ [|],(Subscript[(N^f), /])) (((Subscript[QD, 8])^∞))"}]],

Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dze[μ4,"(Subscript[μ, 4])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dpo[WK,"(OverTilde[K])",c,a,b]&&Dpo[-WL,"-(OverTilde[L])",c,a,b]&&Dnze[WK2,"(Subscript[K, 2])",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"(Subscript[μ, 4])=",Factor[μ4]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Overscript[L, ∼])=",Factor[WL]},{"(Subscript[K, 2])=",Factor[WK2]},"Infinite Singularities:     S, (⊖ [|],(Subscript[(N^∞), ∧])) (((Subscript[QD, 9])^∞))"}]],

Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dze[μ4,"(Subscript[μ, 4])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dpo[WK,"(OverTilde[K])",c,a,b]&&Dpo[-WL,"-(OverTilde[L])",c,a,b]&&Dze[WK2,"(Subscript[K, 2])",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"(Subscript[μ, 4])=",Factor[μ4]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Overscript[L, ∼])=",Factor[WL]},{"(Subscript[K, 2])=",Factor[WK2]},"Infinite Singularities:     S, (⊖ [|],(Subscript[(N^∞), /])) (((Subscript[QD, 10])^∞))"}]],

Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dze[μ4,"(Subscript[μ, 4])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dpo[WK,"(OverTilde[K])",c,a,b]&&Dpo[WL,"(OverTilde[L])",c,a,b]&&Dnze[WK2,"(Subscript[K, 2])",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"(Subscript[μ, 4])=",Factor[μ4]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Overscript[L, ∼])=",Factor[WL]},{"(Subscript[K, 2])=",Factor[WK2]},"Infinite Singularities:     (N^∞), (⊖ [|],(Subscript[S, ∧])) (((Subscript[QD, 11])^∞))"}]],

Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dze[μ4,"(Subscript[μ, 4])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dpo[WK,"(OverTilde[K])",c,a,b]&&Dpo[WL,"(OverTilde[L])",c,a,b]&&Dze[WK2,"(Subscript[K, 2])",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"(Subscript[μ, 4])=",Factor[μ4]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Overscript[L, ∼])=",Factor[WL]},{"(Subscript[K, 2])=",Factor[WK2]},"Infinite Singularities:     (N^∞), (⊖ [|],(Subscript[S, /])) (((Subscript[QD, 12])^∞))"}]],

Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dze[μ4,"(Subscript[μ, 4])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dze[WK,"(OverTilde[K])",c,a,b]&&Dnze[WL,"(OverTilde[L])",c,a,b]&&Dnze[κ1,"(Subscript[κ, 1])",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"(Subscript[μ, 4])=",Factor[μ4]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Overscript[L, ∼])=",Factor[WL]},{"(Subscript[κ, 1])=",Factor[κ1]},"Infinite Singularities:     (SuperStar[N]), (⊖ [⋃],∅) (((Subscript[QD, 13])^∞))"}]],

Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dze[μ4,"(Subscript[μ, 4])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dze[WK,"(OverTilde[K])",c,a,b]&&Dnze[WL,"(OverTilde[L])",c,a,b]&&Dze[κ1,"(Subscript[κ, 1])",c,a,b]&&Dpo[-WK2,"-(Subscript[K, 2])",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"(Subscript[μ, 4])=",Factor[μ4]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Overscript[L, ∼])=",Factor[WL]},{"(Subscript[κ, 1])=",Factor[κ1]},{"(Subscript[K, 2])=",Factor[WK2]},"Infinite Singularities:     (SuperStar[N]), (⊖ [(\[LeftDoubleBracketingBar]^c)],∅) (((Subscript[QD, 30])^∞))"}]],

Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dze[μ4,"(Subscript[μ, 4])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dze[WK,"(OverTilde[K])",c,a,b]&&Dnze[WL,"(OverTilde[L])",c,a,b]&&Dze[κ1,"(Subscript[κ, 1])",c,a,b]&&Dpo[WK2,"(Subscript[K, 2])",c,a,b]&&Dnze[θ6,"θ6",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"(Subscript[μ, 4])=",Factor[μ4]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Overscript[L, ∼])=",Factor[WL]},{"(Subscript[κ, 1])=",Factor[κ1]},{"(Subscript[K, 2])=",Factor[WK2]},{"(Subscript[θ, 6])=",Factor[θ6]},"Infinite Singularities:     (N^d), (⊖ [|],(Overscript[(({{1}, {1}})), -])(Subscript[SN, ∧])) (((Subscript[QD, 14])^∞))"}]],

Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dze[μ4,"(Subscript[μ, 4])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dze[WK,"(OverTilde[K])",c,a,b]&&Dnze[WL,"(OverTilde[L])",c,a,b]&&Dze[κ1,"(Subscript[κ, 1])",c,a,b]&&Dpo[WK2,"(Subscript[K, 2])",c,a,b]&&Dze[θ6,"θ6",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"(Subscript[μ, 4])=",Factor[μ4]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Overscript[L, ∼])=",Factor[WL]},{"(Subscript[κ, 1])=",Factor[κ1]},{"(Subscript[K, 2])=",Factor[WK2]},{"(Subscript[θ, 6])=",Factor[θ6]},"Infinite Singularities:     (SuperStar[N]), (⊖ [\[LeftDoubleBracketingBar]],∅) (((Subscript[QD, 15])^∞))"}]],

Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dze[μ4,"(Subscript[μ, 4])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dze[WK,"(OverTilde[K])",c,a,b]&&Dnze[WL,"(OverTilde[L])",c,a,b]&&Dze[κ1,"(Subscript[κ, 1])",c,a,b]&&Dze[WK2,"(Subscript[K, 2])",c,a,b]&&Dnze[θ6,"θ6",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"(Subscript[μ, 4])=",Factor[μ4]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Overscript[L, ∼])=",Factor[WL]},{"(Subscript[κ, 1])=",Factor[κ1]},{"(Subscript[K, 2])=",Factor[WK2]},{"(Subscript[θ, 6])=",Factor[θ6]},"Infinite Singularities:     (N^d), (⊖ [|],(Overscript[(({{1}, {1}})), -])(Subscript[SN, /])) (((Subscript[QD, 16])^∞))"}]],

Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dze[μ4,"(Subscript[μ, 4])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dze[WK,"(OverTilde[K])",c,a,b]&&Dnze[WL,"(OverTilde[L])",c,a,b]&&Dze[κ1,"(Subscript[κ, 1])",c,a,b]&&Dze[WK2,"(Subscript[K, 2])",c,a,b]&&Dze[θ6,"θ6",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"(Subscript[μ, 4])=",Factor[μ4]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Overscript[L, ∼])=",Factor[WL]},{"(Subscript[κ, 1])=",Factor[κ1]},{"(Subscript[K, 2])=",Factor[WK2]},{"(Subscript[θ, 6])=",Factor[θ6]},"Infinite Singularities:     (SuperStar[N]), (⊖ [\[RightBracketingBar]2],∅) (((Subscript[QD, 17])^∞))"}]],

Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dze[μ4,"(Subscript[μ, 4])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dze[WK,"(OverTilde[K])",c,a,b]&&Dze[WL,"(OverTilde[L])",c,a,b]&&Dnze[κ1,"(Subscript[κ, 1])",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"(Subscript[μ, 4])=",Factor[μ4]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Overscript[L, ∼])=",Factor[WL]},{"(Subscript[κ, 1])=",Factor[κ1]},"Infinite Singularities:     (OverHat[(({{1}, {2}}))])E - H, (⊖ [\[RightBracketingBar]],∅) (((Subscript[QD, 18])^∞))"}]],

Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dze[μ4,"(Subscript[μ, 4])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dze[WK,"(OverTilde[K])",c,a,b]&&Dze[WL,"(OverTilde[L])",c,a,b]&&Dze[κ1,"(Subscript[κ, 1])",c,a,b]&&Dnze[WK1,"(Subscript[K, 1])",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"(Subscript[μ, 4])=",Factor[μ4]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Overscript[L, ∼])=",Factor[WL]},{"(Subscript[κ, 1])=",Factor[κ1]},{"(Subscript[K, 1])=",Factor[WK1]},"Infinite Singularities:     (Overscript[(({{1}, {1}})), -])SN, (⊖ [\[RightBracketingBar]],(N^d)) (((Subscript[QD, 19])^∞))"}]],

Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dze[μ4,"(Subscript[μ, 4])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dze[WK,"(OverTilde[K])",c,a,b]&&Dze[WL,"(OverTilde[L])",c,a,b]&&Dze[κ1,"(Subscript[κ, 1])",c,a,b]&&Dze[WK1,"(Subscript[K, 1])",c,a,b]&&Dnze[WL2,"L2",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"(Subscript[μ, 4])=",Factor[μ4]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Overscript[L, ∼])=",Factor[WL]},{"(Subscript[κ, 1])=",Factor[κ1]},{"(Subscript[K, 1])=",Factor[WK1]},{"(Subscript[L, 2])=",Factor[WL2]},"Infinite Singularities:     (⊖ [)(],(SuperStar[N]),∅) (((Subscript[QD, 20])^∞))"}]],

Dze[η,"η",c,a,b]&&Dnze[WM,"(OverTilde[M])",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dze[μ4,"(Subscript[μ, 4])",c,a,b]&&Dze[κ,"κ",c,a,b]&&Dze[WK,"(OverTilde[K])",c,a,b]&&Dze[WL,"(OverTilde[L])",c,a,b]&&Dze[κ1,"(Subscript[κ, 1])",c,a,b]&&Dze[WK1,"(Subscript[K, 1])",c,a,b]&&Dze[WL2,"L2",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"(Subscript[μ, 4])=",Factor[μ4]},{"κ=",Factor[κ]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Overscript[L, ∼])=",Factor[WL]},{"(Subscript[κ, 1])=",Factor[κ1]},{"(Subscript[K, 1])=",Factor[WK1]},{"(Subscript[L, 2])=",Factor[WL2]},"Infinite Singularities:     (⊖ [×],(SuperStar[N]),∅) (((Subscript[QD, 21])^∞))"}]],

Dze[η,"η",c,a,b]&&Dze[WM,"(OverTilde[M])",c,a,b]&&Dnze[WC2,"(Subscript[C, 2])",c,a,b]&&Dpo[-μ0,"-μ0",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[C, 2])=",Factor[WC2]},{"(Subscript[μ, 0])=",Factor[μ0]},"Infinite Singularities:     (Overscript[(({{0}, {3}})), -])S (Config. 34)"}]],

Dze[η,"η",c,a,b]&&Dze[WM,"(OverTilde[M])",c,a,b]&&Dnze[WC2,"(Subscript[C, 2])",c,a,b]&&Dpo[μ0,"(Subscript[μ, 0])",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[C, 2])=",Factor[WC2]},{"(Subscript[μ, 0])=",Factor[μ0]},"Infinite Singularities:     (Overscript[(({{0}, {3}})), -])N (Config. 30)"}]],

Dze[η,"η",c,a,b]&&Dze[WM,"(OverTilde[M])",c,a,b]&&Dnze[WC2,"(Subscript[C, 2])",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[C, 2])=",Factor[WC2]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},"Infinite Singularities:     (OverHat[(({{1}, {3}}))])(Subscript[H, ∧]) H (Subscript[(Overscript[P, →]), ∧]) - (Overscript[P, ←])  (Config. 37)"}]],

Dze[η,"η",c,a,b]&&Dze[WM,"(OverTilde[M])",c,a,b]&&Dnze[WC2,"(Subscript[C, 2])",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dnze[WK,"(OverTilde[K])",c,a,b]&&Dpo[-μ2,"-μ2",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[C, 2])=",Factor[WC2]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Overscript[K, ∼])=",Factor[WK]},"Infinite Singularities:     (\!\(\*GridBox[{
{2},
{3}
}]\))H H (Overscript[P, →]) - (Overscript[P, ←]) H H (Config. 40)"}]],

Dze[η,"η",c,a,b]&&Dze[WM,"(OverTilde[M])",c,a,b]&&Dnze[WC2,"(Subscript[C, 2])",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dnze[WK,"(OverTilde[K])",c,a,b]&&Dpo[μ2,"(Subscript[μ, 2])",c,a,b]&&Dpo[-WK2,"-(Subscript[K, 2])",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[C, 2])=",Factor[WC2]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[K, 2])=",Factor[WK2]},"Infinite Singularities:     (\!\(\*GridBox[{
{2},
{3}
}]\))(Overscript[P, →]) - (Overscript[P, ←]) (Config. 30)"}]],

Dze[η,"η",c,a,b]&&Dze[WM,"(OverTilde[M])",c,a,b]&&Dnze[WC2,"(Subscript[C, 2])",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dnze[WK,"(OverTilde[K])",c,a,b]&&Dpo[μ2,"(Subscript[μ, 2])",c,a,b]&&Dpo[WK2,"(Subscript[K, 2])",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[C, 2])=",Factor[WC2]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[K, 2])=",Factor[WK2]},"Infinite Singularities:     (\!\(\*GridBox[{
{2},
{3}
}]\))H (Overscript[P, →]) E - (Overscript[P, ←]) (Overscript[P, →]) (Overscript[P, ←]) (Config. 32)"}]],

Dze[η,"η",c,a,b]&&Dze[WM,"(OverTilde[M])",c,a,b]&&Dnze[WC2,"(Subscript[C, 2])",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dnze[WK,"(OverTilde[K])",c,a,b]&&Dpo[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[WK2,"(Subscript[K, 2])",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[C, 2])=",Factor[WC2]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[K, 2])=",Factor[WK2]},"Infinite Singularities:     (\!\(\*GridBox[{
{2},
{3}
}]\))H E - (Overscript[P, ←]) (Overscript[P, ←]) (Config. 32)"}]],

Dze[η,"η",c,a,b]&&Dze[WM,"(OverTilde[M])",c,a,b]&&Dnze[WC2,"(Subscript[C, 2])",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dnze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[WK,"(OverTilde[K])",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[C, 2])=",Factor[WC2]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Overscript[K, ∼])=",Factor[WK]},"Infinite Singularities:     (OverHat[(({{2}, {3}}))])(Subscript[(Overscript[P, →]), ∧]) (Overscript[P, ←]) - (Subscript[(Overscript[P, →]), ∧]) (Overscript[P, ←]) (Config. 30)"}]],

Dze[η,"η",c,a,b]&&Dze[WM,"(OverTilde[M])",c,a,b]&&Dnze[WC2,"(Subscript[C, 2])",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dnze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dnze[WK,"(OverTilde[K])",c,a,b]&&Dpo[-WK3,"-(Subscript[K, 3])",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[C, 2])=",Factor[WC2]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[K, 3])=",Factor[WK3]},"Infinite Singularities:     (\!\(\*GridBox[{
{3},
{3}
}]\)) H (Overscript[P, →]) E - (Overscript[P, ←]) H H (Config. 39)"}]],

Dze[η,"η",c,a,b]&&Dze[WM,"(OverTilde[M])",c,a,b]&&Dnze[WC2,"(Subscript[C, 2])",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dnze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dnze[WK,"(OverTilde[K])",c,a,b]&&Dpo[WK3,"(Subscript[K, 3])",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[C, 2])=",Factor[WC2]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[K, 3])=",Factor[WK3]},"Infinite Singularities:     (\!\(\*GridBox[{
{3},
{3}
}]\)) H H (Overscript[P, →]) - (Overscript[P, ←]) (Overscript[P, →]) (Overscript[P, ←]) (Config. 37)"}]],

Dze[η,"η",c,a,b]&&Dze[WM,"(OverTilde[M])",c,a,b]&&Dnze[WC2,"(Subscript[C, 2])",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[WK,"(OverTilde[K])",c,a,b]&&Dpo[-μ3 WK1,"-(Subscript[μ, 3]) (Subscript[K, 1])",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[C, 2])=",Factor[WC2]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3]) (Subscript[K, 1])=",Factor[μ3 WK1]},{"(Overscript[K, ∼])=",Factor[WK]},"Infinite Singularities:     (\!\(\*GridBox[{
{3},
{3}
}]\)) (Subscript[(Overscript[P, →]), ∧]) E E (Subscript[(Overscript[P, ←]), ∧]) - (Overscript[P, →]) (Overscript[P, ←]) (Config. 33)"}]],

Dze[η,"η",c,a,b]&&Dze[WM,"(OverTilde[M])",c,a,b]&&Dnze[WC2,"(Subscript[C, 2])",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[WK,"(OverTilde[K])",c,a,b]&&Dpo[μ3 WK1,"(Subscript[μ, 3]) (Subscript[K, 1])",c,a,b]&&Dpo[-WK3,"-(Subscript[K, 3])",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[C, 2])=",Factor[WC2]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3]) (Subscript[K, 1])=",Factor[μ3 WK1]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[K, 3])=",Factor[WK3]},"Infinite Singularities:     (\!\(\*GridBox[{
{3},
{3}
}]\)) (Subscript[H, ∧]) (Overscript[P, ←]) (Overscript[P, →]) (Subscript[H, ∧]) - (Overscript[P, ←]) (Overscript[P, →]) (Config. 38)"}]],

Dze[η,"η",c,a,b]&&Dze[WM,"(OverTilde[M])",c,a,b]&&Dnze[WC2,"(Subscript[C, 2])",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[WK,"(OverTilde[K])",c,a,b]&&Dpo[μ3 WK1,"(Subscript[μ, 3]) (Subscript[K, 1])",c,a,b]&&Dpo[WK3,"(Subscript[K, 3])",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[C, 2])=",Factor[WC2]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3]) (Subscript[K, 1])=",Factor[μ3 WK1]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[K, 3])=",Factor[WK3]},"Infinite Singularities:     (\!\(\*GridBox[{
{3},
{3}
}]\))  (Subscript[(Overscript[P, →]), ∧]) (Overscript[P, ←]) (Overscript[P, →]) (Subscript[(Overscript[P, ←]), ∧]) - H H (Config. 31)"}]],

Dze[η,"η",c,a,b]&&Dze[WM,"(OverTilde[M])",c,a,b]&&Dnze[WC2,"(Subscript[C, 2])",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[WK,"(OverTilde[K])",c,a,b]&&Dpo[μ3 WK1,"(Subscript[μ, 3]) (Subscript[K, 1])",c,a,b]&&Dze[WK3,"(Subscript[K, 3])",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[C, 2])=",Factor[WC2]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3]) (Subscript[K, 1])=",Factor[μ3 WK1]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[K, 3])=",Factor[WK3]},"Infinite Singularities:     (\!\(\*GridBox[{
{3},
{3}
}]\))  H H - (Overscript[P, ←]) (Overscript[P, →]) (Config. 31)"}]],

Dze[η,"η",c,a,b]&&Dze[WM,"(OverTilde[M])",c,a,b]&&Dnze[WC2,"(Subscript[C, 2])",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dnze[μ4,"(Subscript[μ, 4])",c,a,b]&&Dnze[WK,"(OverTilde[K])",c,a,b]&&Dpo[-WK3,"-(Subscript[K, 3])",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[C, 2])=",Factor[WC2]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"(Subscript[μ, 4])=",Factor[μ4]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[K, 3])=",Factor[WK3]},"Infinite Singularities:     (\!\(\*GridBox[{
{4},
{3}
}]\)) E (Subscript[(Overscript[P, ←]), ∧]) H - H (Subscript[(Overscript[P, →]), ∧]) E (Config. 36)"}]],

Dze[η,"η",c,a,b]&&Dze[WM,"(OverTilde[M])",c,a,b]&&Dnze[WC2,"(Subscript[C, 2])",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dnze[μ4,"(Subscript[μ, 4])",c,a,b]&&Dnze[WK,"(OverTilde[K])",c,a,b]&&Dpo[WK3,"(Subscript[K, 3])",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[C, 2])=",Factor[WC2]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"(Subscript[μ, 4])=",Factor[μ4]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[K, 3])=",Factor[WK3]},"Infinite Singularities:     (\!\(\*GridBox[{
{4},
{3}
}]\)) (Overscript[P, ←]) (Subscript[(Overscript[P, →]), ∧]) (Overscript[P, →]) - (Overscript[P, →]) (Subscript[(Overscript[P, ←]), ∧]) (Overscript[P, ←]) (Config. 30)"}]],

Dze[η,"η",c,a,b]&&Dze[WM,"(OverTilde[M])",c,a,b]&&Dnze[WC2,"(Subscript[C, 2])",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dze[WK,"(OverTilde[K])",c,a,b]&&Dnze[WK1,"(Subscript[K, 1])",c,a,b]&&Dpo[-μ4,"-μ4",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[C, 2])=",Factor[WC2]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"(Subscript[μ, 4])=",Factor[μ4]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[K, 1])=",Factor[WK1]},"Infinite Singularities:     (\!\(\*GridBox[{
{4},
{3}
}]\)) (Subscript[(Overscript[P, →]), ∧]) E E (Subscript[(Overscript[P, ←]), ∧]) - H H (Config. 35)"}]],

Dze[η,"η",c,a,b]&&Dze[WM,"(OverTilde[M])",c,a,b]&&Dnze[WC2,"(Subscript[C, 2])",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dze[WK,"(OverTilde[K])",c,a,b]&&Dnze[WK1,"(Subscript[K, 1])",c,a,b]&&Dpo[μ4,"(Subscript[μ, 4])",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[C, 2])=",Factor[WC2]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"(Subscript[μ, 4])=",Factor[μ4]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[K, 1])=",Factor[WK1]},"Infinite Singularities:     (\!\(\*GridBox[{
{4},
{3}
}]\)) (Subscript[(Overscript[P, →]), ∧]) (Overscript[P, ←]) (Overscript[P, →]) (Subscript[(Overscript[P, ←]), ∧]) - (Overscript[P, →]) (Overscript[P, ←]) (Config. 30)"}]],

Dze[η,"η",c,a,b]&&Dze[WM,"(OverTilde[M])",c,a,b]&&Dnze[WC2,"(Subscript[C, 2])",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dnze[μ4,"(Subscript[μ, 4])",c,a,b]&&Dze[WK,"(OverTilde[K])",c,a,b]&&Dze[WK1,"(Subscript[K, 1])",c,a,b]&&Dnze[WK3,"(Subscript[K, 3])",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[C, 2])=",Factor[WC2]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"(Subscript[μ, 4])=",Factor[μ4]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[K, 1])=",Factor[WK1]},{"(Subscript[K, 3])=",Factor[WK3]},"Infinite Singularities:     (\!\(\*GridBox[{
{4},
{3}
}]\)) (Subscript[(Overscript[P, →]), ∧]) E (Subscript[H, ∧]) - (Overscript[P, →]) (Config. 32)"}]],

Dze[η,"η",c,a,b]&&Dze[WM,"(OverTilde[M])",c,a,b]&&Dnze[WC2,"(Subscript[C, 2])",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dnze[μ4,"(Subscript[μ, 4])",c,a,b]&&Dze[WK,"(OverTilde[K])",c,a,b]&&Dze[WK1,"(Subscript[K, 1])",c,a,b]&&Dze[WK3,"(Subscript[K, 3])",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[C, 2])=",Factor[WC2]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"(Subscript[μ, 4])=",Factor[μ4]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[K, 1])=",Factor[WK1]},{"(Subscript[K, 3])=",Factor[WK3]},"Infinite Singularities:     (\!\(\*GridBox[{
{4},
{3}
}]\)) (Subscript[(Overscript[P, →]), ∧]) (Overscript[P, ←]) - (Overscript[P, →]) (Subscript[(Overscript[P, ←]), ∧]) (Config. 30)"}]],

Dze[η,"η",c,a,b]&&Dze[WM,"(OverTilde[M])",c,a,b]&&Dnze[WC2,"(Subscript[C, 2])",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dze[μ4,"(Subscript[μ, 4])",c,a,b]&&Dnze[WK,"(OverTilde[K])",c,a,b]&&Dnze[WK2,"(Subscript[K, 2])",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[C, 2])=",Factor[WC2]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"(Subscript[μ, 4])=",Factor[μ4]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[K, 2])=",Factor[WK2]},"Infinite Singularities:     (⊖ [|],(Overscript[(({{0}, {2}})), -])(Subscript[SN, ∧])) (((Subscript[QD, 22])^∞))"}]],

Dze[η,"η",c,a,b]&&Dze[WM,"(OverTilde[M])",c,a,b]&&Dnze[WC2,"(Subscript[C, 2])",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dze[μ4,"(Subscript[μ, 4])",c,a,b]&&Dnze[WK,"(OverTilde[K])",c,a,b]&&Dze[WK2,"(Subscript[K, 2])",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[C, 2])=",Factor[WC2]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"(Subscript[μ, 4])=",Factor[μ4]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[K, 2])=",Factor[WK2]},"Infinite Singularities:     (⊖ [|],(Overscript[(({{0}, {2}})), -])(Subscript[SN, /])) (((Subscript[QD, 23])^∞))"}]],

Dze[η,"η",c,a,b]&&Dze[WM,"(OverTilde[M])",c,a,b]&&Dnze[WC2,"(Subscript[C, 2])",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dze[μ4,"(Subscript[μ, 4])",c,a,b]&&Dze[WK,"(OverTilde[K])",c,a,b]&&Dnze[WK1,"(Subscript[K, 1])",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[C, 2])=",Factor[WC2]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"(Subscript[μ, 4])=",Factor[μ4]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[K, 1])=",Factor[WK1]},"Infinite Singularities:     (⊖ [|],(OverHat[(({{1}, {2}}))])E - H ) (((Subscript[QD, 24])^∞))"}]],

Dze[η,"η",c,a,b]&&Dze[WM,"(OverTilde[M])",c,a,b]&&Dnze[WC2,"(Subscript[C, 2])",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dze[μ4,"(Subscript[μ, 4])",c,a,b]&&Dze[WK,"(OverTilde[K])",c,a,b]&&Dze[WK1,"(Subscript[K, 1])",c,a,b]&&Dnze[WK3,"(Subscript[K, 3])",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[C, 2])=",Factor[WC2]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"(Subscript[μ, 4])=",Factor[μ4]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[K, 1])=",Factor[WK1]},{"(Subscript[K, 3])=",Factor[WK3]},"Infinite Singularities:     (⊖ [⋃],(SuperStar[N])) (((Subscript[QD, 25])^∞))"}]],

Dze[η,"η",c,a,b]&&Dze[WM,"(OverTilde[M])",c,a,b]&&Dnze[WC2,"(Subscript[C, 2])",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dze[μ4,"(Subscript[μ, 4])",c,a,b]&&Dze[WK,"(OverTilde[K])",c,a,b]&&Dze[WK1,"(Subscript[K, 1])",c,a,b]&&Dze[WK3,"(Subscript[K, 3])",c,a,b]&&Dpo[-WL3,"-L3",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[C, 2])=",Factor[WC2]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"(Subscript[μ, 4])=",Factor[μ4]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[K, 1])=",Factor[WK1]},{"(Subscript[K, 3])=",Factor[WK3]},{"(Subscript[L, 3])=",Factor[WL3]},"Infinite Singularities:     (⊖ [(\[LeftDoubleBracketingBar]^c)],(SuperStar[N])) (((Subscript[QD, 30])^∞))"}]],

Dze[η,"η",c,a,b]&&Dze[WM,"(OverTilde[M])",c,a,b]&&Dnze[WC2,"(Subscript[C, 2])",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dze[μ4,"(Subscript[μ, 4])",c,a,b]&&Dze[WK,"(OverTilde[K])",c,a,b]&&Dze[WK1,"(Subscript[K, 1])",c,a,b]&&Dze[WK3,"(Subscript[K, 3])",c,a,b]&&Dpo[WL3,"L3",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[C, 2])=",Factor[WC2]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"(Subscript[μ, 4])=",Factor[μ4]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[K, 1])=",Factor[WK1]},{"(Subscript[K, 3])=",Factor[WK3]},{"(Subscript[L, 3])=",Factor[WL3]},"Infinite Singularities:     (⊖ [\[LeftDoubleBracketingBar]],(SuperStar[N])) (((Subscript[QD, 26])^∞))"}]],

Dze[η,"η",c,a,b]&&Dze[WM,"(OverTilde[M])",c,a,b]&&Dnze[WC2,"(Subscript[C, 2])",c,a,b]&&Dze[μ0,"(Subscript[μ, 0])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dze[μ4,"(Subscript[μ, 4])",c,a,b]&&Dze[WK,"(OverTilde[K])",c,a,b]&&Dze[WK1,"(Subscript[K, 1])",c,a,b]&&Dze[WK3,"(Subscript[K, 3])",c,a,b]&&Dze[WL3,"L3",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[C, 2])=",Factor[WC2]},{"(Subscript[μ, 0])=",Factor[μ0]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"(Subscript[μ, 4])=",Factor[μ4]},{"(Overscript[K, ∼])=",Factor[WK]},{"(Subscript[K, 1])=",Factor[WK1]},{"(Subscript[K, 3])=",Factor[WK3]},{"(Subscript[L, 3])=",Factor[WL3]},"Infinite Singularities:     (⊖ [|2],(SuperStar[N])) (((Subscript[QD, 27])^∞))"}]],

Dze[η,"η",c,a,b]&&Dze[WM,"(OverTilde[M])",c,a,b]&&Dze[WC2,"(Subscript[C, 2])",c,a,b]&&Dnze[μ1,"(Subscript[μ, 1])",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[C, 2])=",Factor[WC2]},{"(Subscript[μ, 1])=",Factor[μ1]},"Infinite Singularities:     [∞ , ∅] (Config. 41)"}]],

Dze[η,"η",c,a,b]&&Dze[WM,"(OverTilde[M])",c,a,b]&&Dze[WC2,"(Subscript[C, 2])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[-μ2,"-μ2",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[C, 2])=",Factor[WC2]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},"Infinite Singularities:     [∞ , S] (Config. 42)"}]],

Dze[η,"η",c,a,b]&&Dze[WM,"(OverTilde[M])",c,a,b]&&Dze[WC2,"(Subscript[C, 2])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[μ2,"(Subscript[μ, 2])",c,a,b]&&Dpo[-WK2,"-(Subscript[K, 2])",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[C, 2])=",Factor[WC2]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[K, 2])=",Factor[WK2]},"Infinite Singularities:     [∞ , C] (Config. 43)"}]],

Dze[η,"η",c,a,b]&&Dze[WM,"(OverTilde[M])",c,a,b]&&Dze[WC2,"(Subscript[C, 2])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[μ2,"(Subscript[μ, 2])",c,a,b]&&Dpo[WK2,"(Subscript[K, 2])",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[C, 2])=",Factor[WC2]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[K, 2])=",Factor[WK2]},"Infinite Singularities:     [∞ , N] (Config. 44)"}]],

Dze[η,"η",c,a,b]&&Dze[WM,"(OverTilde[M])",c,a,b]&&Dze[WC2,"(Subscript[C, 2])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dpo[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[WK2,"(Subscript[K, 2])",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[C, 2])=",Factor[WC2]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[K, 2])=",Factor[WK2]},"Infinite Singularities:     [∞ , (N^d)] (Config. 44)"}]],

Dze[η,"η",c,a,b]&&Dze[WM,"(OverTilde[M])",c,a,b]&&Dze[WC2,"(Subscript[C, 2])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dnze[μ3,"(Subscript[μ, 3])",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[C, 2])=",Factor[WC2]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},"Infinite Singularities:     [∞ ,(Overscript[(({{2}, {0}})), -])SN] (Config. 45)"}]],

Dze[η,"η",c,a,b]&&Dze[WM,"(OverTilde[M])",c,a,b]&&Dze[WC2,"(Subscript[C, 2])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dnze[μ4,"(Subscript[μ, 4])",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[C, 2])=",Factor[WC2]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"(Subscript[μ, 4])=",Factor[μ4]},"Infinite Singularities:     [∞ ,(OverHat[(({{3}, {0}}))])ES] (Config. 46)"}]],

Dze[η,"η",c,a,b]&&Dze[WM,"(OverTilde[M])",c,a,b]&&Dze[WC2,"(Subscript[C, 2])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dze[μ4,"(Subscript[μ, 4])",c,a,b]&&Dnze[WK2,"(Subscript[K, 2])",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[C, 2])=",Factor[WC2]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"(Subscript[μ, 4])=",Factor[μ4]},{"(Subscript[K, 2])=",Factor[WK2]},"Infinite Singularities:     [∞ ,(⊖ [|],(Subscript[∞, ∧]))] (((Subscript[QD, 28])^∞))"}]],

Dze[η,"η",c,a,b]&&Dze[WM,"(OverTilde[M])",c,a,b]&&Dze[WC2,"(Subscript[C, 2])",c,a,b]&&Dze[μ1,"(Subscript[μ, 1])",c,a,b]&&Dze[μ2,"(Subscript[μ, 2])",c,a,b]&&Dze[μ3,"(Subscript[μ, 3])",c,a,b]&&Dze[μ4,"(Subscript[μ, 4])",c,a,b]&&Dze[WK2,"(Subscript[K, 2])",c,a,b],Print2[Column[{{"η=",Factor[η]},{"(Overscript[M, ∼])=",Factor[WM]},{"(Subscript[C, 2])=",Factor[WC2]},{"(Subscript[μ, 1])=",Factor[μ1]},{"(Subscript[μ, 2])=",Factor[μ2]},{"(Subscript[μ, 3])=",Factor[μ3]},{"(Subscript[μ, 4])=",Factor[μ4]},{"(Subscript[K, 2])=",Factor[WK2]},"Infinite Singularities:     [∞ ,(⊖ [|],(Subscript[∞, /]))] (((Subscript[QD, 28])^∞))"}]],True,Print2["Something fails"]
]}

The NAssuming  functions are the equivalent set of previous functions with the next differences:   1)   They work completely numerically  2)  They are useful for systems defined with 12 parameters being numbers and some of them are either very complicated radicals or approximate numerical solutions obtained to achieve certain conditions   3)   Add an "N" at the beggining of each desired function   4)  Add a 4th parameter being a positive integer "t" so that any number "x" with Abs[x]< 10^(-t) will be considered zero.  5)  In the case you are working with numerics, do not forgot to try the function "shockme" 6)  ENJOY

NAssuming1[tot_,x_,t_]:=Assuming[tot,If[NumberQ[If[Refine[(x/.{var1->Random[],var2->Random[]})>10^(-t)],1,0]],If[Refine[(x/.{var1->Random[],var2->Random[]})>10^(-t)],TEST=1,TEST=-1]]]

NAssuming2[tot_,x_,t_]:=Assuming[tot,If[NumberQ[If[Refine[(Discrim[x/.var1->1,var2])<-10^(-t)],1,0]],If[Refine[(Discrim[x/.var1->1,var2])<-10^(-t)],NAssuming1[tot,x/.{var1->-0.2,var2->1.9},t]]]]

NAssuming4[tot_,x_,t_]:={DIS4=Factor[Discrim4PQDRSTU[(x)/.var1->1,var2]];Assuming[tot,If[NumberQ[If[Refine[(DIS4[[3]]<-10^(-t) && DIS4[[5]]<-10^(-t))|| (DIS4[[3]]<-10^(-t) && ¬DIS4[[4]]>10^(-t))||(DIS4[[3]]<-10^(-t) && DIS4[[6]]<-10^(-t) && DIS4[[1]]DIS4[[4]]<-10^(-t))],1,0]],If[Refine[(DIS4[[3]]<-10^(-t) && DIS4[[5]]<-10^(-t))|| (DIS4[[3]]<-10^(-t) && ¬DIS4[[4]]>10^(-t))||(DIS4[[3]]<-10^(-t) && DIS4[[6]]<-10^(-t) && DIS4[[1]]DIS4[[4]]<-10^(-t))],NAssuming1[tot,x/.{var1->-0.2,var2->1.9},t]]]]}

NpoC[x_,c_,a_,b_,t_]:=(TEST=0;Do[If[NumberQ[Simplify[x/c[[i]]]],TEST=-1],{i,1,Length[c]}]Do[If[NumberQ[Simplify[x/a[[i]]]],If[Simplify[x/a[[i]]]>0,TEST=1,TEST=-1]],{i,1,Length[a]}];If[TEST==0,NAssuming1[tot,x,t]];If[TEST==0 && Exponent[x,var2]==2,NAssuming2[tot,x,t]];If[TEST==0 && Exponent[x,var2]==4,NAssuming4[tot,x,t]];If[TEST==0,Print2[Factor[x],">0??"]];If[TEST==1,Return[True]];If[TEST==-1,Return[False]])

Nassume[c_,a_,b_,t_]:=Assuming[Union[{var1≠0},{var2≠0},Table[c[[i]]==0,{i,1,Length[c]}],Table[a[[i]]>0,{i,1,Length[a]}],Table[b[[i]]^2>0,{i,1,Length[b]}],Table[b[[i]]≠0,{i,1,Length[b]}]],Refine[(x/.{var1->Random[],var2->Random[]})>10^(-t)]]

Npo2[x_,c_,a_,b_,t_]:=Assuming[Union[{var1≠0},{var2≠0},Table[c[[i]]==0,{i,1,Length[c]}],Table[a[[i]]>0,{i,1,Length[a]}],Table[b[[i]]^2>0,{i,1,Length[b]}],Table[b[[i]]≠0,{i,1,Length[b]}]],If[NumberQ[If[Refine[(x/.{var1->Random[],var2->Random[]})>10^(-t)],1,0]],If[Refine[(x/.{var1->Random[],var2->Random[]})>10^(-t)],True,False],Print2[Factor[x],">0??"]]]

NpoG[x_,c_,a_,b_,t_]:=(TEST=0;Do[If[NumberQ[Simplify[x/c[[i]]]],TEST=-1],{i,1,Length[c]}]Do[If[NumberQ[Simplify[x/a[[i]]]],If[Simplify[x/a[[i]]]>0,TEST=1,TEST=-1]],{i,1,Length[a]}];If[TEST==0,Assuming[Union[{var1≠0},{var2≠0},Table[c[[i]]==0,{i,1,Length[c]}],Table[a[[i]]>0,{i,1,Length[a]}],Table[b[[i]]^2>0,{i,1,Length[b]}],Table[b[[i]]≠0,{i,1,Length[b]}]],If[NumberQ[If[Refine[(x/.{var1->Random[],var2->Random[]})>10^(-t)],1,0]],If[Refine[(x/.{var1->Random[],var2->Random[]})>10^(-t)],True,False],Print2[Factor[x],">0??"]]],If[TEST==1,True,False]])

Npo[x_,c_,a_,b_,t_]:=If[NumberQ[x/.{var1->Random[],var2->Random[]}],NpoC[x,c,a,b,t],NpoG[x,c,a,b,t]]

Npo3[x_,c_,a_,b_,t_]:=Assuming[Union[{var1≠0},{var2≠0},Table[(c[[i]]/.{var1->π,var2->-E})==0,{i,1,Length[c]}],Table[(a[[i]]/.{var1->π,var2->-E})>0,{i,1,Length[a]}],Table[(b[[i]]^2/.{var1->π,var2->-E})>0,{i,1,Length[b]}],Table[(b[[i]]/.{var1->π,var2->-E})≠0,{i,1,Length[b]}]],If[NumberQ[If[Refine[(x/.{var1->Random[],var2->Random[]})>10^(-t)],1,0]],If[Refine[(x/.{var1->Random[],var2->Random[]})>10^(-t)],True,False],Print2[Factor[x],">0??"]]]

Nze[x_,c_,a_,b_,t_]:=Assuming[Union[{var1≠0},{var2≠0},Table[c[[i]]==0,{i,1,Length[c]}],Table[a[[i]]>0,{i,1,Length[a]}],Table[b[[i]]^2>0,{i,1,Length[b]}],Table[b[[i]]≠0,{i,1,Length[b]}]],If[NumberQ[If[Refine[Abs[FullSimplify[x/.{var1->Random[],var2->Random[]}]]>10^(-t)],1,0]],If[Refine[Abs[FullSimplify[x/.{var1->Random[],var2->Random[]}]]>10^(-t)],False,True],Print2[Factor[x],"=0??"]]]

Nnze[x_,c_,a_,b_,t_]:=Assuming[Union[{var1≠0},{var2≠0},Table[c[[i]]==0,{i,1,Length[c]}],Table[a[[i]]>0,{i,1,Length[a]}],Table[b[[i]]^2>0,{i,1,Length[b]}],Table[b[[i]]≠0,{i,1,Length[b]}]],If[NumberQ[If[Refine[Abs[FullSimplify[x/.{var1->Random[],var2->Random[]}]]>10^(-t)],1,0]],If[Refine[Abs[FullSimplify[x/.{var1->Random[],var2->Random[]}]]>10^(-t)],True,False],Print2[Factor[x],"≠0??"]]]

ALL THE NEXT FUNCTIONS WORK WITH A MAXIMUM OF 4 PARAMETERS. WITH MORE, SOME MALFUNCTIONS CAN APPEAR

Nweak determines if a parametrized system has a weak singularities and of which type. The set "c" are the equalities know among the parameters, "a" corresponds to expressions known to be positive and "b" to expressions known to be different from zero.

Nweak[c_,a_,b_,t_]:={tot=Union[Table[c[[i]]==0,{i,1,Length[c]}],Table[a[[i]]>0,{i,1,Length[a]}],Table[b[[i]]^2>0,{i,1,Length[b]}],Table[b[[i]]≠0,{i,1,Length[b]}],{var1≠0},{var2≠0}];Which[

Nnze[𝔗4,c,a,b,t],Print2["There are no weak singularities"," case (a)"],

Nze[𝔗4,c,a,b,t]&&Nnze[𝔗3,c,a,b,t]&&Npo[𝔗3 𝔉,c,a,b,t]&&Nnze[𝔉1,c,a,b,t],Print2["(s^((1)))"," case (b1)"],

Nze[𝔗4,c,a,b,t]&&Nnze[𝔗3,c,a,b,t]&&Npo[𝔗3 𝔉,c,a,b,t]&&Nze[𝔉1,c,a,b,t]&&Nnze[𝔉2,c,a,b,t],Print2["(s^((2)))"," case (b2)"],

Nze[𝔗4,c,a,b,t]&&Nnze[𝔗3,c,a,b,t]&&Npo[𝔗3 𝔉,c,a,b,t]&&Nze[𝔉1,c,a,b,t]&&Nze[𝔉2,c,a,b,t]&&Nnze[𝔉3 𝔉4,c,a,b,t],Print2["(s^((3)))"," case (b3)"],

Nze[𝔗4,c,a,b,t]&&Nnze[𝔗3,c,a,b,t]&&Npo[𝔗3 𝔉,c,a,b,t]&&Nze[𝔉1,c,a,b,t]&&Nze[𝔉2,c,a,b,t]&&Nze[𝔉3 𝔉4,c,a,b,t],Print2["$"," case (b4)"],

Nze[𝔗4,c,a,b,t]&&Nnze[𝔗3,c,a,b,t]&&Npo[-𝔗3 𝔉,c,a,b,t]&&Nnze[𝔉1,c,a,b,t],Print2["(f^((1)))"," case (b1)"],

Nze[𝔗4,c,a,b,t]&&Nnze[𝔗3,c,a,b,t]&&Npo[-𝔗3 𝔉,c,a,b,t]&&Nze[𝔉1,c,a,b,t]&&Nnze[𝔉2,c,a,b,t],Print2["(f^((2)))"," case (b2)"],

Nze[𝔗4,c,a,b,t]&&Nnze[𝔗3,c,a,b,t]&&Npo[-𝔗3 𝔉,c,a,b,t]&&Nze[𝔉1,c,a,b,t]&&Nze[𝔉2,c,a,b,t]&&Nnze[𝔉3 𝔉4,c,a,b,t],Print2["(f^((3)))"," case (b3)"],

Nze[𝔗4,c,a,b,t]&&Nnze[𝔗3,c,a,b,t]&&Npo[-𝔗3 𝔉,c,a,b,t]&&Nze[𝔉1,c,a,b,t]&&Nze[𝔉2,c,a,b,t]&&Nze[𝔉3 𝔉4,c,a,b,t],Print2["c"," case (b4)"],

Nze[𝔗4,c,a,b,t]&&Nze[𝔗3,c,a,b,t]&&Npo[-𝔗2,c,a,b,t]&&Nze[ 𝔉,c,a,b,t]&&Nnze[𝔉1,c,a,b,t]&&Npo[ℌ,c,a,b,t]&&¬Npo[𝔅,c,a,b,t],Print2["(s^((1))), (s^((1)))"," case (c1)"],

Nze[𝔗4,c,a,b,t]&&Nze[𝔗3,c,a,b,t]&&Npo[𝔗2,c,a,b,t]&&Nze[ 𝔉,c,a,b,t]&&Nnze[𝔉1,c,a,b,t]&&Npo[-𝔅,c,a,b,t],Print2["(s^((1))), (f^((1)))"," case (c2)"],

Nze[𝔗4,c,a,b,t]&&Nze[𝔗3,c,a,b,t]&&Npo[-𝔗2,c,a,b,t]&&Nze[ 𝔉,c,a,b,t]&&Nnze[𝔉1,c,a,b,t]&&Npo[-ℌ,c,a,b,t]&&Npo[-𝔅,c,a,b,t],Print2["(f^((1))), (f^((1)))"," case (c3)"],

Nze[𝔗4,c,a,b,t]&&Nze[𝔗3,c,a,b,t]&&Npo[-𝔗2,c,a,b,t]&&Nze[ 𝔉,c,a,b,t]&&Nze[𝔉1,c,a,b,t]&&Npo[ℌ,c,a,b,t]&&Npo[-𝔅,c,a,b,t],Print2["$, $"," case (c4)"],

Nze[𝔗4,c,a,b,t]&&Nze[𝔗3,c,a,b,t]&&Npo[𝔗2,c,a,b,t]&&Nze[ 𝔉,c,a,b,t]&&Nze[𝔉1,c,a,b,t]&&Npo[-𝔅,c,a,b,t],Print2["$, c"," case (c5)"],

Nze[𝔗4,c,a,b,t]&&Nze[𝔗3,c,a,b,t]&&Npo[-𝔗2,c,a,b,t]&&Nze[ 𝔉,c,a,b,t]&&Nze[𝔉1,c,a,b,t]&&Npo[-ℌ,c,a,b,t]&&Npo[-𝔅,c,a,b,t],Print2["c, c"," case (c6)"],

Nze[𝔗4,c,a,b,t]&&Nze[𝔗3,c,a,b,t]&&Nnze[-𝔗2,c,a,b,t],Print2["two complex trace zero points,"," case (?c7?)"],

Nze[𝔗4,c,a,b,t]&&Nze[𝔗3,c,a,b,t]&&Nze[𝔗2,c,a,b,t]&&Nnze[𝔗1,c,a,b,t]&&Nze[ 𝔉,c,a,b,t]&&Nnze[𝔉1,c,a,b,t]&&Npo[ℌ,c,a,b,t]&&Npo[-𝔅,c,a,b,t],Print2["(s^((1)))"," case (d1)"],

Nze[𝔗4,c,a,b,t]&&Nze[𝔗3,c,a,b,t]&&Nze[𝔗2,c,a,b,t]&&Nnze[𝔗1,c,a,b,t]&&Nze[ 𝔉,c,a,b,t]&&Nnze[𝔉1,c,a,b,t]&&Npo[-ℌ,c,a,b,t]&&Npo[-𝔅,c,a,b,t],Print2["(f^((1)))"," case (d2)"],

Nze[𝔗4,c,a,b,t]&&Nze[𝔗3,c,a,b,t]&&Nze[𝔗2,c,a,b,t]&&Nze[𝔗1,c,a,b,t]&&Nnze[σ,c,a,b,t]&&Nnze[𝔉1,c,a,b,t]&&Nze[ℌ,c,a,b,t]&&Nze[𝔅1,c,a,b,t]&&Npo[𝔅2,c,a,b,t],Print2["(s^((1)))"," case (e1)"],

Nze[𝔗4,c,a,b,t]&&Nze[𝔗3,c,a,b,t]&&Nze[𝔗2,c,a,b,t]&&Nze[𝔗1,c,a,b,t]&&Nnze[σ,c,a,b,t]&&Nnze[𝔉1,c,a,b,t]&&Nze[ℌ,c,a,b,t]&&Nze[𝔅1,c,a,b,t]&&Npo[-𝔅2,c,a,b,t],Print2["(f^((1)))"," case (e2)"],

Nze[𝔗4,c,a,b,t]&&Nze[𝔗3,c,a,b,t]&&Nze[𝔗2,c,a,b,t]&&Nze[𝔗1,c,a,b,t]&&Nnze[σ,c,a,b,t]&&Nze[𝔉1,c,a,b,t]&&Nze[𝔉,c,a,b,t]&&Npo[ℌ,c,a,b,t]&&Npo[-𝔅,c,a,b,t],Print2["$"," case (e3 [α])"],

Nze[𝔗4,c,a,b,t]&&Nze[𝔗3,c,a,b,t]&&Nze[𝔗2,c,a,b,t]&&Nze[𝔗1,c,a,b,t]&&Nnze[σ,c,a,b,t]&&Nze[𝔉1,c,a,b,t]&&Npo[𝔅2,c,a,b,t]&&Nze[ℌ,c,a,b,t]&&Nze[𝔅1,c,a,b,t],Print2["$"," case (e3 [β])"],

Nze[𝔗4,c,a,b,t]&&Nze[𝔗3,c,a,b,t]&&Nze[𝔗2,c,a,b,t]&&Nze[𝔗1,c,a,b,t]&&Nnze[σ,c,a,b,t]&&Nze[𝔉1,c,a,b,t]&&Nze[ℌ,c,a,b,t]&&Nze[𝔅,c,a,b,t]&&Nze[𝔅1,c,a,b,t]&&Nze[𝔅2,c,a,b,t]&&Nze[𝔅3,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nnze[WK,c,a,b,t]&&¬Nze[(μ2^2+ μ3^2),c,a,b,t],Print2["$"," case (e3 [γ])"],

Nze[𝔗4,c,a,b,t]&&Nze[𝔗3,c,a,b,t]&&Nze[𝔗2,c,a,b,t]&&Nze[𝔗1,c,a,b,t]&&Nnze[σ,c,a,b,t]&&Nze[𝔉1,c,a,b,t]&&Nze[ℌ,c,a,b,t]&&Nze[𝔅,c,a,b,t]&&Nze[𝔅1,c,a,b,t]&&Nze[𝔅2,c,a,b,t]&&Nze[𝔅3,c,a,b,t]&&Nze[WK,c,a,b,t]&&Nnze[μ2 𝔊,c,a,b,t],Print2["$"," case (e3 [δ])"],

Nze[𝔗4,c,a,b,t]&&Nze[𝔗3,c,a,b,t]&&Nze[𝔗2,c,a,b,t]&&Nze[𝔗1,c,a,b,t]&&Nnze[σ,c,a,b,t]&&Nze[𝔉1,c,a,b,t]&&Nze[ℌ,c,a,b,t]&&Nze[𝔅,c,a,b,t]&&Nze[𝔅1,c,a,b,t]&&Nze[𝔅2,c,a,b,t]&&Nze[𝔅3,c,a,b,t]&&Nze[𝔅4,c,a,b,t]&&Nze[WK,c,a,b,t]&&Nze[μ2 ,c,a,b,t]&&Nnze[μ3,c,a,b,t],Print2["$"," case (e3 [ϵ])"],

Nze[𝔗4,c,a,b,t]&&Nze[𝔗3,c,a,b,t]&&Nze[𝔗2,c,a,b,t]&&Nze[𝔗1,c,a,b,t]&&Nnze[σ,c,a,b,t]&&Nze[𝔉1,c,a,b,t]&&Nze[𝔉,c,a,b,t]&&Npo[-ℌ,c,a,b,t]&&Npo[-𝔅,c,a,b,t],Print2["c"," case (e4 [α])"],

Nze[𝔗4,c,a,b,t]&&Nze[𝔗3,c,a,b,t]&&Nze[𝔗2,c,a,b,t]&&Nze[𝔗1,c,a,b,t]&&Nnze[σ,c,a,b,t]&&Nze[𝔉1,c,a,b,t]&&Npo[-𝔅2,c,a,b,t]&&Nze[ℌ,c,a,b,t]&&Nze[𝔅1,c,a,b,t],Print2["c"," case (e4 [β])"],

Nze[𝔗4,c,a,b,t]&&Nze[𝔗3,c,a,b,t]&&Nze[𝔗2,c,a,b,t]&&Nze[𝔗1,c,a,b,t]&&Nnze[σ,c,a,b,t],Print2["There is no finite weak singularity, but one weak point has gone to infinity producing a nilpotent/intricate singularity,"," case (?e5?)"],

Nze[σ,c,a,b,t]&&Npo[-μ0,c,a,b,t]&&Npo[-𝔻,c,a,b,t]&&Npo[ℝ,c,a,b,t]&&Npo[𝕊,c,a,b,t],Print2["$, $, $, c"," case (f1)"],

Nze[σ,c,a,b,t]&&Npo[μ0,c,a,b,t]&&Npo[-𝔻,c,a,b,t]&&Npo[ℝ,c,a,b,t]&&Npo[𝕊,c,a,b,t],Print2["$, $, c, c"," case (f2)"],

Nze[σ,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Npo[-𝔻,c,a,b,t]&&Nnze[ℝ,c,a,b,t],Print2["$, $, c"," case (f3)"],

Nze[σ,c,a,b,t]&&Npo[-μ0,c,a,b,t]&&Npo[𝔻,c,a,b,t],Print2["$, $"," case (f4 [α])"],

Nze[σ,c,a,b,t]&&Npo[-μ0,c,a,b,t]&&Nze[𝔻,c,a,b,t]&&Npo[-𝕋,c,a,b,t],Print2["$, $"," case (f4 [β])"],

Nze[σ,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[ℝ,c,a,b,t]&&Nnze[ℙ,c,a,b,t]&&Npo[𝕌,c,a,b,t]&&Nnze[WK,c,a,b,t],Print2["$, $"," case (f4 [γ])"],

Nze[σ,c,a,b,t]&&Npo[μ0,c,a,b,t]&&Npo[𝔻,c,a,b,t],Print2["$, c"," case (f5 [α])"],

Nze[σ,c,a,b,t]&&Npo[μ0,c,a,b,t]&&Nze[𝔻,c,a,b,t]&&Npo[-𝕋,c,a,b,t],Print2["$, c"," case (f5 [β])"],

Nze[σ,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[ℝ,c,a,b,t]&&Nnze[ℙ,c,a,b,t]&&Npo[𝕌,c,a,b,t]&&Nze[WK,c,a,b,t],Print2["$, c"," case (f5 [γ])"],

Nze[σ,c,a,b,t]&&Npo[-μ0,c,a,b,t]&&Nze[𝔻,c,a,b,t]&&Nze[𝕋,c,a,b,t]&&Nze[ℙ,c,a,b,t]&&Nnze[ℝ,c,a,b,t],Print2["$"," case (f6 [α])"],

Nze[σ,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Npo[𝔻,c,a,b,t]&&Nnze[ℝ,c,a,b,t],Print2["$"," case (f6 [β])"],

Nze[σ,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[𝔻,c,a,b,t]&&Nnze[ℙ ℝ,c,a,b,t],Print2["$"," case (f6 [γ])"],

Nze[σ,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[ℙ,c,a,b,t]&&Nze[ℝ,c,a,b,t]&&Nnze[𝕌,c,a,b,t],Print2["$"," case (f6 [δ])"],

Nze[σ,c,a,b,t]&&Npo[μ0,c,a,b,t]&&Nze[𝔻,c,a,b,t]&&Nze[𝕋,c,a,b,t]&&Nze[ℙ,c,a,b,t]&&Nnze[ℝ,c,a,b,t],Print2["c"," case (f7)"],

True,Print2["Something fails"]
]}

Nstarnode determines if a parametrized system has any finite star node. The set "c" are the equalities know among the parameters, "a" corresponds to expressions known to be positive and "b" to expressions known to be different from zero.

Nstarnode[c_,a_,b_,t_]:={tot=Union[Table[c[[i]]==0,{i,1,Length[c]}],Table[a[[i]]>0,{i,1,Length[a]}],Table[b[[i]]^2>0,{i,1,Length[b]}],Table[b[[i]]≠0,{i,1,Length[b]}],{var1≠0},{var2≠0}];Which[

Nnze[WW4,c,a,b,t],Print2["There are neither (n^d) nor (SuperStar[n]) nodes"],

Nze[WW4,c,a,b,t]&&Nze[𝔜1,c,a,b,t]&&Nnze[𝔘1,c,a,b,t]&&Nnze[𝔘2,c,a,b,t]&&Nze[𝔘3,c,a,b,t],Print2["one star node"],

Nze[WW4,c,a,b,t]&&Nze[𝔘1,c,a,b,t]&&Nze[𝔘4,c,a,b,t]&&Nze[𝔘5,c,a,b,t]&&Nze[𝔘6,c,a,b,t]&&Nnze[𝔜2,c,a,b,t],Print2["one star node"],

Nze[WW4,c,a,b,t]&&Nze[𝔘1,c,a,b,t]&&Nze[𝔘4,c,a,b,t]&&Nze[𝔘5,c,a,b,t]&&Nnze[𝔘6,c,a,b,t]&&Npo[𝔜2,c,a,b,t],Print2["two star nodes"],

True,Print2["There are either (n^d) nodes or complex points with discriminant zero or a nilpotent/intricate infinite singular point"]]}

Nhamilton determines if a system is Hamiltonian and its phase portrait of a parametrized system . The set "c" are the equalities know among the parameters, "a" corresponds to expressions known to be positive and "b" to expressions known to be different from zero.

Nhamilton[c_,a_,b_,t_]:={tot=Union[Table[c[[i]]==0,{i,1,Length[c]}],Table[a[[i]]>0,{i,1,Length[a]}],Table[b[[i]]^2>0,{i,1,Length[b]}],Table[b[[i]]≠0,{i,1,Length[b]}],{var1≠0},{var2≠0}];Which[

Nnze[σ,c,a,b,t],Print2["the system is not Hamiltonian"],

Nze[σ,c,a,b,t]&&Npo[-μ0,c,a,b,t]&&Npo[-𝔻,c,a,b,t]&&Nnze[WB1,c,a,b,t],Print2["Portrait Vulpe 11"],

Nze[σ,c,a,b,t]&&Npo[-μ0,c,a,b,t]&&Npo[-𝔻,c,a,b,t]&&Nze[WB1,c,a,b,t]&&Nze[WB3,c,a,b,t],Print2["Portrait Vulpe 10"],

Nze[σ,c,a,b,t]&&Npo[-μ0,c,a,b,t]&&Npo[-𝔻,c,a,b,t]&&Nze[WB1,c,a,b,t]&&Npo[-WB3 WB4,c,a,b,t],Print2["Portrait Vulpe 9"],

Nze[σ,c,a,b,t]&&Npo[-μ0,c,a,b,t]&&Npo[-𝔻,c,a,b,t]&&Nze[WB1,c,a,b,t]&&Npo[WB3 WB4,c,a,b,t],Print2["Portrait Vulpe 8"],

Nze[σ,c,a,b,t]&&Npo[-μ0,c,a,b,t]&&Npo[𝔻,c,a,b,t]&&Nnze[WB1,c,a,b,t],Print2["Portrait Figure 25 of [AL]"],

Nze[σ,c,a,b,t]&&Npo[-μ0,c,a,b,t]&&Npo[𝔻,c,a,b,t]&&Nze[WB1,c,a,b,t]&&Npo[-WB3 WB4,c,a,b,t],Print2["Portrait Figure 26 of [AL]"],

Nze[σ,c,a,b,t]&&Npo[-μ0,c,a,b,t]&&Npo[𝔻,c,a,b,t]&&Nze[WB1,c,a,b,t]&&Npo[WB3 WB4,c,a,b,t],Print2["Portrait Figure 25 of [AL]"],

Nze[σ,c,a,b,t]&&Npo[-μ0,c,a,b,t]&&Nze[𝔻,c,a,b,t]&&Nnze[𝕋,c,a,b,t]&&Nnze[WB1,c,a,b,t],Print2["Portrait Figure 27 of [AL]"],

Nze[σ,c,a,b,t]&&Npo[-μ0,c,a,b,t]&&Nze[𝔻,c,a,b,t]&&Nnze[𝕋,c,a,b,t]&&Nze[WB1,c,a,b,t],Print2["Portrait Figure 24 of [AL]"],

Nze[σ,c,a,b,t]&&Npo[-μ0,c,a,b,t]&&Nze[𝔻,c,a,b,t]&&Nze[𝕋,c,a,b,t]&&Nnze[ℝ,c,a,b,t],Print2["Portrait Figure 25 of [AL]"],

Nze[σ,c,a,b,t]&&Npo[-μ0,c,a,b,t]&&Nze[𝔻,c,a,b,t]&&Nze[𝕋,c,a,b,t]&&Nze[ℝ,c,a,b,t],Print2["Portrait Figure 23 of [AL]"],

Nze[σ,c,a,b,t]&&Npo[μ0,c,a,b,t]&&Npo[-𝔻,c,a,b,t]&&¬(Npo[ℝ,c,a,b,t]&&Npo[𝕊,c,a,b,t]),Print2["Portrait Figure 11 of [AL]"],

Nze[σ,c,a,b,t]&&Npo[μ0,c,a,b,t]&&Npo[-𝔻,c,a,b,t]&&Npo[ℝ,c,a,b,t]&&Npo[𝕊,c,a,b,t]&&Nnze[WB1,c,a,b,t],Print2["Portrait Vulpe 4"],

Nze[σ,c,a,b,t]&&Npo[μ0,c,a,b,t]&&Npo[-𝔻,c,a,b,t]&&Npo[ℝ,c,a,b,t]&&Npo[𝕊,c,a,b,t]&&Nze[WB1,c,a,b,t],Print2["Portrait Vulpe 3"],

Nze[σ,c,a,b,t]&&Npo[μ0,c,a,b,t]&&Npo[𝔻,c,a,b,t],Print2["Portrait Vulpe 2"],

Nze[σ,c,a,b,t]&&Npo[μ0,c,a,b,t]&&Nze[𝔻,c,a,b,t]&&Npo[-𝕋,c,a,b,t],Print2["Portrait Vulpe 7"],

Nze[σ,c,a,b,t]&&Npo[μ0,c,a,b,t]&&Nze[𝔻,c,a,b,t]&&Npo[𝕋,c,a,b,t],Print2["Portrait Figure 17 of [AL]"],

Nze[σ,c,a,b,t]&&Npo[μ0,c,a,b,t]&&Nze[𝔻,c,a,b,t]&&Nze[𝕋,c,a,b,t]&&Npo[-ℙ ℝ,c,a,b,t],Print2["Portrait Figure 11 of [AL]"],

Nze[σ,c,a,b,t]&&Npo[μ0,c,a,b,t]&&Nze[𝔻,c,a,b,t]&&Nze[𝕋,c,a,b,t]&&Npo[ℙ ℝ,c,a,b,t],Print2["Portrait Figure 28 of [AL]"],

Nze[σ,c,a,b,t]&&Npo[μ0,c,a,b,t]&&Nze[𝔻,c,a,b,t]&&Nze[𝕋,c,a,b,t]&&Nze[ℙ,c,a,b,t]&&Nnze[ℝ,c,a,b,t],Print2["Portrait Vulpe 2"],

Nze[σ,c,a,b,t]&&Npo[μ0,c,a,b,t]&&Nze[𝔻,c,a,b,t]&&Nze[𝕋,c,a,b,t]&&Nze[ℝ,c,a,b,t],Print2["Portrait Figure 17 of [AL]"],

Nze[σ,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nnze[μ1,c,a,b,t]&&Npo[-𝔻,c,a,b,t]&&Nnze[WB1,c,a,b,t],Print2["Portrait Vulpe 6"],

Nze[σ,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nnze[μ1,c,a,b,t]&&Npo[-𝔻,c,a,b,t]&&Nze[WB1,c,a,b,t],Print2["Portrait Vulpe 5"],

Nze[σ,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nnze[μ1,c,a,b,t]&&Npo[𝔻,c,a,b,t],Print2["Portrait Figure 19 of [AL]"],

Nze[σ,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nnze[μ1,c,a,b,t]&&Nze[𝔻,c,a,b,t]&&Nnze[ℙ,c,a,b,t],Print2["Portrait Figure 22 of [AL]"],

Nze[σ,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nnze[μ1,c,a,b,t]&&Nze[𝔻,c,a,b,t]&&Nze[ℙ,c,a,b,t],Print2["Portrait Figure 19 of [AL]"],

Nze[σ,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nnze[μ2,c,a,b,t]&&Npo[-𝕌,c,a,b,t]&&Nnze[WM,c,a,b,t],Print2["Portrait Figure 12 of [AL]"],

Nze[σ,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nnze[μ2,c,a,b,t]&&Npo[-𝕌,c,a,b,t]&&Nze[WM,c,a,b,t],Print2["Portrait Figure 11 of [AL]"],

Nze[σ,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nnze[μ2,c,a,b,t]&&Npo[𝕌,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nnze[WB3,c,a,b,t],Print2["Portrait Figure 20 of [AL]"],

Nze[σ,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nnze[μ2,c,a,b,t]&&Npo[𝕌,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[WB3,c,a,b,t],Print2["Portrait Figure 21 of [AL]"],

Nze[σ,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nnze[μ2,c,a,b,t]&&Npo[𝕌,c,a,b,t]&&Nze[WM,c,a,b,t],Print2["Portrait Vulpe 2"],

Nze[σ,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nnze[μ2,c,a,b,t]&&Nze[𝕌,c,a,b,t],Print2["Portrait Figure 17 of [AL]"],

Nze[σ,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nnze[μ3,c,a,b,t],Print2["Portrait Figure 18 of [AL]"],

Nze[σ,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nze[μ3,c,a,b,t]&&Nnze[μ4,c,a,b,t]&&Nnze[WM,c,a,b,t],Print2["Portrait Figure 13 of [AL]"],

Nze[σ,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nze[μ3,c,a,b,t]&&Nnze[μ4,c,a,b,t]&&Nze[WM,c,a,b,t],Print2["Portrait Figure 11 of [AL]"],

Nze[σ,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nze[μ3,c,a,b,t]&&Nze[μ4,c,a,b,t]&&Nnze[WM,c,a,b,t],Print2["Portrait Figure 14 of [AL]"],

Nze[σ,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nze[μ3,c,a,b,t]&&Nze[μ4,c,a,b,t]&&Nze[WM,c,a,b,t]&&Npo[-WB6,c,a,b,t],Print2["Portrait Figure 11 of [AL]"],

Nze[σ,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nze[μ3,c,a,b,t]&&Nze[μ4,c,a,b,t]&&Nze[WM,c,a,b,t]&&Npo[WB6,c,a,b,t],Print2["Portrait Figure 15 of [AL]"],

Nze[σ,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nze[μ3,c,a,b,t]&&Nze[μ4,c,a,b,t]&&Nze[WM,c,a,b,t]&&Nze[WB6,c,a,b,t],Print2["Portrait Figure 16 of [AL]"],

True,Print2["something fails"]
]}

Ninvlines determines the phase portriat of a parametrized system having at least 4 invariant lines, counting multiplicity and the line of infinity. The set "c" are the equalities know among the parameters, "a" corresponds to expressions known to be positive and "b" to expressions known to be different from zero.

Ninvlines[c_,a_,b_,t_]:={tot=Union[Table[c[[i]]==0,{i,1,Length[c]}],Table[a[[i]]>0,{i,1,Length[a]}],Table[b[[i]]^2>0,{i,1,Length[b]}],Table[b[[i]]≠0,{i,1,Length[b]}],{var1≠0},{var2≠0}];Which[

Nze[WB3,c,a,b,t]&&Nze[WN,c,a,b,t]&&Npo[η,c,a,b,t]&&Npo[WILH1,c,a,b,t],Print2["Portrait 6.1"],

Nze[WB3,c,a,b,t]&&Nze[WN,c,a,b,t]&&Npo[η,c,a,b,t]&&Npo[-WILH1,c,a,b,t],Print2["Portrait 6.2"],

Nze[WB3,c,a,b,t]&&Nze[WN,c,a,b,t]&&Npo[-η,c,a,b,t]&&Npo[-WILH1,c,a,b,t],Print2["Portrait 6.3"],

Nze[WB3,c,a,b,t]&&Nze[WN,c,a,b,t]&&Npo[-η,c,a,b,t]&&Npo[WILH1,c,a,b,t],Print2["Portrait 6.4"],

Nze[WB3,c,a,b,t]&&Nze[WN,c,a,b,t]&&Npo[η,c,a,b,t]&&Nze[WILH1,c,a,b,t],Print2["Portrait 6.5"],

Nze[WB3,c,a,b,t]&&Nze[WN,c,a,b,t]&&Npo[-η,c,a,b,t]&&Nze[WILH1,c,a,b,t],Print2["Portrait 6.6"],

Nze[WB3,c,a,b,t]&&Nze[WN,c,a,b,t]&&Nze[η,c,a,b,t]&&Nze[WH,c,a,b,t]&&Nze[WN1,c,a,b,t]&&Nze[WN2,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nnze[𝔻,c,a,b,t],Print2["Portrait 6.7"],

Nze[WB3,c,a,b,t]&&Nze[WN,c,a,b,t]&&Nze[η,c,a,b,t]&&Nnze[WH,c,a,b,t]&&Nze[WILH2,c,a,b,t]&&Npo[WILH3,c,a,b,t]&&Nnze[WM,c,a,b,t],Print2["Portrait 6.8"],

Nze[WB3,c,a,b,t]&&Nze[WN,c,a,b,t]&&Nze[η,c,a,b,t]&&Nnze[WH,c,a,b,t]&&Nze[WILH2,c,a,b,t]&&Npo[-WILH3,c,a,b,t]&&Nnze[WM,c,a,b,t],Print2["Portrait 6.9"],

Nze[WB3,c,a,b,t]&&Nze[WN,c,a,b,t]&&Nze[η,c,a,b,t]&&Nze[WH,c,a,b,t]&&Nze[WN1,c,a,b,t]&&Nze[WN2,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[(OverTilde[D]),c,a,b,t],Print2["Portrait 6.10"],

Nze[WB3,c,a,b,t]&&Nze[WN,c,a,b,t]&&Nze[η,c,a,b,t]&&Nze[WN3,c,a,b,t]&&Nze[WN4,c,a,b,t]&&Nze[WM,c,a,b,t],Print2["Portrait 6.11"],

Nze[WB3,c,a,b,t]&&Nnze[WN,c,a,b,t]&&Npo[η,c,a,b,t]&&Nze[θ,c,a,b,t]&&Nnze[μ0,c,a,b,t]&&Nnze[WILH1,c,a,b,t],Print2["Portrait 5.1"],

Nze[WB3,c,a,b,t]&&Nnze[WN,c,a,b,t]&&Npo[-η,c,a,b,t]&&Nze[θ,c,a,b,t]&&Nnze[μ0,c,a,b,t]&&Nnze[WILH1,c,a,b,t],Print2["Portrait 5.2"],

Nze[WB2,c,a,b,t]&&Nnze[WB3,c,a,b,t]&&Nze[WN,c,a,b,t]&&Npo[η,c,a,b,t]&&Npo[WILH1,c,a,b,t]&&Nze[WILH4,c,a,b,t]&&Npo[WILH5,c,a,b,t],Print2["Portrait 5.3"],

Nze[WB2,c,a,b,t]&&Nnze[WB3,c,a,b,t]&&Nze[WN,c,a,b,t]&&Npo[η,c,a,b,t]&&Nze[WILH4,c,a,b,t]&&Npo[-WILH5,c,a,b,t],Print2["Portrait 5.4"],

Nze[WB2,c,a,b,t]&&Nnze[WB3,c,a,b,t]&&Nze[WN,c,a,b,t]&&Npo[η,c,a,b,t]&&Npo[-WILH1,c,a,b,t]&&Nze[WILH4,c,a,b,t]&&Npo[WILH5,c,a,b,t],Print2["Portrait 5.5"],

Nze[WB2,c,a,b,t]&&Nnze[WB3,c,a,b,t]&&Nze[WN,c,a,b,t]&&Npo[-η,c,a,b,t],Print2["Portrait 5.6"],

Nze[WB3,c,a,b,t]&&Nnze[WN,c,a,b,t]&&Npo[η,c,a,b,t]&&Nze[θ,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[WILH6,c,a,b,t],Print2["Portrait 5.7"],

Nze[WB3,c,a,b,t]&&Nnze[WN,c,a,b,t]&&Npo[η,c,a,b,t]&&Nze[θ,c,a,b,t]&&Nnze[μ0,c,a,b,t]&&Nze[WILH1,c,a,b,t],Print2["Portrait 5.8"],

Nze[WB3,c,a,b,t]&&Nnze[WN,c,a,b,t]&&Npo[-η,c,a,b,t]&&Nze[θ,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[WILH6,c,a,b,t],Print2["Portrait 5.9"],

Nze[WB3,c,a,b,t]&&Nnze[WN,c,a,b,t]&&Npo[-η,c,a,b,t]&&Nze[θ,c,a,b,t]&&Nnze[μ0,c,a,b,t]&&Nze[WILH1,c,a,b,t],Print2["Portrait 5.10"],

Nze[WB3,c,a,b,t]&&Nnze[WN,c,a,b,t]&&Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[θ,c,a,b,t]&&Nnze[μ0,c,a,b,t]&&Nnze[(OverTilde[D]),c,a,b,t],Print2["Portrait 5.11"],

Nze[WB2,c,a,b,t]&&Nnze[WB3,c,a,b,t]&&Nze[WN,c,a,b,t]&&Npo[η,c,a,b,t]&&Npo[WILH1,c,a,b,t]&&Nze[WILH4,c,a,b,t]&&Nze[WILH5,c,a,b,t],Print2["Portrait 5.12"],

Nze[WB3,c,a,b,t]&&Nze[WN,c,a,b,t]&&Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[WH,c,a,b,t]&&Nze[WN1,c,a,b,t]&&Nnze[(OverTilde[D]),c,a,b,t]&&Nnze[WN2,c,a,b,t]&&Npo[WN5,c,a,b,t],Print2["Portrait 5.13"],

Nze[WB3,c,a,b,t]&&Nnze[WN,c,a,b,t]&&Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[θ,c,a,b,t]&&Nnze[WK,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[WILH6,c,a,b,t],Print2["Portrait 5.14"],

Nze[WB3,c,a,b,t]&&Nze[WN,c,a,b,t]&&Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[WH,c,a,b,t]&&Nze[WN1,c,a,b,t]&&Nnze[(OverTilde[D]),c,a,b,t]&&Nnze[WN2,c,a,b,t]&&Npo[-WN5,c,a,b,t],Print2["Portrait 5.15"],

Nze[WB2,c,a,b,t]&&Nnze[WB3,c,a,b,t]&&Nze[WN,c,a,b,t]&&Npo[η,c,a,b,t]&&Npo[-WILH1,c,a,b,t]&&Nze[WILH4,c,a,b,t]&&Nze[WILH5,c,a,b,t],Print2["Portrait 5.16"],

Nze[WB3,c,a,b,t]&&Nze[WN,c,a,b,t]&&Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[WH,c,a,b,t]&&Nze[WN1,c,a,b,t]&&Nnze[(OverTilde[D]),c,a,b,t]&&Nnze[WN2,c,a,b,t]&&Nze[WN5,c,a,b,t],Print2["Portrait 5.17"],

Nze[WB3,c,a,b,t]&&Nnze[WN,c,a,b,t]&&Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[θ,c,a,b,t]&&Nze[WK,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[WILH6,c,a,b,t],Print2["Portrait 5.18"],

Nze[WB3,c,a,b,t]&&Nnze[WN,c,a,b,t]&&Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[θ,c,a,b,t]&&Nnze[μ0,c,a,b,t]&&Nze[(OverTilde[D]),c,a,b,t],Print2["Portrait 5.19"],

Nze[WB3,c,a,b,t]&&Nze[WN,c,a,b,t]&&Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[WH,c,a,b,t]&&Nze[WN1,c,a,b,t]&&Nze[(OverTilde[D]),c,a,b,t]&&Nnze[WN2,c,a,b,t]&&Npo[WN5,c,a,b,t],Print2["Portrait 5.20"],

Nze[WB3,c,a,b,t]&&Nze[WN,c,a,b,t]&&Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[WH,c,a,b,t]&&Nnze[WN1,c,a,b,t]&&Nnze[(OverTilde[D]),c,a,b,t]&&Nze[WN2,c,a,b,t],Print2["Portrait 5.21"],

Nze[WB2,c,a,b,t]&&Nnze[WB3,c,a,b,t]&&Nze[WN,c,a,b,t]&&Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[WILH2,c,a,b,t]&&Npo[WILH3,c,a,b,t],Print2["Portrait 5.22"],

Nnze[WB3,c,a,b,t]&&Nnze[WN,c,a,b,t]&&Nze[η,c,a,b,t]&&Nze[WM,c,a,b,t]&&Nze[θ,c,a,b,t]&&Nze[WN6,c,a,b,t],Print2["Portrait 5.23"],

Nze[WB3,c,a,b,t]&&Nze[WN,c,a,b,t]&&Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[WH,c,a,b,t]&&Nze[WN1,c,a,b,t]&&Nze[(OverTilde[D]),c,a,b,t]&&Nnze[WN2,c,a,b,t]&&Npo[-WN5,c,a,b,t],Print2["Portrait 5.24"],

Nze[WB2,c,a,b,t]&&Nnze[WB3,c,a,b,t]&&Nze[WN,c,a,b,t]&&Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[WILH2,c,a,b,t]&&Npo[-WILH3,c,a,b,t],Print2["Portrait 5.25"],

Nze[WB3,c,a,b,t]&&Nze[WN,c,a,b,t]&&Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nnze[WN3,c,a,b,t]&&Nze[WD1,c,a,b,t],Print2["Portrait 5.26"],

Nze[WB3,c,a,b,t]&&Nze[WN,c,a,b,t]&&Nze[η,c,a,b,t]&&Nze[WM,c,a,b,t]&&Nze[WN3,c,a,b,t]&&Nnze[WD1,c,a,b,t]&&Nnze[WN4,c,a,b,t],Print2["Portrait 5.27"],

Nze[WB3,c,a,b,t]&&Nze[WN,c,a,b,t]&&Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[WN2,c,a,b,t]&&Nze[(OverTilde[D]),c,a,b,t]&&Nze[WH,c,a,b,t]&&Nnze[WN1,c,a,b,t],Print2["Portrait 5.28"],

Nnze[WB3,c,a,b,t]&&Nze[WB2,c,a,b,t]&&Nze[WN,c,a,b,t]&&Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[WILH2,c,a,b,t]&&Nze[WILH3,c,a,b,t],Print2["Portrait 5.29"],

Nze[WB3,c,a,b,t]&&Nze[WN,c,a,b,t]&&Nze[η,c,a,b,t]&&Nze[WM,c,a,b,t]&&Nze[WN,c,a,b,t]&&Nze[WN3,c,a,b,t]&&Nze[WD1,c,a,b,t]&&Nnze[WN4,c,a,b,t],Print2["Portrait 5.30"],

Npo[η,c,a,b,t]&&Nze[WB3,c,a,b,t]&&Nnze[θ,c,a,b,t]&&Nnze[WILH7,c,a,b,t]&&Npo[μ0,c,a,b,t],Print2["Portrait 4.1(a)"],

Npo[η,c,a,b,t]&&Nze[WB3,c,a,b,t]&&Nnze[θ,c,a,b,t]&&Nnze[WILH7,c,a,b,t]&&Npo[-μ0,c,a,b,t]&&Npo[-WK,c,a,b,t],Print2["Portrait 4.1(b)"],

Npo[η,c,a,b,t]&&Nze[WB3,c,a,b,t]&&Nnze[θ,c,a,b,t]&&Nnze[WILH7,c,a,b,t]&&Npo[-μ0,c,a,b,t]&&Npo[WK,c,a,b,t],Print2["Portrait 4.1(c)"],

Npo[-η,c,a,b,t]&&Nze[WB3,c,a,b,t]&&Nnze[θ,c,a,b,t]&&Nnze[WILH7,c,a,b,t]&&Npo[μ0,c,a,b,t]&&Nnze[𝔊1,c,a,b,t],Print2["Portrait 4.2(a)"],

Npo[-η,c,a,b,t]&&Nze[WB3,c,a,b,t]&&Nnze[θ,c,a,b,t]&&Nnze[WILH7,c,a,b,t]&&Npo[μ0,c,a,b,t]&&Nze[𝔊1,c,a,b,t],Print2["Portrait 4.2(b)"],

Npo[-η,c,a,b,t]&&Nze[WB3,c,a,b,t]&&Nnze[θ,c,a,b,t]&&Nnze[WILH7,c,a,b,t]&&Npo[-μ0,c,a,b,t]&&Nnze[𝔊1,c,a,b,t],Print2["Portrait 4.2(c)"],

Npo[-η,c,a,b,t]&&Nze[WB3,c,a,b,t]&&Nnze[θ,c,a,b,t]&&Nnze[WILH7,c,a,b,t]&&Npo[-μ0,c,a,b,t]&&Nze[𝔊1,c,a,b,t],Print2["Portrait 4.2(d)"],

Npo[η,c,a,b,t]&&Nze[WB3,c,a,b,t]&&Nnze[θ,c,a,b,t]&&Nze[WILH7,c,a,b,t]&&Nnze[WILH1,c,a,b,t]&&Npo[μ0,c,a,b,t],Print2["Portrait 4.3(a)"],

Npo[η,c,a,b,t]&&Nze[WB3,c,a,b,t]&&Nnze[θ,c,a,b,t]&&Nze[WILH7,c,a,b,t]&&Nnze[WILH1,c,a,b,t]&&Npo[-μ0,c,a,b,t]&&Npo[-WK,c,a,b,t],Print2["Portrait 4.3(b)"],

Npo[η,c,a,b,t]&&Nze[WB3,c,a,b,t]&&Nnze[θ,c,a,b,t]&&Nze[WILH7,c,a,b,t]&&Nnze[WILH1,c,a,b,t]&&Npo[-μ0,c,a,b,t]&&Npo[WK,c,a,b,t],Print2["Portrait 4.3(c)"],

Npo[η,c,a,b,t]&&Nze[WB3,c,a,b,t]&&Nnze[θ,c,a,b,t]&&Nze[WILH7,c,a,b,t]&&Nnze[WILH1,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Npo[-WK,c,a,b,t],Print2["Portrait 4.4(a)"],

Npo[η,c,a,b,t]&&Nze[WB3,c,a,b,t]&&Nnze[θ,c,a,b,t]&&Nze[WILH7,c,a,b,t]&&Nnze[WILH1,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Npo[WK,c,a,b,t],Print2["Portrait 4.4(b)"],

Npo[η,c,a,b,t]&&Nze[WB3,c,a,b,t]&&Nnze[θ,c,a,b,t]&&Nze[WILH7,c,a,b,t]&&Nze[WILH1,c,a,b,t]&&Npo[μ0,c,a,b,t],Print2["Portrait 4.5(a)"],

Npo[η,c,a,b,t]&&Nze[WB3,c,a,b,t]&&Nnze[θ,c,a,b,t]&&Nze[WILH7,c,a,b,t]&&Nze[WILH1,c,a,b,t]&&Npo[-μ0,c,a,b,t]&&Npo[-WK,c,a,b,t],Print2["Portrait 4.5(b)"],

Npo[η,c,a,b,t]&&Nze[WB3,c,a,b,t]&&Nnze[θ,c,a,b,t]&&Nze[WILH7,c,a,b,t]&&Nze[WILH1,c,a,b,t]&&Npo[-μ0,c,a,b,t]&&Npo[WK,c,a,b,t],Print2["Portrait 4.5(c)"],

Npo[-η,c,a,b,t]&&Nze[WB3,c,a,b,t]&&Nnze[θ,c,a,b,t]&&Nze[WILH7,c,a,b,t]&&Nnze[WILH9,c,a,b,t]&&Npo[μ0,c,a,b,t],Print2["Portrait 4.6(a)"],

Npo[-η,c,a,b,t]&&Nze[WB3,c,a,b,t]&&Nnze[θ,c,a,b,t]&&Nze[WILH7,c,a,b,t]&&Nnze[WILH9,c,a,b,t]&&Npo[-μ0,c,a,b,t],Print2["Portrait 4.6(b)"],

Npo[-η,c,a,b,t]&&Nze[WB3,c,a,b,t]&&Nnze[θ,c,a,b,t]&&Nze[WILH7,c,a,b,t]&&Nze[μ0,c,a,b,t],Print2["Portrait 4.7"],

Npo[-η,c,a,b,t]&&Nze[WB3,c,a,b,t]&&Nnze[θ,c,a,b,t]&&Nze[WILH7,c,a,b,t]&&Nze[WILH9,c,a,b,t]&&Npo[μ0,c,a,b,t],Print2["Portrait 4.8(a)"],

Npo[-η,c,a,b,t]&&Nze[WB3,c,a,b,t]&&Nnze[θ,c,a,b,t]&&Nze[WILH7,c,a,b,t]&&Nze[WILH9,c,a,b,t]&&Npo[-μ0,c,a,b,t],Print2["Portrait 4.8(b)"],

Npo[η,c,a,b,t]&&Nze[WB2,c,a,b,t]&&Nze[θ,c,a,b,t]&&Nze[WILH7,c,a,b,t]&&Nnze[WILH9,c,a,b,t]&&Nnze[μ0,c,a,b,t]&&Nnze[WB3,c,a,b,t]&&Nnze[WILH4,c,a,b,t]&&(Npo[WILH10 WN,c,a,b,t]||(Nze[WN,c,a,b,t]&&Npo[WILH8,c,a,b,t]))&&Npo[𝔊2,c,a,b,t]&&Npo[WILH4,c,a,b,t]&&Npo[-𝔊3,c,a,b,t],Print2["Portrait 4.9(a)"],

Npo[η,c,a,b,t]&&Nze[WB2,c,a,b,t]&&Nze[θ,c,a,b,t]&&Nze[WILH7,c,a,b,t]&&Nnze[WILH9,c,a,b,t]&&Nnze[μ0,c,a,b,t]&&Nnze[WB3,c,a,b,t]&&Nnze[WILH4,c,a,b,t]&&(Npo[WILH10 WN,c,a,b,t]||(Nze[WN,c,a,b,t]&&Npo[WILH8,c,a,b,t]))&&Npo[-𝔊2,c,a,b,t],Print2["Portrait 4.9(b)"],

Npo[η,c,a,b,t]&&Nze[WB2,c,a,b,t]&&Nze[θ,c,a,b,t]&&Nze[WILH7,c,a,b,t]&&Nnze[WILH9,c,a,b,t]&&Nnze[μ0,c,a,b,t]&&Nnze[WB3,c,a,b,t]&&Nnze[WILH4,c,a,b,t]&&(Npo[WILH10 WN,c,a,b,t]||(Nze[WN,c,a,b,t]&&Npo[WILH8,c,a,b,t]))&&Npo[𝔊2,c,a,b,t]&&Npo[-WILH4,c,a,b,t],Print2["Portrait 4.9(b)"],

Npo[η,c,a,b,t]&&Nze[WB2,c,a,b,t]&&Nze[θ,c,a,b,t]&&Nze[WILH7,c,a,b,t]&&Nnze[WILH9,c,a,b,t]&&Nnze[μ0,c,a,b,t]&&Nnze[WB3,c,a,b,t]&&Nnze[WILH4,c,a,b,t]&&(Npo[WILH10 WN,c,a,b,t]||(Nze[WN,c,a,b,t]&&Npo[WILH8,c,a,b,t]))&&Npo[𝔊2,c,a,b,t]&&Npo[WILH4,c,a,b,t]&&Npo[𝔊3,c,a,b,t],Print2["Portrait 4.9(c)"],

Npo[η,c,a,b,t]&&Nze[WB2,c,a,b,t]&&Nze[θ,c,a,b,t]&&Nze[WILH7,c,a,b,t]&&Nze[WILH9,c,a,b,t]&&Nnze[μ0,c,a,b,t]&&Nnze[WB3,c,a,b,t]&&Npo[WILH10 WN,c,a,b,t]&&Npo[WILH4,c,a,b,t]&&Npo[𝔊3,c,a,b,t],Print2["Portrait 4.10(a)"],

Npo[η,c,a,b,t]&&Nze[WB2,c,a,b,t]&&Nze[θ,c,a,b,t]&&Nze[WILH7,c,a,b,t]&&Nze[WILH9,c,a,b,t]&&Nnze[μ0,c,a,b,t]&&Nnze[WB3,c,a,b,t]&&Npo[WILH10 WN,c,a,b,t]&&Npo[-WILH4,c,a,b,t],Print2["Portrait 4.10(b)"],

Npo[η,c,a,b,t]&&Nze[WB2,c,a,b,t]&&Nze[θ,c,a,b,t]&&Nze[WILH7,c,a,b,t]&&Nze[WILH9,c,a,b,t]&&Nnze[μ0,c,a,b,t]&&Nnze[WB3,c,a,b,t]&&Npo[WILH10 WN,c,a,b,t]&&Npo[WILH4,c,a,b,t]&&Npo[-𝔊3,c,a,b,t],Print2["Portrait 4.10(c)"],

Npo[η,c,a,b,t]&&Nze[WB2,c,a,b,t]&&Nze[WILH9,c,a,b,t]&&Nnze[WB3,c,a,b,t]&&Nnze[WILH4,c,a,b,t]&&Nze[WN,c,a,b,t]&&Npo[WILH8,c,a,b,t],Print2["Portrait 4.10(c)"],

Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nnze[WB3,c,a,b,t]&&Nze[WB2,c,a,b,t]&&Nze[θ,c,a,b,t]&&Nze[WILH7,c,a,b,t]&&Nnze[μ0,c,a,b,t]&&Npo[WILH10,c,a,b,t]&&Npo[WILH4,c,a,b,t],Print2["Portrait 4.11(a)"],

Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nnze[WB3,c,a,b,t]&&Nze[WB2,c,a,b,t]&&Nze[θ,c,a,b,t]&&Nze[WILH7,c,a,b,t]&&Nnze[μ0,c,a,b,t]&&Npo[WILH10,c,a,b,t]&&Npo[-WILH4,c,a,b,t],Print2["Portrait 4.11(b)"],

Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[WB3,c,a,b,t]&&Nze[θ,c,a,b,t]&&Nnze[WK,c,a,b,t]&&Nnze[WILH6,c,a,b,t]&&Nze[WILH7,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Npo[WILH11,c,a,b,t]&&Npo[μ2,c,a,b,t]&&Npo[WL,c,a,b,t],Print2["Portrait 4.12(a)"],

Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[WB3,c,a,b,t]&&Nze[θ,c,a,b,t]&&Nnze[WK,c,a,b,t]&&Nnze[WILH6,c,a,b,t]&&Nze[WILH7,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Npo[WILH11,c,a,b,t]&&Npo[μ2,c,a,b,t]&&Npo[-WL,c,a,b,t],Print2["Portrait 4.12(b)"],

Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[WB3,c,a,b,t]&&Nze[θ,c,a,b,t]&&Nnze[WK,c,a,b,t]&&Nnze[WILH6,c,a,b,t]&&Nze[WILH7,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Npo[WILH11,c,a,b,t]&&Npo[-μ2,c,a,b,t]&&Npo[-WK,c,a,b,t],Print2["Portrait 4.12(c)"],

Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[WB3,c,a,b,t]&&Nze[θ,c,a,b,t]&&Nnze[WK,c,a,b,t]&&Nnze[WILH6,c,a,b,t]&&Nze[WILH7,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Npo[WILH11,c,a,b,t]&&Npo[-μ2,c,a,b,t]&&Npo[WK,c,a,b,t]&&Npo[WL,c,a,b,t],Print2["Portrait 4.12(d)"],

Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[WB3,c,a,b,t]&&Nze[θ,c,a,b,t]&&Nnze[WK,c,a,b,t]&&Nnze[WILH6,c,a,b,t]&&Nze[WILH7,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Npo[WILH11,c,a,b,t]&&Npo[-μ2,c,a,b,t]&&Npo[WK,c,a,b,t]&&Npo[-WL,c,a,b,t],Print2["Portrait 4.12(e)"],

Npo[η,c,a,b,t]&&Nnze[WB3,c,a,b,t]&&Nze[WB2,c,a,b,t]&&Nze[θ,c,a,b,t]&&Nnze[μ0,c,a,b,t]&&Nze[WILH7,c,a,b,t]&&Nnze[WILH9,c,a,b,t]&&Npo[-WN WILH10,c,a,b,t]&&Npo[-𝔊2,c,a,b,t],Print2["Portrait 4.13(a)"],

Npo[η,c,a,b,t]&&Nnze[WB3,c,a,b,t]&&Nze[WB2,c,a,b,t]&&Nze[θ,c,a,b,t]&&Nnze[μ0,c,a,b,t]&&Nze[WILH7,c,a,b,t]&&Nnze[WILH9,c,a,b,t]&&Npo[-WN WILH10,c,a,b,t]&&Npo[𝔊2,c,a,b,t],Print2["Portrait 4.13(b)"],

Npo[η,c,a,b,t]&&Nnze[WILH4,c,a,b,t]&&Nnze[WB3,c,a,b,t]&&Nze[WB2,c,a,b,t]&&Nze[WN,c,a,b,t]&&Npo[-WILH8,c,a,b,t],Print2["Portrait 4.13(b)"],

Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nnze[WB3,c,a,b,t]&&Nze[WB2,c,a,b,t]&&Nze[θ,c,a,b,t]&&Nnze[μ0,c,a,b,t]&&Nze[WILH7,c,a,b,t]&&Npo[-WILH10,c,a,b,t],Print2["Portrait 4.14"],

Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[WB3,c,a,b,t]&&Nze[θ,c,a,b,t]&&Nnze[WK,c,a,b,t]&&Nnze[WILH6,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[WILH7,c,a,b,t]&&Npo[-WILH11,c,a,b,t]&&Npo[WL,c,a,b,t],Print2["Portrait 4.15(a)"],

Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[WB3,c,a,b,t]&&Nze[θ,c,a,b,t]&&Nnze[WK,c,a,b,t]&&Nnze[WILH6,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[WILH7,c,a,b,t]&&Npo[-WILH11,c,a,b,t]&&Npo[-WL,c,a,b,t],Print2["Portrait 4.15(b)"],

Npo[η,c,a,b,t]&&Nnze[WB3,c,a,b,t]&&Nze[WB2,c,a,b,t]&&Nze[θ,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[WILH7,c,a,b,t]&&Nnze[WILH9,c,a,b,t]&&Npo[𝔊2,c,a,b,t],Print2["Portrait 4.16(a)"],

Npo[η,c,a,b,t]&&Nnze[WB3,c,a,b,t]&&Nze[WB2,c,a,b,t]&&Nze[θ,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[WILH7,c,a,b,t]&&Nnze[WILH9,c,a,b,t]&&Npo[-𝔊2,c,a,b,t],Print2["Portrait 4.16(b)"],

Npo[η,c,a,b,t]&&Nnze[WB3,c,a,b,t]&&Nze[WB2,c,a,b,t]&&Nze[θ,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[WILH7,c,a,b,t]&&Nze[WILH9,c,a,b,t]&&Nnze[WILH10,c,a,b,t],Print2["Portrait 4.17"],

Npo[η,c,a,b,t]&&Nze[WB3,c,a,b,t]&&Nze[θ,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nnze[WILH7,c,a,b,t]&&Npo[μ2 WL,c,a,b,t],Print2["Portrait 4.18(a)"],

Npo[η,c,a,b,t]&&Nze[WB3,c,a,b,t]&&Nze[θ,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nnze[WILH7,c,a,b,t]&&Npo[-μ2 WL,c,a,b,t],Print2["Portrait 4.18(b)"],

Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[WB3,c,a,b,t]&&Nze[θ,c,a,b,t]&&Nze[WK,c,a,b,t]&&Nnze[WN,c,a,b,t]&&Nnze[WILH6,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[WILH7,c,a,b,t]&&Nnze[WILH11,c,a,b,t]&&Npo[-μ3 WK1,c,a,b,t],Print2["Portrait 4.19(a)"],

Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[WB3,c,a,b,t]&&Nze[θ,c,a,b,t]&&Nze[WK,c,a,b,t]&&Nnze[WN,c,a,b,t]&&Nnze[WILH6,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[WILH7,c,a,b,t]&&Nnze[WILH11,c,a,b,t]&&Npo[μ3 WK1,c,a,b,t],Print2["Portrait 4.19(b)"],

Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[WB3,c,a,b,t]&&Nnze[θ,c,a,b,t]&&Nze[WILH7,c,a,b,t]&&Nze[(OverTilde[D]),c,a,b,t]&&Npo[μ0,c,a,b,t],Print2["Portrait 4.20(a)"],

Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[WB3,c,a,b,t]&&Nnze[θ,c,a,b,t]&&Nze[WILH7,c,a,b,t]&&Nze[(OverTilde[D]),c,a,b,t]&&Npo[-μ0,c,a,b,t],Print2["Portrait 4.20(b)"],

Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[WB3,c,a,b,t]&&Nnze[θ,c,a,b,t]&&Nze[WILH7,c,a,b,t]&&Nnze[(OverTilde[D]),c,a,b,t]&&Npo[μ0,c,a,b,t],Print2["Portrait 4.21(a)"],

Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[WB3,c,a,b,t]&&Nnze[θ,c,a,b,t]&&Nze[WILH7,c,a,b,t]&&Nnze[(OverTilde[D]),c,a,b,t]&&Npo[-μ0,c,a,b,t],Print2["Portrait 4.21(b)"],

Npo[η,c,a,b,t]&&Nnze[WB3,c,a,b,t]&&Nze[WB2,c,a,b,t]&&Nze[θ,c,a,b,t]&&Nnze[μ0,c,a,b,t]&&Nnze[WN,c,a,b,t]&&Nze[WILH7,c,a,b,t]&&Nze[WILH10,c,a,b,t]&&Npo[WILH1,c,a,b,t],Print2["Portrait 4.22(a)"],

Npo[η,c,a,b,t]&&Nnze[WB3,c,a,b,t]&&Nze[WB2,c,a,b,t]&&Nze[θ,c,a,b,t]&&Nnze[μ0,c,a,b,t]&&Nnze[WN,c,a,b,t]&&Nze[WILH7,c,a,b,t]&&Nze[WILH10,c,a,b,t]&&Npo[-WILH1,c,a,b,t],Print2["Portrait 4.22(b)"],

Npo[η,c,a,b,t]&&Nnze[WB3,c,a,b,t]&&Nnze[WILH4,c,a,b,t]&&Nze[WB2,c,a,b,t]&&Nze[WN,c,a,b,t]&&Nze[WILH8,c,a,b,t],Print2["Portrait 4.22(b)"],

Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nnze[WB3,c,a,b,t]&&Nze[WB2,c,a,b,t]&&Nze[θ,c,a,b,t]&&Nze[WILH7,c,a,b,t]&&Nze[WILH10,c,a,b,t]&&Nnze[μ0,c,a,b,t],Print2["Portrait 4.23"],

Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[WB3,c,a,b,t]&&Nze[θ,c,a,b,t]&&Nnze[WK,c,a,b,t]&&Nnze[WILH6,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[WILH7,c,a,b,t]&&Nnze[WILH11,c,a,b,t]&&Npo[WL,c,a,b,t],Print2["Portrait 4.24(a)"],

Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[WB3,c,a,b,t]&&Nze[θ,c,a,b,t]&&Nnze[WK,c,a,b,t]&&Nnze[WILH6,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[WILH7,c,a,b,t]&&Nnze[WILH11,c,a,b,t]&&Npo[-WL,c,a,b,t],Print2["Portrait 4.24(b)"],

Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[WB3,c,a,b,t]&&Nnze[θ,c,a,b,t]&&Nnze[WILH7,c,a,b,t]&&Npo[μ0,c,a,b,t],Print2["Portrait 4.25(a)"],

Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[WB3,c,a,b,t]&&Nnze[θ,c,a,b,t]&&Nnze[WILH7,c,a,b,t]&&Npo[-μ0,c,a,b,t],Print2["Portrait 4.25(b)"],

Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[WB3,c,a,b,t]&&Nnze[θ,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[WILH7,c,a,b,t]&&Nnze[(OverTilde[D]),c,a,b,t],Print2["Portrait 4.26"],

Npo[-η,c,a,b,t]&&Nze[WB3,c,a,b,t]&&Nze[θ,c,a,b,t]&&Nnze[WN,c,a,b,t]&&Nnze[WILH7,c,a,b,t]&&Nnze[𝔊1,c,a,b,t],Print2["Portrait 4.27(a)"],

Npo[-η,c,a,b,t]&&Nze[WB3,c,a,b,t]&&Nze[θ,c,a,b,t]&&Nnze[WN,c,a,b,t]&&Nnze[WILH7,c,a,b,t]&&Nze[𝔊1,c,a,b,t],Print2["Portrait 4.27(b)"],

Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[WB3,c,a,b,t]&&Nze[θ,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[WN,c,a,b,t]&&Nze[WK,c,a,b,t]&&Nnze[WN1 WN2,c,a,b,t]&&Npo[WN5,c,a,b,t]&&Nnze[(OverTilde[D]),c,a,b,t],Print2["Portrait 4.28"],

Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[WB3,c,a,b,t]&&Nze[θ,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[WN,c,a,b,t]&&Nze[WK,c,a,b,t]&&Nnze[WN1 WN2,c,a,b,t]&&Npo[WN5,c,a,b,t]&&Nze[(OverTilde[D]),c,a,b,t]&&Npo[μ4,c,a,b,t],Print2["Portrait 4.29(a)"],

Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[WB3,c,a,b,t]&&Nze[θ,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[WN,c,a,b,t]&&Nze[WK,c,a,b,t]&&Nnze[WN1 WN2,c,a,b,t]&&Npo[WN5,c,a,b,t]&&Nze[(OverTilde[D]),c,a,b,t]&&Npo[-μ4,c,a,b,t],Print2["Portrait 4.29(b)"],

Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nnze[WB3,c,a,b,t]&&Nze[WB2,c,a,b,t]&&Nze[θ,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nnze[WN,c,a,b,t]&&Nze[WILH7,c,a,b,t]&&Nze[WILH6,c,a,b,t]&&Nnze[WK,c,a,b,t]&&Nnze[WILH11,c,a,b,t]&&Npo[μ2,c,a,b,t],Print2["Portrait 4.30(a)"],

Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nnze[WB3,c,a,b,t]&&Nze[WB2,c,a,b,t]&&Nze[θ,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nnze[WN,c,a,b,t]&&Nze[WILH7,c,a,b,t]&&Nze[WILH6,c,a,b,t]&&Nnze[WK,c,a,b,t]&&Nnze[WILH11,c,a,b,t]&&Npo[-μ2,c,a,b,t],Print2["Portrait 4.30(b)"],

Nze[η,c,a,b,t]&&Nze[WM,c,a,b,t]&&Nze[WB3,c,a,b,t]&&Nze[θ,c,a,b,t]&&Nnze[WN,c,a,b,t]&&Nnze[WN6,c,a,b,t]&&Nnze[WILH11,c,a,b,t]&&Npo[WK3,c,a,b,t],Print2["Portrait 4.31(a)"],

Nze[η,c,a,b,t]&&Nze[WM,c,a,b,t]&&Nze[WB3,c,a,b,t]&&Nze[θ,c,a,b,t]&&Nnze[WN,c,a,b,t]&&Nnze[WN6,c,a,b,t]&&Nnze[WILH11,c,a,b,t]&&Npo[-WK3,c,a,b,t],Print2["Portrait 4.31(b)"],

Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[WB3,c,a,b,t]&&Nze[θ,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[WN,c,a,b,t]&&Nze[WK,c,a,b,t]&&Nnze[WN1 WN2,c,a,b,t]&&Nnze[(OverTilde[D]),c,a,b,t]&&Npo[-WN5,c,a,b,t],Print2["Portrait 4.32"],

Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[WB3,c,a,b,t]&&Nze[θ,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[WN,c,a,b,t]&&Nze[WK,c,a,b,t]&&Nnze[WN1 WN2,c,a,b,t]&&Nze[(OverTilde[D]),c,a,b,t]&&Npo[-WN5,c,a,b,t],Print2["Portrait 4.33"],

Npo[η,c,a,b,t]&&Nnze[WB3,c,a,b,t]&&Nze[WB2,c,a,b,t]&&Nze[θ,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[WILH7,c,a,b,t]&&Nze[WILH9,c,a,b,t]&&Nze[WILH10,c,a,b,t]&&Npo[-WILH4,c,a,b,t],Print2["Portrait 4.34(a)"],

Npo[η,c,a,b,t]&&Nnze[WB3,c,a,b,t]&&Nze[WB2,c,a,b,t]&&Nze[θ,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[WILH7,c,a,b,t]&&Nze[WILH9,c,a,b,t]&&Nze[WILH10,c,a,b,t]&&Npo[WILH4,c,a,b,t],Print2["Portrait 4.34(b)"],

Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[WB3,c,a,b,t]&&Nze[θ,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nnze[WN,c,a,b,t]&&Nnze[WILH7,c,a,b,t]&&Npo[μ3 WK1,c,a,b,t],Print2["Portrait 4.35(a)"],

Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[WB3,c,a,b,t]&&Nze[θ,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nnze[WN,c,a,b,t]&&Nnze[WILH7,c,a,b,t]&&Npo[-μ3 WK1,c,a,b,t],Print2["Portrait 4.35(b)"],

Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[WB3,c,a,b,t]&&Nze[θ,c,a,b,t]&&Nze[WK,c,a,b,t]&&Nnze[WN WILH6,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[WILH7,c,a,b,t]&&Nze[WILH11,c,a,b,t]&&Npo[-κ2,c,a,b,t],Print2["Portrait 4.36(a)"],

Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[WB3,c,a,b,t]&&Nze[θ,c,a,b,t]&&Nze[WK,c,a,b,t]&&Nnze[WN WILH6,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[WILH7,c,a,b,t]&&Nze[WILH11,c,a,b,t]&&Npo[κ2,c,a,b,t],Print2["Portrait 4.36(b)"],

Nze[η,c,a,b,t]&&Nze[WM,c,a,b,t]&&Nze[WB3,c,a,b,t]&&Nze[θ,c,a,b,t]&&Nze[WN,c,a,b,t]&&Nnze[WN3 WD1,c,a,b,t]&&Nnze[WN6,c,a,b,t]&&Nnze[(OverTilde[D]),c,a,b,t]&&Npo[μ3 WK1,c,a,b,t]&&Npo[WK3,c,a,b,t],Print2["Portrait 4.37(a)"],

Nze[η,c,a,b,t]&&Nze[WM,c,a,b,t]&&Nze[WB3,c,a,b,t]&&Nze[θ,c,a,b,t]&&Nze[WN,c,a,b,t]&&Nnze[WN3 WD1,c,a,b,t]&&Nnze[WN6,c,a,b,t]&&Nnze[(OverTilde[D]),c,a,b,t]&&Npo[μ3 WK1,c,a,b,t]&&Nze[WK3,c,a,b,t],Print2["Portrait 4.37(a)"],

Nze[η,c,a,b,t]&&Nze[WM,c,a,b,t]&&Nze[WB3,c,a,b,t]&&Nze[θ,c,a,b,t]&&Nze[WN,c,a,b,t]&&Nnze[WN3 WD1,c,a,b,t]&&Nnze[WN6,c,a,b,t]&&Nnze[(OverTilde[D]),c,a,b,t]&&Npo[μ3 WK1,c,a,b,t]&&Npo[-WK3,c,a,b,t],Print2["Portrait 4.37(b)"],

Nze[η,c,a,b,t]&&Nze[WM,c,a,b,t]&&Nze[WB3,c,a,b,t]&&Nze[θ,c,a,b,t]&&Nze[WN,c,a,b,t]&&Nnze[WN3 WD1,c,a,b,t]&&Nnze[WN6,c,a,b,t]&&Nnze[(OverTilde[D]),c,a,b,t]&&Npo[-μ3 WK1,c,a,b,t],Print2["Portrait 4.37(c)"],

Nze[η,c,a,b,t]&&Nze[WM,c,a,b,t]&&Nze[WB3,c,a,b,t]&&Nze[θ,c,a,b,t]&&Nze[WN,c,a,b,t]&&Nnze[WN3 WD1,c,a,b,t]&&Nnze[WN6,c,a,b,t]&&Nze[(OverTilde[D]),c,a,b,t]&&Npo[μ4,c,a,b,t],Print2["Portrait 4.38(a)"],

Nze[η,c,a,b,t]&&Nze[WM,c,a,b,t]&&Nze[WB3,c,a,b,t]&&Nze[θ,c,a,b,t]&&Nze[WN,c,a,b,t]&&Nnze[WN3 WD1,c,a,b,t]&&Nnze[WN6,c,a,b,t]&&Nze[(OverTilde[D]),c,a,b,t]&&Npo[-μ4,c,a,b,t],Print2["Portrait 4.38(b)"],

Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[WB3,c,a,b,t]&&Nze[θ,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[WN,c,a,b,t]&&Nze[WK,c,a,b,t]&&Nnze[WN1 WN2,c,a,b,t]&&Nze[WN5,c,a,b,t],Print2["Portrait 4.39"],

Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nnze[WB3,c,a,b,t]&&Nze[WB2,c,a,b,t]&&Nze[θ,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nnze[WN,c,a,b,t]&&Nze[WILH7,c,a,b,t]&&Nze[WILH6,c,a,b,t]&&Nze[WK,c,a,b,t],Print2["Portrait 4.40"],

Nze[η,c,a,b,t]&&Nze[WM,c,a,b,t]&&Nze[WB3,c,a,b,t]&&Nnze[θ,c,a,b,t]&&Nze[WILH7,c,a,b,t]&&Nnze[(OverTilde[D]),c,a,b,t]&&Npo[μ0,c,a,b,t],Print2["Portrait 4.41(a)"],

Nze[η,c,a,b,t]&&Nze[WM,c,a,b,t]&&Nze[WB3,c,a,b,t]&&Nnze[θ,c,a,b,t]&&Nze[WILH7,c,a,b,t]&&Nnze[(OverTilde[D]),c,a,b,t]&&Npo[-μ0,c,a,b,t],Print2["Portrait 4.41(b)"],

Nze[η,c,a,b,t]&&Nze[WM,c,a,b,t]&&Nze[WB3,c,a,b,t]&&Nnze[θ,c,a,b,t]&&Nze[WILH7,c,a,b,t]&&Nze[(OverTilde[D]),c,a,b,t]&&Npo[μ0,c,a,b,t],Print2["Portrait 4.42(a)"],

Nze[η,c,a,b,t]&&Nze[WM,c,a,b,t]&&Nze[WB3,c,a,b,t]&&Nnze[θ,c,a,b,t]&&Nze[WILH7,c,a,b,t]&&Nze[(OverTilde[D]),c,a,b,t]&&Npo[-μ0,c,a,b,t],Print2["Portrait 4.42(b)"],

Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nnze[WB3,c,a,b,t]&&Nze[WB2,c,a,b,t]&&Nze[θ,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nnze[WN,c,a,b,t]&&Nze[WILH7,c,a,b,t]&&Nze[WILH6,c,a,b,t]&&Nnze[WK,c,a,b,t]&&Nze[WILH11,c,a,b,t]&&Npo[-WL,c,a,b,t],Print2["Portrait 4.43(a)"],

Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nnze[WB3,c,a,b,t]&&Nze[WB2,c,a,b,t]&&Nze[θ,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nnze[WN,c,a,b,t]&&Nze[WILH7,c,a,b,t]&&Nze[WILH6,c,a,b,t]&&Nnze[WK,c,a,b,t]&&Nze[WILH11,c,a,b,t]&&Npo[WL,c,a,b,t]&&¬Npo[-WR,c,a,b,t],Print2["Portrait 4.43(b)"],

Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nnze[WB3,c,a,b,t]&&Nze[WB2,c,a,b,t]&&Nze[θ,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nnze[WN,c,a,b,t]&&Nze[WILH7,c,a,b,t]&&Nze[WILH6,c,a,b,t]&&Nnze[WK,c,a,b,t]&&Nze[WILH11,c,a,b,t]&&Npo[WL,c,a,b,t]&&Npo[-WR,c,a,b,t],Print2["Portrait 4.43(c)"],

Nze[η,c,a,b,t]&&Nze[WM,c,a,b,t]&&Nze[WB3,c,a,b,t]&&Nze[θ,c,a,b,t]&&Nnze[WN,c,a,b,t]&&Nnze[WN6,c,a,b,t]&&Nze[WILH11,c,a,b,t]&&Npo[WK3,c,a,b,t],Print2["Portrait 4.44(a)"],

Nze[η,c,a,b,t]&&Nze[WM,c,a,b,t]&&Nze[WB3,c,a,b,t]&&Nze[θ,c,a,b,t]&&Nnze[WN,c,a,b,t]&&Nnze[WN6,c,a,b,t]&&Nze[WILH11,c,a,b,t]&&Npo[-WK3,c,a,b,t],Print2["Portrait 4.44(b)"],

Nze[η,c,a,b,t]&&Nze[WM,c,a,b,t]&&Nze[WB3,c,a,b,t]&&Nnze[θ,c,a,b,t]&&Nnze[WILH7,c,a,b,t]&&Npo[μ0,c,a,b,t],Print2["Portrait 4.45(a)"],

Nze[η,c,a,b,t]&&Nze[WM,c,a,b,t]&&Nze[WB3,c,a,b,t]&&Nnze[θ,c,a,b,t]&&Nnze[WILH7,c,a,b,t]&&Npo[-μ0,c,a,b,t],Print2["Portrait 4.45(b)"],

Nze[η,c,a,b,t]&&Nze[WM,c,a,b,t]&&Nze[WB3,c,a,b,t]&&Nze[θ,c,a,b,t]&&Nze[WN,c,a,b,t]&&Nnze[WN3 WD1,c,a,b,t]&&Nze[WN6,c,a,b,t],Print2["Portrait 4.46"],

True,Print2["The system has less than 4 invariant lines"]
]}

Ncenters uses the Vulpe GL-Invariants to determine if a parametrized system has a center and which type. The set "c" are the equalities know among the parameters, "a" corresponds to expressions known to be positive and "b" to expressions known to be different from zero.

Ncenters[c_,a_,b_,t_]:=If[Nze[vartes,c,a,b,t]&&Nze[v[[1]],c,a,b,t]&&Nze[v[[6]],c,a,b,t]&&Npo[-v[[2]],c,a,b,t]&&(Nze[v[[11]],c,a,b,t]||Nze[v[[3]],c,a,b,t]||(Nze[5v[[3]]-2v[[4]],c,a,b,t]&&Nze[13v[[3]]-10v[[5]],c,a,b,t])),tot=Union[Table[c[[i]]==0,{i,1,Length[c]}],Table[a[[i]]>0,{i,1,Length[a]}],Table[b[[i]]^2>0,{i,1,Length[b]}],Table[b[[i]]≠0,{i,1,Length[b]}],{var1≠0},{var2≠0}];

Which[

Nze[v[[4]],c,a,b,t]  && Nze[v[[5]],c,a,b,t] && Nze[v[[10]],c,a,b,t],Print2["Vulpe 1"],

Nze[v[[4]],c,a,b,t]  && Npo[-v[[13]],c,a,b,t],Print2["Vulpe 2a"],

Nze[v[[4]],c,a,b,t]  && Nze[v[[13]],c,a,b,t]&&Nze[v[[12]],c,a,b,t]&&Nnze[v[[10]],c,a,b,t],Print2["Vulpe 2b"],

Nnze[v[[4]],c,a,b,t]  &&(Nze[v[[14]]*v[[15]],c,a,b,t]   || Npo[v[[14]]*v[[15]],c,a,b,t])&& Npo[v[[15]]*v[[9]],c,a,b,t]&&(Nze[(4-v[[15]])*v[[9]],c,a,b,t]|| Npo[-(4-v[[15]])*v[[9]],c,a,b,t])&&Nze[v[[11]],c,a,b,t]  ,Print2["Vulpe 2c"],

Nnze[v[[4]],c,a,b,t]  &&Nze[v[[11]],c,a,b,t]  && Nze[v[[15]],c,a,b,t] && Npo[-v[[14]],c,a,b,t],Print2["Vulpe 2d"],

Nze[v[[4]],c,a,b,t]  && Nze[v[[12]],c,a,b,t]&&Npo[v[[13]],c,a,b,t]&&Npo[v[[8]],c,a,b,t],Print2["Vulpe 3a"],

Nnze[v[[4]],c,a,b,t]  &&Nze[v[[11]],c,a,b,t]  && Npo[-v[[14]]*v[[15]],c,a,b,t]&&Npo[v[[15]]*v[[9]],c,a,b,t],Print2["Vulpe 3b"],

Nze[v[[4]],c,a,b,t] && Npo[v[[13]],c,a,b,t]&&Npo[v[[8]],c,a,b,t]&&Nnze[v[[12]],c,a,b,t],Print2["Vulpe 4"],

Nze[v[[8]],c,a,b,t] && Nze[v[[9]],c,a,b,t]&&Nze[v[[11]],c,a,b,t]&&Nze[v[[12]],c,a,b,t]&&Npo[v[[5]]*v[[10]],c,a,b,t],Print2["Vulpe 5"],

Nze[v[[4]],c,a,b,t] && Nze[v[[8]],c,a,b,t]&&Nnze[v[[12]],c,a,b,t],Print2["Vulpe 6"],

Nze[v[[4]],c,a,b,t] && Nze[v[[13]],c,a,b,t]&&Nnze[v[[12]],c,a,b,t],Print2["Vulpe 7"],

Nze[v[[4]],c,a,b,t] && Nze[v[[12]],c,a,b,t]&&Npo[-v[[8]],c,a,b,t]&&Nnze[v[[10]],c,a,b,t]&&Npo[v[[2]]*v[[5]]*(v[[2]]*v[[5]]+2*v[[10]])-4*v[[10]]^2-v[[2]]^3*v[[8]],c,a,b,t],Print2["Vulpe 8a"],

Nnze[v[[4]],c,a,b,t]  &&Nze[v[[11]],c,a,b,t]  && Npo[v[[15]]*(v[[15]]-6),c,a,b,t]&&Npo[-v[[15]]*v[[9]],c,a,b,t]&&Npo[v[[15]]*v[[3]]*v[[4]],c,a,b,t],Print2["Vulpe 8b"],

Nze[v[[4]],c,a,b,t] && Nze[v[[12]],c,a,b,t]&&Npo[-v[[8]],c,a,b,t]&&Nnze[v[[10]],c,a,b,t]&&Npo[-v[[2]]*v[[5]]*(v[[2]]*v[[5]]+2*v[[10]])+4*v[[10]]^2+v[[2]]^3*v[[8]],c,a,b,t],Print2["Vulpe 9a"],

Nnze[v[[4]],c,a,b,t]  &&Nze[v[[11]],c,a,b,t]  && Npo[v[[15]]*(v[[15]]-6),c,a,b,t]&&Npo[-v[[15]]*v[[9]],c,a,b,t]&&Npo[-v[[15]]*v[[3]]*v[[4]],c,a,b,t],Print2["Vulpe 9b"],

Nze[v[[3]],c,a,b,t] && Nze[v[[10]],c,a,b,t]&&Npo[v[[9]]-v[[8]],c,a,b,t],Print2["Vulpe 10"],

Nze[v[[4]],c,a,b,t] && Npo[-v[[8]],c,a,b,t]&&Nnze[v[[12]],c,a,b,t],Print2["Vulpe 11"],

Nnze[v[[4]],c,a,b,t]  &&Nze[v[[9]],c,a,b,t]  && Nze[v[[11]],c,a,b,t]&&Nnze[v[[4]],c,a,b,t]&&(Nze[v[[15]],c,a,b,t]||Npo[v[[15]],c,a,b,t])&&(Npo[-v[[15]]+3,c,a,b,t]||Nze[v[[15]]-3,c,a,b,t]),Print2["Vulpe 12"],

Nnze[v[[4]],c,a,b,t]  &&Nze[v[[9]],c,a,b,t]  && Nze[v[[11]],c,a,b,t]&&Nnze[v[[4]],c,a,b,t]&&Npo[v[[15]]-4,c,a,b,t]&&(Nze[v[[15]]-6,c,a,b,t]|| Npo[-v[[15]]+6,c,a,b,t]),Print2["Vulpe 13"],

Nnze[v[[4]],c,a,b,t]  &&Nze[v[[9]],c,a,b,t]  && Nze[v[[11]],c,a,b,t]&&Nnze[v[[4]],c,a,b,t]&&Npo[v[[15]]-3,c,a,b,t]&&Npo[-v[[15]]+4,c,a,b,t],Print2["Vulpe 14"],

Nnze[v[[4]],c,a,b,t]  &&Nze[v[[9]],c,a,b,t]  && Nze[v[[11]],c,a,b,t]&&Nnze[v[[4]],c,a,b,t]&&Nze[v[[15]]-4,c,a,b,t],Print2["Vulpe 15"],

Nnze[v[[4]],c,a,b,t]  &&Nze[v[[11]],c,a,b,t]  && Nze[v[[15]]-6,c,a,b,t]&&Npo[-v[[9]],c,a,b,t]&&Npo[v[[3]]*v[[4]],c,a,b,t],Print2["Vulpe 16"],

Nze[v[[3]],c,a,b,t] && Nze[v[[8]]-v[[9]],c,a,b,t]&&Nnze[v[[9]],c,a,b,t],Print2["Vulpe 17"],

Nnze[v[[4]],c,a,b,t]  &&Nze[v[[11]],c,a,b,t]  &&Nze[v[[15]]-6,c,a,b,t]&&Npo[-v[[3]]*v[[4]],c,a,b,t],Print2["Vulpe 18"],

Nnze[v[[4]],c,a,b,t]  &&Nze[v[[11]],c,a,b,t]  && Npo[v[[9]],c,a,b,t]&&(Nze[v[[15]],c,a,b,t] || Npo[v[[15]],c,a,b,t])&&Npo[-v[[15]]+4,c,a,b,t],Print2["Vulpe 19"],

Nnze[v[[4]],c,a,b,t]  &&Nze[v[[11]],c,a,b,t]  && Npo[-v[[9]],c,a,b,t]&&Npo[v[[14]],c,a,b,t]&&(Nze[v[[15]],c,a,b,t] || Npo[v[[15]],c,a,b,t])&&(Nze[v[[15]]-4,c,a,b,t] || Npo[4-v[[15]],c,a,b,t]),Print2["Vulpe 20"],

Nnze[v[[4]],c,a,b,t]  &&Nze[v[[11]],c,a,b,t]  && Npo[-v[[9]],c,a,b,t]&&Npo[v[[14]],c,a,b,t]&&Npo[v[[15]]-4,c,a,b,t],Print2["Vulpe 21"],

Nnze[v[[4]],c,a,b,t]  &&Nze[v[[11]],c,a,b,t]  && Nnze[v[[4]],c,a,b,t]&&Nze[v[[14]],c,a,b,t]&&Npo[v[[15]],c,a,b,t]&&Npo[-v[[15]]+3,c,a,b,t],Print2["Vulpe 22"],

Nnze[v[[4]],c,a,b,t]  &&Nze[v[[11]],c,a,b,t]  && Nnze[v[[4]],c,a,b,t]&&Nze[v[[14]],c,a,b,t]&&(Nze[v[[15]]-3] ||Npo[v[[15]]-3,c,a,b,t]) &&(Nze[v[[15]]-4,c,a,b,t] || Npo[-v[[15]]+4,c,a,b,t]),Print2["Vulpe 23"],

Nnze[v[[4]],c,a,b,t]  &&Nze[v[[11]],c,a,b,t]  && Nnze[v[[4]],c,a,b,t]&&Nze[v[[14]],c,a,b,t]&&Npo[v[[15]]-4,c,a,b,t]&&Npo[-v[[15]]+6,c,a,b,t],Print2["Vulpe 24"],

Nnze[v[[4]],c,a,b,t]  &&Nze[v[[11]],c,a,b,t]  &&Npo[-v[[14]],c,a,b,t]&&Npo[v[[15]],c,a,b,t]&&(Nze[v[[15]]-4,c,a,b,t] || Npo[-v[[15]]+4,c,a,b,t]),Print2["Vulpe 25"],

Nnze[v[[4]],c,a,b,t]  &&Nze[v[[11]],c,a,b,t]  &&Npo[-v[[14]],c,a,b,t]&&Npo[v[[15]]-4,c,a,b,t]&&Npo[-v[[15]]+6,c,a,b,t]&&Npo[v[[3]]*v[[4]],c,a,b,t],Print2["Vulpe 26"],

Nze[v[[3]],c,a,b,t]  && Npo[v[[8]]-v[[9]],c,a,b,t]&&Npo[18*v[[7]]+v[[9]]-27*v[[8]],c,a,b,t],Print2["Vulpe 27"],

Nnze[v[[4]],c,a,b,t]  &&Nze[v[[11]],c,a,b,t]  &&Npo[-v[[14]],c,a,b,t]&&Npo[v[[15]]-4,c,a,b,t]&&Npo[-v[[15]]+6,c,a,b,t]&&Npo[-v[[3]]*v[[4]],c,a,b,t],Print2["Vulpe 28"],

Nnze[v[[4]],c,a,b,t]  &&Nze[v[[11]],c,a,b,t]  &&Nze[v[[14]],c,a,b,t]&&Nze[v[[15]],c,a,b,t]&&Nnze[v[[4]],c,a,b,t],Print2["Vulpe 29"],

Nze[v[[3]],c,a,b,t] && Nnze[v[[11]],c,a,b,t]&&Npo[-18*v[[7]]-v[[9]]+27*v[[8]],c,a,b,t],Print2["Vulpe 30"],

Nze[v[[3]],c,a,b,t]  && Nnze[v[[11]],c,a,b,t]&&Nze[18*v[[7]]+v[[9]]-27*v[[8]],c,a,b,t],Print2["Vulpe 31"],

Nze[5*v[[3]]-2*v[[4]],c,a,b,t]  && Nnze[v[[11]],c,a,b,t]&&Nze[13*v[[3]]-10*v[[5]],c,a,b,t],Print2["Vulpe 32"],

True,Print2["Something fails"]
],Print2["This system has no center at the origin. If there is a center somewhere else, you should first move it to the origin"]]

NRatFI2 determines if a parametrized system has a Rational First Integral of degree 2 and if it has, then it gives its phase portrait acording to [ALV:2007] and its first integral and inverse integrating factor. The set "c" are the equalities know among the parameters, "a" corresponds to expressions known to be positive and "b" to expressions known to be different from zero.

NRatFI2[c_,a_,b_,t_]:={Ratfi2=True;tot=Union[Table[c[[i]]==0,{i,1,Length[c]}],Table[a[[i]]>0,{i,1,Length[a]}],Table[b[[i]]^2>0,{i,1,Length[b]}],Table[b[[i]]≠0,{i,1,Length[b]},{var1≠0},{var2≠0}]];Which[

Nnze[WC2,c,a,b,t]&&Nze[WB3,c,a,b,t]&&Nze[WN,c,a,b,t]&&Nnze[η,c,a,b,t],Print2["The system has a Rationat First Integral of degree2 (i)"],

Nnze[WC2,c,a,b,t]&&Nze[WB3,c,a,b,t]&&Nze[WN,c,a,b,t]&&Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nnze[WH,c,a,b,t]&&Nze[WILH2,c,a,b,t],Print2["The system has a Rationat First Integral of degree2 (ii)"],

Nnze[WC2,c,a,b,t]&&Nze[WB3,c,a,b,t]&&Nze[WN,c,a,b,t]&&Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[WH,c,a,b,t]&&Nze[WN1,c,a,b,t]&&Nze[WN2,c,a,b,t],Print2["The system has a Rationat First Integral of degree2 (iii)"],

Nnze[WC2,c,a,b,t]&&Nze[WB3,c,a,b,t]&&Nze[WN,c,a,b,t]&&Nze[η,c,a,b,t]&&Nze[WM,c,a,b,t]&&Nze[WN3,c,a,b,t]&&Nze[WN4,c,a,b,t],Print2["The system has a Rationat First Integral of degree2 (iv)"],
 
Nze[WC2,c,a,b,t]&&Nze[WN7,c,a,b,t],Print2["The system has a Rationat First Integral of degree2 (v)"],
 
True,{Ratfi2=False,Print2["The system has not a Rationat First Integral of degree 2"]}
],  

If[Ratfi2==True,

Which[

Npo[η,c,a,b,t]&&Nze[WN,c,a,b,t]&&Npo[WILH1,c,a,b,t],Print2["The system has Portait 1 [ALV:2007]"],

Npo[η,c,a,b,t]&&Nze[WN,c,a,b,t]&&Npo[-WILH1,c,a,b,t],Print2["The system has Portait 2 [ALV:2007]"],

Npo[η,c,a,b,t]&&Nze[WN,c,a,b,t]&&Nze[WILH1,c,a,b,t],Print2["The system has Portait 3 [ALV:2007]"],

Npo[-η,c,a,b,t]&&Nze[WN,c,a,b,t]&&Npo[WILH1,c,a,b,t],Print2["The system has Portait 4 [ALV:2007]"],

Npo[-η,c,a,b,t]&&Nze[WN,c,a,b,t]&&Npo[-WILH1,c,a,b,t],Print2["The system has Portait 5 [ALV:2007]"],

Npo[-η,c,a,b,t]&&Nze[WN,c,a,b,t]&&Nze[WILH1,c,a,b,t],Print2["The system has Portait 6 [ALV:2007]"],

Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[WN,c,a,b,t]&&Nnze[WH,c,a,b,t]&&Nze[WILH2,c,a,b,t]&&Npo[WILH3,c,a,b,t],Print2["The system has Portait 7 [ALV:2007]"],

Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[WN,c,a,b,t]&&Nnze[WH,c,a,b,t]&&Nze[WILH2,c,a,b,t]&&Npo[-WILH3,c,a,b,t],Print2["The system has Portait 8 [ALV:2007]"],

Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[WN,c,a,b,t]&&Nnze[WH,c,a,b,t]&&Nze[WILH2,c,a,b,t]&&Nze[WILH3,c,a,b,t],Print2["The system has Portait 9 [ALV:2007]"],

Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[WN,c,a,b,t]&&Nze[WH,c,a,b,t]&&Nze[WN1,c,a,b,t]&&Nze[WN2,c,a,b,t]&&Nnze[WILH3,c,a,b,t],Print2["The system has Portait 10 [ALV:2007]"],

Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[WN,c,a,b,t]&&Nze[WH,c,a,b,t]&&Nze[WN1,c,a,b,t]&&Nze[WN2,c,a,b,t]&&Nze[WILH3,c,a,b,t]&&Nnze[WILH8,c,a,b,t],Print2["The system has Portait 11 [ALV:2007]"],

Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[WN,c,a,b,t]&&Nze[WH,c,a,b,t]&&Nze[WN1,c,a,b,t]&&Nze[WN2,c,a,b,t]&&Nze[WILH3,c,a,b,t]&&Nze[WILH8,c,a,b,t],Print2["The system has Portait 12 [ALV:2007]"],

Nze[η,c,a,b,t]&&Nze[WM,c,a,b,t]&&Nnze[WC2,c,a,b,t]&&Nze[WN,c,a,b,t]Nze[WN3,c,a,b,t]&&Nze[WN4,c,a,b,t]&&Nnze[WN7,c,a,b,t],Print2["The system has Portait 13 [ALV:2007]"],

Nze[η,c,a,b,t]&&Nze[WM,c,a,b,t]&&Nnze[WC2,c,a,b,t]&&Nze[WN,c,a,b,t]Nze[WN3,c,a,b,t]&&Nze[WN4,c,a,b,t]&&Nze[WN7,c,a,b,t]&&Npo[WN8,c,a,b,t],Print2["The system has Portait 14 [ALV:2007]"],

Nze[η,c,a,b,t]&&Nze[WM,c,a,b,t]&&Nnze[WC2,c,a,b,t]&&Nze[WN,c,a,b,t]Nze[WN3,c,a,b,t]&&Nze[WN4,c,a,b,t]&&Nze[WN7,c,a,b,t]&&Npo[-WN8,c,a,b,t],Print2["The system has Portait 15 [ALV:2007]"],

Nze[η,c,a,b,t]&&Nze[WM,c,a,b,t]&&Nnze[WC2,c,a,b,t]&&Nze[WN,c,a,b,t]Nze[WN3,c,a,b,t]&&Nze[WN4,c,a,b,t]&&Nze[WN7,c,a,b,t]&&Nze[WN8,c,a,b,t],Print2["The system has Portait 16 [ALV:2007]"],

Nze[WC2,c,a,b,t]&&Nze[WN7,c,a,b,t]&&Nnze[WILH10,c,a,b,t]&&Npo[WILH9,c,a,b,t],Print2["The system has Portait 17 [ALV:2007]"],

Nze[WC2,c,a,b,t]&&Nze[WN7,c,a,b,t]&&Nnze[WILH10,c,a,b,t]&&Npo[-WILH9,c,a,b,t],Print2["The system has Portait 18 [ALV:2007]"],

Nze[WC2,c,a,b,t]&&Nze[WN7,c,a,b,t]&&Nnze[WILH10,c,a,b,t]&&Nze[WILH9,c,a,b,t],Print2["The system has Portait 19 [ALV:2007]"],

Nze[WC2,c,a,b,t]&&Nze[WN7,c,a,b,t]&&Nze[WILH10,c,a,b,t]&&Nnze[WILH2,c,a,b,t],Print2["The system has Portait 20 [ALV:2007]"],

Nze[WC2,c,a,b,t]&&Nze[WN7,c,a,b,t]&&Nze[WILH10,c,a,b,t]&&Nze[WILH2,c,a,b,t]&&Nnze[WILH12,c,a,b,t]&&Npo[WILH11,c,a,b,t],Print2["The system has Portait 21 [ALV:2007]"],

Nze[WC2,c,a,b,t]&&Nze[WN7,c,a,b,t]&&Nze[WILH10,c,a,b,t]&&Nze[WILH2,c,a,b,t]&&Nnze[WILH12,c,a,b,t]&&Npo[-WILH11,c,a,b,t],Print2["The system has Portait 22 [ALV:2007]"],

Nze[WC2,c,a,b,t]&&Nze[WN7,c,a,b,t]&&Nze[WILH10,c,a,b,t]&&Nze[WILH2,c,a,b,t]&&Nze[WILH12,c,a,b,t]&&Nnze[μ4,c,a,b,t],Print2["The system has Portait 23 [ALV:2007]"],

Nze[WC2,c,a,b,t]&&Nze[WN7,c,a,b,t]&&Nze[WILH10,c,a,b,t]&&Nze[WILH2,c,a,b,t]&&Nze[WILH12,c,a,b,t]&&Nze[μ4,c,a,b,t],Print2["The system has Portait 24 [ALV:2007]"]

]],

If[Ratfi2==True,

Which[

Nnze[WC2,c,a,b,t]&&Nze[WB3,c,a,b,t]&&Nze[WN,c,a,b,t]&&(Nnze[η,c,a,b,t] || (
Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nnze[WH,c,a,b,t]&&Nze[WILH2,c,a,b,t]) ||(Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[WH,c,a,b,t]&&Nze[WN1,c,a,b,t]&&Nze[WN2,c,a,b,t])) && Nnze[WH,c,a,b,t],
{FI=(2YG3-YG2)(4YG3^2-YG1^2YG2)/YG4,Print2["The First Integral is ",FI],IF=4YG3^2-YG1^2 YG2,Print2[" and the Integrating factor is", IF]},

Nnze[WC2,c,a,b,t]&&Nze[WB3,c,a,b,t]&&Nze[WN,c,a,b,t]&&(Nnze[η,c,a,b,t] || (
Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nnze[WH,c,a,b,t]&&Nze[WILH2,c,a,b,t]) ||(Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[WH,c,a,b,t]&&Nze[WN1,c,a,b,t]&&Nze[WN2,c,a,b,t])) && Nze[WH,c,a,b,t]&& Nnze[WILH3,c,a,b,t],
{FI=(2YG3-YG2)^3/YG4,Print2["The First Integral is ",FI],IF=(2YG3-YG2)^2,Print2[" and the Integrating factor is", IF]},

Nnze[WC2,c,a,b,t]&&Nze[WB3,c,a,b,t]&&Nze[WN,c,a,b,t]&&(Nnze[η,c,a,b,t] || (
Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nnze[WH,c,a,b,t]&&Nze[WILH2,c,a,b,t]) ||(Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[WH,c,a,b,t]&&Nze[WN1,c,a,b,t]&&Nze[WN2,c,a,b,t])) && Nze[WH,c,a,b,t]&& Nze[WILH3,c,a,b,t],
{FI=2YG4/YG1^4+WC2/WD2^2,Print2["The First Integral is ",FI],IF=YG1^2,Print2[" and the Integrating factor is", IF]},

Nnze[WC2,c,a,b,t]&&Nze[WB3,c,a,b,t]&&Nze[WN,c,a,b,t]&&Nze[η,c,a,b,t]&&Nze[WM,c,a,b,t]&&Nze[WN3,c,a,b,t]&&Nze[WN4,c,a,b,t],{FI=(YG5^2-2YG6)/YG5,Print2["The First Integral is ",FI],IF=YG5^2,Print2[" and the Integrating factor is", IF]},

Nze[WC2,c,a,b,t]&&Nze[WN7,c,a,b,t]&&Nnze[WILH10,c,a,b,t],{FI=(YG1^2-9YG2)^2/(9YG2-YG1^2+12YG3),Print2["The First Integral is ",FI],IF=YG4,Print2[" and the Integrating factor is", IF]},

Nze[WC2,c,a,b,t]&&Nze[WN7,c,a,b,t]&&Nze[WILH10,c,a,b,t]&&Nnze[WILH2,c,a,b,t],{FI=YG3^3/(YG1^3YG4),Print2["The First Integral is ",FI],IF=YG4,Print2[" and the Integrating factor is",IF]},

Nze[WC2,c,a,b,t]&&Nze[WN7,c,a,b,t]&&Nze[WILH10,c,a,b,t]&&Nze[WILH2,c,a,b,t]&&Nnze[WILH12,c,a,b,t],{FI=YG4^2/YG3^3,Print2["The First Integral is ",FI],IF=YG4,Print2[" and the Integrating factor is",IF]},

Nze[WC2,c,a,b,t]&&Nze[WN7,c,a,b,t]&&Nze[WILH10,c,a,b,t]&&Nze[WILH2,c,a,b,t]&&Nze[WILH12,c,a,b,t],{FI=YG1^2/(YG7+YG1 YG5),Print2["The First Integral is ",FI],IF=YG4,Print2[" and the Integrating factor is",IF]}


]]}

These are some grouped sets of conditions for finite singular points

(*Cond G1*) NcenterC1[c_,a_,b_,t_]:=(Nze[WG01,c,a,b,t] && Nze[WG03,c,a,b,t] && Nze[WG05,c,a,b,t]&& Npo[-WG02 WG04,c,a,b,t] )

(*Cond G2*)NcenterC2[c_,a_,b_,t_]:=( Nze[WG01,c,a,b,t] && Nze[WG03,c,a,b,t] && Nze[WG04,c,a,b,t]&& Npo[-μ0,c,a,b,t] )

(*Cond G3*)NcenterC3[c_,a_,b_,t_]:= (Nze[WG01,c,a,b,t] && Nze[WG03,c,a,b,t] && Nze[WG04,c,a,b,t]&& Npo[μ0,c,a,b,t]&& (Npo[WG09,c,a,b,t]|| Nze[WG09,c,a,b,t]) )

(*Cond G4*)NcenterC4[c_,a_,b_,t_]:=( Nze[WG01,c,a,b,t] && Nze[WG03,c,a,b,t] && Nze[WG05 (WG06^2+WG07^2),c,a,b,t]&& Npo[-WG02 WG04,c,a,b,t] )

(*Cond G5*)NcenterC5[c_,a_,b_,t_]:=( Nze[WG01,c,a,b,t] && Nze[WG03,c,a,b,t] && Nze[WG04,c,a,b,t]&& Npo[μ0,c,a,b,t]&& (Npo[-WG12,c,a,b,t]|| Nze[WG12,c,a,b,t]) )

(*Cond G6*)(NcenterC6[c_,a_,b_,t_]:= Nze[WG01,c,a,b,t] && Nze[WG03,c,a,b,t] && Nze[WG04,c,a,b,t]&& Npo[-μ0,c,a,b,t]&& Npo[-WG12,c,a,b,t]&& Npo[WG09,c,a,b,t])

(*Cond G7*)NcenterC7[c_,a_,b_,t_]:=( Nze[WG01,c,a,b,t] && Nze[WG03,c,a,b,t] && Nze[WG04,c,a,b,t]&& Npo[μ0,c,a,b,t]&& Nze[WG08,c,a,b,t] )

(*Cond G8*)NcenterC8[c_,a_,b_,t_]:=( Nze[WG03,c,a,b,t] && Nze[WG04,c,a,b,t]&& Npo[WG09,c,a,b,t])

(*Cond G9*)NcenterC9[c_,a_,b_,t_]:=( Nze[WG03,c,a,b,t] && Nze[WG04,c,a,b,t]&& Nze[WG09,c,a,b,t]&& Npo[μ0,c,a,b,t])

(*Cond G10*) NcenterC10[c_,a_,b_,t_]:=(Nze[WG01,c,a,b,t] && Nze[WG03,c,a,b,t] && Nze[WG04,c,a,b,t]&& Nze[WG10,c,a,b,t]&& (Npo[-WG11,c,a,b,t]|| Nze[WG11,c,a,b,t]) )

(*Cond G11*)NcenterC11[c_,a_,b_,t_]:=( Nze[WG03,c,a,b,t] && Nze[WG09,c,a,b,t]&& Nze[WG10,c,a,b,t]&& Npo[-WG11,c,a,b,t])

(*Cond G12*)NcenterC12[c_,a_,b_,t_]:=( Nze[WG01,c,a,b,t] && Nze[WG03,c,a,b,t]&& Nze[WG04,c,a,b,t]&& Npo[WG08,c,a,b,t])

(*Cond G13*)NcenterC13[c_,a_,b_,t_]:=( Nze[WG01,c,a,b,t] && Nze[WG03,c,a,b,t]&& Nze[WG04,c,a,b,t]&& Npo[-WG08,c,a,b,t]&& Npo[WG09,c,a,b,t])

(*Cond G14*)NcenterC14[c_,a_,b_,t_]:=( Nze[WD1,c,a,b,t] && Nze[WD2,c,a,b,t]&& Nze[WK,c,a,b,t])

(*Cond G15*)NcenterC15[c_,a_,b_,t_]:=( Nze[WG03,c,a,b,t] && Nze[WG10,c,a,b,t]&& Npo[-WG11,c,a,b,t]&& Nnze[WN,c,a,b,t])

(*Cond G16*)NcenterC16[c_,a_,b_,t_]:=( Nze[WG13,c,a,b,t] &&  Npo[WG14,c,a,b,t]&& Nze[WN,c,a,b,t])

(*Cond D1*)NcondD1[c_,a_,b_,t_]:=( Npo[WW4,c,a,b,t] &&  (Npo[-WV1,c,a,b,t]||Nze[WV1,c,a,b,t])&& Nze[WV2,c,a,b,t])

(*Cond D2*)NcondD2[c_,a_,b_,t_]:=( Nze[WW4,c,a,b,t] &&  Nze[WW3,c,a,b,t]&& Nze[WV4,c,a,b,t]&& Nze[WW1-4μ0^2 WW2,c,a,b,t])

Nfinite makes a complete description of finite singular points for a parametrized system. The set "c" are the equalities know among the parameters, "a" corresponds to expressions known to be positive and "b" to expressions known to be different from zero.

Nfinite[c_,a_,b_,t_]:={tot=Union[Table[c[[i]]==0,{i,1,Length[c]}],Table[a[[i]]>0,{i,1,Length[a]}],Table[b[[i]]^2>0,{i,1,Length[b]}],Table[b[[i]]≠0,{i,1,Length[b]}],{var1≠0},{var2≠0}];Which[

Npo[-μ0,c,a,b,t]&&Npo[-𝔻,c,a,b,t]&&Npo[ℝ,c,a,b,t]&&Npo[𝕊,c,a,b,t]&&Npo[-WK,c,a,b,t]&&Npo[WW4,c,a,b,t],Print2["s, s, s, n","  (row 1a)"],

Npo[-μ0,c,a,b,t]&&Npo[-𝔻,c,a,b,t]&&Npo[ℝ,c,a,b,t]&&Npo[𝕊,c,a,b,t]&&Npo[-WK,c,a,b,t]&&Nze[WW4,c,a,b,t],Print2["s, s, s, n","  (row 1b)"],

Npo[-μ0,c,a,b,t]&&Npo[-𝔻,c,a,b,t]&&Npo[ℝ,c,a,b,t]&&Npo[𝕊,c,a,b,t]&&Npo[-WK,c,a,b,t]&&Npo[-WW4,c,a,b,t]&&¬centerC1[c,a,b,t]&&¬centerC2[c,a,b,t],Print2["s, s, s, f","  (row 2)"],

Npo[-μ0,c,a,b,t]&&Npo[-𝔻,c,a,b,t]&&Npo[ℝ,c,a,b,t]&&Npo[𝕊,c,a,b,t]&&Npo[-WK,c,a,b,t]&&Npo[-WW4,c,a,b,t]&&centerC1[c,a,b,t],Print2["s, s, s, c","  (row 3a)"],

Npo[-μ0,c,a,b,t]&&Npo[-𝔻,c,a,b,t]&&Npo[ℝ,c,a,b,t]&&Npo[𝕊,c,a,b,t]&&Npo[-WK,c,a,b,t]&&Npo[-WW4,c,a,b,t]&&centerC2[c,a,b,t],Print2["s, s, s, c","  (row 3b)"],

Npo[μ0,c,a,b,t]&&Npo[-𝔻,c,a,b,t]&&Npo[ℝ,c,a,b,t]&&Npo[𝕊,c,a,b,t]&&Npo[WW4,c,a,b,t]&&Npo[WW2,c,a,b,t]&&Npo[WW1 WW3,c,a,b,t],Print2["s, s, n, n","  (row 4)"],

Npo[μ0,c,a,b,t]&&Npo[-𝔻,c,a,b,t]&&Npo[ℝ,c,a,b,t]&&Npo[𝕊,c,a,b,t]&&Nze[WW4,c,a,b,t]&&Npo[ WW3,c,a,b,t],Print2["s, s, n, n","  (row 5a)"],

Npo[μ0,c,a,b,t]&&Npo[-𝔻,c,a,b,t]&&Npo[ℝ,c,a,b,t]&&Npo[𝕊,c,a,b,t]&&Nze[WW4,c,a,b,t]&&Nze[ WW3,c,a,b,t],Print2["s, s, n, n","  (row 5b)"],

Npo[μ0,c,a,b,t]&&Npo[-𝔻,c,a,b,t]&&Npo[ℝ,c,a,b,t]&&Npo[𝕊,c,a,b,t]&&Npo[-WW4,c,a,b,t],Print2["s, s, n, f","  (row 6)"],

Npo[μ0,c,a,b,t]&&Npo[-𝔻,c,a,b,t]&&Npo[ℝ,c,a,b,t]&&Npo[𝕊,c,a,b,t]&&Nze[WW4,c,a,b,t]&&Npo[-WW3,c,a,b,t],Print2["s, s, n, f","  (row 7)"],

Npo[μ0,c,a,b,t]&&Npo[-𝔻,c,a,b,t]&&Npo[ℝ,c,a,b,t]&&Npo[𝕊,c,a,b,t]&&Npo[WW4,c,a,b,t]&&Npo[-WW2,c,a,b,t]&& ¬centerC3[c,a,b,t],Print2["s, s, f, f","  (row 8)"],

Npo[μ0,c,a,b,t]&&Npo[-𝔻,c,a,b,t]&&Npo[ℝ,c,a,b,t]&&Npo[𝕊,c,a,b,t]&&Npo[WW4,c,a,b,t]&&Npo[WW2,c,a,b,t]&&Npo[-WW1 WW3,c,a,b,t]&& ¬centerC3[c,a,b,t],Print2["s, s, f, f","  (row 9a)"],

Npo[μ0,c,a,b,t]&&Npo[-𝔻,c,a,b,t]&&Npo[ℝ,c,a,b,t]&&Npo[𝕊,c,a,b,t]&&Npo[WW4,c,a,b,t]&&Nze[WW2,c,a,b,t]&&Npo[-WW1 WW3,c,a,b,t]&& ¬centerC3[c,a,b,t],Print2["s, s, f, f","  (row 9b)"],

Npo[μ0,c,a,b,t]&&Npo[-𝔻,c,a,b,t]&&Npo[ℝ,c,a,b,t]&&Npo[𝕊,c,a,b,t]&&Npo[WW4,c,a,b,t]&&Npo[-WW2,c,a,b,t]&& centerC3[c,a,b,t],Print2["s, s, c, c","  (row 10)"],

Npo[μ0,c,a,b,t]&&Npo[-𝔻,c,a,b,t]&&Npo[ℝ,c,a,b,t]&&Npo[𝕊,c,a,b,t]&&Npo[WW4,c,a,b,t]&&Npo[WW2,c,a,b,t]&&Npo[-WW1 WW3,c,a,b,t]&& centerC3[c,a,b,t],Print2["s, s, c, c","  (row 11a)"],

Npo[μ0,c,a,b,t]&&Npo[-𝔻,c,a,b,t]&&Npo[ℝ,c,a,b,t]&&Npo[𝕊,c,a,b,t]&&Npo[WW4,c,a,b,t]&&Nze[WW2,c,a,b,t]&&Npo[-WW1 WW3,c,a,b,t]&& centerC3[c,a,b,t],Print2["s, s, c, c","  (row 11b)"],

Npo[-μ0,c,a,b,t]&&Npo[-𝔻,c,a,b,t]&&Npo[ℝ,c,a,b,t]&&Npo[𝕊,c,a,b,t]&&Npo[WK,c,a,b,t]&&Npo[WW4,c,a,b,t]&&Npo[WW2,c,a,b,t]&&Npo[WW1 WW3,c,a,b,t],Print2["s, n, n, n","  (row 12)"],

Npo[-μ0,c,a,b,t]&&Npo[-𝔻,c,a,b,t]&&Npo[ℝ,c,a,b,t]&&Npo[𝕊,c,a,b,t]&&Npo[WK,c,a,b,t]&&Nze[WW4,c,a,b,t]&&Npo[WW3,c,a,b,t],Print2["s, n, n, n","  (row 13)"],

Npo[-μ0,c,a,b,t]&&Npo[-𝔻,c,a,b,t]&&Npo[ℝ,c,a,b,t]&&Npo[𝕊,c,a,b,t]&&Npo[WK,c,a,b,t]&&Nze[WW4,c,a,b,t]&&Nze[WW3,c,a,b,t]&&Npo[WW2,c,a,b,t],Print2["s, n, n, n","  (row 14)"],

Npo[-μ0,c,a,b,t]&&Npo[-𝔻,c,a,b,t]&&Npo[ℝ,c,a,b,t]&&Npo[𝕊,c,a,b,t]&&Npo[WK,c,a,b,t]&&Npo[-WW4,c,a,b,t]&&¬centerC1[c,a,b,t]&&¬centerC2[c,a,b,t],Print2["s, n, n, f","  (row 15)"],

Npo[-μ0,c,a,b,t]&&Npo[-𝔻,c,a,b,t]&&Npo[ℝ,c,a,b,t]&&Npo[𝕊,c,a,b,t]&&Npo[WK,c,a,b,t]&&Nze[WW4,c,a,b,t]&&Npo[-WW3,c,a,b,t],Print2["s, n, n, f","  (row 16)"],

Npo[-μ0,c,a,b,t]&&Npo[-𝔻,c,a,b,t]&&Npo[ℝ,c,a,b,t]&&Npo[𝕊,c,a,b,t]&&Npo[WK,c,a,b,t]&&Nze[WW4,c,a,b,t]&&Nze[WW3,c,a,b,t]&&Npo[-WW2,c,a,b,t]&&¬centerC2[c,a,b,t],Print2["s, n, n, f","  (row 17)"],

Npo[-μ0,c,a,b,t]&&Npo[-𝔻,c,a,b,t]&&Npo[ℝ,c,a,b,t]&&Npo[𝕊,c,a,b,t]&&Npo[WK,c,a,b,t]&&Npo[-WW4,c,a,b,t]&&centerC1[c,a,b,t],Print2["s, n, n, c","  (row 18a)"],

Npo[-μ0,c,a,b,t]&&Npo[-𝔻,c,a,b,t]&&Npo[ℝ,c,a,b,t]&&Npo[𝕊,c,a,b,t]&&Npo[WK,c,a,b,t]&&Npo[-WW4,c,a,b,t]&&centerC2[c,a,b,t],Print2["s, n, n, c","  (row 18b)"],

Npo[-μ0,c,a,b,t]&&Npo[-𝔻,c,a,b,t]&&Npo[ℝ,c,a,b,t]&&Npo[𝕊,c,a,b,t]&&Npo[WK,c,a,b,t]&&Nze[WW4,c,a,b,t]&&Nze[WW3,c,a,b,t]&&Npo[-WW2,c,a,b,t]&&centerC2[c,a,b,t],Print2["s, n, n, c","  (row 19)"],

Npo[-μ0,c,a,b,t]&&Npo[-𝔻,c,a,b,t]&&Npo[ℝ,c,a,b,t]&&Npo[𝕊,c,a,b,t]&&Npo[WK,c,a,b,t]&&Npo[WW4,c,a,b,t]&&Npo[-WW2,c,a,b,t],Print2["s, n, f, f","  (row 20)"],

Npo[-μ0,c,a,b,t]&&Npo[-𝔻,c,a,b,t]&&Npo[ℝ,c,a,b,t]&&Npo[𝕊,c,a,b,t]&&Npo[WK,c,a,b,t]&&Npo[WW4,c,a,b,t]&&Npo[WW2,c,a,b,t]&&Npo[-WW1 WW3,c,a,b,t],Print2["s, n, f, f","  (row 21a)"],

Npo[-μ0,c,a,b,t]&&Npo[-𝔻,c,a,b,t]&&Npo[ℝ,c,a,b,t]&&Npo[𝕊,c,a,b,t]&&Npo[WK,c,a,b,t]&&Npo[WW4,c,a,b,t]&&Nze[WW2,c,a,b,t]&&Npo[-WW1 WW3,c,a,b,t],Print2["s, n, f, f","  (row 21b)"],

Npo[-μ0,c,a,b,t]&&Npo[𝔻,c,a,b,t]&&Npo[-WK,c,a,b,t],Print2["s, s","  (row 22)"],

Npo[μ0,c,a,b,t]&&Npo[𝔻,c,a,b,t]&&Npo[WW4,c,a,b,t],Print2["s, n","  (row 23)"],

Npo[μ0,c,a,b,t]&&Npo[𝔻,c,a,b,t]&&Nze[WW4,c,a,b,t]&&Nnze[WW3,c,a,b,t],Print2["s, n","  (row 24)"],

Npo[μ0,c,a,b,t]&&Npo[𝔻,c,a,b,t]&&Nze[WW4,c,a,b,t]&&Nze[WW3,c,a,b,t]&&Npo[WW2,c,a,b,t],Print2["s, n","  (row 25a)"],

Npo[μ0,c,a,b,t]&&Npo[𝔻,c,a,b,t]&&Nze[WW4,c,a,b,t]&&Nze[WW3,c,a,b,t]&&Nze[WW2,c,a,b,t],Print2["s, n","  (row 25b)"],

Npo[μ0,c,a,b,t]&&Npo[𝔻,c,a,b,t]&&Npo[-WW4,c,a,b,t]&&¬centerC5[c,a,b,t],Print2["s, f","  (row 26)"],

Npo[μ0,c,a,b,t]&&Npo[𝔻,c,a,b,t]&&Nze[WW4,c,a,b,t]&&Nze[WW3,c,a,b,t]&&Npo[-WW2,c,a,b,t]&&¬centerC5[c,a,b,t],Print2["s, f","  (row 27)"],

Npo[μ0,c,a,b,t]&&Npo[𝔻,c,a,b,t]&&Npo[-WW4,c,a,b,t]&&centerC5[c,a,b,t],Print2["s, c","  (row 28)"],

Npo[μ0,c,a,b,t]&&Npo[𝔻,c,a,b,t]&&Nze[WW4,c,a,b,t]&&Nze[WW3,c,a,b,t]&&Npo[-WW2,c,a,b,t]&&centerC5[c,a,b,t],Print2["s, c","  (row 29)"],

Npo[-μ0,c,a,b,t]&&Npo[𝔻,c,a,b,t]&&Npo[WK,c,a,b,t]&&Npo[WW4,c,a,b,t]&&Npo[WV1,c,a,b,t]&&Npo[WW1,c,a,b,t],Print2["n, n","  (row 30)"],

Npo[-μ0,c,a,b,t]&&Npo[𝔻,c,a,b,t]&&Npo[WK,c,a,b,t]&&Npo[WW4,c,a,b,t]&&Npo[-WV1,c,a,b,t]&&Npo[WV2,c,a,b,t],Print2["n, n","  (row 31)"],

Npo[-μ0,c,a,b,t]&&Npo[𝔻,c,a,b,t]&&Npo[WK,c,a,b,t]&&Npo[WW4,c,a,b,t]&&Nze[WV1,c,a,b,t]&&Nnze[WV2 WV3,c,a,b,t]&&Npo[WW1,c,a,b,t],Print2["n, n","  (row 32)"],

Npo[-μ0,c,a,b,t]&&Npo[𝔻,c,a,b,t]&&Npo[WK,c,a,b,t]&&Npo[WW4,c,a,b,t]&&Nze[WV1,c,a,b,t]&&Nze[WV3,c,a,b,t]&&Npo[WV2,c,a,b,t],Print2["n, n","  (row 33)"],

Npo[-μ0,c,a,b,t]&&Npo[𝔻,c,a,b,t]&&Npo[WK,c,a,b,t]&&Nze[WW4,c,a,b,t]&&Npo[WW3,c,a,b,t],Print2["n, n","  (row 34)"],

Npo[-μ0,c,a,b,t]&&Npo[𝔻,c,a,b,t]&&Npo[WK,c,a,b,t]&&Nze[WW4,c,a,b,t]&&Nze[WW3,c,a,b,t]&&Npo[WW2,c,a,b,t]&&Npo[-WV4,c,a,b,t],Print2["n, n","  (row 35)"],

Npo[-μ0,c,a,b,t]&&Npo[𝔻,c,a,b,t]&&Npo[WK,c,a,b,t]&&Nze[WW4,c,a,b,t]&&Nze[WW3,c,a,b,t]&&Npo[WW2,c,a,b,t]&&Npo[WV4,c,a,b,t]&&Npo[WW1,c,a,b,t],Print2["n, n","  (row 36a)"],

Npo[-μ0,c,a,b,t]&&Npo[𝔻,c,a,b,t]&&Npo[WK,c,a,b,t]&&Nze[WW4,c,a,b,t]&&Nze[WW3,c,a,b,t]&&Nze[WW2,c,a,b,t]&&Npo[WV4,c,a,b,t]&&Npo[WW1,c,a,b,t],Print2["n, n","  (row 36b)"],

Npo[-μ0,c,a,b,t]&&Npo[𝔻,c,a,b,t]&&Npo[WK,c,a,b,t]&&Nnze[WH1,c,a,b,t]&&Npo[WW10,c,a,b,t]&&condD1[c,a,b,t],Print2["n, n","  (row 37)"],

Npo[-μ0,c,a,b,t]&&Npo[𝔻,c,a,b,t]&&Npo[WK,c,a,b,t]&&Nze[WH1,c,a,b,t]&&Npo[WH4 WH5,c,a,b,t]&&condD1[c,a,b,t],Print2["n, n","  (row 38)"],

Npo[-μ0,c,a,b,t]&&Npo[𝔻,c,a,b,t]&&Npo[WK,c,a,b,t]&&Nze[WH1,c,a,b,t]&&Nze[WH4,c,a,b,t]&&Npo[WH2,c,a,b,t]&&condD1[c,a,b,t],Print2["n, n","  (row 39)"],

Npo[-μ0,c,a,b,t]&&Npo[𝔻,c,a,b,t]&&Npo[WK,c,a,b,t]&&Nnze[WH1,c,a,b,t]&&Npo[WW1,c,a,b,t]&&Npo[WW10,c,a,b,t]&&condD2[c,a,b,t],Print2["n, n","  (row 40a)"],

Npo[-μ0,c,a,b,t]&&Npo[𝔻,c,a,b,t]&&Npo[WK,c,a,b,t]&&Nnze[WH1,c,a,b,t]&&Npo[WW1,c,a,b,t]&&Nze[WW10,c,a,b,t]&&condD2[c,a,b,t],Print2["n, n","  (row 40b)"],

Npo[-μ0,c,a,b,t]&&Npo[𝔻,c,a,b,t]&&Npo[WK,c,a,b,t]&&Nnze[WH1,c,a,b,t]&&Npo[-WW1 WW10,c,a,b,t]&&condD2[c,a,b,t],Print2["n, n","  (row 41)"],

Npo[-μ0,c,a,b,t]&&Npo[𝔻,c,a,b,t]&&Npo[WK,c,a,b,t]&&Nze[WH1,c,a,b,t]&&Npo[WH4 WH5,c,a,b,t]&&Npo[WW1,c,a,b,t]&&condD2[c,a,b,t],Print2["n, n","  (row 42)"],

Npo[-μ0,c,a,b,t]&&Npo[𝔻,c,a,b,t]&&Npo[WK,c,a,b,t]&&Nze[WH1,c,a,b,t]&&Npo[-WH4 WH5 WW1,c,a,b,t]&&condD2[c,a,b,t],Print2["n, n","  (row 43)"],

Npo[-μ0,c,a,b,t]&&Npo[𝔻,c,a,b,t]&&Npo[WK,c,a,b,t]&&Nze[WW1,c,a,b,t]&&( Nze[WW4,c,a,b,t] &&  Nze[WW3,c,a,b,t]&& Nze[WV4,c,a,b,t]&& Nze[WW1-4μ0^2 WW2,c,a,b,t]),Print2["n, n","  (row 44)"],

Npo[-μ0,c,a,b,t]&&Npo[𝔻,c,a,b,t]&&Npo[WK,c,a,b,t]&&Npo[-WW4,c,a,b,t]&&¬centerC4[c,a,b,t],Print2["n, f","  (row 45)"],

Npo[-μ0,c,a,b,t]&&Npo[𝔻,c,a,b,t]&&Npo[WK,c,a,b,t]&&Nze[WW4,c,a,b,t]&&Npo[-WW3,c,a,b,t],Print2["n, f","  (row 46)"],

Npo[-μ0,c,a,b,t]&&Npo[𝔻,c,a,b,t]&&Npo[WK,c,a,b,t]&&Nze[WW4,c,a,b,t]&&Nze[WW3,c,a,b,t]&&Npo[-WW2,c,a,b,t],Print2["n, f","  (row 47)"],

Npo[-μ0,c,a,b,t]&&Npo[𝔻,c,a,b,t]&&Npo[WK,c,a,b,t]&&Nze[WW4,c,a,b,t]&&Nze[WW3,c,a,b,t]&&Nze[WW2,c,a,b,t]&&Npo[-WW1,c,a,b,t],Print2["n, f","  (row 48)"],

Npo[-μ0,c,a,b,t]&&Npo[𝔻,c,a,b,t]&&Npo[WK,c,a,b,t]&&Npo[-WW4,c,a,b,t]&&centerC4[c,a,b,t],Print2["n, c","  (row 49)"],

Npo[-μ0,c,a,b,t]&&Npo[𝔻,c,a,b,t]&&Npo[WK,c,a,b,t]&&Npo[WW4,c,a,b,t]&&Npo[WV1,c,a,b,t]&&Npo[-WW1,c,a,b,t]&&centerC4[c,a,b,t],Print2["f, c","  (row 50)"],

Npo[-μ0,c,a,b,t]&&Npo[𝔻,c,a,b,t]&&Npo[WK,c,a,b,t]&&Npo[WW4,c,a,b,t]&&Npo[-WV1,c,a,b,t]&&Npo[-WV2,c,a,b,t]&&centerC4[c,a,b,t],Print2["f, c","  (row 51)"],

Npo[-μ0,c,a,b,t]&&Npo[𝔻,c,a,b,t]&&Npo[WK,c,a,b,t]&&Npo[WW4,c,a,b,t]&&Nze[WV1,c,a,b,t]&&Nnze[WV3,c,a,b,t]&&Npo[-WW1,c,a,b,t]&&centerC4[c,a,b,t],Print2["f, c","  (row 52)"],

Npo[-μ0,c,a,b,t]&&Npo[𝔻,c,a,b,t]&&Npo[WK,c,a,b,t]&&Npo[WW4,c,a,b,t]&&Npo[WV1,c,a,b,t]&&Npo[-WW1,c,a,b,t]&&centerC6[c,a,b,t],Print2["c, c","  (row 53)"],

Npo[-μ0,c,a,b,t]&&Npo[𝔻,c,a,b,t]&&Npo[WK,c,a,b,t]&&Nze[WW4,c,a,b,t]&&Nze[WW3,c,a,b,t]&&Npo[WV2,c,a,b,t]&&Npo[WV4,c,a,b,t]&&Npo[-WW1,c,a,b,t]&&centerC6[c,a,b,t],Print2["c, c","  (row 54)"],

Npo[-μ0,c,a,b,t]&&Npo[𝔻,c,a,b,t]&&Npo[WK,c,a,b,t]&&Nnze[WH1,c,a,b,t]&&Npo[-WW1,c,a,b,t]&&Nze[WW10,c,a,b,t]&&condD2[c,a,b,t]&&centerC6[c,a,b,t],Print2["c, c","  (row 55)"],

Npo[-μ0,c,a,b,t]&&Npo[𝔻,c,a,b,t]&&Npo[WK,c,a,b,t]&&Npo[WW4,c,a,b,t]&&Npo[WV1,c,a,b,t]&&Npo[-WW1,c,a,b,t]&&¬centerC4[c,a,b,t]&&¬centerC6[c,a,b,t],Print2["f, f","  (row 56)"],

Npo[-μ0,c,a,b,t]&&Npo[𝔻,c,a,b,t]&&Npo[WK,c,a,b,t]&&Npo[WW4,c,a,b,t]&&Npo[-WV1,c,a,b,t]&&Npo[-WV2,c,a,b,t]&&¬centerC4[c,a,b,t],Print2["f, f","  (row 57)"],

Npo[-μ0,c,a,b,t]&&Npo[𝔻,c,a,b,t]&&Npo[WK,c,a,b,t]&&Npo[WW4,c,a,b,t]&&Nze[WV1,c,a,b,t]&&Nnze[WV3,c,a,b,t]&&Npo[-WW1,c,a,b,t]&&¬centerC4[c,a,b,t]&&¬condD1[c,a,b,t],Print2["f, f","  (row 58)"],

Npo[-μ0,c,a,b,t]&&Npo[𝔻,c,a,b,t]&&Npo[WK,c,a,b,t]&&Npo[WW4,c,a,b,t]&&Nze[WV1,c,a,b,t]&&Nze[WV3,c,a,b,t]&&Npo[-WV2,c,a,b,t],Print2["f, f","  (row 59)"],

Npo[-μ0,c,a,b,t]&&Npo[𝔻,c,a,b,t]&&Npo[WK,c,a,b,t]&&Nze[WW4,c,a,b,t]&&Nze[WW3,c,a,b,t]&&Npo[WW2,c,a,b,t]&&Npo[WV4,c,a,b,t]&&Npo[-WW1,c,a,b,t]&&¬centerC6[c,a,b,t],Print2["f, f","  (row 60)"],

Npo[-μ0,c,a,b,t]&&Npo[𝔻,c,a,b,t]&&Npo[WK,c,a,b,t]&&Nnze[WH1,c,a,b,t]&&Npo[-WW10,c,a,b,t]&&condD1[c,a,b,t],Print2["f, f","  (row 61a)"],

Npo[-μ0,c,a,b,t]&&Npo[𝔻,c,a,b,t]&&Npo[WK,c,a,b,t]&&Nnze[WH1,c,a,b,t]&&Nze[WW10,c,a,b,t]&&condD1[c,a,b,t],Print2["f, f","  (row 61b)"],

Npo[-μ0,c,a,b,t]&&Npo[𝔻,c,a,b,t]&&Npo[WK,c,a,b,t]&&Nze[WH1,c,a,b,t]&&Npo[-WH4 WH5,c,a,b,t]&&condD1[c,a,b,t],Print2["f, f","  (row 62)"],

Npo[-μ0,c,a,b,t]&&Npo[𝔻,c,a,b,t]&&Npo[WK,c,a,b,t]&&Nze[WH1,c,a,b,t]&&Nze[WH4,c,a,b,t]&&Npo[-WH2,c,a,b,t]&&condD1[c,a,b,t],Print2["f, f","  (row 63)"],

Npo[-μ0,c,a,b,t]&&Npo[𝔻,c,a,b,t]&&Npo[WK,c,a,b,t]&&Nnze[WH1,c,a,b,t]&&Npo[-WW1,c,a,b,t]&&Npo[-WW10,c,a,b,t]&&condD2[c,a,b,t] && ¬centerC6[c,a,b,t],Print2["f, f","  (row 64)"],

Npo[-μ0,c,a,b,t]&&Npo[𝔻,c,a,b,t]&&Npo[WK,c,a,b,t]&&Nze[WH1,c,a,b,t]&&Npo[-WH4 WH5,c,a,b,t]&&Npo[-WW1,c,a,b,t]&&condD2[c,a,b,t],Print2["f, f","  (row 65)"],

Nnze[-μ0,c,a,b,t]&&Npo[-𝔻,c,a,b,t]&&¬(Npo[ℝ,c,a,b,t]&&Npo[𝕊,c,a,b,t]),Print2["four simple complex singular points","  (row 65 bis)"],

Npo[-μ0,c,a,b,t]&&Nze[𝔻,c,a,b,t]&&Npo[-𝕋,c,a,b,t]&&Npo[WK,c,a,b,t]&&Nnze[WE1,c,a,b,t]&&Npo[WW4,c,a,b,t]&&Npo[WW2,c,a,b,t]&&Npo[WW1 WW3,c,a,b,t],Print2["n, n, (Subscript[(OverBar[sn]), (2)])","  (row 66)"],

Npo[-μ0,c,a,b,t]&&Nze[𝔻,c,a,b,t]&&Npo[-𝕋,c,a,b,t]&&Npo[WK,c,a,b,t]&&Nnze[WE1,c,a,b,t]&&Nze[WW4,c,a,b,t]&&Npo[WW3,c,a,b,t],Print2["n, n, (Subscript[(OverBar[sn]), (2)])","  (row 67a)"],

Npo[-μ0,c,a,b,t]&&Nze[𝔻,c,a,b,t]&&Npo[-𝕋,c,a,b,t]&&Npo[WK,c,a,b,t]&&Nnze[WE1,c,a,b,t]&&Nze[WW4,c,a,b,t]&&Nze[WW3,c,a,b,t],Print2["n, n, (Subscript[(OverBar[sn]), (2)])","  (row 67b)"],

Npo[-μ0,c,a,b,t]&&Nze[𝔻,c,a,b,t]&&Npo[-𝕋,c,a,b,t]&&Npo[WK,c,a,b,t]&&Nnze[WE1,c,a,b,t]&&Npo[-WW4,c,a,b,t],Print2["n, f, (Subscript[(OverBar[sn]), (2)])","  (row 68)"],

Npo[-μ0,c,a,b,t]&&Nze[𝔻,c,a,b,t]&&Npo[-𝕋,c,a,b,t]&&Npo[WK,c,a,b,t]&&Nnze[WE1,c,a,b,t]&&Nze[WW4,c,a,b,t]&&Npo[-WW3,c,a,b,t]&&¬centerC1[c,a,b,t],Print2["n, f, (Subscript[(OverBar[sn]), (2)])","  (row 69)"],

Npo[-μ0,c,a,b,t]&&Nze[𝔻,c,a,b,t]&&Npo[-𝕋,c,a,b,t]&&Npo[WK,c,a,b,t]&&Nnze[WE1,c,a,b,t]&&Nze[WW4,c,a,b,t]&&Npo[-WW3,c,a,b,t]&&centerC1[c,a,b,t],Print2["n, c, (Subscript[(OverBar[sn]), (2)])","  (row 70)"],

Npo[-μ0,c,a,b,t]&&Nze[𝔻,c,a,b,t]&&Npo[-𝕋,c,a,b,t]&&Npo[WK,c,a,b,t]&&Nnze[WE1,c,a,b,t]&&Npo[WW4,c,a,b,t]&&Npo[WW2,c,a,b,t]&&Npo[-WW1 WW3,c,a,b,t],Print2["f, f, (Subscript[(OverBar[sn]), (2)])","  (row 71a)"],

Npo[-μ0,c,a,b,t]&&Nze[𝔻,c,a,b,t]&&Npo[-𝕋,c,a,b,t]&&Npo[WK,c,a,b,t]&&Nnze[WE1,c,a,b,t]&&Npo[WW4,c,a,b,t]&&Nze[WW2,c,a,b,t]&&Npo[-WW1 WW3,c,a,b,t],Print2["f, f, (Subscript[(OverBar[sn]), (2)])","  (row 71b)"],

Npo[-μ0,c,a,b,t]&&Nze[𝔻,c,a,b,t]&&Npo[-𝕋,c,a,b,t]&&Npo[WK,c,a,b,t]&&Nnze[WE1,c,a,b,t]&&Npo[WW4,c,a,b,t]&&Npo[-WW2,c,a,b,t],Print2["f, f, (Subscript[(OverBar[sn]), (2)])","  (row 72)"],

Npo[-μ0,c,a,b,t]&&Nze[𝔻,c,a,b,t]&&Npo[-𝕋,c,a,b,t]&&Npo[WK,c,a,b,t]&&Nze[WE1,c,a,b,t]&&Npo[WW2,c,a,b,t],Print2["n, n, (Subscript[(OverHat[cp]), (2)])","  (row 73a)"],

Npo[-μ0,c,a,b,t]&&Nze[𝔻,c,a,b,t]&&Npo[-𝕋,c,a,b,t]&&Npo[WK,c,a,b,t]&&Nze[WE1,c,a,b,t]&&Nze[WW2,c,a,b,t],Print2["n, n, (Subscript[(OverHat[cp]), (2)])","  (row 73b)"],

Npo[-μ0,c,a,b,t]&&Nze[𝔻,c,a,b,t]&&Npo[-𝕋,c,a,b,t]&&Npo[WK,c,a,b,t]&&Nze[WE1,c,a,b,t]&&Npo[-WW2,c,a,b,t],Print2["n, f, (Subscript[(OverHat[cp]), (2)])","  (row 74)"],

Npo[μ0,c,a,b,t]&&Nze[𝔻,c,a,b,t]&&Npo[-𝕋,c,a,b,t]&&Nnze[WE1,c,a,b,t]&&Npo[WW4,c,a,b,t],Print2["s, n, (Subscript[(OverBar[sn]), (2)])","  (row 75a)"],

Npo[μ0,c,a,b,t]&&Nze[𝔻,c,a,b,t]&&Npo[-𝕋,c,a,b,t]&&Nnze[WE1,c,a,b,t]&&Nze[WW4,c,a,b,t],Print2["s, n, (Subscript[(OverBar[sn]), (2)])","  (row 75b)"],

Npo[μ0,c,a,b,t]&&Nze[𝔻,c,a,b,t]&&Npo[-𝕋,c,a,b,t]&&Nnze[WE1,c,a,b,t]&&Npo[-WW4,c,a,b,t],Print2["s, f, (Subscript[(OverBar[sn]), (2)])","  (row 76)"],

Npo[μ0,c,a,b,t]&&Nze[𝔻,c,a,b,t]&&Npo[-𝕋,c,a,b,t]&&Nze[WE1,c,a,b,t]&&Npo[WW2,c,a,b,t],Print2["s, n, (Subscript[(OverHat[cp]), (2)])","  (row 77a)"],

Npo[μ0,c,a,b,t]&&Nze[𝔻,c,a,b,t]&&Npo[-𝕋,c,a,b,t]&&Nze[WE1,c,a,b,t]&&Nze[WW2,c,a,b,t],Print2["s, n, (Subscript[(OverHat[cp]), (2)])","  (row 77b)"],

Npo[μ0,c,a,b,t]&&Nze[𝔻,c,a,b,t]&&Npo[-𝕋,c,a,b,t]&&Nze[WE1,c,a,b,t]&&Npo[-WW2,c,a,b,t]&&¬centerC7[c,a,b,t],Print2["s, f, (Subscript[(OverHat[cp]), (2)])","  (row 78)"],

Npo[μ0,c,a,b,t]&&Nze[𝔻,c,a,b,t]&&Npo[-𝕋,c,a,b,t]&&Nze[WE1,c,a,b,t]&&Npo[-WW2,c,a,b,t]&&centerC7[c,a,b,t],Print2["s, c, (Subscript[(OverHat[cp]), (2)])","  (row 79)"],

Npo[-μ0,c,a,b,t]&&Nze[𝔻,c,a,b,t]&&Npo[-𝕋,c,a,b,t]&&Npo[-WK,c,a,b,t]&&Nnze[WE1,c,a,b,t],Print2["s, s, (Subscript[(OverBar[sn]), (2)])","  (row 80)"],

Npo[-μ0,c,a,b,t]&&Nze[𝔻,c,a,b,t]&&Npo[-𝕋,c,a,b,t]&&Npo[-WK,c,a,b,t]&&Nze[WE1,c,a,b,t],Print2["s, s, (Subscript[(OverHat[cp]), (2)])","  (row 81)"],

Nnze[μ0,c,a,b,t]&&Nze[𝔻,c,a,b,t]&&Npo[𝕋,c,a,b,t]&&Nnze[WE1,c,a,b,t],Print2[" (Subscript[(OverBar[sn]), (2)])","  (row 82)"],

Nnze[μ0,c,a,b,t]&&Nze[𝔻,c,a,b,t]&&Npo[𝕋,c,a,b,t]&&Nze[WE1,c,a,b,t],Print2[" (Subscript[(OverHat[cp]), (2)])","  (row 83)"],

Nnze[μ0,c,a,b,t]&&Nze[𝔻,c,a,b,t]&&Nze[𝕋,c,a,b,t]&&Npo[ℙ ℝ,c,a,b,t]&&Nnze[WG01,c,a,b,t],Print2["(Subscript[(OverBar[sn]), (2)]), (Subscript[(OverBar[sn]), (2)])","  (row 84)"],

Nnze[μ0,c,a,b,t]&&Nze[𝔻,c,a,b,t]&&Nze[𝕋,c,a,b,t]&&Npo[ℙ ℝ,c,a,b,t]&&Nze[WG01,c,a,b,t]&&Nnze[WE1,c,a,b,t],Print2["(Subscript[(OverBar[sn]), (2)]), (Subscript[(OverHat[cp]), (2)])","  (row 85)"],

Nnze[μ0,c,a,b,t]&&Nze[𝔻,c,a,b,t]&&Nze[𝕋,c,a,b,t]&&Npo[ℙ ℝ,c,a,b,t]&&Nze[WG01,c,a,b,t]&&Nze[WE1,c,a,b,t],Print2["(Subscript[(OverHat[cp]), (2)]), (Subscript[(OverHat[cp]), (2)])","  (row 86)"],

Nnze[μ0,c,a,b,t]&&Nze[𝔻,c,a,b,t]&&Nze[𝕋,c,a,b,t]&&Npo[-ℙ ℝ,c,a,b,t],Print2["two double complez singular points","  (row 86 bis)"],

Npo[μ0,c,a,b,t]&&Nze[𝔻,c,a,b,t]&&Nze[𝕋,c,a,b,t]&&Nze[ℙ,c,a,b,t]&&Nnze[ℝ,c,a,b,t]&&Npo[-WE3,c,a,b,t]&&Nnze[WG10,c,a,b,t],Print2["(Subscript[(OverBar[n]), (3)]), s","  (row 87)"],

Npo[μ0,c,a,b,t]&&Nze[𝔻,c,a,b,t]&&Nze[𝕋,c,a,b,t]&&Nze[ℙ,c,a,b,t]&&Nnze[ℝ,c,a,b,t]&&Npo[-WE3,c,a,b,t]&&Nze[WG10,c,a,b,t],Print2["(Subscript[(OverHat[es]), (3)]), s","  (row 88)"],

Npo[μ0,c,a,b,t]&&Nze[𝔻,c,a,b,t]&&Nze[𝕋,c,a,b,t]&&Nze[ℙ,c,a,b,t]&&Nnze[ℝ,c,a,b,t]&&Npo[WE3,c,a,b,t]&&Nnze[WG10,c,a,b,t]&&Npo[WW4,c,a,b,t],Print2["(Subscript[(OverBar[s]), (3)]),   n","  (row 89a)"],

Npo[μ0,c,a,b,t]&&Nze[𝔻,c,a,b,t]&&Nze[𝕋,c,a,b,t]&&Nze[ℙ,c,a,b,t]&&Nnze[ℝ,c,a,b,t]&&Npo[WE3,c,a,b,t]&&Nnze[WG10,c,a,b,t]&&Nze[WW4,c,a,b,t],Print2["(Subscript[(OverBar[s]), (3)]), n","  (row 89b)"],

Npo[μ0,c,a,b,t]&&Nze[𝔻,c,a,b,t]&&Nze[𝕋,c,a,b,t]&&Nze[ℙ,c,a,b,t]&&Nnze[ℝ,c,a,b,t]&&Npo[WE3,c,a,b,t]&&Nze[WG10,c,a,b,t]&&Npo[WW1,c,a,b,t],Print2["(Subscript[(OverBar[s]), (3)]), n","  (row 90a)"],

Npo[μ0,c,a,b,t]&&Nze[𝔻,c,a,b,t]&&Nze[𝕋,c,a,b,t]&&Nze[ℙ,c,a,b,t]&&Nnze[ℝ,c,a,b,t]&&Npo[WE3,c,a,b,t]&&Nze[WG10,c,a,b,t]&&Nze[WW1,c,a,b,t],Print2["(Subscript[(OverBar[s]), (3)]), n","  (row 90b)"],

Npo[μ0,c,a,b,t]&&Nze[𝔻,c,a,b,t]&&Nze[𝕋,c,a,b,t]&&Nze[ℙ,c,a,b,t]&&Nnze[ℝ,c,a,b,t]&&Npo[WE3,c,a,b,t]&&Nnze[WG10,c,a,b,t]&&Npo[-WW4,c,a,b,t],Print2["(Subscript[(OverBar[s]), (3)]), f","  (row 91)"],

Npo[μ0,c,a,b,t]&&Nze[𝔻,c,a,b,t]&&Nze[𝕋,c,a,b,t]&&Nze[ℙ,c,a,b,t]&&Nnze[ℝ,c,a,b,t]&&Npo[WE3,c,a,b,t]&&Nze[WG10,c,a,b,t]&&Npo[-WW1,c,a,b,t]&&¬centerC8[c,a,b,t]&&¬centerC9[c,a,b,t],Print2["(Subscript[(OverBar[s]), (3)]), f","  (row 92)"],

Npo[μ0,c,a,b,t]&&Nze[𝔻,c,a,b,t]&&Nze[𝕋,c,a,b,t]&&Nze[ℙ,c,a,b,t]&&Nnze[ℝ,c,a,b,t]&&Npo[WE3,c,a,b,t]&&Nze[WG10,c,a,b,t]&&Npo[-WW1,c,a,b,t]&&centerC8[c,a,b,t],Print2["(Subscript[(OverBar[s]), (3)]), c","  (row 93a)"],

Npo[μ0,c,a,b,t]&&Nze[𝔻,c,a,b,t]&&Nze[𝕋,c,a,b,t]&&Nze[ℙ,c,a,b,t]&&Nnze[ℝ,c,a,b,t]&&Npo[WE3,c,a,b,t]&&Nze[WG10,c,a,b,t]&&Npo[-WW1,c,a,b,t]&&centerC9[c,a,b,t],Print2["(Subscript[(OverBar[s]), (3)]), c","  (row 93b)"],

Npo[-μ0,c,a,b,t]&&Nze[𝔻,c,a,b,t]&&Nze[𝕋,c,a,b,t]&&Nze[ℙ,c,a,b,t]&&Nnze[ℝ,c,a,b,t]&&Npo[WE3,c,a,b,t],Print2["(Subscript[(OverBar[s]), (3)]), s","  (row 94)"],

Npo[-μ0,c,a,b,t]&&Nze[𝔻,c,a,b,t]&&Nze[𝕋,c,a,b,t]&&Nze[ℙ,c,a,b,t]&&Nnze[ℝ,c,a,b,t]&&Npo[-WE3,c,a,b,t]&&Nnze[WW10,c,a,b,t]&&Npo[WW4,c,a,b,t],Print2["(Subscript[(OverBar[n]), (3)]), n","  (row 95a)"],

Npo[-μ0,c,a,b,t]&&Nze[𝔻,c,a,b,t]&&Nze[𝕋,c,a,b,t]&&Nze[ℙ,c,a,b,t]&&Nnze[ℝ,c,a,b,t]&&Npo[-WE3,c,a,b,t]&&Nnze[WW10,c,a,b,t]&&Nze[WW4,c,a,b,t],Print2["(Subscript[(OverBar[n]), (3)]), n","  (row 95b)"],

Npo[-μ0,c,a,b,t]&&Nze[𝔻,c,a,b,t]&&Nze[𝕋,c,a,b,t]&&Nze[ℙ,c,a,b,t]&&Nnze[ℝ,c,a,b,t]&&Npo[-WE3,c,a,b,t]&&Nnze[WW10,c,a,b,t]&&Npo[-WW4,c,a,b,t],Print2["(Subscript[(OverBar[n]), (3)]), f","  (row 96)"],

Npo[-μ0,c,a,b,t]&&Nze[𝔻,c,a,b,t]&&Nze[𝕋,c,a,b,t]&&Nze[ℙ,c,a,b,t]&&Nnze[ℝ,c,a,b,t]&&Npo[-WE3,c,a,b,t]&&Nze[WW10,c,a,b,t]&&Npo[WW1,c,a,b,t],Print2["(Subscript[(OverHat[es]), (3)]), n","  (row 97a)"],

Npo[-μ0,c,a,b,t]&&Nze[𝔻,c,a,b,t]&&Nze[𝕋,c,a,b,t]&&Nze[ℙ,c,a,b,t]&&Nnze[ℝ,c,a,b,t]&&Npo[-WE3,c,a,b,t]&&Nze[WW10,c,a,b,t]&&Nze[WW1,c,a,b,t],Print2["(Subscript[(OverHat[es]), (3)]), n","  (row 97b)"],

Npo[-μ0,c,a,b,t]&&Nze[𝔻,c,a,b,t]&&Nze[𝕋,c,a,b,t]&&Nze[ℙ,c,a,b,t]&&Nnze[ℝ,c,a,b,t]&&Npo[-WE3,c,a,b,t]&&Nze[WW10,c,a,b,t]&&Npo[-WW1,c,a,b,t]&&¬centerC8[c,a,b,t],Print2["(Subscript[(OverHat[es]), (3)]), f","  (row 98)"],

Npo[-μ0,c,a,b,t]&&Nze[𝔻,c,a,b,t]&&Nze[𝕋,c,a,b,t]&&Nze[ℙ,c,a,b,t]&&Nnze[ℝ,c,a,b,t]&&Npo[-WE3,c,a,b,t]&&Nze[WW10,c,a,b,t]&&Npo[-WW1,c,a,b,t]&&centerC8[c,a,b,t],Print2["(Subscript[(OverHat[es]), (3)]), c","  (row 99)"],

Nnze[-μ0,c,a,b,t]&&Nze[𝔻,c,a,b,t]&&Nze[𝕋,c,a,b,t]&&Nze[ℙ,c,a,b,t]&&Nze[ℝ,c,a,b,t]&&Nnze[WF1,c,a,b,t]&&Nnze[𝔗4,c,a,b,t],Print2["(Subscript[(OverBar[sn]), (4)])","  (row 100a)"],

Nnze[-μ0,c,a,b,t]&&Nze[𝔻,c,a,b,t]&&Nze[𝕋,c,a,b,t]&&Nze[ℙ,c,a,b,t]&&Nze[ℝ,c,a,b,t]&&Nnze[WF1,c,a,b,t]&&Nze[𝔗4,c,a,b,t],Print2["(Subscript[(OverHat[sn]), (4)])","  (row 100b)"],

Npo[μ0,c,a,b,t]&&Nze[𝔻,c,a,b,t]&&Nze[𝕋,c,a,b,t]&&Nze[ℙ,c,a,b,t]&&Nze[ℝ,c,a,b,t]&&Npo[η,c,a,b,t]&&Nze[WF1,c,a,b,t],Print2["(Subscript[hpphpp, (4)])","  (row 101)"],

Npo[μ0,c,a,b,t]&&Nze[𝔻,c,a,b,t]&&Nze[𝕋,c,a,b,t]&&Nze[ℙ,c,a,b,t]&&Nze[ℝ,c,a,b,t]&&Nze[η,c,a,b,t]&&Nze[WF1,c,a,b,t]&&Nnze[WM,c,a,b,t],Print2["(Subscript[hphp, (4)])","  (row 102)"],

Npo[μ0,c,a,b,t]&&Nze[𝔻,c,a,b,t]&&Nze[𝕋,c,a,b,t]&&Nze[ℙ,c,a,b,t]&&Nze[ℝ,c,a,b,t]&&Nze[η,c,a,b,t]&&Nze[WF1,c,a,b,t]&&Nze[WM,c,a,b,t],Print2["(Subscript[hh, (4)])","  (row 103)"],

Npo[μ0,c,a,b,t]&&Nze[𝔻,c,a,b,t]&&Nze[𝕋,c,a,b,t]&&Nze[ℙ,c,a,b,t]&&Nze[ℝ,c,a,b,t]&&Npo[-η,c,a,b,t]&&Nze[WF1,c,a,b,t],Print2["(Subscript[hh, (4)])","  (row 104)"],

Npo[-μ0,c,a,b,t]&&Nze[𝔻,c,a,b,t]&&Nze[𝕋,c,a,b,t]&&Nze[ℙ,c,a,b,t]&&Nze[ℝ,c,a,b,t]&&Npo[η,c,a,b,t]&&Npo[κ,c,a,b,t]&&Nze[WF1,c,a,b,t],Print2["(Subscript[hhhhhh, (4)])","  (row 105)"],

Npo[-μ0,c,a,b,t]&&Nze[𝔻,c,a,b,t]&&Nze[𝕋,c,a,b,t]&&Nze[ℙ,c,a,b,t]&&Nze[ℝ,c,a,b,t]&&Npo[η,c,a,b,t]&&Npo[-κ,c,a,b,t]&&Nze[WF1,c,a,b,t],Print2["(Subscript[peppep, (4)])","  (row 106)"],

Npo[-μ0,c,a,b,t]&&Nze[𝔻,c,a,b,t]&&Nze[𝕋,c,a,b,t]&&Nze[ℙ,c,a,b,t]&&Nze[ℝ,c,a,b,t]&&Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[WF1,c,a,b,t],Print2["(Subscript[pepe, (4)])","  (row 107)"],

Npo[-μ0,c,a,b,t]&&Nze[𝔻,c,a,b,t]&&Nze[𝕋,c,a,b,t]&&Nze[ℙ,c,a,b,t]&&Nze[ℝ,c,a,b,t]&&Nze[η,c,a,b,t]&&Nze[WM,c,a,b,t]&&Nze[WF1,c,a,b,t],Print2["(Subscript[ee, (4)])","  (row 108)"],

Npo[-μ0,c,a,b,t]&&Nze[𝔻,c,a,b,t]&&Nze[𝕋,c,a,b,t]&&Nze[ℙ,c,a,b,t]&&Nze[ℝ,c,a,b,t]&&Npo[-η,c,a,b,t]&&Nze[WF1,c,a,b,t],Print2["(Subscript[ee, (4)])","  (row 109)"],

Nze[μ0,c,a,b,t]&&Npo[-𝔻,c,a,b,t]&&Nnze[ℝ,c,a,b,t]&&Npo[-WK,c,a,b,t]&&Nnze[WG09,c,a,b,t]&&Npo[WW4,c,a,b,t],Print2["s, s, n","  (row 110a)"],

Nze[μ0,c,a,b,t]&&Npo[-𝔻,c,a,b,t]&&Nnze[ℝ,c,a,b,t]&&Npo[-WK,c,a,b,t]&&Nnze[WG09,c,a,b,t]&&Nze[WW4,c,a,b,t],Print2["s, s, n","  (row 110b)"],

Nze[μ0,c,a,b,t]&&Npo[-𝔻,c,a,b,t]&&Nnze[ℝ,c,a,b,t]&&Npo[-WK,c,a,b,t]&&Nze[WG09,c,a,b,t]&&Npo[WW7,c,a,b,t],Print2["s, s, n","  (row 111a)"],

Nze[μ0,c,a,b,t]&&Npo[-𝔻,c,a,b,t]&&Nnze[ℝ,c,a,b,t]&&Npo[-WK,c,a,b,t]&&Nze[WG09,c,a,b,t]&&Nze[WW7,c,a,b,t],Print2["s, s, n","  (row 111b)"],

Nze[μ0,c,a,b,t]&&Npo[-𝔻,c,a,b,t]&&Nnze[ℝ,c,a,b,t]&&Npo[-WK,c,a,b,t]&&Nnze[WG09,c,a,b,t]&&Npo[-WW4,c,a,b,t],Print2["s, s, f","  (row 112)"],

Nze[μ0,c,a,b,t]&&Npo[-𝔻,c,a,b,t]&&Nnze[ℝ,c,a,b,t]&&Npo[-WK,c,a,b,t]&&Nze[WG09,c,a,b,t]&&Npo[-WW7,c,a,b,t]&& ¬centerC10[c,a,b,t],Print2["s, s, f","  (row 113)"],

Nze[μ0,c,a,b,t]&&Npo[-𝔻,c,a,b,t]&&Nnze[ℝ,c,a,b,t]&&Npo[-WK,c,a,b,t]&&Nze[WG09,c,a,b,t]&&Npo[-WW7,c,a,b,t]&& centerC10[c,a,b,t],Print2["s, s, c","  (row 114)"],

Nze[μ0,c,a,b,t]&&Npo[-𝔻,c,a,b,t]&&Nnze[ℝ,c,a,b,t]&&Npo[WK,c,a,b,t]&&Nnze[WG09,c,a,b,t]&&Npo[WW4,c,a,b,t]&&Npo[WW3,c,a,b,t]&&Npo[WW2,c,a,b,t],Print2["s, n, n","  (row 115)"],

Nze[μ0,c,a,b,t]&&Npo[-𝔻,c,a,b,t]&&Nnze[ℝ,c,a,b,t]&&Npo[WK,c,a,b,t]&&Nnze[WG09,c,a,b,t]&&Nze[WW4,c,a,b,t]&&Npo[WW3,c,a,b,t],Print2["s, n, n","  (row 116a)"],

Nze[μ0,c,a,b,t]&&Npo[-𝔻,c,a,b,t]&&Nnze[ℝ,c,a,b,t]&&Npo[WK,c,a,b,t]&&Nnze[WG09,c,a,b,t]&&Nze[WW4,c,a,b,t]&&Nze[WW3,c,a,b,t],Print2["s, n, n","  (row 116b)"],

Nze[μ0,c,a,b,t]&&Npo[-𝔻,c,a,b,t]&&Nnze[ℝ,c,a,b,t]&&Npo[WK,c,a,b,t]&&Nze[WG09,c,a,b,t]&&Npo[WW7,c,a,b,t],Print2["s, n, n","  (row 117a)"],

Nze[μ0,c,a,b,t]&&Npo[-𝔻,c,a,b,t]&&Nnze[ℝ,c,a,b,t]&&Npo[WK,c,a,b,t]&&Nze[WG09,c,a,b,t]&&Nze[WW7,c,a,b,t],Print2["s, n, n","  (row 117b)"],

Nze[μ0,c,a,b,t]&&Npo[-𝔻,c,a,b,t]&&Nnze[ℝ,c,a,b,t]&&Npo[WK,c,a,b,t]&&Nnze[WG09,c,a,b,t]&&Npo[-WW4,c,a,b,t],Print2["s, n, f","  (row 118)"],

Nze[μ0,c,a,b,t]&&Npo[-𝔻,c,a,b,t]&&Nnze[ℝ,c,a,b,t]&&Npo[WK,c,a,b,t]&&Nnze[WG09,c,a,b,t]&&Nze[WW4,c,a,b,t]&&
Npo[-WW3,c,a,b,t],Print2["s, n, f","  (row 119)"],

Nze[μ0,c,a,b,t]&&Npo[-𝔻,c,a,b,t]&&Nnze[ℝ,c,a,b,t]&&Npo[WK,c,a,b,t]&&Nze[WG09,c,a,b,t]&&Npo[-WW7,c,a,b,t],Print2["s, n, f","  (row 120)"],

Nze[μ0,c,a,b,t]&&Npo[-𝔻,c,a,b,t]&&Nnze[ℝ,c,a,b,t]&&Npo[WK,c,a,b,t]&&Nnze[WG09,c,a,b,t]&&Npo[WW4,c,a,b,t]&&
Npo[-WW3,c,a,b,t],Print2["s, f, f","  (row 121)"],

Nze[μ0,c,a,b,t]&&Npo[-𝔻,c,a,b,t]&&Nnze[ℝ,c,a,b,t]&&Npo[WK,c,a,b,t]&&Nnze[WG09,c,a,b,t]&&Npo[WW4,c,a,b,t]&&
Npo[WW3,c,a,b,t]&& Npo[-WW2,c,a,b,t],Print2["s, f, f","  (row 122a)"],

Nze[μ0,c,a,b,t]&&Npo[-𝔻,c,a,b,t]&&Nnze[ℝ,c,a,b,t]&&Npo[WK,c,a,b,t]&&Nnze[WG09,c,a,b,t]&&Npo[WW4,c,a,b,t]&&
Nze[WW3,c,a,b,t]&& Npo[-WW2,c,a,b,t],Print2["s, f, f","  (row 122b)"],

Nze[μ0,c,a,b,t]&&Npo[𝔻,c,a,b,t]&&Nnze[ℝ,c,a,b,t]&&Npo[-WK,c,a,b,t],Print2["s","  (row 123)"],

Nze[μ0,c,a,b,t]&&Npo[𝔻,c,a,b,t]&&Nnze[ℝ,c,a,b,t]&&Npo[WK,c,a,b,t]&&Nnze[WG09,c,a,b,t]&&Npo[WW4,c,a,b,t],Print2["n","  (row 124)"],

Nze[μ0,c,a,b,t]&&Npo[𝔻,c,a,b,t]&&Nnze[ℝ,c,a,b,t]&&Npo[WK,c,a,b,t]&&Nnze[WG09,c,a,b,t]&&Nze[WW4,c,a,b,t]&&Nnze[WW3,c,a,b,t],Print2["n","  (row 125)"],

Nze[μ0,c,a,b,t]&&Npo[𝔻,c,a,b,t]&&Nnze[ℝ,c,a,b,t]&&Npo[WK,c,a,b,t]&&Nnze[WG09,c,a,b,t]&&Nze[WW4,c,a,b,t]&&Nze[WW3,c,a,b,t]&&Npo[WW2,c,a,b,t],Print2["n","  (row 126a)"],

Nze[μ0,c,a,b,t]&&Npo[𝔻,c,a,b,t]&&Nnze[ℝ,c,a,b,t]&&Npo[WK,c,a,b,t]&&Nnze[WG09,c,a,b,t]&&Nze[WW4,c,a,b,t]&&Nze[WW3,c,a,b,t]&&Nze[WW2,c,a,b,t],Print2["n","  (row 126b)"],

Nze[μ0,c,a,b,t]&&Npo[𝔻,c,a,b,t]&&Nnze[ℝ,c,a,b,t]&&Npo[WK,c,a,b,t]&&Nze[WG09,c,a,b,t]&&Npo[WW7,c,a,b,t],Print2["n","  (row 127)"],

Nze[μ0,c,a,b,t]&&Npo[𝔻,c,a,b,t]&&Nnze[ℝ,c,a,b,t]&&Npo[WK,c,a,b,t]&&Nze[WG09,c,a,b,t]&&Nze[WW7,c,a,b,t]&&Nnze[WW6,c,a,b,t],Print2["n","  (row 128)"],

Nze[μ0,c,a,b,t]&&Npo[𝔻,c,a,b,t]&&Nnze[ℝ,c,a,b,t]&&Npo[WK,c,a,b,t]&&Nze[WG09,c,a,b,t]&&Nze[WW7,c,a,b,t]&&Nze[WW6,c,a,b,t]&&Npo[WW5,c,a,b,t],Print2["n","  (row 129a)"],

Nze[μ0,c,a,b,t]&&Npo[𝔻,c,a,b,t]&&Nnze[ℝ,c,a,b,t]&&Npo[WK,c,a,b,t]&&Nze[WG09,c,a,b,t]&&Nze[WW7,c,a,b,t]&&Nze[WW6,c,a,b,t]&&Nze[WW5,c,a,b,t],Print2["n","  (row 129b)"],

Nze[μ0,c,a,b,t]&&Npo[𝔻,c,a,b,t]&&Nnze[ℝ,c,a,b,t]&&Npo[WK,c,a,b,t]&&Nnze[WG09,c,a,b,t]&&Npo[-WW4,c,a,b,t],Print2["f","  (row 130)"],

Nze[μ0,c,a,b,t]&&Npo[𝔻,c,a,b,t]&&Nnze[ℝ,c,a,b,t]&&Npo[WK,c,a,b,t]&&Nnze[WG09,c,a,b,t]&&Nze[WW4,c,a,b,t]&&Nze[WW3,c,a,b,t]&&Npo[-WW2,c,a,b,t],Print2["f","  (row 131)"],

Nze[μ0,c,a,b,t]&&Npo[𝔻,c,a,b,t]&&Nnze[ℝ,c,a,b,t]&&Npo[WK,c,a,b,t]&&Nze[WG09,c,a,b,t]&&Npo[-WW7,c,a,b,t]&&¬centerC11[c,a,b,t],Print2["f","  (row 132)"],

Nze[μ0,c,a,b,t]&&Npo[𝔻,c,a,b,t]&&Nnze[ℝ,c,a,b,t]&&Npo[WK,c,a,b,t]&&Nze[WG09,c,a,b,t]&&Nze[WW7,c,a,b,t]&&Nze[WW6,c,a,b,t]&&Npo[-WW5,c,a,b,t]&&¬centerC11[c,a,b,t],Print2["f","  (row 133)"],

Nze[μ0,c,a,b,t]&&Npo[𝔻,c,a,b,t]&&Nnze[ℝ,c,a,b,t]&&Npo[WK,c,a,b,t]&&Nze[WG09,c,a,b,t]&&Npo[-WW7,c,a,b,t]&&centerC11[c,a,b,t],Print2["c","  (row 134)"],

Nze[μ0,c,a,b,t]&&Npo[𝔻,c,a,b,t]&&Nnze[ℝ,c,a,b,t]&&Npo[WK,c,a,b,t]&&Nze[WG09,c,a,b,t]&&Nze[WW7,c,a,b,t]&&Nze[WW6,c,a,b,t]&&Npo[-WW5,c,a,b,t]&&centerC11[c,a,b,t],Print2["c","  (row 135)"],

Nze[μ0,c,a,b,t]&&Nze[𝔻,c,a,b,t]&&Nnze[ℙ ℝ,c,a,b,t]&&Npo[-WK,c,a,b,t]&&Nnze[WE1,c,a,b,t],Print2["(Subscript[(OverBar[sn]), (2)]),  s","  (row 136)"],

Nze[μ0,c,a,b,t]&&Nze[𝔻,c,a,b,t]&&Nnze[ℙ ℝ,c,a,b,t]&&Npo[-WK,c,a,b,t]&&Nze[WE1,c,a,b,t],Print2["(Subscript[(OverHat[cp]), (2)]),  s","  (row 137)"],

Nze[μ0,c,a,b,t]&&Nze[𝔻,c,a,b,t]&&Nnze[ℙ ℝ,c,a,b,t]&&Npo[WK,c,a,b,t]&&Nnze[WE1,c,a,b,t]&&Nnze[WG09,c,a,b,t]&&Npo[WW4,c,a,b,t],Print2["(Subscript[(OverBar[sn]), (2)]),  n","  (row 138a)"],

Nze[μ0,c,a,b,t]&&Nze[𝔻,c,a,b,t]&&Nnze[ℙ ℝ,c,a,b,t]&&Npo[WK,c,a,b,t]&&Nnze[WE1,c,a,b,t]&&Nnze[WG09,c,a,b,t]&&Nze[WW4,c,a,b,t],Print2["(Subscript[(OverBar[sn]), (2)]),  n","  (row 138b)"],

Nze[μ0,c,a,b,t]&&Nze[𝔻,c,a,b,t]&&Nnze[ℙ ℝ,c,a,b,t]&&Npo[WK,c,a,b,t]&&Nnze[WE1,c,a,b,t]&&Nze[WG09,c,a,b,t]&&Npo[WW7,c,a,b,t],Print2["(Subscript[(OverBar[sn]), (2)]),  n","  (row 139a)"],

Nze[μ0,c,a,b,t]&&Nze[𝔻,c,a,b,t]&&Nnze[ℙ ℝ,c,a,b,t]&&Npo[WK,c,a,b,t]&&Nnze[WE1,c,a,b,t]&&Nze[WG09,c,a,b,t]&&Nze[WW7,c,a,b,t],Print2["(Subscript[(OverBar[sn]), (2)]),  n","  (row 139b)"],

Nze[μ0,c,a,b,t]&&Nze[𝔻,c,a,b,t]&&Nnze[ℙ ℝ,c,a,b,t]&&Npo[WK,c,a,b,t]&&Nnze[WE1,c,a,b,t]&&Nnze[WG09,c,a,b,t]&&Npo[-WW4,c,a,b,t],Print2["(Subscript[(OverBar[sn]), (2)]),  f","  (row 140)"],

Nze[μ0,c,a,b,t]&&Nze[𝔻,c,a,b,t]&&Nnze[ℙ ℝ,c,a,b,t]&&Npo[WK,c,a,b,t]&&Nnze[WE1,c,a,b,t]&&Nze[WG09,c,a,b,t]&&Npo[-WW7,c,a,b,t],Print2["(Subscript[(OverBar[sn]), (2)]),  f","  (row 141)"],

Nze[μ0,c,a,b,t]&&Nze[𝔻,c,a,b,t]&&Nnze[ℙ ℝ,c,a,b,t]&&Npo[WK,c,a,b,t]&&Nze[WE1,c,a,b,t]&&Nnze[WG09,c,a,b,t]&&Npo[WW2,c,a,b,t],Print2["(Subscript[(OverHat[cp]), (2)]),  n","  (row 142a)"],

Nze[μ0,c,a,b,t]&&Nze[𝔻,c,a,b,t]&&Nnze[ℙ ℝ,c,a,b,t]&&Npo[WK,c,a,b,t]&&Nze[WE1,c,a,b,t]&&Nnze[WG09,c,a,b,t]&&Nze[WW2,c,a,b,t],Print2["(Subscript[(OverHat[cp]), (2)]),  n","  (row 142b)"],

Nze[μ0,c,a,b,t]&&Nze[𝔻,c,a,b,t]&&Nnze[ℙ ℝ,c,a,b,t]&&Npo[WK,c,a,b,t]&&Nze[WE1,c,a,b,t]&&Nze[WG09,c,a,b,t],Print2["(Subscript[(OverHat[cp]), (2)]),  n","  (row 143)"],

Nze[μ0,c,a,b,t]&&Nze[𝔻,c,a,b,t]&&Nnze[ℙ ℝ,c,a,b,t]&&Npo[WK,c,a,b,t]&&Nze[WE1,c,a,b,t]&&Nnze[WG09,c,a,b,t]&&Npo[-WW2,c,a,b,t],Print2["(Subscript[(OverHat[cp]), (2)]),  f","  (row 144)"],

Nze[μ0,c,a,b,t]&&Nze[𝔻,c,a,b,t]&&Nze[ℙ,c,a,b,t]&&Nnze[ℝ,c,a,b,t]&&Npo[-WK,c,a,b,t],Print2["(OverBar[s])","  (row 145)"],

Nze[μ0,c,a,b,t]&&Nze[𝔻,c,a,b,t]&&Nze[ℙ,c,a,b,t]&&Nnze[ℝ,c,a,b,t]&&Npo[WK,c,a,b,t]&&Nnze[WG10,c,a,b,t],Print2["(Subscript[(OverBar[n]), (3)])","  (row 146)"],

Nze[μ0,c,a,b,t]&&Nze[𝔻,c,a,b,t]&&Nze[ℙ,c,a,b,t]&&Nnze[ℝ,c,a,b,t]&&Npo[WK,c,a,b,t]&&Nze[WG10,c,a,b,t],Print2["(Subscript[(OverHat[es]), (3)])","  (row 147)"],

Nze[μ0,c,a,b,t]&&Nnze[ℙ,c,a,b,t]&&Nze[ℝ,c,a,b,t]&&Npo[𝕌,c,a,b,t]&&Npo[-WK,c,a,b,t]&&Npo[-WF2,c,a,b,t],Print2["s, s","  (row 148)"],

Nze[μ0,c,a,b,t]&&Nnze[ℙ,c,a,b,t]&&Nze[ℝ,c,a,b,t]&&Npo[𝕌,c,a,b,t]&&Nnze[WK,c,a,b,t]&&Npo[WG08,c,a,b,t]&&Npo[WW4,c,a,b,t],Print2["s, n","  (row 149a)"],

Nze[μ0,c,a,b,t]&&Nnze[ℙ,c,a,b,t]&&Nze[ℝ,c,a,b,t]&&Npo[𝕌,c,a,b,t]&&Nnze[WK,c,a,b,t]&&Npo[WG08,c,a,b,t]&&Nze[WW4,c,a,b,t],Print2["s, n","  (row 149b)"],

Nze[μ0,c,a,b,t]&&Nnze[ℙ,c,a,b,t]&&Nze[ℝ,c,a,b,t]&&Npo[𝕌,c,a,b,t]&&Nnze[WK,c,a,b,t]&&Nze[WG08,c,a,b,t]&&Npo[WF2,c,a,b,t],Print2["s, n","  (row 150)"],

Nze[μ0,c,a,b,t]&&Nnze[ℙ,c,a,b,t]&&Nze[ℝ,c,a,b,t]&&Npo[𝕌,c,a,b,t]&&Nze[WK,c,a,b,t]&&Nnze[𝔻,c,a,b,t]&&Nnze[WG08,c,a,b,t]&&Npo[WW4,c,a,b,t],Print2["s, n","  (row 151a)"],

Nze[μ0,c,a,b,t]&&Nnze[ℙ,c,a,b,t]&&Nze[ℝ,c,a,b,t]&&Npo[𝕌,c,a,b,t]&&Nze[WK,c,a,b,t]&&Nnze[𝔻,c,a,b,t]&&Nnze[WG08,c,a,b,t]&&Nze[WW4,c,a,b,t],Print2["s, n","  (row 151b)"],

Nze[μ0,c,a,b,t]&&Nnze[ℙ,c,a,b,t]&&Nze[ℝ,c,a,b,t]&&Npo[𝕌,c,a,b,t]&&Nze[WK,c,a,b,t]&&Nnze[𝔻,c,a,b,t]&&Nze[WG08,c,a,b,t]&&Npo[WW7,c,a,b,t],Print2["s, n","  (row 152a)"],

Nze[μ0,c,a,b,t]&&Nnze[ℙ,c,a,b,t]&&Nze[ℝ,c,a,b,t]&&Npo[𝕌,c,a,b,t]&&Nze[WK,c,a,b,t]&&Nnze[𝔻,c,a,b,t]&&Nze[WG08,c,a,b,t]&&Nze[WW7,c,a,b,t],Print2["s, n","  (row 152b)"],

Nze[μ0,c,a,b,t]&&Nnze[ℙ,c,a,b,t]&&Nze[ℝ,c,a,b,t]&&Npo[𝕌,c,a,b,t]&&Nze[WK,c,a,b,t]&&Nze[𝔻,c,a,b,t]&&Nnze[WG03,c,a,b,t]&&Npo[WW8,c,a,b,t],Print2["s, n","  (row 153a)"],

Nze[μ0,c,a,b,t]&&Nnze[ℙ,c,a,b,t]&&Nze[ℝ,c,a,b,t]&&Npo[𝕌,c,a,b,t]&&Nze[WK,c,a,b,t]&&Nze[𝔻,c,a,b,t]&&Nnze[WG03,c,a,b,t]&&Nze[WW8,c,a,b,t],Print2["s, n","  (row 153b)"],

Nze[μ0,c,a,b,t]&&Nnze[ℙ,c,a,b,t]&&Nze[ℝ,c,a,b,t]&&Npo[𝕌,c,a,b,t]&&Nze[WK,c,a,b,t]&&Nze[𝔻,c,a,b,t]&&Nze[WG03,c,a,b,t]&&Nnze[WD2,c,a,b,t],Print2["s, n","  (row 154)"],

Nze[μ0,c,a,b,t]&&Nnze[ℙ,c,a,b,t]&&Nze[ℝ,c,a,b,t]&&Npo[𝕌,c,a,b,t]&&Nze[WK,c,a,b,t]&&Nze[𝔻,c,a,b,t]&&Nze[WG03,c,a,b,t]&&Nze[WD2,c,a,b,t]&&Npo[WW9,c,a,b,t],Print2["s, n","  (row 155a)"],

Nze[μ0,c,a,b,t]&&Nnze[ℙ,c,a,b,t]&&Nze[ℝ,c,a,b,t]&&Npo[𝕌,c,a,b,t]&&Nze[WK,c,a,b,t]&&Nze[𝔻,c,a,b,t]&&Nze[WG03,c,a,b,t]&&Nze[WD2,c,a,b,t]&&Nze[WW9,c,a,b,t],Print2["s, n","  (row 155b)"],

Nze[μ0,c,a,b,t]&&Nnze[ℙ,c,a,b,t]&&Nze[ℝ,c,a,b,t]&&Npo[𝕌,c,a,b,t]&&Nnze[WK,c,a,b,t]&&Npo[WG08,c,a,b,t]&&Npo[-WW4,c,a,b,t]&&¬centerC12[c,a,b,t],Print2["s, f","  (row 156)"],

Nze[μ0,c,a,b,t]&&Nnze[ℙ,c,a,b,t]&&Nze[ℝ,c,a,b,t]&&Npo[𝕌,c,a,b,t]&&Nze[WK,c,a,b,t]&&Nnze[𝔻,c,a,b,t]&&Nnze[WG08,c,a,b,t]&&Npo[-WW4,c,a,b,t]&&¬centerC1[c,a,b,t]&&¬centerC12[c,a,b,t],Print2["s, f","  (row 157)"],

Nze[μ0,c,a,b,t]&&Nnze[ℙ,c,a,b,t]&&Nze[ℝ,c,a,b,t]&&Npo[𝕌,c,a,b,t]&&Nze[WK,c,a,b,t]&&Nnze[𝔻,c,a,b,t]&&Nze[WG08,c,a,b,t]&&Npo[-WW7,c,a,b,t],Print2["s, f","  (row 158)"],

Nze[μ0,c,a,b,t]&&Nnze[ℙ,c,a,b,t]&&Nze[ℝ,c,a,b,t]&&Npo[𝕌,c,a,b,t]&&Nze[WK,c,a,b,t]&&Nze[𝔻,c,a,b,t]&&Nnze[WG03,c,a,b,t]&&Npo[-WW8,c,a,b,t],Print2["s, f","  (row 159)"],

Nze[μ0,c,a,b,t]&&Nnze[ℙ,c,a,b,t]&&Nze[ℝ,c,a,b,t]&&Npo[𝕌,c,a,b,t]&&Nze[WK,c,a,b,t]&&Nze[𝔻,c,a,b,t]&&Nze[WG03,c,a,b,t]&&Nze[WD2,c,a,b,t]&&Npo[-WW9,c,a,b,t]&&¬centerC14[c,a,b,t],Print2["s, f","  (row 160)"],

Nze[μ0,c,a,b,t]&&Nnze[ℙ,c,a,b,t]&&Nze[ℝ,c,a,b,t]&&Npo[𝕌,c,a,b,t]&&Nnze[WK,c,a,b,t]&&Npo[WG08,c,a,b,t]&&Npo[-WW4,c,a,b,t]&&centerC12[c,a,b,t],Print2["s, c","  (row 161)"],

Nze[μ0,c,a,b,t]&&Nnze[ℙ,c,a,b,t]&&Nze[ℝ,c,a,b,t]&&Npo[𝕌,c,a,b,t]&&Nze[WK,c,a,b,t]&&Nnze[𝔻,c,a,b,t]&&Nnze[WG08,c,a,b,t]&&Npo[-WW4,c,a,b,t]&&centerC1[c,a,b,t],Print2["s, c","  (row 162a)"],

Nze[μ0,c,a,b,t]&&Nnze[ℙ,c,a,b,t]&&Nze[ℝ,c,a,b,t]&&Npo[𝕌,c,a,b,t]&&Nze[WK,c,a,b,t]&&Nnze[𝔻,c,a,b,t]&&Nnze[WG08,c,a,b,t]&&Npo[-WW4,c,a,b,t]&&centerC12[c,a,b,t],Print2["s, c","  (row 162b)"],

Nze[μ0,c,a,b,t]&&Nnze[ℙ,c,a,b,t]&&Nze[ℝ,c,a,b,t]&&Npo[𝕌,c,a,b,t]&&Nze[WK,c,a,b,t]&&Nze[𝔻,c,a,b,t]&&Nze[WG03,c,a,b,t]&&Nze[WD2,c,a,b,t]&&Npo[-WW9,c,a,b,t]&&centerC14[c,a,b,t],Print2["s, c","  (row 163)"],

Nze[μ0,c,a,b,t]&&Nnze[ℙ,c,a,b,t]&&Nze[ℝ,c,a,b,t]&&Npo[𝕌,c,a,b,t]&&Npo[WK,c,a,b,t]&&Nze[WG08,c,a,b,t]&&Npo[-WF2,c,a,b,t],Print2["n, n","  (row 164)"],

Nze[μ0,c,a,b,t]&&Nnze[ℙ,c,a,b,t]&&Nze[ℝ,c,a,b,t]&&Npo[𝕌,c,a,b,t]&&Npo[WK,c,a,b,t]&&Npo[-WG08,c,a,b,t]&&Npo[WW4,c,a,b,t]&&Npo[WW3,c,a,b,t],Print2["n, n","  (row 165)"],

Nze[μ0,c,a,b,t]&&Nnze[ℙ,c,a,b,t]&&Nze[ℝ,c,a,b,t]&&Npo[𝕌,c,a,b,t]&&Npo[WK,c,a,b,t]&&Npo[-WG08,c,a,b,t]&&Nze[WW4,c,a,b,t]&&Npo[WW3,c,a,b,t],Print2["n, n","  (row 166a)"],

Nze[μ0,c,a,b,t]&&Nnze[ℙ,c,a,b,t]&&Nze[ℝ,c,a,b,t]&&Npo[𝕌,c,a,b,t]&&Npo[WK,c,a,b,t]&&Npo[-WG08,c,a,b,t]&&Nze[WW4,c,a,b,t]&&Nze[WW3,c,a,b,t],Print2["n, n","  (row 166b)"],

Nze[μ0,c,a,b,t]&&Nnze[ℙ,c,a,b,t]&&Nze[ℝ,c,a,b,t]&&Npo[𝕌,c,a,b,t]&&Npo[WK,c,a,b,t]&&Npo[-WG08,c,a,b,t]&&Npo[-WW4,c,a,b,t],Print2["n, f","  (row 167)"],

Nze[μ0,c,a,b,t]&&Nnze[ℙ,c,a,b,t]&&Nze[ℝ,c,a,b,t]&&Npo[𝕌,c,a,b,t]&&Npo[WK,c,a,b,t]&&Npo[-WG08,c,a,b,t]&&Nze[WW4,c,a,b,t]&&Npo[-WW3,c,a,b,t],Print2["n, f","  (row 168)"],

Nze[μ0,c,a,b,t]&&Nnze[ℙ,c,a,b,t]&&Nze[ℝ,c,a,b,t]&&Npo[𝕌,c,a,b,t]&&Npo[WK,c,a,b,t]&&Npo[-WG08,c,a,b,t]&&Npo[WW4,c,a,b,t]&&Npo[-WW3,c,a,b,t]&&¬centerC13[c,a,b,t],Print2["f, f","  (row 169)"],

Nze[μ0,c,a,b,t]&&Nnze[ℙ,c,a,b,t]&&Nze[ℝ,c,a,b,t]&&Npo[𝕌,c,a,b,t]&&Npo[WK,c,a,b,t]&&Npo[-WG08,c,a,b,t]&&Npo[WW4,c,a,b,t]&&Npo[-WW3,c,a,b,t]&&centerC13[c,a,b,t],Print2["c, c","  (row 170)"],

Nze[μ0,c,a,b,t]&&Nnze[ℙ,c,a,b,t]&&Nze[ℝ,c,a,b,t]&&Npo[-𝕌,c,a,b,t],Print2["two complex finite singular points","  (row 170 bis)"],

Nze[μ0,c,a,b,t]&&Nnze[ℙ,c,a,b,t]&&Nze[ℝ,c,a,b,t]&&Nze[𝕌,c,a,b,t]&&Nnze[WG08,c,a,b,t]&&Nnze[WG01,c,a,b,t],Print2["(Subscript[(OverBar[sn]), (2)])","  (row 171)"],

Nze[μ0,c,a,b,t]&&Nnze[ℙ,c,a,b,t]&&Nze[ℝ,c,a,b,t]&&Nze[𝕌,c,a,b,t]&&Nze[WG08,c,a,b,t]&&Nnze[WK,c,a,b,t],Print2["(Subscript[(OverBar[sn]), (2)])","  (row 172)"],

Nze[μ0,c,a,b,t]&&Nnze[ℙ,c,a,b,t]&&Nze[ℝ,c,a,b,t]&&Nze[𝕌,c,a,b,t]&&Nze[WG08,c,a,b,t]&&Nze[WK,c,a,b,t]&&Nnze[WN,c,a,b,t]&&Nnze[WG10,c,a,b,t],Print2["(Subscript[(OverBar[sn]), (2)])","  (row 173)"],

Nze[μ0,c,a,b,t]&&Nnze[ℙ,c,a,b,t]&&Nze[ℝ,c,a,b,t]&&Nze[𝕌,c,a,b,t]&&Nze[WG08,c,a,b,t]&&Nze[WK,c,a,b,t]&&Nze[WN,c,a,b,t]&&Nnze[WF3,c,a,b,t],Print2["(Subscript[(OverBar[sn]), (2)])","  (row 174)"],

Nze[μ0,c,a,b,t]&&Nnze[ℙ,c,a,b,t]&&Nze[ℝ,c,a,b,t]&&Nze[𝕌,c,a,b,t]&&Nnze[WG08,c,a,b,t]&&Nze[WG01,c,a,b,t],Print2["(Subscript[(OverHat[cp]), (2)])","  (row 175)"],

Nze[μ0,c,a,b,t]&&Nnze[ℙ,c,a,b,t]&&Nze[ℝ,c,a,b,t]&&Nze[𝕌,c,a,b,t]&&Nze[WG08,c,a,b,t]&&Nze[WK,c,a,b,t]&&Nze[WG10,c,a,b,t]&&Nnze[WN,c,a,b,t],Print2["(Subscript[(OverHat[cp]), (2)])","  (row 176)"],

Nze[μ0,c,a,b,t]&&Nnze[ℙ,c,a,b,t]&&Nze[ℝ,c,a,b,t]&&Nze[𝕌,c,a,b,t]&&Nze[WG08,c,a,b,t]&&Nze[WK,c,a,b,t]&&Nze[WN,c,a,b,t]&&Nnze[WF3,c,a,b,t],Print2["(Subscript[(OverHat[cp]), (2)])","  (row 177)"],

Nze[μ0,c,a,b,t]&&Nze[ℙ,c,a,b,t]&&Nze[ℝ,c,a,b,t]&&Nnze[𝕌,c,a,b,t]&&Npo[-WK,c,a,b,t],Print2["s","  (row 178)"],

Nze[μ0,c,a,b,t]&&Nze[ℙ,c,a,b,t]&&Nze[ℝ,c,a,b,t]&&Nnze[𝕌,c,a,b,t]&&Nze[WK,c,a,b,t]&&Npo[-WF4 WF5,c,a,b,t],Print2["s","  (row 179)"],

Nze[μ0,c,a,b,t]&&Nze[ℙ,c,a,b,t]&&Nze[ℝ,c,a,b,t]&&Nnze[𝕌,c,a,b,t]&&Npo[WK,c,a,b,t]&&Npo[WW4,c,a,b,t],Print2["n","  (row 180a)"],

Nze[μ0,c,a,b,t]&&Nze[ℙ,c,a,b,t]&&Nze[ℝ,c,a,b,t]&&Nnze[𝕌,c,a,b,t]&&Npo[WK,c,a,b,t]&&Nze[WW4,c,a,b,t],Print2["n","  (row 180b)"],

Nze[μ0,c,a,b,t]&&Nze[ℙ,c,a,b,t]&&Nze[ℝ,c,a,b,t]&&Nnze[𝕌,c,a,b,t]&&Nze[WK,c,a,b,t]&&Npo[WF4 WF5,c,a,b,t]&&Nnze[WG03,c,a,b,t]&&Npo[WW4,c,a,b,t],Print2["n","  (row 181a)"],

Nze[μ0,c,a,b,t]&&Nze[ℙ,c,a,b,t]&&Nze[ℝ,c,a,b,t]&&Nnze[𝕌,c,a,b,t]&&Nze[WK,c,a,b,t]&&Npo[WF4 WF5,c,a,b,t]&&Nnze[WG03,c,a,b,t]&&Nze[WW4,c,a,b,t],Print2["n","  (row 181b)"],

Nze[μ0,c,a,b,t]&&Nze[ℙ,c,a,b,t]&&Nze[ℝ,c,a,b,t]&&Nnze[𝕌,c,a,b,t]&&Nze[WK,c,a,b,t]&&Npo[WF4 WF5,c,a,b,t]&&Nze[WG03,c,a,b,t]&&Nnze[WN,c,a,b,t]&&Npo[WW7,c,a,b,t],Print2["n","  (row 182a)"],

Nze[μ0,c,a,b,t]&&Nze[ℙ,c,a,b,t]&&Nze[ℝ,c,a,b,t]&&Nnze[𝕌,c,a,b,t]&&Nze[WK,c,a,b,t]&&Npo[WF4 WF5,c,a,b,t]&&Nze[WG03,c,a,b,t]&&Nnze[WN,c,a,b,t]&&Nze[WW7,c,a,b,t],Print2["n","  (row 182b)"],

Nze[μ0,c,a,b,t]&&Nze[ℙ,c,a,b,t]&&Nze[ℝ,c,a,b,t]&&Nnze[𝕌,c,a,b,t]&&Nze[WK,c,a,b,t]&&Npo[WF4 WF5,c,a,b,t]&&Nze[WN,c,a,b,t]&&Npo[WW8,c,a,b,t],Print2["n","  (row 183a)"],

Nze[μ0,c,a,b,t]&&Nze[ℙ,c,a,b,t]&&Nze[ℝ,c,a,b,t]&&Nnze[𝕌,c,a,b,t]&&Nze[WK,c,a,b,t]&&Npo[WF4 WF5,c,a,b,t]&&Nze[WN,c,a,b,t]&&Nze[WW8,c,a,b,t],Print2["n","  (row 183b)"],

Nze[μ0,c,a,b,t]&&Nze[ℙ,c,a,b,t]&&Nze[ℝ,c,a,b,t]&&Nnze[𝕌,c,a,b,t]&&Npo[WK,c,a,b,t]&&Npo[-WW4,c,a,b,t],Print2["f","  (row 184)"],

Nze[μ0,c,a,b,t]&&Nze[ℙ,c,a,b,t]&&Nze[ℝ,c,a,b,t]&&Nnze[𝕌,c,a,b,t]&&Nze[WK,c,a,b,t]&&Npo[WF4 WF5,c,a,b,t]&&Nnze[WG03,c,a,b,t]&&Npo[-WW4,c,a,b,t],Print2["f","  (row 185)"],

Nze[μ0,c,a,b,t]&&Nze[ℙ,c,a,b,t]&&Nze[ℝ,c,a,b,t]&&Nnze[𝕌,c,a,b,t]&&Nze[WK,c,a,b,t]&&Npo[WF4 WF5,c,a,b,t]&& Nze[WG03,c,a,b,t]&&Nnze[WN,c,a,b,t]&&Npo[-WW7,c,a,b,t]&&Nnze[WG10,c,a,b,t],Print2["f","  (row 186)"],

Nze[μ0,c,a,b,t]&&Nze[ℙ,c,a,b,t]&&Nze[ℝ,c,a,b,t]&&Nnze[𝕌,c,a,b,t]&&Nze[WK,c,a,b,t]&&Npo[WF4 WF5,c,a,b,t]&& Nze[WN,c,a,b,t]&&Npo[-WW8,c,a,b,t]&&Nnze[WG13,c,a,b,t],Print2["f","  (row 187)"],

Nze[μ0,c,a,b,t]&&Nze[ℙ,c,a,b,t]&&Nze[ℝ,c,a,b,t]&&Nnze[𝕌,c,a,b,t]&&Nze[WK,c,a,b,t]&&Npo[WF4 WF5,c,a,b,t]&& Nze[WG03,c,a,b,t]&&Nnze[WN,c,a,b,t]&&Npo[-WW7,c,a,b,t]&&Nze[WG10,c,a,b,t],Print2["c","  (row 188)"],

Nze[μ0,c,a,b,t]&&Nze[ℙ,c,a,b,t]&&Nze[ℝ,c,a,b,t]&&Nnze[𝕌,c,a,b,t]&&Nze[WK,c,a,b,t]&&Npo[WF4 WF5,c,a,b,t]&& Nze[WN,c,a,b,t]&&Npo[-WW8,c,a,b,t]&&Nze[WG13,c,a,b,t],Print2["c","  (row 189)"],

Nze[μ0,c,a,b,t]&&Nze[ℙ,c,a,b,t]&&Nze[ℝ,c,a,b,t]&&Nze[𝕌,c,a,b,t]&&Nnze[𝕍,c,a,b,t],Print2["all finite singular points have gone to visit the infinity","  (row 189 bis)"],

Nze[μ0,c,a,b,t]&&Nze[ℙ,c,a,b,t]&&Nze[ℝ,c,a,b,t]&&Nze[𝕌,c,a,b,t]&&Nze[𝕍,c,a,b,t],Print2["the system is degenerate","  (row 189 bis bis)"],

True,Print2["Something fails"]
]}

Ninfdeg gives the phase portrait for a parametrized system having the infinity degenerated. The set "c" are the equalities know among the parameters, "a" corresponds to expressions known to be positive and "b" to expressions known to be different from zero.

Ninfdeg[c_,a_,b_,t_]:={tot=Union[Table[c[[i]]==0,{i,1,Length[c]}],Table[a[[i]]>0,{i,1,Length[a]}],Table[b[[i]]^2>0,{i,1,Length[b]}],Table[b[[i]]≠0,{i,1,Length[b]}],{var1≠0},{var2≠0}];Which[

Nnze[WC2,c,a,b,t],Print2["The infinity is not degenerated"],

Nze[WC2,c,a,b,t]&&Nnze[WILH10,c,a,b,t]&&Npo[-WILH9,c,a,b,t],Print2["Config C2.1"],

Nze[WC2,c,a,b,t]&&Nnze[WILH10,c,a,b,t]&&Npo[WILH9,c,a,b,t]&&Nnze[WN7,c,a,b,t],Print2["Config C2.2(a)"],

Nze[WC2,c,a,b,t]&&Nnze[WILH10,c,a,b,t]&&Npo[WILH9,c,a,b,t]&&Nze[WN7,c,a,b,t],Print2["Config C2.2(b)"],

Nze[WC2,c,a,b,t]&&Nnze[WILH10,c,a,b,t]&&Nze[WILH9,c,a,b,t]&&Nnze[WILH12,c,a,b,t],Print2["Config C2.3"],

Nze[WC2,c,a,b,t]&&Nnze[WILH10,c,a,b,t]&&Nze[WILH9,c,a,b,t]&&Nze[WILH12,c,a,b,t],Print2["Config C2.4"],

Nze[WC2,c,a,b,t]&&Nze[WILH10,c,a,b,t]&&Nnze[WILH12,c,a,b,t]&&Npo[WILH11,c,a,b,t]&&Npo[-μ2,c,a,b,t],Print2["Config C2.5(a)"],

Nze[WC2,c,a,b,t]&&Nze[WILH10,c,a,b,t]&&Nnze[WILH12,c,a,b,t]&&Npo[WILH11,c,a,b,t]&&Npo[μ2,c,a,b,t],Print2["Config C2.5(b)"],

Nze[WC2,c,a,b,t]&&Nze[WILH10,c,a,b,t]&&Nnze[WILH12,c,a,b,t]&&Npo[-WILH11,c,a,b,t],Print2["Config C2.6"],

Nze[WC2,c,a,b,t]&&Nze[WILH10,c,a,b,t]&&Nnze[WILH12,c,a,b,t]&&Nze[WILH11,c,a,b,t],Print2["Config C2.7"],

Nze[WC2,c,a,b,t]&&Nze[WILH10,c,a,b,t]&&Nze[WILH12,c,a,b,t]&&Nnze[WILH11,c,a,b,t],Print2["Config C2.8"],

Nze[WC2,c,a,b,t]&&Nze[WILH10,c,a,b,t]&&Nze[WILH12,c,a,b,t]&&Nze[WILH11,c,a,b,t],Print2["Config C2.9"],

True,Print2["Something fails"]
]}

NinfiniteGeo makes a complete description of infinite singular points for a parametrized system up to GEOMETRICAL EQUIVALENCE. The set "c" are the equalities know among the parameters, "a" corresponds to expressions known to be positive and "b" to expressions known to be different from zero.

NinfiniteG[c_,a_,b_,t_]:=NinfiniteGeo[c,a,b,t]

NinfiniteGeo[c_,a_,b_,t_]:={η=FullSimplify[η];tot=Union[Table[c[[i]]==0,{i,1,Length[c]}],Table[a[[i]]>0,{i,1,Length[a]}],Table[b[[i]]^2>0,{i,1,Length[b]}],Table[b[[i]]≠0,{i,1,Length[b]}],{var1≠0},{var2≠0}];Which[

Npo[η,c,a,b,t]&&Npo[-μ0,c,a,b,t]&&Npo[-κ,c,a,b,t],Print2["S, S, (N^∞) (Config. 7)"],

Npo[η,c,a,b,t]&&Npo[-μ0,c,a,b,t]&&Npo[κ,c,a,b,t],Print2["(N^f), (N^f), (N^f) (Config. 1)"],

Npo[η,c,a,b,t]&&Npo[μ0,c,a,b,t]&&Npo[-θ,c,a,b,t]&&Npo[-θ1,c,a,b,t],Print2["S, (N^∞), (N^∞) (Config. 5)"],

Npo[η,c,a,b,t]&&Npo[μ0,c,a,b,t]&&Npo[-θ,c,a,b,t]&&Npo[θ1,c,a,b,t],Print2["S, (N^f), (N^f) (Config. 5)"],

Npo[η,c,a,b,t]&&Npo[μ0,c,a,b,t]&&Npo[θ,c,a,b,t],Print2["S, (N^f), (N^∞) (Config. 5)"],

Npo[η,c,a,b,t]&&Npo[μ0,c,a,b,t]&&Nze[θ,c,a,b,t]&&Npo[-θ1,c,a,b,t]&&Nnze[θ2,c,a,b,t],Print2["S, (N^∞), (N^d) (Config. 5)"],

Npo[η,c,a,b,t]&&Npo[μ0,c,a,b,t]&&Nze[θ,c,a,b,t]&&Npo[-θ1,c,a,b,t]&&Nze[θ2,c,a,b,t],Print2["S, (N^∞), (SuperStar[N]) (Config. 5)"],

Npo[η,c,a,b,t]&&Npo[μ0,c,a,b,t]&&Nze[θ,c,a,b,t]&&Npo[θ1,c,a,b,t]&&Nnze[θ2,c,a,b,t],Print2["S, (N^f), (N^d) (Config. 5)"],

Npo[η,c,a,b,t]&&Npo[μ0,c,a,b,t]&&Nze[θ,c,a,b,t]&&Npo[θ1,c,a,b,t]&&Nze[θ2,c,a,b,t],Print2["S, (N^f), (SuperStar[N]) (Config. 5)"],

Npo[η,c,a,b,t]&&Npo[μ0,c,a,b,t]&&Nze[θ,c,a,b,t]&&Nze[θ1,c,a,b,t]&&Nnze[θ3,c,a,b,t],Print2["S, (N^d), (N^d) (Config. 5)"],

Npo[η,c,a,b,t]&&Npo[μ0,c,a,b,t]&&Nze[θ,c,a,b,t]&&Nze[θ1,c,a,b,t]&&Nze[θ3,c,a,b,t]&&Nnze[θ4,c,a,b,t],Print2["S, (N^d), (SuperStar[N]) (Config. 5)"],

Npo[η,c,a,b,t]&&Npo[μ0,c,a,b,t]&&Nze[θ,c,a,b,t]&&Nze[θ1,c,a,b,t]&&Nze[θ3,c,a,b,t]&&Nze[θ4,c,a,b,t],Print2["S, (SuperStar[N]), (SuperStar[N]) (Config. 5)"],
Npo[η,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nnze[μ1,c,a,b,t]&&Npo[-κ,c,a,b,t],Print2["(Overscript[(({{1}, {1}})), -])SN, S, (N^∞) (Config. 6)"],
Npo[η,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nnze[μ1,c,a,b,t]&&Npo[κ,c,a,b,t],Print2["(Overscript[(({{1}, {1}})), -])SN, (N^f), (N^f) (Config. 2)"],
Npo[η,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nnze[μ2,c,a,b,t]&&Npo[-κ,c,a,b,t]&&Npo[-μ2,c,a,b,t],Print2["(Overscript[(({{2}, {1}})), -])S, S, (N^∞) (Config. 7)"],
Npo[η,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nnze[μ2,c,a,b,t]&&Npo[-κ,c,a,b,t]&&Npo[μ2,c,a,b,t],Print2["(Overscript[(({{2}, {1}})), -])N, S, (N^∞) (Config. 5)"],
Npo[η,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nnze[μ2,c,a,b,t]&&Npo[κ,c,a,b,t]&&Npo[-μ2,c,a,b,t],Print2["(Overscript[(({{2}, {1}})), -])N, (N^f), (N^f) (Config. 1)"],
Npo[η,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nnze[μ2,c,a,b,t]&&Npo[κ,c,a,b,t]&&Npo[μ2,c,a,b,t],Print2["(Overscript[(({{2}, {1}})), -])S, (N^f), (N^f) (Config. 5)"],
Npo[η,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nnze[μ2,c,a,b,t]&&Nze[κ,c,a,b,t]&&Npo[-μ2 WL,c,a,b,t],Print2["(Overscript[(({{1}, {1}})), -])SN, (Overscript[(({{1}, {1}})), -])SN, (N^d) (Config. 3)"],

Npo[η,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nnze[μ2,c,a,b,t]&&Nze[κ,c,a,b,t]&&Npo[μ2 WL,c,a,b,t]&&Nnze[θ2,c,a,b,t],Print2["(Overscript[(({{1}, {1}})), -])SN, (Overscript[(({{1}, {1}})), -])NS, (N^d) (Config. 4)"],

Npo[η,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nnze[μ2,c,a,b,t]&&Nze[κ,c,a,b,t]&&Npo[μ2 WL,c,a,b,t]&&Nze[θ2,c,a,b,t],Print2["(Overscript[(({{1}, {1}})), -])SN, (Overscript[(({{1}, {1}})), -])NS, (SuperStar[N]) (Config. 4)"],
Npo[η,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nnze[μ3,c,a,b,t]&&Npo[-κ,c,a,b,t],Print2["(Overscript[(({{3}, {1}})), -])SN, S, (N^∞) (Config. 6)"],
Npo[η,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nnze[μ3,c,a,b,t]&&Npo[κ,c,a,b,t],Print2["(Overscript[(({{3}, {1}})), -])SN, (N^f), (N^f) (Config. 2)"],
Npo[η,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nnze[μ3,c,a,b,t]&&Nze[κ,c,a,b,t]&&Npo[-μ3 WK1,c,a,b,t],Print2["(Overscript[(({{2}, {1}})), -])N, (Overscript[(({{1}, {1}})), -])SN, (N^d) (Config. 2)"],
Npo[η,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nnze[μ3,c,a,b,t]&&Nze[κ,c,a,b,t]&&Npo[μ3 WK1,c,a,b,t],Print2["(Overscript[(({{2}, {1}})), -])S, (Overscript[(({{1}, {1}})), -])SN, (N^d) (Config. 6)"],
Npo[η,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nze[μ3,c,a,b,t]&&Nnze[μ4,c,a,b,t]&&Npo[-κ,c,a,b,t],Print2["(Overscript[(({{4}, {1}})), -])N, S, (N^∞) (Config. 5)"],
Npo[η,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nze[μ3,c,a,b,t]&&Nnze[μ4,c,a,b,t]&&Npo[κ,c,a,b,t],Print2["(Overscript[(({{4}, {1}})), -])S, (N^f), (N^f) (Config. 5)"],
Npo[η,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nze[μ3,c,a,b,t]&&Nnze[μ4,c,a,b,t]&&Nze[κ,c,a,b,t]&&Nnze[WK1,c,a,b,t]&&Npo[-μ4 WL,c,a,b,t],Print2["(Overscript[(({{3}, {1}})), -])SN, (Overscript[(({{1}, {1}})), -])SN, (N^d) (Config. 3)"],
Npo[η,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nze[μ3,c,a,b,t]&&Nnze[μ4,c,a,b,t]&&Nze[κ,c,a,b,t]&&Nnze[WK1,c,a,b,t]&&Npo[μ4 WL,c,a,b,t],Print2["(Overscript[(({{3}, {1}})), -])SN, (Overscript[(({{1}, {1}})), -])NS, (N^d) (Config. 4)"],
Npo[η,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nze[μ3,c,a,b,t]&&Nnze[μ4,c,a,b,t]&&Nze[κ,c,a,b,t]&&Nze[WK1,c,a,b,t],Print2["(Overscript[(({{2}, {1}})), -])S, (Overscript[(({{2}, {1}})), -])N, (SuperStar[N]) (Config. 5)"],
Npo[η,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nze[μ3,c,a,b,t]&&Nze[μ4,c,a,b,t]&&Npo[-κ,c,a,b,t],Print2["(N^∞), S, (⊖ [|],∅) (((Subscript[QD, 1])^∞))"],

Npo[η,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nze[μ3,c,a,b,t]&&Nze[μ4,c,a,b,t]&&Npo[κ,c,a,b,t],Print2["(N^f), (N^f), (⊖ [|],∅) (((Subscript[QD, 2])^∞))"],

Npo[η,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nze[μ3,c,a,b,t]&&Nze[μ4,c,a,b,t]&&Nze[κ,c,a,b,t]&&Nnze[WK1,c,a,b,t],Print2["(Overscript[(({{1}, {1}})), -])SN, (N^d), (⊖ [|],∅) (((Subscript[QD, 3])^∞))"],

Npo[η,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nze[μ3,c,a,b,t]&&Nze[μ4,c,a,b,t]&&Nze[κ,c,a,b,t]&&Nze[WK1,c,a,b,t]&&Nnze[WL1,c,a,b,t],Print2[" (SuperStar[N]), (⊖ [)(],∅,∅) (((Subscript[QD, 4])^∞))"],

Npo[η,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nze[μ3,c,a,b,t]&&Nze[μ4,c,a,b,t]&&Nze[κ,c,a,b,t]&&Nze[WK1,c,a,b,t]&&Nze[WL1,c,a,b,t],Print2[" (SuperStar[N]), (⊖ [×],∅,∅) (((Subscript[QD, 4])^∞))"],

Npo[-η,c,a,b,t]&&Npo[-μ0,c,a,b,t],Print2["S, ©, © (Config. 34)"],

Npo[-η,c,a,b,t]&&Npo[μ0,c,a,b,t]&&Npo[-θ,c,a,b,t],Print2["(N^∞), ©, © (Config. 30)"],

Npo[-η,c,a,b,t]&&Npo[μ0,c,a,b,t]&&Npo[θ,c,a,b,t],Print2["(N^f), ©, © (Config. 30)"],

Npo[-η,c,a,b,t]&&Npo[μ0,c,a,b,t]&&Nze[θ,c,a,b,t]&&Nnze[θ2,c,a,b,t],Print2["(N^d), ©, © (Config. 30)"],

Npo[-η,c,a,b,t]&&Npo[μ0,c,a,b,t]&&Nze[θ,c,a,b,t]&&Nze[θ2,c,a,b,t],Print2["(SuperStar[N]), ©, © (Config. 30)"],
Npo[-η,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nnze[μ1,c,a,b,t],Print2["(Overscript[(({{1}, {1}})), -])SN, ©, © (Config. 31)"],
Npo[-η,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nnze[μ2,c,a,b,t]&&Nnze[κ,c,a,b,t]&&Npo[-μ2,c,a,b,t],Print2["(Overscript[(({{2}, {1}})), -])S, ©, © (Config. 34)"],
Npo[-η,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nnze[μ2,c,a,b,t]&&Nnze[κ,c,a,b,t]&&Npo[μ2,c,a,b,t],Print2["(Overscript[(({{2}, {1}})), -])N, ©, © (Config. 30)"],
Npo[-η,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nnze[μ2,c,a,b,t]&&Nze[κ,c,a,b,t]&&Nnze[θ2,c,a,b,t],Print2[" (N^d),(\!\(\*GridBox[{
{1},
{1}
}]\))©,(\!\(\*GridBox[{
{1},
{1}
}]\)) © (Config. 30)"],
Npo[-η,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nnze[μ2,c,a,b,t]&&Nze[κ,c,a,b,t]&&Nze[θ2,c,a,b,t],Print2[" (SuperStar[N]),(\!\(\*GridBox[{
{1},
{1}
}]\))©,(\!\(\*GridBox[{
{1},
{1}
}]\)) © (Config. 30)"],Npo[-η,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nnze[μ3,c,a,b,t],Print2["(Overscript[(({{3}, {1}})), -])SN, ©, © (Config. 31)"],
Npo[-η,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nze[μ3,c,a,b,t]&&Nnze[μ4,c,a,b,t]&&Nnze[κ,c,a,b,t],Print2["(Overscript[(({{4}, {1}})), -])N, ©, © (Config. 30)"],
Npo[-η,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nze[μ3,c,a,b,t]&&Nnze[μ4,c,a,b,t]&&Nze[κ,c,a,b,t],Print2["(SuperStar[N]),(Overscript[(({{2}, {1}})), -])©,(Overscript[(({{2}, {1}})), -]) © (Config. 30)"],
Npo[-η,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nze[μ3,c,a,b,t]&&Nze[μ4,c,a,b,t]&&Nnze[κ,c,a,b,t],Print2["©, ©,  (⊖ [|],∅) (((Subscript[QD, 5])^∞))"],
Npo[-η,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nze[μ3,c,a,b,t]&&Nze[μ4,c,a,b,t]&&Nze[κ,c,a,b,t]&&Npo[-WL1,c,a,b,t],Print2["(SuperStar[N]), (⊖ [◦],∅,∅) (((Subscript[QD, 30])^∞))"],
Npo[-η,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nze[μ3,c,a,b,t]&&Nze[μ4,c,a,b,t]&&Nze[κ,c,a,b,t]&&Npo[WL1,c,a,b,t],Print2["(SuperStar[N]), (⊖ [©],∅,∅) (((Subscript[QD, 30])^∞))"],
Npo[-η,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nze[μ3,c,a,b,t]&&Nze[μ4,c,a,b,t]&&Nze[κ,c,a,b,t]&&Nze[WL1,c,a,b,t],Print2["(SuperStar[N]), (⊖ [•],∅,∅) (((Subscript[QD, 30])^∞))"],
Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Npo[-μ0,c,a,b,t],Print2["(Overscript[(({{0}, {2}})), -])SN, S (Config. 22)"],
Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Npo[μ0,c,a,b,t]&&Npo[-θ,c,a,b,t],Print2["(Overscript[(({{0}, {2}})), -])SN, (N^∞) (Config. 18)"],
Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Npo[μ0,c,a,b,t]&&Npo[θ,c,a,b,t],Print2["(Overscript[(({{0}, {2}})), -])SN, (N^f) (Config. 18)"],
Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Npo[μ0,c,a,b,t]&&Nze[θ,c,a,b,t]&&Nnze[θ2,c,a,b,t],Print2["(Overscript[(({{0}, {2}})), -])SN, (N^d) (Config. 18)"],Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Npo[μ0,c,a,b,t]&&Nze[θ,c,a,b,t]&&Nze[θ2,c,a,b,t],Print2["(Overscript[(({{0}, {2}})), -])SN, (SuperStar[N]) (Config. 18)"],
Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nnze[μ1,c,a,b,t]&&Nnze[κ,c,a,b,t],Print2["(Overscript[(({{0}, {2}})), -])SN, (Overscript[(({{1}, {1}})), -])SN (Config. 20)"],
Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nnze[μ1,c,a,b,t]&&Nze[κ,c,a,b,t]&&Npo[-WK,c,a,b,t],Print2["(OverHat[(({{1}, {2}}))])(Subscript[(Overscript[P, →]), ∧]) E (Subscript[(Overscript[P, ←]), ∧]) - H, (N^f) (Config. 9)"],
Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nnze[μ1,c,a,b,t]&&Nze[κ,c,a,b,t]&&Npo[WK,c,a,b,t]&&Npo[-WL,c,a,b,t]&&Npo[-WN,c,a,b,t],Print2["(OverHat[(({{1}, {2}}))])(Subscript[(Overscript[P, →]), ∧]) E (Subscript[(Overscript[P, ←]), ∧]) - H, S (Config. 16)"],
Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nnze[μ1,c,a,b,t]&&Nze[κ,c,a,b,t]&&Npo[WK,c,a,b,t]&&Npo[-WL,c,a,b,t]&&Npo[WN,c,a,b,t],Print2["(OverHat[(({{1}, {2}}))])(Subscript[(Overscript[P, →]), ∧]) H (Subscript[(Overscript[P, ←]), ∧]) - E, S (Config. 26)"],
Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nnze[μ1,c,a,b,t]&&Nze[κ,c,a,b,t]&&Npo[WK,c,a,b,t]&&Npo[-WL,c,a,b,t]&&Nze[WN,c,a,b,t],Print2["(OverHat[(({{1}, {2}}))])H - E, S (Config. 16)"],
Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nnze[μ1,c,a,b,t]&&Nze[κ,c,a,b,t]&&Npo[WK,c,a,b,t]&&Npo[WL,c,a,b,t],Print2["(OverHat[(({{1}, {2}}))])(Subscript[H, ∧]) H (Subscript[H, ∧]) - H, (N^∞) (Config. 23)"],
Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nnze[μ2,c,a,b,t]&&Nnze[κ,c,a,b,t]&&Npo[-μ2,c,a,b,t],Print2["(Overscript[(({{0}, {2}})), -])SN, (Overscript[(({{2}, {1}})), -])S (Config. 22)"],Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nnze[μ2,c,a,b,t]&&Nnze[κ,c,a,b,t]&&Npo[μ2,c,a,b,t],Print2["(Overscript[(({{0}, {2}})), -])SN, (Overscript[(({{2}, {1}})), -])N (Config. 22)"],Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nnze[μ2,c,a,b,t]&&Nze[κ,c,a,b,t]&&Npo[-WK,c,a,b,t]&&Npo[-μ2,c,a,b,t],Print2["(\!\(\*GridBox[{
{2},
{2}
}]\))(Overscript[P, →]) E (Overscript[P, ←]) - (Overscript[P, →]) E (Overscript[P, ←]) , (N^f) (Config. 10)"],

Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nnze[μ2,c,a,b,t]&&Nze[κ,c,a,b,t]&&Npo[-WK,c,a,b,t]&&Npo[μ2,c,a,b,t]&&Npo[-WK2,c,a,b,t],Print2["(\!\(\*GridBox[{
{2},
{2}
}]\))H - H , (N^f) (Config. 8)"],

Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nnze[μ2,c,a,b,t]&&Nze[κ,c,a,b,t]&&Npo[-WK,c,a,b,t]&&Npo[μ2,c,a,b,t]&&Npo[WK2,c,a,b,t],Print2["(\!\(\*GridBox[{
{2},
{2}
}]\))(Overscript[P, →]) (Overscript[P, ←]) H - (Overscript[P, →]) (Overscript[P, ←]) H, (N^f) (Config. 19)"],

Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nnze[μ2,c,a,b,t]&&Nze[κ,c,a,b,t]&&Npo[-WK,c,a,b,t]&&Npo[μ2,c,a,b,t]&&Nze[WK2,c,a,b,t],Print2["(\!\(\*GridBox[{
{2},
{2}
}]\))(Overscript[P, →]) H - (Overscript[P, →]) H, (N^f) (Config. 19)"],

Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nnze[μ2,c,a,b,t]&&Nze[κ,c,a,b,t]&&Npo[WK,c,a,b,t]&&Npo[-WL,c,a,b,t]&&Npo[-μ2,c,a,b,t],Print2["(\!\(\*GridBox[{
{2},
{2}
}]\))(Overscript[P, ←]) H (Overscript[P, →]) - (Overscript[P, ←]) H (Overscript[P, →]), S (Config. 29)"],
Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nnze[μ2,c,a,b,t]&&Nze[κ,c,a,b,t]&&Npo[WK,c,a,b,t]&&Npo[-WL,c,a,b,t]&&Npo[μ2,c,a,b,t]&&Npo[-WK2,c,a,b,t],Print2["(\!\(\*GridBox[{
{2},
{2}
}]\))E - E, S (Config. 17)"],

Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nnze[μ2,c,a,b,t]&&Nze[κ,c,a,b,t]&&Npo[WK,c,a,b,t]&&Npo[-WL,c,a,b,t]&&Npo[μ2,c,a,b,t]&&Npo[WK2,c,a,b,t],Print2["(\!\(\*GridBox[{
{2},
{2}
}]\))(Overscript[P, ←]) (Overscript[P, →]) E- (Overscript[P, ←]) (Overscript[P, →]) E, S (Config. 17)"],

Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nnze[μ2,c,a,b,t]&&Nze[κ,c,a,b,t]&&Npo[WK,c,a,b,t]&&Npo[-WL,c,a,b,t]&&Npo[μ2,c,a,b,t]&&Nze[WK2,c,a,b,t],Print2["(\!\(\*GridBox[{
{2},
{2}
}]\))(Overscript[P, ←]) E- (Overscript[P, ←]) E, S (Config. 17)"],

Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nnze[μ2,c,a,b,t]&&Nze[κ,c,a,b,t]&&Npo[WK,c,a,b,t]&&Npo[WL,c,a,b,t]&&Npo[-μ2,c,a,b,t],Print2["(\!\(\*GridBox[{
{2},
{2}
}]\))H H H - H H H, (N^∞) (Config. 27)"],
Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nnze[μ2,c,a,b,t]&&Nze[κ,c,a,b,t]&&Npo[WK,c,a,b,t]&&Npo[WL,c,a,b,t]&&Npo[μ2,c,a,b,t]&&Npo[-WK2,c,a,b,t],Print2["(\!\(\*GridBox[{
{2},
{2}
}]\))H - H, (N^∞) (Config. 8)"],

Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nnze[μ2,c,a,b,t]&&Nze[κ,c,a,b,t]&&Npo[WK,c,a,b,t]&&Npo[WL,c,a,b,t]&&Npo[μ2,c,a,b,t]&&Npo[WK2,c,a,b,t],Print2["(\!\(\*GridBox[{
{2},
{2}
}]\))(Overscript[P, →]) (Overscript[P, ←]) H- (Overscript[P, →]) (Overscript[P, ←]) H, (N^∞) (Config. 19)"],

Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nnze[μ2,c,a,b,t]&&Nze[κ,c,a,b,t]&&Npo[WK,c,a,b,t]&&Npo[WL,c,a,b,t]&&Npo[μ2,c,a,b,t]&&Nze[WK2,c,a,b,t],Print2["(\!\(\*GridBox[{
{2},
{2}
}]\))(Overscript[P, →]) H- (Overscript[P, →]) H, (N^∞) (Config. 19)"],
Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nnze[μ2,c,a,b,t]&&Nze[κ,c,a,b,t]&&Nze[WK,c,a,b,t]&&Nnze[WL,c,a,b,t]&&Nnze[κ1,c,a,b,t]&&Nnze[θ5,c,a,b,t],Print2["(\!\(\*GridBox[{
{2},
{2}
}]\))(Subscript[(Overscript[P, →]), ∧]) (Overscript[P, ←]) (Subscript[H, ∧]) - H, (N^d) (Config. 13)"],
Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nnze[μ2,c,a,b,t]&&Nze[κ,c,a,b,t]&&Nze[WK,c,a,b,t]&&Nnze[WL,c,a,b,t]&&Nnze[κ1,c,a,b,t]&&Nze[θ5,c,a,b,t],Print2["(\!\(\*GridBox[{
{2},
{2}
}]\))(Subscript[(Overscript[P, →]), ∧]) (Overscript[P, ←]) (Subscript[H, ∧]) - H, (SuperStar[N]) (Config. 13)"],
Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nnze[μ2,c,a,b,t]&&Nze[κ,c,a,b,t]&&Nze[WK,c,a,b,t]&&Nnze[WL,c,a,b,t]&&Nze[κ1,c,a,b,t]&&Npo[-WK2,c,a,b,t]&&Nnze[θ6,c,a,b,t],Print2["(\!\(\*GridBox[{
{2},
{2}
}]\))H - H, (N^d) (Config. 8)"],
Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nnze[μ2,c,a,b,t]&&Nze[κ,c,a,b,t]&&Nze[WK,c,a,b,t]&&Nnze[WL,c,a,b,t]&&Nze[κ1,c,a,b,t]&&Npo[-WK2,c,a,b,t]&&Nze[θ6,c,a,b,t],Print2["(\!\(\*GridBox[{
{2},
{2}
}]\))H - H, (SuperStar[N]) (Config. 8)"],
Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nnze[μ2,c,a,b,t]&&Nze[κ,c,a,b,t]&&Nze[WK,c,a,b,t]&&Nnze[WL,c,a,b,t]&&Nze[κ1,c,a,b,t]&&Npo[WK2,c,a,b,t]&&Nnze[θ6,c,a,b,t],Print2["(\!\(\*GridBox[{
{2},
{2}
}]\))(Overscript[P, →]) (Overscript[P, ←]) H - (Overscript[P, →]) (Overscript[P, ←]) H, (N^d) (Config. 19)"],
Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nnze[μ2,c,a,b,t]&&Nze[κ,c,a,b,t]&&Nze[WK,c,a,b,t]&&Nnze[WL,c,a,b,t]&&Nze[κ1,c,a,b,t]&&Npo[WK2,c,a,b,t]&&Nze[θ6,c,a,b,t],Print2["(\!\(\*GridBox[{
{2},
{2}
}]\))(Overscript[P, →]) (Overscript[P, ←]) H - (Overscript[P, →]) (Overscript[P, ←]) H, (SuperStar[N]) (Config. 19)"],
Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nnze[μ2,c,a,b,t]&&Nze[κ,c,a,b,t]&&Nze[WK,c,a,b,t]&&Nnze[WL,c,a,b,t]&&Nze[κ1,c,a,b,t]&&Nze[WK2,c,a,b,t]&&Nnze[θ6,c,a,b,t],Print2["(\!\(\*GridBox[{
{2},
{2}
}]\))(Overscript[P, →]) H - (Overscript[P, →]) H, (N^d) (Config. 19)"],
Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nnze[μ2,c,a,b,t]&&Nze[κ,c,a,b,t]&&Nze[WK,c,a,b,t]&&Nnze[WL,c,a,b,t]&&Nze[κ1,c,a,b,t]&&Nze[WK2,c,a,b,t]&&Nze[θ6,c,a,b,t],Print2["(\!\(\*GridBox[{
{2},
{2}
}]\))(Overscript[P, →]) H - (Overscript[P, →]) H, (SuperStar[N]) (Config. 19)"],
Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nnze[μ2,c,a,b,t]&&Nze[κ,c,a,b,t]&&Nze[WK,c,a,b,t]&&Nze[WL,c,a,b,t],Print2["(OverHat[(({{1}, {2}}))])(Subscript[(Overscript[P, →]), ∧]) E (Subscript[(Overscript[P, ←]), ∧]) - H, (Overscript[(({{1}, {1}})), -])SN (Config. 11)"],
Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nnze[μ3,c,a,b,t]&&Nnze[κ,c,a,b,t],Print2["(Overscript[(({{0}, {2}})), -])SN, (Overscript[(({{3}, {1}})), -])SN (Config. 20)"],
Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nnze[μ3,c,a,b,t]&&Nze[κ,c,a,b,t]&&Npo[-WK,c,a,b,t],Print2["(\!\(\*GridBox[{
{3},
{2}
}]\)) (Overscript[P, →]) E (Overscript[P, ←]) - (Overscript[P, →]) (Overscript[P, ←]) H, (N^f) (Config. 14)"],
Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nnze[μ3,c,a,b,t]&&Nze[κ,c,a,b,t]&&Npo[WK,c,a,b,t]&&Npo[-WL,c,a,b,t],Print2["(\!\(\*GridBox[{
{3},
{2}
}]\))(Overscript[P, ←]) H (Overscript[P, →]) - (Overscript[P, ←]) (Overscript[P, →]) E, S (Config. 26)"],
Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nnze[μ3,c,a,b,t]&&Nze[κ,c,a,b,t]&&Npo[WK,c,a,b,t]&&Npo[WL,c,a,b,t],Print2["(\!\(\*GridBox[{
{3},
{2}
}]\))H (Overscript[P, →]) (Overscript[P, ←]) - H H H, (N^∞) (Config. 25)"],
Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nnze[μ3,c,a,b,t]&&Nze[κ,c,a,b,t]&&Nze[WK,c,a,b,t]&&Nnze[WL,c,a,b,t]&&Npo[-μ3 WK1,c,a,b,t],Print2["(\!\(\*GridBox[{
{3},
{2}
}]\))(Subscript[(Overscript[P, →]), ∧]) E (Subscript[(Overscript[P, ←]), ∧]) - H, (N^d) (Config. 9)"],
Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nnze[μ3,c,a,b,t]&&Nze[κ,c,a,b,t]&&Nze[WK,c,a,b,t]&&Nnze[WL,c,a,b,t]&&Npo[μ3 WK1,c,a,b,t],Print2["(\!\(\*GridBox[{
{3},
{2}
}]\))(Subscript[H, ∧]) H (Subscript[H, ∧]) - H, (N^d) (Config. 23)"],
Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nnze[μ3,c,a,b,t]&&Nze[κ,c,a,b,t]&&Nze[WK,c,a,b,t]&&Nze[WL,c,a,b,t]&&Nnze[κ1,c,a,b,t]&&Npo[-μ3 WK1,c,a,b,t],Print2["(OverHat[(({{1}, {2}}))])(Subscript[(Overscript[P, →]), ∧]) E (Subscript[(Overscript[P, ←]), ∧]) - H, (Overscript[(({{2}, {1}})), -])N (Config. 9)"],
Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nnze[μ3,c,a,b,t]&&Nze[κ,c,a,b,t]&&Nze[WK,c,a,b,t]&&Nze[WL,c,a,b,t]&&Nnze[κ1,c,a,b,t]&&Npo[μ3 WK1,c,a,b,t],Print2["(OverHat[(({{1}, {2}}))])(Subscript[(Overscript[P, →]), ∧]) E (Subscript[(Overscript[P, ←]), ∧]) - H, (Overscript[(({{2}, {1}})), -])S (Config. 9)"],
Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nnze[μ3,c,a,b,t]&&Nze[κ,c,a,b,t]&&Nze[WK,c,a,b,t]&&Nze[WL,c,a,b,t]&&Nze[κ1,c,a,b,t]&&Npo[-μ3 WK1,c,a,b,t],Print2["(\!\(\*GridBox[{
{2},
{2}
}]\))(Overscript[P, →]) E - (Overscript[P, →]) E, (Overscript[(({{1}, {1}})), -])SN (Config. 16)"],
Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nnze[μ3,c,a,b,t]&&Nze[κ,c,a,b,t]&&Nze[WK,c,a,b,t]&&Nze[WL,c,a,b,t]&&Nze[κ1,c,a,b,t]&&Npo[μ3 WK1,c,a,b,t],Print2["(\!\(\*GridBox[{
{2},
{2}
}]\))(Overscript[P, ←]) H - (Overscript[P, ←]) H, (Overscript[(({{1}, {1}})), -])SN (Config. 21)"],
Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nze[μ3,c,a,b,t]&&Nnze[μ4,c,a,b,t]&&Nnze[κ,c,a,b,t],Print2["(Overscript[(({{0}, {2}})), -])SN, (Overscript[(({{4}, {1}})), -])N (Config. 18)"],
Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nze[μ3,c,a,b,t]&&Nnze[μ4,c,a,b,t]&&Nze[κ,c,a,b,t]&&Npo[-WK,c,a,b,t]&&Npo[-WR,c,a,b,t],Print2["(\!\(\*GridBox[{
{4},
{2}
}]\))(Overscript[P, →]) (Subscript[H, ∧]) (Overscript[P, ←]) - (Overscript[P, →]) (Subscript[H, ∧]) (Overscript[P, ←]), (N^f) (Config. 28)"],
Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nze[μ3,c,a,b,t]&&Nnze[μ4,c,a,b,t]&&Nze[κ,c,a,b,t]&&Npo[-WK,c,a,b,t]&&Npo[WR,c,a,b,t],Print2["(\!\(\*GridBox[{
{4},
{2}
}]\))(Overscript[P, →]) (Subscript[(Overscript[P, ←]), ∧]) H - H (Subscript[(Overscript[P, →]), ∧]) (Overscript[P, ←]) , (N^f) (Config. 18)"],
Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nze[μ3,c,a,b,t]&&Nnze[μ4,c,a,b,t]&&Nze[κ,c,a,b,t]&&Npo[-WK,c,a,b,t]&&Nze[WR,c,a,b,t],Print2["(\!\(\*GridBox[{
{4},
{2}
}]\))(Overscript[P, →]) H - H (Overscript[P, ←]) , (N^f) (Config. 18)"],
Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nze[μ3,c,a,b,t]&&Nnze[μ4,c,a,b,t]&&Nze[κ,c,a,b,t]&&Npo[WK,c,a,b,t]&&Npo[-WL,c,a,b,t],Print2["(\!\(\*GridBox[{
{4},
{2}
}]\))(Overscript[P, ←]) (Subscript[(Overscript[P, →]), ∧]) E - E (Subscript[(Overscript[P, →]), ∧]) (Overscript[P, ←]), S (Config. 17)"],
Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nze[μ3,c,a,b,t]&&Nnze[μ4,c,a,b,t]&&Nze[κ,c,a,b,t]&&Npo[WK,c,a,b,t]&&Npo[WL,c,a,b,t],Print2["(\!\(\*GridBox[{
{4},
{2}
}]\))(Overscript[P, →]) (Subscript[(Overscript[P, ←]), ∧]) H - H (Subscript[(Overscript[P, →]), ∧]) (Overscript[P, ←]), (N^∞) (Config. 18)"],
Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nze[μ3,c,a,b,t]&&Nnze[μ4,c,a,b,t]&&Nze[κ,c,a,b,t]&&Nze[WK,c,a,b,t]&&Nnze[WL,c,a,b,t]&&Nnze[κ1,c,a,b,t],Print2["(OverHat[(({{4}, {2}}))])(Subscript[(Overscript[P, →]), ∧]) (Overscript[P, ←]) (Subscript[H, ∧]) - H, (SuperStar[N]) (Config. 13)"],
Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nze[μ3,c,a,b,t]&&Nnze[μ4,c,a,b,t]&&Nze[κ,c,a,b,t]&&Nze[WK,c,a,b,t]&&Nnze[WL,c,a,b,t]&&Nze[κ1,c,a,b,t]&&Npo[-WK2,c,a,b,t]&&Nnze[θ6,c,a,b,t],Print2["(\!\(\*GridBox[{
{4},
{2}
}]\))H - H, (N^d) (Config. 8)"],
Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nze[μ3,c,a,b,t]&&Nnze[μ4,c,a,b,t]&&Nze[κ,c,a,b,t]&&Nze[WK,c,a,b,t]&&Nnze[WL,c,a,b,t]&&Nze[κ1,c,a,b,t]&&Npo[-WK2,c,a,b,t]&&Nze[θ6,c,a,b,t],Print2["(\!\(\*GridBox[{
{4},
{2}
}]\))H - H, (SuperStar[N]) (Config. 8)"],
Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nze[μ3,c,a,b,t]&&Nnze[μ4,c,a,b,t]&&Nze[κ,c,a,b,t]&&Nze[WK,c,a,b,t]&&Nnze[WL,c,a,b,t]&&Nze[κ1,c,a,b,t]&&Npo[WK2,c,a,b,t]&&Npo[-μ4,c,a,b,t]&&Nnze[θ6,c,a,b,t],Print2["(\!\(\*GridBox[{
{4},
{2}
}]\))(Overscript[P, →]) E (Overscript[P, ←]) - H H H, (N^d) (Config. 24)"],
Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nze[μ3,c,a,b,t]&&Nnze[μ4,c,a,b,t]&&Nze[κ,c,a,b,t]&&Nze[WK,c,a,b,t]&&Nnze[WL,c,a,b,t]&&Nze[κ1,c,a,b,t]&&Npo[WK2,c,a,b,t]&&Npo[-μ4,c,a,b,t]&&Nze[θ6,c,a,b,t],Print2["(\!\(\*GridBox[{
{4},
{2}
}]\))(Overscript[P, →]) E (Overscript[P, ←]) - H H H, (SuperStar[N]) (Config. 24)"],
Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nze[μ3,c,a,b,t]&&Nnze[μ4,c,a,b,t]&&Nze[κ,c,a,b,t]&&Nze[WK,c,a,b,t]&&Nnze[WL,c,a,b,t]&&Nze[κ1,c,a,b,t]&&Npo[WK2,c,a,b,t]&&Npo[μ4,c,a,b,t]&&Nnze[θ6,c,a,b,t],Print2["(\!\(\*GridBox[{
{4},
{2}
}]\))(Overscript[P, →]) (Overscript[P, ←]) H - H (Overscript[P, →]) (Overscript[P, ←]) , (N^d) (Config. 18)"],
Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nze[μ3,c,a,b,t]&&Nnze[μ4,c,a,b,t]&&Nze[κ,c,a,b,t]&&Nze[WK,c,a,b,t]&&Nnze[WL,c,a,b,t]&&Nze[κ1,c,a,b,t]&&Npo[WK2,c,a,b,t]&&Npo[μ4,c,a,b,t]&&Nze[θ6,c,a,b,t],Print2["(\!\(\*GridBox[{
{4},
{2}
}]\))(Overscript[P, →]) (Overscript[P, ←]) H - H (Overscript[P, →]) (Overscript[P, ←]) , (SuperStar[N]) (Config. 18)"],
Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nze[μ3,c,a,b,t]&&Nnze[μ4,c,a,b,t]&&Nze[κ,c,a,b,t]&&Nze[WK,c,a,b,t]&&Nnze[WL,c,a,b,t]&&Nze[κ1,c,a,b,t]&&Nze[WK2,c,a,b,t]&&Nnze[θ6,c,a,b,t],Print2["(\!\(\*GridBox[{
{4},
{2}
}]\))(Overscript[P, →]) (Subscript[(Overscript[P, ←]), ∧]) H - H (Subscript[(Overscript[P, →]), ∧]) (Overscript[P, ←]), (N^d) (Config. 18)"],
Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nze[μ3,c,a,b,t]&&Nnze[μ4,c,a,b,t]&&Nze[κ,c,a,b,t]&&Nze[WK,c,a,b,t]&&Nnze[WL,c,a,b,t]&&Nze[κ1,c,a,b,t]&&Nze[WK2,c,a,b,t]&&Nze[θ6,c,a,b,t],Print2["(\!\(\*GridBox[{
{4},
{2}
}]\))(Overscript[P, →]) (Subscript[(Overscript[P, ←]), ∧]) H - H (Subscript[(Overscript[P, →]), ∧]) (Overscript[P, ←]), (SuperStar[N]) (Config. 18)"],
Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nze[μ3,c,a,b,t]&&Nnze[μ4,c,a,b,t]&&Nze[κ,c,a,b,t]&&Nze[WK,c,a,b,t]&&Nze[WL,c,a,b,t]&&Nnze[κ1,c,a,b,t],Print2["(OverHat[(({{1}, {2}}))])(Subscript[(Overscript[P, →]), ∧]) E (Subscript[(Overscript[P, ←]), ∧]) - H, (Overscript[(({{3}, {1}})), -])SN (Config. 11)"],
Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nze[μ3,c,a,b,t]&&Nnze[μ4,c,a,b,t]&&Nze[κ,c,a,b,t]&&Nze[WK,c,a,b,t]&&Nze[WL,c,a,b,t]&&Nze[κ1,c,a,b,t]&&Nnze[WK1,c,a,b,t],Print2["(\!\(\*GridBox[{
{3},
{2}
}]\))E (Overscript[P, ←]) - (Overscript[P, ←])  H, (Overscript[(({{1}, {1}})), -])SN (Config. 15)"],
Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nze[μ3,c,a,b,t]&&Nnze[μ4,c,a,b,t]&&Nze[κ,c,a,b,t]&&Nze[WK,c,a,b,t]&&Nze[WL,c,a,b,t]&&Nze[κ1,c,a,b,t]&&Nze[WK1,c,a,b,t]&&Npo[-WL1,c,a,b,t],Print2["(\!\(\*GridBox[{
{2},
{2}
}]\))E - E, (Overscript[(({{2}, {1}})), -])S (Config. 17)"],
Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nze[μ3,c,a,b,t]&&Nnze[μ4,c,a,b,t]&&Nze[κ,c,a,b,t]&&Nze[WK,c,a,b,t]&&Nze[WL,c,a,b,t]&&Nze[κ1,c,a,b,t]&&Nze[WK1,c,a,b,t]&&Npo[WL1,c,a,b,t],Print2["(\!\(\*GridBox[{
{2},
{2}
}]\))H - H, (Overscript[(({{2}, {1}})), -])N (Config. 8)"],
Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nze[μ3,c,a,b,t]&&Nze[μ4,c,a,b,t]&&Nnze[κ,c,a,b,t],Print2["(Overscript[(({{0}, {2}})), -])SN, (⊖ [|],∅) (((Subscript[QD, 6])^∞))"],
Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nze[μ3,c,a,b,t]&&Nze[μ4,c,a,b,t]&&Nze[κ,c,a,b,t]&&Npo[-WK,c,a,b,t]&&Nnze[WK2,c,a,b,t],Print2["(N^f), (⊖ [|],(Subscript[(N^f), ∧])) (((Subscript[QD, 7])^∞))"],
Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nze[μ3,c,a,b,t]&&Nze[μ4,c,a,b,t]&&Nze[κ,c,a,b,t]&&Npo[-WK,c,a,b,t]&&Nze[WK2,c,a,b,t],Print2["(N^f), (⊖ [|],(Subscript[(N^f), /])) (((Subscript[QD, 8])^∞))"],
Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nze[μ3,c,a,b,t]&&Nze[μ4,c,a,b,t]&&Nze[κ,c,a,b,t]&&Npo[WK,c,a,b,t]&&Npo[-WL,c,a,b,t]&&Nnze[WK2,c,a,b,t],Print2["S, (⊖ [|],(Subscript[(N^∞), ∧])) (((Subscript[QD, 9])^∞))"],
Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nze[μ3,c,a,b,t]&&Nze[μ4,c,a,b,t]&&Nze[κ,c,a,b,t]&&Npo[WK,c,a,b,t]&&Npo[-WL,c,a,b,t]&&Nze[WK2,c,a,b,t],Print2["S, (⊖ [|],(Subscript[(N^∞), /])) (((Subscript[QD, 10])^∞))"],
Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nze[μ3,c,a,b,t]&&Nze[μ4,c,a,b,t]&&Nze[κ,c,a,b,t]&&Npo[WK,c,a,b,t]&&Npo[WL,c,a,b,t]&&Nnze[WK2,c,a,b,t],Print2["(N^∞), (⊖ [|],(Subscript[S, ∧])) (((Subscript[QD, 11])^∞))"],
Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nze[μ3,c,a,b,t]&&Nze[μ4,c,a,b,t]&&Nze[κ,c,a,b,t]&&Npo[WK,c,a,b,t]&&Npo[WL,c,a,b,t]&&Nze[WK2,c,a,b,t],Print2["(N^∞), (⊖ [|],(Subscript[S, /])) (((Subscript[QD, 12])^∞))"],
Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nze[μ3,c,a,b,t]&&Nze[μ4,c,a,b,t]&&Nze[κ,c,a,b,t]&&Nze[WK,c,a,b,t]&&Nnze[WL,c,a,b,t]&&Nnze[κ1,c,a,b,t],Print2["(SuperStar[N]), (⊖ [⋃],∅) (((Subscript[QD, 13])^∞))"],
Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nze[μ3,c,a,b,t]&&Nze[μ4,c,a,b,t]&&Nze[κ,c,a,b,t]&&Nze[WK,c,a,b,t]&&Nnze[WL,c,a,b,t]&&Nze[κ1,c,a,b,t]&&Npo[-WK2,c,a,b,t],Print2["(SuperStar[N]), (⊖ [(\[LeftDoubleBracketingBar]^c)],∅) (((Subscript[QD, 30])^∞))"],
Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nze[μ3,c,a,b,t]&&Nze[μ4,c,a,b,t]&&Nze[κ,c,a,b,t]&&Nze[WK,c,a,b,t]&&Nnze[WL,c,a,b,t]&&Nze[κ1,c,a,b,t]&&Npo[WK2,c,a,b,t]&&Nnze[θ6,c,a,b,t],Print2["(N^d), (⊖ [|],(Overscript[(({{1}, {1}})), -])(Subscript[SN, ∧])) (((Subscript[QD, 14])^∞))"],
Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nze[μ3,c,a,b,t]&&Nze[μ4,c,a,b,t]&&Nze[κ,c,a,b,t]&&Nze[WK,c,a,b,t]&&Nnze[WL,c,a,b,t]&&Nze[κ1,c,a,b,t]&&Npo[WK2,c,a,b,t]&&Nze[θ6,c,a,b,t],Print2["(SuperStar[N]), (⊖ [\[LeftDoubleBracketingBar]],∅) (((Subscript[QD, 15])^∞))"],
Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nze[μ3,c,a,b,t]&&Nze[μ4,c,a,b,t]&&Nze[κ,c,a,b,t]&&Nze[WK,c,a,b,t]&&Nnze[WL,c,a,b,t]&&Nze[κ1,c,a,b,t]&&Nze[WK2,c,a,b,t]&&Nnze[θ6,c,a,b,t],Print2["(N^d), (⊖ [|],(Overscript[(({{1}, {1}})), -])(Subscript[SN, /])) (((Subscript[QD, 16])^∞))"],
Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nze[μ3,c,a,b,t]&&Nze[μ4,c,a,b,t]&&Nze[κ,c,a,b,t]&&Nze[WK,c,a,b,t]&&Nnze[WL,c,a,b,t]&&Nze[κ1,c,a,b,t]&&Nze[WK2,c,a,b,t]&&Nze[θ6,c,a,b,t],Print2["(SuperStar[N]), (⊖ [\[RightBracketingBar]2],∅) (((Subscript[QD, 17])^∞))"],
Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nze[μ3,c,a,b,t]&&Nze[μ4,c,a,b,t]&&Nze[κ,c,a,b,t]&&Nze[WK,c,a,b,t]&&Nze[WL,c,a,b,t]&&Nnze[κ1,c,a,b,t],Print2["(OverHat[(({{1}, {2}}))])E - H, (⊖ [\[RightBracketingBar]],∅) (((Subscript[QD, 18])^∞))"],
Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nze[μ3,c,a,b,t]&&Nze[μ4,c,a,b,t]&&Nze[κ,c,a,b,t]&&Nze[WK,c,a,b,t]&&Nze[WL,c,a,b,t]&&Nze[κ1,c,a,b,t]&&Nnze[WK1,c,a,b,t],Print2["(Overscript[(({{1}, {1}})), -])SN, (⊖ [\[RightBracketingBar]],(N^d)) (((Subscript[QD, 19])^∞))"],
Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nze[μ3,c,a,b,t]&&Nze[μ4,c,a,b,t]&&Nze[κ,c,a,b,t]&&Nze[WK,c,a,b,t]&&Nze[WL,c,a,b,t]&&Nze[κ1,c,a,b,t]&&Nze[WK1,c,a,b,t]&&Nnze[WL2,c,a,b,t],Print2["(⊖ [)(],(SuperStar[N]),∅) (((Subscript[QD, 20])^∞))"],
Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nze[μ3,c,a,b,t]&&Nze[μ4,c,a,b,t]&&Nze[κ,c,a,b,t]&&Nze[WK,c,a,b,t]&&Nze[WL,c,a,b,t]&&Nze[κ1,c,a,b,t]&&Nze[WK1,c,a,b,t]&&Nze[WL2,c,a,b,t],Print2["(⊖ [×],(SuperStar[N]),∅) (((Subscript[QD, 21])^∞))"],
Nze[η,c,a,b,t]&&Nze[WM,c,a,b,t]&&Nnze[WC2,c,a,b,t]&&Npo[-μ0,c,a,b,t],Print2["(Overscript[(({{0}, {3}})), -])S (Config. 34)"],
Nze[η,c,a,b,t]&&Nze[WM,c,a,b,t]&&Nnze[WC2,c,a,b,t]&&Npo[μ0,c,a,b,t],Print2["(Overscript[(({{0}, {3}})), -])N (Config. 30)"],
Nze[η,c,a,b,t]&&Nze[WM,c,a,b,t]&&Nnze[WC2,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nnze[μ1,c,a,b,t],Print2["(OverHat[(({{1}, {3}}))])(Subscript[H, ∧]) H (Subscript[(Overscript[P, →]), ∧]) - (Overscript[P, ←])  (Config. 37)"],
Nze[η,c,a,b,t]&&Nze[WM,c,a,b,t]&&Nnze[WC2,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nnze[μ2,c,a,b,t]&&Nnze[WK,c,a,b,t]&&Npo[-μ2,c,a,b,t],Print2["(\!\(\*GridBox[{
{2},
{3}
}]\))H H (Overscript[P, →]) - (Overscript[P, ←]) H H (Config. 40)"],
Nze[η,c,a,b,t]&&Nze[WM,c,a,b,t]&&Nnze[WC2,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nnze[μ2,c,a,b,t]&&Nnze[WK,c,a,b,t]&&Npo[μ2,c,a,b,t]&&Npo[-WK2,c,a,b,t],Print2["(\!\(\*GridBox[{
{2},
{3}
}]\))(Overscript[P, →]) - (Overscript[P, ←]) (Config. 30)"],
Nze[η,c,a,b,t]&&Nze[WM,c,a,b,t]&&Nnze[WC2,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nnze[μ2,c,a,b,t]&&Nnze[WK,c,a,b,t]&&Npo[μ2,c,a,b,t]&&Npo[WK2,c,a,b,t],Print2["(\!\(\*GridBox[{
{2},
{3}
}]\))H (Overscript[P, →]) E - (Overscript[P, ←]) (Overscript[P, →]) (Overscript[P, ←]) (Config. 32)"],
Nze[η,c,a,b,t]&&Nze[WM,c,a,b,t]&&Nnze[WC2,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nnze[μ2,c,a,b,t]&&Nnze[WK,c,a,b,t]&&Npo[μ2,c,a,b,t]&&Nze[WK2,c,a,b,t],Print2["(\!\(\*GridBox[{
{2},
{3}
}]\))H E - (Overscript[P, ←]) (Overscript[P, ←]) (Config. 32)"],
Nze[η,c,a,b,t]&&Nze[WM,c,a,b,t]&&Nnze[WC2,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nnze[μ2,c,a,b,t]&&Nze[WK,c,a,b,t],Print2["(\!\(\*GridBox[{
{2},
{3}
}]\))(Subscript[(Overscript[P, →]), ∧]) (Overscript[P, ←]) - (Subscript[(Overscript[P, →]), ∧]) (Overscript[P, ←]) (Config. 30)"],
Nze[η,c,a,b,t]&&Nze[WM,c,a,b,t]&&Nnze[WC2,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nnze[μ3,c,a,b,t]&&Nnze[WK,c,a,b,t]&&Npo[-WK3,c,a,b,t],Print2["(\!\(\*GridBox[{
{3},
{3}
}]\)) H (Overscript[P, →]) E - (Overscript[P, ←]) H H (Config. 39)"],
Nze[η,c,a,b,t]&&Nze[WM,c,a,b,t]&&Nnze[WC2,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nnze[μ3,c,a,b,t]&&Nnze[WK,c,a,b,t]&&Npo[WK3,c,a,b,t],Print2["(\!\(\*GridBox[{
{3},
{3}
}]\)) H H (Overscript[P, →]) - (Overscript[P, ←]) (Overscript[P, →]) (Overscript[P, ←]) (Config. 37)"],
Nze[η,c,a,b,t]&&Nze[WM,c,a,b,t]&&Nnze[WC2,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nnze[μ3,c,a,b,t]&&Nze[WK,c,a,b,t]&&Npo[-μ3 WK1,c,a,b,t],Print2["(\!\(\*GridBox[{
{3},
{3}
}]\)) (Subscript[(Overscript[P, →]), ∧]) E E (Subscript[(Overscript[P, ←]), ∧]) - (Overscript[P, →]) (Overscript[P, ←]) (Config. 33)"],
Nze[η,c,a,b,t]&&Nze[WM,c,a,b,t]&&Nnze[WC2,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nnze[μ3,c,a,b,t]&&Nze[WK,c,a,b,t]&&Npo[-μ3 WK1,c,a,b,t]&&Npo[-WK3,c,a,b,t],Print2["(\!\(\*GridBox[{
{3},
{3}
}]\)) (Subscript[H, ∧]) (Overscript[P, ←]) (Overscript[P, →]) (Subscript[H, ∧]) - (Overscript[P, ←]) (Overscript[P, →]) (Config. 38)"],
Nze[η,c,a,b,t]&&Nze[WM,c,a,b,t]&&Nnze[WC2,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nnze[μ3,c,a,b,t]&&Nze[WK,c,a,b,t]&&Npo[-μ3 WK1,c,a,b,t]&&Npo[WK3,c,a,b,t],Print2["(\!\(\*GridBox[{
{3},
{3}
}]\))  (Subscript[(Overscript[P, →]), ∧]) (Overscript[P, ←]) (Overscript[P, →]) (Subscript[(Overscript[P, ←]), ∧]) - (Overscript[P, ←]) (Overscript[P, →]) (Config. 31)"],
Nze[η,c,a,b,t]&&Nze[WM,c,a,b,t]&&Nnze[WC2,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nnze[μ3,c,a,b,t]&&Nze[WK,c,a,b,t]&&Npo[-μ3 WK1,c,a,b,t]&&Nze[WK3,c,a,b,t],Print2["(\!\(\*GridBox[{
{3},
{3}
}]\))  H H - (Overscript[P, ←]) (Overscript[P, →]) (Config. 31)"],
Nze[η,c,a,b,t]&&Nze[WM,c,a,b,t]&&Nnze[WC2,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nze[μ3,c,a,b,t]&&Nnze[μ4,c,a,b,t]&&Nnze[WK,c,a,b,t]&&Npo[-WK3,c,a,b,t],Print2["(\!\(\*GridBox[{
{4},
{3}
}]\)) E (Subscript[(Overscript[P, ←]), ∧]) H - H (Subscript[(Overscript[P, →]), ∧]) E (Config. 36)"],
Nze[η,c,a,b,t]&&Nze[WM,c,a,b,t]&&Nnze[WC2,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nze[μ3,c,a,b,t]&&Nnze[μ4,c,a,b,t]&&Nnze[WK,c,a,b,t]&&Npo[WK3,c,a,b,t],Print2["(\!\(\*GridBox[{
{4},
{3}
}]\)) (Overscript[P, ←]) (Subscript[(Overscript[P, →]), ∧]) (Overscript[P, →]) - (Overscript[P, →]) (Subscript[(Overscript[P, ←]), ∧]) (Overscript[P, ←]) (Config. 30)"],
Nze[η,c,a,b,t]&&Nze[WM,c,a,b,t]&&Nnze[WC2,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nze[μ3,c,a,b,t]&&Nnze[μ4,c,a,b,t]&&Nze[WK,c,a,b,t]&&Nnze[WK1,c,a,b,t]&&Npo[-μ4,c,a,b,t],Print2["(\!\(\*GridBox[{
{4},
{3}
}]\)) (Subscript[(Overscript[P, →]), ∧]) E E (Subscript[(Overscript[P, ←]), ∧]) - H H (Config. 35)"],
Nze[η,c,a,b,t]&&Nze[WM,c,a,b,t]&&Nnze[WC2,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nze[μ3,c,a,b,t]&&Nnze[μ4,c,a,b,t]&&Nze[WK,c,a,b,t]&&Nnze[WK1,c,a,b,t]&&Npo[μ4,c,a,b,t],Print2["(\!\(\*GridBox[{
{4},
{3}
}]\)) (Subscript[(Overscript[P, →]), ∧]) (Overscript[P, ←]) (Overscript[P, →]) (Subscript[(Overscript[P, ←]), ∧]) - (Overscript[P, →]) (Overscript[P, ←]) (Config. 30)"],
Nze[η,c,a,b,t]&&Nze[WM,c,a,b,t]&&Nnze[WC2,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nze[μ3,c,a,b,t]&&Nnze[μ4,c,a,b,t]&&Nze[WK,c,a,b,t]&&Nze[WK1,c,a,b,t]&&Nnze[WK3,c,a,b,t],Print2["(\!\(\*GridBox[{
{4},
{3}
}]\)) (Subscript[(Overscript[P, →]), ∧]) E (Subscript[H, ∧]) - (Overscript[P, →]) (Config. 32)"],
Nze[η,c,a,b,t]&&Nze[WM,c,a,b,t]&&Nnze[WC2,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nze[μ3,c,a,b,t]&&Nnze[μ4,c,a,b,t]&&Nze[WK,c,a,b,t]&&Nze[WK1,c,a,b,t]&&Nze[WK3,c,a,b,t],Print2["(\!\(\*GridBox[{
{4},
{3}
}]\)) (Subscript[(Overscript[P, →]), ∧]) (Overscript[P, ←]) - (Overscript[P, →]) (Subscript[(Overscript[P, ←]), ∧]) (Config. 30)"],
Nze[η,c,a,b,t]&&Nze[WM,c,a,b,t]&&Nnze[WC2,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nze[μ3,c,a,b,t]&&Nze[μ4,c,a,b,t]&&Nnze[WK,c,a,b,t]&&Nnze[WK2,c,a,b,t],Print2["(⊖ [|],(Overscript[(({{0}, {2}})), -])(Subscript[SN, ∧])) (((Subscript[QD, 22])^∞))"],
Nze[η,c,a,b,t]&&Nze[WM,c,a,b,t]&&Nnze[WC2,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nze[μ3,c,a,b,t]&&Nze[μ4,c,a,b,t]&&Nnze[WK,c,a,b,t]&&Nze[WK2,c,a,b,t],Print2["(⊖ [|],(Overscript[(({{0}, {2}})), -])(Subscript[SN, /])) (((Subscript[QD, 23])^∞))"],
Nze[η,c,a,b,t]&&Nze[WM,c,a,b,t]&&Nnze[WC2,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nze[μ3,c,a,b,t]&&Nze[μ4,c,a,b,t]&&Nze[WK,c,a,b,t]&&Nnze[WK1,c,a,b,t],Print2["(⊖ [|],(OverHat[(({{1}, {2}}))])E - H ) (((Subscript[QD, 24])^∞))"],
Nze[η,c,a,b,t]&&Nze[WM,c,a,b,t]&&Nnze[WC2,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nze[μ3,c,a,b,t]&&Nze[μ4,c,a,b,t]&&Nze[WK,c,a,b,t]&&Nze[WK1,c,a,b,t]&&Nnze[WK3,c,a,b,t],Print2["(⊖ [⋃],(SuperStar[N])) (((Subscript[QD, 25])^∞))"],
Nze[η,c,a,b,t]&&Nze[WM,c,a,b,t]&&Nnze[WC2,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nze[μ3,c,a,b,t]&&Nze[μ4,c,a,b,t]&&Nze[WK,c,a,b,t]&&Nze[WK1,c,a,b,t]&&Nze[WK3,c,a,b,t]&&Npo[-WL3,c,a,b,t],Print2["(⊖ [(\[LeftDoubleBracketingBar]^c)],(SuperStar[N])) (((Subscript[QD, 30])^∞))"],
Nze[η,c,a,b,t]&&Nze[WM,c,a,b,t]&&Nnze[WC2,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nze[μ3,c,a,b,t]&&Nze[μ4,c,a,b,t]&&Nze[WK,c,a,b,t]&&Nze[WK1,c,a,b,t]&&Nze[WK3,c,a,b,t]&&Npo[WL3,c,a,b,t],Print2["(⊖ [\[LeftDoubleBracketingBar]],(SuperStar[N])) (((Subscript[QD, 26])^∞))"],
Nze[η,c,a,b,t]&&Nze[WM,c,a,b,t]&&Nnze[WC2,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nze[μ3,c,a,b,t]&&Nze[μ4,c,a,b,t]&&Nze[WK,c,a,b,t]&&Nze[WK1,c,a,b,t]&&Nze[WK3,c,a,b,t]&&Nze[WL3,c,a,b,t],Print2["(⊖ [|2],(SuperStar[N])) (((Subscript[QD, 27])^∞))"],
Nze[η,c,a,b,t]&&Nze[WM,c,a,b,t]&&Nze[WC2,c,a,b,t]&&Nnze[μ1,c,a,b,t],Print2["[∞ , ∅] (Config. 41)"],
Nze[η,c,a,b,t]&&Nze[WM,c,a,b,t]&&Nze[WC2,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Npo[-μ2,c,a,b,t],Print2["[∞ , S] (Config. 42)"],
Nze[η,c,a,b,t]&&Nze[WM,c,a,b,t]&&Nze[WC2,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Npo[μ2,c,a,b,t]&&Npo[-WK2,c,a,b,t],Print2["[∞ , C] (Config. 43)"],

Nze[η,c,a,b,t]&&Nze[WM,c,a,b,t]&&Nze[WC2,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Npo[μ2,c,a,b,t]&&Npo[WK2,c,a,b,t],Print2["[∞ , N] (Config. 44)"],

Nze[η,c,a,b,t]&&Nze[WM,c,a,b,t]&&Nze[WC2,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Npo[μ2,c,a,b,t]&&Nze[WK2,c,a,b,t],Print2["[∞ , (N^d)] (Config. 44)"],

Nze[η,c,a,b,t]&&Nze[WM,c,a,b,t]&&Nze[WC2,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nnze[μ3,c,a,b,t],Print2["[∞ ,(Overscript[(({{2}, {0}})), -])SN] (Config. 45)"],

Nze[η,c,a,b,t]&&Nze[WM,c,a,b,t]&&Nze[WC2,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nze[μ3,c,a,b,t]&&Nnze[μ4,c,a,b,t],Print2["[∞ ,(OverHat[(({{3}, {0}}))])ES] (Config. 46)"],

Nze[η,c,a,b,t]&&Nze[WM,c,a,b,t]&&Nze[WC2,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nze[μ3,c,a,b,t]&&Nze[μ4,c,a,b,t]&&Nnze[WK2,c,a,b,t],Print2["[∞ ,(⊖ [|],(Subscript[∞, ∧]))] (((Subscript[QD, 28])^∞))"],
Nze[η,c,a,b,t]&&Nze[WM,c,a,b,t]&&Nze[WC2,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nze[μ3,c,a,b,t]&&Nze[μ4,c,a,b,t]&&Nze[WK2,c,a,b,t],Print2["[∞ ,(⊖ [|],(Subscript[∞, /]))] (((Subscript[QD, 28])^∞))"],True,Print2["Something fails"]
]}

shockme[tol_]:={c={},a={},b={},Print2["The quadratic differential system"];Print2[(∂_t)var1==P/.change];Print2[(∂_t)var2==Q/.change];Print2["has the following configuration of singular points"];Nfinite[c,a,b,tol];Nweak[c,a,b,tol];Nstarnode[c,a,b,tol];Ncenters[c,a,b,tol];NinfiniteGeo[c,a,b,tol];Print2["up to precission 10^(",-tol,")"]};

Ninfinite makes a complete description of infinite singular points for a parametrized system. The set "c" are the equalities know among the parameters, "a" corresponds to expressions known to be positive and "b" to expressions known to be different from zero.

Ninfinite[c_,a_,b_,t_]:={tot=Union[Table[c[[i]]==0,{i,1,Length[c]}],Table[a[[i]]>0,{i,1,Length[a]}],Table[b[[i]]^2>0,{i,1,Length[b]}],Table[b[[i]]≠0,{i,1,Length[b]}],{var1≠0},{var2≠0}];Which[

Nze[WC2,c,a,b,t]&&Nnze[μ0,c,a,b,t],Print2["Incongruence WC2=0 with μ0 ≠ 0 "],

Nze[WC2,c,a,b,t]&&Nnze[μ1,c,a,b,t],Print2["(∞ ∅) (Fig.41)"],

Nze[WC2,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Npo[-μ2,c,a,b,t],Print2["(∞ S) (Fig.42)"],

Nze[WC2,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Npo[μ2,c,a,b,t]&&Npo[-WK2,c,a,b,t],Print2["(∞ C o F) (Fig.43)"],

Nze[WC2,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Npo[μ2,c,a,b,t]&&¬Npo[-WK2,c,a,b,t],Print2["(∞ N) (Fig.44)"],

Nze[WC2,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Npo[μ2,c,a,b,t]&&Nze[WK2,c,a,b,t],Print2["(∞ (N^d)) (Fig.44)"],

Nze[WC2,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nnze[μ3,c,a,b,t],Print2["(∞ (OverBar[SN])) (Fig.45)"],

Nze[WC2,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nze[μ3,c,a,b,t],Print2["(∞ (OverHat[ES])) (Fig.46)"],

Nnze[WC2,c,a,b,t]&&Npo[η,c,a,b,t]&&Npo[-μ0,c,a,b,t]&&Npo[κ,c,a,b,t],Print2[MatrixForm[{{i},{fin},{inf}}],"   ",MatrixForm[{{1},{0},{1}}],"N","   ",MatrixForm[{{1},{0},{1}}],"N","   ",MatrixForm[{{1},{0},{1}}],"N","   ",MatrixForm["(Fig.1a)"]],

Nnze[WC2,c,a,b,t]&&Npo[η,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Npo[-μ2,c,a,b,t]&&Npo[κ,c,a,b,t],Print2[MatrixForm[{{i},{fin},{inf}}],"   ",MatrixForm[{{1},{2},{1}}],(OverBar[N]),"   ",MatrixForm[{{1},{0},{1}}],"N","   ",MatrixForm[{{1},{0},{1}}],"N","   ",MatrixForm["(Fig.1b)"]],

Nnze[WC2,c,a,b,t]&&Npo[η,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nnze[μ1,c,a,b,t]&&Npo[κ,c,a,b,t],Print2[MatrixForm[{{i},{fin},{inf}}],"   ",MatrixForm[{{0},{1},{1}}],(OverBar[SN]),"   ",MatrixForm[{{1},{0},{1}}],"N","   ",MatrixForm[{{1},{0},{1}}],"N","   ",MatrixForm["(Fig.2a)"]],

Nnze[WC2,c,a,b,t]&&Npo[η,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nnze[μ3,c,a,b,t]&&Npo[κ,c,a,b,t],Print2[MatrixForm[{{i},{fin},{inf}}],"   ",MatrixForm[{{0},{3},{1}}],(OverBar[SN]),"   ",MatrixForm[{{1},{0},{1}}],"N","   ",MatrixForm[{{1},{0},{1}}],"N","   ",MatrixForm["(Fig.2b)"]],

Nnze[WC2,c,a,b,t]&&Npo[η,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Npo[μ3*WK1,c,a,b,t]&&Nze[κ,c,a,b,t],Print2[MatrixForm[{{i},{fin},{inf}}],"   ",MatrixForm[{{1},{2},{1}}],(OverBar[N]),"   ",MatrixForm[{{0},{1},{1}}],(OverBar[SN]),"   ",MatrixForm[{{1},{0},{1}}],"N","   ",MatrixForm["(Fig.2c)"]],

Nnze[WC2,c,a,b,t]&&Npo[η,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Npo[-μ2*WL,c,a,b,t]&&Nze[κ,c,a,b,t],Print2[MatrixForm[{{i},{fin},{inf}}],"   ",MatrixForm[{{0},{1},{1}}],(OverBar[SN]),"   ",MatrixForm[{{0},{1},{1}}],(OverBar[SN]),"   ",MatrixForm[{{1},{0},{1}}],"N","   ",MatrixForm["(Fig.3a)"]],

Nnze[WC2,c,a,b,t]&&Npo[η,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nze[μ3,c,a,b,t]&&Npo[-μ4*WL,c,a,b,t]&&Nze[κ,c,a,b,t]&&Nnze[WK1,c,a,b,t],Print2[MatrixForm[{{i},{fin},{inf}}],"   ",MatrixForm[{{0},{3},{1}}],(OverBar[SN]),"   ",MatrixForm[{{0},{1},{1}}],(OverBar[SN]),"   ",MatrixForm[{{1},{0},{1}}],"N","   ",MatrixForm["(Fig.3b)"]],

Nnze[WC2,c,a,b,t]&&Npo[η,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Npo[μ2*WL,c,a,b,t]&&Nze[κ,c,a,b,t],Print2[MatrixForm[{{i},{fin},{inf}}],"   ",MatrixForm[{{0},{1},{1}}],(OverBar[SN]),"   ",MatrixForm[{{0},{1},{1}}],(OverBar[SN]),"   ",MatrixForm[{{1},{0},{1}}],"N","   ",MatrixForm["(Fig.4a)"]],

Nnze[WC2,c,a,b,t]&&Npo[η,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nze[μ3,c,a,b,t]&&Npo[μ4*WL,c,a,b,t]&&Nze[κ,c,a,b,t]&&Nnze[WK1,c,a,b,t],Print2[MatrixForm[{{i},{fin},{inf}}],"   ",MatrixForm[{{0},{3},{1}}],(OverBar[SN]),"   ",MatrixForm[{{0},{1},{1}}],(OverBar[SN]),"   ",MatrixForm[{{1},{0},{1}}],"N","   ",MatrixForm["(Fig.4b)"]],

Nnze[WC2,c,a,b,t]&&Npo[η,c,a,b,t]&&Npo[μ0,c,a,b,t],Print2[MatrixForm[{{i},{fin},{inf}}],"   ",MatrixForm[{{1},{0},{1}}],"N","   ",MatrixForm[{{1},{0},{1}}],"N","   ",MatrixForm[{{-1},{0},{1}}],"S","   ",MatrixForm["(Fig.5a)"]],

Nnze[WC2,c,a,b,t]&&Npo[η,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Npo[μ2,c,a,b,t]&&Npo[-κ,c,a,b,t],Print2[MatrixForm[{{i},{fin},{inf}}],"   ",MatrixForm[{{1},{2},{1}}],(OverBar[N]),"   ",MatrixForm[{{1},{0},{1}}],"N","   ",MatrixForm[{{-1},{0},{1}}],"S","   ",MatrixForm["(Fig.5b)"]],

Nnze[WC2,c,a,b,t]&&Npo[η,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nze[μ3,c,a,b,t]&&Nnze[μ4,c,a,b,t]&&Npo[-κ,c,a,b,t],Print2[MatrixForm[{{i},{fin},{inf}}],"   ",MatrixForm[{{1},{4},{1}}],(OverBar[N]),"   ",MatrixForm[{{1},{0},{1}}],"N","   ",MatrixForm[{{-1},{0},{1}}],"S","   ",MatrixForm["(Fig.5c)"]],

Nnze[WC2,c,a,b,t]&&Npo[η,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Npo[μ2,c,a,b,t]&&Npo[κ,c,a,b,t],Print2[MatrixForm[{{i},{fin},{inf}}],"   ",MatrixForm[{{-1},{2},{1}}],(OverBar[S]),"   ",MatrixForm[{{1},{0},{1}}],"N","   ",MatrixForm[{{1},{0},{1}}],"N","   ",MatrixForm["(Fig.5d)"]],

Nnze[WC2,c,a,b,t]&&Npo[η,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nze[μ3,c,a,b,t]&&Nnze[μ4,c,a,b,t]&&Npo[κ,c,a,b,t],Print2[MatrixForm[{{i},{fin},{inf}}],"   ",MatrixForm[{{-1},{4},{1}}],(OverBar[S]),"   ",MatrixForm[{{1},{0},{1}}],"N","   ",MatrixForm[{{1},{0},{1}}],"N","   ",MatrixForm["(Fig.5e)"]],

Nnze[WC2,c,a,b,t]&&Npo[η,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nze[μ3,c,a,b,t]&&Nnze[μ4,c,a,b,t]&&Nze[κ,c,a,b,t]&&Nze[WK1,c,a,b,t],Print2[MatrixForm[{{i},{fin},{inf}}],"   ",MatrixForm[{{-1},{2},{1}}],(OverBar[S]),"   ",MatrixForm[{{1},{2},{1}}],(OverBar[N]),"   ",MatrixForm[{{1},{0},{1}}],"N","   ",MatrixForm["(Fig.5f)"]],

Nnze[WC2,c,a,b,t]&&Npo[η,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nnze[μ1,c,a,b,t]&&Npo[-κ,c,a,b,t],Print2[MatrixForm[{{i},{fin},{inf}}],"   ",MatrixForm[{{0},{1},{1}}],(OverBar[SN]),"   ",MatrixForm[{{1},{0},{1}}],"N","   ",MatrixForm[{{-1},{0},{1}}],"S","   ",MatrixForm["(Fig.6a)"]],

Nnze[WC2,c,a,b,t]&&Npo[η,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nnze[μ3,c,a,b,t]&&Npo[-κ,c,a,b,t],Print2[MatrixForm[{{i},{fin},{inf}}],"   ",MatrixForm[{{0},{3},{1}}],(OverBar[SN]),"   ",MatrixForm[{{1},{0},{1}}],"N","   ",MatrixForm[{{-1},{0},{1}}],"S","   ",MatrixForm["(Fig.6b)"]],

Nnze[WC2,c,a,b,t]&&Npo[η,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Npo[μ3*WK1,c,a,b,t]&&Nze[κ,c,a,b,t],Print2[MatrixForm[{{i},{fin},{inf}}],"   ",MatrixForm[{{1},{2},{1}}],(OverBar[N]),"   ",MatrixForm[{{0},{1},{1}}],(OverBar[SN]),"   ",MatrixForm[{{-1},{0},{1}}],"S","   ",MatrixForm["(Fig.6c)"]],

Nnze[WC2,c,a,b,t]&&Npo[η,c,a,b,t]&&Npo[-μ0,c,a,b,t]&&Npo[-κ,c,a,b,t],Print2[MatrixForm[{{i},{fin},{inf}}],"   ",MatrixForm[{{-1},{0},{1}}],"S","   ",MatrixForm[{{-1},{0},{1}}],"S","   ",MatrixForm[{{1},{0},{1}}],"N","   ",MatrixForm["(Fig.7a)"]],

Nnze[WC2,c,a,b,t]&&Npo[η,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Npo[-μ2,c,a,b,t]&&Npo[-κ,c,a,b,t],Print2[MatrixForm[{{i},{fin},{inf}}],"   ",MatrixForm[{{-1},{2},{1}}],(OverBar[S]),"   ",MatrixForm[{{-1},{0},{1}}],"S","   ",MatrixForm[{{1},{0},{1}}],"N","   ",MatrixForm["(Fig.7b)"]],

Nnze[WC2,c,a,b,t]&&Nze[η,c,a,b,t]&&Nze[κ,c,a,b,t]&&Nze[κ1,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nnze[μ2,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Npo[WL,c,a,b,t]&&Npo[-WK2,c,a,b,t],Print2[MatrixForm[{{i},{fin},{inf}}],"   ",MatrixForm[{{0},{2},{2}}], "H - H","   ",MatrixForm[{{1},{0},{1}}],"N","   ",MatrixForm["(Fig.8a)"]],

Nnze[WC2,c,a,b,t]&&Nze[η,c,a,b,t]&&Nze[κ,c,a,b,t]&&Nze[κ1,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nze[μ3,c,a,b,t]&&Nnze[μ4,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nnze[WL,c,a,b,t]&&Npo[-WK2,c,a,b,t]&&Nze[WK,c,a,b,t],Print2[MatrixForm[{{i},{fin},{inf}}],"   ",MatrixForm[{{0},{4},{2}}], "H - H","   ",MatrixForm[{{1},{0},{1}}],"N","   ",MatrixForm["(Fig.8b)"]],

Nnze[WC2,c,a,b,t]&&Nze[η,c,a,b,t]&&Nze[κ,c,a,b,t]&&Nze[κ1,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nze[μ3,c,a,b,t]&&Nnze[μ4,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[WL,c,a,b,t]&&Npo[-κ2,c,a,b,t]&&Nze[WK1,c,a,b,t],Print2[MatrixForm[{{i},{fin},{inf}}],"   ",MatrixForm[{{0},{2},{2}}], "H - H","   ",MatrixForm[{{1},{2},{1}}],(OverBar[N]),"   ",MatrixForm["(Fig.8c)"]],

Nnze[WC2,c,a,b,t]&&Nze[η,c,a,b,t]&&Nze[κ,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nnze[μ1,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Npo[WL,c,a,b,t]&&Npo[-WK,c,a,b,t],Print2[MatrixForm[{{i},{fin},{inf}}],"   ",MatrixForm[{{1},{1},{2}}], "E - H","   ",MatrixForm[{{1},{0},{1}}],"N","   ",MatrixForm["(Fig.9a)"]],

Nnze[WC2,c,a,b,t]&&Nze[η,c,a,b,t]&&Nze[κ,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nnze[κ1,c,a,b,t]&&Nnze[WL,c,a,b,t]&&Npo[-μ3*WK1,c,a,b,t],Print2[MatrixForm[{{i},{fin},{inf}}],"   ",MatrixForm[{{1},{3},{2}}], "E - H","   ",MatrixForm[{{1},{0},{1}}],"N","   ",MatrixForm["(Fig.9b)"]],

Nnze[WC2,c,a,b,t]&&Nze[η,c,a,b,t]&&Nze[κ,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nnze[κ1,c,a,b,t]&&Nze[WL,c,a,b,t]&&Npo[-μ3*WK1,c,a,b,t],Print2[MatrixForm[{{i},{fin},{inf}}],"   ",MatrixForm[{{1},{1},{2}}], "E - H","   ",MatrixForm[{{1},{2},{1}}],(OverBar[N]),"   ",MatrixForm["(Fig.9c)"]],

Nnze[WC2,c,a,b,t]&&Nze[η,c,a,b,t]&&Nze[κ,c,a,b,t]&&Nze[κ1,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Npo[-μ2,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Npo[WL,c,a,b,t]&&Npo[-WK,c,a,b,t],Print2[MatrixForm[{{i},{fin},{inf}}],"   ",MatrixForm[{{2},{2},{2}}], "E - E","   ",MatrixForm[{{1},{0},{1}}],"N","   ",MatrixForm["(Fig.10)"]],

Nnze[WC2,c,a,b,t]&&Nze[η,c,a,b,t]&&Nze[κ,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nnze[μ2,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[WL,c,a,b,t],Print2[MatrixForm[{{i},{fin},{inf}}],"   ",MatrixForm[{{1},{1},{2}}], "E - H","   ",MatrixForm[{{0},{1},{1}}],(OverBar[SN]),"   ",MatrixForm["(Fig.11a)"]],

Nnze[WC2,c,a,b,t]&&Nze[η,c,a,b,t]&&Nze[κ,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nze[μ3,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[WL,c,a,b,t]&&Nnze[μ4,c,a,b,t]&&Nnze[κ1,c,a,b,t],Print2[MatrixForm[{{i},{fin},{inf}}],"   ",MatrixForm[{{1},{1},{2}}], "E - H","   ",MatrixForm[{{0},{3},{1}}],(OverBar[SN]),"   ",MatrixForm["(Fig.11b)"]],

Nnze[WC2,c,a,b,t]&&Nze[η,c,a,b,t]&&Nze[κ,c,a,b,t]&&Nze[κ1,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Npo[-μ3*WK1,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[WL,c,a,b,t],Print2[MatrixForm[{{i},{fin},{inf}}],"   ",MatrixForm[{{0},{2},{2}}], "E - E","   ",MatrixForm[{{0},{1},{1}}],(OverBar[SN]),"   ",MatrixForm["(Fig.12)"]],

Nnze[WC2,c,a,b,t]&&Nze[η,c,a,b,t]&&Nze[κ,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nnze[μ2,c,a,b,t]&&Nnze[κ1,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nnze[WL,c,a,b,t],Print2[MatrixForm[{{i},{fin},{inf}}],"   ",MatrixForm[{{0},{2},{2}}], "PH - H","   ",MatrixForm[{{1},{0},{1}}],"N","   ",MatrixForm["(Fig.13a)"]],

Nnze[WC2,c,a,b,t]&&Nze[η,c,a,b,t]&&Nze[κ,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nze[μ3,c,a,b,t]&&Nnze[μ4,c,a,b,t]&&Nnze[κ1,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nnze[WL,c,a,b,t],Print2[MatrixForm[{{i},{fin},{inf}}],"   ",MatrixForm[{{0},{4},{2}}], "PH - H","   ",MatrixForm[{{1},{0},{1}}],"N","   ",MatrixForm["(Fig.13b)"]],

Nnze[WC2,c,a,b,t]&&Nze[η,c,a,b,t]&&Nze[κ,c,a,b,t]&&Nze[κ1,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nnze[μ3,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Npo[WL,c,a,b,t]&&Npo[-WK,c,a,b,t],Print2[MatrixForm[{{i},{fin},{inf}}],"   ",MatrixForm[{{1},{3},{2}}], "E - HP","   ",MatrixForm[{{1},{0},{1}}],"N","   ",MatrixForm["(Fig.14)"]],

Nnze[WC2,c,a,b,t]&&Nze[η,c,a,b,t]&&Nze[κ,c,a,b,t]&&Nze[κ1,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nze[μ3,c,a,b,t]&&Nnze[μ4,c,a,b,t]&&Nze[WL,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nnze[WK1,c,a,b,t],Print2[MatrixForm[{{i},{fin},{inf}}],"   ",MatrixForm[{{1},{3},{2}}], "HP - E","   ",MatrixForm[{{0},{1},{1}}],(OverBar[SN]),"   ",MatrixForm["(Fig.15)"]],

Nnze[WC2,c,a,b,t]&&Nze[η,c,a,b,t]&&Nze[κ,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nnze[μ1,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Npo[-WL,c,a,b,t]&&(Nze[WN,c,a,b,t] ||Npo[-WN,c,a,b,t]),Print2[MatrixForm[{{i},{fin},{inf}}],"   ",MatrixForm[{{1},{1},{2}}], "E - H","   ",MatrixForm[{{-1},{0},{1}}],"S","   ",MatrixForm["(Fig.16a)"]],

Nnze[WC2,c,a,b,t]&&Nze[η,c,a,b,t]&&Nze[κ,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[WL,c,a,b,t]&&Nnze[κ1,c,a,b,t]&&Npo[μ3*WK1,c,a,b,t],Print2[MatrixForm[{{i},{fin},{inf}}],"   ",MatrixForm[{{1},{1},{2}}], "E - H","   ",MatrixForm[{{-1},{2},{1}}],(OverBar[S]),"   ",MatrixForm["(Fig.16b)"]],

Nnze[WC2,c,a,b,t]&&Nze[η,c,a,b,t]&&Nze[κ,c,a,b,t]&&Nze[κ1,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Npo[μ2,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Npo[-WL,c,a,b,t],Print2[MatrixForm[{{i},{fin},{inf}}],"   ",MatrixForm[{{2},{2},{2}}], "E - E","   ",MatrixForm[{{-1},{0},{1}}],"S","   ",MatrixForm["(Fig.17a)"]],

Nnze[WC2,c,a,b,t]&&Nze[η,c,a,b,t]&&Nze[κ,c,a,b,t]&&Nze[κ1,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nze[μ3,c,a,b,t]&&Npo[μ4,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Npo[-WL,c,a,b,t],Print2[MatrixForm[{{i},{fin},{inf}}],"   ",MatrixForm[{{2},{4},{2}}], "E - E","   ",MatrixForm[{{-1},{0},{1}}],"S","   ",MatrixForm["(Fig.17b)"]],

Nnze[WC2,c,a,b,t]&&Nze[η,c,a,b,t]&&Nze[κ,c,a,b,t]&&Nze[κ1,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nze[μ3,c,a,b,t]&&Nnze[μ4,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[WL,c,a,b,t]&&Nze[WK1,c,a,b,t]&&Npo[κ2,c,a,b,t],Print2[MatrixForm[{{i},{fin},{inf}}],"   ",MatrixForm[{{2},{2},{2}}], "E - E","   ",MatrixForm[{{-1},{2},{1}}],(OverBar[S]),"   ",MatrixForm["(Fig.17c)"]],

Nnze[WC2,c,a,b,t]&&Nze[η,c,a,b,t]&&Npo[μ0,c,a,b,t]&&Nnze[WM,c,a,b,t],Print2[MatrixForm[{{i},{fin},{inf}}],"   ",MatrixForm[{{0},{0},{2}}],(OverBar[SN]),"   ",MatrixForm[{{1},{0},{1}}],"N","   ",MatrixForm["(Fig.18a)"]],

Nnze[WC2,c,a,b,t]&&Nze[η,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Npo[μ2,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nnze[κ,c,a,b,t],Print2[MatrixForm[{{i},{fin},{inf}}],"   ",MatrixForm[{{0},{0},{2}}],(OverBar[SN]),"   ",MatrixForm[{{1},{2},{1}}],(OverBar[N]),"   ",MatrixForm["(Fig.18b)"]],

Nnze[WC2,c,a,b,t]&&Nze[η,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nze[μ3,c,a,b,t]&&Nnze[μ4,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nnze[κ,c,a,b,t],Print2[MatrixForm[{{i},{fin},{inf}}],"   ",MatrixForm[{{0},{0},{2}}],(OverBar[SN]),"   ",MatrixForm[{{1},{4},{1}}],(OverBar[N]),"   ",MatrixForm["(Fig.18c)"]],

Nnze[WC2,c,a,b,t]&&Nze[η,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nze[μ3,c,a,b,t]&&Npo[μ4,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[κ,c,a,b,t]&&Npo[WL,c,a,b,t]&&Nze[κ1,c,a,b,t]&&Nnze[WK,c,a,b,t]&&Npo[WL,c,a,b,t]&&(Nze[WK1,c,a,b,t] ||Npo[WK1,c,a,b,t]),Print2[MatrixForm[{{i},{fin},{inf}}],"   ",MatrixForm[{{0},{4},{2}}],"HP-HP","   ",MatrixForm[{{1},{0},{1}}],"N","   ",MatrixForm["(Fig.18d)"]],

Nnze[WC2,c,a,b,t]&&Nze[η,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nze[μ3,c,a,b,t]&&Npo[μ4,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[κ,c,a,b,t]&&Npo[WL,c,a,b,t]&&Nze[κ1,c,a,b,t]&&Nze[WK,c,a,b,t]&&(Nze[WK2,c,a,b,t] ||Npo[WK2,c,a,b,t]),Print2[MatrixForm[{{i},{fin},{inf}}],"   ",MatrixForm[{{0},{4},{2}}],"HP-HP","   ",MatrixForm[{{1},{0},{1}}],"N","   ",MatrixForm["(Fig.18e)"]],

Nnze[WC2,c,a,b,t]&&Nze[η,c,a,b,t]&&Nze[κ,c,a,b,t]&&Nze[κ1,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Npo[μ2,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Npo[WL,c,a,b,t]&&(Nze[WK2,c,a,b,t] ||Npo[WK2,c,a,b,t]),Print2[MatrixForm[{{i},{fin},{inf}}],"   ",MatrixForm[{{0},{2},{2}}],"HP-PH","   ",MatrixForm[{{1},{0},{1}}],"N","   ",MatrixForm["(Fig.19)"]],

Nnze[WC2,c,a,b,t]&&Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nnze[μ1,c,a,b,t]&&Nnze[κ,c,a,b,t],Print2[MatrixForm[{{i},{fin},{inf}}],"   ",MatrixForm[{{0},{0},{2}}],(OverBar[SN]),"   ",MatrixForm[{{0},{1},{1}}],(OverBar[SN]),"   ",MatrixForm["(Fig.20a)"]],

Nnze[WC2,c,a,b,t]&&Nze[η,c,a,b,t]&&Nnze[κ,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nnze[μ3,c,a,b,t]&&Nnze[WM,c,a,b,t],Print2[MatrixForm[{{i},{fin},{inf}}],"   ",MatrixForm[{{0},{0},{2}}],(OverBar[SN]),"   ",MatrixForm[{{-1},{3},{1}}],(OverBar[SN]),"   ",MatrixForm["(Fig.20b)"]],

Nnze[WC2,c,a,b,t]&&Nze[η,c,a,b,t]&&Nze[κ,c,a,b,t]&&Nze[κ1,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Npo[μ3*WK1,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[WL,c,a,b,t],Print2[MatrixForm[{{i},{fin},{inf}}],"   ",MatrixForm[{{0},{2},{2}}],"HP-PH","   ",MatrixForm[{{0},{1},{1}}],(OverBar[SN]),"   ",MatrixForm["(Fig.21)"]],

Nnze[WC2,c,a,b,t]&&Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Npo[-μ0,c,a,b,t],Print2[MatrixForm[{{i},{fin},{inf}}],"   ",MatrixForm[{{0},{0},{2}}],(OverBar[SN]),"   ",MatrixForm[{{-1},{0},{1}}],"S","   ",MatrixForm["(Fig.22a)"]],

Nnze[WC2,c,a,b,t]&&Nze[η,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Npo[-μ2,c,a,b,t]&&Nnze[κ,c,a,b,t],Print2[MatrixForm[{{i},{fin},{inf}}],"   ",MatrixForm[{{0},{0},{2}}],(OverBar[SN]),"   ",MatrixForm[{{-1},{2},{1}}],(OverBar[S]),"   ",MatrixForm["(Fig.22b)"]],

Nnze[WC2,c,a,b,t]&&Nze[η,c,a,b,t]&&Nze[κ,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nnze[μ1,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Npo[WL,c,a,b,t]&&Npo[WK,c,a,b,t],Print2[MatrixForm[{{i},{fin},{inf}}],"   ",MatrixForm[{{-1},{1},{2}}],"HHH - H","   ",MatrixForm[{{1},{0},{1}}],"N","   ",MatrixForm["(Fig.23a)"]],

Nnze[WC2,c,a,b,t]&&Nze[η,c,a,b,t]&&Nze[κ,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Nnze[κ1,c,a,b,t]&&Nnze[WL,c,a,b,t]&&Npo[μ3*WK1,c,a,b,t],Print2[MatrixForm[{{i},{fin},{inf}}],"   ",MatrixForm[{{-1},{3},{2}}],"HHH - H","   ",MatrixForm[{{1},{0},{1}}],"N","   ",MatrixForm["(Fig.23b)"]],

Nnze[WC2,c,a,b,t]&&Nze[η,c,a,b,t]&&Nze[κ,c,a,b,t]&&Nze[κ1,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nze[μ3,c,a,b,t]&&Npo[-μ4,c,a,b,t]&&Nnze[WL,c,a,b,t]&&Nnze[WM,c,a,b,t],Print2[MatrixForm[{{i},{fin},{inf}}],"   ",MatrixForm[{{0},{4},{2}}],"HHH - E","   ",MatrixForm[{{1},{0},{1}}],"N","   ",MatrixForm["(Fig.24)"]],

Nnze[WC2,c,a,b,t]&&Nze[η,c,a,b,t]&&Nze[κ,c,a,b,t]&&Nze[κ1,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nnze[μ3,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Npo[WL,c,a,b,t]&&Npo[WK,c,a,b,t],Print2[MatrixForm[{{i},{fin},{inf}}],"   ",MatrixForm[{{-1},{3},{2}}],HHH-HP,"   ",MatrixForm[{{1},{0},{1}}],"N","   ",MatrixForm["(Fig.25)"]],

Nnze[WC2,c,a,b,t]&&Nze[η,c,a,b,t]&&Nze[κ,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nnze[μ1,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Npo[-WL,c,a,b,t]&&Npo[WN,c,a,b,t],Print2[MatrixForm[{{i},{fin},{inf}}],"   ",MatrixForm[{{1},{1},{2}}],"E - PHP","   ",MatrixForm[{{-1},{0},{1}}],"S","   ",MatrixForm["(Fig.26a)"]],

Nnze[WC2,c,a,b,t]&&Nze[η,c,a,b,t]&&Nze[κ,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nnze[μ3,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Npo[-WL,c,a,b,t]&&Nze[κ1,c,a,b,t],Print2[MatrixForm[{{i},{fin},{inf}}],"   ",MatrixForm[{{1},{3},{2}}],"E - PHP","   ",MatrixForm[{{-1},{0},{1}}],"S","   ",MatrixForm["(Fig.26b)"]],

Nnze[WC2,c,a,b,t]&&Nze[η,c,a,b,t]&&Nze[κ,c,a,b,t]&&Nze[κ1,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Npo[-μ2,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Npo[WL,c,a,b,t]&&Npo[WK,c,a,b,t],Print2[MatrixForm[{{i},{fin},{inf}}],"   ",MatrixForm[{{-2},{2},{2}}],"HHH-HHH","   ",MatrixForm[{{1},{0},{1}}],"N","   ",MatrixForm["(Fig.27)"]],

Nnze[WC2,c,a,b,t]&&Nze[η,c,a,b,t]&&Nze[κ,c,a,b,t]&&Nze[κ1,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nze[μ3,c,a,b,t]&&Npo[μ4,c,a,b,t] &&Nnze[WK,c,a,b,t]&&Nze[WM,c,a,b,t]&&Npo[WL,c,a,b,t]&&Npo[-WK1,c,a,b,t],Print2[MatrixForm[{{i},{fin},{inf}}],"   ",MatrixForm[{{0},{4},{2}}],"PHP-PHP","   ",MatrixForm[{{1},{0},{1}}],"N","   ",MatrixForm["(Fig.28)"]],

Nnze[WC2,c,a,b,t]&&Nze[η,c,a,b,t]&&Nze[κ,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Npo[-μ2,c,a,b,t]&&Nnze[WM,c,a,b,t]&&Npo[-WL,c,a,b,t]&&Nze[κ1,c,a,b,t],Print2[MatrixForm[{{i},{fin},{inf}}],"   ",MatrixForm[{{0},{2},{2}}],"PHP-PHP","   ",MatrixForm[{{-1},{0},{1}}],"S","   ",MatrixForm["(Fig.29)"]],

Nnze[WC2,c,a,b,t]&&Npo[-η,c,a,b,t]&&Npo[μ0,c,a,b,t],Print2[MatrixForm[{{i},{fin},{inf}}],"   ",MatrixForm[{{1},{0},{1}}],"N","   ",MatrixForm[{{0},{0},{"c"}}],"   ",MatrixForm[{{0},{0},{"c"}}],"   ",MatrixForm["(Fig.30a)"]],

Nnze[WC2,c,a,b,t]&&Npo[-η,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Npo[μ2,c,a,b,t]&&Nnze[κ,c,a,b,t],Print2[MatrixForm[{{i},{fin},{inf}}],"   ",MatrixForm[{{1},{2},{1}}],(OverBar[N]),"   ",MatrixForm[{{0},{0},{"c"}}],"   ",MatrixForm[{{0},{0},{"c"}}],"   ",MatrixForm["(Fig.30b)"]],

Nnze[WC2,c,a,b,t]&&Npo[-η,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nze[μ3,c,a,b,t]&&Nnze[μ4,c,a,b,t]&&Nnze[κ,c,a,b,t],Print2[MatrixForm[{{i},{fin},{inf}}],"   ",MatrixForm[{{1},{4},{1}}],(OverBar[N]),"   ",MatrixForm[{{0},{0},{"c"}}],"   ",MatrixForm[{{0},{0},{"c"}}],"   ",MatrixForm["(Fig.30c)"]],

Nnze[WC2,c,a,b,t]&&Npo[-η,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nnze[μ2,c,a,b,t]&&Nze[κ,c,a,b,t],Print2[MatrixForm[{{i},{fin},{inf}}],"   ",MatrixForm[{{1},{0},{1}}],"N","   ",MatrixForm[{{0},{1},{"c"}}],"   ",MatrixForm[{{0},{1},{"c"}}],"   ",MatrixForm["(Fig.30d)"]],

Nnze[WC2,c,a,b,t]&&Npo[-η,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nze[μ3,c,a,b,t]&&Nnze[μ4,c,a,b,t]&&Nze[κ,c,a,b,t],Print2[MatrixForm[{{i},{fin},{inf}}],"   ",MatrixForm[{{1},{0},{1}}],"N","   ",MatrixForm[{{0},{2},{"c"}}],"   ",MatrixForm[{{0},{2},{"c"}}],"   ",MatrixForm["(Fig.30e)"]],

Nnze[WC2,c,a,b,t]&&Npo[μ0,c,a,b,t]&&Nze[WM,c,a,b,t],Print2[MatrixForm[{{i},{fin},{inf}}],"   ",MatrixForm[{{1},{0},{3}}],(OverBar[N]),"   ",MatrixForm["(Fig.30f)"]],

Nnze[WC2,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Npo[μ2,c,a,b,t]&&Nze[WM,c,a,b,t]&&Nnze[WK,c,a,b,t]&&Npo[-WK2,c,a,b,t],Print2[MatrixForm[{{i},{fin},{inf}}],"   ",MatrixForm[{{1},{2},{3}}],"P-P","   ",MatrixForm["(Fig.30g)"]],

Nnze[WC2,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Npo[μ2,c,a,b,t]&&Nze[WM,c,a,b,t]&&Nze[WK,c,a,b,t],Print2[MatrixForm[{{i},{fin},{inf}}],"   ",MatrixForm[{{1},{2},{3}}],"P-P","   ",MatrixForm["(Fig.30h)"]],

Nnze[WC2,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nze[μ3,c,a,b,t]&&Npo[μ4,c,a,b,t]&&Nze[WM,c,a,b,t]&&(Nze[WK3,c,a,b,t]||Npo[WK3,c,a,b,t]),Print2[MatrixForm[{{i},{fin},{inf}}],"   ",MatrixForm[{{1},{4},{3}}],"P-P","   ",MatrixForm["(Fig.30i)"]],

Nnze[WC2,c,a,b,t]&&Npo[-η,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nnze[μ1,c,a,b,t],Print2[MatrixForm[{{i},{fin},{inf}}],"   ",MatrixForm[{{0},{1},{1}}],(OverBar[SN]),"   ",MatrixForm[{{0},{0},{"c"}}],"   ",MatrixForm[{{0},{0},{"c"}}],"   ",MatrixForm["(Fig.31a)"]],

Nnze[WC2,c,a,b,t]&&Npo[-η,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nnze[μ3,c,a,b,t],Print2[MatrixForm[{{i},{fin},{inf}}],"   ",MatrixForm[{{0},{3},{1}}],(OverBar[SN]),"   ",MatrixForm[{{0},{0},{"c"}}],"   ",MatrixForm[{{0},{0},{"c"}}],"   ",MatrixForm["(Fig.31b)"]],

Nnze[WC2,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nze[WM,c,a,b,t]&&Nze[WK,c,a,b,t]&&Npo[μ3*WK1,c,a,b,t]&&(Npo[WK3,c,a,b,t]||Nze[WK3,c,a,b,t]),Print2[MatrixForm[{{i},{fin},{inf}}],"   ",MatrixForm[{{0},{3},{3}}], "HH - P","   ",MatrixForm["(Fig.31c)"]],

Nnze[WC2,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Npo[μ2,c,a,b,t]&&Nnze[WK,c,a,b,t]&&Nze[WM,c,a,b,t]&&(Npo[WK2,c,a,b,t]||Nze[WK2,c,a,b,t]),Print2[MatrixForm[{{i},{fin},{inf}}],"   ",MatrixForm[{{1},{2},{3}}], "HE - P","   ",MatrixForm["(Fig.32a)"]],

Nnze[WC2,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nze[μ3,c,a,b,t]&&Npo[μ4,c,a,b,t]&&Nze[WM,c,a,b,t]&&Nze[WK,c,a,b,t]&&Npo[-WK3,c,a,b,t],Print2[MatrixForm[{{i},{fin},{inf}}],"   ",MatrixForm[{{1},{4},{3}}], "HE - P","   ",MatrixForm["(Fig.32b)"]],

Nnze[WC2,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Npo[-μ3*WK1,c,a,b,t]&&Nze[WK,c,a,b,t]&&Nze[WM,c,a,b,t],Print2[MatrixForm[{{i},{fin},{inf}}],"   ",MatrixForm[{{2},{3},{3}}], "EE - P","   ",MatrixForm["(Fig.33)"]],

Nnze[WC2,c,a,b,t]&&Npo[-η,c,a,b,t]&&Npo[-μ0,c,a,b,t],Print2[MatrixForm[{{i},{fin},{inf}}],"   ",MatrixForm[{{-1},{0},{1}}],"S","   ",MatrixForm[{{0},{0},{"c"}}],"   ",MatrixForm[{{0},{0},{"c"}}],"   ",MatrixForm["(Fig.34a)"]],

Nnze[WC2,c,a,b,t]&&Npo[-η,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Npo[-μ2,c,a,b,t]&&Nnze[κ,c,a,b,t],Print2[MatrixForm[{{i},{fin},{inf}}],"   ",MatrixForm[{{-1},{2},{1}}],(OverBar[S]),"   ",MatrixForm[{{0},{0},{"c"}}],"   ",MatrixForm[{{0},{0},{"c"}}],"   ",MatrixForm["(Fig.34b)"]],

Nnze[WC2,c,a,b,t]&&Npo[-μ0,c,a,b,t]&&Nze[WM,c,a,b,t],Print2[MatrixForm[{{i},{fin},{inf}}],"   ",MatrixForm[{{-1},{0},{3}}],(OverBar[S]),"   ",MatrixForm["(Fig.34c)"]],

Nnze[WC2,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nze[μ3,c,a,b,t]&&Npo[-μ4,c,a,b,t]&&Nze[WM,c,a,b,t],Print2[MatrixForm[{{i},{fin},{inf}}],"   ",MatrixForm[{{1},{4},{3}}],"EE-HH","   ",MatrixForm["(Fig.35)"]],

Nnze[WC2,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nze[μ3,c,a,b,t]&&Npo[μ4,c,a,b,t]&&Nnze[WK,c,a,b,t]&&Nze[WM,c,a,b,t]&&Npo[-WK3,c,a,b,t],Print2[MatrixForm[{{i},{fin},{inf}}],"   ",MatrixForm[{{1},{4},{3}}],"HE-HE","   ",MatrixForm["(Fig.36)"]],

Nnze[WC2,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nnze[μ1,c,a,b,t]&&Nze[WM,c,a,b,t],Print2[MatrixForm[{{i},{fin},{inf}}],"   ",MatrixForm[{{0},{1},{3}}], "HHP - P","   ",MatrixForm["(Fig.37a)"]],

Nnze[WC2,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nnze[μ3,c,a,b,t]&&Nze[WM,c,a,b,t]&&Nnze[WK,c,a,b,t]&&Npo[WK3,c,a,b,t],Print2[MatrixForm[{{i},{fin},{inf}}],"   ",MatrixForm[{{0},{3},{3}}], "HHP - P","   ",MatrixForm["(Fig.37b)"]],

Nnze[WC2,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&& Npo[μ3 WK1,c,a,b,t]&&Nze[WK,c,a,b,t]&&Nze[WM,c,a,b,t]&&Npo[-WK3,c,a,b,t],Print2[MatrixForm[{{i},{fin},{inf}}],"   ",MatrixForm[{{0},{3},{3}}], "HPH - P","   ",MatrixForm["(Fig.38)"]],

Nnze[WC2,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Nze[μ2,c,a,b,t]&&Nnze[μ3,c,a,b,t]&&Nnze[WK,c,a,b,t]&&Nze[WM,c,a,b,t]&&Npo[-WK3,c,a,b,t],Print2[MatrixForm[{{i},{fin},{inf}}],"   ",MatrixForm[{{0},{3},{3}}],"EH-PHH","   ",MatrixForm["(Fig.39)"]],

Nnze[WC2,c,a,b,t]&&Nze[μ0,c,a,b,t]&&Nze[μ1,c,a,b,t]&&Npo[-μ2,c,a,b,t]&&Nze[WM,c,a,b,t],Print2[MatrixForm[{{i},{fin},{inf}}],"   ",MatrixForm[{{-1},{2},{3}}],"PHH-PHH","   ",MatrixForm["(Fig.40)"]],

True,Print2["Something fails"]
]}

Differential operators  (changes of variables, transvectant, Discrim, Hess, OperL, extactic)

Programa per calcular la matriu extactic dins a grau n = 10. 

Per n = 3 ja costa calcular i factoritzar el determinant.

eqd1 primera equació
eqd2 segona equació
var1 primera variable
var2 segona variable
n grau del invariant buscat

extactic[eqd1_,eqd2_,var1_,var2_,n_]:={A=Table[a[i,j],{i,(n+1)*(n+2)/2},{j,(n+1)*(n+2)/2}];a[1,1]=1;a[1,2]=var1;a[1,3]=var2;If[n>1,Do[a[1,i+3]=var1^(3-i)*var2^(i-1),{i,1,3}]];If[n>2,Do[a[1,i+6]=var1^(4-i)*var2^(i-1),{i,1,4}]];If[n>3,Do[a[1,i+10]=var1^(5-i)*var2^(i-1),{i,1,5}]];If[n>4,Do[a[1,i+15]=var1^(6-i)*var2^(i-1),{i,1,6}]];If[n>5,Do[a[1,i+21]=var1^(7-i)*var2^(i-1),{i,1,7}]];If[n>6,Do[a[1,i+28]=var1^(8-i)*var2^(i-1),{i,1,8}]];If[n>7,Do[a[1,i+36]=var1^(9-i)*var2^(i-1),{i,1,9}]];If[n>8,Do[a[1,i+45]=var1^(10-i)*var2^(i-1),{i,1,10}]];If[n>9,Do[a[1,i+55]=var1^(11-i)*var2^(i-1),{i,1,11}]];
Do[Do[a[i,j]=Factor[(eqd1*D[a[i-1,j],var1]+eqd2*D[a[i-1,j],var2])],{j,1,(n+1)*(n+2)/2}],{i,2,(n+1)*(n+2)/2}];A}

poinx[x_,y_,p_]=-((p x)/(1-p (Sqrt[1+(x^2)+(y^2)])));

poiny[x_,y_,p_]=-((p y)/(1-p (Sqrt[1+(x^2)+(y^2)])));

Discriminant of a polynomial p (x, y, ...) with respect of y

Mult2[cha_,num_]:={res={};Do[res=Join[res,{cha[[i,1]]->cha[[i,2]]*num}],{i,1,Length[cha]}],res}

MulCha[cha_,num_]:=Mult2[cha,num][[2]]

Discrim[p_,x_]:=(-1)^(Exponent[p,x](Exponent[p,x]-1)/2)*Resultant[p,D[p,x],x]/(Coefficient[p,x,Exponent[p,x]])

Discrim4PQDRSTU[p_,x_]:=If[Length[CoefficientList[p,x]]<6,coe=CoefficientList[p,x];coe[[2]]=coe[[2]]/4;coe[[3]]=coe[[3]]/6;coe[[4]]=coe[[4]]/4;ZP=coe[[5]] coe[[1]]-4coe[[2]]coe[[4]]+3coe[[3]]^2;ZR=coe[[4]]^2-coe[[5]]coe[[3]];ZQ=ZR coe[[1]]+coe[[5]]coe[[2]]^2+(coe[[3]]^2-2coe[[4]]coe[[2]])coe[[3]];ZD=27ZQ^2-ZP^3;ZS=12ZR^2-coe[[5]]^2ZP;ZT=3coe[[5]]ZQ-2ZP ZR;ZU=2coe[[2]]^2-3coe[[3]]coe[[1]];{ZP,ZQ,ZD,ZR,ZS,ZT,ZU},{-1,-1}   ]

Trace of system (var1' = eq1 (var1, var2), var2' = eq2 (var1, var2)) at point

trace[q1_,q2_,var1_,var2_,change_,point_]:=Factor[tras={var1->point[[1]],var2->point[[2]]};D[q1,var1]+D[q2,var2]/.change/.tras]

Jacobian of system (var1' = eq1 (var1, var2), var2' = eq2 (var1, var2)) at point

Jacob[q1_,q2_,var1_,var2_,change_,point_]:=Factor[tras={var1->point[[1]],var2->point[[2]]};{{D[q1,var1],D[q1,var2]},{D[q2,var1],D[q2,var2]}}/.change/.tras//MatrixForm]

Determinant of Jacobian of system (var1' = eq1 (var1, var2), var2' = eq2 (var1, var2)) at point

DetJacob[q1_,q2_,var1_,var2_,change_,point_]:=Factor[tras={var1->point[[1]],var2->point[[2]]};(D[q1,var1]D[q2,var2]-D[q1,var2]D[q2,var1])/.change/.tras]

Discriminant of Jacobian of system (var1' = eq1 (var1, var2), var2' = eq2 (var1, var2)) at point

DiscrimJacob[q1_,q2_,var1_,var2_,change_,point_]:=Factor[tras={var1->point[[1]],var2->point[[2]]};((D[q1,var1]+D[q2,var2])^2-4(D[q1,var1]D[q2,var2]-D[q1,var2]D[q2,var1]))/.change/.tras]

Hessian of function p(x,y)

Hess[p_,x_,y_]:= D[p,x,x]*D[p,y,y]-D[p,x,y]*D[p,y,x]

transvec[f_,g_,k_]:=Sum[(-1)^hn*(k!/hn!/(k-hn)!)*D[D[f,{var1,k-hn}],{var2,hn}]*D[D[g,{var1,hn}],{var2,k-hn}],{hn,0,k}]

⟨f_, g_, k_⟩:=(∑_(h0=0)^k)(((-1))^h0)*Binomial[k, h0]*D[D[f, {var1, k-h0}],{var2, h0}]*D[D[g, {var1, h0}],{var2, k-h0}];

Filters out all complex solutions from list "sol" of dimension "dim" with absolute complex part greater than "tol"

FilterReal[dim_,sol_,tol_]:=(sol2={{}};Do[If[Sum[Im[sol[[i,j]][[2]]]^2,{j,1,dim}]<tol,sol2=Append[sol2,sol[[i]]]],{i,1,Length[sol]}];Drop[sol2,1])

Sturm2[g0_,cl_,ca_,cb_]:={nd=Length[CoefficientList[g0,cl]]-1;g=Table[i,{i,1,nd+1}];gcoe=Table[i,{i,1,nd+1}];coe2=Coefficient[g0,cl,nd];Assuming[ca>0&&ca∈Reals &&cb>0&&cb∈Reals,If[Refine[coe2>0],coe2=coe2,coe2=-coe2]];g[[1]]=g0/coe2;gcoe[[1]]=Coefficient[g[[1]],cl,nd];g[[2]]=Collect[D[g[[1]],cl]/nd,cl];gcoe[[2]]=Coefficient[g[[2]],cl,nd-1];Do[test=Collect[Simplify[g[[i]]-g[[i+1]]*(gcoe[[i]]gcoe[[i+1]]cl)],cl];coe=Coefficient[test,cl,nd-i];test=Collect[Simplify[Expand[g[[i]]-g[[i+1]]*gcoe[[i+1]](gcoe[[i]]cl+coe)]],cl];coe2=Simplify[Coefficient[test,cl,nd-i-1]];Assuming[ca>0&&ca∈Reals &&cb>0&&cb∈Reals,If[Refine[coe2>0],coe2=coe2,coe2=-coe2]];test=-Collect[Expand[g[[i]]-g[[i+1]]*gcoe[[i+1]](gcoe[[i]]cl+coe)]/coe2,cl];g[[i+2]]=Sum[Simplify[test[[i]]],{i,1,Length[test]}];gcoe[[i+2]]=Simplify[Coefficient[g[[i+2]],cl,nd-i-1]],{i,1,nd-1}],gcoe}

Sturm[g0_,cl_,ca_,cb_]:=(stu=Sturm2[g0,cl,ca,cb];Flatten[Complement[stu,{Null}]])

eq1 and eq2 and the right part of equations. var' s must contain [t]. Mat = {{α, β}, {γ, δ}}. Trans = {{ϵ}, {μ}}

CharDir_old[eqm1_,eqm2_,nvar1_,nvar2_]:={polcar=Expand[nvar2 eqm1-nvar1 eqm2];j=4;polcar2=CoefficientList[CoefficientList[polcar,nvar1],nvar2];polcar2=Join[polcar2,Table[{},{l,j Length[polcar2]}]];Do[polcar2[[k]]=Join[polcar2[[k]],Table[0,{l,j Length[polcar2]}]],{k,Length[polcar2]}];Do[polcar2=Append[polcar2,Table[0,{l,j Length[polcar]}]],{i,Length[polcar2]+1,Length[polcar]}];pol=0;
i=0;
While[pol==0,Do[pol=pol+polcar2[[i+1-j,j+1]] (nvar1^(i-j)) (nvar2^j),{j,i,0,-1}];i=i+1];
Flatten[Factor[pol]]}

Computes characteristical directions of system (nvar1' = eqm1 (nvar1, nvar2), nvar2' = eqm2 (nvar1, nvar2))

CharDir[eqm1_,eqm2_,nvar1_,nvar2_]:={pol1=Expand[eqm1/.nvar2->Log[π] nvar1];coe=CoefficientList[pol1,nvar1];j1=0;While[coe[[j1+1]]==0,j1=j1+1];pol2=Expand[eqm2/.nvar2->Log[π] nvar1];coe=CoefficientList[pol2,nvar1];j2=0;While[coe[[j2+1]]==0,j2=j2+1];i=Min[j1,j2]+1;polcar=nvar1 eqm2-nvar2 eqm1;jj=4;polcar2=CoefficientList[CoefficientList[polcar,nvar1],nvar2];polcar2=Join[polcar2,Table[{},{l,jj Length[polcar2]}]];Do[polcar2[[k]]=Join[polcar2[[k]],Table[0,{l,jj Length[polcar2]}]],{k,Length[polcar2]}];Do[polcar2=Append[polcar2,Table[0,{l,jj Length[polcar]}]],{i,Length[polcar2]+1,Length[polcar]}];pol=0;Do[pol=pol+polcar2[[i+1-j,j+1]] (nvar1^(i-j)) (nvar2^j),{j,0,i}];
Flatten[Factor[pol]]}

CharDir2[eqm1_,eqm2_,nvar1_,nvar2_]:={polcar=nvar1 eqm2-nvar2 eqm1;pol1=Expand[polcar/.nvar2->Log[π] nvar1];coe=CoefficientList[pol1,nvar1];i=0;While[coe[[i+1]]==0,i=i+1];jj=4;polcar2=CoefficientList[CoefficientList[polcar,nvar1],nvar2];polcar2=Join[polcar2,Table[{},{l,jj Length[polcar2]}]];Do[polcar2[[k]]=Join[polcar2[[k]],Table[0,{l,jj Length[polcar2]}]],{k,Length[polcar2]}];Do[polcar2=Append[polcar2,Table[0,{l,jj Length[polcar]}]],{i,Length[polcar2]+1,Length[polcar]}];pol=0;Do[pol=pol+polcar2[[i+1-j,j+1]] (nvar1^(i-j)) (nvar2^j),{j,0,i}];
Flatten[Factor[pol]]}

Vertical blow - up  of system (var1' = P (var1, var2), var2' = Q (var1, var2)) at origin with reduction of time of order m

changeBL[P_,Q_,var1_,var2_,m_]:={Eq1=D[var1,t]==P;Eq2=D[var2,t]==Q;gr=Max[Exponent[Eq1[[2]]/.var1->π var2,var2],Exponent[Eq2[[2]]/.var1->π var2,var2]];newvar1=var1[[0,0]][var1[[0,1]]+1][var1[[1]]];newvar2=var2[[0,0]][var2[[0,1]]+1][var2[[1]]];cambio={var1->newvar1,var2->newvar1 newvar2,(∂_t)var1->(∂_t)newvar1,(∂_t)var2->(∂_t)newvar1 newvar2+(∂_t)newvar2 newvar1};eqn1=Eq1/.cambio;eqn2=Eq2/.cambio;sol=Sort[Flatten[Solve[{eqn1,eqn2},{(∂_t)newvar1,(∂_t)newvar2}]]];eq1nn=sol[[1,1]]==Cancel[((Collect[Expand[sol[[1,2]]],{newvar2,newvar1},Factor])/(newvar1^m))];eq2nn=sol[[2,1]]==Cancel[((Collect[Expand[sol[[2,2]]],{newvar2,newvar1},Factor])/(newvar1^m))];{eq1nn[[2]],eq2nn[[2]]}}

Vertical blow - down  of system (var1' = P (var1, var2), var2' = Q (var1, var2)) to origin

changeBLDOWN[P_,Q_,var1_,var2_]:={Eq1=D[var1,t]==P*var1^m;Eq2=D[var2,t]==Q*var1^m;newvar1=var1[[0,0]][var1[[0,1]]+1][var1[[1]]];newvar2=var2[[0,0]][var2[[0,1]]+1][var2[[1]]];cambio={var1->newvar1,var2-> newvar2/newvar1,(∂_t)var1->(∂_t)newvar1,(∂_t)var2->((∂_t)newvar2 newvar1-(∂_t)newvar1 newvar2)/newvar1^2};eqn1=Eq1/.cambio;eqn2=Eq2/.cambio;sol=Sort[Flatten[Solve[{eqn1,eqn2},{(∂_t)newvar1,(∂_t)newvar2}]]];j=0;While[PolynomialQ[sol[[1,2]]/.m->j,newvar1]==False,j=j+1];m1=j+1;j=0;While[PolynomialQ[sol[[2,2]]/.m->j,newvar1]==False,j=j+1];m2=j+1;sol=sol/.m->Min[m1,m2];Print["The reduction in time must be of order ",Min[m1,m2]];eq1nn=sol[[1,2]];eq2nn=sol[[2,2]];{eq1nn,eq2nn}}

Change  of system (var1' = P (var1, var2), var2' = Q (var1, var2)) to local chart U1

changeU1[P_,Q_,var1_,var2_]:={Clear[w,z];eqo1=D[var1,t]==P;eqo2=D[var2,t]==Q;gr=Max[Exponent[eqo1[[2]]/.var1->π var2,var2],Exponent[eqo2[[2]]/.var1->π var2,var2]];newvar1=w[0][t];newvar2=z[0][t];cambio={var1->(1/newvar2),var2->(newvar1/newvar2),(∂_t)var1->(∂_t)(1/newvar2),(∂_t)var2->(∂_t)(newvar1/newvar2)};eqn1=eqo1/.cambio;eqn2=eqo2/.cambio;sol=Sort[Solve[{eqn1,eqn2},{(∂_t)newvar1,(∂_t)newvar2}]];eq1nn=sol[[1,1,1]]==Collect[Expand[sol[[1,1,2]] (newvar2^(gr-1))],{newvar2,newvar1},Factor];eq2nn=sol[[1,2,1]]==Collect[Expand[sol[[1,2,2]] (newvar2^(gr-1))],{newvar2,newvar1},Factor];Simplify[{eq1nn[[2]],eq2nn[[2]]}]}

Change  of system (var1' = P (var1, var2), var2' = Q (var1, var2)) to local chart U2

Flatten[changeU1[eq1[[2]] /. change, eq2[[2]] /. change, var1, var2]]

changeU2[P_,Q_,var1_,var2_]:={Clear[w,z];eqo1=D[var1,t]==P;eqo2=D[var2,t]==Q;gr=Max[Exponent[eqo1[[2]]/.var1->π var2,var2],Exponent[eqo2[[2]]/.var1->π var2,var2]];newvar1=w[0][t];newvar2=z[0][t];cambio={var1->(newvar1/newvar2),var2->(1/newvar2),(∂_t)var1->(∂_t)(newvar1/newvar2),(∂_t)var2->(∂_t)(1/newvar2)};eqn1=eqo1/.cambio;eqn2=eqo2/.cambio;sol=Sort[Solve[{eqn1,eqn2},{(∂_t)newvar1,(∂_t)newvar2}]];eq1nn=sol[[1,1,1]]==Collect[Expand[sol[[1,1,2]] (newvar2^(gr-1))],{newvar2,newvar1},Factor];eq2nn=sol[[1,2,1]]==Collect[Expand[sol[[1,2,2]] (newvar2^(gr-1))],{newvar2,newvar1},Factor];Simplify[{eq1nn[[2]],eq2nn[[2]]}]}

ChangeROTFF[eq1_,eq2_,var1_,var2_,newvar1_,newvar2_]:={If[(((eq1/.{var1->0,var2->0}))^2)+(((eq2/.{var1->0,var2->0}))^2)!=0,Print["No es punt singular"];Return[],"OK"];val=(D[eq1,var1]+D[eq2,var2])/.{var1->0,var2->0};If[NumberQ[val],If[val!=0,Print["No es de traça zero"];Return[],"Ho es"],"Ho pot ser"];val=(D[eq1,var1]*D[eq2,var2]-D[eq1,var2]*D[eq2,var1])/.{var1->0,var2->0};If[NumberQ[val],If[val<0,Print["Determinant negatiu"];Return[],"Determinant positiu"],"Determinant algebraic"];new2=ExtractCoeff1[eq1,eq2,var1,var2];c10=a10/.new2;c01=a01/.new2;d10=b10/.new2;d01=b01/.new2;Flatten[ChangeVarON[eq1,eq2,var1,var2,{{(((c10^2)+c01 d10)/(d10 (Sqrt[-(c10^2)-c01 d10]))),(c10/d10)},{0,1}},{0,0},((-1)/(Sqrt[-(c10^2)-c01 d10])),newvar1,newvar2]]}

Affine change of system (var1' = eq1 (var1, var2), var2' = eq2 (var1, var2)) with Mat = {{α, β}, {γ, δ}}. Trans = {{ϵ}, {μ}} and time to new variables

ChangeVarNewOld[eq1_,eq2_,var1_,var2_,Mat_,Trans_,Time_,nvar1_,nvar2_]:={If[Length[var1]==0,Var1=var1[t],Var1=var1];If[Length[var2]==0,Var2=var2[t],Var2=var2];Eq1=D[Var1,t]==eq1/.{var1->Var1,var2->Var2};Eq2=D[Var2,t]==eq2/.{var1->Var1,var2->Var2};NVar1=XxX[t];NVar2=YyY[t];Mat1=Flatten[Factor[Inverse[Mat].({NVar1,NVar2}-Trans)]];Mat1d=Factor[Inverse[Mat].{(∂_t)NVar1,(∂_t)NVar2}];cambio=Factor[{Var1->Mat1[[1]],Var2->Mat1[[2]],(∂_t)Var1->Mat1d[[1]],(∂_t)Var2->Mat1d[[2]]}];eqn1=Factor[Eq1/.cambio];eqn2
=Factor[Eq2/.cambio];solxx=Sort[Flatten[Solve[{eqn1,eqn2},{(∂_t)NVar1,(∂_t)NVar2}]]];eqf1=((Collect[Expand[solxx[[1,2]]],{NVar1,NVar2},Factor])/Time);eqf2=((Collect[Expand[solxx[[2,2]]],{NVar1,NVar2},Factor])/Time);Flatten[Factor[{eqf1,eqf2}/.{NVar1->nvar1,NVar2->nvar2}]]}

Flatten[ChangeVarNO[eq1[[2]] /. change, eq2[[2]] /. change, var1, var2, {{da, db}, {dc, dd}}, {0, 0}, dt, x[2][t], y[2][t]]]

ChangeVarNO[eq1_,eq2_,var1_,var2_,Mat_,Trans_,Time_,nvar1_,nvar2_]:={If[Length[var1]==0,Var1=var1[t],Var1=var1];If[Length[var2]==0,Var2=var2[t],Var2=var2];Eq1=D[Var1,t]==eq1/.{var1->Var1,var2->Var2};Eq2=D[Var2,t]==eq2/.{var1->Var1,var2->Var2};NVar1=XxX[t];NVar2=YyY[t];Mat1=Flatten[Factor[Inverse[Mat].({NVar1,NVar2}-Trans)]];Mat1d=Factor[Inverse[Mat].{(∂_t)NVar1,(∂_t)NVar2}];cambio=Factor[{Var1->Mat1[[1]],Var2->Mat1[[2]],(∂_t)Var1->Mat1d[[1]],(∂_t)Var2->Mat1d[[2]]}];eqn1=Factor[Eq1/.cambio];eqn2
=Factor[Eq2/.cambio];solxx=Sort[Flatten[Solve[{eqn1,eqn2},{(∂_t)NVar1,(∂_t)NVar2}]]];eqf1=((Collect[Expand[solxx[[1,2]]],{NVar1,NVar2},Factor])/Time);eqf2=((Collect[Expand[solxx[[2,2]]],{NVar1,NVar2},Factor])/Time);Flatten[Factor[{eqf1,eqf2}/.{NVar1->nvar1,NVar2->nvar2}]]}

Affine change of system (var1' = eq1 (var1, var2), var2' = eq2 (var1, var2)) with Mat = {{α, β}, {γ, δ}}. Trans = {{ϵ}, {μ}} and time to old variables   old=mat . new + trans

ChangeVarOldNew[eq1_,eq2_,var1_,var2_,Mat_,Trans_,Time_,nvar1_1,nvar2_]:={If[Length[var1]==0,Var1=var1[t],Var1=var1];If[Length[var2]==0,Var2=var2[t],Var2=var2];Eq1=D[Var1,t]==eq1/.{var1->Var1,var2->Var2};Eq2=D[Var2,t]==eq2/.{var1->Var1,var2->Var2};NVar1=XxX[t];NVar2=YyY[t];Mat1=Flatten[Factor[Mat.{NVar1,NVar2}+Trans]];Mat1d=Factor[Mat.{(∂_t)NVar1,(∂_t)NVar2}];cambio=Factor[{Var1->Mat1[[1]],Var2->Mat1[[2]],(∂_t)Var1->Mat1d[[1]],(∂_t)Var2->Mat1d[[2]]}];eqn1=Factor[Eq1/.cambio];eqn2
=Factor[Eq2/.cambio];solxx=Sort[Flatten[Solve[{eqn1,eqn2},{(∂_t)NVar1,(∂_t)NVar2}]]];eqf1=Collect[Expand[solxx[[1,2]]],{NVar1,NVar2},Factor] Time;eqf2=Collect[Expand[solxx[[2,2]]],{NVar1,NVar2},Factor] Time;Factor[{eqf1,eqf2}/.{NVar1->nvar1,NVar2->nvar2}]}

ChangeVarON[eq1_,eq2_,var1_,var2_,Mat_,Trans_,Time_,nvar1_1,nvar2_]:={If[Length[var1]==0,Var1=var1[t],Var1=var1];If[Length[var2]==0,Var2=var2[t],Var2=var2];Eq1=D[Var1,t]==eq1/.{var1->Var1,var2->Var2};Eq2=D[Var2,t]==eq2/.{var1->Var1,var2->Var2};NVar1=XxX[t];NVar2=YyY[t];Mat1=Flatten[Factor[Mat.{NVar1,NVar2}+Trans]];Mat1d=Factor[Mat.{(∂_t)NVar1,(∂_t)NVar2}];cambio=Factor[{Var1->Mat1[[1]],Var2->Mat1[[2]],(∂_t)Var1->Mat1d[[1]],(∂_t)Var2->Mat1d[[2]]}];eqn1=Factor[Eq1/.cambio];eqn2
=Factor[Eq2/.cambio];solxx=Sort[Flatten[Solve[{eqn1,eqn2},{(∂_t)NVar1,(∂_t)NVar2}]]];eqf1=Collect[Expand[solxx[[1,2]]],{NVar1,NVar2},Factor] Time;eqf2=Collect[Expand[solxx[[2,2]]],{NVar1,NVar2},Factor] Time;Factor[{eqf1,eqf2}/.{NVar1->nvar1,NVar2->nvar2}]}

Flatten[ChangeVarON[eq1[[2]] /. change, eq2[[2]] /. change, var1, var2, {{da, db}, {dc, dd}}, {de, df}, dt, x[2][t], y[2][t]]]

Extracts the coefficients of two polynomials of degree 2 in two variables

ExtractCoeff1[VpolP_,VpolQ_,x_,y_]:={a00->Coefficient[Coefficient[VpolP,x,0],y,0],a10->Coefficient[Coefficient[VpolP,x,1],y,0],a01->Coefficient[Coefficient[VpolP,x,0],y,1],a20->Coefficient[Coefficient[VpolP,x,2],y,0],a11->Coefficient[Coefficient[VpolP,x,1],y,1]/2,a02->Coefficient[Coefficient[VpolP,x,0],y,2],b00->Coefficient[Coefficient[VpolQ,x,0],y,0],b10->Coefficient[Coefficient[VpolQ,x,1],y,0],b01->Coefficient[Coefficient[VpolQ,x,0],y,1],b20->Coefficient[Coefficient[VpolQ,x,2],y,0],b11->Coefficient[Coefficient[VpolQ,x,1],y,1]/2,b02->Coefficient[Coefficient[VpolQ,x,0],y,2]}

ExtractCoeff1[%[[1]], %[[2]], x[2][t], y[2][t]]

ExtractCoeff2[f1_]:={a00->f1[[1]],a10->f1[[2]],a01->f1[[3]],a20->f1[[4]],a11->f1[[5]]/2,a02->f1[[6]],b00->f1[[7]],b10->f1[[8]],b01->f1[[9]],b20->f1[[10]],b11->f1[[11]]/2,b02->f1[[12]]}

ExtractCoeff3[VpolP_,VpolQ_,x_,y_]:={a00->Coefficient[Coefficient[VpolP,x,0],y,0],a10->Coefficient[Coefficient[VpolP,x,1],y,0],a01->Coefficient[Coefficient[VpolP,x,0],y,1],a20->Coefficient[Coefficient[VpolP,x,2],y,0],a11->Coefficient[Coefficient[VpolP,x,1],y,1]/2,a02->Coefficient[Coefficient[VpolP,x,0],y,2],a30->Coefficient[Coefficient[VpolP,x,3],y,0],a21->Coefficient[Coefficient[VpolP,x,2],y,1]/3,a12->Coefficient[Coefficient[VpolP,x,1],y,2]/3,a03->Coefficient[Coefficient[VpolP,x,0],y,3],b00->Coefficient[Coefficient[VpolQ,x,0],y,0],b10->Coefficient[Coefficient[VpolQ,x,1],y,0],b01->Coefficient[Coefficient[VpolQ,x,0],y,1],b20->Coefficient[Coefficient[VpolQ,x,2],y,0],b11->Coefficient[Coefficient[VpolQ,x,1],y,1]/2,b02->Coefficient[Coefficient[VpolQ,x,0],y,2],b30->Coefficient[Coefficient[VpolQ,x,3],y,0],b21->Coefficient[Coefficient[VpolQ,x,2],y,1]/3,b12->Coefficient[Coefficient[VpolQ,x,1],y,2]/3,b03->Coefficient[Coefficient[VpolQ,x,0],y,3]}

collect[coll_,cha_,var_]:=Do[Print[coll[[i]],"=",Collect[ToExpression[coll[[i]]]/.cha,var,Factor]],{i,1,Length[coll]}]

SeriesManual[fun0_,Var1_,Var2_,n0_,nn_]:={If[NumberQ[(fun0/.Var2->0)]&&(fun0/.Var2->0)==0,fun=0,n=n0;fun=a[n] Var1^n;sol2=Flatten[Solve[Coefficient[fun0/.Var2->fun,Var1,n]==0,a[n]]];Do[fun=(fun/.sol2)+a[n] Var1^n;sol2=Flatten[Solve[Coefficient[fun0/.Var2->fun,Var1,n]==0,a[n]]],{n,3,nn}];Flatten[fun/.sol2]]}

StudyS[EQ1_,EQ2_,Var1_,Var2_,Trans_,pow_,par_]:={If[DetJacob[EQ1,EQ2,Var1,Var2,{},Trans]^2==0 &&trace[EQ1,EQ2,Var1,Var2,{},Trans]^2!=0,Print["OK"],Print["NO"];Return[0]];sol=Flatten[ChangeVarON[EQ1 , EQ2, Var1, Var2, {{1,0}, {0, 1}}, Trans,1, Var1[[0,0]][Var1[[0,1]]+1][t],Var2[[0,0]][Var2[[0,1]]+1][t]]];EQ1n=sol[[1]];EQ2n=sol[[2]];VAR1=Var1[[0,0]][Var1[[0,1]]+1][t];VAR2=Var2[[0,0]][Var2[[0,1]]+1][t];cca=Coefficient[EQ1n/.VAR2->0,VAR1];ccb=Coefficient[EQ1n/.VAR1->0,VAR2];ccc=Coefficient[EQ2n/.VAR2->0,VAR1];ccd=Coefficient[EQ2n/.VAR1->0,VAR2];If[NumberQ[ccb]&&ccb==0,If[NumberQ[ccd]&&ccd==0,Mat={{0,1}, {1, ccc/cca}};dt=1/cca,Mat={{1,0}, {- ccc/ccd, 1}};dt=1/ccd],Mat={{ccb,1}, {-cca, ccd/ccb}};dt=1/(cca+ccd)];Print["time change done of factor: ",Factor[dt]];sol=Flatten[ChangeVarON[EQ1n , EQ2n, VAR1, VAR2, Mat,{0,0},dt, VAR1[[0,0]][VAR1[[0,1]]+1][t],VAR2[[0,0]][VAR2[[0,1]]+1][t]]];EQ1n=sol[[1]];EQ2n=sol[[2]];VAR1=VAR1[[0,0]][VAR1[[0,1]]+1][t];VAR2=VAR2[[0,0]][VAR2[[0,1]]+1][t];fun=SeriesManual[EQ2n,VAR1,VAR2,2,pow];funF=Factor[EQ1n/.VAR2->fun][[1]];SfunF=Normal[Series[funF,{VAR1,0,pow}]];em=0;While[Coefficient[SfunF[[1]],VAR1,em]==0,em=em+1];ea=Coefficient[SfunF[[1]],VAR1,em];Print[Column[{{"m=",Factor[em]},{"a=",Factor[ea]},{"F=",Series[funF,{var1,0,em}]}}]];Assuming[par, Refine[If[Mod[em,2]==0,If[Factor[ea]>0,Print["m=",em,", saddle-node (unstable)"],Print["m=",em,", saddle-node (stable)"]],If[Mod[em,2]==1&&ea<0,Print["m=",em,", a=",ea,", saddle"],If[Mod[em,2]==1&&ea>0,Print["m=",em,", a=",ea,", node"],Print["Something fails"]]]]]]};

StudyH[EQ1_,EQ2_,Var1_,Var2_,Trans_,pow_,par_]:={If[DetJacob[EQ1,EQ2,Var1,Var2,{},Trans]^2+trace[EQ1,EQ2,Var1,Var2,{},Trans]^2==0,Print["OK"],Print["NO"];Return[0]];sol=Flatten[ChangeVarON[EQ1 , EQ2, Var1, Var2, {{1,0}, {0, 1}}, Trans,1, Var1[[0,0]][Var1[[0,1]]+1][t],Var2[[0,0]][Var2[[0,1]]+1][t]]];EQ1n=sol[[1]];EQ2n=sol[[2]];Var1n=Var1[[0,0]][Var1[[0,1]]+1][t];Var2n=Var2[[0,0]][Var2[[0,1]]+1][t];cca=Coefficient[EQ1n/.Var2n->0,Var1n];ccb=Coefficient[EQ1n/.Var1n->0,Var2n];ccc=Coefficient[EQ2n/.Var2n->0,Var1n];If[NumberQ[cca]&&cca==0,If[NumberQ[ccc]&&ccc==0,Mat={{1,0},{0,1}};dt=1/ccb,Mat={{0,1},{1,0}};dt=1/ccc],Mat={{1,cca}, {-(cca/ccb), ccb}};dt=1/(cca^2+ccb^2)];sol=Flatten[ChangeVarON[EQ1n , EQ2n, Var1n, Var2n, Mat,{0,0},dt, Var1n[[0,0]][Var1n[[0,1]]+1][t],Var2n[[0,0]][Var2n[[0,1]]+1][t]]];EQ1n=sol[[1]];EQ2n=sol[[2]];Var1n=Var1n[[0,0]][Var1n[[0,1]]+1][t];Var2n=Var2n[[0,0]][Var2n[[0,1]]+1][t];fun=SeriesManual[EQ1n,Var1n,Var2n,2,pow];funF=(EQ2n/.Var2n->fun)[[1]];SfunF=Normal[Series[funF,{Var1n,0,pow}]];em=0;If[!NumberQ[SfunF],While[Coefficient[SfunF,Var1n,em]==0,em=em+1]];ea=Coefficient[SfunF,Var1n,em];funG=((D[EQ1n,Var1n]+D[EQ2n,Var2n])/.Var2n->fun)[[1]];SfunG=Normal[Series[funG,{Var1n,0,pow}]];en=0;If[!NumberQ[SfunG],While[Coefficient[SfunG,Var1n,en]==0,en=en+1]];eb=Coefficient[SfunG,Var1n,en];Print[Column[{{"m=",Factor[em]},{"a=",Factor[ea]},{"n=",Factor[en]},{"b=",Factor[eb]},{"F=",Series[funF,{Var1n,0,em}]},{"G=",Series[funG,{Var1n,0,en}]}}]];Assuming[par, Refine[If[NumberQ[funF]&&funF==0&&NumberQ[funG]&&funG==0,Print["F≡G≡0, degenerate line, flat flow"],If[NumberQ[funF]&&funF==0,Print["F≡0≢G, degenerate line, transversal flow"],If[NumberQ[funG]&&funG==0&&Mod[em,2]==0,Print["G≡0, m=",em,", cusp"],If[NumberQ[funG]&&funG==0&&Mod[em,2]==1&&ea>0,Print["G≡0, m=",em,", a=",ea,", saddle"],If[NumberQ[funG]&&funG==0&&Mod[em,2]==1&&ea<0,Print["G≡0, m=",em,", a=",ea,", center-focus"],If[Mod[em,2]==0&&em<2en+1,Print["m=",em,"<2n+1=",2en+1,", cusp"],If[Mod[em,2]==0&&em>2en+1,Print["m=",em,">2n+1=",2en+1,", saddle-node"],If[Mod[em,2]==1&&ea>0,Print["m=",em,", a=",ea,", saddle"],If[Mod[em,2]==1&&ea<0&&em<2en+1,Print["a=",ea,", m=",em,"<2n+1=",2en+1,", center-focus"],If[Mod[em,2]==1&&ea<0&&em=2en+1&&eb^2+4ea(en+1)<0,Print["a=",ea,", b=",eb,", m=",em,"=2n+1=",2en+1,", b^2+4a(n+1)<0 center-focus"],If[Mod[em,2]==1&&ea<0&&em>2en+1,Print["a=",ea,", m=",em,">2n+1=",2en+1,", elliptic saddle"],If[Mod[em,2]==1&&ea<0&&em=2en+1&&eb^2+4ea(en+1)>=0,Print["a=",ea,", b=",eb,", m=",em,"=2n+1=",2en+1,", b^2+4a(n+1)>=0 elliptic saddle"],If[Mod[em,2]==0&&ea<0&&em>2en+1&&eb<0,Print["a=",ea,", m=",em,">2n+1=",2en+1,", attracting node"],If[Mod[em,2]==0&&ea<0&&em=2en+1&&eb^2+4ea(en+1)>=0&&eb<0,Print["a=",ea,", b=",eb,", m=",em,"=2n+1=",2en+1,", b^2+4a(n+1)>=0 attracting node"],If[Mod[em,2]==0&&ea<0&&em>2en+1&&eb>0,Print["a=",ea,", m=",em,">2n+1=",2en+1,", repelling node"],If[Mod[em,2]==0&&ea<0&&em=2en+1&&eb^2+4ea(en+1)>=0&&eb>0,Print["a=",ea,", b=",eb,", m=",em,"=2n+1=",2en+1,", b^2+4a(n+1)>=0 repelling node"],Print["Something fails"]]]]]]]]]]]]]]]]]]]}

taula1[funnames_,var_,tol_]:={fun=ToExpression[funnames];solucions={};Do[fu=Numerator[fun[[i]]]*Denominator[fun[[i]]];sOl=NSolve[fu/PolynomialGCD[fu,D[fu,var]]==0,var];sOl=FilterReal[1,sOl,10^(-8)];solucions=Union[solucions,Flatten [sOl]],{i,1,Length[fun]}];taula=Table[0,{i,2*Length[solucions]+2},{j,Length[fun]+1}];Do[taula[[1,j+1]]=funnames[[j]],{j,Length[fun]}];Do[If[i==2,punt=solucions[[1,2]]-1,If[i==2*Length[solucions]+2,punt=solucions[[Length[solucions],2]]+1,If[IntegerQ[i/2],punt=(solucions[[i/2-1,2]]+solucions[[i/2,2]])/2,punt=solucions[[(i-1)/2,2]]]]];taula[[i,1]]=punt;Do[If[Abs[fun[[j]]/.var->punt]<10^(-tol),taula[[i,j+1]]=0,taula[[i,j+1]]=Sign[N[fun[[j]]/.var->punt,50]]],{j,Length[fun]}],{i,2,2*Length[solucions]+2}];MatrixForm[taula]}

wm[fx_]:=(ffx=fx/.{a00->ta[1][1],a10->ta[2][1,1],a01->ta[2][1,2],a20->ta[3][1,1,1],a11->2ta[3][1,1,2],a02->ta[3][1,2,2],b00->ta[1][2],b10->ta[2][2,1],b01->ta[2][2,2],b20->ta[3][2,1,1],b11->2ta[3][2,1,2],b02->ta[3][2,2,2]};Length[CoefficientList[ffx  /. var2->1.1234123476234716234var1,var1]]-1);wd[fx_]:={ffx=fx/.{a00->ta[1][1],a10->ta[2][1,1],a01->ta[2][1,2],a20->ta[3][1,1,1],a11->2ta[3][1,1,2],a02->ta[3][1,2,2],b00->ta[1][2],b10->ta[2][2,1],b01->ta[2][2,2],b20->ta[3][2,1,1],b11->2ta[3][2,1,2],b02->ta[3][2,2,2]};Length[CoefficientList[ffx/. ta[3][1,1,1]->1.287634323ta[1][1]/. ta[3][1,1,2]->0.1237628376218376ta[1][1]/. ta[3][1,2,1]->0.12938712376ta[1][1]/. ta[3][1,2,2]->1.21983782137681235ta[1][1]/. ta[3][2,1,1]->0.1928378123768236ta[1][1]/. ta[3][2,1,2]->1.9281379236ta[1][1]/. ta[3][2,2,2]->1.2827352ta[1][1]/. ta[2][1,1]->1.2983736525ta[1][1]/. ta[2][1,2]->0.8273635245ta[1][1]/. ta[2][2,1]->0.8263535425ta[1][1]/. ta[2][2,2]->1.9898726254ta[1][1]/. ta[1][2]->1.092827625ta[1][1],ta[1][1]]]-1};wdd[fx_]:={ffx=fx/.{a00->ta[1][1],a10->ta[2][1,1],a01->ta[2][1,2],a20->ta[3][1,1,1],a11->2ta[3][1,1,2],a02->ta[3][1,2,2],b00->ta[1][2],b10->ta[2][2,1],b01->ta[2][2,2],b20->ta[3][2,1,1],b11->2ta[3][2,1,2],b02->ta[3][2,2,2]};fun=Expand[ffx][[1]];
If[fun[[0]]==Times,
If[NumberQ[fun[[1]]],fun=fun/fun[[1]]];
lfun=1;Which[Length[fun]==2 &&fun[[0]]==Times,lfun=2,Length[fun]>2,lfun=Length[fun]];
];
If[(fun[[lfun]]^2)[[1,0,0]]==x,fun=fun/fun[[lfun]];lfun=lfun-1];fun=fun^2;wd0=0;If[lfun>1,Do[If[fun[[i,1,0,1]]==1,wd0=wd0+fun[[i,2]]/2],{i,1,lfun}];wd1=0;Do[If[fun[[i,1,0,1]]==2,wd1=wd1+fun[[i,2]]/2],{i,1,lfun}];wd2=0;Do[If[fun[[i,1,0,1]]==3,wd2=wd2+fun[[i,2]]/2],{i,1,lfun}],
If[fun[[1,0,1]]==1,wd0=wd0+fun[[2]]/2];wd1=0;If[fun[[1,0,1]]==2,wd1=wd1+fun[[2]]/2];wd2=0;If[fun[[1,0,1]]==3,wd2=wd2+fun[[2]]/2]];wd0,wd1,wd2};type4[f_]:={wm[f],wdd[f][[1]],wdd[f][[2]],wdd[f][[3]]}

type3[f_]:={type4[f][[1]],(type4[f][[4]]-type4[f][[2]]-type4[f][[1]])/2,type4[f][[2]]+type4[f][[3]]+type4[f][[4]]}

OperL[u_]:=(2a00*D[u,a01]+ a01*D[u,a02]+ a10*D[u,a11]/2  +2 b00*D[u,b01]  +b01*D[u,b02]+b10*D[u,b11]/2)*var1-(2a00*D[u,a10]+ a10*D[u,a20]+ a01*D[u,a11]/2  +2 b00*D[u,b10]  +b10*D[u,b20]+b01*D[u,b11]/2)*var2

Set of functions

AffTranson[var1_,var2_,da_,db_,dc_,dd_,de_,df_,ct_,P_,Q_]:={newvar1=var1[[0,0]][var1[[0,1]]+1][var1[[1]]];newvar2=var2[[0,0]][var2[[0,1]]+1][var2[[1]]];sol=Flatten[Solve[{var1==da*newvar1+db*newvar2+dc,var2==dd*newvar1+de*newvar2+df},{newvar1,newvar2}]];eq1=(D[var1==da*newvar1+db*newvar2,t]/.{D[var1,t]->P,D[var2,t]->Q})/.sol;eq2=(D[var2==dd*newvar1+de*newvar2,t]/.{D[var1,t]->P,D[var2,t]->Q})/.sol;sol=Simplify[Flatten[Solve[{eq1,eq2},{D[newvar1,t],D[newvar2,t]}]]/.{var1->da*newvar1+db*newvar2+dc,var2->dd*newvar1+de*newvar2+df}];{Flatten[sol[[1,2]]*ct/.{newvar1->var1,newvar2->var2}],Flatten[sol[[2,2]]*ct/.{newvar1->var1,newvar2->var2}]}};

AffTransno[var1_,var2_,da_,db_,dc_,dd_,de_,df_,ct_,P_,Q_]:={newvar1=var1[[0,0]][var1[[0,1]]+1][var1[[1]]];newvar2=var2[[0,0]][var2[[0,1]]+1][var2[[1]]];sol=Flatten[Solve[{newvar1==da*var1+db*var2+dc,newvar2==dd*var1+de*var2+df},{var1,var2}]];newP=(D[newvar1==da*var1+db*var2,t]/.{D[var1,t]->P,D[var2,t]->Q})/.sol;newQ=(D[newvar2==dd*var1+de*var2,t]/.{D[var1,t]->P,D[var2,t]->Q})/.sol;{Flatten[newP[[2]]/ct/.{newvar1->var1,newvar2->var2}],Flatten[newQ[[2]]/ct/.{newvar1->var1,newvar2->var2}]}};

CheckInt[Int_,x_,y_,p_,q_]:=Simplify[D[Int,x] p +D[Int,y] q]

Syzighy[list_,depen_]:=(name=depen[[1,1,0]];res0=Sum[name[i]*list
[[i]],{i,1,Length[list]}];res1=res0/.depen;syzb=Table[0,{i,1,Length[list]}];m1=0;Do[k1=0;Do[If[depen[[j,1,1]]==i,k1=1],{j,1,Length[depen]}];If[k1==0,m1=m1+1;syzb[[m1]]=Factor[Coefficient[res1,name[i]]]],{i,1,Length[list]}];syz=Table[syzb[[i]],{i,1,m1}])

Syzighy computes the syzighies between the functions given in the list given the dependences stored in depen
INPUT: 
  list is a list of names of unevaluated polynomials 
 depen is a list dependences result of program of linear dependence

Depure[sol_]:=(sold={};Do[If[Abs[Im[sol[[i,1,2]]]]<10^(-10),If[Abs[Im[sol[[i,2,2]]]]<10^(-10),sold=Append[sold,sol[[i]]],0]],{i,1,Length[sol]}];sold)

Depure takes out the real solutions from a  sol which contains all solutions of a system of 2 equations
INPUT: 
  list is a list of names of unevaluated polynomials 
 depen is a list dependences result of program of linear dependence

TermGeneratorForArtes[listFW_,listR_,Vars_,changeAB_,change_,k0_]:=(Clear[FFXX];listF=Expand[listFW /. changeAB/. change];listRW=Table[WR[i],{i,1,Length[listR]}]; i1=0; onechange=Table[Vars[[i]]->1, {i, 1, Length[Vars]}];zerochange=Table[Vars[[i]]->0, {i, 1, Length[Vars]}];
For[i0=1,i0<Length[listF]+1,i0++,Do[Term=(listF[[i0,j0]]/(listF[[i0,j0]]/.onechange))/(listR[[k0,s0]]/(listR[[k0,s0]]/.onechange));If[(Denominator[Term]/.zerochange)!=0,i1=i1+1;XX[i1]=Term],{j0,1,Length[listF[[i0]]]},{s0,1,Length[listR[[k0]]]} ] 
  ]; FFXX=Union[Array[XX,i1]])

TermGenerator[listFW_,listR_,Vars_,changeAB_,change_]:=(listF=Expand[listFW /. changeAB/. change];listRW=Table[WR[i],{i,1,Length[listR]}];
listTotal=listFW; i1=0; onechange=Table[Vars[[i]]->1, {i, 1, Length[Vars]}];zerochange=Table[Vars[[i]]->0, {i, 1, Length[Vars]}];
For[k0=1,k0<Length[listR]+1,k0++,Print["We work with polynomial  R[",k0,"]"];For[i0=1,i0<Length[listF]+1,i0++,Print["We work with polynomial  FWA[",i0,"]"];Do[Term=(listF[[i0,j0]]/(listF[[i0,j0]]/.onechange))/(listR[[k0,s0]]/(listR[[k0,s0]]/.onechange));If[(Denominator[Term]/.zerochange)!=0,i1=i1+1;XX[i1]=Term],{j0,1,Length[listF[[i0]]]},{s0,1,Length[listR[[k0]]]} ] 
  ]; FFXX=Union[Array[XX,i1]];listTotal=Join[listTotal,Table[FFXX[[i]]*listRW[[k0]],{i,1,Length[FFXX]}]];Clear[FFXX,XX];Print["We have prepeared  the polynomial  R[",k0,"]->  ",i1,"  terms, which can coincide"];i1=0];listTotal)

TermGenetaror computes the possible terms of the cofactor of the generator, that is, given two families listFW and listR of multivariable polynomials, such that a a linear combination of functions from list listFW is reducible by polynomial combination of the polynomials in listR, we detect which terms will take part of the "polynomial coefficients" of the decomposition 
INPUT: 
  listFW is a list of names of unevaluated polynomials 
 listR is a list of polynomials in variables cointained in Vars 
 Vars is a list of  variables
changeAB is a list of  dependences which contains the assignments from the unevaluated parameters in which  listFW is written into the real names of invariants written on the generic form of the quadratic system which will be finally evaluated by change
change is a list of  dependences which contains the assignments from the generic system into an specific canonical system

ExpPolMulVar[testw_,var_]:=(testw2=testw;Do[testw2=Expand[testw2/.var[[i]]->Random[]*var[[Length[var]]]],{i,1,Length[var]-1}];Length[CoefficientList[testw2,var[[Length[var]]]]]-1)

ExpPolMulVar computes the total (joint) degree of a polynomial in several variables
INPUT: 
  testw is the polynomial
 var is a list of variables

generator[FW_,R_,var_,changeAB_,change_]:=(Clear[F,B,γ,β,CC,GGG,z,LenM2,m2];llis=0;F=FW/.changeAB/.change;lF=Length[F];lR=Length[R];z=Table[α[i],{i,1,lF}];nV=Length[var];LenM2=Array[lenm2,lR];Do[m3[j]=TermGeneratorForArtes[FW,R,var,changeAB,change,j];lenm2[j]=Length[m3[j]];llis=llis+lenm2[j];Y=Array[y,lR];y[j]=Sum[m2[i,j]*m3[j][[i]],{i,1,lenm2[j]}],{j,1,lR}];lista=Union[Reverse[Sort[Flatten[CoefficientList[Expand[Sum[R[[i]]*y[i],{i,1,lR}]-Sum[α[i]*F[[i]],{i,1,lF}]],var]]]]];sol=Flatten[Solve[Table[lista[[i]]==0,{i,2,Length[lista]}]]];GGG=Flatten[Union[Table[FX[i],{i,1,lF}],Flatten[Table[Flatten[Table[-RX[j]*m3[j][[i]],{i,1,lenm2[j]}]],{j,1,lR}]]]];B=Table[β[i],{i,1,lF+llis}];Do[β[i]=α[i],{i,1,lF}];lk=lF+1;Do[Do[β[lk]=m2[i,j];lk=lk+1,{i,1,lenm2[j]}],{j,1,lR}];CC=Table[γ[i],{i,1,lF+llis}];sol2=Sort[sol/.Table[β[i]->CC[[i]],{i,1,lF+llis}]];syz=Syzighy[GGG,sol2])

oldbadgenerator[F_,R_,var_,hom_]:=(lF=Length[F];lR=Length[R];z=Table[α[i],{i,1,lF}];nV=Length[var];mdR=1000;Do[If[ExpPolMulVar[R[[i]],var]<mdR,mdR=ExpPolMulVar[R[[i]],var]],{i,1,lR}];MdF=0;Do[If[ExpPolMulVar[F[[i]],var]>MdF,MdF=ExpPolMulVar[F[[i]],var]],{i,1,lF}];
lis=Expand[(hom+Sum[2 i*var[[i]],{i,1,nV}])^(MdF-mdR)];
If[NumberQ[lis],llis=1,llis=Length[lis]]
Clear[m3];
M2=Array[m2,{llis,lR}];
M3=Array[m3,llis];
m3[1]=1;Do[m3[i]=lis[[i]]/lis[[i,1]],{i,2,llis}];
Y=Array[y,lR];Do[y[j]=Sum[m2[i,j]*m3[i],{i,1,llis}],{j,1,lR}];
lista=Union[Reverse[Sort[Flatten[CoefficientList[Expand[Sum[R[[i]]*Y[[i]],{i,1,lR}]-Sum[α[i]*F[[i]],{i,1,lF}]],var]]]]];
sol=Flatten[Solve[Table[lista[[i]]==0,{i,2,Length[lista]}]]];
GGG=Flatten[Union[Table[FX[i],{i,1,lF}],Flatten[Table[Flatten[Table[-RX[j]*M3[[i]],{i,1,llis}]],{j,1,lR}]]]];
B=Table[β[i],{i,1,lF+lR*llis}];
Do[β[i]=α[i],{i,1,lF}];
Do[Do[β[i+lF+(j-1)*llis]=m2[i,j],{i,1,llis}],{j,1,lR}];
CC=Table[γ[i],{i,1,lF+lR*llis}];
sol2=Sort[sol/.Table[β[i]->CC[[i]],{i,1,lF+lR*llis}]];syz=Syzighy[GGG,sol2])

Generator is obsolete
INPUT: 
  testw is the polynomial
 var is a list of variables

changeAB={WB01->WA01,WB02->WA02,WB03->WA03,WB04->WA04,WB05->WA05,WB06->WA06,WB07->WA07,WB08->WA08,WB09->WA09,WB10->WA10,WB11->WA11,WB12->WA12,WB13->WA13,WB14->WA14,WB15->WA15,WB16->WA16,WB17->WA17,WB18->WA18,WB19->WA19,WB20->WA20,WB21->WA21,WB22->WA22,WB23->WA23,WB24->WA24,WB25->WA25,WB26->WA26,WB27->WA27,WB28->WA28,WB29->WA29,WB30->WA30,WB31->WA31,WB32->WA32,WB33->WA33,WB34->WA34,WB35->WA35,WB36->WA36,WB37->WA37,WB38->WA38,WB39->WA39,WB40->WA40,WB41->WA41,WB42->WA42};

myAdd[Expr_]:=(
	PTransfList[ind, Expr/(Expr/.onechange)]+=(Expr/.onechange/.{ NOTUSEDDUMMYTERM->0, NOTUSEDDUMMYTERM1->0});
		cnt++;
);

Process[PList_, Vars_]:=(
Module[{i, j, P, tcoef, Len, PTerms, PLen, LenPList, AllTerms, PSet, matr, zeros, alfas},
AllTerms={};
onechange=Table[Vars[[i]]->1, {i, 1, Length[Vars]}];
LenPList=Length[PList];
Clear[PTransfList];
PTransfList[_,_]=0;
For[i=1,i≤LenPList,i++,
P=PList[[i]] + NOTUSEDDUMMYTERM+NOTUSEDDUMMYTERM1;
PLen=Length[P] ;
PSet=Table[P[[k]], {k, PLen}];
PTerms=Table[PSet[[k]]/(PSet[[k]]/.onechange), {k, PLen}];
AllTerms=Union[AllTerms, PTerms];
cnt=0;
ind=i;
Scan[myAdd, PSet];
];
AllTerms=Complement[AllTerms, {NOTUSEDDUMMYTERM, NOTUSEDDUMMYTERM1}];
Print["PTransfList construction is completed"];
Len=Length[AllTerms];
Print["Number of all polynomials==>  ",LenPList];
Print["Number of all terms==>  ",Len];
If[LenPList > Len, matr=Table[0,{i, 1, LenPList}, {j, 1, LenPList}], matr=Table[0,{i, 1, Len}, {j, 1, LenPList}]];
For[j=1, j≤Len,j++,
	If[Mod[j, 50]==0,
		Print[j];
	];
	For[i=1,i≤LenPList,i++,
		matr[[j, i]]=PTransfList[i, AllTerms[[j]]];
	];
];
zeros=Table[0, {LenPList}];
alfas=Table[alfa[i], {i, 1, LenPList}];
Solve[Take[RowReduce[matr], LenPList].alfas==zeros]
]
);

Process computes the linear dependence of a set of polynomials given by  Plist and depending on variables Vars
INPUT: Plist is a list of polynomials
var is a list of variables

Main Formulas

change={};

We prepare the main formulas WCi and WDi

WWC0=Factor[(var2*P0-var1*Q0)]

WWC1=Factor[(var2*P1-var1*Q1)]

WWC2=Factor[(var2*P2-var1*Q2)]

WWD1=(D[P1,var1]+D[Q1,var2])

WWD2=(D[P2,var1]+D[Q2,var2])

WSigma=(D[P,var1]+D[Q,var2])

We compute the of GL-comitants (WTi's)

WWT1=Factor[transvec[WWC0,WWC1,1]]

WWT2=transvec[WWC0,WWC2,1]

WWT3=transvec[WWC0,WWD2,1]

WWT4=transvec[WWC1,WWC1,2]

WWT5=transvec[WWC1,WWC2,1]

WWT6=transvec[WWC1,WWC2,2]

WWT7=transvec[WWC1,WWD2,1]

WWT8=Expand[transvec[WWC2,WWC2,2]]

WWT9=transvec[WWC2,WWD2,1]

We compute the initial T-comitants (vulpeI)

vulpeA=Factor[transvec[WWC1,WWT8-2WWT9+WWD2^2,2]/144]

(OverTilde[A])=vulpeA;

vulpeB=Expand[(-32*WWC0*WWD1*WWD2*transvec[WWD2,WWT8,1]+96*WWC0*WWD1*WWD2*transvec[WWD2,WWT9,1]+48*WWC0*WWT8*transvec[WWD2,WWT7,1]-160*WWC0*WWT6*transvec[WWD2,WWT9,1]+288*WWC0*WWT7*transvec[WWD2,WWT9,1]+192*WWC0*WWT9*transvec[WWD2,WWT6,1]-576*WWC0*WWT9*transvec[WWD2,WWT7,1]+48*WWC1*WWD1*WWD1*transvec[WWD2,WWT8,1]-36*WWC1*WWD1*WWD1*transvec[WWD2,WWT9,1]+12*WWC1*WWD1*WWD2*transvec[WWC1,WWT8,2]-312*WWC1*WWD1*WWD2*transvec[WWD2,WWT6,1]-72*WWC1*WWD1*WWD2*transvec[WWD2,WWT7,1]+54*WWC1*WWT4*transvec[WWD2,WWT9,1]-72*WWC1*WWT7*transvec[WWD2,WWT6,1]-72*WWC1*WWT7*transvec[WWD2,WWT7,1]-24*WWC2*WWD1*WWD1*transvec[WWC1,WWT8,2]-192*WWC2*WWD1*WWD1*transvec[WWD2,WWT6,1]+156*WWC2*WWD1*WWD1*transvec[WWD2,WWT7,1]+54*WWC2*WWT4*transvec[WWD2,WWT7,1]+576*WWC2*WWT3*transvec[WWD2,WWT7,1]-4*WWD1*WWD1*WWD1*WWD2*WWD2*WWD2-12*WWD1*WWD1*WWD1*WWD2*WWT8-24*WWD1*WWD1*WWD1*WWD2*WWT9-16*WWD1*WWD1*WWD1*transvec[WWC2,WWT8,1]+42*WWD1*WWD1*WWD2*WWD2*WWT6+12*WWD1*WWD1*WWD2*WWD2*WWT7+24*WWD1*WWD1*WWD2*transvec[WWC1,WWT8,1]-42*WWD1*WWD2*WWD2*WWD2*WWT4-32*WWD1*WWD2*WWD2*WWD2*WWT3+96*WWD1*WWD2*WWD2*transvec[WWC1,WWT6,1]+6*WWD1*WWD2*WWT8*WWT4-48*WWD1*WWD2*WWT8*WWT3-252*WWD1*WWD2*WWT4*WWT9-32*WWD1*WWT8*transvec[WWD2,WWT2,1]+192*WWD1*WWT5*transvec[WWD2,WWT7,1]+64*WWD1*WWT2*transvec[WWD2,WWT8,1]-64*WWD1*WWT2*transvec[WWD2,WWT9,1]-64*WWD1*WWT3*transvec[WWC2,WWT8,1]+12*WWD1*WWT7*transvec[WWC1,WWT8,1]+96*WWD2*WWD2*WWD2*transvec[WWC0,WWT6,1]+96*WWD2*WWD2*WWD2*transvec[WWD2,WWT1,1]+9*WWD2*WWD2*WWT4*WWT6-18*WWD2*WWD2*WWT4*WWT7-48*WWD2*WWT8*transvec[WWD2,WWT1,1]+64*transvec[WWC0,WWT5,1]*transvec[WWD2,WWT9,1])/(2^8*3^3)];

(OverTilde[B])=vulpeB;

vulpeD=Expand[(2*WWC0*WWT8-16*WWC0*WWT9-4*WWC0*WWD2^2-WWC1*WWT6+6*WWC1*WWT7-6*WWD1*WWT5-transvec[WWC1,WWT5,1]+6*WWC1*WWD1*WWD2-9*WWD1^2*WWC2)/36];

(OverTilde[D])=vulpeD;

vulpeE=Expand[(-3*transvec[WWC1,WWT9,1]-WWD1*WWT8+2*WWD1*WWT9-3*WWD2*WWT7-WWD1*WWD2^2)/72]

(OverTilde[E])=vulpeE;

vulpeF=Expand[(48*WWC0*transvec[WWD2,WWT9,1]+6*WWD1^2*WWD2^2-24*WWD1^2*WWT9+24*WWD1*WWD2*WWT7-9*WWD2^2*WWT4-24*transvec[WWC2,vulpeD,2]+120*transvec[WWD2,vulpeD,1]+288*WWD1*vulpeE-36*WWC1*transvec[WWD2,WWT7,1]+4*WWD1*WWD2*WWT6+8*WWD1*transvec[WWD2,WWT5,1])/144];

(OverTilde[F])=vulpeF;

vulpeK=Factor[(4WWT9+WWT8+4WWD2^2)/72]

Factor[transvec[P2, Q2, 1]/4 /. change]

Factor[DetJacob[P2, Q2, var1, var2, change, {}]/4]

(OverTilde[K])=vulpeK

vulpeH=Expand[(-WWT8+8*WWT9+2WWD2^2)/72]

(OverTilde[H])=-4vulpeH;

WN=(OverTilde[H]);

WWK=4vulpeK

WWH=-4vulpeH

We compute the affine invariants (WAi's and WEi's)

WWA01=Expand[(vulpeA)/1]

WWA02=Expand[(transvec[WWC2,vulpeD,3])/12]

WWA03=Expand[(transvec[transvec[transvec[WWC2,WWD2,1],WWD2,1],WWD2,1])/48]

WWA04=Expand[(transvec[vulpeH,vulpeH,2])/1]

WWA05=Expand[(transvec[vulpeH,vulpeK,2])/2];

WWA06=Expand[(transvec[vulpeE,vulpeH,2])/2];

WWA07=Expand[(transvec[transvec[WWC2,vulpeE,2],WWD2,1])/8];

WWA08=Expand[(transvec[transvec[vulpeD,vulpeH,2],WWD2,1])/8];

WWA09=Expand[(transvec[transvec[transvec[vulpeD,WWD2,1],WWD2,1],WWD2,1])/48];

WWA10=Expand[(transvec[transvec[vulpeD,vulpeK,2],WWD2,1])/8];

WWA11=Expand[(transvec[vulpeF,vulpeK,2])/4];

WWA12=Expand[(transvec[vulpeF,vulpeH,2])/4];

WWA13=Expand[(transvec[transvec[transvec[WWC2,vulpeH,1],vulpeH,2],WWD2,1])/24];

WWA14=Expand[(transvec[vulpeB,WWC2,3])/36];

WWA15=Expand[(transvec[vulpeE,vulpeF,2])/4];

WWA16=Expand[(transvec[transvec[transvec[vulpeE,WWD2,1],WWC2,1],vulpeK,2])/16];

WWA17=Expand[(transvec[transvec[transvec[vulpeD,vulpeD,2],WWD2,1],WWD2,1])/64];

WWA18=Expand[(transvec[transvec[vulpeD,vulpeF,2],WWD2,1])/16];

WWA19=Expand[(transvec[transvec[vulpeD,vulpeD,2],vulpeH,2])/16];

WWA20=Expand[(transvec[transvec[WWC2,vulpeD,2],vulpeF,2])/16];

WWA21=Expand[(transvec[transvec[vulpeD,vulpeD,2],vulpeK,2])/16];

WWA22=Expand[(transvec[transvec[transvec[transvec[transvec[WWC2,vulpeD,1],WWD2,1],WWD2,1],WWD2,1],WWD2,1])/72/16];

WWA23=Expand[(transvec[transvec[vulpeF,vulpeH,1],vulpeK,2])/8];

WWA24=Expand[(transvec[transvec[transvec[WWC2,vulpeD,2],vulpeK,1],vulpeH,2])/32];

WWA25=Expand[(transvec[transvec[vulpeD,vulpeD,2],vulpeE,2])/16];

WWA26=Expand[(transvec[vulpeB,vulpeD,3])/36];

WWA27=Expand[(transvec[transvec[vulpeB,WWD2,1],vulpeH,2])/24];

WWA28=Expand[(transvec[transvec[transvec[WWC2,vulpeK,2],vulpeD,1],vulpeE,2])/16];

WWA29=Expand[(transvec[transvec[vulpeD,vulpeF,1],vulpeD,3])/96];

WWA30=Expand[(transvec[transvec[transvec[WWC2,vulpeD,2],vulpeD,1],vulpeD,3])/288];

WWA31=Expand[(transvec[transvec[transvec[vulpeD,vulpeD,2],vulpeK,1],vulpeH,2])/64];

WWA32=Expand[(transvec[transvec[transvec[transvec[vulpeD,vulpeD,2],WWD2,1],vulpeH,1],WWD2,1])/64];

WWA33=Expand[(transvec[transvec[transvec[transvec[vulpeD,WWD2,1],vulpeF,1],WWD2,1],WWD2,1])/128];

WWA34=Expand[(transvec[transvec[transvec[transvec[vulpeD,vulpeD,2],WWD2,1],vulpeK,1],WWD2,1])/64];

WWA35=Expand[(transvec[transvec[transvec[transvec[vulpeD,vulpeD,2],vulpeE,1],WWD2,1],WWD2,1])/128] ;

WWA36=Expand[(transvec[transvec[transvec[vulpeD,vulpeE,2],vulpeD,1],vulpeH,2])/16];

WWA37=Expand[(transvec[transvec[transvec[vulpeD,vulpeD,2],vulpeD,1],vulpeD,3])/576];

WWA38=Expand[(transvec[transvec[transvec[transvec[WWC2,vulpeD,2],vulpeD,2],vulpeD,1],vulpeH,2])/64];

WWA39=Expand[(transvec[transvec[transvec[vulpeD,vulpeD,2],vulpeF,1],vulpeH,2])/64];

WWA40=Expand[(transvec[transvec[transvec[vulpeD,vulpeD,2],vulpeF,1],vulpeK,2])/64];

WWA41=Expand[(transvec[transvec[transvec[transvec[WWC2,vulpeD,2],vulpeD,2],vulpeF,1],WWD2,1])/64];

WWA42=Expand[(transvec[transvec[transvec[vulpeD,vulpeF,2],vulpeF,1],WWD2,1])/16];

WWE1 = WWA25;

WWE2 = WWA06;

WWE3 = 2 WWA01^2 - WWA08 - WWA12;

Next CT-comitants govern the number and multiplicity of finite singular points

finiteMu=-transvec[vulpeK,vulpeK,2]/2;μ=finiteMu

TV1=Expand[WWT6+WWT7+3*WWD1*WWD2];
TV2=Expand[WWT5-3*WWC2*WWD1+2*WWC1*WWD2];
TV3=Expand[WWT2+WWC0*WWD2];
TV4=Expand[WWT4+2*WWD1^2];
TV5=Expand[WWT1+WWC0*WWD1];
TV6=Expand[transvec[TV1,vulpeK,1]/12];
TV7=Expand[(288transvec[vulpeK,TV3,1]-8transvec[TV1,TV2,1]-transvec[TV2,TV2,2])/864];

TV8 = Expand[(3 TV2*TV4 + 8 TV1*TV3 + 288 TV5*vulpeK)/144];

finiteH=transvec[TV1,vulpeK,1]/12;ℍ=finiteH;

finiteG=Expand[288*transvec[vulpeK,TV3,1]-8*transvec[TV1,TV2,1]-transvec[TV2,TV2,2]]/864;

𝔾 = finiteG;

finiteF=Expand[3*TV4*TV2-8*TV1*TV3+288*TV5*vulpeK]/144;𝔽=finiteF;

finiteV = Expand[4*TV3^2 - 3*TV2*TV5]/36; 𝕍 = finiteV;

finiteP = Expand[𝔾^2 - 6*𝔽*ℍ + 12*μ*𝕍]; ℙ = finiteP;

finiteR = Expand[4*(3*ℍ^2 - 2*μ*𝔾)]; ℝ = finiteR;

finiteS = Expand[ℝ^2 - 16*μ^2*ℙ]; 𝕊 = finiteS;

finiteU = Expand[𝔽^2 - 4*𝔾*𝕍]; 𝕌 = finiteU;

finiteQ = Expand[2*𝔾^3 + 9*μ*(3*𝔽^2 - 8*𝔾*𝕍) - 18*𝔽*𝔾*ℍ + 108*ℍ^2*𝕍]; ℚ = finiteQ;

finiteT = Expand[2*μ*ℚ - ℙ*ℝ]; 𝕋 = finiteT;

finiteK=(OverTilde[K]);

𝔻 = finiteD;

finiteD=-Expand[(transvec[transvec[transvec[(OverTilde[D]),(OverTilde[D]),2],(OverTilde[D]),1],(OverTilde[D]),3])/576*48];

Next CT-comitants govern the number and multiplicity of infinite singular points

Mu0=-Factor[transvec[WWK,WWK,2]/32]

Factor[Resultant[P2, Q2, var1]/var2^4]

Mu1=OperL[Mu0];

Mu2=OperL[Mu1]/2;

Mu3=OperL[Mu2]/3;

Mu4=OperL[Mu3]/4;

WWM=transvec[WWC2,WWC2,2]

WEta=Factor[transvec[WWM,WWM,2]/384] ;

Kappa=Factor[transvec[WWM,vulpeK,2]]

Kappa1=Factor[transvec[WWM,WWC1,2]]

Kappa2=Expand[transvec[WWD2,WWC0,1]]

New CT-comitants  which govern the number and multiplicity of Infinite 
Singular Points as well as their types

WTTeta1=Expand[16WEta+Kappa] ;

WTTeta2 = WWA01; (* Old WTTeta1 *)

WWN=Factor[WWK+WWH]

WTTeta2=Expand[transvec[WWC1,WWN,2]/16];

WTTeta3=WWA08+WWA11; (* Old WTTeta2 *)

WTTeta4=WWA07; (* Old WTTeta3 *)

WTTeta5=Factor[ (WWC2(2 transvec[WWT6,WWT7,1] )-transvec[WWC1,WWD2^2,2]( 2  WWD2 WWC1+  WWT5 ))];

WTTeta6=WWC1 WWT8-2WWC2 WWT6;

WWL1=Factor[ transvec[WWC2,vulpeD,2]];

WWL2=Factor[ transvec[WWC2,vulpeD,1]];

WWL3=WWC1^2-4WWC0 WWC2;

WWK3=Expand[(2WWC2^2(2WWT3+3/2WWT4)+WWC2(3WWC0*WWK-2WWC1*WWT7)+2WWK1(3WWK1-WWC1*WWD2)) ];

Auxiliary: for phase portrait

WWL =Factor[(4WWK +8WWH -WWM )]

WWWL =Factor[(16vulpeK -32vulpeH -WWM )]

WWL-WWWL

WIR=Factor[WWL+8WWK]

WWK1=Factor[P1*Q2-P2*Q1 ]

WWK2 =Factor[4transvec[WWT2,(WWM-2WWK),1]+3*WWD1*transvec[WWC1,(WWM-2WWK),1]-(WWM-2WWK)(16*WWT3-3/2*WWT4+3*WWD1^2)];

Next affine invariants govern the existence and number of centers

centerG1 = Expand[(5*WWA02^2 - 22*WWA17 - 16*WWA18 + 21*WWA19 - 2*WWA20 - 3*WWA21)/9];

centerG2 = Factor[-WWA01*WWA02 + 2*WWA15];

centerG3 = Expand[WWA02];

centerG4 = Expand[WWA07];

centerG5 = Factor[(2*WWA22 - WWA02*WWA03)/3];

centerG6 = Factor[(-24*WWA01*WWA06 - 4*WWA01*WWA07 - WWA02*WWA03 + WWA02*WWA04 - 6*WWA02*WWA05 + 2*WWA22 - 8*WWA23)/2];

centerG7 = Factor[(-20*WWA01*WWA07 - WWA02*WWA03 + 2 WWA22)/2];

centerG8 = Expand[(-18*WWA01^2 + 5*WWA08 - WWA10 - 3*WWA11 + 9*WWA12)/2];

centerG9 = Expand[(WWA04 + 2*WWA05)/4];

centerG10 = Expand[WWA26];

centerG11 = Expand[(WWA02^2 - 20*WWA17 - 12*WWA18 + 6*WWA19 + 6*WWA21)/3];

centerG12 = Expand[(-3*WWA08 - 2*WWA09 - WWA10 - WWA11 - WWA12)/2];

centerG13=Expand[(-WWD1*TV4-4*WWD1*WWT3+4*transvec[WWD2,WWT1,1])/8];

centerG14 = Expand[(WWT4 + 2*WWD1^2)/8];

centerG15=Factor[WWA03(WWA08+WWA09-2*WWA10)];

Expressions for  invariant polynomials T's MWFi  and MWEi (for weak foci and saddles)

T=Factor[Sum[1/(i!)^2 transvec[WWD2^i ,Nest[OperL,finiteMu,i]/(i!),i]ω^(4-i),{i,0,4}]];

W𝔗4=Factor[T/.ω->WWD1];

W𝔗3=Factor[D[T,ω]/1!/.ω->WWD1];

W𝔗2=Factor[D[T,{ω,2}]/2!/.ω->WWD1];

W𝔗1=Factor[D[T,{ω,3}]/3!/.ω->WWD1];

WFFF1=Expand[transvec[WWC2,vulpeD,3]]/12;

WFFF2=Expand[(-2 WWA01*WWA01*WWA03 + WWA03*WWA08 -3 WWA03*WWA10+3 WWA03*WWA11+WWA03*WWA12-10 WWA04*WWA08+3 WWA04*WWA09-5 WWA04*WWA10-5 WWA04*WWA11-5 WWA04*WWA12+10 WWA05*WWA08+6 WWA05*WWA09)];

WFFF3=Expand[(-10 WWA01*WWA01*WWA03+5 WWA03*WWA08+WWA03*WWA10-WWA03*WWA11+5 WWA03*WWA12-2 WWA04*WWA08-WWA04*WWA09-WWA04*WWA10-WWA04*WWA11-WWA04*WWA12+2 WWA05*WWA08-2 WWA05*WWA09 )];

WFFF4=Expand[ (40 WWA01*WWA01*WWA02+12 WWA01*WWA14 -44 WWA01*WWA15 -14 WWA02*WWA08+8 WWA02*WWA09-2 WWA02*WWA10-2 WWA02*WWA11-14 WWA02*WWA12-8 WWA33+8 WWA34)]/2;

WFFF =Expand[(transvec[transvec[vulpeE,WWC2,2],WWD2,1])];  (* Old F *)

WFFF =Expand[WWA07];  (* Old E1 *)

W𝔅 =Expand[(transvec[transvec[vulpeD,WWT8-10 WWT9-6WWD2^2,2],WWD2,1] -12 transvec[vulpeF,WWT9,2])]; (* Old 𝔅 *)

W𝔅 =Expand[-(3 WWA08 + 2 WWA09 + WWA10 + WWA11 + WWA12)];

Wℌ =Expand[-transvec[WWT9,WWT9,2]-transvec[transvec[WWC2, WWD2^2, 2], WWD2, 1]];  (* Old ℌ *)

Wℌ =Expand[-(WWA04 + 2 WWA05)];

W𝔅1=Expand[(transvec[WWT7,WWD2,1](12 WWD1*WWT3 +2 WWD1^3 +9 WWD1*WWT4 +36 transvec[WWT1,WWD2,1]) - 2 WWD1*transvec[WWT6,WWD2,1](WWD1^2+12*WWT3) + WWD1^2(WWD1*transvec[WWT8,WWC1,2]+6 transvec[transvec[WWT6,WWC1,1],WWD2,1]))/144]; (* Old E4 *)

W𝔅2=Expand[(transvec[WWT7,WWD2,1]^2(8 WWT3-3 WWT4+2 WWD1^2 )+transvec[WWT7,WWD2,1](8 WWT3*transvec[WWT6,WWD2,1]-WWD1^2 transvec[WWT8,WWC1,2]-4 WWD1 transvec[transvec[WWT6,WWC1,1],WWD2,1]))/384]; (* Old E5 *)

W𝔅3=Expand[ -WWD1^2 (4 WWD2^2 +  WWT8 + 4   WWT9) + 3 WWD1 WWD2 (WWT6 + 4 WWT7) - 
   24 WWT3 (WWD2^2 -  WWT9)];

W𝔅4=Expand[ WWD1 (WWT5  + 2 WWD2  WWC1) - 3 WWC2 (WWD1^2 + 2 WWT3)];

W𝔅5=Expand[ W𝔗1^2-4finiteMu W𝔗2];

Wℐ=Expand[ WWA08 -2WWA10];

Wℐ1=Expand[ 4 WWA08-5 WWA10-11WWA11+10WWA12];

W𝔊=Expand[ WWM+32*vulpeH];

CT-comitants for star node (WDNi's,  WDGj) called as U's and Y's in inner Vulpe's paper

W𝔘1=Expand[(WWT8-2*WWT9+WWD2^2)];

W𝔘2=Expand[(-3*transvec[WWC1,WWT9,1]-WWD1*WWT8+2*WWD1*WWT9-3*WWD2*WWT7-WWD1*WWD2^2)];

W𝔘3=Expand[2*WWT5+WWC1*WWD2];

W𝔘4=Expand[(-WWT8+8*WWT9+2*WWD2^2)];

W𝔘5=Expand[(WWT5-3*WWD1*WWC2+2*WWC1*WWD2)];

W𝔘6=Expand[3(WWD2^2-16vulpeK)*vulpeD  +WWC2*( transvec[WWC2,vulpeD,2] -5 transvec[WWD2,vulpeD,1] +6*vulpeF)];

W𝔘7=Expand[3*WWC1*WWD1+4*WWT2-2 WWC0*WWD2];

W𝔜1=transvec[WWC1,WWT8-2*WWT9+WWD2^2,2]; (* = vulpeA *)

W𝔜2=Factor[2 WWD1^2+8*WWT3-  WWT4];

These CT - comitants have been renumbered by Nicolae as

W𝔘1=WWN;

old ?? ?

W𝔘2 = Expand[(transvec[WWC1 , WWH - WWK , 1] - 2*WD1*WWN) ];

old ?? ?

W𝔘3=Expand[3(WWD2^2-16vulpeK)*vulpeD  +WWC2*( transvec[WWC2,vulpeD,2] -5 transvec[WWD2,vulpeD,1] +6*vulpeF)];

old 6

W𝔘4=Expand[2*WWT5+WWC1*WWD2];

old 3

W𝔘5=Expand[3*WWC1*WWD1+4*WWT2-2 WWC0*WWD2];

old 7

W𝔘6=WWH;

old ?? ?

W𝔜1=WA01;

W𝔜2=Expand[2 WD1^2+8*WT3-  WT4];

Next affine invariants are related with first integrals

WWR1=-transvec[transvec[transvec[WWC2,WWC2,2],WWC2,1],vulpeD,3];

WWN=Factor[WWK+WWH]

WWR2=8WWH (transvec[WWC2,vulpeD,2]+8transvec[vulpeD,WWD2,1])+3(transvec[WWC1,2WWH-WWN,1]-2WWD1 WWN)^2;

WWR3=transvec[WWC1,2WWH-WWN,1]-2WWD1 WWN;

WWR4=transvec[WWH,vulpeE,2];

WWR5=transvec[transvec[transvec[WWC2,WWH,1],WWH,2],WWD2,1];

WWR6=vulpeE;

WWR7=5 transvec[WWC2,vulpeD,3]^2-9transvec[transvec[transvec[vulpeD,vulpeD,2],WWD2,1],WWD2,1]-63transvec[transvec[vulpeD,vulpeF,2],WWD2,1]+27transvec[transvec[vulpeD,vulpeD,2],WWH-4WWK,2]-18transvec[transvec[WWC2,vulpeD,2],vulpeF,2];

WWR8=2 transvec[WWC2,vulpeD,3]transvec[WWH,WWH-WWK,2]-
144vulpeA transvec[vulpeE,WWH,2]-40vulpeA transvec[transvec[WWC2,vulpeE,2],WWD2,1]-18transvec[transvec[vulpeF,WWH,1],WWK,2]+
transvec[transvec[transvec[WWC2,vulpeD,2],WWK,1],WWH,2];

WWR9=(2WWD1^2+transvec[WWC1,WWC1,2])/8

Next affine invariants are related with quadratic rational first integrals

coeP=CoefficientList[P/.{var1->x+x0,var2->y+y0},{x,y}]

coeQ=CoefficientList[Q/.{var1->x+x0,var2->y+y0},{x,y}]

PP0=coeP[[1,1]]

PP1=coeP[[2,1]] var1 + coeP[[1,2]] var2

PP2=coeP[[3,1]] var1^2+coeP[[2,2]] var1 var2+coeP[[1,3]] var2^2

QQ0=coeQ[[1,1]]

QQ1=coeQ[[2,1]] var1 + coeQ[[1,2]] var2

QQ2=coeQ[[3,1]] var1^2+coeQ[[2,2]] var1 var2+coeQ[[1,3]] var2^2

YYC0=(var2*PP0-var1*QQ0);

YYC1=(var2*PP1-var1*QQ1);

YYC2=(var2*PP2-var1*QQ2);

YYD1=(D[PP1,var1]+D[QQ1,var2]);

YYD2=(D[PP2,var1]+D[QQ2,var2]);

YYG1=YYD1/.{x0->var1,y0->var2}

YYG2=Simplify[Discrim[YYC1,var1]/var2^2]/.{x0->var1,y0->var2}

YYG3=Simplify[Resultant[YYD2,YYC0,var1]/var2]/.{x0->var1,y0->var2}

YYG4=Simplify[Resultant[YYC1,YYC0,var1]/var2^2]/.{x0->var1,y0->var2};

YE1=(PP1/.{var1->0,var2->1})-(QQ1/.{var2->0,var1->1})

YYG5=YE1/.{x0->var1,y0->var2}

YE2=((PP2/.{var1->1,var2->0})+(PP2/.{var2->1,var1->0}))var1+((QQ2/.{var1->1,var2->0})+(QQ2/.{var2->1,var1->0}))var2

YYG6=Simplify[transvec[YE2,YYC0,1]/.{x0->var1,y0->var2}]

YE3=PP0 var1+QQ0 var2

YYG7=Simplify[transvec[YE3,YYD2,1]/.{x0->var1,y0->var2}]

Next affine invariants are related with invariant ellipses

Whatgamma1=WWA01^2(3WWA06+2WWA07) - 2WWA06(WWA08+WWA12);

Whatgamma2=9WWA01^2WWA02(23252WWA03+23689WWA04) - 1440WWA02 WWA05(3WWA10+13WWA11)- 1280WWA13(2WWA17+WWA18+23WWA19 - 4WWA20)-320WWA24(50WWA08+3WWA10+45WWA11 - 18WWA12)+120WWA01 WWA06(6718WWA08+4033WWA09+3542WWA11+2786WWA12)+30WWA01 WWA15(14980WWA03 - 2029WWA04 - 48266WWA05)- 30WWA01 WWA07(76626WWA01^2 - 15173WWA08+11797WWA10+16427WWA11 - 30153WWA12)+8WWA02 WWA07(75515WWA06 - 32954WWA07)+2WWA02 WWA03(33057WWA08 - 98759WWA12)- 60480WWA01^2 WWA24+WWA02 WWA04(68605WWA08 -131816WWA09+131073WWA10+129953WWA11)- 2WWA02(141267WWA06^2 - 208741WWA05 WWA12+3200WWA02 WWA13);

Whatgamma3=843696WWA05 WWA06 WWA10+WWA01(-27(689078WWA08+419172WWA09 - 2907149WWA10 - 2621619WWA11)WWA13 - 26(21057WWA03 WWA23+49005WWA04 WWA23 - 166774WWA03 WWA24+115641WWA04 WWA24));

Whatgamma4=-488WWA02^3 WWA04+WWA02(12(4468WWA08^2+32WWA09^2 - 915WWA10^2+320WWA09 WWA11 - 3898WWA10 WWA11 - 3331WWA11^2+2WWA08(78WWA09+199WWA10+2433WWA11))+2WWA05(25488WWA18 - 60259WWA19 - 16824WWA21)+779WWA04 WWA21)+4(7380WWA10 WWA31 - 24(WWA10+41WWA11)WWA33+WWA08(33453WWA31+19588WWA32 - 468WWA33 -19120WWA34)+96WWA09(-WWA33+WWA34)+556WWA04 WWA41 - WWA05(27773WWA38+41538WWA39 - 2304WWA41+5544WWA42));

Whatgamma5=WWA22;

Whatgamma6=WWA01(64WWA03 - 541WWA04)WWA07+86WWA08 WWA13+128WWA09 WWA13 - 54WWA10 WWA13- 128WWA03 WWA22+256WWA05 WWA22+101WWA03 WWA24 - 27WWA04 WWA24;

Whatgamma7=WWA02(2WWA03(WWA08 + 11WWA10)- 18WWA07^2- 9WWA04(2WWA09+WWA10))+32WWA08 WWA22-26WWA10 WWA22;

Whatgamma8=WWA06;

Whatgamma9=12WWA01^2+12WWA08+5WWA10+17WWA11;

Whatbeta1=3WWA01^2- 2WWA08 - 2WWA12;

Whatbeta2=2WWA13;

Whatbeta3=8WWA03+27WWA04 - 54WWA05;

Whatbeta4=WWA04;

Whatbeta5=8WWA05 - 5WWA04;

Whatbeta6=WWA03;

Whatbeta7=24WWA03+11WWA04+20WWA05;

Whatbeta8=41WWA08+44WWA09+32WWA10;

Whatcalr1=WTheta WWA06 (5WWA06(WWA10+WWA11) - 2WWA07(12WWA01^2+WWA08+WWA12) - 2WWA01(WWA23 - WWA24)+2WWA05(WWA14+WWA15)+WWA06(9WWA08+7WWA12));

Whatcalr2=Whatbeta4 Whatbeta6(2WWA10 - WWA08  -WWA09);

Whatcalr3=Whatbeta2 (WWA02(80WWA03 -3WWA04 - 54WWA05) - 80WWA22+708WWA23 - 324WWA24);

Whatcalr4=Factor[transvec[WWC2,(OverTilde[D]),2]];

Whatcalr5=12WWA01^2+12WWA08+5WWA10+17WWA11;

Whatcalr6=2WWA10 - WWA08 - WWA09;

Whatcalr7=4WWA08 - 3WWA09;

Other affine invariants

WTU1=WWA09-54WWA01^2;

WTU2=3WWA08-WWA09;

The first group (B1-B3,theta)

WWB3=Factor[transvec[WWC2,vulpeD,1]] ;

WWB2 =Factor[transvec[WWB3 ,WWB3 ,2]-6*transvec[WWC2,vulpeD,3]*WWB3 ];

WWB1 =Factor[(27*transvec[transvec[transvec[WWC2,WWC2,2],transvec[vulpeD,vulpeD,2],1], transvec[WWC2,vulpeD,2], 2]+ 
32*transvec[WWC2,vulpeD,3]^3)/2^11/3^6];

WWB4=transvec[vulpeD,vulpeH,2]*transvec[transvec[vulpeD,vulpeH,2],vulpeH,1];

WWB5=WWD2*(transvec[transvec[WWC2,WWD2, 1],WWD2, 1]-3transvec[WWC2, vulpeK, 2]);

WWB6=WWC1^2-4*WWC0 WWC2;

WTheta=Factor[-transvec[WWN,WWN,2]/2]

θ = WTheta

The second group (Hi) This H's are relevant for invariant lines

WWILH1=Factor[-transvec[transvec[transvec[WWC2,WWC2,2],WWC2,1],vulpeD,3]] ;

WWILH2=Factor[(transvec[WWC1 , 2*WWH-WWN , 1]-2*WWD1*WWN)] ;

WWILH3=Factor[transvec[WWC2,vulpeD,2]] ;

WWILH4=Factor  [ transvec[transvec[WWC2,vulpeD,2],transvec[WWC2,WWD2,1],2]]  ;

WWILH5=Factor  [( transvec[transvec[WWC2,WWC2,2],transvec[vulpeD,vulpeD,2],2]+
8* transvec[transvec[WWC2,vulpeD,2],transvec[vulpeD,WWD2,1],2])]  ;

WWILH6=Factor[(16*WWN^2*transvec[WWC2,vulpeD,2]+WWILH2^2*transvec[WWC2,WWC2,2])] ;

WWILH7=Factor[transvec[WWC1,WWN,2]]

WWILH8=Factor[(9*transvec[transvec[WWC2,vulpeD,2],transvec[vulpeD,WWD2,1],2] +2*transvec[WWC2,vulpeD,3]^2  )] ;

WWILH9=-Factor[(transvec[transvec[transvec[vulpeD,vulpeD,2],vulpeD,1],vulpeD,3]) ] ;

WWILH10=Factor [ transvec[transvec[vulpeD,WWN,2],WWD2,1]] ;

WWILH11=Factor[8WWH*(transvec[WWC2,vulpeD,2]+8transvec[vulpeD,WWD2,1])  +3WWILH2^2]  ;

WWILH12=Factor[(transvec[vulpeD,vulpeD,2]  )]  ;

WWILH13=Factor[(WWA01 WWA02 - WWA14 -WWA15)]  ;

WWILH14=Factor[-(20WWA02 WWA03+33 WWA02 WWA04 -156 WWA02 WWA05 -396WWA02 WWA06 +20 WWA22 -168 WWA23 +WWA24)]  ;

WWILH15=Factor[transvec[transvec[vulpeD,vulpeD,2],-4vulpeH,2] ]  ;

WWILH16 = Factor[14 WWA02^4 - WWA02^2 (10 WWA20 + 33 WWA21) - 2 WWA02 (15 WWA39 + WWA42)]  ; Too big to be computed in general

WWR=WWL+8WWK;

W𝔊1=Factor[transvec[transvec[WWC2,vulpeE,2],WWD2,1] ]  ;

W𝔊2=Factor[8WWILH8-9WWILH5]  ;

W𝔊3=Factor[(Mu0-WEta) WWILH1-6WEta(WWILH4+12WWILH10)]  ;

New   invariant  polynomials (Zi  and Ui - final version)

WWU1 = Factor[2 WWILH4 -   WWILH10];

WWZ1 = Factor[WWM - 2 WWH];

WWZ2=Factor[(  4WWH^2+3  (WWD2^2) WWK+11  WWH   WWK-5  (WWK^2)+3 WWC2 ⟨WWC2,  WWK, 2⟩)(-16 WWH^2+3  (WWD2^2)  WWK-29  WWH  WWK-25   ((WWK )^2)+3 WWC2 ⟨WWC2, WWK, 2⟩)];

WWZ3=Factor[81⟨⟨(OverTilde[D]), (OverTilde[D]), 2⟩, (OverTilde[K]), 2⟩+4⟨WWC2, (OverTilde[D]), 3⟩^2];(* for Configs 5.3, 5.5 -> type (0,2,8) *)

WWZ4=Factor[(4 WWD1^2(9WWD1^2+72  WWT3 +41 WWT4)+9 WWT4^2-800 WWD1⟨WWT6,WWC0,1⟩+144 ⟨⟨WWT6,WWC1,1⟩,WWC0,1⟩ +256 ⟨⟨WWT8,WWC0,1⟩,WWC0,1⟩)] ;

WWZ5=Factor[(36WWD1^4(9WWD1^2+131WWT4+108WWT3)-4116WWD1⟨WWC1,WWC0*WWD2,2⟩(2WWD1^2+9WWT4)+8WWD1^2 WWT3(3687WWT4+1258 WWT3)+9WWT4^2(929WWD1^2+50WWT4-400WWT3)+6400⟨(OverTilde[D]),WWC0^2*WWD2,3⟩+4⟨WWC1,WWC0*WWD2,2⟩(7261⟨WWC1,WWC0*WWD2,2⟩-10748WWD1*WWT3)+3200⟨WWC1,WWC0^2,2⟩⟨WWC1,WWD2^2,2⟩)];

WWZ6=Factor[-12 (OverTilde[A]) WWC2+WWD2 (OverTilde[E])-2 ⟨WWC2, (OverTilde[E]), 1⟩]   ;

WWZ7=Factor[2(OverTilde[D])(  (WWD2^2)  +4 WWH)-3 WWC2( ⟨WWC2, (OverTilde[D]), 2⟩+   ⟨(OverTilde[D]), WWD2, 1⟩+6 (OverTilde[F]))];

WWZ8=Factor[8 (OverTilde[D])  +3WWC2  (2WWD1^2+⟨WWC1,WWC1,2⟩)]   ;

Third group:  (Subscript[N, i]) (CT-comitants)

WWN1=Factor[(transvec[WWC2,WWC2,2]*WWC1-2*transvec[WWC1,WWC2,2]*WWC2)];

WWN2=Factor[(transvec[WWC1,WWC2,2]*WWD1-transvec[transvec[WWC2,WWC2,2],WWC0,1])];

WWN3=Factor[transvec[WWC2,WWC1,1]];

WWN4=Factor[(4*transvec[WWC2,WWC0,1]-3*WWC1*WWD1)];

WWN5=Factor[((transvec[WWD2,WWC1,1]+WWD2*WWD1)^2-4* transvec[WWC2,WWC2,2]*transvec[WWC0,WWD2,1])];

WWN6=Factor[(8*vulpeD+WWC2(8* transvec[WWC0,WWD2,1]-3*transvec[WWC1,WWC1,2]+ 2* WWD1^2))];

WWN7=Factor[(12  WWD1*transvec[WWC0,WWD2,1]+2  WWD1^3+9  WWD1*transvec[WWC1,WWC1,2]+36 transvec[transvec[WWC0,WWC1,1],WWD2,1])];

WWN8=WWC1^2-4WWC0 WWC2;

New group (paper from Dana and Nicolae "Bifurcation diagrams and moduli spaces of planar quadratic vector fields with invariant lines of total:  (Subscript[𝒢, i])

W𝒢1=Factor[transvec[transvec[WWC2,vulpeE,2],WWD2,1]];

W𝒢2=8WWILH8-9WWILH9;

mu0

μ

W𝒢3=(μ-η)WWILH1-6η*(WWILH4+WWILH10);

In this file we check that every configuration of singularities of a given codimension can be perturbed in one (or several) configuration of one codimension less.

NON - DEGENERATE CONFIGURATIONS

CODIMENSION 1

7 s,a,a,a;S,(0,2)SN

change={a00->0,a10->-1,a01->1,a20->-1,a11->1/2,a02->0,b00->0,b10->2,b01->-1,b20->0,b11->-1,b02->1}

comp

CSP[{},{},{ℝ}];

change={a00->0,a10->-1,a01->1,a20->-1,a11->1/2,a02->ϵ,b00->0,b10->2,b01->-1,b20->0,b11->-1,b02->1}

comp

η

CSP[{},{-μ0,ℝ,-η},{μ0,𝔻}];

CSP[{},{-μ0,ℝ,η},{μ0,𝔻}];

11 s,s,a,a;N,(0,2)SN

change={a00->0,a10->-1,a01->1,a20->2,a11->-1,a02->0,b00->0,b10->1,b01->0,b20->0,b11->1/2,b02->-2}

comp

CSP[{},{},{ℝ,WM}];

change={a00->0,a10->-1,a01->1,a20->2,a11->-1,a02->ϵ,b00->0,b10->1,b01->0,b20->0,b11->(1/2),b02->-2}

comp

η

CSP[{},{μ0,𝕊,ℝ,WW4,-η,-θ},{μ0,𝔻,𝔗4}];

CSP[{},{μ0,𝕊,ℝ,WW4,η,-θ},{μ0,𝔻,𝔗4}];

14 ∅;N,(0,2)SN

change={a00->2,a10->0,a01->0,a20->6,a11->1,a02->1,b00->3,b10->0,b01->0,b20->0,b11->3,b02->3}

comp

CSP[{},{},{}];

change={a00->2,a10->0,a01->0,a20->6,a11->1,a02->1,b00->3,b10->0,b01->0,b20->ϵ,b11->3,b02->3}

comp

CSP[{},{-𝔻,-ℝ,𝕊,-η,-θ},{μ0}];

CSP[{},{-𝔻,-ℝ,𝕊,η},{μ0}];

22 a, a;S,(0,2)SN; S

change={a00->-2,a10->1,a01->0,a20->2,a11->1,a02->-2,b00->-1,b10->-2,b01->0,b20->1,b11->1,b02->-1}

comp

CSP[{},{},{WM}];

change={a00->-2,a10->1,a01->0,a20->2+ϵ,a11->1,a02->-2,b00->-1,b10->-2,b01->0,b20->1,b11->1,b02->-1}

comp

CSP[{},{𝔻,-μ0,WK,WW4,η},{μ0}];

CSP[{},{𝔻,-μ0,WK,WW4,-η},{μ0}];

27 s,a;N,(0,2)SN

change={a00->0,a10->-8,a01->0,a20->8,a11->2,a02->0,b00->4,b10->-5,b01->0,b20->1,b11->0,b02->4}

comp

CSP[{},{},{WM}];

change={a00->0,a10->-8,a01->0,a20->8,a11->2,a02->+ϵ,b00->4,b10->-5,b01->0,b20->1,b11->0,b02->4}

comp

CSP[{},{𝔻,WW4,-η,-θ},{μ0,𝔻}];

CSP[{},{𝔻,WW4,η,-θ},{μ0,𝔻}];

28 s,s,sn;N,N,N

change=changeSys4/.{cc->1,ce->0,ch->0,cm->1,cu->−1}

comp

CSP[{},{},{𝕋}];

change={a00->0,a10->1,a01->-1,a20->-1,a11->0,a02->1,b00->ϵ,b10->0,b01->0,b20->0,b11->1,b02->0}

comp

CSP[{},{-𝔻,ℝ,WW4,𝕊},{𝔻,𝔗4}];

CSP[{},{𝔻},{𝔻,𝔗4}];

30 a, a, sn; S

change=changeSys4/.{cc->1,ce->1,ch->1,cm->0,cu->−2}

comp

CSP[{},{},{𝕋}];

change={a00->0,a10->cc,a01->cc cu,a20->-cc,a11->ch,a02->-cc cu,b00->ϵ,b10->ce,b01->ce cu,b20->-ce,b11->cm,b02->-ce cu}/.{cc->1,ce->1,ch->1,cm->0,cu->−2}

comp

CSP[{},{-𝔻,ℝ,WW4,WW2,WW1 WW3,𝕊},{𝔻,𝔗4}];

CSP[{},{𝔻,ℝ,WW4,WW1,𝕊},{𝔻,𝔗4}];

31 a, a, sn; S, S, N

change=changeSys4/.{cc->1,ce->3,ch->1,cm->0,cu->−2}

comp

CSP[{},{},{𝕋}];

change={a00->0,a10->cc,a01->cc cu,a20->-cc,a11->ch,a02->-cc cu,b00->ϵ,b10->ce,b01->ce cu,b20->-ce,b11->cm,b02->-ce cu}/.{cc->1,ce->3,ch->1,cm->0,cu->−2}

comp

CSP[{},{-𝔻,ℝ,WW4,WW2,WW1 WW3,𝕊},{𝔻,𝔗4}];

CSP[{},{𝔻,ℝ,WW4,WW1,𝕊},{𝔻,𝔗4}];

37 s,a,sn;N

change=changeSys4/.{cc->−3,ce->0,ch->1,cm->1,cu->1}

comp

CSP[{},{},{𝕋}];

change={a00->0,a10->-3,a01->-3,a20->3,a11->1,a02->3,b00->ϵ,b10->0,b01->0,b20->0,b11->1,b02->0}

comp

CSP[{},{𝔻,WW4},{𝔻,𝔗4}];

CSP[{},{-𝔻,ℝ,WW4,WW2,WW1,WW1 WW3,𝕊},{𝔻,𝔗4}];

38 s,a,sn;S,N,N

change={a00->0,a10->cc,a01->cc cu,a20->-cc,a11->ch,a02->-cc cu,b00->0,b10->ce,b01->ce cu,b20->-ce,b11->cm,b02->-ce cu}/.{cc->−3/2,ce->0,ch->1/3,cm->1,cu->1}

comp

CSP[{},{},{𝕋}];

change={a00->0,a10->-(3/2),a01->-(3/2),a20->(3/2),a11->(1/3),a02->(3/2),b00->ϵ,b10->0,b01->0,b20->0,b11->1,b02->0}

comp

CSP[{},{-𝔻,ℝ,WW4,WW2,WW1,WW1 WW3,𝕊},{𝔻,𝔗4}];

CSP[{},{𝔻,WW4},{𝔻,𝔗4}];

44 sn;N,X,X

change=changeSys5/.{cc->1,ce->−2,cg->5,cl->0,cm->1,cn->1}

comp

CSP[{},{},{𝕋}];

change={a00->0,a10->1,a01->2,a20->5,a11->-1,a02->6,b00->ϵ,b10->-2,b01->-4,b20->0,b11->2,b02->-2}

comp

CSP[{},{-𝔻,ℝ},{μ0}];

CSP[{},{𝔻,WW4},{μ0}];

45 sn;N,N,N

change=changeSys5/.{cc->1,ce->1,cg->−21/20,cl->−3,cm->0,cn->2}

comp

CSP[{},{},{𝕋}];

change={a00->0,a10->0,a01->4,a20->-(21/20),a11->-2,a02->-(21/20),b00->ϵ,b10->0,b01->4,b20->-3,b11->-2,b02->-3}

comp

CSP[{},{-𝔻,-ℝ,𝕊},{μ0}];

CSP[{},{𝔻,WW4},{μ0}];

73 s,a,a;(1,1)SN

change={a00->0,a10->cc,a01->cd,a20->0,a11->ch,a02->-cd,b00->0,b10->ce,b01->cf,b20->0,b11->1,b02->-cf}/.{cc->1,ch->1,ce->1/100,cd->3,cf->2}

comp

CSP[{},{},{}];

change={a00->0,a10->1,a01->3,a20->0,a11->1,a02->-3,b00->0,b10->(1/100),b01->2,b20->ϵ,b11->1,b02->-2}

comp

CSP[{},{-μ0,ℝ},{𝔻,μ0}];

CSP[{},{-𝔻,μ0,ℝ,𝕊,-η},{𝔻,μ0}];

74 s,a,a;(1,1)SN,S,N

change={a00->0,a10->cc,a01->cd,a20->0,a11->ch,a02->-cd,b00->0,b10->ce,b01->cf,b20->0,b11->1,b02->-cf}/.{cc->1,ch->1,ce->1/3,cd->6,cf->5}

comp

CSP[{},{},{}];

change={a00->0,a10->1,a01->6,a20->0,a11->1,a02->-6,b00->0,b10->(1/3),b01->5,b20->ϵ,b11->1,b02->-5}

comp

CSP[{},{-𝔻,-μ0,ℝ,WW4,η},{𝔻,μ0}];

CSP[{},{-𝔻,μ0,ℝ,WW4,η},{𝔻,μ0}];

76 s,s,a;(1,1)SN,N,N

change={a00->0,a10->cc,a01->cd,a20->0,a11->ch,a02->-cd,b00->0,b10->ce,b01->cf,b20->0,b11->1,b02->-cf}/.{cc->1,ch->2,ce->1,cd->0,cf->2}

comp

CSP[{},{},{}];

change={a00->0,a10->1,a01->0,a20->0,a11->2,a02->0,b00->0,b10->1,b01->2,b20->ϵ,b11->1,b02->-2}

comp

CSP[{},{-𝔻,μ0,𝕊,ℝ,WW4,η,-θ},{𝔻,μ0}];

CSP[{},{-𝔻,-μ0,𝕊,ℝ,WW4,η},{𝔻,μ0,𝔗4}];

84 a;(1,1)SN

change=changeSys11/.{cg->1,cl->2,cm->1,cu->0,ch->1}

comp

CSP[{},{},{}];

change={a00->0,a10->2,a01->1,a20->1,a11->-1,a02->+ϵ,b00->0,b10->2,b01->2,b20->2,b11->-1,b02->0}

comp

CSP[{},{𝔻,-μ0,WK,WW4},{μ0}];

CSP[{},{𝔻,μ0},{μ0}];

85 a;(1,1)SN,S,N

change=changeSys11/.{cg->1,cl->17/16,cm->1,cu->0,ch->1}

comp

CSP[{},{},{}];

change={a00->0,a10->2,a01->1,a20->1,a11->-1,a02->ϵ,b00->0,b10->2,b01->(17/16),b20->(17/16),b11->-1,b02->0}

comp

CSP[{},{𝔻,-μ0,WK,WW4},{μ0}];

CSP[{},{𝔻,μ0,η},{μ0}];

87 s;(1,1)SN,N,N

change=changeSys11/.{cg->1,cl->−1,cm->1,cu->0,ch->1}

comp

CSP[{},{},{}];

change={a00->0,a10->2,a01->1,a20->1,a11->-1,a02->ϵ,b00->0,b10->2,b01->-1,b20->-1,b11->-1,b02->0}

comp

CSP[{},{𝔻,-μ0,-WK},{μ0}];

CSP[{},{𝔻,μ0,η,-θ},{μ0}];

CODIMENSION 2

32 a,a,sn;S,(0,2)SN

The candidate example with n, n, sn; S, (0, 2) SN has a real non rational parameter. I have chosen a diferent simpler candidate

change=changeSys4/.{cc->3,ce->0,ch->1,cm->−3/2,cu->−1}

comp

CSP[{},{},{𝕋}];

change={a00->0,a10->3,a01->-3,a20->-3,a11->1,a02->3,b00->ϵ,b10->0,b01->0,b20->0,b11->-(3/2),b02->0}

comp

CSP[{},{𝔻,ℝ,𝕊,WK,WW4},{𝔻}];

CSP[{},{-𝔻,ℝ,-WW4},{𝔻}];

change={a00->0,a10->3,a01->-3,a20->-3,a11->1,a02->3,b00->0,b10->0,b01->0,b20->ϵ,b11->-(3/2),b02->0}

comp

CSP[{},{-μ0,η},{μ0,𝕋}];

CSP[{},{-μ0,-η,WK,-WW4},{μ0,𝕋}];

39 s,a,sn;N,(0,2)SN

change=changeSys4/.{cc->1,ce->0,ch->1/2,cm->−3/8,cu->1}

comp

CSP[{},{WK},{𝕋,WM}];

change={a00->0,a10->1,a01->1,a20->-1,a11->(1/2),a02->-1,b00->ϵ,b10->0,b01->0,b20->0,b11->-(3/8),b02->0}

comp

CSP[{},{𝔻,WW4},{𝔻,WM,𝔗4}];

CSP[{},{-𝔻,ℝ,𝕊},{𝔻,WM,𝔗4}];

change={a00->0,a10->1,a01->1,a20->-1,a11->(1/2),a02->-1,b00->0,b10->0,b01->0,b20->ϵ,b11->-(3/8),b02->0}

comp

CSP[{},{μ0,η,WK,WW4,-θ},{μ0,𝕋,𝔗4}];

CSP[{},{μ0,-η,WK,WW4,-θ},{μ0,𝕋,𝔗4}];

46 sn;N,(0,2)SN

change=changeSys5/.{cc->1,ce->1,cg->−1,cl->−3,cm->1,cn->1}

comp

CSP[{},{},{𝕋}];

change={a00->0,a10->1,a01->2,a20->-1,a11->-1,a02->0,b00->ϵ,b10->1,b01->2,b20->-3,b11->-1,b02->-2}

comp

CSP[{},{-𝔻,-ℝ},{}];

CSP[{},{𝔻,WW4},{μ0}];

change={a00->0,a10->1,a01->2,a20->-1,a11->-1,a02->ϵ,b00->0,b10->1,b01->2,b20->-3,b11->-1,b02->-2}

comp

CSP[{},{μ0,𝕋,-η,-θ},{μ0,𝕋}];

CSP[{},{μ0,𝕋,η,-θ},{μ0,𝕋}];

29 s,s,cp;N,N,N

change=changeSys4/.{cc->1,ce->1,ch->1,cm->2,cu->−1}

comp

CSP[{},{},{𝕋}];

change={a00->0,a10->1+ϵ,a01->-1,a20->-1,a11->1,a02->1,b00->0,b10->1+ϵ,b01->-1,b20->-1,b11->2,b02->1}

comp

CSP[{},{},{𝕋,WE1,𝔗4}];

34 a,a,cp;S,X,X

change=changeSys4/.{cc->3,ce->3,ch->3/2,cm->1,cu->−1}

comp

CSP[{},{},{𝕋}];

change={a00->0,a10->3+ϵ,a01->-3,a20->-3,a11->(3/2),a02->3,b00->0,b10->3+ϵ,b01->-3,b20->-3,b11->1,b02->3}

comp

CSP[{},{WW4,WW2,WW1 WW3},{𝕋,WE1}];

35 a,a,cp;S,S,N

change=changeSys4/.{cc->3,ce->3,ch->21/20,cm->1,cu->−1}

comp

CSP[{},{},{𝕋}];

change={a00->0,a10->3+ϵ,a01->-3,a20->-3,a11->(21/20),a02->3,b00->0,b10->3+ϵ,b01->-3,b20->-3,b11->1,b02->3}

comp

CSP[{},{WW4,WW2,WW1 WW3},{𝕋,WE1}];

40 s,a,cp;N,X,X

change={a00->0,a10->-cu,a01->-cu^2,a20->cu,a11->ch,a02->cu^2,b00->0,b10->1,b01-> cu,b20->-1,b11->cm,b02->- cu}/.{ch->-1,cm->1,cu->2}

comp

CSP[{},{},{𝕋}];

change={a00->0,a10->-2-ϵ,a01->-4-2ϵ,a20->2,a11->-1,a02->4,b00->0,b10->1,b01->2,b20->-1,b11->1,b02->-2}

comp

CSP[{},{-𝕋,WW4},{𝕋,WE1,𝔗4}];

42 s,a,cp;S,N,N

change={a00->0,a10->-cu,a01->-cu^2,a20->cu,a11->ch,a02->cu^2,b00->0,b10->1,b01-> cu,b20->-1,b11->cm,b02->- cu}/.{ch->0,cm->3,cu->1}

comp

CSP[{},{},{𝕋}];

change={a00->0,a10->-1+ϵ,a01->-1,a20->1,a11->0,a02->1,b00->0,b10->1-ϵ,b01->1,b20->-1,b11->3,b02->-1}

comp

CSP[{},{WW4},{𝕋,WE1,𝔗4}];

47 cp;N

change={a00->0,a10->cc cm,a01->2cc cn,a20->cg,a11->-cc cn,a02->cg+cc cm,b00->0,b10->ce cm,b01-> 2ce cn,b20->cl,b11->-ce cn,b02->cl+ ce cm}/.{cc->2,ce->1,cg->5,cl->0,cm->1,cn->−1}

comp

CSP[{},{},{𝕋}];

change={a00->0,a10->2+ϵ,a01->-4-2ϵ,a20->5,a11->2,a02->7,b00->0,b10->1,b01->-2,b20->0,b11->1,b02->1}

comp

CSP[{},{𝕋},{𝕋,WE1,𝔗4}];

48 cp;S,N,N

change={a00->0,a10->cc cm,a01->2cc cn,a20->cg,a11->-cc cn,a02->cg+cc cm,b00->0,b10->ce cm,b01-> 2ce cn,b20->cl,b11->-ce cn,b02->cl+ ce cm}/.{cc->2,ce->1,cg->12,cl->0,cm->5,cn->−5}

comp

CSP[{},{},{𝕋}];

change={a00->0,a10->10+ϵ,a01->-20-2ϵ,a20->12,a11->10,a02->22,b00->0,b10->5,b01->-10,b20->0,b11->5,b02->5}

comp

CSP[{},{𝕋},{𝕋,WE1,𝔗4}];

50 sn,sn;N

change=changeSys6/.{cc->-1,ce->1,ck->0,cn->−3,cu->0,cv->1}

comp

CSP[{},{ℙ ℝ},{}];

change={a00->0,a10->-1+ϵ7,a01->ϵ2,a20->1,a11->-1,a02->0,b00->0,b10->1,b01->-ϵ4,b20->-1,b11->1,b02->-3}/.{ϵ2->ϵ4-ϵ4 ϵ7}/.ϵ4 ->ϵ7

comp

CSP[{},{-𝕋,WW4},{μ0,𝔗4,𝕋}];

CSP[{},{𝕋},{μ0,𝕋}];

51 sn,sn;S,N,N

change=changeSys6/.{cc->-4,ce->1,ck->-1,cn->−8,cu->0,cv->1}

comp

CSP[{},{ℙ ℝ},{}];

change={a00->0,a10->-4+ϵ7,a01->ϵ2,a20->4,a11->-4,a02->-1,b00->0,b10->1,b01->-ϵ4,b20->-1,b11->1,b02->-8}/.ϵ2->4 ϵ4-ϵ4 ϵ7/.ϵ4 ->ϵ7

comp

CSP[{},{-𝕋,WW4},{μ0,𝔗4,𝕋}];

CSP[{},{𝕋},{μ0,𝔗4,𝕋}];

75 s,a,a;(1,1)SN,(0,2)SN

change={a00->0,a10->cc,a01->cd,a20->0,a11->ch,a02->-cd,b00->0,b10->ce,b01->cf,b20->0,b11->1,b02->-cf}/.{cc->1,ch->3,ce->-1,cd->961/200,cf->1/5}

comp

CSP[{},{},{WM}];

change={a00->0,a10->1,a01->(961/200),a20->0,a11->3+ϵ2,a02->-(961/200)+ϵ3,b00->0,b10->-1,b01->(1/5),b20->0,b11->1+ϵ5,b02->-(1/5)+ϵ6}

comp

μ0

η

η/.ϵ5->0/.ϵ6->0/.ϵ2->0

change={a00->0,a10->1,a01->(961/200),a20->0,a11->3+ϵ2,a02->-(961/200)+ϵ3,b00->0,b10->-1,b01->(1/5),b20->0,b11->1+ϵ5,b02->-(1/5)+ϵ6}/.ϵ5->0/.ϵ6->0/.ϵ2->0

comp

CSP[{},{-𝔻,-κ,-η},{μ1,𝔗4}];

CSP[{},{-𝔻,-κ,η},{μ1,𝔗4}];

change={a00->0,a10->1,a01->(961/200),a20->ϵ1,a11->3+ϵ2,a02->-(961/200)+ϵ3,b00->0,b10->-1,b01->(1/5),b20->0,b11->1+ϵ5,b02->-(1/5)+ϵ6}

Factor[WEta/.change]

sol=Solve [-961 ϵ1-1240 ϵ2-200 ((ϵ2)^2)-400 ϵ3+200 ϵ1 ϵ3+1922 ϵ5-400 ϵ3 ϵ5+620 ϵ6+200 ϵ2 ϵ6-50 ((ϵ6)^2)==0,ϵ1]

sol/.ϵ6->0/.ϵ3->0/.ϵ2->0

Factor[Mu0/.change]

Factor[WEta/.change/.sol[[1]]/.ϵ6->0/.ϵ3->0/.ϵ2->0]

Factor[Mu0/.change/.sol[[1]]/.ϵ6->0/.ϵ3->0/.ϵ2->0]

change=change/.sol[[1]]/.ϵ6->0/.ϵ3->0/.ϵ2->0

comp

η

μ0

CSP[{},{-μ0,-𝔻,ℝ,-WW4},{μ0,𝔻,𝔗4,WM}];

CSP[{},{μ0,-𝔻,ℝ,𝕊},{μ0,𝔻,𝕊,𝔗4,WM}];

86 a;(1,1)SN,(0,2)SN

change=changeSys11/.{cg->1,ch->1,cl->9/8,cm->1,cu->0}

comp

CSP[{},{},{WM}];

change={a00->0,a10->2,a01->1,a20->1,a11->-1,a02->ϵ1,b00->0,b10->2,b01->(9/8),b20->(9/8),b11->-1+ϵ2,b02->0}

comp

μ0

sol=Flatten[Solve[μ0==0,ϵ1]]

Simplify[η/.sol[[2]]]

change=change/.sol[[2]]

comp

CSP[{},{𝔻,-η},{μ1}];

CSP[{},{𝔻,η},{μ1}];

change={a00->0,a10->2,a01->1,a20->1+ϵ1,a11->-1+ϵ2,a02->0,b00->0,b10->2,b01->(9/8),b20->(9/8)+ϵ4,b11->-1+ϵ5,b02->ϵ3}

Factor[Mu0/.change]

Factor[WEta/.change]

Exponent[WEta/.change,{ϵ1,ϵ2,ϵ3,ϵ4,ϵ5}]

Factor[Solve[(WEta/.change)==0,ϵ4]]/.ϵ5->0/.ϵ1->0/.ϵ2->0

Factor[WEta/.change/.ϵ5->0/.ϵ1->0/.ϵ2->0/.{ϵ4->((9 ϵ3)/(8 (-2-ϵ3)))}]

Factor[Mu0/.change/.ϵ5->0/.ϵ1->0/.ϵ2->0/.{ϵ4->((9 ϵ3)/(8 (-2-ϵ3)))}]

change={a00->0,a10->2,a01->1,a20->1+ϵ1,a11->-1+ϵ2,a02->0,b00->0,b10->2,b01->(9/8),b20->(9/8)+ϵ4,b11->-1+ϵ5,b02->ϵ3}/.ϵ5->0/.ϵ1->0/.ϵ2->0/.{ϵ4->((9 ϵ3)/(8 (-2-ϵ3)))}

comp

η

μ0

CSP[{},{-μ0,𝔻,WW4},{μ0,𝔻,WM}];

CSP[{},{μ0,𝔻,-θ},{μ0,WM}];

98 sn,a;(1,1)SN

change=changeSys12/.{cc->0,ce->1,cm->1,ch->1}

comp

CSP[{},{},{}];

change={a00->0,a10->0,a01->0,a20->0,a11->1,a02->0,b00->ϵ,b10->1,b01->1,b20->-1,b11->1,b02->0}

comp

CSP[{},{𝔻,WW4},{}];

CSP[{},{-𝔻,WW4,WW3},{}];

change={a00->0,a10->0,a01->0,a20->ϵ,a11->1,a02->0,b00->0,b10->1,b01->1,b20->-1,b11->1,b02->ϵ}

comp

CSP[{},{-μ0,-η},{μ0,𝕋,𝔗4}];

CSP[{},{μ0,WW4,-η},{μ0,𝕋,𝔗4}];

99 sn,a;(1,1)SN,S,N

change=changeSys12/.{cc->0,ce->1/3,cm->1,ch->1}

comp

CSP[{},{},{}];

change={a00->0,a10->0,a01->0,a20->0,a11->1,a02->0,b00->ϵ,b10->(1/3),b01->(1/3),b20->-(1/3),b11->1,b02->0}

comp

CSP[{},{𝔻,WW4},{}];

CSP[{},{-𝔻,WW4,WW3},{}];

change={a00->0,a10->0,a01->0,a20->ϵ,a11->1,a02->0,b00->0,b10->(1/3),b01->(1/3),b20->-(1/3),b11->1,b02->ϵ}

comp

CSP[{},{-μ0,WW4,η,θ},{μ0,𝕋,𝔗4}];

CSP[{},{μ0,WW4,η,θ},{μ0,𝕋,𝔗4}];

104 sn,s;(1,1)SN,N,N

change=changeSys12/.{cc->0,ce->-1,cm->0,ch->1}

comp

CSP[{},{},{}];

change={a00->0,a10->0,a01->0,a20->0,a11->1,a02->0,b00->ϵ,b10->-1,b01->-1,b20->1,b11->0,b02->0}

comp

CSP[{},{𝔻},{𝔗4}];

CSP[{},{-𝔻,WW4},{}];

change={a00->0,a10->0,a01->0,a20->ϵ,a11->1,a02->0,b00->0,b10->-1,b01->-1,b20->1,b11->0,b02->ϵ}

comp

CSP[{},{-μ0,-WK,-𝕋,η,κ},{μ0,𝕋,𝔗4,WE1}];

CSP[{},{μ0,-𝕋,θ,WW4,η},{μ0,𝕋,𝔗4,WE1}];

132 s,a;(1,1)SN,(1,1)SN,N

change={a00->0,a10->cc,a01->cd,a20->cg,a11->ch,a02->-cd,b00->0,b10->1,b01->0,b20->0,b11->0,b02->0}/.{cc->1,cd->1/2,cg->1,ch->1}

comp

CSP[{},{-μ2},{μ2}];

change={a00->0,a10->1,a01->(1/2),a20->1+ϵ1,a11->1+ϵ2,a02->-(1/2)+ϵ3,b00->0,b10->1,b01->ϵ7,b20->ϵ4,b11->ϵ5,b02->ϵ6}

comp

μ0

μ1

μ0/.ϵ4->0/.ϵ1->0

sol=Solve[(μ0/.ϵ4->0/.ϵ1->0)==0,ϵ2]

sol2=Solve[-2 ((ϵ5)^2)-4 ϵ5 ϵ6+((ϵ6)^2)==0,ϵ6]

f1=Collect[μ1/.ϵ4->0/.ϵ1->0/.sol[[1]]/.sol2[[1]],{var1,var2},Factor]

f1=Collect[μ1/.ϵ4->0/.ϵ1->0/.sol[[1]]/.sol2[[1]]/.ϵ3->0/.ϵ7->0,{var1,var2},Factor]

FullSimplify[sol[[1]]/.sol2[[1]]/.ϵ3->0]

change=FullSimplify[change/.ϵ4->0/.ϵ1->0/.sol[[1]]/.sol2[[1]]/.ϵ3->0/.ϵ7->0]

comp

CSP[{},{-κ,η},{μ1,𝔗4}];

CSP[{},{κ},{μ1,𝔗4}];

134 s,a;(1,1)SN,(1,1)NS,N

change={a00->0,a10->cc,a01->cd,a20->cg,a11->ch,a02->-cd,b00->0,b10->1,b01->0,b20->0,b11->0,b02->0}/.{cc->1,cd->1/2,cg->-1,ch->1}

comp

CSP[{},{-μ2},{μ2}];

change={a00->0,a10->1,a01->(1/2),a20->-1+ϵ1,a11->1+ϵ2,a02->-(1/2)+ϵ3,b00->0,b10->1,b01->+ϵ7,b20->+ϵ4,b11->+ϵ5,b02->+ϵ6}

comp

μ0

μ0/.ϵ4->0/.ϵ1->0/.ϵ2->0/.ϵ3->0

sol=Solve[%==0,ϵ6]

f1=Collect[μ1/.ϵ4->0/.ϵ1->0/.ϵ2->0/.ϵ3->0/.sol[[1]],{var1,var2},Factor]

change=FullSimplify[change/.ϵ4->0/.ϵ1->0/.ϵ2->0/.ϵ3->0/.sol[[1]]/.ϵ7->0]

comp

CSP[{},{-𝔻,-κ,WW4,η},{μ1,𝔗4}];

CSP[{},{-𝔻,κ},{μ1,𝔗4}];

140 ∅;(1,1)SN,(1,1)SN,N

change={a00->ca,a10->cc,a01->0,a20->cg,a11->ch,a02->ca,b00->0,b10->1,b01->0,b20->0,b11->0,b02->0}/.{ca->1,cc->0,cg->-1,ch->1}

comp

CSP[{},{-𝕌},{μ2}];

change={a00->1,a10->0,a01->0,a20->-1,a11->1,a02->1,b00->0,b10->1,b01->0,b20->0,b11->+ϵ5,b02->+ϵ6}

comp

μ0

sol=Solve[μ0==0,ϵ6]

change=FullSimplify[change/.sol[[1]]]

comp

CSP[{},{𝔻,-κ,η},{μ1,𝔗4}];

CSP[{},{𝔻,κ},{μ1,𝔗4}];

141 ∅;(1,1)SN,(1,1)NS,N

change={a00->ca,a10->cc,a01->0,a20->cg,a11->ch,a02->ca,b00->0,b10->1,b01->0,b20->0,b11->0,b02->0}/.{ca->1,cc->0,cg->1/2,ch->1}

comp

CSP[{},{-𝕌},{μ2}];

change={a00->1,a10->0,a01->0,a20->(1/2),a11->1,a02->1,b00->0,b10->1,b01->0,b20->0,b11->+ϵ5,b02->+ϵ6}

comp

μ0

sol=Solve[μ0==0,ϵ6]

change=FullSimplify[change/.sol[[1]]]

comp

CSP[{},{𝔻,-κ,η,WW4},{μ1,𝔗4}];

CSP[{},{𝔻,κ},{μ1,𝔗4}];

77 s,s,a;(1,2)PEP-H,N

change={a00->0,a10->cc,a01->cd,a20->0,a11->ch,a02->-cd,b00->0,b10->1,b01->cf,b20->0,b11->0,b02->-cf}/.{cc->-1,ch->1,cd->-2,cf->9/4}

comp

CSP[{},{},{WM}];

change={a00->0,a10->-1,a01->-2,a20->ϵ1,a11->1,a02->2,b00->0,b10->1,b01->(9/4),b20->0,b11->ϵ2,b02->-(9/4)}

comp

μ0

η

sol=Flatten[Solve[μ0==0,ϵ1]]

Simplify[η/.sol[[2]]]

change=change/.sol[[2]];

comp

CSP[{},{η,κ,WW4},{μ1,𝔻}];

change={a00->0,a10->-1,a01->-2,a20->ϵ1,a11->1,a02->2,b00->0,b10->1,b01->(9/4),b20->0,b11->ϵ2,b02->-(9/4)}

comp

μ0

η

sol=Flatten[Solve[η==0,ϵ1]]

Simplify[μ0/.sol[[1]]]

change=change/.sol[[1]]

comp

CSP[{},{μ0,-𝔻,ℝ,𝕊,WW4,θ},{μ0}];

79 s,a,a;(1,2)PEP-H,S

change={a00->0,a10->cc,a01->cd,a20->0,a11->ch,a02->-cd,b00->0,b10->1,b01->cf,b20->0,b11->0,b02->-cf}/.{cc->1,ch->1,cd->1,cf->-1/2}

comp

CSP[{},{},{WM}];

change={a00->0,a10->1,a01->1,a20->ϵ1,a11->1,a02->-1,b00->0,b10->1,b01->-(1/2),b20->0,b11->ϵ2,b02->(1/2)}

comp

μ0

η

sol=Flatten[Solve[μ0==0,ϵ1]]

Simplify[η/.sol[[2]]]

change=change/.sol[[2]];

comp

CSP[{},{η,-κ,WW4},{μ1,𝔻,𝔗4}];

change={a00->0,a10->1,a01->1,a20->ϵ1,a11->1,a02->-1,b00->0,b10->1,b01->-(1/2),b20->0,b11->ϵ2,b02->(1/2)}

comp

μ0

η

sol=Flatten[Solve[η==0,ϵ1]]

Simplify[μ0/.sol[[1]]]

change=change/.sol[[1]]

comp

CSP[{},{μ0,-𝔻,ℝ,𝕊,WW4,θ},{μ0}];

80 s,a,a;(1,2)PHP-E,S

change={a00->0,a10->cc,a01->cd,a20->0,a11->ch,a02->-cd,b00->0,b10->1,b01->cf,b20->0,b11->0,b02->-cf}/.{cc->2,ch->1,cd->1,cf->-3/2}

comp

CSP[{},{},{WM}];

change={a00->0,a10->2,a01->1,a20->ϵ1,a11->1,a02->-1,b00->0,b10->1,b01->-(3/2),b20->0,b11->ϵ2,b02->(3/2)}

comp

μ0

η

sol=Flatten[Solve[μ0==0,ϵ1]]

Simplify[η/.sol[[2]]]

change=change/.sol[[2]];

comp

CSP[{},{η,-κ,WW4},{μ1,𝔻,𝔗4}];

change={a00->0,a10->2,a01->1,a20->ϵ1,a11->1,a02->-1,b00->0,b10->1,b01->-(3/2),b20->0,b11->ϵ2,b02->(3/2)}

comp

μ0

η

sol=Flatten[Solve[η==0,ϵ1]]

Simplify[μ0/.sol[[1]]]

change=change/.sol[[1]]

comp

CSP[{},{μ0,-𝔻,ℝ,𝕊,WW4,θ},{μ0}];

81 s,a,a;(1,2)HHH-H,N

change={a00->0,a10->cc,a01->cd,a20->0,a11->ch,a02->-cd,b00->0,b10->1,b01->cf,b20->0,b11->0,b02->-cf}/.{cc->1,ch->1,cd->-7/2,cf->-3}

comp

CSP[{},{},{WM}];

change={a00->0,a10->1,a01->-(7/2),a20->ϵ1,a11->1,a02->(7/2),b00->0,b10->1,b01->-3,b20->0,b11->ϵ2,b02->3}

comp

μ0

η

sol=Flatten[Solve[μ0==0,ϵ1]]

Simplify[η/.sol[[2]]]

change=change/.sol[[2]];

comp

CSP[{},{η,-κ,WW4},{μ1,𝔻,𝔗4}];

change={a00->0,a10->1,a01->-(7/2),a20->ϵ1,a11->1,a02->(7/2),b00->0,b10->1,b01->-3,b20->0,b11->ϵ2,b02->3}

comp

μ0

η

sol=Flatten[Solve[η==0,ϵ1]]

Simplify[μ0/.sol[[1]]]

change=change/.sol[[1]]

comp

CSP[{},{μ0,-𝔻,ℝ,𝕊,WW4,θ},{μ0,𝔗4}];

88 s;(1,2)PEP-H,N

change={a00->0,a10->-2cu,a01->cu^2+1,a20->1,a11->0,a02->0,b00->0,b10->2(cm-cl cu),b01->cl(cu^2+1),b20->cl,b11->-cm,b02->0}/.{cl->1,cm->1,cu->0}

comp

CSP[{},{},{WM}];

change={a00->0,a10->0,a01->1,a20->1,a11->0,a02->ϵ2,b00->0,b10->2,b01->1,b20->1,b11->-1,b02->ϵ1}

comp

μ0

η

sol=Flatten[Solve[μ0==0,ϵ2]]

Simplify[η/.sol[[2]]]

change=change/.sol[[2]];

comp

CSP[{},{𝔻,κ},{μ1}];

change={a00->0,a10->0,a01->1,a20->1,a11->0,a02->ϵ2,b00->0,b10->2,b01->1,b20->1,b11->-1,b02->ϵ1}

comp

μ0

η

sol=Flatten[Solve[η==0,ϵ2]]

Simplify[μ0/.sol[[2]]]

change=Simplify[change/.sol[[2]]/.ϵ1->1/100]

comp

CSP[{},{},{μ0,WM}];

89 a;(1,2)PEP-H,S

change={a00->0,a10->-2cu,a01->cu^2+1,a20->1,a11->0,a02->0,b00->0,b10->2(cm-cl cu),b01->cl(cu^2+1),b20->cl,b11->-cm,b02->0}/.{cl->4,cm->-3/2,cu->0}

comp

CSP[{},{},{WM}];

change={a00->0,a10->0,a01->1,a20->1,a11->0,a02->ϵ2,b00->0,b10->-3,b01->4,b20->4,b11->(3/2),b02->ϵ1}

comp

μ0

η

sol=Flatten[Solve[μ0==0,ϵ2]]

Simplify[η/.sol[[2]]]

change=change/.sol[[2]]/.ϵ1->1/100;

comp

CSP[{},{},{μ1}];

change={a00->0,a10->0,a01->1,a20->1,a11->0,a02->ϵ2,b00->0,b10->-3,b01->4,b20->4,b11->(3/2),b02->ϵ1}

comp

μ0

η

sol=Flatten[Solve[η==0,ϵ2]]

Simplify[μ0/.sol[[1]]]

change=Simplify[change/.sol[[1]]/.ϵ1->1/100]

comp

CSP[{},{},{WM}];

91 a;(1,2)PHP-E,S

change={a00->0,a10->-2cu,a01->cu^2+1,a20->1,a11->0,a02->0,b00->0,b10->2(cm-cl cu),b01->cl(cu^2+1),b20->cl,b11->-cm,b02->0}/.{cl->4,cm->-2/3,cu->0}

comp

CSP[{},{},{WM}];

change={a00->0,a10->0,a01->1,a20->1,a11->0,a02->ϵ2,b00->0,b10->-(4/3),b01->4,b20->4,b11->(2/3),b02->ϵ1}

comp

μ0

η

sol=Flatten[Solve[μ0==0,ϵ2]]

Simplify[η/.sol[[2]]]

Series[%,{ϵ1,0,5}]

(((ϵ1)^2)/36)-((23 ((ϵ1)^3))/8)-((4995 ((ϵ1)^4))/64)-((115425 ((ϵ1)^5))/128)/.ϵ1->1/1000

change=change/.sol[[2]]/.ϵ1->1/1000;

comp

Evaluate[η*1.]

CSP[{},{},{μ1}];

change={a00->0,a10->0,a01->1,a20->1,a11->0,a02->ϵ2,b00->0,b10->-(4/3),b01->4,b20->4,b11->(2/3),b02->ϵ1}

comp

μ0

η

sol=Flatten[Solve[η==0,ϵ2]]

Simplify[μ0/.sol[[1]]]

Evaluate[μ0/.sol[[1]]/.ϵ1->1/1000.]

change=Simplify[change/.sol[[1]]/.ϵ1->1/1000]

comp

CSP[{},{},{WM}];

93 a;(1,2)HHH-H,N

change={a00->0,a10->-2cu,a01->cu^2+1,a20->1,a11->0,a02->0,b00->0,b10->2(cm-cl cu),b01->cl(cu^2+1),b20->cl,b11->-cm,b02->0}/.{cl->4,cm->-1/3,cu->0}

comp

CSP[{},{},{WM}];

change={a00->0,a10->0,a01->1,a20->1,a11->0,a02->ϵ2,b00->0,b10->-(2/3),b01->4,b20->4,b11->(1/3),b02->ϵ1}

comp

μ0

η

sol=Flatten[Solve[μ0==0,ϵ2]]

Simplify[η/.sol[[2]]]

Series[%,{ϵ1,0,5}]

((4 ((ϵ1)^2))/9)-64 ((ϵ1)^3)-3024 ((ϵ1)^4)-97200 ((ϵ1)^5)/.ϵ1->1/1000

change=change/.sol[[2]]/.ϵ1->1/1000;

comp

Evaluate[η*1.]

CSP[{},{},{μ1}];

change={a00->0,a10->0,a01->1,a20->1,a11->0,a02->ϵ2,b00->0,b10->-(2/3),b01->4,b20->4,b11->(1/3),b02->ϵ1}

comp

μ0

η

sol=Flatten[Solve[η==0,ϵ2]]

Simplify[μ0/.sol[[2]]]

Evaluate[μ0/.sol[[2]]/.ϵ1->1/1000.]

change=Simplify[change/.sol[[2]]/.ϵ1->1/1000]

comp

CSP[{},{},{WM}];

CODIMENSION 3

100 sn,a;(1,1)SN,(0,2)SN

change={a00->0,a10->cc,a01->cc,a20->-cc,a11->1,a02->0,b00->0,b10->ce,b01->ce,b20->-ce,b11->cm,b02->0}/.{cc->0,ce->1/2,cm->1}

comp

CSP[{},{},{WM}];

change={a00->ϵ,a10->0,a01->0,a20->0,a11->1,a02->0,b00->0,b10->(1/2),b01->(1/2),b20->-(1/2),b11->1,b02->0}

comp

CSP[{},{𝔻,WW4,WW3},{WM}];

CSP[{},{-𝔻,WW4,WW3},{WM}];

change={a00->0,a10->0,a01->0,a20->0,a11->1,a02->ϵ1,b00->0,b10->(1/2),b01->(1/2),b20->-(1/2),b11->1,b02->+ϵ2}

comp

μ0

η

sol=Flatten[Solve[μ0==0,ϵ2]]

Simplify[η/.sol[[1]]]

change=change/.sol[[1]]

comp

CSP[{},{-η},{μ1}];

CSP[{},{η},{μ1}];

change={a00->0,a10->0,a01->0,a20->ϵ1,a11->1,a02->0,b00->0,b10->(1/2),b01->(1/2),b20->-(1/2),b11->1,b02->ϵ2}

comp

μ0

η

sol=Flatten[Solve[η==0,ϵ2]]

Simplify[μ0/.sol[[3]]]

change=change/.sol[[3]]

comp

CSP[{},{μ0,-𝕋,WW4,θ},{μ0,𝔗4,𝕋,WE1,WM}];

CSP[{},{-μ0,-𝕋,WW4,θ},{μ0,𝔗4,𝕋,WE1,WM}];

148 sn;(1,1)SN,(1,1)SN,N

change={a00->0,a10->1,a01->cd,a20->0,a11->0,a02->0,b00->0,b10->0,b01->0,b20->cl,b11->cm,b02->1}/.{cd->1,cl->0,cm->1}

comp

CSP[{},{},{μ2}];

change={a00->0,a10->1,a01->1,a20->0,a11->0,a02->0,b00->ϵ,b10->0,b01->0,b20->0,b11->1,b02->1}

comp

CSP[{},{WW4,-𝕌},{μ2,𝕌}];

CSP[{},{WW4,𝕌},{μ2,𝕌}];

change={a00->0,a10->1,a01->1,a20->ϵ1,a11->ϵ2,a02->ϵ3,b00->0,b10->0,b01->0,b20->ϵ4,b11->1+ϵ5,b02->1+ϵ6}

comp

μ0

Factor[μ0/.ϵ4->0/.ϵ6->0]

sol=Solve[(μ0/.ϵ4->0/.ϵ6->0/.ϵ5->0)==0,ϵ1]

f1=Collect[μ1/.ϵ4->0/.ϵ6->0/.ϵ5->0/.sol[[2]],{var1,var2},Factor]

change=FullSimplify[change/.ϵ4->0/.ϵ6->0/.ϵ5->0/.sol[[2]]/.ϵ2->2ϵ3]

comp

CSP[{},{-κ,η},{μ1,𝔗4}];

CSP[{},{κ},{μ1,𝔗4}];

149 sn;(1,1)SN,(1,1)NS,N

change={a00->0,a10->1,a01->cd,a20->0,a11->0,a02->0,b00->0,b10->0,b01->0,b20->cl,b11->cm,b02->1}/.{cd->1,cl->0,cm->-1}

comp

CSP[{},{},{μ2}];

change={a00->0,a10->1,a01->1,a20->0,a11->0,a02->0,b00->ϵ,b10->0,b01->0,b20->0,b11->1,b02->-1}

comp

CSP[{},{WW4,-𝕌},{μ2,𝕌}];

CSP[{},{WW4,𝕌},{μ2,𝕌}];

change={a00->0,a10->1,a01->1,a20->ϵ1,a11->ϵ2,a02->ϵ3,b00->0,b10->0,b01->0,b20->ϵ4,b11->-1+ϵ5,b02->1+ϵ6}

comp

μ0

Factor[μ0/.ϵ4->0/.ϵ6->0]

sol=Solve[(μ0/.ϵ4->0/.ϵ6->0/.ϵ5->0)==0,ϵ1]

f1=Collect[μ1/.ϵ4->0/.ϵ6->0/.ϵ5->0/.sol[[2]],{var1,var2},Factor]

change=FullSimplify[change/.ϵ4->0/.ϵ6->0/.ϵ5->0/.sol[[2]]/.ϵ2->2ϵ3]

comp

CSP[{},{-κ,η},{μ1,𝔗4}];

CSP[{},{κ},{μ1,𝔗4}];

52 sn,sn;N,(0,2)SN

change=changeSys6/.{cc->-3,ce->1,ck->0,cn->−6,cu->0,cv->1}

comp

CSP[{},{ℙ ℝ},{}];

change={a00->0,a10->-3+ϵ7,a01->ϵ2,a20->3,a11->-3,a02->0,b00->0,b10->1,b01->-ϵ4,b20->-1,b11->1,b02->-6}

comp

𝔻

change={a00->0,a10->-3+ϵ7,a01->ϵ2,a20->3,a11->-3,a02->0,b00->0,b10->1,b01->-ϵ4,b20->-1,b11->1,b02->-6}/.{ϵ2->3ϵ4-ϵ4 ϵ7}/.ϵ4 ->ϵ7

comp

CSP[{},{-𝕋,WW4},{μ0,𝕋,ℝ,𝕊,WM,𝔗4}];

CSP[{},{𝕋},{μ0,𝕋,ℝ,𝕊,WM}];

change={a00->0,a10->-3,a01->0,a20->3,a11->-3,a02->ϵ,b00->0,b10->1,b01->0,b20->-1,b11->1,b02->-6}

comp

CSP[{},{μ0,ℙ ℝ,-η,-θ},{μ0}];

CSP[{},{μ0,ℙ ℝ,η},{μ0}];

36 a,a,cp;S,(0,2)SN

change=changeSys4/.{cc->3,ce->3,cm->1,cu->−1}

comp

CSP[{η},{WK,WW2},{μ0,𝕋,𝔗2,WM}];

change={a00->0,a10->3+ϵ,a01->-3-ϵ,a20->-3,a11->ch,a02->3,b00->0,b10->3,b01->-3,b20->-3,b11->1,b02->3}/.ϵ->1/100

comp

CSP[{η},{WK},{μ0,𝕋,WM}];

change={a00->0,a10->3,a01->-3,a20->-3+ϵ,a11->ch,a02->3,b00->0,b10->3,b01->-3,b20->-3,b11->1,b02->3}

comp

sol=NSolve[(η/.ϵ->1/100)==0]

{-μ0,η,WK,WW2}/.ch->1.08443/.ϵ->1/100

CSP[{},{-μ0,η,WK,WW2},{μ0,𝕋,𝔗2}];

CSP[{},{-μ0,-η,WK,WW2},{μ0,𝕋,𝔗2}];

43 s,a,cp;S,(0,2)SN

change=changeSys4/.{cc->1,ce->0,ch->1/2,cm->-3/8,cu->1}

comp

CSP[{},{},{𝕋,WM}];

change={a00->0,a10->1+ϵ,a01->1+ϵ,a20->-1,a11->(1/2),a02->-1,b00->0,b10->0,b01->0,b20->0,b11->-(3/8),b02->0}

comp

CSP[{},{},{𝕋,WM}];

change={a00->0,a10->1,a01->1,a20->-1,a11->(1/2),a02->-1,b00->0,b10->0,b01->0,b20->+ϵ,b11->-(3/8),b02->0}

comp

sol=NSolve[(η/.ϵ->1/100)==0]

{-μ0,η,WK,WW2}/.ch->1.08443/.ϵ->1/100

CSP[{},{μ0,η,WW4,-θ},{μ0,𝕋}];

CSP[{},{μ0,-η,WW4,-θ},{μ0,𝕋}];

49 cp;N,(0,2)SN

change={a00->0,a10->cc cm,a01->2cc cn,a20->cg,a11->-cc cn,a02->cg+cc cm,b00->0,b10->ce cm,b01-> 2ce cn,b20->cl,b11->-ce cn,b02->cl+ ce cm}/.{cc->1,ce->-2,cg->4,cl->0,cm->4,cn->1}

comp

CSP[{},{},{𝕋}];

change={a00->0,a10->4+2ϵ,a01->2+ϵ,a20->4,a11->-1,a02->8,b00->0,b10->-8,b01->-4,b20->0,b11->2,b02->-8}

comp

CSP[{},{𝕋},{𝕋,WE1,𝔗4}];

change={a00->0,a10->4,a01->2,a20->4,a11->-1,a02->8,b00->0,b10->-8,b01->-4,b20->+ϵ,b11->2,b02->-8}

comp

CSP[{},{η,𝕋,-θ},{μ0,𝕋}];

CSP[{},{-η,𝕋,-θ},{μ0,𝕋}];

53 cp,sn;N

change=changeSys6/.{cc->1,ce->3,ck->0,cn->−3,cu->1,cv->-1/3}

comp

CSP[{},{ℙ ℝ},{}];

change={a00->+ϵ1,a10->1,a01->1,a20->-1,a11->-(1/3),a02->0,b00->+ϵ2,b10->3,b01->3,b20->-3,b11->-1,b02->-3}

comp

𝔻

sol=Solve[𝔻==0,ϵ2]

change={a00->ϵ1,a10->1,a01->1,a20->-1,a11->-(1/3),a02->0,b00->ϵ2,b10->3,b01->3,b20->-3,b11->-1,b02->-3}/.sol[[3]]

comp

Factor[WE1]

CSP[{},{ℙ ℝ},{μ0,𝔗4}];

change={a00->0,a10->1,a01->1,a20->-1,a11->-(1/3),a02->0,b00->0,b10->3,b01->3,b20->-3,b11->-1,b02->-3}

Solve[{(eq1[[2]]/.change)==0,(eq2[[2]]/.change)==0},{var1,var2}]

Jacob[eq1[[2]]/.change,eq2[[2]]/.change,var1,var2,{},{0,0}]

Jacob[eq1[[2]]/.change,eq2[[2]]/.change,var1,var2,{},{1,0}]

Flatten[ChangeVarON[eq1[[2]] /. change, eq2[[2]] /. change, var1, var2, {{1, 0}, {0, 1}}, {1, 0}, 1, x[2][t], y[2][t]]]

change=ExtractCoeff1[%[[1]], %[[2]], x[2][t], y[2][t]]

Flatten[ChangeVarON[eq1[[2]] /. change, eq2[[2]] /. change, var1, var2, {{-1, 1/3}, {-3, -1}}, {0, 0}, 18/12, x[2][t], y[2][t]]]

change=ExtractCoeff1[%[[1]], %[[2]], x[2][t], y[2][t]]

change={a00->0,a10->0,a01->1,a20->(45/4),a11->(7/4),a02->(7/12),b00->0,b10->0,b01->0,b20->(81/4)+ϵ3,b11->(27/4),b02->(9/4)}

comp

𝔻

Factor[WE1]

Simplify[{𝔻,𝕋,WE1}]

CSP[{},{-𝕋,-θ,-η},{μ0,𝕋,𝔗2}];

CSP[{},{𝕋,-θ},{μ0,𝕋}];

54 cp,sn;S,N,N

change=changeSys6/.{cc->-5,ce->1,ck->0,cn->−11,cu->5,cv->1}

comp

CSP[{},{ℙ ℝ},{}];

change={a00->+ϵ1,a10->-5,a01->-25,a20->5,a11->-5,a02->0,b00->+ϵ2,b10->1,b01->5,b20->-1,b11->1,b02->-11}

comp

𝔻

sol=Solve[𝔻==0,ϵ1]

change={a00->+ϵ1,a10->-5,a01->-25,a20->5,a11->-5,a02->0,b00->+ϵ2,b10->1,b01->5,b20->-1,b11->1,b02->-11}/.sol[[1]]

comp

CSP[{},{ℙ ℝ},{μ0,𝔗4}];

change={a00->0,a10->-5,a01->-25,a20->5,a11->-5,a02->0,b00->0,b10->1,b01->5,b20->-1,b11->1,b02->-11}

Solve[{(eq1[[2]]/.change)==0,(eq2[[2]]/.change)==0},{var1,var2}]

Jacob[eq1[[2]]/.change,eq2[[2]]/.change,var1,var2,{},{0,0}]

Jacob[eq1[[2]]/.change,eq2[[2]]/.change,var1,var2,{},{1,0}]

Flatten[ChangeVarON[eq1[[2]] /. change, eq2[[2]] /. change, var1, var2, {{-5, -25}, {1, -5}}, {0, 0}, -1/50, x[2][t], y[2][t]]]

change=ExtractCoeff1[%[[1]], %[[2]], x[2][t], y[2][t]]

change={a00->0,a10->0,a01->1,a20->(81/100),a11->(39/20),a02->(41/4),b00->0,b10->0,b01->0,b20->-(11/500)+ϵ3,b11->(11/100),b02->-(11/20)}

comp

𝔻

CSP[{},{-𝕋,η,-θ},{μ0,𝕋}];

CSP[{},{𝕋,η,-θ},{μ0,𝕋}];

64 s,es;N

change={a00->0,a10->0,a01->0,a20->0,a11->ch,a02->0,b00->0,b10->1,b01->0,b20->-1,b11->cm,b02->cn}/.{ch->-1/4,cm->1,cn->-2}

eq1/.change

eq2/.change

comp

CSP[{},{ℝ},{}];

change={a00->0,a10->0,a01->0,a20->0,a11->-(1/4),a02->ϵ,b00->0,b10->1,b01->0,b20->-1,b11->1,b02->-2}

comp

CSP[{},{μ0,WW2,-θ},{μ0,𝕋,𝔗2}];

59 a,es;S

change={a00->0,a10->0,a01->0,a20->0,a11->ch,a02->0,b00->0,b10->1,b01->0,b20->-1,b11->cm,b02->cn}/.{ch->2,cm->1,cn->1}

comp

CSP[{},{ℝ},{}];

change={a00->0,a10->0,a01->0,a20->0,a11->2,a02->ϵ,b00->0,b10->1,b01->0,b20->-1,b11->1,b02->1}

comp

CSP[{},{-μ0,-𝕋,-WW2,-η},{μ0,𝕋,𝔗2}];

61 a,es;S,N,N

change={a00->0,a10->cc,a01->cc,a20->-cc,a11->cc(2cm-cn)/2,a02->0,b00->0,b10->1,b01->1,b20->-1,b11->cm,b02->cn}/.{cc->-1,cm->-3,cn->2}

comp

CSP[{},{ℝ},{}];

change={a00->0,a10->-1,a01->-1,a20->1,a11->4,a02->0,b00->0,b10->1,b01->1,b20->-1,b11->-3,b02->2}

Solve[{(eq1[[2]]/.change)==0,(eq2[[2]]/.change)==0},{var1,var2}]

Jacob[eq1[[2]]/.change,eq2[[2]]/.change,var1,var2,{},{0,0}]

Jacob[eq1[[2]]/.change,eq2[[2]]/.change,var1,var2,{},{1,0}]

Flatten[ChangeVarON[eq1[[2]] /. change, eq2[[2]] /. change, var1, var2, {{-1, -1}, {1, -1}}, {0, 0}, -1/2, x[2][t], y[2][t]]]

change=ExtractCoeff1[%[[1]], %[[2]], x[2][t], y[2][t]]

change={a00->0,a10->0,a01->1,a20->-(7/2),a11->1,a02->(7/2),b00->0,b10->0,b01->0,b20->ϵ,b11->-(1/2),b02->1}

comp

CSP[{},{-μ0,WW2},{μ0,𝕋}];

65 s,es;S,N,N

change={a00->0,a10->cc,a01->cc,a20->-cc,a11->cc(2cm-cn)/2,a02->0,b00->0,b10->1,b01->1,b20->-1,b11->cm,b02->cn}/.{cc->-1,cm->-1/3,cn->-1}

comp

CSP[{},{ℝ},{}];

change={a00->0,a10->-1,a01->-1,a20->1,a11->-(1/6),a02->0,b00->0,b10->1,b01->1,b20->-1,b11->-(1/3),b02->-1}

Solve[{(eq1[[2]]/.change)==0,(eq2[[2]]/.change)==0},{var1,var2}]

Jacob[eq1[[2]]/.change,eq2[[2]]/.change,var1,var2,{},{0,0}]

Jacob[eq1[[2]]/.change,eq2[[2]]/.change,var1,var2,{},{1,0}]

Flatten[ChangeVarON[eq1[[2]] /. change, eq2[[2]] /. change, var1, var2, {{-1, -1}, {1, -1}}, {0, 0},-1/2, x[2][t], y[2][t]]]

change=ExtractCoeff1[%[[1]], %[[2]], x[2][t], y[2][t]]

change={a00->0,a10->0,a01->1,a20->(2/3),a11->(1/4),a02->(5/6),b00->0,b10->0,b01->0,b20->ϵ,b11->(1/4),b02->-(1/2)}

comp

CSP[{},{μ0,-𝕋,WW2,η},{μ0,𝕋}];

101 cp,a;(1,1)SN

change=changeSys12/.{cc->-2,ce->2,cm->2,ch->1}

comp

CSP[{},{},{ℙ}];

change={a00->0,a10->-2+ϵ,a01->-2+ϵ,a20->2,a11->1,a02->0,b00->0,b10->2,b01->2,b20->-2,b11->2,b02->0}

comp

CSP[{},{WW4},{μ1,ℙ,𝔗4}];

change={a00->0,a10->-2,a01->-2,a20->2,a11->1,a02->+ϵ,b00->0,b10->2,b01->2,b20->-2,b11->2,b02->0}

comp

CSP[{},{-μ0,WW2},{μ0,𝕋,𝔗2}];

CSP[{},{μ0},{μ0,𝕋,𝔗2}];

102 cp,a;(1,1)SN,S,N

change=changeSys12/.{cc->-1,ce->1,cm->2,ch->1}

comp

CSP[{},{},{ℙ}];

change={a00->0,a10->-1+ϵ,a01->-1+ϵ,a20->1,a11->1,a02->0,b00->0,b10->1,b01->1,b20->-1,b11->2,b02->0}

comp

CSP[{},{WW4},{μ1,ℙ,𝔗4}];

change={a00->0,a10->-1,a01->-1,a20->1,a11->1,a02->ϵ,b00->0,b10->1,b01->1,b20->-1,b11->2,b02->0}

comp

CSP[{},{-μ0,WW2,η},{μ0,𝕋,𝔗2}];

CSP[{},{μ0,η},{μ0,𝕋,𝔗2}];

105 cp,s;(1,1)SN,N,N

change=changeSys12/.{cc->1,ce->-1,cm->0,ch->1}

comp

CSP[{},{},{ℙ}];

change={a00->0,a10->1+ϵ,a01->1+ϵ,a20->-1,a11->1,a02->0,b00->0,b10->-1,b01->-1,b20->1,b11->0,b02->0}

comp

CSP[{},{WW4},{μ1,ℙ,𝔗4}];

change={a00->0,a10->1,a01->1,a20->-1,a11->1,a02->ϵ,b00->0,b10->-1,b01->-1,b20->1,b11->0,b02->0}

comp

CSP[{},{-μ0,-𝕋,-WK,η,κ},{μ0,𝕋,𝔗2}];

CSP[{},{μ0,η,-θ},{μ0,𝕋,𝔗2}];

82 s,a,a;(1,3)HHP-P

change={a00->0,a10->cc,a01->cd,a20->0,a11->1,a02->-cd,b00->0,b10->1,b01->cf,b20->0,b11->0,b02->-cf}/.{cc->-7/2,cd->1,cf->-2}

comp

CSP[{},{WK},{}];

change={a00->0,a10->-(7/2),a01->1,a20->0,a11->1+ϵ2,a02->-1,b00->0,b10->1,b01->-2,b20->ϵ1,b11->ϵ3,b02->2}

comp

μ0

η

sol=Factor[Solve[{η==0,μ0==0}]]

WM/.sol[[2]]

change={a00->0,a10->-(7/2),a01->1,a20->0,a11->1+ϵ2,a02->-1,b00->0,b10->1,b01->-2,b20->ϵ1,b11->ϵ3,b02->2}/.Simplify[sol[[2]]]

comp

CSP[{},{-𝔻,WK,WW4},{μ1,𝔻,𝔅1,WM,𝔗4}];

95 a;(1,3)HHP-P

change={a00->0,a10->-2cu,a01->cu^2+1,a20->1,a11->0,a02->0,b00->0,b10->2(cm-cl cu),b01->cl(cu^2+1),b20->cl,b11->-cm,b02->0}/.{cl->4,cm->-1/2,cu->0}

comp

CSP[{},{WK},{}];

change={a00->0,a10->0,a01->1,a20->1,a11->ϵ2,a02->0,b00->0,b10->-1,b01->4,b20->4+ϵ1,b11->(1/2)+ϵ3,b02->0}

comp

μ0

η

sol=Factor[Solve[η==0,ϵ2]]

change={a00->0,a10->0,a01->1,a20->1,a11->ϵ2,a02->0,b00->0,b10->-1,b01->4,b20->4+ϵ1,b11->(1/2)+ϵ3,b02->0}/.Simplify[sol[[3]]]

comp

CSP[{},{𝔻,WW4},{μ1,𝔻,WM}];

136 s,a;(1,2)PEP-H,(1,1)SN

change={a00->0,a10->cc,a01->cd,a20->0,a11->ch,a02->-cd,b00->0,b10->1,b01->0,b20->0,b11->0,b02->0}/.{cc->1,cd->1/2,ch->1}

comp

CSP[{},{},{μ2}];

change={a00->0,a10->1,a01->(1/2),a20->ϵ1,a11->1,a02->-(1/2),b00->0,b10->1,b01->0,b20->0,b11->ϵ2,b02->ϵ3}/.ϵ1->0

comp

μ0

Collect[μ1,{var1,var2},Factor]

η

sol=Factor[Solve[μ1==0,ϵ2]]

change={a00->0,a10->1,a01->(1/2),a20->0,a11->1,a02->-(1/2),b00->0,b10->1,b01->0,b20->0,b11->ϵ2,b02->ϵ3}/.Simplify[sol[[2]]]

comp

CSP[{},{WW4,η,μ2 WL},{μ2,𝕌,θ2}];

143 ∅;(1,2)PEP-H,(1,1)SN

change={a00->ca,a10->cc,a01->0,a20->cg,a11->ch,a02->ca,b00->0,b10->1,b01->0,b20->0,b11->0,b02->0}/.{ca->1,cc->0,cg->0,ch->1}

comp

CSP[{},{},{μ2}];

change={a00->1,a10->0,a01->0,a20->0,a11->1,a02->1,b00->0,b10->1,b01->0,b20->0,b11->ϵ2,b02->ϵ3}

comp

μ0

Collect[μ1,{var1,var2},Factor]

η

sol=Factor[Solve[μ1==0,ϵ2]]

change={a00->1,a10->0,a01->0,a20->0,a11->1,a02->1,b00->0,b10->1,b01->0,b20->0,b11->ϵ2,b02->ϵ3}/.Simplify[sol[[1]]]

comp

CSP[{},{-𝕌,η,μ2 WL},{μ2,𝕌,θ2}];

106 sn,s;(1,2)PEP-H,N

change={a00->0,a10->1,a01->1,a20->-1,a11->0,a02->0,b00->0,b10->ce,b01->ce,b20->-ce,b11->cm,b02->0}/.{ce->-2,cm->-3/2}

comp

CSP[{},{},{μ2}];

change={a00->0,a10->1,a01->1,a20->-1,a11->0,a02->0,b00->ϵ,b10->-2,b01->-2,b20->2,b11->-(3/2),b02->0}

comp

CSP[{},{-𝔻,WK,WW7},{}];

CSP[{},{𝔻,WK,WW7},{}];

change={a00->0,a10->1,a01->1,a20->-1,a11->ϵ1,a02->ϵ2,b00->0,b10->-2,b01->-2,b20->2,b11->-(3/2),b02->ϵ3}/.ϵ1->0

comp

μ0

η

sol=Factor[Solve[η==0]]

change={a00->0,a10->1,a01->1,a20->-1,a11->0,a02->ϵ2,b00->0,b10->-2,b01->-2,b20->2,b11->-(3/2),b02->ϵ3}/.Simplify[sol[[2]]]/.ϵ3->1/100

comp

CSP[{},{-𝕋},{μ0,𝕋,WM}];

change={a00->0,a10->1,a01->1,a20->-1,a11->ϵ1,a02->ϵ2,b00->0,b10->-2,b01->-2,b20->2,b11->-(3/2),b02->ϵ3}/.ϵ1->0

comp

μ0

η

sol=Factor[Solve[μ0==0]]

change={a00->0,a10->1,a01->1,a20->-1,a11->0,a02->ϵ2,b00->0,b10->-2,b01->-2,b20->2,b11->-(3/2),b02->ϵ3}/.Simplify[sol[[1]]]

comp

CSP[{},{κ,ℙ,η},{μ1,𝔗4}];

110 sn,a;(1,2)HHH-H,N

change={a00->0,a10->1,a01->1,a20->-1,a11->0,a02->0,b00->0,b10->ce,b01->ce,b20->-ce,b11->cm,b02->0}/.{ce->-2,cm->-1/3}

comp

CSP[{},{WK},{}];

change={a00->0,a10->1,a01->1,a20->-1,a11->0,a02->0,b00->ϵ,b10->-2,b01->-2,b20->2,b11->-(1/3),b02->0}

comp

CSP[{},{-𝔻,WK,WW7},{}];

CSP[{},{𝔻,WK,WW7},{}];

change={a00->0,a10->1,a01->1,a20->-1,a11->0,a02->ϵ2,b00->0,b10->-2,b01->-2,b20->2,b11->-(1/3),b02->ϵ3}

comp

μ0

η

sol=Factor[Solve[η==0]]

change={a00->0,a10->1,a01->1,a20->-1,a11->0,a02->ϵ2,b00->0,b10->-2,b01->-2,b20->2,b11->-(1/3),b02->ϵ3}/.Simplify[sol[[1]]]/.ϵ3->1/100

comp

CSP[{},{-𝕋},{μ0,𝕋,WM}];

change={a00->0,a10->1,a01->1,a20->-1,a11->0,a02->ϵ2,b00->0,b10->-2,b01->-2,b20->2,b11->-(1/3),b02->ϵ3}

comp

μ0

η

sol=Factor[Solve[μ0==0]]

change={a00->0,a10->1,a01->1,a20->-1,a11->0,a02->ϵ2,b00->0,b10->-2,b01->-2,b20->2,b11->-(1/3),b02->ϵ3}/.Simplify[sol[[1]]]

comp

CSP[{},{η},{μ1,𝔗4}];

108 sn,a;(1,2)PEP-H,S

change={a00->0,a10->1,a01->1,a20->-1,a11->0,a02->0,b00->0,b10->ce,b01->ce,b20->-ce,b11->cm,b02->0}/.{ce->-2,cm->-3/2}

comp

CSP[{},{WK},{}];

change={a00->0,a10->1,a01->1,a20->-1,a11->0,a02->0,b00->ϵ,b10->-2,b01->-2,b20->2,b11->-(3/2),b02->0}

comp

CSP[{},{-𝔻,WK,WW7},{}];

CSP[{},{𝔻,WK,WW7},{}];

change={a00->0,a10->1,a01->1,a20->-1,a11->0,a02->ϵ2,b00->0,b10->-2,b01->-2,b20->2,b11->-(3/2),b02->ϵ3}

comp

μ0

η

sol=Factor[Solve[η==0]]

change={a00->0,a10->1,a01->1,a20->-1,a11->0,a02->ϵ2,b00->0,b10->-2,b01->-2,b20->2,b11->-(3/2),b02->ϵ3}/.Simplify[sol[[2]]]/.ϵ3->1/100

comp

CSP[{},{-𝕋},{μ0,𝕋,WM}];

change={a00->0,a10->1,a01->1,a20->-1,a11->0,a02->ϵ2,b00->0,b10->-2,b01->-2,b20->2,b11->-(3/2),b02->ϵ3}

comp

μ0

η

sol=Factor[Solve[μ0==0]]

change={a00->0,a10->1,a01->1,a20->-1,a11->0,a02->ϵ2,b00->0,b10->-2,b01->-2,b20->2,b11->-(3/2),b02->ϵ3}/.Simplify[sol[[1]]]

comp

CSP[{},{η},{μ1,𝔗4}];

109 sn,a;(1,2)PHP-E,S

change={a00->0,a10->1,a01->1,a20->-1,a11->0,a02->0,b00->0,b10->ce,b01->ce,b20->-ce,b11->cm,b02->0}/.{ce->-2,cm->-2/3}

comp

CSP[{},{WK},{}];

change={a00->0,a10->1,a01->1,a20->-1,a11->0,a02->0,b00->ϵ,b10->-2,b01->-2,b20->2,b11->-(2/3),b02->0}

comp

CSP[{},{-𝔻,WK,WW7},{}];

CSP[{},{𝔻,WK,WW7},{}];

change={a00->0,a10->1,a01->1,a20->-1,a11->0,a02->ϵ2,b00->0,b10->-2,b01->-2,b20->2,b11->-(2/3),b02->ϵ3}

comp

μ0

η

sol=Factor[Solve[η==0]]

change={a00->0,a10->1,a01->1,a20->-1,a11->0,a02->ϵ2,b00->0,b10->-2,b01->-2,b20->2,b11->-(2/3),b02->ϵ3}/.Simplify[sol[[2]]]/.ϵ3->1/100

comp

CSP[{},{-𝕋},{μ0,𝕋,WM}];

change={a00->0,a10->1,a01->1,a20->-1,a11->0,a02->ϵ2,b00->0,b10->-2,b01->-2,b20->2,b11->-(2/3),b02->ϵ3}

comp

μ0

η

sol=Factor[Solve[μ0==0]]

change={a00->0,a10->1,a01->1,a20->-1,a11->0,a02->ϵ2,b00->0,b10->-2,b01->-2,b20->2,b11->-(2/3),b02->ϵ3}/.Simplify[sol[[1]]]

comp

CSP[{},{η},{μ1,𝔗4}];

123 s,s;(2,2)PEP-PEP,N

change={a00->0,a10->cc,a01->0,a20->-cc,a11->0,a02->0,b00->0,b10->ce,b01->1,b20->-ce,b11->cu,b02->0}/.{cc->-2,ce->0,cu->-1}

eq1/.change

eq2/.change

comp

CSP[{},{𝕌},{μ2}];

change={a00->0,a10->-2,a01->0,a20->2+ϵ1,a11->ϵ2,a02->ϵ3,b00->0,b10->0,b01->1,b20->ϵ4,b11->-1+ϵ5,b02->ϵ6}

comp

sol=Simplify[{ϵ1->0,ϵ4->0,ϵ3->((-4 ((ϵ2)^2)+4 ϵ2 ϵ6-((ϵ6)^2))/(8 (-2+ϵ5)))/.ϵ6->-((2 (-ϵ2+ϵ2 ϵ5))/(-3+ϵ5)),ϵ6->-((2 (-ϵ2+ϵ2 ϵ5))/(-3+ϵ5))}]

Factor[μ0/.sol]

Solve[(μ0/.sol)==0,ϵ6]

Factor[η/.sol]

Solve[(η/.sol)==0,ϵ3]

Collect[μ1/.sol,{var1,var2},Factor]

Solve[(-2 ϵ3 ϵ4+ϵ3 ϵ4 ϵ5+2 ϵ5 ϵ6)==0,ϵ6]

Solve[ϵ3 ((ϵ4)^2)+2 ((ϵ5)^2)==0,ϵ3]

Factor[η/.sol]

change={a00->0,a10->-2,a01->0,a20->2+ϵ1,a11->ϵ2,a02->ϵ3,b00->0,b10->0,b01->1,b20->ϵ4,b11->-1+ϵ5,b02->ϵ6}/.sol

comp

CSP[{},{-𝔻,-WK,-WW7},{μ2,𝔻,𝔅1}];

124 s,a;(2,2)PPH-PPH,N

change={a00->0,a10->cc,a01->0,a20->-cc,a11->0,a02->0,b00->0,b10->ce,b01->1,b20->-ce,b11->cu,b02->0}/.{cc->2,ce->0,cu->1}

comp

CSP[{},{𝕌},{μ2}];

change={a00->0,a10->2,a01->0,a20->-2+ϵ1,a11->+ϵ2,a02->+ϵ3,b00->0,b10->0,b01->1,b20->+ϵ4,b11->1+ϵ5,b02->+ϵ6}

comp

sol=Simplify[{ϵ1->0,ϵ4->0,ϵ3->((-4 ((ϵ2)^2)+4 ϵ2 ϵ6-((ϵ6)^2))/(8 (2+ϵ5)))/.ϵ6->-((2 (ϵ2+ϵ2 ϵ5))/(3+ϵ5)),ϵ6->-((2 (ϵ2+ϵ2 ϵ5))/(3+ϵ5))}]

Factor[μ0/.sol]

Solve[(μ0/.sol)==0,ϵ6]

Factor[η/.sol]

Solve[(η/.sol)==0,ϵ3]

Collect[μ1/.sol,{var1,var2},Factor]

change={a00->0,a10->2,a01->0,a20->-2+ϵ1,a11->+ϵ2,a02->+ϵ3,b00->0,b10->0,b01->1,b20->+ϵ4,b11->1+ϵ5,b02->+ϵ6}/.sol

comp

CSP[{},{-𝔻,-WK},{μ1,𝔻,𝔅1}];

125 a,a;(2,2)PHP-PHP,S

change={a00->0,a10->cc,a01->0,a20->-cc,a11->0,a02->0,b00->0,b10->ce,b01->1,b20->-ce,b11->cu,b02->0}/.{cc->2,ce->0,cu->-2}

comp

CSP[{},{𝕌},{μ2}];

change={a00->0,a10->2,a01->0,a20->-2+ϵ1,a11->+ϵ2,a02->+ϵ3,b00->0,b10->0,b01->1,b20->+ϵ4,b11->-2+ϵ5,b02->+ϵ6}

comp

sol=Simplify[{ϵ1->0,ϵ4->0,ϵ3->((-4 ((ϵ2)^2)+4 ϵ2 ϵ6-((ϵ6)^2))/(8 (-1+ϵ5)))/.ϵ6->-((2 (-2 ϵ2+ϵ2 ϵ5))/(ϵ5)),ϵ6->-((2 (-2 ϵ2+ϵ2 ϵ5))/(ϵ5))}]

Factor[μ0/.sol]

Solve[(μ0/.sol)==0,ϵ6]

Factor[η/.sol]

Solve[(η/.sol)==0,ϵ3]

Collect[μ1/.sol,{var1,var2},Factor]

change={a00->0,a10->2,a01->0,a20->-2+ϵ1,a11->+ϵ2,a02->+ϵ3,b00->0,b10->0,b01->1,b20->+ϵ4,b11->-2+ϵ5,b02->+ϵ6}/.sol/.ϵ2->ϵ5^2

comp

CSP[{},{WK,WW7,-WL,WN},{μ1,𝔻,𝔅1,WM}];

126 a,a;(2,2)HHH-HHH,N

change={a00->0,a10->cc,a01->0,a20->-cc,a11->0,a02->0,b00->0,b10->ce,b01->1,b20->-ce,b11->cu,b02->0}/.{cc->2,ce->0,cu->-2/3}

comp

CSP[{},{𝕌},{μ2}];

change={a00->0,a10->2,a01->0,a20->-2+ϵ1,a11->+ϵ2,a02->+ϵ3,b00->0,b10->0,b01->1,b20->+ϵ4,b11->-2/3+ϵ5,b02->+ϵ6}

comp

sol=Simplify[{ϵ1->0,ϵ4->0,ϵ3->-((3 (4 ((ϵ2)^2)-4 ϵ2 ϵ6+((ϵ6)^2)))/(8 (1+3 ϵ5)))/.ϵ6->-((2 (-2 ϵ2+3 ϵ2 ϵ5))/(4+3 ϵ5)),ϵ6->-((2 (-2 ϵ2+3 ϵ2 ϵ5))/(4+3 ϵ5))}]

Factor[μ0/.sol]

Solve[(μ0/.sol)==0,ϵ6]

Factor[η/.sol]

Solve[(η/.sol)==0,ϵ3]

Collect[μ1/.sol,{var1,var2},Factor]

change={a00->0,a10->2,a01->0,a20->-2+ϵ1,a11->+ϵ2,a02->+ϵ3,b00->0,b10->0,b01->1,b20->+ϵ4,b11->-2/3+ϵ5,b02->+ϵ6}/.sol

comp

CSP[{},{WK,WW7,WL},{μ1,𝔻,𝔅1,WM}];

129 s,a;(2,2)PPE-PPE,S

change={a00->0,a10->cc,a01->0,a20->-cc,a11->0,a02->0,b00->0,b10->ce,b01->1,b20->-ce,b11->cu,b02->0}/.{cc->-2,ce->0,cu->2}

comp

CSP[{},{𝕌},{μ2}];

change={a00->0,a10->-2,a01->0,a20->2+ϵ1,a11->+ϵ2,a02->+ϵ3,b00->0,b10->0,b01->1,b20->+ϵ4,b11->2+ϵ5,b02->+ϵ6}

comp

sol=Simplify[{ϵ1->0,ϵ4->0,ϵ3->((-4 ((ϵ2)^2)+4 ϵ2 ϵ6-((ϵ6)^2))/(8 (1+ϵ5)))/.ϵ6->-((2 (2 ϵ2+ϵ2 ϵ5))/(ϵ5)),ϵ6->-((2 (2 ϵ2+ϵ2 ϵ5))/(ϵ5))}]

Factor[μ0/.sol]

Solve[(μ0/.sol)==0,ϵ6]

Factor[η/.sol]

Solve[(η/.sol)==0,ϵ3]

Collect[μ1/.sol,{var1,var2},Factor]

change={a00->0,a10->-2,a01->0,a20->2+ϵ1,a11->ϵ2,a02->ϵ3,b00->0,b10->0,b01->1,b20->ϵ4,b11->2+ϵ5,b02->ϵ6}/.sol

comp

CSP[{},{WK,-WW7,-WN},{μ1,𝔻}];

135 s,a;(2,2)PPH-H,N

change={a00->0,a10->cc,a01->cd,a20->-1/cd,a11->1,a02->-cd,b00->0,b10->1,b01->0,b20->0,b11->0,b02->0}/.{cc->1,cd->1}

comp

CSP[{},{𝕌},{μ2}];

change={a00->0,a10->1,a01->1,a20->-1,a11->1,a02->-1+ϵ3,b00->0,b10->1,b01->0,b20->0,b11->0,b02->0}

comp

CSP[{},{WW4,η,μ2 WL},{μ2}];

137 ∅;(2,2)H-H,N

change={a00->ca,a10->cc,a01->0,a20->cg,a11->ch,a02->ca,b00->0,b10->1,b01->0,b20->0,b11->0,b02->0}/.{ca->-1,cc->1,cg->-1,ch->1}

comp

CSP[{},{-𝕌},{μ2}];

change={a00->-1,a10->1,a01->0,a20->-1,a11->1,a02->-1+ϵ3,b00->0,b10->1,b01->0,b20->0,b11->0,b02->0}

comp

CSP[{},{WW4,η,μ2 WL},{μ2}];

142 ∅;(2,2)PPH-H,N

change={a00->ca,a10->cc,a01->0,a20->cg,a11->ch,a02->ca,b00->0,b10->1,b01->0,b20->0,b11->0,b02->0}/.{ca->1,cc->0,cg->1,ch->1}

comp

CSP[{},{-𝕌},{μ2}];

change={a00->1,a10->0,a01->0,a20->1,a11->1,a02->1+ϵ3,b00->0,b10->1,b01->0,b20->0,b11->0,b02->0}

comp

CSP[{},{WW4,η,μ2 WL},{μ2}];

138 ∅;(2,2)E-E,S

change={a00->ca,a10->cu,a01->0,a20->0,a11->1,a02->ca,b00->cb,b10->0,b01->0,b20->0,b11->0,b02->cb}/.{ca->0,cb->1,cu->0}

comp

CSP[{},{-𝕌},{μ2}];

change={a00->0,a10->0,a01->0,a20->0,a11->1+ϵ2,a02->+ϵ3,b00->1,b10->ϵ,b01->0,b20->0,b11->0,b02->1+ϵ6}

comp

CSP[{},{𝔻,WK,-WW7,-WL,-WN},{μ1,𝔻,𝔉1,WM}];

CSP[{},{𝔻,WK,-WW7,-WL,WN},{μ1,𝔻,𝔉1,WM}];

CODIMENSION 4

67 ee;S,X,X

change={a00->0,a10->0,a01->0,a20->0,a11->1,a02->0,b00->0,b10->0,b01->0,b20->-5,b11->2,b02->1}

comp

CSP[{},{},{}];

change={a00->0,a10->0,a01->0,a20->0,a11->1,a02->0,b00->0,b10->ϵ,b01->0,b20->-5,b11->2,b02->1}

comp

CSP[{},{},{ℝ}];

68 peppep;S,S,N

change={a00->0,a10->0,a01->0,a20->0,a11->1,a02->0,b00->0,b10->0,b01->0,b20->-3,b11->2,b02->1}

comp

CSP[{},{},{}];

change={a00->0,a10->0,a01->0,a20->0,a11->1,a02->0,b00->0,b10->ϵ,b01->0,b20->-3,b11->2,b02->1}

comp

CSP[{},{},{ℝ}];

69 hhhhhh;S,S,N

change={a00->0,a10->0,a01->0,a20->0,a11->1,a02->0,b00->0,b10->0,b01->0,b20->1,b11->1,b02->-1}

comp

CSP[{},{},{}];

change={a00->0,a10->0,a01->0,a20->0,a11->1,a02->ϵ2,b00->0,b10->ϵ1,b01->0,b20->1,b11->1,b02->-1}/.ϵ2->0

comp

CSP[{},{},{ℝ}];

change={a00->0,a10->0,a01->0,a20->0,a11->1,a02->ϵ2,b00->0,b10->ϵ1,b01->0,b20->1,b11->1,b02->-1}

comp

CSP[{},{-μ0},{μ0,𝕋}];

71 phpphp;S,N,N

change={a00->0,a10->0,a01->0,a20->1/10,a11->-2,a02->0,b00->0,b10->0,b01->0,b20->-43/440,b11->1/10,b02->-29/10}

comp

CSP[{},{},{}];

change={a00->0,a10->0,a01->0,a20->1/10,a11->-2,a02->0,b00->0,b10->ϵ,b01->0,b20->-43/440,b11->1/10,b02->-29/10}

comp

CSP[{},{},{ℝ}];

63 a,es;S,(0,2)SN Next Computation takes 31.26 seconds

change={a00->0,a10->cc,a01->cc,a20->-cc,a11->cc(2cm-cn)/2,a02->0,b00->0,b10->1,b01->1,b20->-1,b11->cm,b02->cn}/.{cc->-1,cm->-1/2,cn->1/5}

comp

CSP[{},{ℝ},{WM}];

change={a00->0,a10->-1,a01->-1,a20->1,a11->(3/5)+ϵ2,a02->ϵ1,b00->0,b10->1,b01->1,b20->-1,b11->-(1/2),b02->(1/5)}

comp

η

sol=Solve[η==0]

change={a00->0,a10->-1,a01->-1,a20->1,a11->(3/5)+ϵ2,a02->ϵ1,b00->0,b10->1,b01->1,b20->-1,b11->-(1/2),b02->(1/5)}/.sol[[1]]

comp

Next Computation takes 31.26 seconds

time=AbsoluteTime[]

CSP[{},{μ0,-𝕋,WW2},{μ0,𝕋,WM,𝔗2}];

AbsoluteTime[]-time

66 s,es;N,(0,2)SN (done numerically) This case takes 70.38 seconds

change={a00->0,a10->cc,a01->cc,a20->-cc,a11->cc(2cm-cn)/2,a02->0,b00->0,b10->1,b01->1,b20->-1,b11->cm,b02->cn}/.{cc->-1,cm->0,cn->-1}

comp

CSP[{},{ℝ},{WM}];

change={a00->0,a10->-1,a01->-1,a20->1,a11->-(1/2),a02->0,b00->0,b10->1,b01->1,b20->-1,b11->0,b02->-1}

Solve[{(eq1[[2]]/.change)==0,(eq2[[2]]/.change)==0},{var1,var2}]

Flatten[ChangeVarON[eq1[[2]] /. change, eq2[[2]] /. change, var1, var2, {{-1, -1}, {1, -1}}, {0, 0}, -1/2, x[2][t], y[2][t]]]

change=ExtractCoeff1[%[[1]], %[[2]], x[2][t], y[2][t]]

change={a00->0,a10->0,a01->1,a20->1,a11->(1/4),a02->(1/2),b00->0,b10->0,b01->0,b20->0+ϵ1,b11->(1/4)+ϵ2,b02->-(1/2)}

comp

η

sol=Solve[η==0,ϵ1]

change={a00->0,a10->0,a01->1,a20->1,a11->(1/4),a02->(1/2),b00->0,b10->0,b01->0,b20->0+ϵ1,b11->(1/4)+ϵ2,b02->-(1/2)}/.sol[[2]]

comp

This case take 70.38 seconds

time=AbsoluteTime[];

CSP[{},{-𝕋,WW2,θ},{μ0,𝕋,WM,𝔗2}];

AbsoluteTime[]-time

56 cp,cp;N,X,X

change=changeSys6/.{cc->0,ce->1,ck->1,cn->0,cu->0,cv->0}

comp

CSP[{},{ℙ ℝ},{}];

change={a00->0,a10->0,a01->0,a20->0,a11->0,a02->1,b00->0,b10->1,b01->ϵ1,b20->-1,b11->ϵ2,b02->0}

Solve[{(eq1[[2]]/.change)==0,(eq2[[2]]/.change)==0},{var1,var2}]

Flatten[ChangeVarON[eq1[[2]] /. change, eq2[[2]] /. change, var1, var2, {{1, 0}, {0, 1}}, {1, 0}, 1, x[2][t], y[2][t]]]

ExtractCoeff1[%[[1]], %[[2]], x[2][t], y[2][t]]

change={a00->0,a10->0,a01->0,a20->0,a11->0,a02->1,b00->0,b10->1,b01->ϵ1,b20->-1,b11->ϵ2,b02->0}/.ϵ1->-2 ϵ2

comp

CSP[{},{ℙ ℝ,-η},{𝔗2}];

57 cp,cp;S,N,N

change=changeSys6/.{cc->-1,ce->1,ck->0,cn->1,cu->1,cv->-1}

comp

CSP[{},{ℙ ℝ},{}];

change={a00->0,a10->-1,a01->-1,a20->1,a11->1,a02->0,b00->0,b10->1,b01->1,b20->-1,b11->-1,b02->1}

Flatten[ChangeVarON[eq1[[2]] /. change, eq2[[2]] /. change, var1, var2, {{-1, -1}, {1, -1}}, {0, 0}, -1/2, x[2][t], y[2][t]]]

change=ExtractCoeff1[%[[1]], %[[2]], x[2][t], y[2][t]]

Solve[{(eq1[[2]]/.change)==0,(eq2[[2]]/.change)==0},{var1,var2}]

Flatten[ChangeVarON[eq1[[2]] /. change, eq2[[2]] /. change, var1, var2, {{1, 1}, {0, 1}}, {0,0}, 1, x[2][t], y[2][t]]]

change=ExtractCoeff1[%[[1]], %[[2]], x[2][t], y[2][t]]

Solve[{(eq1[[2]]/.change)==0,(eq2[[2]]/.change)==0},{var1,var2}]

change={a00->0,a10->ϵ1,a01->1,a20->-1,a11->ϵ2,a02->2,b00->0,b10->0,b01->0,b20->(1/4),b11->0,b02->0}

Flatten[ChangeVarON[eq1[[2]] /. change, eq2[[2]] /. change, var1, var2, {{1, 0}, {0, 1}}, {0,-1/2}, 1, x[2][t], y[2][t]]]

ExtractCoeff1[%[[1]], %[[2]], x[2][t], y[2][t]]

change={a00->0,a10->ϵ1,a01->1,a20->-1,a11->ϵ2,a02->2,b00->0,b10->0,b01->0,b20->(1/4),b11->0,b02->0}/.ϵ2->ϵ1

comp

CSP[{},{ℙ ℝ,η,θ},{𝔗2}];

103 cp,a;(1,1)SN,(0,2)SN

change=changeSys12/.ch->1/.{cc->-8/9,ce->8/9,cm->16/9}

comp

CSP[{},{ℙ ℝ},{WM}];

change={a00->0,a10->-(8/9),a01->-(8/9),a20->(8/9),a11->1,a02->0,b00->0,b10->(8/9),b01->(8/9),b20->-(8/9),b11->(16/9),b02->0}

Flatten[ChangeVarON[eq1[[2]] /. change, eq2[[2]] /. change, var1, var2, {{-8/9, -8/9}, {8/9, -8/9}}, {0, 0}, -81/(8*18), x[2][t], y[2][t]]]

change=ExtractCoeff1[%[[1]], %[[2]], x[2][t], y[2][t]]

Solve[{(eq1[[2]]/.change)==0,(eq2[[2]]/.change)==0},{var1,var2}]

change={a00->0,a10->ϵ,a01->1,a20->(5/6),a11->(4/9),a02->(1/18),b00->0,b10->0,b01->0,b20->-(25/18),b11->0,b02->(25/18)}

comp

CSP[{},{WW4},{μ1,ℙ,WM}];

117 es;(1,1)SN,S,N

change=changeSys13/.ch->1/.{cg->1,cl->0,cm->2}

comp

CSP[{},{},{}];

change={a00->0,a10->0,a01->1,a20->1,a11->1,a02->0,b00->0,b10->0,b01->0,b20->ϵ1,b11->2,b02->0}

comp

CSP[{},{-κ,η},{μ1,ℙ}];

151 cp;(1,1)SN,(1,1)NS,N

change={a00->0,a10->0,a01->1,a20->0,a11->0,a02->0,b00->0,b10->0,b01->0,b20->cl,b11->cm,b02->1}/.{cl->1,cm->2}

comp

CSP[{},{},{μ2}];

change={a00->0,a10->ϵ1,a01->1,a20->0,a11->0,a02->0,b00->0,b10->0,b01->0,b20->1,b11->2,b02->1}

comp

CSP[{},{μ2 WL},{μ2,𝔗4}];

150 cp;(1,1)SN,(1,1)SN,N

change={a00->0,a10->0,a01->1,a20->0,a11->0,a02->0,b00->0,b10->0,b01->0,b20->cl,b11->cm,b02->1}/.{cl->-1,cm->1}

comp

CSP[{},{},{μ2}];

change={a00->0,a10->ϵ1,a01->1,a20->0,a11->0,a02->0,b00->0,b10->0,b01->0,b20->-1,b11->1,b02->1}

comp

CSP[{},{-μ2 WL},{μ2,𝔗4}];

115 cp,a;(1,2)HHH-H,N

change={a00->0,a10->1,a01->1,a20->-1,a11->0,a02->0,b00->0,b10->ce,b01->ce,b20->-ce,b11->cm,b02->0}/.{ce->-1,cm->-1/3}

comp

CSP[{},{},{μ2}];

change={a00->0,a10->1,a01->1,a20->-1,a11->0,a02->0,b00->0,b10->-1,b01->-1,b20->1,b11->-(1/3),b02->0}

Flatten[ChangeVarON[eq1[[2]] /. change, eq2[[2]] /. change, var1, var2, {{1,1}, {-1,1}}, {0,0}, 1/2, x[2][t], y[2][t]]]

change=ExtractCoeff1[%[[1]], %[[2]], x[2][t], y[2][t]]

change={a00->0,a10->ϵ,a01->1,a20->-(2/3),a11->-(1/2),a02->-(1/3),b00->0,b10->0,b01->0,b20->(1/6),b11->0,b02->-(1/6)}

comp

CSP[{},{WW7},{μ1,ℙ}];

113 cp,a;(1,2)PEP-H,S

change={a00->0,a10->1,a01->1,a20->-1,a11->0,a02->0,b00->0,b10->ce,b01->ce,b20->-ce,b11->cm,b02->0}/.{ce->-1,cm->-3/2}

comp

CSP[{},{},{μ2}];

change={a00->0,a10->1,a01->1,a20->-1,a11->0,a02->0,b00->0,b10->-1,b01->-1,b20->1,b11->-(3/2),b02->0}

Flatten[ChangeVarON[eq1[[2]] /. change, eq2[[2]] /. change, var1, var2, {{1,1}, {-1,1}}, {0,0}, 1/2, x[2][t], y[2][t]]]

change=ExtractCoeff1[%[[1]], %[[2]], x[2][t], y[2][t]]

change={a00->0,a10->ϵ,a01->1,a20->-(5/4),a11->-(1/2),a02->(1/4),b00->0,b10->0,b01->0,b20->(3/4),b11->0,b02->-(3/4)}

comp

CSP[{},{WW7},{μ1,ℙ}];

114 cp,a;(1,2)PHP-E,S

change={a00->0,a10->1,a01->1,a20->-1,a11->0,a02->0,b00->0,b10->ce,b01->ce,b20->-ce,b11->cm,b02->0}/.{ce->-1,cm->-2/3}

comp

CSP[{},{},{μ2}];

change={a00->0,a10->1,a01->1,a20->-1,a11->0,a02->0,b00->0,b10->-1,b01->-1,b20->1,b11->-(2/3),b02->0}

Flatten[ChangeVarON[eq1[[2]] /. change, eq2[[2]] /. change, var1, var2, {{1,1}, {-1,1}}, {0,0}, 1/2, x[2][t], y[2][t]]]

change=ExtractCoeff1[%[[1]], %[[2]], x[2][t], y[2][t]]

change={a00->0,a10->ϵ,a01->1,a20->-(5/6),a11->-(1/2),a02->-(1/6),b00->0,b10->0,b01->0,b20->(1/3),b11->0,b02->-(1/3)}

comp

CSP[{},{WW7},{μ1,ℙ}];

107 cp,s;(1,2)PEP-H,N

change={a00->0,a10->1,a01->1,a20->-1,a11->0,a02->0,b00->0,b10->ce,b01->ce,b20->-ce,b11->cm,b02->0}/.{ce->-1,cm->2}

comp

CSP[{},{},{μ2}];

change={a00->0,a10->1,a01->1,a20->-1,a11->0,a02->0,b00->0,b10->-1,b01->-1,b20->1,b11->2,b02->0}

Flatten[ChangeVarON[eq1[[2]] /. change, eq2[[2]] /. change, var1, var2, {{1,1}, {-1,1}}, {0,0}, 1/2, x[2][t], y[2][t]]]

change=ExtractCoeff1[%[[1]], %[[2]], x[2][t], y[2][t]]

change={a00->0,a10->ϵ,a01->1,a20->(1/2),a11->-(1/2),a02->-(3/2),b00->0,b10->0,b01->0,b20->-1,b11->0,b02->1}

comp

CSP[{},{},{μ1,ℙ,𝔅1}];

154 sn;(1,2)PEP-H,(1,1)SN

change={a00->0,a10->cc,a01->1,a20->0,a11->0,a02->0,b00->0,b10->0,b01->0,b20->cl,b11->cm,b02->0}/.{cc->1,cm->1,cl->1}

comp

CSP[{},{},{μ2}];

change={a00->0,a10->1,a01->1,a20->0,a11->0,a02->0,b00->ϵ,b10->0,b01->0,b20->1,b11->1,b02->0}

comp

CSP[{},{𝕌,WW7},{μ2}];

CSP[{},{-𝕌},{μ2,WM}];

145 sn;(2,2)E-E,S

change={a00->0,a10->0,a01->0,a20->cg,a11->0,a02->0,b00->0,b10->0,b01->1,b20->cl,b11->1,b02->0}/.{cg->1,cl->0}

comp

CSP[{},{},{μ2}];

change={a00->ϵ,a10->0,a01->0,a20->1,a11->0,a02->0,b00->0,b10->0,b01->1,b20->0,b11->1,b02->0}

comp

CSP[{},{𝕌,μ2},{μ2,𝔅3}];

CSP[{},{-𝕌},{μ2}];

152 sn;(2,2)PH-H,N

change={a00->0,a10->cc,a01->cd,a20->0,a11->0,a02->0,b00->0,b10->0,b01->0,b20->1,b11->1,b02->1}/.{cc->1,cd->2}

comp

CSP[{},{},{μ2}];

change={a00->0,a10->1,a01->2,a20->0,a11->0,a02->0,b00->ϵ,b10->0,b01->0,b20->1,b11->1,b02->1}

comp

CSP[{},{𝕌,WW8},{μ2}];

CSP[{},{-𝕌},{μ2}];

144 sn;(2,2)PH-PH,N

change={a00->0,a10->0,a01->0,a20->cg,a11->0,a02->0,b00->0,b10->0,b01->1,b20->cl,b11->1,b02->0}/.{cg->-1,cl->0}

comp

CSP[{},{},{μ2}];

change={a00->ϵ,a10->0,a01->0,a20->-1,a11->0,a02->0,b00->0,b10->0,b01->1,b20->0,b11->1,b02->0}

comp

CSP[{},{𝕌,μ2,WW11},{μ2}];

CSP[{},{-𝕌},{μ2}];

127 a,a;(2,3)HHP-PHH

change={a00->0,a10->cc,a01->0,a20->-cc,a11->0,a02->0,b00->0,b10->ce,b01->1,b20->-ce,b11->cu,b02->0}/.{cc->2,ce->1,cu->-1}

comp

CSP[{},{𝕌},{μ2}];

change={a00->0,a10->2,a01->+ϵ,a20->-2+ϵ1,a11->+ϵ2,a02->+ϵ3,b00->0,b10->1,b01->1,b20->-1+ϵ4,b11->-1+ϵ5,b02->+ϵ6}

eq1/.change

eq2/.change

comp

sol=Simplify[{ϵ2->0,ϵ3->0,ϵ6->0}]

Factor[μ0/.sol]

Solve[(μ0/.sol)==0,ϵ6]

Factor[η/.sol]

Solve[(η/.sol)==0,ϵ2]

Factor[κ/.sol]

Collect[μ1/.sol,{var1,var2},Factor]

change={a00->0,a10->2,a01->+ϵ,a20->-2+ϵ1,a11->+ϵ2,a02->+ϵ3,b00->0,b10->1,b01->1,b20->-1+ϵ4,b11->-1+ϵ5,b02->+ϵ6}/.sol/.ϵ1->0/.ϵ4->0/.ϵ5->0

comp

CSP[{},{-𝔻,WW7},{μ1}];

130 s,a;(2,3)HPE-PPP

change={a00->0,a10->cc,a01->0,a20->-cc,a11->0,a02->0,b00->0,b10->ce,b01->1,b20->-ce,b11->cu,b02->0}/.{cc->-2,ce->1,cu->1}

comp

CSP[{},{𝕌},{μ2}];

change={a00->0,a10->-2,a01->ϵ,a20->2+ϵ1,a11->+ϵ2,a02->+ϵ3,b00->0,b10->1,b01->1,b20->-1+ϵ4,b11->1+ϵ5,b02->+ϵ6}

comp

sol=Simplify[{ϵ2->0,ϵ3->0,ϵ6->0}]

Factor[μ0/.sol]

Solve[(μ0/.sol)==0,ϵ6]

Factor[η/.sol]

Solve[(η/.sol)==0,ϵ2]

Factor[κ/.sol]

Collect[μ1/.sol,{var1,var2},Factor]

Factor[WM/.sol]

change={a00->0,a10->-2,a01->ϵ,a20->2+ϵ1,a11->ϵ2,a02->ϵ3,b00->0,b10->1,b01->1,b20->-1+ϵ4,b11->1+ϵ5,b02->ϵ6}/.sol/.ϵ1->2ϵ5/.ϵ4->0

comp

CSP[{},{-𝔻,WW7},{𝔻,μ1,𝔅1}];

157 a;(3,2)HPP-HHH,N

change={a00->0,a10->cc,a01->0,a20->2cc,a11->0,a02->0,b00->0,b10->ce,b01->1,b20->(2ce+1),b11->1,b02->0}/.{cc->2,ce->0}

eq1/.change

eq2/.change

comp

CSP[{},{},{μ3}];

change={a00->0,a10->2+ϵ1,a01->ϵ2,a20->4,a11->0,a02->0,b00->0,b10->+ϵ3,b01->1+ϵ4,b20->1,b11->1,b02->0}

comp

sol=Simplify[{}]

Factor[μ0/.sol]

Solve[(μ0/.sol)==0,ϵ6]

Collect[μ1/.sol,{var1,var2},Factor]

Factor[η/.sol]

Solve[(η/.sol)==0,ϵ2]

Factor[κ/.sol]

Collect[μ2/.sol,{var1,var2},Factor]

Factor[WM/.sol]

change={a00->0,a10->2+ϵ1,a01->ϵ2,a20->4,a11->0,a02->0,b00->0,b10->+ϵ3,b01->1+ϵ4,b20->1,b11->1,b02->0}/.ϵ2->0

comp

CSP[{},{𝕌,-μ2,WW11},{μ2}];

CSP[{},{𝕌,μ2,WW11},{μ2}];

156 s;(3,2)PEP-PH,N

change={a00->0,a10->cc,a01->0,a20->2cc,a11->0,a02->0,b00->0,b10->ce,b01->1,b20->(2ce+1),b11->1,b02->0}/.{cc->-2,ce->0}

comp

CSP[{},{},{μ3}];

change={a00->0,a10->-2+ϵ1,a01->ϵ2,a20->-4,a11->0,a02->0,b00->0,b10->+ϵ3,b01->1+ϵ4,b20->1,b11->1,b02->0}

comp

sol=Simplify[{}]

Factor[μ0/.sol]

Solve[(μ0/.sol)==0,ϵ6]

Collect[μ1/.sol,{var1,var2},Factor]

Factor[η/.sol]

Solve[(η/.sol)==0,ϵ2]

Factor[κ/.sol]

Collect[μ2/.sol,{var1,var2},Factor]

Factor[WM/.sol]

change={a00->0,a10->-2+ϵ1,a01->ϵ2,a20->-4,a11->0,a02->0,b00->0,b10->+ϵ3,b01->1+ϵ4,b20->1,b11->1,b02->0}/.ϵ2->0

comp

CSP[{},{𝕌,-μ2,-WK},{μ2,WM}];

CSP[{},{𝕌,μ2,WW11,WK2},{μ2}];

160 s;(2,2)PE-PE,(1,1)SN

change={a00->0,a10->cc,a01->cd,a20->0,a11->0,a02->0,b00->0,b10->ce,b01->cf,b20->0,b11->1/2,b02->0}/.{cc->1,cd->0,ce->0,cf->-2}

comp

CSP[{},{},{μ3}];

change={a00->0,a10->1+ϵ1,a01->+ϵ2,a20->0,a11->0,a02->0,b00->0,b10->0+ϵ3,b01->-2+ϵ4,b20->0,b11->(1/2),b02->0}

comp

sol=Simplify[{}]

Factor[μ0/.sol]

Solve[(μ0/.sol)==0,ϵ6]

Collect[μ1/.sol,{var1,var2},Factor]

Factor[η/.sol]

Solve[(η/.sol)==0,ϵ2]

Factor[κ/.sol]

Collect[μ2/.sol,{var1,var2},Factor]

Factor[WM/.sol]

change={a00->0,a10->1+ϵ1,a01->+ϵ2,a20->0,a11->0,a02->0,b00->0,b10->0+ϵ3,b01->-2+ϵ4,b20->0,b11->(1/2),b02->0}/.ϵ1->0

comp

CSP[{},{𝕌,-WW7},{μ2,WM,𝔅1}];

161 a;(2,2)PH-PH,(1,1)SN

change={a00->0,a10->cc,a01->cd,a20->0,a11->0,a02->0,b00->0,b10->ce,b01->cf,b20->0,b11->1/2,b02->0}/.{cc->1,cd->0,ce->1,cf->2}

comp

CSP[{},{},{μ3}];

change={a00->0,a10->1+ϵ1,a01->+ϵ2,a20->0,a11->0,a02->0,b00->0,b10->1+ϵ3,b01->2+ϵ4,b20->0,b11->(1/2),b02->0}

comp

sol=Simplify[{}]

Factor[μ0/.sol]

Solve[(μ0/.sol)==0,ϵ6]

Collect[μ1/.sol,{var1,var2},Factor]

Factor[η/.sol]

Solve[(η/.sol)==0,ϵ2]

Factor[κ/.sol]

Collect[μ2/.sol,{var1,var2},Factor]

Factor[WM/.sol]

change={a00->0,a10->1+ϵ1,a01->+ϵ2,a20->0,a11->0,a02->0,b00->0,b10->1+ϵ3,b01->2+ϵ4,b20->0,b11->(1/2),b02->0}/.ϵ1->0

comp

CSP[{},{𝕌,WW7},{μ2,WM,𝔅1}];

83 s,a,a;[∞,∅]

change={a00->0,a10->cc,a01->cd,a20->0,a11->1,a02->-cd,b00->0,b10->1,b01->cf,b20->0,b11->0,b02->-cf}/.{cc->3,cd->0,cf->-2}

comp

CSP[{},{WK},{}];

change={a00->0,a10->3,a01->0,a20->ϵ4,a11->1+ϵ2,a02->ϵ2,b00->0,b10->1,b01->-2,b20->ϵ1,b11->ϵ3,b02->2+ϵ6}

comp

sol={ϵ3->0,ϵ1->0,ϵ4->0}

Factor[μ0/.sol]

Solve[(μ0/.sol)==0]

Factor[η/.sol]

Collect[WM/.sol,{var1,var2},Factor]

Collect[WC2/.sol,{var1,var2},Factor]

change={a00->0,a10->3,a01->0,a20->ϵ4,a11->1+ϵ2,a02->ϵ2,b00->0,b10->1,b01->-2,b20->ϵ1,b11->ϵ3,b02->2+ϵ6}/.sol/.ϵ6->2ϵ2

comp

CSP[{},{WW7},{μ1,𝔅1,WC2}];

96 a;[∞,∅]

change={a00->0,a10->-2cu,a01->cu^2+1,a20->1,a11->0,a02->0,b00->0,b10->2(cm-cl cu),b01->cl(cu^2+1),b20->cl,b11->-cm,b02->0}/.{cl->0,cm->-1/2,cu->1}

comp

CSP[{},{WK},{}];

change={a00->0,a10->-2,a01->2,a20->1+ϵ1,a11->0+ϵ2,a02->0+ϵ3,b00->0,b10->-1,b01->0,b20->0+ϵ4,b11->(1/2)+ϵ5,b02->0+ϵ6}

comp

sol={ϵ3->0,ϵ1->0,ϵ6->0,ϵ2->0,ϵ5->0}

Factor[μ0/.sol]

Solve[(μ0/.sol)==0]

Factor[η/.sol]

Collect[WM/.sol,{var1,var2},Factor]

Collect[WC2/.sol,{var1,var2},Factor]

change={a00->0,a10->-2,a01->2,a20->1+ϵ1,a11->ϵ2,a02->ϵ3,b00->0,b10->-1,b01->0,b20->ϵ4,b11->(1/2)+ϵ5,b02->ϵ6}/.sol

comp

CSP[{},{𝔻},{μ1,WC2}];

CODIMENSION 5

116 cp,a;(1,3)HHP-P

change={a00->0,a10->1,a01->1,a20->-1,a11->0,a02->0,b00->0,b10->ce,b01->ce,b20->-ce,b11->cm,b02->0}/.{ce->-1,cm->-1/2}

comp

CSP[{},{},{μ2}];

change={a00->0,a10->1,a01->1,a20->-1,a11->0,a02->0,b00->0,b10->-1,b01->-1,b20->1,b11->-(1/2),b02->0}

Flatten[ChangeVarON[eq1[[2]] /. change, eq2[[2]] /. change, var1, var2, {{1,1}, {-1,1}}, {0,0}, 1/2, x[2][t], y[2][t]]]

change=ExtractCoeff1[%[[1]], %[[2]], x[2][t], y[2][t]]

change={a00->0,a10->ϵ,a01->1,a20->-(3/4),a11->-(1/2),a02->-(1/4),b00->0,b10->0,b01->0,b20->(1/4),b11->0,b02->-(1/4)}

comp

CSP[{},{WW7},{μ1,ℙ}];

112 sn,a;[∞,∅]

change={a00->0,a10->1,a01->1,a20->-1,a11->0,a02->0,b00->0,b10->ce,b01->ce,b20->-ce,b11->cm,b02->0}/.{ce->0,cm->-1/2}

comp

CSP[{},{},{μ2}];

change={a00->ϵ,a10->1,a01->1,a20->-1,a11->0,a02->0,b00->0,b10->0,b01->0,b20->0,b11->-(1/2),b02->0}

comp

CSP[{},{-𝔻},{μ1,𝔅1}];

121 es;(1,2)HHH-H,N

change={a00->0,a10->0,a01->1,a20->1,a11->0,a02->0,b00->0,b10->0,b01->cl,b20->cl,b11->cm,b02->0}/.{cl->0,cm->1/3}

comp

CSP[{},{WK},{}];

change={a00->0,a10->0,a01->1,a20->1,a11->0,a02->0,b00->0,b10->0,b01->0,b20->ϵ,b11->(1/3),b02->0}

comp

CSP[{},{},{μ1,ℙ}];

119 es;(1,2)PEP-H,S

change={a00->0,a10->0,a01->1,a20->1,a11->0,a02->0,b00->0,b10->0,b01->cl,b20->cl,b11->cm,b02->0}/.{cl->0,cm->2}

comp

CSP[{},{WK},{}];

change={a00->0,a10->0,a01->1,a20->1,a11->0,a02->0,b00->0,b10->0,b01->0,b20->ϵ,b11->2,b02->0}

comp

CSP[{},{},{μ1,ℙ}];

120 es;(1,2)PHP-E,S

change={a00->0,a10->0,a01->1,a20->1,a11->0,a02->0,b00->0,b10->0,b01->cl,b20->cl,b11->cm,b02->0}/.{cl->0,cm->2/3}

comp

CSP[{},{WK},{}];

change={a00->0,a10->0,a01->1,a20->1,a11->0,a02->0,b00->0,b10->0,b01->0,b20->ϵ,b11->2/3,b02->0}

comp

CSP[{},{},{μ1,ℙ}];

118 es;(1,1)SN,(0,2)SN

change=changeSys13/.ch->1/.{cg->2,cl->0,cm->1}

comp

CSP[{},{},{}];

change={a00->0,a10->0,a01->2,a20->2+ϵ1,a11->1+ϵ2,a02->0+ϵ3,b00->0,b10->0,b01->0,b20->+ϵ4,b11->1+ϵ5,b02->0+ϵ6}

comp

sol={ϵ1->0,ϵ3->0,ϵ6->0}

Factor[μ0/.sol]

Factor[η/.sol]

Solve[Factor[η/.sol]==0,ϵ4]

change={a00->0,a10->0,a01->2,a20->2+ϵ1,a11->1+ϵ2,a02->0+ϵ3,b00->0,b10->0,b01->0,b20->+ϵ4,b11->1+ϵ5,b02->0+ϵ6}/.sol/.ϵ4->-(((ϵ5)^2)/(2 (1+ϵ2)))/.ϵ2->0

comp

CSP[{},{WW2},{μ1,ℙ,𝔗2,WM}];

70 pepe;S,(0,2)SN

change={a00->0,a10->0,a01->0,a20->0,a11->1,a02->0,b00->0,b10->0,b01->0,b20->-1,b11->1,b02->2}

comp

CSP[{},{},{}];

change={a00->0,a10->0,a01->0,a20->0,a11->1,a02->0+ϵ3,b00->0,b10->0,b01->0,b20->-1,b11->1,b02->2}

comp

η

CSP[{},{-μ0,-η},{μ0}];

CSP[{},{-μ0,η},{μ0}];

72 phph;S,(0,2)SN

change={a00->0,a10->0,a01->0,a20->1,a11->1/10,a02->0,b00->0,b10->0,b01->0,b20->5/16,b11->0,b02->1}

comp

CSP[{},{},{WM}];

change={a00->0,a10->0,a01->0,a20->1,a11->1/10,a02->0+ϵ3,b00->0,b10->0,b01->0,b20->5/16,b11->0,b02->1}

comp

η

CSP[{},{μ0,-η,-θ},{μ0}];

CSP[{},{μ0,η},{μ0}];

58 cp,cp;N,(0,2)SN

change=changeSys6/.{cc->1,ce->1,ck->0,cn->2,cu->-1,cv->1}

comp

CSP[{},{ℙ ℝ},{}];

change={a00->0,a10->1,a01->-1,a20->-1,a11->1,a02->0,b00->0,b10->1,b01->-1,b20->-1,b11->1,b02->2}

Flatten[ChangeVarON[eq1[[2]] /. change, eq2[[2]] /. change, var1, var2, {{1, -1}, {1, 1}}, {0, 0}, -1/2, x[2][t], y[2][t]]]

change=ExtractCoeff1[%[[1]], %[[2]], x[2][t], y[2][t]]

Solve[{(eq1[[2]]/.change)==0,(eq2[[2]]/.change)==0},{var1,var2}]

Flatten[ChangeVarON[eq1[[2]] /. change, eq2[[2]] /. change, var1, var2, {{1, -1}, {0, 1}}, {0,0}, 1, x[2][t], y[2][t]]]

change=ExtractCoeff1[%[[1]], %[[2]], x[2][t], y[2][t]]

Solve[{(eq1[[2]]/.change)==0,(eq2[[2]]/.change)==0},{var1,var2}]

change={a00->0,a10->0,a01->1,a20->-(3/2)+ϵ1,a11->0+ϵ2,a02->2+ϵ3,b00->0,b10->0,b01->0,b20->-(1/2)+ϵ4,b11->0+ϵ5,b02->0+ϵ6}/.ϵ3->0/.ϵ6->0/.ϵ5->0

Flatten[ChangeVarON[eq1[[2]] /. change, eq2[[2]] /. change, var1, var2, {{1, 0}, {0, 1}}, {0,-1/2}, 1, x[2][t], y[2][t]]]

change=ExtractCoeff1[%[[1]], %[[2]], x[2][t], y[2][t]]

comp

Collect[η/.ϵ1->0,ϵ2,Factor]

sol=Solve[%==0,ϵ4]

change={a00->0,a10->-ϵ2,a01->-1,a20->(1/2) (-3+2 ϵ1),a11->ϵ2,a02->2,b00->0,b10->0,b01->0,b20->(1/2) (-1+2 ϵ4),b11->0,b02->0}/.sol[[1]]/.ϵ1->0

comp

ℙ ℝ/.ϵ2->0

CSP[{},{μ0,ℙ ℝ},{μ0,WM,𝔗2}];

155 cp;(1,2)PEP-H,(1,1)SN

change={a00->0,a10->cc,a01->1,a20->0,a11->0,a02->0,b00->0,b10->0,b01->0,b20->cl,b11->cm,b02->0}/.{cc->0,cl->1,cm->1}

comp

CSP[{},{},{μ2}];

change={a00->0,a10->ϵ1,a01->1,a20->0,a11->0,a02->0,b00->0,b10->0,b01->0,b20->cl,b11->cm,b02->0}/.{cc->0,cl->1,cm->1}

comp

CSP[{},{},{μ2,𝔅1,WM}];

153 cp;(2,2)PPH-H,N

change={a00->0,a10->cc,a01->cd,a20->0,a11->0,a02->0,b00->0,b10->0,b01->0,b20->1,b11->1,b02->1}/.{cc->0,cd->1}

comp

CSP[{},{},{μ2}];

change={a00->0,a10->ϵ,a01->1,a20->0,a11->0,a02->0,b00->0,b10->0,b01->0,b20->1,b11->1,b02->1}

comp

CSP[{},{μ2},{μ2,𝔅1}];

128 a,a;[∞,S]

change={a00->0,a10->cc,a01->0,a20->-cc,a11->0,a02->0,b00->0,b10->ce,b01->1,b20->-ce,b11->cu,b02->0}/.{cc->2,ce->0,cu->-1}

comp

CSP[{},{𝕌},{μ2}];

change={a00->0,a10->2,a01->0,a20->-2,a11->0,a02->0,b00->0,b10->+ϵ,b01->1,b20->+ϵ,b11->-1,b02->0}

comp

CSP[{},{𝕌},{μ2,WC2}];

131 s,a;[∞,N]

change={a00->0,a10->cc,a01->0,a20->-cc,a11->0,a02->0,b00->0,b10->ce,b01->1,b20->-ce,b11->cu,b02->0}/.{cc->-2,ce->0,cu->1}

comp

CSP[{},{𝕌},{μ2}];

change={a00->0,a10->-2,a01->0,a20->2,a11->0,a02->0,b00->0,b10->+ϵ,b01->1,b20->+ϵ,b11->1,b02->0}

comp

CSP[{},{𝕌},{μ2,WC2}];

158 a;(3,3)HPE-PHH

change={a00->0,a10->cc,a01->0,a20->2cc,a11->0,a02->0,b00->0,b10->ce,b01->1,b20->(2ce+1),b11->1,b02->0}/.{cc->1,ce->-1}

comp

CSP[{},{},{μ3}];

change={a00->0+ϵ7,a10->1,a01->0,a20->2+ϵ1,a11->0+ϵ2,a02->0+ϵ3,b00->0,b10->-1,b01->1,b20->-1+ϵ4,b11->1+ϵ5,b02->0+ϵ6}/.{ϵ1->0,ϵ3->0,ϵ6->0,ϵ2->0}

comp

sol=Simplify[{ϵ1->0,ϵ3->0,ϵ6->0,ϵ2->0}]

Factor[μ0/.sol]

Solve[(μ0/.sol)==0,ϵ6]

Factor[η/.sol]

Solve[(η/.sol)==0,ϵ2]

Collect[WM/.sol,{var1,var2},Factor]

Factor[κ/.sol]

Collect[μ1/.sol,{var1,var2},Factor]

Collect[μ2/.sol,{var1,var2},Factor]

Solve[%==0,ϵ7]

Factor[WM/.sol]

change={a00->ϵ7,a10->1,a01->0,a20->2,a11->0,a02->0,b00->0,b10->-1,b01->1,b20->-1+ϵ4,b11->1+ϵ5,b02->0}/.ϵ4->0/.{ϵ7->((ϵ5)/(2 (((1+ϵ5))^2)))}

comp

CSP[{},{WK,WL},{μ3,WL}];

CSP[{},{WK,-WL},{μ3,WL}];

163 a;(3,3)HPPH-PP

change={a00->0,a10->1,a01->0,a20->0,a11->0,a02->0,b00->0,b10->ce,b01->cf,b20->1,b11->0,b02->0}/.{ce->0,cf->3}

comp

CSP[{},{},{μ3}];

change={a00->0,a10->1,a01->0,a20->0+ϵ1,a11->0+ϵ2,a02->0+ϵ3,b00->0,b10->0,b01->3,b20->1+ϵ4,b11->0+ϵ5,b02->0+ϵ6}

comp

sol=Simplify[{ϵ2->0,ϵ3->0,ϵ6->0,ϵ1->2 ϵ5}]

Factor[μ0/.sol]

Solve[(μ0/.sol)==0,ϵ3]

Factor[η/.sol]

Solve[(η/.sol)==0,ϵ2]

Collect[WM/.sol,{var1,var2},Factor]

Factor[κ/.sol]

Collect[μ1/.sol,{var1,var2},Factor]

Collect[μ2/.sol,{var1,var2},Factor]

change={a00->0,a10->1,a01->0,a20->ϵ1,a11->ϵ2,a02->ϵ3,b00->0,b10->0,b01->3,b20->1+ϵ4,b11->ϵ5,b02->ϵ6}/.sol

comp

CSP[{},{𝕌},{μ2,WC2}];

change={a00->0,a10->1,a01->0+ϵ7,a20->0+ϵ1,a11->0+ϵ2,a02->0+ϵ3,b00->0,b10->0,b01->3,b20->1+ϵ4,b11->0+ϵ5,b02->0+ϵ6}/.{ϵ1->0,ϵ2->0,ϵ3->0,ϵ6->(((ϵ5)^2)/(1+ϵ4))}

comp

sol=Simplify[{ϵ1->0,ϵ2->0,ϵ3->0}]

Factor[μ0/.sol]

Solve[(μ0/.sol)==0,ϵ6]

Factor[η/.sol]

Solve[(η/.sol)==0,ϵ6]

Collect[WM/.sol,{var1,var2},Factor]

Factor[κ/.sol]

Collect[μ1/.sol,{var1,var2},Factor]

Collect[μ2/.sol,{var1,var2},Factor]

Solve[%==0,ϵ7]

Factor[WM/.sol]

change={a00->0,a10->1,a01->ϵ7,a20->0,a11->0,a02->0,b00->0,b10->0,b01->3,b20->1+ϵ4,b11->ϵ5,b02->(((ϵ5)^2)/(1+ϵ4))}/.{ϵ7->((ϵ5)/(1+ϵ4))}

comp

CSP[{},{},{μ3,WL}];

162 s;(3,3)PEEP-PP

change={a00->0,a10->1,a01->0,a20->0,a11->0,a02->0,b00->0,b10->ce,b01->cf,b20->1,b11->0,b02->0}/.{ce->0,cf->-2}

comp

CSP[{},{},{μ3}];

change={a00->0,a10->1,a01->0,a20->0+ϵ1,a11->0+ϵ2,a02->0+ϵ3,b00->0,b10->0,b01->-2,b20->1+ϵ4,b11->0+ϵ5,b02->0+ϵ6}

comp

sol=Simplify[{ϵ2->0,ϵ3->0,ϵ6->0,ϵ1->2ϵ5}]

Factor[μ0/.sol]

Solve[(μ0/.sol)==0,ϵ3]

Factor[η/.sol]

Solve[(η/.sol)==0,ϵ2]

Collect[WM/.sol,{var1,var2},Factor]

Factor[κ/.sol]

Collect[μ1/.sol,{var1,var2},Factor]

Collect[μ2/.sol,{var1,var2},Factor]

change={a00->0,a10->1,a01->0,a20->ϵ1,a11->ϵ2,a02->ϵ3,b00->0,b10->0,b01->-2,b20->1+ϵ4,b11->ϵ5,b02->ϵ6}/.sol/.ϵ4->0

comp

CSP[{},{𝕌},{μ2,WC2}];

164 ∅;(4,2)PHP-PHP,N

change={a00->0,a10->0,a01->0,a20->1/4,a11->0,a02->0,b00->1,b10->0,b01->0,b20->0,b11->-3/8,b02->0}

comp

CSP[{},{},{μ4}];

change={a00->0,a10->0+ϵ7,a01->0,a20->1/4,a11->0,a02->0,b00->1,b10->0,b01->0,b20->0,b11->-3/8,b02->0}

comp

CSP[{},{},{μ3,WC2}];

change={a00->0,a10->0,a01->0,a20->1/4,a11->0,a02->0,b00->1,b10->0,b01->0+ϵ7,b20->0,b11->-3/8,b02->0}

comp

μ0

CSP[{},{},{μ2}];

165 ∅;(4,2)PEP-HHH,N

change={a00->-2,a10->0,a01->0,a20->1,a11->0,a02->0,b00->1,b10->1,b01->0,b20->0,b11->0,b02->0}

comp

CSP[{},{},{μ4}];

change={a00->-2,a10->0,a01->0+ϵ,a20->1+ϵ1,a11->0+ϵ2,a02->0+ϵ3,b00->1,b10->1,b01->0,b20->0+ϵ4,b11->0+ϵ5,b02->0+ϵ6}

sys=Flatten[changeU2[eq1[[2]] /. change, eq2[[2]] /. change, var1, var2]]

Jacob[sys[[1]],sys[[2]],w[0][t],z[0][t],{},{0,0}]

change={a00->-2+ϵ7,a10->0+ϵ8,a01->0,a20->1+ϵ1,a11->0,a02->0+ϵ3,b00->1+ϵ10,b10->1+ϵ11,b01->0+ϵ12,b20->0+ϵ4,b11->0+ϵ5,b02->0}

sys=Flatten[changeU2[eq1[[2]] /. change, eq2[[2]] /. change, var1, var2]]

Jacob[sys[[1]],sys[[2]],w[0][t],z[0][t],{},{0,0}]

comp

sol={ϵ3->0}

Collect[μ0/.sol,{var1,var2},Factor]

Factor[η/.sol]

Collect[μ1/.sol,{var1,var2},Factor]

Collect[μ2/.sol,{var1,var2},Factor]

sol2=Flatten[Solve[Collect[μ2/.sol,{var1,var2},Factor]==0,ϵ8]]

Simplify[sol2/.ϵ12->ϵ5 Sqrt[8]]

Collect[μ2/.sol/.ϵ12->ϵ5 Sqrt[8]/.ϵ8->((2 ϵ1+ ϵ7)/(Sqrt[2])),{var1,var2},Factor]

change={a00->-2+ϵ7,a10->0+ϵ8,a01->0,a20->1+ϵ1,a11->0,a02->0+ϵ3,b00->1+ϵ10,b10->1+ϵ11,b01->0+ϵ12,b20->0+ϵ4,b11->0+ϵ5,b02->0}/.sol/.ϵ3->0/.ϵ12->ϵ5 Sqrt[8]/.ϵ8->((2 ϵ1+ ϵ7)/(Sqrt[2]))

sys=Flatten[changeU2[eq1[[2]] /. change, eq2[[2]] /. change, var1, var2]]

Jacob[sys[[1]],sys[[2]],w[0][t],z[0][t],{},{0,0}]

comp

Collect[μ2,{var1,var2},Factor]

Collect[μ3,{var1,var2},Factor]

CSP[{},{WK,WL},{μ3,WL}];

change={a00->-2+ϵ7,a10->((2 ϵ1+ϵ7)/(Sqrt[2])),a01->0,a20->1+ϵ1,a11->0,a02->0,b00->1+ϵ10,b10->1+ϵ11,b01->2 (Sqrt[2]) ϵ5,b20->ϵ4,b11->ϵ5,b02->0}/.{ϵ1->0,ϵ4->0,ϵ7->0,ϵ10->0,ϵ11->0}

comp

CSP[{},{WK,WL},{μ3,WL}];

change={a00->-2,a10->0,a01->0+ϵ7,a20->1,a11->0,a02->0,b00->1,b10->1,b01->0,b20->0,b11->0,b02->0}

comp

μ3

CSP[{},{μ3 WK1,WW8},{μ3}];

166 ∅;(3,2)EP-PH,(1,1)SN

change={a00->0,a10->1,a01->0,a20->0,a11->0,a02->0,b00->1,b10->0,b01->0,b20->0,b11->-1/2,b02->0}

comp

CSP[{},{},{μ4}];

change={a00->0,a10->1,a01->0+ϵ,a20->0+ϵ1,a11->0+ϵ2,a02->0+ϵ3,b00->1,b10->0,b01->0,b20->0+ϵ4,b11->-1/2+ϵ5,b02->0+ϵ6}

sys=Flatten[changeU2[eq1[[2]] /. change, eq2[[2]] /. change, var1, var2]]

Jacob[sys[[1]],sys[[2]],w[0][t],z[0][t],{},{0,0}]

change={a00->0+ϵ7,a10->1+ϵ8,a01->0,a20->0+ϵ1,a11->0,a02->0+ϵ3,b00->1+ϵ10,b10->0+ϵ11,b01->0+ϵ12,b20->0+ϵ4,b11->-1/2+ϵ5,b02->0}

sys=Flatten[changeU2[eq1[[2]] /. change, eq2[[2]] /. change, var1, var2]]

Jacob[sys[[1]],sys[[2]],w[0][t],z[0][t],{},{0,0}]

comp

sol={ϵ3->0}

Collect[μ0/.sol,{var1,var2},Factor]

Factor[η/.sol]

Collect[μ1/.sol,{var1,var2},Factor]

Collect[μ2/.sol,{var1,var2},Factor]

sol2=Solve[Collect[μ2/.sol,{var1,var2},Factor]==0,ϵ1]

Collect[μ3/.sol/.sol2[[1]],{var1,var2},Factor]

Collect[μ2/.sol/.sol2[[1]],{var1,var2},Factor]

change={a00->0+ϵ7,a10->1+ϵ8,a01->0,a20->0+ϵ1,a11->0,a02->0+ϵ3,b00->1+ϵ10,b10->0+ϵ11,b01->0+ϵ12,b20->0+ϵ4,b11->-1/2+ϵ5,b02->0}/.sol/.sol2[[1]]

sys=Flatten[changeU2[eq1[[2]] /. change, eq2[[2]] /. change, var1, var2]]

Jacob[sys[[1]],sys[[2]],w[0][t],z[0][t],{},{0,0}]

comp

Collect[μ2,{var1,var2},Factor]

Collect[μ3,{var1,var2},Factor]

CSP[{},{-μ3 WK1},{μ3,WM,𝔅4}];

change={a00->ϵ7,a10->1+ϵ8,a01->0,a20->0,a11->0,a02->0,b00->1+ϵ10,b10->ϵ11,b01->ϵ12,b20->ϵ4,b11->-(1/2)+ϵ5,b02->0}/.{ϵ4->0,ϵ5->0,ϵ8->0,ϵ10->0,ϵ11->0,ϵ12->0}

comp

CSP[{},{-μ3 WK1},{μ3,WM,𝔅4}];

CSP[{},{μ3 WK1,-WW11},{μ3,WM}];

CODIMENSION 6

159 a;[∞,(2,0)SN]

change={a00->0,a10->1,a01->0,a20->2,a11->0,a02->0,b00->0,b10->-1/2,b01->1,b20->0,b11->1,b02->0}

comp

CSP[{},{WK},{}];

change={a00->0,a10->1,a01->0,a20->2+ϵ1,a11->0+ϵ2,a02->0+ϵ3,b00->0,b10->-1/2,b01->1,b20->0+ϵ4,b11->1+ϵ5,b02->0+ϵ6}/.ϵ4->0/.ϵ1->2ϵ5/.ϵ6->2ϵ2/.ϵ3->0

comp

Collect[WC2,{var1,var2}]

change={a00->0+ϵ7,a10->1+ϵ8,a01->0+ϵ9,a20->2+ϵ1,a11->0+ϵ2,a02->0+ϵ3,b00->0+ϵ10,b10->-1/2+ϵ11,b01->1+ϵ12,b20->0+ϵ4,b11->1+ϵ5,b02->0+ϵ6}/.ϵ4->0/.ϵ1->2ϵ5/.ϵ6->2ϵ2/.ϵ3->0

comp

η

WM

μ0

Collect[μ1,{var1,var2},Factor]

Collect[μ1/.ϵ2->0,{var1,var2},Factor]

change={a00->0+ϵ7,a10->1+ϵ8,a01->0+ϵ9,a20->2+ϵ1,a11->0+ϵ2,a02->0+ϵ3,b00->0+ϵ10,b10->-1/2+ϵ11,b01->1+ϵ12,b20->0+ϵ4,b11->1+ϵ5,b02->0+ϵ6}/.ϵ4->0/.ϵ1->2ϵ5/.ϵ6->2ϵ2/.ϵ3->0/.ϵ2->0/.ϵ9->0/.ϵ5->0/.ϵ12->0/.ϵ8->0/.ϵ10->0/.ϵ11->0

comp

CSP[{},{𝕌,-μ2,WK},{μ2}];

CSP[{},{𝕌,μ2,WK,WK2},{μ2,𝔅3}];

122 es;[∞,∅]

change={a00->0,a10->0,a01->1,a20->1,a11->0,a02->0,b00->0,b10->0,b01->cl,b20->cl,b11->cm,b02->0}/.cl->0/.cm->1/2

comp

CSP[{},{WK},{}];

change={a00->0,a10->0+ϵ,a01->1,a20->1,a11->0,a02->0,b00->0,b10->0,b01->0,b20->0,b11->(1/2),b02->0}

comp

CSP[{},{},{μ1,ℙ}];

147 sn;[∞,N]

change={a00->0,a10->0,a01->0,a20->cg,a11->0,a02->0,b00->0,b10->0,b01->1,b20->cl,b11->1,b02->0}/.cg->2/.cl->0

comp

CSP[{},{WK},{}];

change={a00->0,a10->ϵ,a01->0,a20->2,a11->0,a02->0,b00->0,b10->0,b01->1,b20->0,b11->1,b02->0}

comp

CSP[{},{𝕌,μ2},{μ2,𝔅3}];

167 ∅;(4,3)EPH-HPE

change={a00->0,a10->0,a01->0,a20->1,a11->0,a02->0,b00->1,b10->0,b01->0,b20->-1,b11->1/2,b02->0}

comp

CSP[{},{},{μ4}];

change={a00->0,a10->0+ϵ7,a01->0,a20->1,a11->0,a02->0,b00->1,b10->0,b01->0,b20->-1,b11->1/2,b02->0}

comp

CSP[{},{},{μ3,WC2}];

change={a00->0,a10->0,a01->0,a20->1,a11->0,a02->0,b00->1,b10->0,b01->0+ϵ7,b20->-1,b11->1/2,b02->0}

comp

CSP[{},{},{μ2}];

168 ∅;(4,3)PEEP-HH

change={a00->0,a10->1,a01->0,a20->0,a11->0,a02->0,b00->1,b10->0,b01->0,b20->-1,b11->0,b02->0}

comp

CSP[{},{},{μ4}];

change={a00->0,a10->1,a01->0,a20->0,a11->0,a02->0,b00->1,b10->0,b01->0+ϵ7,b20->-1,b11->0,b02->0}

comp

CSP[{},{-μ3 WK1},{μ3,σ}];

CSP[{},{μ3 WK1,WK3},{μ3,𝔘4}];

169 ∅;(4,3)PEH-P

change={a00->1,a10->0,a01->0,a20->0,a11->0,a02->0,b00->0,b10->0,b01->1,b20->-1,b11->0,b02->0}

comp

CSP[{},{},{μ4}];

change={a00->1,a10->+ϵ7,a01->0,a20->0,a11->0,a02->0,b00->0,b10->0,b01->1,b20->-1,b11->0,b02->0}

comp

CSP[{},{μ3 WK1,-WK3},{μ3}];

CSP[{},{-μ3 WK1},{μ3,σ}];

CODIMENSION 7

170 ∅;[∞,(3,0)ES ]

change={a00->0,a10->0,a01->0,a20->1,a11->0,a02->0,b00->1,b10->0,b01->0,b20->0,b11->1/2,b02->0}

comp

CSP[{},{},{μ4}];

change={a00->0,a10->+ϵ7,a01->0,a20->1,a11->0,a02->0,b00->1,b10->0,b01->0,b20->0,b11->1/2,b02->0}

comp

CSP[{},{},{μ3}];

DEGENERATE CONFIGURATIONS

CODIMENSION 4

171 a,[ | , ∅ ]; [ |, ∅]

change={a00->0,a10->0,a01->0,a20->cg,a11->1/2,a02->0,b00->0,b10->ce,b01->0,b20->-1,b11->cg/2,b02->0}/.ce->1/.cg->1

comp

CSP[{},{},{WR}]

change={a00->0,a10->0,a01->0,a20->1,a11->(1/2),a02->0,b00->0,b10->1,b01->0,b20->-1,b11->(1/2),b02->+ϵ1}

comp

CSP[{},{μ0,WE3,-WW1},{μ0,ℝ,𝔗1,𝔜1}];

CSP[{},{-μ0,-WE3,-WW1,-η},{μ0,ℝ,𝔗1,𝔜1}];

176 a,[ | , ∅ ];N,S, [ |, ∅]

change={a00->0,a10->0,a01->cd,a20->0,a11->(ch-1)/2,a02->0,b00->0,b10->0,b01->0,b20->0,b11->-1/2,b02->ch}/.cd->1/.ch->-1

comp

CSP[{},{},{}]

change={a00->0+ϵ11,a10->0+ϵ7,a01->1+ϵ8,a20->0+ϵ1,a11->-1+ϵ2,a02->0+ϵ3,b00->0+ϵ12,b10->0+ϵ9,b01->0+ϵ10,b20->0+ϵ4,b11->-(1/2)+ϵ5,b02->-1+ϵ6}/.{ϵ7->0,ϵ5->0,ϵ2->0,ϵ3->0,ϵ4->0,ϵ6->0,ϵ8->0,ϵ9->0,ϵ10->0}/.{ϵ11->0,ϵ12->0}

comp

CSP[{},{μ0,WE3},{μ0,ℝ}];

CSP[{},{-μ0,-WE3,WW1},{μ0,ℝ}];

178 s,[ | , ∅ ];N,N, [ |, ∅]

change={a00->0,a10->0,a01->cd,a20->0,a11->(ch-1)/2,a02->0,b00->0,b10->0,b01->0,b20->0,b11->-1/2,b02->ch}/.cd->1/.ch->1/2

comp

CSP[{},{},{}]

change={a00->0+ϵ11,a10->0+ϵ7,a01->1+ϵ8,a20->0+ϵ1,a11->-1+ϵ2,a02->0+ϵ3,b00->0+ϵ12,b10->0+ϵ9,b01->0+ϵ10,b20->0+ϵ4,b11->-(1/2)+ϵ5,b02->1/2+ϵ6}/.{ϵ7->0,ϵ5->0,ϵ2->0,ϵ3->0,ϵ4->0,ϵ6->0,ϵ8->0,ϵ9->0,ϵ10->0}/.{ϵ11->0,ϵ12->0}

comp

CSP[{},{-μ0,WE3,η},{μ0,ℝ,𝔗1}];

CSP[{},{μ0,-WE3,η,-θ},{μ0,ℝ,𝔗1,𝔜1}];

CODIMENSION 5

173 ∅,[ | , f ];[ | , ∅]

change={a00->0,a10->0,a01->0,a20->cg,a11->1/2,a02->0,b00->0,b10->ce,b01->0,b20->-1,b11->cg/2,b02->0}/.ce->0/.cg->1

eq1/.change

eq2/.change

comp

CSP[{},{},{WR}]

change={a00->0,a10->0,a01->0,a20->1,a11->(1/2),a02->0,b00->0,b10->ϵ,b01->0,b20->-1,b11->(1/2),b02->0}

eq1/.change

eq2/.change

comp

CSP[{},{},{θ2,WR}];

175 [ O , ∅];N, [O, ∅ , ∅] into (Subscript[(OverHat[sn]), (4)])

change={a00->0,a10->0,a01->0,a20->0,a11->0,a02->0,b00->cb,b10->0,b01->0,b20->-1,b11->0,b02->-1}

eq1/.change

eq2/.change

Flatten[ChangeVarON[eq1[[2]] /. change, eq2[[2]] /. change, var1, var2, {{1, 0}, {0, 1}}, {-Sqrt[cb],0}, 1, x[2][t], y[2][t]]]

change=ExtractCoeff1[%[[1]], %[[2]], x[2][t], y[2][t]]

eq1/.change

eq2/.change

comp

{(OverTilde[D]),𝔗4,𝔗3,𝔗2,𝔗1}

{𝕋, 𝔻,ℙ ℝ}

CSP[{},{-WL1},{WL1}]

change={a00->0,a10->0,a01->0,a20->ϵ1,a11->0,a02->0,b00->0,b10->2 (Sqrt[cb]),b01->0,b20->-1,b11->0,b02->-1}

comp

{μ0,μ1,μ2,μ3,μ4}

CSP[{},{-η},{μ0,(OverTilde[D])}];

change={a00->0,a10->0,a01->0,a20->+ϵ1,a11->+ϵ2,a02->0,b00->0,b10->2 (Sqrt[cb]),b01->0,b20->-1,b11->0,b02->-1}

comp

CSP[{},{-η,-WE3,WW1},{μ0,(OverTilde[D]),ℝ,𝔗1}];

175 [ O , ∅];N, [O, ∅ , ∅] into (Subscript[(OverHat[cp]), (2)]), (Subscript[(OverHat[cp]), (2)])

change={a00->0,a10->0,a01->0,a20->0,a11->0,a02->0,b00->cb,b10->0,b01->0,b20->-1,b11->0,b02->-1}

eq1/.change

eq2/.change

Flatten[ChangeVarON[eq1[[2]] /. change, eq2[[2]] /. change, var1, var2, {{1, 0}, {0, 1}}, {-Sqrt[cb],0}, 1, x[2][t], y[2][t]]]

change=ExtractCoeff1[%[[1]], %[[2]], x[2][t], y[2][t]]

eq1/.change

eq2/.change

comp

{(OverTilde[D]),𝔗4,𝔗3,𝔗2,𝔗1}

{𝕋, 𝔻,ℙ ℝ}

CSP[{},{-WL1},{WL1}]

change={a00->0,a10->0,a01->0,a20->ϵ1,a11->ϵ2,a02->ϵ3,b00->0,b10->2 (Sqrt[cb]),b01->0,b20->-1,b11->ϵ4,b02->-1}

comp

{μ0,μ1,μ2,μ3,μ4}

{(OverTilde[D]),𝔗4,𝔗3,𝔗2,𝔗1}/.ϵ1->((ϵ2)^2)/ϵ3

Solve[{(((ϵ2)^2)/(ϵ3))+2 ϵ2 ϵ4+ϵ3 ((ϵ4)^2)==0,-(((ϵ2)^3)/(ϵ3))-ϵ2 ϵ3-3 ((ϵ2)^2) ϵ4-((ϵ3)^2) ϵ4-2 ϵ2 ϵ3 ((ϵ4)^2)==0}]

Factor[{𝕋, 𝔻,ℙ ℝ}/.ϵ1->((ϵ2)^2)/ϵ3]

{(OverTilde[D]),𝔗4,𝔗3,𝔗2,𝔗1}/.ϵ1->((ϵ2)^2)/ϵ3/.ϵ2->-ϵ3 ϵ4

Factor[{𝕋, 𝔻,ℙ ℝ}/.ϵ1->((ϵ2)^2)/ϵ3/.ϵ2->-ϵ3 ϵ4]

change={a00->0,a10->0,a01->0,a20->ϵ1,a11->ϵ2,a02->ϵ3,b00->0,b10->2 (Sqrt[cb]),b01->0,b20->-1,b11->ϵ4,b02->-1}/.ϵ1->((ϵ2)^2)/ϵ3/.ϵ2->-ϵ3 ϵ4

comp

CSP[{},{-η,ℙ ℝ},{μ0,(OverTilde[D])}];

177 ∅,[ | , n];N,S, [ |, ∅]

change={a00->0,a10->0,a01->cd,a20->0,a11->(ch-1)/2,a02->0,b00->0,b10->0,b01->0,b20->0,b11->-1/2,b02->ch}/.cd->0/.ch->-1

comp

CSP[{},{},{}]

change={a00->0,a10->0,a01->0+ϵ1,a20->0,a11->-1,a02->0,b00->0,b10->0,b01->0,b20->0,b11->-(1/2),b02->-1}

comp

CSP[{},{},{θ2}];

179 ∅,[ | , s];N,N, [ |, ∅]

change={a00->0,a10->0,a01->cd,a20->0,a11->(ch-1)/2,a02->0,b00->0,b10->0,b01->0,b20->0,b11->-1/2,b02->ch}/.cd->0/.ch->1/2

comp

CSP[{},{},{}]

change={a00->0,a10->0,a01->ϵ,a20->0,a11->-(1/4),a02->0,b00->0,b10->0,b01->0,b20->0,b11->-(1/2),b02->(1/2)}

comp

CSP[{},{},{θ2}];

180 ∅,[ | , ∅ ];(1,1)SN, N [ |, ∅]

change={a00->0,a10->1,a01->0,a20->0,a11->-1/2,a02->0,b00->0,b10->0,b01->0,b20->0,b11->-1/2,b02->0}

comp

CSP[{},{},{}]

change={a00->0,a10->1,a01->0,a20->0+ϵ7,a11->-1/2,a02->0,b00->0,b10->0,b01->0,b20->0,b11->-1/2,b02->0}

comp

CSP[{},{η,κ},{}];

CSP[{},{η,-κ},{}];

181 [ )( , ∅ ];N,[ )( , ∅,∅ ] into (Subscript[(OverHat[sn]), (4)])

change={a00->ca,a10->0,a01->0,a20->0,a11->-1/2,a02->0,b00->ca,b10->0,b01->0,b20->0,b11->-1/2,b02->0}

eq1/.change

eq2/.change

Flatten[ChangeVarON[eq1[[2]] /. change, eq2[[2]] /. change, var1, var2, {{1, 0}, {0, -1}}, {Sqrt[ca],Sqrt[ca]}, 1, x[2][t], y[2][t]]]

change=ExtractCoeff1[%[[1]], %[[2]], x[2][t], y[2][t]]

change={a00->0,a10->-(Sqrt[ca]),a01->-(Sqrt[ca]),a20->0,a11->-(1/2),a02->0,b00->0,b10->(Sqrt[ca]),b01->(Sqrt[ca]),b20->0,b11->(1/2),b02->0}/.ca->1

eq1/.change

eq2/.change

comp

{(OverTilde[D]),𝔗4,𝔗3,𝔗2,𝔗1}

{𝕋, 𝔻,ℙ ℝ}

CSP[{},{-WL1},{WL1}]

change={a00->0,a10->-1+ϵ7,a01->-1+ϵ7,a20->0+ϵ1,a11->-(1/2)+ϵ2,a02->+ϵ3,b00->0,b10->1-ϵ7,b01->1-ϵ7,b20->+ϵ4,b11->(1/2)+ϵ5,b02->0+ϵ6}

comp

sol={}

sol=Factor[{ϵ1->-(-2 ϵ2+ϵ3+ϵ4-2 ϵ5+ϵ6)/.ϵ2->-(-ϵ3+ϵ5-ϵ6),ϵ2->-(-ϵ3+ϵ5-ϵ6)}]

Collect[μ4/.sol, {var1,var2},Simplify]

Collect[μ3/.sol, {var1,var2},Simplify]

Collect[μ2/.sol, {var1,var2},Simplify]

Collect[μ1/.sol, {var1,var2},Simplify]

Factor[μ0/.sol]

change={a00->0,a10->-1+ϵ7,a01->-1+ϵ7,a20->0+ϵ1,a11->-(1/2)+ϵ2,a02->+ϵ3,b00->0,b10->+1-ϵ7,b01->1-ϵ7,b20->+ϵ4,b11->(1/2)+ϵ5,b02->0+ϵ6}/.{ϵ1->ϵ3-ϵ4+ϵ6,ϵ2->ϵ3-ϵ5+ϵ6}/.ϵ7->0/.ϵ6->0/.ϵ4->0/.ϵ5->0

comp

CSP[{},{η,θ1},{μ0,(OverTilde[D])}];

change={a00->0,a10->-1,a01->-1,a20->ϵ3,a11->-(1/2)+ϵ3,a02->ϵ3,b00->0,b10->1,b01->1,b20->0,b11->(1/2),b02->0}

Flatten[ChangeVarON[eq1[[2]] /. change, eq2[[2]] /. change, var1, var2, {{-1, -1}, {1, -1}}, {0,0}, -1/2, x[2][t], y[2][t]]]

change=ExtractCoeff1[%[[1]], %[[2]], x[2][t], y[2][t]]

eq1/.change

eq2/.change

change={a00->0,a10->0,a01->1,a20->(1/2),a11->0,a02->(1/2) (-1+2 ϵ3),b00->0,b10->0,b01->0,b20->0,b11->ϵ2,b02->ϵ3}

comp

CSP[{},{μ0,-WE3,η,θ},{μ0,ℝ,𝔗1}];

181 [ )( , ∅ ];N,[ )( , ∅,∅ ] into (Subscript[(OverHat[cp]), (2)]), (Subscript[(OverHat[cp]), (2)])

change={a00->ca,a10->0,a01->0,a20->0,a11->-1/2,a02->0,b00->ca,b10->0,b01->0,b20->0,b11->-1/2,b02->0}

eq1/.change

eq2/.change

Flatten[ChangeVarON[eq1[[2]] /. change, eq2[[2]] /. change, var1, var2, {{1, 0}, {0, -1}}, {Sqrt[ca],Sqrt[ca]}, 1, x[2][t], y[2][t]]]

change=ExtractCoeff1[%[[1]], %[[2]], x[2][t], y[2][t]]

change={a00->0,a10->-(Sqrt[ca]),a01->-(Sqrt[ca]),a20->0,a11->-(1/2),a02->0,b00->0,b10->(Sqrt[ca]),b01->(Sqrt[ca]),b20->0,b11->(1/2),b02->0}/.ca->1

eq1/.change

eq2/.change

comp

{(OverTilde[D]),𝔗4,𝔗3,𝔗2,𝔗1}

{𝕋, 𝔻,ℙ ℝ}

CSP[{},{-WL1},{WL1}]

change={a00->0,a10->-1+ϵ7,a01->-1+ϵ7,a20->0+ϵ1,a11->-(1/2)+ϵ2,a02->+ϵ3,b00->0,b10->1-ϵ7,b01->1-ϵ7,b20->+ϵ4,b11->(1/2)+ϵ5,b02->0+ϵ6}

comp

Factor[{(OverTilde[D]),𝔗4,𝔗3,𝔗2,𝔗1}]

Factor[{𝕋, 𝔻,ℙ ℝ}]

Solve[ϵ1 ϵ3+ϵ3 ϵ4-((ϵ5)^2)+ϵ1 ϵ6+ϵ4 ϵ6==0,ϵ6]

Solve[(ϵ1+2 ϵ1 ϵ3+ϵ4+2 ϵ3 ϵ4+ϵ5+2 ϵ1 ϵ5) ==0]

Factor[{(OverTilde[D]),𝔗4,𝔗3,𝔗2,𝔗1}/.{ϵ2->0,ϵ6->((-ϵ1 ϵ3-ϵ3 ϵ4+((ϵ5)^2))/(ϵ1+ϵ4))}/.ϵ4->((-ϵ1-2 ϵ1 ϵ3-ϵ5-2 ϵ1 ϵ5)/(1+2 ϵ3))]

Factor[{𝕋}/.{ϵ2->0}]

Factor[(((ϵ1+ϵ3+ϵ4-2 ϵ5+ϵ6))^2) (ϵ1 ϵ3+ϵ3 ϵ4-((ϵ5)^2)+ϵ1 ϵ6+ϵ4 ϵ6) /.{ϵ6->((-ϵ1 ϵ3-ϵ3 ϵ4+((ϵ5)^2))/(ϵ1+ϵ4))}]

Factor[{𝕋}/.{ϵ2->0,ϵ6->((-ϵ1 ϵ3-ϵ3 ϵ4+((ϵ5)^2))/(ϵ1+ϵ4))}]

Factor[{ℙ ℝ}/.{ϵ2->0,ϵ6->((-ϵ1 ϵ3-ϵ3 ϵ4+((ϵ5)^2))/(ϵ1+ϵ4))}/.ϵ4->((-ϵ1-2 ϵ1 ϵ3-ϵ5-2 ϵ1 ϵ5)/(1+2 ϵ3))]

Factor[{ℙ ℝ}/.{ϵ2->0,ϵ1->0,ϵ3->0,ϵ6->(((ϵ5)^2)/(ϵ4))}/.ϵ4->-ϵ5]

Factor[{(OverTilde[D]),𝔗4,𝔗3,𝔗2,𝔗1,𝕋,ℙ ℝ}/.{ϵ2->0,ϵ1->0,ϵ3->0,ϵ6->-ϵ5,ϵ4->-ϵ5}]

change={a00->0,a10->-1+ϵ7,a01->-1+ϵ7,a20->0+ϵ1,a11->-(1/2)+ϵ2,a02->+ϵ3,b00->0,b10->1-ϵ7,b01->1-ϵ7,b20->+ϵ4,b11->(1/2)+ϵ5,b02->0+ϵ6}/.{ϵ2->0,ϵ1->0,ϵ3->0,ϵ6->-ϵ5,ϵ4->-ϵ5,ϵ7->0}

comp

Factor[{(OverTilde[D]),𝔗4,𝔗3,𝔗2,𝔗1}]

Factor[{𝕋, 𝔻,ℙ ℝ}]

{μ0,η,θ1,𝕋}

CSP[{},{μ0,η,θ1,ℙ ℝ},{μ0,(OverTilde[D])}];

181 [ )( , ∅ ];N,[ )( , ∅,∅ ] (another possibility)

change={a00->-ca,a10->0,a01->0,a20->0,a11->1/2,a02->0,b00->ca,b10->0,b01->0,b20->0,b11->-1/2,b02->0}

eq1/.change

eq2/.change

Flatten[ChangeVarON[eq1[[2]] /. change, eq2[[2]] /. change, var1, var2, {{1, 0}, {0, -1}}, {Sqrt[ca],Sqrt[ca]}, 1, x[2][t], y[2][t]]]

change=ExtractCoeff1[%[[1]], %[[2]], x[2][t], y[2][t]]

change={a00->0,a10->(Sqrt[ca]),a01->-(Sqrt[ca]),a20->0,a11->-(1/2),a02->0,b00->0,b10->(Sqrt[ca]),b01->-(Sqrt[ca]),b20->0,b11->-(1/2),b02->0}/.ca->1

eq1/.change

eq2/.change

comp

{(OverTilde[D]),𝔗4,𝔗3,𝔗2,𝔗1}

{𝕋, 𝔻,ℙ ℝ}

CSP[{},{-WL1},{WL1}]

change={a00->0,a10->-1+ϵ7,a01->-1+ϵ7,a20->0+ϵ1,a11->-(1/2)+ϵ2,a02->+ϵ3,b00->0,b10->1-ϵ7,b01->1-ϵ7,b20->+ϵ4,b11->(1/2)+ϵ5,b02->0+ϵ6}

comp

Factor[{(OverTilde[D]),𝔗4,𝔗3,𝔗2,𝔗1}]

Factor[{𝕋, 𝔻,ℙ ℝ}]

Solve[(-((ϵ2)^2)+ϵ1 ϵ3+ϵ3 ϵ4-2 ϵ2 ϵ5-((ϵ5)^2)+ϵ1 ϵ6+ϵ4 ϵ6)==0,ϵ6]

Solve[(ϵ1+2 ϵ1 ϵ3+ϵ4+2 ϵ3 ϵ4+ϵ5+2 ϵ1 ϵ5) ==0]

Factor[{(OverTilde[D]),𝔗4,𝔗3,𝔗2,𝔗1}/.{ϵ2->0,ϵ6->((-ϵ1 ϵ3-ϵ3 ϵ4+((ϵ5)^2))/(ϵ1+ϵ4))}/.ϵ4->((-ϵ1-2 ϵ1 ϵ3-ϵ5-2 ϵ1 ϵ5)/(1+2 ϵ3))]

Factor[{𝕋}/.{ϵ2->0}]

Factor[(((ϵ1+ϵ3+ϵ4-2 ϵ5+ϵ6))^2) (ϵ1 ϵ3+ϵ3 ϵ4-((ϵ5)^2)+ϵ1 ϵ6+ϵ4 ϵ6)  /.{ϵ6->((-ϵ1 ϵ3-ϵ3 ϵ4+((ϵ5)^2))/(ϵ1+ϵ4))}]

Factor[{𝕋}/.{ϵ2->0,ϵ6->((-ϵ1 ϵ3-ϵ3 ϵ4+((ϵ5)^2))/(ϵ1+ϵ4))}]

Factor[{ℙ ℝ}/.{ϵ2->0,ϵ6->((-ϵ1 ϵ3-ϵ3 ϵ4+((ϵ5)^2))/(ϵ1+ϵ4))}/.ϵ4->((-ϵ1-2 ϵ1 ϵ3-ϵ5-2 ϵ1 ϵ5)/(1+2 ϵ3))]

Factor[{(OverTilde[D]),𝔗4,𝔗3,𝔗2,𝔗1,𝕋,ℙ ℝ}/.{ϵ2->0,ϵ1->0,ϵ3->0,ϵ6->-ϵ5,ϵ4->-ϵ5}]

change={a00->0,a10->-1+ϵ7,a01->-1+ϵ7,a20->0+ϵ1,a11->-(1/2)+ϵ2,a02->+ϵ3,b00->0,b10->1-ϵ7,b01->1-ϵ7,b20->+ϵ4,b11->(1/2)+ϵ5,b02->0+ϵ6}/.{ϵ2->0,ϵ1->0,ϵ3->0,ϵ6->-ϵ5,ϵ4->-ϵ5,ϵ7->0}

comp

Factor[{(OverTilde[D]),𝔗4,𝔗3,𝔗2,𝔗1}]

Factor[{𝕋, 𝔻,ℙ ℝ}]

{μ0,η,θ1,𝕋}

CSP[{},{μ0,η,θ1,ℙ ℝ},{μ0,(OverTilde[D])}];

183 a,[ | , ∅ ];(0,2)SN, [ |, ∅]

change={a00->0,a10->0,a01->0,a20->0,a11->1/2,a02->0,b00->0,b10->0,b01->cf,b20->0,b11->-1/2,b02->1}/.cf->1

comp

CSP[{},{},{}]

change={a00->0,a10->0,a01->0,a20->0,a11->(1/2),a02->0+ϵ3,b00->0,b10->0,b01->1,b20->0,b11->-(1/2),b02->1}

comp

CSP[{},{-η,-κ},{WR}];

CSP[{},{η,-κ},{}];

185 s,[ | , ∅ ];N, [ |, Nf3]

change={a00->0,a10->cc,a01->0,a20->cg,a11->0,a02->0,b00->0,b10->0,b01->0,b20->0,b11->(cg-1)/2,b02->0}/.cc->1/.cg->1/2

comp

CSP[{},{-WK},{}]

change={a00->0,a10->1,a01->0,a20->(1/2)+ϵ1,a11->0+ϵ2,a02->0+ϵ3,b00->0,b10->0,b01->0,b20->0+ϵ4,b11->-(1/4)+ϵ5,b02->0+ϵ6}/.{ϵ1->0,ϵ3->0,ϵ4->0,ϵ5->0,ϵ6->0}

comp

CSP[{},{η},{}];

187 a,[ | , ∅ ];S, [ |, N inf 3]

change={a00->0,a10->cc,a01->0,a20->cg,a11->0,a02->0,b00->0,b10->0,b01->0,b20->0,b11->(cg-1)/2,b02->0}/.cc->1/.cg->-1

comp

CSP[{},{WK,WK2},{WM}]

change={a00->0,a10->1,a01->0,a20->-1,a11->0+ϵ2,a02->0,b00->0,b10->0,b01->0,b20->0,b11->-1,b02->0}

comp

CSP[{},{η},{}];

189 a,[ | , ∅ ];N, [ |, S3]

change={a00->0,a10->cc,a01->0,a20->cg,a11->0,a02->0,b00->0,b10->0,b01->0,b20->0,b11->(cg-1)/2,b02->0}/.cc->1/.cg->2

comp

CSP[{},{WK,WK2},{WM}]

change={a00->0,a10->1,a01->0,a20->2+ϵ1,a11->0+ϵ2,a02->0+ϵ3,b00->0,b10->0,b01->0,b20->0+ϵ4,b11->1/2+ϵ5,b02->0+ϵ6}/.{ϵ1->0,ϵ3->0,ϵ4->0,ϵ5->0,ϵ6->0}

comp

CSP[{},{η},{}];

CODIMENSION 6

174 ∅,[ | , c ];[ | , ∅]

change={a00->0,a10->0,a01->0,a20->cg,a11->1/2,a02->0,b00->0,b10->ce,b01->0,b20->-1,b11->cg/2,b02->0}/.ce->0/.cg->0

eq1/.change

eq2/.change

comp

{𝔉1,𝔉2,𝔉3  𝔉4}

CSP[{},{},{}]

change={a00->0,a10->0,a01->0,a20->ϵ1,a11->(1/2),a02->0,b00->0,b10->0,b01->0,b20->-1,b11->0,b02->0}

eq1/.change

eq2/.change

comp

CSP[{},{-η},{WR}];

change={a00->0,a10->0,a01->0,a20->0,a11->(1/2),a02->0,b00->0,b10->ϵ1,b01->0,b20->-1,b11->0,b02->0}

eq1/.change

eq2/.change

comp

θ2

CSP[{},{-η},{θ2}];

182 [ X , ∅ ];N,[ X , ∅,∅ ]

change={a00->ca,a10->0,a01->0,a20->0,a11->-1/2,a02->0,b00->ca,b10->0,b01->0,b20->0,b11->-1/2,b02->0}/.ca->0

eq1/.change

eq2/.change

comp

CSP[{},{},{}]

change={a00->0+ϵ1,a10->0,a01->0,a20->0,a11->-(1/2),a02->0,b00->0+ϵ1,b10->0,b01->0,b20->0,b11->-(1/2),b02->0}

comp

CSP[{},{},{WL1}];

184 [ | , n^d ];(0,2)SN, [ |, ∅]

change={a00->0,a10->0,a01->0,a20->0,a11->1/2,a02->0,b00->0,b10->0,b01->cf,b20->0,b11->-1/2,b02->1}/.cf->0

comp

CSP[{},{},{}]

change={a00->0,a10->0,a01->0,a20->0,a11->(1/2),a02->0,b00->0,b10->0,b01->0+ϵ3,b20->0,b11->-(1/2),b02->1}

comp

CSP[{},{},{θ2}];

186 [ | , s ];N, [ |, Nf2]

change={a00->0,a10->cc,a01->0,a20->cg,a11->0,a02->0,b00->0,b10->0,b01->0,b20->0,b11->(cg-1)/2,b02->0}/.cc->0/.cg->1/2

comp

CSP[{},{-WK},{}]

change={a00->0,a10->0+ϵ,a01->0,a20->(1/2),a11->0,a02->0,b00->0,b10->0,b01->0,b20->0,b11->-(1/4),b02->0}

comp

CSP[{},{-WK,WK2},{}];

188 [ | , n ];S, [ |, N inf 2]

change={a00->0,a10->cc,a01->0,a20->cg,a11->0,a02->0,b00->0,b10->0,b01->0,b20->0,b11->(cg-1)/2,b02->0}/.cc->0/.cg->-1

comp

CSP[{},{},{WM}]

change={a00->0,a10->+ϵ2,a01->0,a20->-1,a11->0,a02->0,b00->0,b10->0,b01->0,b20->0,b11->-1,b02->0}

comp

CSP[{},{WK,WK2},{}];

190 [ | , n ];N, [ |, S2]

change={a00->0,a10->cc,a01->0,a20->cg,a11->0,a02->0,b00->0,b10->0,b01->0,b20->0,b11->(cg-1)/2,b02->0}/.cc->0/.cg->2

comp

CSP[{},{},{WM}]

change={a00->0,a10->0+ϵ,a01->0,a20->2,a11->0,a02->0,b00->0,b10->0,b01->0,b20->0,b11->(1/2),b02->0}

comp

CSP[{},{WK,WK2},{}];

191 [ U , ∅];N, [U, ∅ ]

change={a00->0,a10->0,a01->1,a20->1,a11->0,a02->0,b00->0,b10->0,b01->0,b20->0,b11->0,b02->0}

eq1/.change

eq2/.change

comp

CSP[{},{},{WL1}]

change={a00->0,a10->0,a01->1,a20->1,a11->0,a02->0+ϵ1,b00->0,b10->0,b01->0,b20->0,b11->0,b02->0}

eq1/.change

comp

CSP[{},{-η,-WL1},{}];

CSP[{},{η},{}];

193 [ | , ∅ ];N,[ | , (1,1) SN3 ]

change={a00->-cb,a10->0,a01->0,a20->1,a11->0,a02->0,b00->cb,b10->1,b01->0,b20->0,b11->0,b02->0}/.cb->1

eq1/.change

eq2/.change

comp

CSP[{},{WK2},{}]

change={a00->-1,a10->0,a01->0,a20->1+ϵ1,a11->0+ϵ2,a02->0+ϵ3,b00->1,b10->1,b01->0,b20->0+ϵ4,b11->0+ϵ5,b02->0+ϵ6}

comp

sol={ϵ2->0,ϵ3->0,ϵ6->0}

Factor[μ0/.sol]

Collect[μ1/.sol, {var1,var2 },Factor]

Collect[μ2/.sol, {var1,var2 },Factor]

Collect[μ3/.sol, {var1,var2 },Factor]

Collect[μ4/.sol, {var1,var2 },Factor]

Collect[WK/.sol, {var1,var2 },Factor]

change={a00->-1,a10->0+ϵ7,a01->0+ϵ8,a20->1+ϵ1,a11->0+ϵ2,a02->0+ϵ3,b00->1,b10->1+ϵ9,b01->0+ϵ10,b20->0+ϵ4,b11->0+ϵ5,b02->0+ϵ6}/.{ϵ2->0,ϵ3->0,ϵ6->0}

comp

sol={ϵ8->0,ϵ1->ϵ7}

Factor[μ0/.sol]

Collect[μ1/.sol, {var1,var2 },Factor]

Collect[μ2/.sol, {var1,var2 },Factor]

Solve[%==0,ϵ10]

Collect[μ3/.sol/.{ϵ10->2 ϵ5}, {var1,var2 },Factor]

Collect[μ4/.sol/.{ϵ10->2 ϵ5}/.{ϵ4->ϵ9}, {var1,var2 },Factor]

Collect[WK/.sol, {var1,var2 },Factor]

change={a00->-1,a10->0+ϵ7,a01->0+ϵ8,a20->1+ϵ1,a11->0+ϵ2,a02->0+ϵ3,b00->1,b10->1+ϵ9,b01->0+ϵ10,b20->0+ϵ4,b11->0+ϵ5,b02->0+ϵ6}/.{ϵ2->0,ϵ3->0,ϵ6->0}/.{ϵ8->0,ϵ1->ϵ7}/.{ϵ10->2 ϵ5}/.{ϵ4->ϵ9}/.{ϵ7->0,ϵ9->0}

comp

CSP[{},{WK,WK2,WL},{WM}];

CSP[{},{-WK},{WM,WK2}];

197 [ | , ∅ ];(1,2)E-H,[ | , ∅ ]

change={a00->0,a10->0,a01->1,a20->0,a11->0,a02->0,b00->0,b10->0,b01->0,b20->0,b11->-1/2,b02->0}

comp

CSP[{},{},{}]

change={a00->0,a10->0,a01->1,a20->0+ϵ1,a11->0+ϵ2,a02->0+ϵ3,b00->0,b10->0,b01->0,b20->0+ϵ4,b11->-1/2+ϵ5,b02->0+ϵ6}

comp

sol={ϵ4->0,ϵ1->0}

Factor[μ0/.sol]

Collect[μ1/.sol, {var1,var2 },Factor]

Collect[μ2/.sol, {var1,var2 },Factor]

Collect[μ3/.sol, {var1,var2 },Factor]

Collect[μ4/.sol, {var1,var2 },Factor]

Collect[η/.sol, {var1,var2 },Factor]

Collect[κ/.sol, {var1,var2 },Factor]

Solve[(κ/.sol)==0,ϵ3]

change={a00->0,a10->0,a01->1,a20->0+ϵ1,a11->0+ϵ2,a02->0+ϵ3,b00->0,b10->0,b01->0,b20->0+ϵ4,b11->-1/2+ϵ5,b02->0+ϵ6}/.{ϵ4->0,ϵ1->0}/.{ϵ3->((2 ϵ2 ϵ6)/(-1+2 ϵ5))}/.ϵ5->0/.ϵ6->0

comp

CSP[{},{η},{WK1}];

198 [ | , ∅ ];(1,1)SN,[ | , N ]

change={a00->0,a10->1,a01->0,a20->0,a11->0,a02->0,b00->0,b10->0,b01->0,b20->0,b11->-1/2,b02->0}

comp

CSP[{},{},{}]

change={a00->0,a10->1,a01->0,a20->0+ϵ1,a11->0+ϵ2,a02->0+ϵ3,b00->0,b10->0,b01->0,b20->0+ϵ4,b11->-1/2+ϵ5,b02->0+ϵ6}

comp

sol={ϵ6->0,ϵ3->0}

Factor[μ0/.sol]

Collect[μ1/.sol, {var1,var2 },Factor]

Collect[μ2/.sol, {var1,var2 },Factor]

Collect[μ3/.sol/.{ϵ10->2 ϵ5}, {var1,var2 },Factor]

Collect[μ4/.sol/.{ϵ10->2 ϵ5}/.{ϵ4->ϵ9}, {var1,var2 },Factor]

Collect[WK/.sol, {var1,var2 },Factor]

Collect[κ/.sol, {var1,var2 },Factor]

change={a00->0,a10->1,a01->0,a20->0+ϵ1,a11->0+ϵ2,a02->0+ϵ3,b00->0,b10->0,b01->0,b20->0+ϵ4,b11->-1/2+ϵ5,b02->0+ϵ6}/.{ϵ2->0,ϵ3->0,ϵ6->0,ϵ5->0,ϵ4->0}

comp

CSP[{},{WK,-WL},{WM}];

CSP[{},{-WK,WL},{WM}];

199 [ )(, ∅ ];[ )(, N,∅ ]

change={a00->0,a10->0,a01->0,a20->0,a11->0,a02->0,b00->cb,b10->0,b01->0,b20->0,b11->-1/2,b02->0}/.cb->1

comp

CSP[{},{},{}]

change={a00->0-2ϵ2,a10->0,a01->0,a20->0,a11->0+ϵ2,a02->0,b00->1,b10->0,b01->0,b20->0,b11->-1/2,b02->0}

comp

CSP[{},{η},{WL1}];

201 a,[ | , ∅ ]; [ |, (0,2)SN3]

change={a00->0,a10->cc,a01->0,a20->1,a11->0,a02->0,b00->0,b10->0,b01->0,b20->-1,b11->1/2,b02->0}/.cc->1

comp

CSP[{},{},{}]

change={a00->0,a10->1,a01->0,a20->1+ϵ1,a11->0+ϵ2,a02->0+ϵ3,b00->0,b10->0,b01->0,b20->-1+ϵ4,b11->(1/2)+ϵ5,b02->0+ϵ6}

comp

sol={ϵ6->0,ϵ3->0,ϵ2->0,ϵ5->0,ϵ4->0}

Factor[{μ0,μ1,μ2,μ3,μ4,η,WM,κ,WK,WL,WK2}/.sol]

change={a00->0,a10->1,a01->0,a20->1+ϵ1,a11->0+ϵ2,a02->0+ϵ3,b00->0,b10->0,b01->0,b20->-1+ϵ4,b11->(1/2)+ϵ5,b02->0+ϵ6}/.{ϵ6->0,ϵ3->0,ϵ2->0,ϵ5->0,ϵ4->0};comp

CSP[{},{WK,-WL},{WM}];

CSP[{},{WK,WL},{WM}];

CODIMENSION 7

192 [ ||c , ∅];N, [||c, ∅ ]

change={a00->ca,a10->0,a01->0,a20->1,a11->0,a02->0,b00->0,b10->0,b01->0,b20->0,b11->0,b02->0}/.ca->1

comp

CSP[{},{-WK2},{}]

change={a00->1,a10->0,a01->ϵ1,a20->1,a11->0,a02->0,b00->0,b10->0,b01->0,b20->0,b11->0,b02->0}

comp

CSP[{},{},{κ1}];

194 [ || , ∅];N, [||, ∅ ]

change={a00->ca,a10->0,a01->0,a20->1,a11->0,a02->0,b00->0,b10->0,b01->0,b20->0,b11->0,b02->0}/.ca->-1

comp

CSP[{},{WK2},{}]

change={a00->-1,a10->0,a01->ϵ1,a20->1,a11->0,a02->0,b00->0,b10->0,b01->0,b20->0,b11->0,b02->0}

comp

CSP[{},{},{κ1}];

195 [ | , ∅ ];[ | , (1,1) SN2 ]

change={a00->-cb,a10->0,a01->0,a20->1,a11->0,a02->0,b00->cb,b10->1,b01->0,b20->0,b11->0,b02->0}/.cb->0

eq1/.change

eq2/.change

comp

CSP[{},{},{}]

change={a00->-ϵ,a10->0+ϵ1,a01->0+ϵ2,a20->1,a11->0,a02->0,b00->ϵ,b10->1+ϵ3,b01->0+ϵ4,b20->0,b11->0,b02->0}

comp

sol={ϵ4->0,ϵ2->0,ϵ->0}

Factor[μ0/.sol]

Collect[μ1/.sol, {var1,var2 },Factor]

Collect[μ2/.sol, {var1,var2 },Factor]

Collect[μ3/.sol, {var1,var2 },Factor]

Collect[μ4/.sol, {var1,var2 },Factor]

Collect[WK2/.sol, {var1,var2 },Factor]

change={a00->-ϵ,a10->ϵ1,a01->ϵ2,a20->1,a11->0,a02->0,b00->ϵ,b10->1+ϵ3,b01->ϵ4,b20->0,b11->0,b02->0}/.sol/.ϵ3->0

eq1/.change

eq2/.change

comp

WK2

CSP[{},{WK2},{θ6}];

200 [ X, ∅ ];[ X, N,∅ ]

change={a00->0,a10->0,a01->0,a20->0,a11->0,a02->0,b00->cb,b10->0,b01->0,b20->0,b11->-1/2,b02->0}/.cb->0

eq1/.change

eq2/.change

comp

CSP[{},{},{}]

change={a00->0,a10->0,a01->0,a20->0,a11->0,a02->0,b00->ϵ2,b10->0,b01->0,b20->0,b11->-1/2,b02->0}

comp

CSP[{},{},{WL2}];

202 [ | , n^d ]; [ |, (0,2)SN2]

change={a00->0,a10->cc,a01->0,a20->1,a11->0,a02->0,b00->0,b10->0,b01->0,b20->-1,b11->1/2,b02->0}/.cc->0

eq1/.change

eq2/.change

comp

CSP[{},{},{}]

change={a00->0,a10->ϵ,a01->0,a20->1,a11->0,a02->0,b00->0,b10->0,b01->0,b20->-1,b11->(1/2),b02->0}

eq1/.change

eq2/.change

comp

CSP[{},{},{WK2}];

203 [ | , ∅ ];[ | , (1,2) E-H ] -->> [ | , ∅ ]; (1,2) E-H, [ | , ∅ ]

change={a00->ca,a10->1,a01->0,a20->0,a11->0,a02->0,b00->ca^2,b10->0,b01->0,b20->-1,b11->0,b02->0}

comp

CSP[{},{},{}]

Computations

eq1/.change

eq2/.change

Factor[eq2[[2]]/.change]

Expand[(ca-x[1][t]) (ca+x[1][t]+ϵ var2)]

change={a00->ca,a10->1,a01->ϵ,a20->0,a11->0,a02->0,b00->ca^2,b10->0,b01->ca ϵ,b20->-1,b11->-ϵ/2,b02->0}

Flatten[ChangeVarON[eq1[[2]] /. change, eq2[[2]] /. change, var1, var2, {{-dc ϵ, 0}, {dc, dc}}, {-(ca+df ϵ), df}, -1, x[2][t], y[2][t]]]/.df->-(1+2 ca ϵ)/ (ϵ^2)/.dc->-1/(ϵ^2)

ExtractCoeff1[%[[1]], %[[2]], x[2][t], y[2][t]]

change={a00->ca,a10->1,a01->0+ϵ,a20->0,a11->0,a02->0,b00->(ca^2),b10->0,b01->ϵ ca,b20->-1,b11->0-ϵ/2,b02->0}

comp

CSP[{},{},{WM}];

203 [ | , ∅ ];[ | , (1,2) E-H ] -->> [ | , ∅ ];(1,1)SN,[ | , N ]

change={a00->ca,a10->1,a01->0,a20->0,a11->0,a02->0,b00->ca^2,b10->0,b01->0,b20->-1,b11->0,b02->0}

comp

CSP[{},{},{}]

Computations

eq1/.change

eq2/.change

Factor[eq2[[2]]/.change]

Expand[(ca+x[1][t]) (ca-x[1][t]+ϵ var2)]

change={a00->ca,a10->1,a01->0,a20->0,a11->0,a02->0,b00->ca^2,b10->0,b01->ca ϵ,b20->-1,b11->ϵ/2,b02->0}

change={a00->ca,a10->1,a01->0,a20->0,a11->0,a02->0,b00->(ca^2),b10->0,b01->ca ϵ,b20->-1,b11->(ϵ/2),b02->0}

comp

CSP[{},{},{WM,WK1}];

204 [ U , ∅]; [U, N]

change={a00->0,a10->0,a01->0,a20->0,a11->0,a02->0,b00->cb,b10->0,b01->cf,b20->-1,b11->0,b02->0}/.{cb->1,cf->1}

comp

CSP[{},{},{}]

change={a00->0,a10->0,a01->0,a20->0,a11->0,a02->0,b00->1,b10->0,b01->1,b20->-1,b11->0+ϵ1,b02->0}

comp

CSP[{},{},{WM,WL2}];

207 a,[ | , ∅ ]; [ ∞,|, ∅3]

change={a00->0,a10->cc,a01->0,a20->1,a11->0,a02->0,b00->0,b10->0,b01->0,b20->0,b11->1/2,b02->0}/.cc->1

comp

WK

CSP[{},{},{}]

change={a00->0,a10->1,a01->0,a20->1+ϵ1,a11->0+ϵ2,a02->0+ϵ3,b00->0,b10->0,b01->0,b20->0+ϵ4,b11->(1/2)+ϵ5,b02->+ϵ6}

comp

sol={ϵ3->0,ϵ6->0,ϵ2->0,ϵ1->2 ϵ5}

Factor[{μ0,μ1,μ2,μ3,μ4,η,WM,WC2,κ,WK,WL,WK2}/.sol]

change={a00->0,a10->1,a01->0,a20->1+ϵ1,a11->0+ϵ2,a02->0+ϵ3,b00->0,b10->0,b01->0,b20->0+ϵ4,b11->(1/2)+ϵ5,b02->+ϵ6}/.{ϵ3->0,ϵ6->0,ϵ2->0,ϵ1->2 ϵ5}/.ϵ5->0;comp

CSP[{},{},{WC2,WK}];

CODIMENSION 8

196 [ |2 , ∅];N, [|2, ∅ ]

change={a00->ca,a10->0,a01->0,a20->1,a11->0,a02->0,b00->0,b10->0,b01->0,b20->0,b11->0,b02->0}/.ca->0

comp

CSP[{},{},{}]

change={a00->ϵ1,a10->0,a01->0,a20->1,a11->0,a02->0,b00->0,b10->0,b01->0,b20->0,b11->0,b02->0}

comp

CSP[{},{WK2},{}];

CSP[{},{-WK2},{}];

205 [ || , ∅]; [||, N]

change={a00->0,a10->0,a01->0,a20->0,a11->0,a02->0,b00->cb,b10->0,b01->cf,b20->-1,b11->0,b02->0}/.{cb->1,cf->0}

comp

CSP[{},{WL3},{}]

change={a00->0,a10->0,a01->0,a20->0,a11->0,a02->0,b00->1,b10->0,b01->+ϵ1,b20->-1,b11->0,b02->0}

comp

CSP[{},{},{WK3}];

208 [ | , n ]; [ ∞,|, ∅2]

change={a00->0,a10->cc,a01->0,a20->1,a11->0,a02->0,b00->0,b10->0,b01->0,b20->0,b11->1/2,b02->0}/.cc->0

comp

CSP[{},{},{}]

change={a00->0,a10->0+ϵ,a01->0,a20->1,a11->0,a02->0,b00->0,b10->0,b01->0,b20->0,b11->(1/2),b02->0}

comp

CSP[{},{},{WK2}];

CODIMENSION 9

206 [ |2 , ∅]; [|2, N]

change={a00->0,a10->0,a01->0,a20->0,a11->0,a02->0,b00->cb,b10->0,b01->cf,b20->-1,b11->0,b02->0}/.{cb->0,cf->0}

comp

CSP[{},{},{}]

change={a00->0,a10->0,a01->0,a20->0,a11->0,a02->0,b00->+ϵ1,b10->0,b01->0,b20->-1,b11->0,b02->0}

comp

CSP[{},{WL3},{}];

CSP[{},{-WL3},{}];

In the next block we make a "trip" from the highest codimension configuration to a codimension 0 configuration. At the end of the block we construct a systems depending on many perturbations so that setting them to zero, or sufficiently small parameters will have the different configurations of the “trip”

THE LONGEST TRIP

9 206 [ |2 , ∅]; [|2, N]  -->> 205 [ || , ∅]; [||, N]

chang={a00->0,a01->0,a02->0,a10->0,a11->0,a20->0,b00->cb,b01->cf,b02->0,b10->0,b11->0,b20->-1}/.{cb->0,cf->0}

eq1/.chang

eq2/.chang

change=chang

comp

Print[Column[{{"(Subscript[L, 3])=",Factor[WL3]},{"(Subscript[K, 3])=",Factor[WK3]},{"(Subscript[L, 2])=",Factor[WL2]},{"(Subscript[L, 1])=",Factor[WL1]},{"(Subscript[μ, 0])=",Factor[μ0]},{"ℝ=",Factor[ℝ]},{"𝕋=",Factor[𝕋]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"𝔻=",Factor[𝔻]}}]]

CSP[{},{},{}]

pert={a00->0,a01->0,a02->0,a10->0,a11->0,a20->0,b00->ϵ1,b01->0,b02->0,b10->0,b11->0,b20->0}

i=0;cha={};

Do[cha=Union[cha,{chang[[i,1]]->chang[[i,2]]+pert[[i,2]]}],{i,1,12}]

chang=cha

change=chang

eq1/.change

eq2/.change

comp

Print[Column[{{"(Subscript[L, 3])=",Factor[WL3]},{"(Subscript[K, 3])=",Factor[WK3]},{"(Subscript[L, 2])=",Factor[WL2]},{"(Subscript[L, 1])=",Factor[WL1]},{"(Subscript[μ, 0])=",Factor[μ0]},{"ℝ=",Factor[ℝ]},{"𝕋=",Factor[𝕋]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"𝔻=",Factor[𝔻]}}]]

CSP[{},{-WL3},{}]

CSP[{},{WL3},{}]

8 205 [ || , ∅]; [||, N]  -->> 204 [ U , ∅]; [U, N]

chang

pert={a00->0,a01->0,a02->0,a10->0,a11->0,a20->0,b00->0,b01->ϵ2,b02->0,b10->0,b11->0,b20->0}

i=0;cha={};

Do[cha=Union[cha,{chang[[i,1]]->chang[[i,2]]+pert[[i,2]]}],{i,1,12}]

chang=cha

relations={ϵ2->ϵ1^2}

change=chang/.relations

eq1/.change

eq2/.change

comp

Print[Column[{{"(Subscript[L, 3])=",Factor[WL3]},{"(Subscript[K, 3])=",Factor[WK3]},{"(Subscript[L, 2])=",Factor[WL2]},{"(Subscript[L, 1])=",Factor[WL1]},{"(Subscript[μ, 0])=",Factor[μ0]},{"ℝ=",Factor[ℝ]},{"𝕋=",Factor[𝕋]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"𝔻=",Factor[𝔻]}}]]

CSP[{},{},{WK3}];

7 204 [ U , ∅]; [U, N] -->> 199 [ )(, ∅ ];[ )(, N,∅ ]

chang

pert={a00->0,a01->0,a02->0,a10->0,a11->0,a20->0,b00->0,b01->0,b02->0,b10->0,b11->ϵ3,b20->0}

i=0;cha={};

Do[cha=Union[cha,{chang[[i,1]]->chang[[i,2]]+pert[[i,2]]}],{i,1,12}]

chang=cha

relations={ϵ2->ϵ1^2,ϵ3->ϵ1^3}

change=chang/.relations

eq1/.change

eq2/.change

comp

Print[Column[{{"(Subscript[L, 3])=",Factor[WL3]},{"(Subscript[K, 3])=",Factor[WK3]},{"(Subscript[L, 2])=",Factor[WL2]},{"(Subscript[L, 1])=",Factor[WL1]},{"(Subscript[μ, 0])=",Factor[μ0]},{"ℝ=",Factor[ℝ]},{"𝕋=",Factor[𝕋]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"𝔻=",Factor[𝔻]}}]]

CSP[{},{},{WK3,WL2}];

6 199 [ )(, ∅ ];[ )(, N,∅ ] -->> 181 [ )( , ∅ ];N,[ )( , ∅,∅ ]

chang

Flatten[ChangeVarON[eq1[[2]] /. chang, eq2[[2]] /. chang, var1, var2, {{-1/(2ϵ3), 0}, {-1/(4ϵ3^2),((-((ϵ2)^2)+4 ϵ1 ((ϵ3)^2))/(4 ((ϵ3)^2)))}}, {-((ϵ2)/(2 ϵ3)),-((ϵ2)/(2 ((ϵ3)^2)))}, 1, x[2][t], y[2][t]]]

chang=ExtractCoeff1[%[[1]], %[[2]], x[2][t], y[2][t]]

eq1/.chang

eq2/.chang

pert={a00->-2 ϵ4^2,a01->0,a02->0,a10->0,a11->ϵ4^2,a20->0,b00->0,b01->0,b02->0,b10->0,b11->0,b20->0}

i=0;cha={};

Do[cha=Union[cha,{chang[[i,1]]->chang[[i,2]]+pert[[i,2]]}],{i,1,12}]

chang=cha

relations={ϵ2->ϵ1^2,ϵ3->ϵ1^3}

change=chang/.relations

eq1/.change

eq2/.change

comp

Print[Column[{{"(Subscript[L, 3])=",Factor[WL3]},{"(Subscript[K, 3])=",Factor[WK3]},{"(Subscript[L, 2])=",Factor[WL2]},{"(Subscript[L, 1])=",Factor[WL1]},{"(Subscript[μ, 0])=",Factor[μ0]},{"ℝ=",Factor[ℝ]},{"𝕋=",Factor[𝕋]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"𝔻=",Factor[𝔻]}}]]

CSP[{},{η},{WL1}];

5 181 [ )( , ∅ ];N,[ )( , ∅,∅ ] -->>  (Subscript[(OverHat[sn]), (4)]);S,N,N

chang

eq1/.change

eq2/.change

Simplify[Flatten[ChangeVarON[eq1[[2]] /. chang, eq2[[2]] /. chang, var1, var2, {{-2  ϵ4^2 dd, 0}, {0, dd}}, {de,1/de},dt, x[2][t], y[2][t]]]]

Sort[ExtractCoeff1[%[[1]], %[[2]], x[2][t], y[2][t]]]

Solve[((2 dt ϵ4^2)/de)-de dt==0,de]

Simplify[Flatten[ChangeVarON[eq1[[2]] /. chang, eq2[[2]] /. chang, var1, var2, {{-2  ϵ4^2 dd, 0}, {0, dd}}, {de,1/de}/.de->(Sqrt[2]) ϵ4,dt, x[2][t], y[2][t]]]]

Sort[ExtractCoeff1[%[[1]], %[[2]], x[2][t], y[2][t]]]

Simplify[Flatten[ChangeVarON[eq1[[2]] /. chang, eq2[[2]] /. chang, var1, var2, {{-2  ϵ4^2 , 0}, {0, 1}}, {de,1/de}/.de->(Sqrt[2]) ϵ4,1, x[2][t], y[2][t]]]]

chang=Sort[ExtractCoeff1[%[[1]], %[[2]], x[2][t], y[2][t]]]

eq1/.chang

eq2/.chang

Simplify[Flatten[ChangeVarON[eq1[[2]] /. chang, eq2[[2]] /. chang, var1, var2, {{1 ,-1}, {1, 1}}, {0,0},1, x[2][t], y[2][t]]]]

chang=Sort[ExtractCoeff1[%[[1]], %[[2]], x[2][t], y[2][t]]]

eq1/.chang

eq2/.chang

change=chang

comp

Print[Column[{{"(Subscript[L, 3])=",Factor[WL3]},{"(Subscript[K, 3])=",Factor[WK3]},{"(Subscript[L, 2])=",Factor[WL2]},{"(Subscript[L, 1])=",Factor[WL1]},{"(Subscript[μ, 0])=",Factor[μ0]},{"ℝ=",Factor[ℝ]},{"𝕋=",Factor[𝕋]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"𝔻=",Factor[𝔻]}}]]

CSP[{},{-WL1},{WL1}]

pert={a00->0,a01->0,a02->0,a10->0,a11->0,a20->0,b00->0,b01->0,b02->ϵ5,b10->0,b11->0,b20->0}

i=0;cha={};

Do[cha=Union[cha,{chang[[i,1]]->chang[[i,2]]+pert[[i,2]]}],{i,1,12}]

chang=cha

relations={ϵ2->ϵ1^2,ϵ3->ϵ1^3,ϵ5->ϵ4^4}

change=Simplify[chang/.relations]

eq1/.change

eq2/.change

comp

Print[Column[{{"(Subscript[L, 3])=",Factor[WL3]},{"(Subscript[K, 3])=",Factor[WK3]},{"(Subscript[L, 2])=",Factor[WL2]},{"(Subscript[L, 1])=",Factor[WL1]},{"(Subscript[μ, 0])=",Factor[μ0]},{"ℝ=",Factor[ℝ]},{"𝕋=",Factor[𝕋]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"𝔻=",Factor[𝔻]}}]]

{μ0,μ1,μ2,μ3,μ4}

CSP[{},{η,θ1},{μ0,(OverTilde[D])}];

4  (Subscript[(OverHat[sn]), (4)]);S,N,N -->>  65 s,es;S,N,N

chang

pert={a00->0,a01->0,a02->0,a10->0,a11->0,a20->0,b00->0,b01->0,b02->0,b10->0,b11->ϵ6,b20->0}

i=0;cha={};

Do[cha=Union[cha,{chang[[i,1]]->chang[[i,2]]+pert[[i,2]]}],{i,1,12}]

chang=cha

relations={ϵ2->ϵ1^2,ϵ3->ϵ1^3,ϵ5->ϵ4^4}

change=Simplify[chang/.relations]

eq1/.change

eq2/.change

comp

Print[Column[{{"(Subscript[L, 3])=",Factor[WL3]},{"(Subscript[K, 3])=",Factor[WK3]},{"(Subscript[L, 2])=",Factor[WL2]},{"(Subscript[L, 1])=",Factor[WL1]},{"(Subscript[μ, 0])=",Factor[μ0]},{"ℝ=",Factor[ℝ]},{"𝕋=",Factor[𝕋]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"𝔻=",Factor[𝔻]}}]]

CSP[{},{μ0,η,θ1,-WE3},{μ0,ℝ,𝔗1}];

3 65 s,es;S,N,N -->> 42 s,a,cp;S,N,N

chang

eq1/.chang

eq2/.chang

pert={a00->0,a01->0,a02->0,a10->0,a11->0,a20->0,b00->0,b01->0,b02->0,b10->0,b11->0,b20->ϵ7}

i=0;cha={};

Do[cha=Union[cha,{chang[[i,1]]->chang[[i,2]]+pert[[i,2]]}],{i,1,12}]

chang=cha

relations={ϵ2->ϵ1^2,ϵ3->ϵ1^3,ϵ5->ϵ4^4,ϵ7->ϵ6^2}

change=Simplify[chang/.relations]

eq1/.change

eq2/.change

comp

Print[Column[{{"(Subscript[L, 3])=",Factor[WL3]},{"(Subscript[K, 3])=",Factor[WK3]},{"(Subscript[L, 2])=",Factor[WL2]},{"(Subscript[L, 1])=",Factor[WL1]},{"(Subscript[μ, 0])=",Factor[μ0]},{"ℝ=",Factor[ℝ]},{"𝕋=",Factor[𝕋]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"𝔻=",Factor[𝔻]}}]]

CSP[{},{μ0,-𝕋,WW2,η,θ},{μ0,𝕋,𝔗2}];

2 42 s,a,cp;S,N,N -->> 38 s,sn,a;S,N,N

chang

pert={a00->0,a01->0,a02->0,a10->ϵ8,a11->0,a20->0,b00->0,b01->0,b02->0,b10->0,b11->0,b20->0}

i=0;cha={};

Do[cha=Union[cha,{chang[[i,1]]->chang[[i,2]]+pert[[i,2]]}],{i,1,12}]

chang=cha

relations={ϵ2->ϵ1^2,ϵ3->ϵ1^3,ϵ5->ϵ4^4,ϵ7->ϵ6^2,ϵ8->ϵ6^3}

change=Simplify[chang/.relations/.ϵ6->((ϵ4)^5)]

eq1/.change

eq2/.change

comp

Print[Column[{{"(Subscript[L, 3])=",Factor[WL3]},{"(Subscript[K, 3])=",Factor[WK3]},{"(Subscript[L, 2])=",Factor[WL2]},{"(Subscript[L, 1])=",Factor[WL1]},{"(Subscript[μ, 0])=",Factor[μ0]},{"ℝ=",Factor[ℝ]},{"𝕋=",Factor[𝕋]},{"(Subscript[𝔗, 4])=",Factor[𝔗4]},{"𝔻=",Factor[𝔻]}}]]

CSP[{},{μ0,η},{μ0,𝕋}];

1 38 s,sn,a;S,N,N -->> 10 s,s,a,a;S,N,N

chang

eq1/.chang

eq2/.chang

pert={a00->0,a01->0,a02->0,a10->0,a11->0,a20->0,b00->0,b01->ϵ9,b02->0,b10->0,b11->0,b20->0}

i=0;cha={};

Do[cha=Union[cha,{chang[[i,1]]->chang[[i,2]]+pert[[i,2]]}],{i,1,12}]

chang=cha

relations={ϵ2->ϵ1^2,ϵ3->ϵ1^3,ϵ5->ϵ4^4,ϵ7->ϵ6^2,ϵ8->ϵ6^3,ϵ9->ϵ6^4}

change=Simplify[chang/.relations/.ϵ6->ϵ4^5]/.ϵ4->1/10

eq1/.change

eq2/.change

comp

CSP[{},{ℝ,𝕊},{}];

CSP[{},{μ0,η,-𝔻,ℝ,𝕊,WW4,WW2,WW1 WW3},{μ0,𝔻,𝔗4}];

Trip up

chang={a00->0,a01->1,a02->((ϵ4)/(Sqrt[2])),a10->ϵ8,a11->0,a20->-((ϵ4)/(Sqrt[2])),b00->0,b01->ϵ9,b02->ϵ5,b10->0,b11->ϵ6,b20->ϵ7}

Simplify[Flatten[ChangeVarNO[eq1[[2]] /. chang, eq2[[2]] /. chang, var1, var2, {{1 ,1}, {-1, 1}}, {0,0},1/2, x[2][t], y[2][t]]]]

chang=Sort[ExtractCoeff1[%[[1]], %[[2]], x[2][t], y[2][t]]]

Simplify[Flatten[ChangeVarNO[eq1[[2]] /. chang, eq2[[2]] /. chang, var1, var2, {{2 ϵ4^2 , 0}, {0, 1}}, {de,1/de}/.de->(Sqrt[2]) ϵ4,1/((Sqrt[2]) ϵ4), x[2][t], y[2][t]]]]

chang=Sort[ExtractCoeff1[%[[1]], %[[2]], x[2][t], y[2][t]]]

Flatten[ChangeVarNO[eq1[[2]] /. chang, eq2[[2]] /. chang, var1, var2, {{-1/(2ϵ3), 0}, {-1/(4ϵ3^2),((-((ϵ2)^2)+4 ϵ1 ((ϵ3)^2))/(4 ((ϵ3)^2)))}}, {-((ϵ2)/(2 ϵ3)),-((ϵ2)/(2 ((ϵ3)^2)))}, 1, x[2][t], y[2][t]]]

chang=ExtractCoeff1[%[[1]], %[[2]], x[2][t], y[2][t]]

Flatten[ChangeVarNO[eq1[[2]] /. chang, eq2[[2]] /. chang, var1, var2, {{1, 0}, {0,1}}, {0,0},1/( ((ϵ3)^2) (((((ϵ2)^2)-4 ϵ1 ((ϵ3)^2)))^2) ((ϵ4)^3)), x[2][t], y[2][t]]]

chang=ExtractCoeff1[%[[1]], %[[2]], x[2][t], y[2][t]]

chang=Simplify[chang]

Trip down

chang0=chang;

chang1=Simplify[chang/.{ϵ9->0}];

chang2=Simplify[chang/.{ϵ8->0,ϵ9->0}];

chang3=Simplify[chang/.{ϵ7->0,ϵ8->0,ϵ9->0}];

chang4=Simplify[chang/.{ϵ6->0,ϵ7->0,ϵ8->0,ϵ9->0}];

chang5=Factor[chang/.{ϵ5->0,ϵ6->0,ϵ7->0,ϵ8->0,ϵ9->0}]

chang5={a00->4 ϵ1 ((ϵ3)^3) (-((ϵ2)^2)+4 ϵ1 ((ϵ3)^2)) ((ϵ4)^5)/((ϵ4)^3),a10->0/((ϵ4)^3),a01->4 ϵ2 ((ϵ3)^3) (-((ϵ2)^2)+4 ϵ1 ((ϵ3)^2)) ((ϵ4)^5)/((ϵ4)^3),a20->-4 ((ϵ3)^3) (-((ϵ2)^2)+4 ϵ1 ((ϵ3)^2)) ((ϵ4)^5)/((ϵ4)^3),a11->4 ((ϵ3)^4) (-((ϵ2)^2)+4 ϵ1 ((ϵ3)^2)) ((ϵ4)^5)/((ϵ4)^3),a02->0/((ϵ4)^3),b00->ϵ1 ((ϵ3)^2) (-((ϵ2)^2)+4 ϵ1 ((ϵ3)^2)) ((ϵ4)^3) (-((ϵ2)^2)+4 ϵ1 ((ϵ3)^2)+2 ((ϵ4)^2))/((ϵ4)^3),b10->0/((ϵ4)^3),b01->ϵ2 ((ϵ3)^2) (-((ϵ2)^2)+4 ϵ1 ((ϵ3)^2)) ((ϵ4)^3) (-((ϵ2)^2)+4 ϵ1 ((ϵ3)^2)+2 ((ϵ4)^2))/((ϵ4)^3),b20->-((ϵ3)^2) (-((ϵ2)^2)+4 ϵ1 ((ϵ3)^2)) ((ϵ4)^3) (-((ϵ2)^2)+4 ϵ1 ((ϵ3)^2)+2 ((ϵ4)^2))/((ϵ4)^3),b11->((ϵ3)^3) (-((ϵ2)^2)+4 ϵ1 ((ϵ3)^2)) ((ϵ4)^3) (-((ϵ2)^2)+4 ϵ1 ((ϵ3)^2)+2 ((ϵ4)^2))/((ϵ4)^3),b02->0/((ϵ4)^3)}

chang6=Simplify[chang5/.{ϵ4->0}]

chang6=Simplify[{a00->0,a10->0,a01->0,a20->0,a11->0,a02->0,b00->ϵ1 (((((ϵ2)^2) ϵ3-4 ϵ1 ((ϵ3)^3)))^2)/((ϵ3)^2),b10->0,b01->ϵ2 ((ϵ3)^2) (((((ϵ2)^2)-4 ϵ1 ((ϵ3)^2)))^2)/((ϵ3)^2),b20->-(((((ϵ2)^2) ϵ3-4 ϵ1 ((ϵ3)^3)))^2)/((ϵ3)^2),b11->((ϵ3)^3) (((((ϵ2)^2)-4 ϵ1 ((ϵ3)^2)))^2)/((ϵ3)^2),b02->0}]

chang7=Simplify[chang6/.{ϵ3->0}]

chang7=Simplify[{a00->0,a10->0,a01->0,a20->0,a11->0,a02->0,b00->ϵ1 ((ϵ2)^4)/((ϵ2)^4),b10->0,b01->((ϵ2)^5)/((ϵ2)^4),b20->-((ϵ2)^4)/((ϵ2)^4),b11->0,b02->0}]

chang8=Simplify[chang7/.{ϵ2->0}]

chang9=Simplify[chang8/.{ϵ1->0}]

In the next block we check the conditions imposed to the quartic system in the Appendix

APPENDIX

We start by checking that the original system has a flat saddle at origin and an infinite star node

var1=x[1][t];var2=y[1][t];

eq1=(x[1])'[t]== ((x[1][t])^2)+ x[1][t]^4

eq2=(y[1])'[t]== 2((x[1][t])^2)+((y[1][t])^2)+ 2x[1][t]^4+ y[1][t]^4

Solve[{(eq1[[2]])==0,(eq2[[2]])==0},{var1,var2}]

(0, 0) is the only real finite singularity

CharDir[eq1[[2]],eq2[[2]],var1,var2]

x=0 is characteristic direction. Let us change x <->y

sys=Flatten[ChangeVarON[eq1[[2]], eq2[[2]], var1, var2, {{0, 1}, {1, 0}}, {0, 0}, 1, x[2][t], y[2][t]]]

var1=x[2][t];var2=y[2][t];eq1=D[var1,t]==sys[[1]]

eq2=D[var2,t]==sys[[2]]

We make a vertical blow-up

sys=Flatten[changeBL[eq1[[2]],eq2[[2]],var1,var2,1]]

var1=x[3][t];var2=y[3][t];eq1=D[var1,t]==sys[[1]];eq2=D[var2,t]==sys[[2]]

Solve[{(eq1[[2]])==0,(eq2[[2]])==0},{var1,var2}]

(0, 0) is the only real finite singularity

Jacob[eq1[[2]],eq2[[2]],var1,var2,{},{0,0}]

And it is a saddle. Undoing the blow-up we obtain that the original singularity was a flat saddle. Let us study now the infinite singularities:

var1=x[1][t];var2=y[1][t]

eq1=(x[1])'[t]== ((x[1][t])^2)+ x[1][t]^4

eq2=(y[1])'[t]== 2((x[1][t])^2)+((y[1][t])^2)+ 2x[1][t]^4+ y[1][t]^4

Flatten[changeU1[eq1[[2]] , eq2[[2]] , var1, var2]]

Solve[{(%[[1]])==0,(%[[2]]/.change)==0}/.z[0][t]->0,{w[0][t]}]

N[%]

There are no real singularities in local chart U1

sys=Flatten[changeU2[eq1[[2]] , eq2[[2]] , var1, var2]]

Solve[{(%[[1]])==0,(%[[2]]/.change)==0}/.z[0][t]->0,{w[0][t]}]

N[%]

The north pole is singular

Jacob[sys[[1]],sys[[2]],w[0][t],z[0][t],{},{0,0}]

And it is a star node

Now we take the perturbed system

var1=x[1][t];var2=y[1][t]

Now we take the perturbed system

eq1=(x[1])'[t]== ((x[1][t])^2)+ x[1][t]^4+(SubStar[ϵ])(y[1][t]^3+(Subscript[ϵ, in])x[1][t] y[1][t]+(Subscript[ϵ, 2])x[1][t]y[1][t]^2)+(Subscript[ϵ, d])x[1][t]y[1][t]^3/.{(Subscript[ϵ, 2])->((2 (Subscript[ϵ, in]^2)+(Subscript[ϵ, in]) (Subscript[ϵ, s])+2 (Subscript[ϵ, s]^2)-(Subscript[ϵ, in]^3) (SubStar[ϵ]))/((Subscript[ϵ, in]) (Subscript[ϵ, s])))}

eq2=(y[1])'[t]== (Subscript[ϵ, in])x[1][t]+(Subscript[ϵ, s])y[1][t]+2((x[1][t])^2)+((y[1][t])^2)+ 2x[1][t]^4+ y[1][t]^4

Expand[eq1[[2]]]

TeXForm[%/.{var1->x,var2->y}]

TeXForm[eq2[[2]]/.{var1->x,var2->y}]

CharDir[eq1[[2]],eq2[[2]]/.{(Subscript[ϵ, in])->0,(Subscript[ϵ, s])->0},var1,var2]

If (Subscript[ϵ, in]) =(Subscript[ϵ, s]) =0 , the origin continues being a flat saddle (claim), x=0 is characteristic direction. Let us change x <->y

sys=Flatten[ChangeVarON[eq1[[2]], eq2[[2]]/.{(Subscript[ϵ, in])->0,(Subscript[ϵ, s])->0}, var1, var2, {{0, 1}, {1, 0}}, {0, 0}, 1, x[2][t], y[2][t]]]

var1=x[2][t];var2=y[2][t];eq1=D[var1,t]==sys[[1]]

eq2=D[var2,t]==sys[[2]]

We make a vertical blow-up

sys=Flatten[changeBL[eq1[[2]],eq2[[2]],var1,var2,1]]

var1=x[3][t];var2=y[3][t];eq1=D[var1,t]==sys[[1]];eq2=D[var2,t]==sys[[2]]

eq1[[2]]/.var1->0

eq2[[2]]/.var1->0

Solve[%==0,var2]

(0, 0) is the only real finite singularity for (SubStar[ϵ]),(Subscript[ϵ, d]) small in the vertical axis

Simplify[Jacob[eq1[[2]],eq2[[2]],var1,var2,{},{0,0}]]

And it is a saddle. Undoing the blow-up we obtain that the original singularity was a flat saddle. Let us study now the infinite singularities:

var1=x[1][t];var2=y[1][t]

eq1=(x[1])'[t]== ((x[1][t])^2)+ x[1][t]^4+(SubStar[ϵ])(y[1][t]^3+(Subscript[ϵ, in])x[1][t] y[1][t]+(Subscript[ϵ, 2])x[1][t]y[1][t]^2)+(Subscript[ϵ, d])x[1][t]y[1][t]^3/.{(Subscript[ϵ, 2])->((2 (Subscript[ϵ, in]^2)+(Subscript[ϵ, in]) (Subscript[ϵ, s])+2 (Subscript[ϵ, s]^2)-(Subscript[ϵ, in]^3) (SubStar[ϵ]))/((Subscript[ϵ, in]) (Subscript[ϵ, s])))}

eq2=(y[1])'[t]== (Subscript[ϵ, in])x[1][t]+(Subscript[ϵ, s])y[1][t]+(Subscript[ϵ, s])y[1][t]+2((x[1][t])^2)+((y[1][t])^2)+ 2x[1][t]^4+ y[1][t]^4

Flatten[changeU1[eq1[[2]] , eq2[[2]] , var1, var2]]

Solve[{(%[[1]])==0,(%[[2]]/.change)==0}/.z[0][t]->0,{w[0][t]}]

N[%]

There are no real singularities in local chart U1

sys=Flatten[changeU2[eq1[[2]] , eq2[[2]] , var1, var2]]

Solve[{(%[[1]])==0,(%[[2]]/.change)==0}/.z[0][t]->0,{w[0][t]}]

N[%]

The north pole is singular

Jacob[sys[[1]],sys[[2]],w[0][t],z[0][t],{},{0,0}]

And it is an attactor node. If (Subscript[ϵ, d])=(SubStar[ϵ])=0 we have star node. If (Subscript[ϵ, d])=0 ≠(SubStar[ϵ]) we a have one-direction node. If (Subscript[ϵ, d])≠0 we have a generic node

Now we must consider (Subscript[ϵ, in])≠0 =(Subscript[ϵ, s])and study the nilpotent singularity at the origin

var1=x[1][t];var2=y[1][t]

eq1=(x[1])'[t]== ((x[1][t])^2)+ x[1][t]^4+(SubStar[ϵ])(y[1][t]^3+(Subscript[ϵ, in])x[1][t] y[1][t]+(Subscript[ϵ, 2])x[1][t]y[1][t]^2)+(Subscript[ϵ, d])x[1][t]y[1][t]^3/.{(Subscript[ϵ, 2])->((2 (Subscript[ϵ, in]^2)+(Subscript[ϵ, in]) (Subscript[ϵ, s])+2 (Subscript[ϵ, s]^2)-(Subscript[ϵ, in]^3) (SubStar[ϵ]))/((Subscript[ϵ, in]) (Subscript[ϵ, s])))}

eq2=(y[1])'[t]== (Subscript[ϵ, in])x[1][t]+(Subscript[ϵ, s])y[1][t]+2((x[1][t])^2)+((y[1][t])^2)+ 2x[1][t]^4+ y[1][t]^4/.(Subscript[ϵ, s])->0

sys=Flatten[ChangeVarON[eq1[[2]], eq2[[2]], var1, var2, {{0, 1}, {1, 0}}, {0, 0}, 1, x[2][t], y[2][t]]]

var1=x[2][t];var2=y[2][t];eq1=D[var1,t]==sys[[1]];eq2=D[var2,t]==sys[[2]]

i=2;f2=c2 var1^i

Coefficient[eq1[[2]]/.var2->f2,var1,i]

Flatten[Solve[%==0,c2]]

i=3;f3=(f2/.%)+c3 var1^i

Coefficient[eq1[[2]]/.var2->f3,var1,i]

Flatten[Solve[%==0,c3]]

i=4;f4=(f3/.%)+c4 var1^i

Coefficient[eq1[[2]]/.var2->f4,var1,i]

Flatten[Solve[%==0,c4]]

i=5;f5=(f4/.%)+c5 var1^i

Coefficient[eq1[[2]]/.var2->f5,var1,i]

Flatten[Solve[%==0,c5]]

i=6;f6=(f5/.%)+c6 var1^i

Coefficient[eq1[[2]]/.var2->f6,var1,i]

Flatten[Solve[%==0,c6]]

i=7;f7=(f6/.%)

Simplify[CoefficientList[eq2[[2]]/.var2->f7,var1]]

Simplify[CoefficientList[D[eq1[[2]],var1]+D[eq2[[2]],var2]/.var2->f7,var1]]

And clearly, applying Thm 3.5 from [DLA] we have that n=1, b=2+(Subscript[ϵ, in]) (SubStar[ϵ]), m=4  and a=((-2 (Subscript[ϵ, s]^2) (SubStar[ϵ])+(Subscript[ϵ, s]) (1-(Subscript[ϵ, in]) (SubStar[ϵ]))+(Subscript[ϵ, in]^2) (SubStar[ϵ]) (-2+(Subscript[ϵ, in]) (SubStar[ϵ])))/((Subscript[ϵ, in]^2) (Subscript[ϵ, s]))), and the origin is a nilpotent saddle-node which also implies multiplicity >=4

Now we must consider (Subscript[ϵ, s])≠0 and study the semi-elemental singularity at the origin

var1=x[1][t];var2=y[1][t]

Solve[((-2 (Subscript[ϵ, in]^3) (SubStar[ϵ])-(Subscript[ϵ, in]^2) (Subscript[ϵ, s]) (SubStar[ϵ])+(Subscript[ϵ, 2]) (Subscript[ϵ, in]^2) (Subscript[ϵ, s]) (SubStar[ϵ])-2 (Subscript[ϵ, in]) (Subscript[ϵ, s]^2) (SubStar[ϵ])+(Subscript[ϵ, in]^4) (Subscript[ϵ, *]^2))/(Subscript[ϵ, s]^3))==0,(Subscript[ϵ, 2])]

eq1=(x[1])'[t]== ((x[1][t])^2)+ x[1][t]^4+(SubStar[ϵ])(y[1][t]^3+(Subscript[ϵ, in])x[1][t] y[1][t]+(Subscript[ϵ, 2])x[1][t]y[1][t]^2)+(Subscript[ϵ, d])x[1][t]y[1][t]^3/.{(Subscript[ϵ, 2])->((2 (Subscript[ϵ, in]^2)+(Subscript[ϵ, in]) (Subscript[ϵ, s])+2 (Subscript[ϵ, s]^2)-(Subscript[ϵ, in]^3) (SubStar[ϵ]))/((Subscript[ϵ, in]) (Subscript[ϵ, s])))}

eq2=(y[1])'[t]== (Subscript[ϵ, in])x[1][t]+(Subscript[ϵ, s])y[1][t]+2((x[1][t])^2)+((y[1][t])^2)+ 2x[1][t]^4+ y[1][t]^4

Jacob[eq1[[2]],eq2[[2]],var1,var2,{},{0,0}]

We must first normalize the system to x' = P2, y' = y + Q2

Solve[da db (Subscript[ϵ, in]) x[2][t]+db dc (Subscript[ϵ, s]) x[2][t]==0,dc]

sys=Flatten[ChangeVarON[eq1[[2]], eq2[[2]], var1, var2, {{da,db}, {-((da (Subscript[ϵ, in]))/(Subscript[ϵ, s])),dd}}, {0, 0}, 1, x[2][t], y[2][t]]]

Simplify[Jacob[sys[[1]],sys[[2]],x[2][t], y[2][t],{},{0,0}]]

sys=Flatten[ChangeVarON[eq1[[2]], eq2[[2]], var1, var2, {{1,0}, {-((Subscript[ϵ, in])/(Subscript[ϵ, s])),1}}, {0, 0}, 1, x[2][t], y[2][t]]]

Simplify[Jacob[sys[[1]],sys[[2]],x[2][t], y[2][t],{},{0,0}]]

var1=x[2][t];var2=y[2][t];eq1=D[var1,t]==sys[[1]];eq2=D[var2,t]==sys[[2]]

i=2;f2=c2 var1^i

Coefficient[eq2[[2]]/.var2->f2,var1,i]

Flatten[Solve[%==0,c2]]

i=3;f3=(f2/.%)+c3 var1^i

Coefficient[eq1[[2]]/.var2->f3,var1,i]

c3->c3

i=4;f4=(f3/.%)+c4 var1^i

Simplify[Coefficient[eq1[[2]]/.var2->f4,var1,i]]

Flatten[Solve[%==0,c4]]

i=5;f5=(f4/.%)+c5 var1^i

Coefficient[eq1[[2]]/.var2->f5,var1,i]

Flatten[Solve[%==0,c5]]

i=6;f6=(f5/.%)+c6 var1^i

Coefficient[eq1[[2]]/.var2->f6,var1,i]

Flatten[Solve[%==0,c6]]

i=7;f7=(f6/.%)

CoefficientList[eq2[[2]]/.var2->f7,var1]

CoefficientList[D[eq1[[2]],var1]+D[eq2[[2]],var2]/.var2->f7,var1]

And clearly, applying Thm 3.5 from [DLA] we have that n=1, b=2+(Subscript[ϵ, in]) (SubStar[ϵ]), m=4  and a=(1/(Subscript[ϵ, in]^2)), and the origin is a nilpotent saddle-node which also implies multiplicity 4