configuration data of pyramid  Q10.1  p.259

nod = {{0, 0, 0}, {0, 230, 0}, {230, 230, 0}, {230, 0, 0}, {115, 115, 
          137}}; nd = Length[nod]

para = {e1 ->  {1, 2, 4}, e2 ->  {2, 3, 4}, 
          e3 ->  {1, 2, 5}, e4 ->  {2, 3, 5}, 
          e5 -> {3, 4, 5}, 
          e6 -> {4, 1, 5}};
ele = {e1, e2, e3, e4, e5, e6} /. para
ne = Length[ele]

dat = 
        Table[nod[[ele[[i, j]]]], {i, ne}, {j, 
            Length[ele[[i]]]}];

fm1 = AspectRatio ->  1;
fm2 = 
        PlotRange -> {{-300, 300}, {-300, 300}, {0, 
              150}};
Table[
      Graphics3D[Polygon[ dat[[i]]]], {i, 
        ne}]
Show[%, fm1, fm2]

rotation of pyramid

rz[Ωt_] := {{Cos[ψ], Sin[ψ], 
              0}, {-Sin[ψ], Cos[ψ], 0}, {0, 0, 
              1}} /. ψ -> Ωt;
MatrixForm[rz[Ωt]]

dspin[Ωt_] := 
      Table[Graphics3D[Polygon[ dat[[i]] . rz[Ωt]]], {i, 
          1, ne}]

Do[Show[dspin[Ωt °], fm1, 
        fm2], {Ωt, 0, 350, 10}]