plot[t=0,s-5=0,s>=0,t>=0]t=0to2500