g1=GraphFromString["gbg1v1v1v1v1v1p1p1v1x0x0p0x1x0"];
g2=GraphFromString["gbg1v1v1v1v1v1p1p1v1x0x0p0x1x0v1x0"];
g3=GraphFromString["gbg1v1v1v1v1v1v1v1p1p1v1x0x0p0x1x0v1x0v1"];
g4=GradedBigraph[{{1}},{{1},{1}},{{1,1}}];

DisplayBigraph[g1]

DisplayBigraph[g2]

DisplayBigraph[g3]

DisplayBigraph[g4]

FindA[g1,q]

FindA[g2,q]

FindA[g3,q]

FindA[g4,q]

FindN[g1]

FindN[g2]

FindN[g3]

FindN[g4]

TimingTest[g1,94]

TimingTest[g2,51]

TimingTest[g3,47]

TimingTest[g4,75]