Chapter 6, Section 6, Problem 3 (page 117-118)

MInvmatrix = (1/1000) {{28, 9}, {4, 
              37}};
MatrixForm[MInvmatrix]

S[x_, y_] := 
        MInvmatrix  .  {{5  (x^4) , 5  (y^4)}, {3  (x^2) (y^3), 
              3  (x^3) (y^2)}};

Simplify[1000 S[x, y]] // 
      MatrixForm

Plot[{(((280 (t^4) + 54 (t^5)))/1000), (((40 (t^4) + 222 (t^5)))/1000)}, {t, 0, 
          2.5}, 
PlotStyle -> {RGBColor[1, 0, 0], 
            RGBColor[0, 1, 0]}];