code for figure

> curv:=plot(14*sin(2*Pi*(t-120)/360)+51,t=25..350,thickness=3,view=[25..350,25..80],xtickmarks=[30,120,210,300],ytickmarks=[37,51,65],axesfont=[TIMES,BOLD,16]):
line:=plot(51,t=25..350,thickness=3,linestyle=3,
color=black):
plots[display]({curv, line});