Chapter 6, Section 6, Problem 2 (page 117)

fPrime = {{20, 20}, {-290, 310}};
1200  Inverse[fPrime] // MatrixForm

Nmatrix = (1/12000) {{310, -20}, {290, 
              20}};
MatrixForm[Nmatrix]

Sprime[x_, y_] := {{1, 0}, {0, 1}} - 
          Nmatrix  .  {{2 x, 2  y}, {y - 3  (x^2), 
                3  (y^2) + x}};

Sprime[10, 
      10]

SprimePlus = 
        Simplify[1200 Sprime[10 + X, 10 + Y]];

    MatrixForm[SprimePlus]

Expand[SprimePlus] // MatrixForm

182 + 2 + 2 + 58

62 + 2 + 2 + 178

((12 (t^2) + 244 t)/1200) // Expand