\(\(\( (*\ 
      Solution\ Problem\ 7.12 . 
Set\ the\ values\ of\ the\ various\ parameters\ *) \)\(
\)\(\(w\  = \ 
        1;\)

    \(g\  = \ 9.8;\)

    \(h\  = \ 1;\)


    \(ParametricPlot[{t, \((g/\((2*w^2)\))\) \((Cosh[w\ t]\  - \ 
                Cos[w\ t])\)}, {t, \ 0, \ 
          10}, \ 
PlotRange -> {{0, 10}, {0, 
              10000}}, 
AxesLabel\  -> \ {"t (s)", "q (m)"}];\)


    \(ParametricPlot[{\((h*
                Cos[w\ t] + \((g/\((2*w^2)\))\) \((Cosh[w\ t]\  - \ 
                    Cos[w\ t])\) Sin[w\ t])\), \((h*
                Sin[w\ t] - \((g/\((2*w^2)\))\) \((Cosh[w\ t]\  - \ 
                    Cos[w\ t])\) Cos[w\ t])\)}, {t, \ 0, \ 
          10}, \ 
AxesLabel\  -> \ {"x (m)", "y (m)"}];\)\)\)\)