$ResultsBase="../Book/Layout/Results/Chapter-09/Section-10/";
<<Universe-97/TimeNetworks.m
smwfb5=SMWNetworkR[smwfbrules[[5]],"ABAAB",10,{1},Complete->True,MaxLevel->10];
Save[$ResultsBase<>"smwfb5.m",smwfb5];
smwfb5=Get[$ResultsBase<>"smwfb5.m"];
smwfbrules={{"AB""BA","BBA""BAAB"},{"BBBB""B","ABA""BAAB"},{"AAA""ABAB","BA""AB","BBB""BAAB"},{"BBBB""BBBA","AAAB""A","ABA""BAAB"},{"BBA""ABA","AA""BAB"},{"BBBB""AA","ABA""BAAB"}};
Show[GraphicsColumn[{GraphicsRow[ListLabelWrapper[MapIndexed[SMWNetworkPictureR[#,"ABAAB",{28,10,10,32,10}[[First[#2]]],{If[First[#2]==5,2,1]},Complete->MemberQ[{2,3,5},First[#2]],MaxLevel->10,Arrows->True,ParallelSeparation->.2,Dip->0]&,Take[smwfbrules,5]],-.03]],LabelWrapper[DNPicture[smwfb5,Arrows->True,ParallelSeparation->.2,Dip->0],StyleForm["(f)",PrivateFontOptions{"OperatorSubstitution"False}],-.03]},.01]];
29
73
133
49
420
4393
