These Thurston maps are NET maps for every choice of translation term. They are primitive and have degree 13. PURE MODULAR GROUP HURWITZ EQUIVALENCE CLASSES FOR TRANSLATIONS {0,lambda2,lambda1+lambda2} {lambda1} These pure modular group Hurwitz classes each contain infinitely many Thurston equivalence classes. The number of pure modular group Hurwitz classes in this modular group Hurwitz class is 7. ALL THURSTON MULTIPLIERS c/d IN UNREDUCED FORM 0/1, 1/13, 1/1, 3/1, 7/1 EXCLUDED INTERVALS FOR THE HALF-SPACE COMPUTATION (-infinity,-0.013944) ( 0.013944, infinity) 1/0 is the slope of a Thurston obstruction with c = 3 and d = 1. These NET maps are not rational. SLOPE FUNCTION CYCLES FOUND NUMBER OF FIXED POINTS FOUND: 2 EQUATOR? FIXED POINTS c d 0 lambda1 lambda2 lambda1+lambda2 1/0 3 1 No No No No 0/1 1 13 Yes Yes No No NUMBER OF EQUATORS FOUND: 1 1 0 0 No nontrivial cycles were found. Here is the action of the slope function on an invariant set S of slopes. N/1 -> 3N/1 The set S contains infinitely many infinite slope function trajectory tails. The slope function maps some slope to the nonslope. If the slope function maps slope s to a slope s' and if the intersection pairing of s with 1/0 is n, then the intersection pairing of s' with 1/0 is at most n. The slope function orbit of every slope whose intersection pairing pairing with 1/0 is at most 50 either ends in the nonslope or ends in one of the slopes described above or it has an infinite tail in one of the infinite sets described above. FUNDAMENTAL GROUP WREATH RECURSIONS When the translation term of the affine map is 0: NewSphereMachine( "a=<1,b,b,1,1,1,1,1,1,1,1,1,b^-1>(2,13)(3,12)(4,11)(5,10)(6,9)(7,8)", "b=(1,13)(2,12)(3,11)(4,10)(5,9)(6,8)", "c=(1,13)(2,12)(3,11)(4,10)(5,9)(6,8)", "d=<1,c^-1,c^-1,c^-1,c^-1,c^-1,1,c,c,c,c,c,c>(2,13)(3,12)(4,11)(5,10)(6,9)(7,8)", "a*b*c*d"); When the translation term of the affine map is lambda1: NewSphereMachine( "a=(1,2)(3,13)(4,12)(5,11)(6,10)(7,9)", "b=<1,b,b,1,1,1,1,1,1,1,1,1,b^-1>(2,13)(3,12)(4,11)(5,10)(6,9)(7,8)", "c=<1,c^-1,c^-1,c^-1,c^-1,c^-1,1,c,c,c,c,c,c>(2,13)(3,12)(4,11)(5,10)(6,9)(7,8)", "d=<1,d,c^-1,c^-1,c^-1,c^-1,c^-1,1,c,c,c,c,c>(1,2)(3,13)(4,12)(5,11)(6,10)(7,9)", "a*b*c*d"); When the translation term of the affine map is lambda2: NewSphereMachine( "a=(1,12)(2,11)(3,10)(4,9)(5,8)(6,7)", "b=(1,13)(2,12)(3,11)(4,10)(5,9)(6,8)", "c=(1,13)(2,12)(3,11)(4,10)(5,9)(6,8)", "d=(1,12)(2,11)(3,10)(4,9)(5,8)(6,7)", "a*b*c*d"); When the translation term of the affine map is lambda1+lambda2: NewSphereMachine( "a=(1,13)(2,12)(3,11)(4,10)(5,9)(6,8)", "b=<1,c^-1,c^-1,c^-1,c^-1,c^-1,1,c,c,c,c,c,c>(2,13)(3,12)(4,11)(5,10)(6,9)(7,8)", "c=<1,b,b,1,1,1,1,1,1,1,1,1,b^-1>(2,13)(3,12)(4,11)(5,10)(6,9)(7,8)", "d=(1,13)(2,12)(3,11)(4,10)(5,9)(6,8)", "a*b*c*d");