h<-function(t){
    a=pi*t/24+pi
    return (20+ 19*sin(a))
}

t=seq(0,50,by=1)
h(t)

plot(t,h(t))


x<-function(t){
a=pi*t/24+pi
19*cos(a)
}

plot(x(t),h(t))