Pensieve header: All extraction graphs of all small-complexity classical braids.

SetDirectory@"C:\\drorbn\\AcademicPensieve\\Projects\\OU";
<< "OU-Programs.m"

g33=Echo[#->ExtractionGraph[#]]& /@ DeleteCases[AllBs[3,3], b_BR/;Length[b[[2]]]<3∨Length[Union[Abs/@b[[2]]]]<2];

g34=Echo[#->ExtractionGraph[#]]& /@ DeleteCases[AllBs[3,4], b_BR/;Length[b[[2]]]<4∨Length[Union[Abs/@b[[2]]]]<2];

g35=Echo[#->ExtractionGraph[#]]& /@ DeleteCases[AllBs[3,5], b_BR/;Length[b[[2]]]<5∨Length[Union[Abs/@b[[2]]]]<2];

g44=Echo[#->ExtractionGraph[#]]& /@ DeleteCases[AllBs[4,4], b_BR/;Length[b[[2]]]<4∨Length[Union[Abs/@b[[2]]]]<3];

g55=Echo[#->ExtractionGraph[#]]& /@ DeleteCases[AllBs[5,5], b_BR/;Length[b[[2]]]<5∨Length[Union[Abs/@b[[2]]]]<4];

BR[3,{2,-1,-1,-1,-1,-1}]//ExtractionGraph

BR[3,{-1,2,2,2,2,2,2,2,1}]//ExtractionGraph

BR[3,{-1,2,-1,2}]//ExtractionGraph

BR[3,{-1,2,2,2,2,2,-1,2}]//ExtractionGraph

BR[3,{1,2,1,2,1,2,1,2,1,2,1,2,1,2,1,2}]//ExtractionGraph

BR[3,{1,2,1,1,2,1,1,2,1,1,2,1}]//ExtractionGraph

BR[3,{-1,-2,-1,-1,-2,-1,-1,-2,-1,2,-1,-1,-1,-1,-1,-1,2}]//ExtractionGraph