ERRATA for the book 
Discrete Dynamical Systems and Difference Equations with Mathematica
by M. Kulenovic and O. Merino

Last Updated on July 28, 2002

PAGE    LINE    IT SAYS                 IT SHOULD READ:

4       -13     x_{n+1}+ .... = r_n     x_{n+1} - .... = r
4       -10     (...) r_n               (...) r 
5         1     <<DiscreteMath'RSolve'  <<DiscreteMath`RSolve`
5        11     n,0,7]//Expand          {n,0,7}//Expand
5        15     n,0,14]//Expand         {n,0,14}//Expand
27        4       << Dynamica'            << Dynamica`
28      -5      Take[orb2,{50,60}];     Take[orb2,{50,60}]
31      -8      gamma^+ (0.1)           gamma^+ (0.1)
32      1       MapToDE[                DEToMap[
32      4       MapToDE[                DEToMap[
35      4       Orbit[q,0,3,1000];      Orbit[q,0.3,1000];
35      5       Multiplier[q,orb8]      Multiplier[q,Take[orb9,{997,1000}]]
37      -6      orb-fixedpoint          orb11-fixedpoint
39      5       Orbit[q,0,7,1000]       Orbit[q,0.7,1000]
39      6       Orbit[q,0,8,1000],      Orbit[q,0.7,20],
39      7       Orbit[q,1.7,20]         Orbit[q,0.8,20]
40      5       {p,2.5,4.1},{0.2},      {p,2.5,3.9},{0.2},
45      1       logismap[x]=3.8x(1-x);  p=3.8; 
46      -6      logismap[x]             logispmap[x]
46      -1      1.00014                 0.899657
47      1       BoxDimension[logismap,  BoxDimension[logispmap,
47      3       1.30105                 0.960842
137     -2      LynessMap[x,y]          LynessMap[{x,y}]
138     1       Solve[LynessMap[x,y]==x,y,x,y]
                                        Solve[LynessMap[{x,y}]=={x,y},{x,y}]
140     18      orb=Orbit[LynessMap,1.,2.,100];
                                        orb = Orbit[LynessMap,{1.,2.},100];
153     14      ... A x[n] + x[n-1]);   A x[n] + x[n-1];
153    -16      Solve[rationmap[x,y]==x,y,x,y]
                                        Solve[rationmap[{x,y}]=={x,y},{x,y}]
160     8       orb1 = Orbit[rationmap,2,2,400];
                                        orb1 = Orbit[rationmap,{2,2},400];
162     6       rationmapInv,...        rationinvmap,...
282     5       ... + p y_n             ... + p y_{n-2}
285     1       J = ...                 J2 = ...
285     -3      ... < 1 + B             ... < 1 - B
285     -1      B^2 + B + A B           B^2 - B + A B
286     2       0 <= A + 1              A < 1
286     3       0 < 2 B + 1 - A         0 < 2 B - 1 - A 
323    11      f1=Similarity[1/2,3/4,0,45]
                                       f1 = Similarity[1/2, {3/4, 0}, 45]    
323    12      f1[x,y]                 f1[{x,y}]
323    16      f2 = BiSimilarity[1/2, 1/4, 0, 0, 0];
                                       f2 = BiSimilarity[1/2, 1/4, {0, 0}, 0];
323    18      f2[x,y]                 f2[{x,y}]