There are three parameters that map the vertical movements of the sample during the test; they are named: | “Actual.height” |“Vertical.Extension” |“Vertical.Displacement” |
|following figures show how these parameters are related together.



#### plot: “Actual.height” of the sample vs. “time”, all cycles of all groups

plot: “Actual.height” of sample vs. “time”, all cycles of one group

Group 7 is selected for a close up view

plot: “Actual.height” of sample vs. time, one cycles of one group

Other variables in data sheet:

“Vertical.Extension” & “Vertical.Displacement” & “Actual.height” vs. “Time”, Normalised to max.

“Vertical.Extension” & “Vertical.Displacement” vs. “Time”, Normalised , Adjusted for initial value

dd=d0[,c("Time","Horizontal.cycles","Vertical.Displacement","Vertical.Extension","Actual.height")]
colnames(dd)=c("t","cycl","disp","ext","h")
dd=subset(dd,cycl==64)

t0=dd[1,"t"]
h0=dd[1,"h"]
d0=dd[1,"disp"]
e0=dd[1,"ext"]

dd$t2=dd$t-t0
dd$d2=dd$disp-d0
dd$e2=dd$ext-e0
dd$h2=dd$h-h0

s=ggplot()+
 geom_point(data=dd,aes(t2,d2/max(d2), colour="disp"))+
 geom_point(data=dd, aes(t2,abs(e2)/max(abs(e2)), colour="ext"))+
 geom_point(data=dd, aes(t2,h2/max(h2), colour="Actual_height"),shape=4)
 
 s

  rm(s)