Plot[Piecewise[{{Sin[Pi*t/40], t <= 390}, {Sin[Pi*t/60], t >= 390}}], {t, 0, 800}]