In[117]:=

g98To4aLastStep98To1Graph = ourShow[g98iteration[3], transProdApplyNTimesAtOneStep[m98, 1], Automatic, "g98^4(a) path; Last step = 98", 2, All, $DisplayFunction]

[Graphics:HTMLFiles/g98To4aLastStep98To1Graph_2.gif]

Out[117]=

-Graphics -

The length of the (whole) string above is as follows:

In[116]:=

98^4

Out[116]=

92236816


Converted by Mathematica  (June 30, 2003)