DisplayBigraph[g5521=GraphFromString["bwd1v1v1v1v1v1p1p1v1x0x0p0x1x0v1x0v1v1duals1v1v1v1x2x3v1v1"]]

SetDebugMode[True]

FindFusionRules[g5521,g5521]

Actually, the bad dimension functions are gauranteed by multiplicity free eigenvalues; no need to calculate fusion rules!

Eigensystem[GraphAdjacencyMatrix[g5521]]

FindDimensionFunctions[EvenPart[FindFusionRules[g5521,g5521][[1]]]]

DimensionFieldGenerator[EvenPart[g5521[[1]]]]

FormalCodegrees[g5521,g5521]

FormalCodegreesInDimensionFieldTest[g5521,g5521]