Sitzung S. 164

ExpectedVisits[ϵ_Real] := ((Subscript[p, E]) = (1/4) + ϵ; 
          (Subscript[p, W]) = (1/4) - ϵ; (Subscript[p, N]) = (Subscript[p, S]) = (1/4); 
          w = (Subscript[p, E]) (Subscript[p, W]); 
          z = (Subscript[p, N]) (Subscript[p, S]); 
s = (Subscript[p, old]) = 1; 
          (Subscript[p, new]) = 2 (w + z); k = 2; 
          While[s =!= (s += (Subscript[p, new])), 
            (Subscript[p, new]) = ((-4 (2 k - 1) (2 k - 3) (((w - z))^2) (Subscript[p, old]) + 2 (((2 k - 1))^2) (w + z) ((Subscript[p, old]) = (Subscript[p, new])))/((k++)^2))]; s);
\(\({Precision == #, \(ϵ\_*\) == \ \((ϵ /. 
                  FindRoot[
                    ExpectedVisits[ϵ] == 2, {ϵ, 0.06, 
                      0.07}, WorkingPrecision -> #, 
                    AccuracyGoal -> #])\)} &\) /@ {13, MachinePrecision, 
          19, 22, 25} // TableForm\)