plotting commands

> with(plots):

> heighthist:=piecewise(h<61,0,h<63,.05,h<65,.1,h<66,.2,h<67,.1,h<68,.05,h<71,.1,h<77,0,h<78,.05,0):

> hplot:=plot(heighthist,h=58..80,filled=true):

> gplot:=plot(heighthist,h=58..80,color=black):

> lplot:=plot({[61,t,t=0..0.05],[62,t,t=0..0.05],[63,t,t=0..0.1],[64,t,t=0..0.1],[65,t,t=0..0.2],[66,t,t=0..0.1],[67,t,t=0..0.05],[68,t,t=0..0.1],[69,t,t=0..0.1],[70,t,t=0..0.1],[71,t,t=0..0.1],[77,t,t=0..0.05],[78,t,t=0..0.05]},color=black):