rendered paste bodyPlay[2 Piecewise[{{0,
0.0000000 < t < 5.9687500}, {If[
Abs[SawtoothWave[329.62799 t]] >
Abs[Sin[10 (t - 5.9687500)]],
f = Sin[41.203499 (t - 5.9687500)],
f = SquareWave[164.81400 t]],
5.9687500 < t < 6.3750000}, {If[
Abs[SawtoothWave[261.69800 t]] >
Abs[Sin[10 (t - 6.3750000)]],
f = Sin[32.712250 (t - 6.3750000)],
f = SquareWave[130.84900 t]],
6.3750000 < t < 6.7812500}, {If[
Abs[SawtoothWave[220.00000 t]] >
Abs[Sin[10 (t - 6.7812500)]],
f = Sin[27.500000 (t - 6.7812500)],
f = SquareWave[110.00000 t]],
6.7812500 < t < 7.1875000}, {If[
Abs[SawtoothWave[329.62799 t]] >
Abs[Sin[10 (t - 7.1875000)]],
f = Sin[41.203499 (t - 7.1875000)],
f = SquareWave[164.81400 t]],
7.1875000 < t < 7.8437500}, {If[
Abs[SawtoothWave[174.61400 t]] >
Abs[Sin[10 (t - 7.8437500)]],
f = Sin[21.826750 (t - 7.8437500)],
f = SquareWave[87.306999 t]],
7.8437500 < t < 7.9687500}, {If[
Abs[SawtoothWave[329.62799 t]] >
Abs[Sin[10 (t - 7.9687500)]],
f = Sin[41.203499 (t - 7.9687500)],
f = SquareWave[164.81400 t]],
7.9687500 < t < 8.3750000}, {If[
Abs[SawtoothWave[261.69800 t]] >
Abs[Sin[10 (t - 8.3750000)]],
f = Sin[32.712250 (t - 8.3750000)],
f = SquareWave[130.84900 t]],
8.3750000 < t < 8.7812500}, {If[
Abs[SawtoothWave[220.00000 t]] >
Abs[Sin[10 (t - 8.7812500)]],
f = Sin[27.500000 (t - 8.7812500)],
f = SquareWave[110.00000 t]],
8.7812500 < t < 9.1875000}, {If[
Abs[SawtoothWave[329.62799 t]] >
Abs[Sin[10 (t - 9.1875000)]],
f = Sin[41.203499 (t - 9.1875000)],
f = SquareWave[164.81400 t]],
9.1875000 < t < 9.8437500}, {If[
Abs[SawtoothWave[174.61400 t]] >
Abs[Sin[10 (t - 9.8437500)]],
f = Sin[21.826750 (t - 9.8437500)],
f = SquareWave[87.306999 t]],
9.8437500 < t < 9.9687500}, {If[
Abs[SawtoothWave[329.62799 t]] >
Abs[Sin[10 (t - 9.9687500)]],
f = Sin[41.203499 (t - 9.9687500)],
f = SquareWave[164.81400 t]],
9.9687500 < t < 10.375000}, {If[
Abs[SawtoothWave[261.69800 t]] >
Abs[Sin[10 (t - 10.375000)]],
f = Sin[32.712250 (t - 10.375000)],
f = SquareWave[130.84900 t]],
10.375000 < t < 10.781250}, {If[
Abs[SawtoothWave[220.00000 t]] >
Abs[Sin[10 (t - 10.781250)]],
f = Sin[27.500000 (t - 10.781250)],
f = SquareWave[110.00000 t]],
10.781250 < t < 11.187500}, {If[
Abs[SawtoothWave[329.62799 t]] >
Abs[Sin[10 (t - 11.187500)]],
f = Sin[41.203499 (t - 11.187500)],
f = SquareWave[164.81400 t]],
11.187500 < t < 11.843750}, {If[
Abs[SawtoothWave[174.61400 t]] >
Abs[Sin[10 (t - 11.843750)]],
f = Sin[21.826750 (t - 11.843750)],
f = SquareWave[87.306999 t]],
11.843750 < t < 11.968750}, {If[
Abs[SawtoothWave[329.62799 t]] >
Abs[Sin[10 (t - 11.968750)]],
f = Sin[41.203499 (t - 11.968750)],
f = SquareWave[164.81400 t]], 11.968750 < t < 12.093750}, {0,
12.093750 < t < 12.218750}, {If[
Abs[SawtoothWave[329.62799 t]] >
Abs[Sin[10 (t - 12.218750)]],
f = Sin[41.203499 (t - 12.218750)],
f = SquareWave[164.81400 t]], 12.218750 < t < 12.343750}, {0,
12.343750 < t < 12.468750}, {If[
Abs[SawtoothWave[329.62799 t]] >
Abs[Sin[10 (t - 12.468750)]],
f = Sin[41.203499 (t - 12.468750)],
f = SquareWave[164.81400 t]], 12.468750 < t < 12.593750}, {0,
12.593750 < t < 12.718750}, {If[
Abs[SawtoothWave[329.62799 t]] >
Abs[Sin[10 (t - 12.718750)]],
f = Sin[41.203499 (t - 12.718750)],
f = SquareWave[164.81400 t]], 12.718750 < t < 12.843750}, {0,
12.843750 < t < 12.968750}, {If[
Abs[SawtoothWave[329.62799 t]] >
Abs[Sin[10 (t - 12.968750)]],
f = Sin[41.203499 (t - 12.968750)],
f = SquareWave[164.81400 t]], 12.968750 < t < 13.093750}, {0,
13.093750 < t < 13.218750}, {If[
Abs[SawtoothWave[329.62799 t]] >
Abs[Sin[10 (t - 13.218750)]],
f = Sin[41.203499 (t - 13.218750)],
f = SquareWave[164.81400 t]], 13.218750 < t < 13.343750}, {0,
13.343750 < t < 13.468750}, {If[
Abs[SawtoothWave[329.62799 t]] >
Abs[Sin[10 (t - 13.468750)]],
f = Sin[41.203499 (t - 13.468750)],
f = SquareWave[164.81400 t]], 13.468750 < t < 13.593750}, {0,
13.593750 < t < 13.718750}, {If[
Abs[SawtoothWave[329.62799 t]] >
Abs[Sin[10 (t - 13.718750)]],
f = Sin[41.203499 (t - 13.718750)],
f = SquareWave[164.81400 t]], 13.718750 < t < 13.843750}, {0,
13.843750 < t < 13.968750}, {If[
Abs[SawtoothWave[220.00000 t]] >
Abs[Sin[10 (t - 13.968750)]],
f = Sin[27.500000 (t - 13.968750)],
f = SquareWave[110.00000 t]],
13.968750 < t < 14.375000}, {If[
Abs[SawtoothWave[261.69800 t]] >
Abs[Sin[10 (t - 14.375000)]],
f = Sin[32.712250 (t - 14.375000)],
f = SquareWave[130.84900 t]],
14.375000 < t < 14.781250}, {If[
Abs[SawtoothWave[329.62799 t]] >
Abs[Sin[10 (t - 14.781250)]],
f = Sin[41.203499 (t - 14.781250)],
f = SquareWave[164.81400 t]], 14.781250 < t < 15.718750}, {0,
15.718750 < t < 15.968750}, {If[
Abs[SawtoothWave[220.00000 t]] >
Abs[Sin[10 (t - 15.968750)]],
f = Sin[27.500000 (t - 15.968750)],
f = SquareWave[110.00000 t]],
15.968750 < t < 16.375000}, {If[
Abs[SawtoothWave[261.69800 t]] >
Abs[Sin[10 (t - 16.375000)]],
f = Sin[32.712250 (t - 16.375000)],
f = SquareWave[130.84900 t]],
16.375000 < t < 16.781250}, {If[
Abs[SawtoothWave[329.62799 t]] >
Abs[Sin[10 (t - 16.781250)]],
f = Sin[41.203499 (t - 16.781250)],
f = SquareWave[164.81400 t]], 16.781250 < t < 17.718750}, {0,
17.718750 < t < 17.968750}, {If[
Abs[SawtoothWave[220.00000 t]] >
Abs[Sin[10 (t - 17.968750)]],
f = Sin[27.500000 (t - 17.968750)],
f = SquareWave[110.00000 t]],
17.968750 < t < 18.375000}, {If[
Abs[SawtoothWave[261.69800 t]] >
Abs[Sin[10 (t - 18.375000)]],
f = Sin[32.712250 (t - 18.375000)],
f = SquareWave[130.84900 t]],
18.375000 < t < 18.781250}, {If[
Abs[SawtoothWave[329.62799 t]] >
Abs[Sin[10 (t - 18.781250)]],
f = Sin[41.203499 (t - 18.781250)],
f = SquareWave[164.81400 t]], 18.781250 < t < 19.968750}, {0,
19.968750 < t < 25.968750}, {If[
Abs[SawtoothWave[329.62799 t]] >
Abs[Sin[10 (t - 25.968750)]],
f = Sin[41.203499 (t - 25.968750)],
f = SquareWave[164.81400 t]],
25.968750 < t < 26.968750}, {If[
Abs[SawtoothWave[220.00000 t]] >
Abs[Sin[10 (t - 26.968750)]],
f = Sin[27.500000 (t - 26.968750)],
f = SquareWave[110.00000 t]],
26.968750 < t < 27.968750}, {If[
Abs[SawtoothWave[329.62799 t]] >
Abs[Sin[10 (t - 27.968750)]],
f = Sin[41.203499 (t - 27.968750)],
f = SquareWave[164.81400 t]],
27.968750 < t < 28.968750}, {If[
Abs[SawtoothWave[220.00000 t]] >
Abs[Sin[10 (t - 28.968750)]],
f = Sin[27.500000 (t - 28.968750)],
f = SquareWave[110.00000 t]],
28.968750 < t < 29.968750}, {If[
Abs[SawtoothWave[329.62799 t]] >
Abs[Sin[10 (t - 29.968750)]],
f = Sin[41.203499 (t - 29.968750)],
f = SquareWave[164.81400 t]],
29.968750 < t < 30.968750}, {If[
Abs[SawtoothWave[220.00000 t]] >
Abs[Sin[10 (t - 30.968750)]],
f = Sin[27.500000 (t - 30.968750)],
f = SquareWave[110.00000 t]],
30.968750 < t < 31.968750}, {If[
Abs[SawtoothWave[329.62799 t]] >
Abs[Sin[10 (t - 31.968750)]],
f = Sin[41.203499 (t - 31.968750)],
f = SquareWave[164.81400 t]],
31.968750 < t < 32.968750}, {If[
Abs[SawtoothWave[220.00000 t]] >
Abs[Sin[10 (t - 32.968750)]],
f = Sin[27.500000 (t - 32.968750)],
f = SquareWave[110.00000 t]],
32.968750 < t < 33.968750}, {If[
Abs[SawtoothWave[329.62799 t]] >
Abs[Sin[10 (t - 33.968750)]],
f = Sin[41.203499 (t - 33.968750)],
f = SquareWave[164.81400 t]],
33.968750 < t < 34.187500}, {If[
Abs[SawtoothWave[493.88300 t]] >
Abs[Sin[10 (t - 34.187500)]],
f = Sin[61.735374 (t - 34.187500)],
f = SquareWave[246.94150 t]],
34.187500 < t < 34.218750}, {If[
Abs[SawtoothWave[329.62799 t]] >
Abs[Sin[10 (t - 34.218750)]],
f = Sin[41.203499 (t - 34.218750)],
f = SquareWave[164.81400 t]],
34.218750 < t < 34.437500}, {If[
Abs[SawtoothWave[493.88300 t]] >
Abs[Sin[10 (t - 34.437500)]],
f = Sin[61.735374 (t - 34.437500)],
f = SquareWave[246.94150 t]],
34.437500 < t < 34.468750}, {If[
Abs[SawtoothWave[329.62799 t]] >
Abs[Sin[10 (t - 34.468750)]],
f = Sin[41.203499 (t - 34.468750)],
f = SquareWave[164.81400 t]],
34.468750 < t < 34.687500}, {If[
Abs[SawtoothWave[493.88300 t]] >
Abs[Sin[10 (t - 34.687500)]],
f = Sin[61.735374 (t - 34.687500)],
f = SquareWave[246.94150 t]],
34.687500 < t < 34.718750}, {If[
Abs[SawtoothWave[329.62799 t]] >
Abs[Sin[10 (t - 34.718750)]],
f = Sin[41.203499 (t - 34.718750)],
f = SquareWave[164.81400 t]],
34.718750 < t < 34.937500}, {If[
Abs[SawtoothWave[493.88300 t]] >
Abs[Sin[10 (t - 34.937500)]],
f = Sin[61.735374 (t - 34.937500)],
f = SquareWave[246.94150 t]],
34.937500 < t < 34.968750}, {If[
Abs[SawtoothWave[220.00000 t]] >
Abs[Sin[10 (t - 34.968750)]],
f = Sin[27.500000 (t - 34.968750)],
f = SquareWave[110.00000 t]],
34.968750 < t < 35.187500}, {If[
Abs[SawtoothWave[493.88300 t]] >
Abs[Sin[10 (t - 35.187500)]],
f = Sin[61.735374 (t - 35.187500)],
f = SquareWave[246.94150 t]],
35.187500 < t < 35.218750}, {If[
Abs[SawtoothWave[220.00000 t]] >
Abs[Sin[10 (t - 35.218750)]],
f = Sin[27.500000 (t - 35.218750)],
f = SquareWave[110.00000 t]],
35.218750 < t < 35.437500}, {If[
Abs[SawtoothWave[493.88300 t]] >
Abs[Sin[10 (t - 35.437500)]],
f = Sin[61.735374 (t - 35.437500)],
f = SquareWave[246.94150 t]],
35.437500 < t < 35.468750}, {If[
Abs[SawtoothWave[220.00000 t]] >
Abs[Sin[10 (t - 35.468750)]],
f = Sin[27.500000 (t - 35.468750)],
f = SquareWave[110.00000 t]],
35.468750 < t < 35.687500}, {If[
Abs[SawtoothWave[493.88300 t]] >
Abs[Sin[10 (t - 35.687500)]],
f = Sin[61.735374 (t - 35.687500)],
f = SquareWave[246.94150 t]],
35.687500 < t < 35.718750}, {If[
Abs[SawtoothWave[220.00000 t]] >
Abs[Sin[10 (t - 35.718750)]],
f = Sin[27.500000 (t - 35.718750)],
f = SquareWave[110.00000 t]],
35.718750 < t < 35.937500}, {If[
Abs[SawtoothWave[493.88300 t]] >
Abs[Sin[10 (t - 35.937500)]],
f = Sin[61.735374 (t - 35.937500)],
f = SquareWave[246.94150 t]], 35.937500 < t < 35.968750}, {0,
35.968750 < t < 43.968750}, {If[
Abs[SawtoothWave[329.62799 t]] >
Abs[Sin[10 (t - 43.968750)]],
f = Sin[41.203499 (t - 43.968750)],
f = SquareWave[164.81400 t]], 43.968750 < t < 44.500000}, {0,
44.500000 < t < 44.968750}, {If[
Abs[SawtoothWave[220.00000 t]] >
Abs[Sin[10 (t - 44.968750)]],
f = Sin[27.500000 (t - 44.968750)],
f = SquareWave[110.00000 t]],
44.968750 < t < 45.968750}, {If[
Abs[SawtoothWave[329.62799 t]] >
Abs[Sin[10 (t - 45.968750)]],
f = Sin[41.203499 (t - 45.968750)],
f = SquareWave[164.81400 t]], 45.968750 < t < 46.500000}, {0,
46.500000 < t < 46.968750}, {If[
Abs[SawtoothWave[220.00000 t]] >
Abs[Sin[10 (t - 46.968750)]],
f = Sin[27.500000 (t - 46.968750)],
f = SquareWave[110.00000 t]],
46.968750 < t < 47.968750}, {If[
Abs[SawtoothWave[329.62799 t]] >
Abs[Sin[10 (t - 47.968750)]],
f = Sin[41.203499 (t - 47.968750)],
f = SquareWave[164.81400 t]], 47.968750 < t < 48.500000}, {0,
48.500000 < t < 48.968750}, {If[
Abs[SawtoothWave[220.00000 t]] >
Abs[Sin[10 (t - 48.968750)]],
f = Sin[27.500000 (t - 48.968750)],
f = SquareWave[110.00000 t]],
48.968750 < t < 49.968750}, {If[
Abs[SawtoothWave[329.62799 t]] >
Abs[Sin[10 (t - 49.968750)]],
f = Sin[41.203499 (t - 49.968750)],
f = SquareWave[164.81400 t]], 49.968750 < t < 50.500000}, {0,
50.500000 < t < 50.968750}, {If[
Abs[SawtoothWave[220.00000 t]] >
Abs[Sin[10 (t - 50.968750)]],
f = Sin[27.500000 (t - 50.968750)],
f = SquareWave[110.00000 t]],
50.968750 < t < 51.968750}, {If[
Abs[SawtoothWave[329.62799 t]] >
Abs[Sin[10 (t - 51.968750)]],
f = Sin[41.203499 (t - 51.968750)],
f = SquareWave[164.81400 t]], 51.968750 < t < 52.500000}, {0,
52.500000 < t < 52.968750}, {If[
Abs[SawtoothWave[220.00000 t]] >
Abs[Sin[10 (t - 52.968750)]],
f = Sin[27.500000 (t - 52.968750)],
f = SquareWave[110.00000 t]], 52.968750 < t < 53.968750}, {0,
53.968750 < t < 64.031250}}] +
10 Piecewise[{{((1 -
Log[(5 - (t - 0.0000000))^(5 - (t - 0.0000000))])*
Sin[440 (5 - (t -
0.0000000)) + (5 - (t - 0.0000000))^2 SawtoothWave[
400/(5 - (t - 0.0000000)) Cos[
Sin[5 - (t - 0.0000000)]]]])/7.01859,
0.0000000 < t <
0.50000000}, {(((Log[8] - Log[t + 7 - 0.50000000])^20)*
SquareWave[
Sin[(t + 7 - 0.50000000)^2 SawtoothWave[
400/(t + 7 - 0.50000000) Cos[
Sin[5 - 2 Sqrt[(t + 7 - 0.50000000)]]]]] +
Cos[40 (t + 7 - 0.50000000)]])/(3.76468*10^(-18)),
0.50000000 < t <
0.75000000}, {((1 -
Log[(4 - (t - 0.75000000))^(4 - (t - 0.75000000))])*
Sin[440 (4 - (t -
0.75000000)) + (4 - (t -
0.75000000))^2 SawtoothWave[
400/(4 - (t - 0.75000000)) Cos[
Sin[4 - (t - 0.75000000)]]]])/7,
0.75000000 < t <
1.9687500}, {((1 -
Log[(5 - (t - 1.9687500))^(5 - (t - 1.9687500))])*
Sin[440 (5 - (t -
1.9687500)) + (5 - (t - 1.9687500))^2 SawtoothWave[
400/(5 - (t - 1.9687500)) Cos[
Sin[5 - (t - 1.9687500)]]]])/7.01859,
1.9687500 < t <
2.4687500}, {(((Log[8] - Log[t + 7 - 2.4687500])^20)*
SquareWave[
Sin[(t + 7 - 2.4687500)^2 SawtoothWave[
400/(t + 7 - 2.4687500) Cos[
Sin[5 - 2 Sqrt[(t + 7 - 2.4687500)]]]]] +
Cos[40 (t + 7 - 2.4687500)]])/(3.76468*10^(-18)),
2.4687500 < t <
2.7187500}, {((1 -
Log[(4 - (t - 2.7187500))^(4 - (t - 2.7187500))])*
Sin[440 (4 - (t -
2.7187500)) + (4 - (t - 2.7187500))^2 SawtoothWave[
400/(4 - (t - 2.7187500)) Cos[
Sin[4 - (t - 2.7187500)]]]])/7,
2.7187500 < t <
3.9687500}, {((1 -
Log[(5 - (t - 3.9687500))^(5 - (t - 3.9687500))])*
Sin[440 (5 - (t -
3.9687500)) + (5 - (t - 3.9687500))^2 SawtoothWave[
400/(5 - (t - 3.9687500)) Cos[
Sin[5 - (t - 3.9687500)]]]])/7.01859,
3.9687500 < t <
4.4687500}, {(((Log[8] - Log[t + 7 - 4.4687500])^20)*
SquareWave[
Sin[(t + 7 - 4.4687500)^2 SawtoothWave[
400/(t + 7 - 4.4687500) Cos[
Sin[5 - 2 Sqrt[(t + 7 - 4.4687500)]]]]] +
Cos[40 (t + 7 - 4.4687500)]])/(3.76468*10^(-18)),
4.4687500 < t <
4.7187500}, {((1 -
Log[(4 - (t - 4.7187500))^(4 - (t - 4.7187500))])*
Sin[440 (4 - (t -
4.7187500)) + (4 - (t - 4.7187500))^2 SawtoothWave[
400/(4 - (t - 4.7187500)) Cos[
Sin[4 - (t - 4.7187500)]]]])/7,
4.7187500 < t <
5.9687500}, {((1 -
Log[(5 - (t - 5.9687500))^(5 - (t - 5.9687500))])*
Sin[440 (5 - (t -
5.9687500)) + (5 - (t - 5.9687500))^2 SawtoothWave[
400/(5 - (t - 5.9687500)) Cos[
Sin[5 - (t - 5.9687500)]]]])/7.01859,
5.9687500 < t <
6.4687500}, {(((Log[8] - Log[t + 7 - 6.4687500])^20)*
SquareWave[
Sin[(t + 7 - 6.4687500)^2 SawtoothWave[
400/(t + 7 - 6.4687500) Cos[
Sin[5 - 2 Sqrt[(t + 7 - 6.4687500)]]]]] +
Cos[40 (t + 7 - 6.4687500)]])/(3.76468*10^(-18)),
6.4687500 < t <
6.7187500}, {((1 -
Log[(4 - (t - 6.7187500))^(4 - (t - 6.7187500))])*
Sin[440 (4 - (t -
6.7187500)) + (4 - (t - 6.7187500))^2 SawtoothWave[
400/(4 - (t - 6.7187500)) Cos[
Sin[4 - (t - 6.7187500)]]]])/7,
6.7187500 < t <
7.7187500}, {((1 - Log[(t - 7.7187500)^(t - 7.7187500)])*
Sin[440 (t - 7.7187500) SawtoothWave[
400/(t - 7.7187500)]])/1.21065,
7.7187500 < t <
7.9687500}, {((1 -
Log[(4 - (t - 7.9687500))^(4 - (t - 7.9687500))])*
Sin[440 (4 - (t -
7.9687500)) + (4 - (t - 7.9687500))^2 SawtoothWave[
400/(4 - (t - 7.9687500)) Cos[
Sin[4 - (t - 7.9687500)]]]])/7,
7.9687500 < t <
8.4687500}, {((1 - Log[(t - 8.4687500)^(t - 8.4687500)])*
Sin[440 (t - 8.4687500) SawtoothWave[
400/(t - 8.4687500)]])/1.21065,
8.4687500 < t <
8.5312500}, {(((Log[8] - Log[t + 7 - 8.5312500])^20)*
SquareWave[
Sin[(t + 7 - 8.5312500)^2 SawtoothWave[
400/(t + 7 - 8.5312500) Cos[
Sin[5 - 2 Sqrt[(t + 7 - 8.5312500)]]]]] +
Cos[40 (t + 7 - 8.5312500)]])/(3.76468*10^(-18)),
8.5312500 < t <
8.7187500}, {((1 -
Log[(4 - (t - 8.7187500))^(4 - (t - 8.7187500))])*
Sin[440 (4 - (t -
8.7187500)) + (4 - (t - 8.7187500))^2 SawtoothWave[
400/(4 - (t - 8.7187500)) Cos[
Sin[4 - (t - 8.7187500)]]]])/7,
8.7187500 < t < 9.9375000}, {0,
9.9375000 < t <
9.9687500}, {((1 -
Log[(4 - (t - 9.9687500))^(4 - (t - 9.9687500))])*
Sin[440 (4 - (t -
9.9687500)) + (4 - (t - 9.9687500))^2 SawtoothWave[
400/(4 - (t - 9.9687500)) Cos[
Sin[4 - (t - 9.9687500)]]]])/7,
9.9687500 < t <
10.468750}, {((1 - Log[(t - 10.468750)^(t - 10.468750)])*
Sin[440 (t - 10.468750) SawtoothWave[
400/(t - 10.468750)]])/1.21065,
10.468750 < t <
10.531250}, {(((Log[8] - Log[t + 7 - 10.531250])^20)*
SquareWave[
Sin[(t + 7 - 10.531250)^2 SawtoothWave[
400/(t + 7 - 10.531250) Cos[
Sin[5 - 2 Sqrt[(t + 7 - 10.531250)]]]]] +
Cos[40 (t + 7 - 10.531250)]])/(3.76468*10^(-18)),
10.531250 < t <
10.718750}, {((1 -
Log[(4 - (t - 10.718750))^(4 - (t - 10.718750))])*
Sin[440 (4 - (t -
10.718750)) + (4 - (t - 10.718750))^2 SawtoothWave[
400/(4 - (t - 10.718750)) Cos[
Sin[4 - (t - 10.718750)]]]])/7,
10.718750 < t <
11.625000}, {((1 - Log[(t - 11.625000)^(t - 11.625000)])*
Sin[440 (t - 11.625000) SawtoothWave[
400/(t - 11.625000)]])/1.21065,
11.625000 < t <
11.656250}, {((1 -
Log[(4 - (t - 11.656250))^(4 - (t - 11.656250))])*
Sin[440 (4 - (t -
11.656250)) + (4 - (t - 11.656250))^2 SawtoothWave[
400/(4 - (t - 11.656250)) Cos[
Sin[4 - (t - 11.656250)]]]])/7,
11.656250 < t <
11.718750}, {((1 - Log[(t - 11.718750)^(t - 11.718750)])*
Sin[440 (t - 11.718750) SawtoothWave[
400/(t - 11.718750)]])/1.21065,
11.718750 < t <
11.968750}, {((1 -
Log[(4 - (t - 11.968750))^(4 - (t - 11.968750))])*
Sin[440 (4 - (t -
11.968750)) + (4 - (t - 11.968750))^2 SawtoothWave[
400/(4 - (t - 11.968750)) Cos[
Sin[4 - (t - 11.968750)]]]])/7,
11.968750 < t <
12.468750}, {((1 - Log[(t - 12.468750)^(t - 12.468750)])*
Sin[440 (t - 12.468750) SawtoothWave[
400/(t - 12.468750)]])/1.21065,
12.468750 < t <
12.531250}, {(((Log[8] - Log[t + 7 - 12.531250])^20)*
SquareWave[
Sin[(t + 7 - 12.531250)^2 SawtoothWave[
400/(t + 7 - 12.531250) Cos[
Sin[5 - 2 Sqrt[(t + 7 - 12.531250)]]]]] +
Cos[40 (t + 7 - 12.531250)]])/(3.76468*10^(-18)),
12.531250 < t <
12.718750}, {((1 -
Log[(4 - (t - 12.718750))^(4 - (t - 12.718750))])*
Sin[440 (4 - (t -
12.718750)) + (4 - (t - 12.718750))^2 SawtoothWave[
400/(4 - (t - 12.718750)) Cos[
Sin[4 - (t - 12.718750)]]]])/7,
12.718750 < t <
13.968750}, {((1 -
Log[(5 - (t - 13.968750))^(5 - (t - 13.968750))])*
Sin[440 (5 - (t -
13.968750)) + (5 - (t - 13.968750))^2 SawtoothWave[
400/(5 - (t - 13.968750)) Cos[
Sin[5 - (t - 13.968750)]]]])/7.01859,
13.968750 < t <
14.468750}, {(((Log[8] - Log[t + 7 - 14.468750])^20)*
SquareWave[
Sin[(t + 7 - 14.468750)^2 SawtoothWave[
400/(t + 7 - 14.468750) Cos[
Sin[5 - 2 Sqrt[(t + 7 - 14.468750)]]]]] +
Cos[40 (t + 7 - 14.468750)]])/(3.76468*10^(-18)),
14.468750 < t < 14.531250}, {0,
14.531250 < t <
14.562500}, {(((Log[8] - Log[t + 7 - 14.562500])^20)*
SquareWave[
Sin[(t + 7 - 14.562500)^2 SawtoothWave[
400/(t + 7 - 14.562500) Cos[
Sin[5 - 2 Sqrt[(t + 7 - 14.562500)]]]]] +
Cos[40 (t + 7 - 14.562500)]])/(3.76468*10^(-18)),
14.562500 < t < 14.625000}, {0,
14.625000 < t <
14.656250}, {(((Log[8] - Log[t + 7 - 14.656250])^20)*
SquareWave[
Sin[(t + 7 - 14.656250)^2 SawtoothWave[
400/(t + 7 - 14.656250) Cos[
Sin[5 - 2 Sqrt[(t + 7 - 14.656250)]]]]] +
Cos[40 (t + 7 - 14.656250)]])/(3.76468*10^(-18)),
14.656250 < t <
14.718750}, {((1 -
Log[(5 - (t - 14.718750))^(5 - (t - 14.718750))])*
Sin[440 (5 - (t -
14.718750)) + (5 - (t - 14.718750))^2 SawtoothWave[
400/(5 - (t - 14.718750)) Cos[
Sin[5 - (t - 14.718750)]]]])/7.01859,
14.718750 < t <
14.750000}, {((1 -
Log[(4 - (t - 14.750000))^(4 - (t - 14.750000))])*
Sin[440 (4 - (t -
14.750000)) + (4 - (t - 14.750000))^2 SawtoothWave[
400/(4 - (t - 14.750000)) Cos[
Sin[4 - (t - 14.750000)]]]])/7,
14.750000 < t <
14.781250}, {((1 -
Log[(5 - (t - 14.781250))^(5 - (t - 14.781250))])*
Sin[440 (5 - (t -
14.781250)) + (5 - (t - 14.781250))^2 SawtoothWave[
400/(5 - (t - 14.781250)) Cos[
Sin[5 - (t - 14.781250)]]]])/7.01859,
14.781250 < t <
14.812500}, {((1 -
Log[(4 - (t - 14.812500))^(4 - (t - 14.812500))])*
Sin[440 (4 - (t -
14.812500)) + (4 - (t - 14.812500))^2 SawtoothWave[
400/(4 - (t - 14.812500)) Cos[
Sin[4 - (t - 14.812500)]]]])/7,
14.812500 < t <
14.843750}, {((1 -
Log[(5 - (t - 14.843750))^(5 - (t - 14.843750))])*
Sin[440 (5 - (t -
14.843750)) + (5 - (t - 14.843750))^2 SawtoothWave[
400/(5 - (t - 14.843750)) Cos[
Sin[5 - (t - 14.843750)]]]])/7.01859,
14.843750 < t <
14.875000}, {((1 -
Log[(4 - (t - 14.875000))^(4 - (t - 14.875000))])*
Sin[440 (4 - (t -
14.875000)) + (4 - (t - 14.875000))^2 SawtoothWave[
400/(4 - (t - 14.875000)) Cos[
Sin[4 - (t - 14.875000)]]]])/7,
14.875000 < t <
14.906250}, {((1 -
Log[(5 - (t - 14.906250))^(5 - (t - 14.906250))])*
Sin[440 (5 - (t -
14.906250)) + (5 - (t - 14.906250))^2 SawtoothWave[
400/(5 - (t - 14.906250)) Cos[
Sin[5 - (t - 14.906250)]]]])/7.01859,
14.906250 < t <
14.937500}, {((1 -
Log[(4 - (t - 14.937500))^(4 - (t - 14.937500))])*
Sin[440 (4 - (t -
14.937500)) + (4 - (t - 14.937500))^2 SawtoothWave[
400/(4 - (t - 14.937500)) Cos[
Sin[4 - (t - 14.937500)]]]])/7,
14.937500 < t <
14.968750}, {((1 -
Log[(5 - (t - 14.968750))^(5 - (t - 14.968750))])*
Sin[440 (5 - (t -
14.968750)) + (5 - (t - 14.968750))^2 SawtoothWave[
400/(5 - (t - 14.968750)) Cos[
Sin[5 - (t - 14.968750)]]]])/7.01859,
14.968750 < t <
15.000000}, {((1 -
Log[(4 - (t - 15.000000))^(4 - (t - 15.000000))])*
Sin[440 (4 - (t -
15.000000)) + (4 - (t - 15.000000))^2 SawtoothWave[
400/(4 - (t - 15.000000)) Cos[
Sin[4 - (t - 15.000000)]]]])/7,
15.000000 < t <
15.031250}, {((1 -
Log[(5 - (t - 15.031250))^(5 - (t - 15.031250))])*
Sin[440 (5 - (t -
15.031250)) + (5 - (t - 15.031250))^2 SawtoothWave[
400/(5 - (t - 15.031250)) Cos[
Sin[5 - (t - 15.031250)]]]])/7.01859,
15.031250 < t <
15.062500}, {((1 -
Log[(4 - (t - 15.062500))^(4 - (t - 15.062500))])*
Sin[440 (4 - (t -
15.062500)) + (4 - (t - 15.062500))^2 SawtoothWave[
400/(4 - (t - 15.062500)) Cos[
Sin[4 - (t - 15.062500)]]]])/7,
15.062500 < t <
15.093750}, {((1 -
Log[(5 - (t - 15.093750))^(5 - (t - 15.093750))])*
Sin[440 (5 - (t -
15.093750)) + (5 - (t - 15.093750))^2 SawtoothWave[
400/(5 - (t - 15.093750)) Cos[
Sin[5 - (t - 15.093750)]]]])/7.01859,
15.093750 < t <
15.125000}, {((1 -
Log[(4 - (t - 15.125000))^(4 - (t - 15.125000))])*
Sin[440 (4 - (t -
15.125000)) + (4 - (t - 15.125000))^2 SawtoothWave[
400/(4 - (t - 15.125000)) Cos[
Sin[4 - (t - 15.125000)]]]])/7,
15.125000 < t <
15.156250}, {((1 -
Log[(5 - (t - 15.156250))^(5 - (t - 15.156250))])*
Sin[440 (5 - (t -
15.156250)) + (5 - (t - 15.156250))^2 SawtoothWave[
400/(5 - (t - 15.156250)) Cos[
Sin[5 - (t - 15.156250)]]]])/7.01859,
15.156250 < t <
15.187500}, {((1 -
Log[(4 - (t - 15.187500))^(4 - (t - 15.187500))])*
Sin[440 (4 - (t -
15.187500)) + (4 - (t - 15.187500))^2 SawtoothWave[
400/(4 - (t - 15.187500)) Cos[
Sin[4 - (t - 15.187500)]]]])/7,
15.187500 < t <
15.218750}, {((1 -
Log[(5 - (t - 15.218750))^(5 - (t - 15.218750))])*
Sin[440 (5 - (t -
15.218750)) + (5 - (t - 15.218750))^2 SawtoothWave[
400/(5 - (t - 15.218750)) Cos[
Sin[5 - (t - 15.218750)]]]])/7.01859,
15.218750 < t <
15.250000}, {((1 -
Log[(4 - (t - 15.250000))^(4 - (t - 15.250000))])*
Sin[440 (4 - (t -
15.250000)) + (4 - (t - 15.250000))^2 SawtoothWave[
400/(4 - (t - 15.250000)) Cos[
Sin[4 - (t - 15.250000)]]]])/7,
15.250000 < t <
15.281250}, {((1 -
Log[(5 - (t - 15.281250))^(5 - (t - 15.281250))])*
Sin[440 (5 - (t -
15.281250)) + (5 - (t - 15.281250))^2 SawtoothWave[
400/(5 - (t - 15.281250)) Cos[
Sin[5 - (t - 15.281250)]]]])/7.01859,
15.281250 < t <
15.312500}, {((1 -
Log[(4 - (t - 15.312500))^(4 - (t - 15.312500))])*
Sin[440 (4 - (t -
15.312500)) + (4 - (t - 15.312500))^2 SawtoothWave[
400/(4 - (t - 15.312500)) Cos[
Sin[4 - (t - 15.312500)]]]])/7,
15.312500 < t <
15.343750}, {((1 -
Log[(5 - (t - 15.343750))^(5 - (t - 15.343750))])*
Sin[440 (5 - (t -
15.343750)) + (5 - (t - 15.343750))^2 SawtoothWave[
400/(5 - (t - 15.343750)) Cos[
Sin[5 - (t - 15.343750)]]]])/7.01859,
15.343750 < t <
15.375000}, {((1 -
Log[(4 - (t - 15.375000))^(4 - (t - 15.375000))])*
Sin[440 (4 - (t -
15.375000)) + (4 - (t - 15.375000))^2 SawtoothWave[
400/(4 - (t - 15.375000)) Cos[
Sin[4 - (t - 15.375000)]]]])/7,
15.375000 < t <
15.406250}, {((1 -
Log[(5 - (t - 15.406250))^(5 - (t - 15.406250))])*
Sin[440 (5 - (t -
15.406250)) + (5 - (t - 15.406250))^2 SawtoothWave[
400/(5 - (t - 15.406250)) Cos[
Sin[5 - (t - 15.406250)]]]])/7.01859,
15.406250 < t <
15.437500}, {((1 -
Log[(4 - (t - 15.437500))^(4 - (t - 15.437500))])*
Sin[440 (4 - (t -
15.437500)) + (4 - (t - 15.437500))^2 SawtoothWave[
400/(4 - (t - 15.437500)) Cos[
Sin[4 - (t - 15.437500)]]]])/7,
15.437500 < t <
15.468750}, {((1 -
Log[(5 - (t - 15.468750))^(5 - (t - 15.468750))])*
Sin[440 (5 - (t -
15.468750)) + (5 - (t - 15.468750))^2 SawtoothWave[
400/(5 - (t - 15.468750)) Cos[
Sin[5 - (t - 15.468750)]]]])/7.01859,
15.468750 < t <
15.500000}, {((1 -
Log[(4 - (t - 15.500000))^(4 - (t - 15.500000))])*
Sin[440 (4 - (t -
15.500000)) + (4 - (t - 15.500000))^2 SawtoothWave[
400/(4 - (t - 15.500000)) Cos[
Sin[4 - (t - 15.500000)]]]])/7,
15.500000 < t <
15.531250}, {((1 -
Log[(5 - (t - 15.531250))^(5 - (t - 15.531250))])*
Sin[440 (5 - (t -
15.531250)) + (5 - (t - 15.531250))^2 SawtoothWave[
400/(5 - (t - 15.531250)) Cos[
Sin[5 - (t - 15.531250)]]]])/7.01859,
15.531250 < t <
15.562500}, {((1 -
Log[(4 - (t - 15.562500))^(4 - (t - 15.562500))])*
Sin[440 (4 - (t -
15.562500)) + (4 - (t - 15.562500))^2 SawtoothWave[
400/(4 - (t - 15.562500)) Cos[
Sin[4 - (t - 15.562500)]]]])/7,
15.562500 < t <
15.593750}, {((1 -
Log[(5 - (t - 15.593750))^(5 - (t - 15.593750))])*
Sin[440 (5 - (t -
15.593750)) + (5 - (t - 15.593750))^2 SawtoothWave[
400/(5 - (t - 15.593750)) Cos[
Sin[5 - (t - 15.593750)]]]])/7.01859,
15.593750 < t <
15.625000}, {((1 -
Log[(4 - (t - 15.625000))^(4 - (t - 15.625000))])*
Sin[440 (4 - (t -
15.625000)) + (4 - (t - 15.625000))^2 SawtoothWave[
400/(4 - (t - 15.625000)) Cos[
Sin[4 - (t - 15.625000)]]]])/7,
15.625000 < t <
15.656250}, {((1 -
Log[(5 - (t - 15.656250))^(5 - (t - 15.656250))])*
Sin[440 (5 - (t -
15.656250)) + (5 - (t - 15.656250))^2 SawtoothWave[
400/(5 - (t - 15.656250)) Cos[
Sin[5 - (t - 15.656250)]]]])/7.01859,
15.656250 < t <
15.687500}, {((1 -
Log[(4 - (t - 15.687500))^(4 - (t - 15.687500))])*
Sin[440 (4 - (t -
15.687500)) + (4 - (t - 15.687500))^2 SawtoothWave[
400/(4 - (t - 15.687500)) Cos[
Sin[4 - (t - 15.687500)]]]])/7,
15.687500 < t <
15.718750}, {((1 - Log[(t - 15.718750)^(t - 15.718750)])*
Sin[440 (t - 15.718750) SawtoothWave[
400/(t - 15.718750)]])/1.21065,
15.718750 < t <
15.750000}, {((1 -
Log[(4 - (t - 15.750000))^(4 - (t - 15.750000))])*
Sin[440 (4 - (t -
15.750000)) + (4 - (t - 15.750000))^2 SawtoothWave[
400/(4 - (t - 15.750000)) Cos[
Sin[4 - (t - 15.750000)]]]])/7,
15.750000 < t <
15.781250}, {((1 - Log[(t - 15.781250)^(t - 15.781250)])*
Sin[440 (t - 15.781250) SawtoothWave[
400/(t - 15.781250)]])/1.21065,
15.781250 < t <
15.812500}, {((1 -
Log[(4 - (t - 15.812500))^(4 - (t - 15.812500))])*
Sin[440 (4 - (t -
15.812500)) + (4 - (t - 15.812500))^2 SawtoothWave[
400/(4 - (t - 15.812500)) Cos[
Sin[4 - (t - 15.812500)]]]])/7,
15.812500 < t <
15.843750}, {((1 - Log[(t - 15.843750)^(t - 15.843750)])*
Sin[440 (t - 15.843750) SawtoothWave[
400/(t - 15.843750)]])/1.21065,
15.843750 < t <
15.875000}, {((1 -
Log[(4 - (t - 15.875000))^(4 - (t - 15.875000))])*
Sin[440 (4 - (t -
15.875000)) + (4 - (t - 15.875000))^2 SawtoothWave[
400/(4 - (t - 15.875000)) Cos[
Sin[4 - (t - 15.875000)]]]])/7,
15.875000 < t <
15.906250}, {((1 - Log[(t - 15.906250)^(t - 15.906250)])*
Sin[440 (t - 15.906250) SawtoothWave[
400/(t - 15.906250)]])/1.21065,
15.906250 < t <
15.937500}, {((1 -
Log[(4 - (t - 15.937500))^(4 - (t - 15.937500))])*
Sin[440 (4 - (t -
15.937500)) + (4 - (t - 15.937500))^2 SawtoothWave[
400/(4 - (t - 15.937500)) Cos[
Sin[4 - (t - 15.937500)]]]])/7,
15.937500 < t <
15.968750}, {((1 -
Log[(5 - (t - 15.968750))^(5 - (t - 15.968750))])*
Sin[440 (5 - (t -
15.968750)) + (5 - (t - 15.968750))^2 SawtoothWave[
400/(5 - (t - 15.968750)) Cos[
Sin[5 - (t - 15.968750)]]]])/7.01859,
15.968750 < t <
16.468750}, {(((Log[8] - Log[t + 7 - 16.468750])^20)*
SquareWave[
Sin[(t + 7 - 16.468750)^2 SawtoothWave[
400/(t + 7 - 16.468750) Cos[
Sin[5 - 2 Sqrt[(t + 7 - 16.468750)]]]]] +
Cos[40 (t + 7 - 16.468750)]])/(3.76468*10^(-18)),
16.468750 < t <
16.718750}, {((1 -
Log[(4 - (t - 16.718750))^(4 - (t - 16.718750))])*
Sin[440 (4 - (t -
16.718750)) + (4 - (t - 16.718750))^2 SawtoothWave[
400/(4 - (t - 16.718750)) Cos[
Sin[4 - (t - 16.718750)]]]])/7,
16.718750 < t <
17.968750}, {((1 -
Log[(5 - (t - 17.968750))^(5 - (t - 17.968750))])*
Sin[440 (5 - (t -
17.968750)) + (5 - (t - 17.968750))^2 SawtoothWave[
400/(5 - (t - 17.968750)) Cos[
Sin[5 - (t - 17.968750)]]]])/7.01859,
17.968750 < t <
18.468750}, {(((Log[8] - Log[t + 7 - 18.468750])^20)*
SquareWave[
Sin[(t + 7 - 18.468750)^2 SawtoothWave[
400/(t + 7 - 18.468750) Cos[
Sin[5 - 2 Sqrt[(t + 7 - 18.468750)]]]]] +
Cos[40 (t + 7 - 18.468750)]])/(3.76468*10^(-18)),
18.468750 < t <
18.718750}, {((1 -
Log[(4 - (t - 18.718750))^(4 - (t - 18.718750))])*
Sin[440 (4 - (t -
18.718750)) + (4 - (t - 18.718750))^2 SawtoothWave[
400/(4 - (t - 18.718750)) Cos[
Sin[4 - (t - 18.718750)]]]])/7,
18.718750 < t <
19.718750}, {(((Log[8] - Log[(t + 7 - 19.718750)])^20)*
SquareWave[(t - 19.718750 +
7)^5 SquareWave[((t - 19.718750 + 7)^20 +
5 (t - 19.718750 + 7)) SawtoothWave[
400/(t - 19.718750 + 7) Cos[
Sin[5 - 7 Sqrt[t - 19.718750 + 7]]]]] +
Cos[200 (t - 19.718750 + 7)]])*3.40574*10^17,
19.718750 < t <
19.968750}, {((1 -
Log[(5 - (t - 19.968750))^(5 - (t - 19.968750))])*
Sin[440 (5 - (t -
19.968750)) + (5 - (t - 19.968750))^2 SawtoothWave[
400/(5 - (t - 19.968750)) Cos[
Sin[5 - (t - 19.968750)]]]])/7.01859,
19.968750 < t <
20.468750}, {(((Log[8] - Log[t + 7 - 20.468750])^20)*
SquareWave[
Sin[(t + 7 - 20.468750)^2 SawtoothWave[
400/(t + 7 - 20.468750) Cos[
Sin[5 - 2 Sqrt[(t + 7 - 20.468750)]]]]] +
Cos[40 (t + 7 - 20.468750)]])/(3.76468*10^(-18)),
20.468750 < t <
20.718750}, {((1 -
Log[(4 - (t - 20.718750))^(4 - (t - 20.718750))])*
Sin[440 (4 - (t -
20.718750)) + (4 - (t - 20.718750))^2 SawtoothWave[
400/(4 - (t - 20.718750)) Cos[
Sin[4 - (t - 20.718750)]]]])/7,
20.718750 < t <
21.718750}, {(((Log[8] - Log[(t + 7 - 21.718750)])^20)*
SquareWave[(t - 21.718750 +
7)^5 SquareWave[((t - 21.718750 + 7)^20 +
5 (t - 21.718750 + 7)) SawtoothWave[
400/(t - 21.718750 + 7) Cos[
Sin[5 - 7 Sqrt[t - 21.718750 + 7]]]]] +
Cos[200 (t - 21.718750 + 7)]])*3.40574*10^17,
21.718750 < t <
21.968750}, {((1 -
Log[(5 - (t - 21.968750))^(5 - (t - 21.968750))])*
Sin[440 (5 - (t -
21.968750)) + (5 - (t - 21.968750))^2 SawtoothWave[
400/(5 - (t - 21.968750)) Cos[
Sin[5 - (t - 21.968750)]]]])/7.01859,
21.968750 < t <
22.468750}, {(((Log[8] - Log[t + 7 - 22.468750])^20)*
SquareWave[
Sin[(t + 7 - 22.468750)^2 SawtoothWave[
400/(t + 7 - 22.468750) Cos[
Sin[5 - 2 Sqrt[(t + 7 - 22.468750)]]]]] +
Cos[40 (t + 7 - 22.468750)]])/(3.76468*10^(-18)),
22.468750 < t <
22.718750}, {((1 - Log[(t - 22.718750)^(t - 22.718750)])*
Sin[440 (t - 22.718750) SawtoothWave[
400/(t - 22.718750)]])/1.21065,
22.718750 < t <
23.968750}, {((1 -
Log[(5 - (t - 23.968750))^(5 - (t - 23.968750))])*
Sin[440 (5 - (t -
23.968750)) + (5 - (t - 23.968750))^2 SawtoothWave[
400/(5 - (t - 23.968750)) Cos[
Sin[5 - (t - 23.968750)]]]])/7.01859,
23.968750 < t <
24.468750}, {(((Log[8] - Log[t + 7 - 24.468750])^20)*
SquareWave[
Sin[(t + 7 - 24.468750)^2 SawtoothWave[
400/(t + 7 - 24.468750) Cos[
Sin[5 - 2 Sqrt[(t + 7 - 24.468750)]]]]] +
Cos[40 (t + 7 - 24.468750)]])/(3.76468*10^(-18)),
24.468750 < t <
24.718750}, {((1 -
Log[(4 - (t - 24.718750))^(4 - (t - 24.718750))])*
Sin[440 (4 - (t -
24.718750)) + (4 - (t - 24.718750))^2 SawtoothWave[
400/(4 - (t - 24.718750)) Cos[
Sin[4 - (t - 24.718750)]]]])/7,
24.718750 < t <
25.718750}, {(((Log[8] - Log[(t + 7 - 25.718750)])^20)*
SquareWave[(t - 25.718750 +
7)^5 SquareWave[((t - 25.718750 + 7)^20 +
5 (t - 25.718750 + 7)) SawtoothWave[
400/(t - 25.718750 + 7) Cos[
Sin[5 - 7 Sqrt[t - 25.718750 + 7]]]]] +
Cos[200 (t - 25.718750 + 7)]])*3.40574*10^17,
25.718750 < t <
25.968750}, {((1 -
Log[(5 - (t - 25.968750))^(5 - (t - 25.968750))])*
Sin[440 (5 - (t -
25.968750)) + (5 - (t - 25.968750))^2 SawtoothWave[
400/(5 - (t - 25.968750)) Cos[
Sin[5 - (t - 25.968750)]]]])/7.01859,
25.968750 < t <
26.468750}, {(((Log[8] - Log[t + 7 - 26.468750])^20)*
SquareWave[
Sin[(t + 7 - 26.468750)^2 SawtoothWave[
400/(t + 7 - 26.468750) Cos[
Sin[5 - 2 Sqrt[(t + 7 - 26.468750)]]]]] +
Cos[40 (t + 7 - 26.468750)]])/(3.76468*10^(-18)),
26.468750 < t <
26.718750}, {((1 -
Log[(4 - (t - 26.718750))^(4 - (t - 26.718750))])*
Sin[440 (4 - (t -
26.718750)) + (4 - (t - 26.718750))^2 SawtoothWave[
400/(4 - (t - 26.718750)) Cos[
Sin[4 - (t - 26.718750)]]]])/7,
26.718750 < t <
27.718750}, {(((Log[8] - Log[(t + 7 - 27.718750)])^20)*
SquareWave[(t - 27.718750 +
7)^5 SquareWave[((t - 27.718750 + 7)^20 +
5 (t - 27.718750 + 7)) SawtoothWave[
400/(t - 27.718750 + 7) Cos[
Sin[5 - 7 Sqrt[t - 27.718750 + 7]]]]] +
Cos[200 (t - 27.718750 + 7)]])*3.40574*10^17,
27.718750 < t <
27.968750}, {((1 -
Log[(5 - (t - 27.968750))^(5 - (t - 27.968750))])*
Sin[440 (5 - (t -
27.968750)) + (5 - (t - 27.968750))^2 SawtoothWave[
400/(5 - (t - 27.968750)) Cos[
Sin[5 - (t - 27.968750)]]]])/7.01859,
27.968750 < t <
28.468750}, {(((Log[8] - Log[t + 7 - 28.468750])^20)*
SquareWave[
Sin[(t + 7 - 28.468750)^2 SawtoothWave[
400/(t + 7 - 28.468750) Cos[
Sin[5 - 2 Sqrt[(t + 7 - 28.468750)]]]]] +
Cos[40 (t + 7 - 28.468750)]])/(3.76468*10^(-18)),
28.468750 < t <
28.718750}, {((1 -
Log[(4 - (t - 28.718750))^(4 - (t - 28.718750))])*
Sin[440 (4 - (t -
28.718750)) + (4 - (t - 28.718750))^2 SawtoothWave[
400/(4 - (t - 28.718750)) Cos[
Sin[4 - (t - 28.718750)]]]])/7,
28.718750 < t <
29.718750}, {(((Log[8] - Log[(t + 7 - 29.718750)])^20)*
SquareWave[(t - 29.718750 +
7)^5 SquareWave[((t - 29.718750 + 7)^20 +
5 (t - 29.718750 + 7)) SawtoothWave[
400/(t - 29.718750 + 7) Cos[
Sin[5 - 7 Sqrt[t - 29.718750 + 7]]]]] +
Cos[200 (t - 29.718750 + 7)]])*3.40574*10^17,
29.718750 < t <
29.968750}, {((1 -
Log[(4 - (t - 29.968750))^(4 - (t - 29.968750))])*
Sin[440 (4 - (t -
29.968750)) + (4 - (t - 29.968750))^2 SawtoothWave[
400/(4 - (t - 29.968750)) Cos[
Sin[4 - (t - 29.968750)]]]])/7,
29.968750 < t <
30.468750}, {(((Log[8] - Log[t + 7 - 30.468750])^20)*
SquareWave[
Sin[(t + 7 - 30.468750)^2 SawtoothWave[
400/(t + 7 - 30.468750) Cos[
Sin[5 - 2 Sqrt[(t + 7 - 30.468750)]]]]] +
Cos[40 (t + 7 - 30.468750)]])/(3.76468*10^(-18)),
30.468750 < t <
30.718750}, {((1 -
Log[(4 - (t - 30.718750))^(4 - (t - 30.718750))])*
Sin[440 (4 - (t -
30.718750)) + (4 - (t - 30.718750))^2 SawtoothWave[
400/(4 - (t - 30.718750)) Cos[
Sin[4 - (t - 30.718750)]]]])/7,
30.718750 < t <
31.718750}, {(((Log[8] - Log[(t + 7 - 31.718750)])^20)*
SquareWave[(t - 31.718750 +
7)^5 SquareWave[((t - 31.718750 + 7)^20 +
5 (t - 31.718750 + 7)) SawtoothWave[
400/(t - 31.718750 + 7) Cos[
Sin[5 - 7 Sqrt[t - 31.718750 + 7]]]]] +
Cos[200 (t - 31.718750 + 7)]])*3.40574*10^17,
31.718750 < t <
31.968750}, {((1 -
Log[(5 - (t - 31.968750))^(5 - (t - 31.968750))])*
Sin[440 (5 - (t -
31.968750)) + (5 - (t - 31.968750))^2 SawtoothWave[
400/(5 - (t - 31.968750)) Cos[
Sin[5 - (t - 31.968750)]]]])/7.01859,
31.968750 < t <
32.468750}, {(((Log[8] - Log[t + 7 - 32.468750])^20)*
SquareWave[
Sin[(t + 7 - 32.468750)^2 SawtoothWave[
400/(t + 7 - 32.468750) Cos[
Sin[5 - 2 Sqrt[(t + 7 - 32.468750)]]]]] +
Cos[40 (t + 7 - 32.468750)]])/(3.76468*10^(-18)),
32.468750 < t <
32.718750}, {((1 -
Log[(4 - (t - 32.718750))^(4 - (t - 32.718750))])*
Sin[440 (4 - (t -
32.718750)) + (4 - (t - 32.718750))^2 SawtoothWave[
400/(4 - (t - 32.718750)) Cos[
Sin[4 - (t - 32.718750)]]]])/7,
32.718750 < t <
33.968750}, {((1 -
Log[(5 - (t - 33.968750))^(5 - (t - 33.968750))])*
Sin[440 (5 - (t -
33.968750)) + (5 - (t - 33.968750))^2 SawtoothWave[
400/(5 - (t - 33.968750)) Cos[
Sin[5 - (t - 33.968750)]]]])/7.01859,
33.968750 < t <
34.468750}, {(((Log[8] - Log[(t + 7 - 34.468750)])^20)*
SquareWave[(t - 34.468750 +
7)^5 SquareWave[((t - 34.468750 + 7)^20 +
5 (t - 34.468750 + 7)) SawtoothWave[
400/(t - 34.468750 + 7) Cos[
Sin[5 - 7 Sqrt[t - 34.468750 + 7]]]]] +
Cos[200 (t - 34.468750 + 7)]])*3.40574*10^17,
34.468750 < t <
34.500000}, {(((Log[8] - Log[t + 7 - 34.500000])^20)*
SquareWave[
Sin[(t + 7 - 34.500000)^2 SawtoothWave[
400/(t + 7 - 34.500000) Cos[
Sin[5 - 2 Sqrt[(t + 7 - 34.500000)]]]]] +
Cos[40 (t + 7 - 34.500000)]])/(3.76468*10^(-18)),
34.500000 < t <
34.531250}, {(((Log[8] - Log[(t + 7 - 34.531250)])^20)*
SquareWave[(t - 34.531250 +
7)^5 SquareWave[((t - 34.531250 + 7)^20 +
5 (t - 34.531250 + 7)) SawtoothWave[
400/(t - 34.531250 + 7) Cos[
Sin[5 - 7 Sqrt[t - 34.531250 + 7]]]]] +
Cos[200 (t - 34.531250 + 7)]])*3.40574*10^17,
34.531250 < t <
34.562500}, {(((Log[8] - Log[t + 7 - 34.562500])^20)*
SquareWave[
Sin[(t + 7 - 34.562500)^2 SawtoothWave[
400/(t + 7 - 34.562500) Cos[
Sin[5 - 2 Sqrt[(t + 7 - 34.562500)]]]]] +
Cos[40 (t + 7 - 34.562500)]])/(3.76468*10^(-18)),
34.562500 < t <
34.593750}, {(((Log[8] - Log[(t + 7 - 34.593750)])^20)*
SquareWave[(t - 34.593750 +
7)^5 SquareWave[((t - 34.593750 + 7)^20 +
5 (t - 34.593750 + 7)) SawtoothWave[
400/(t - 34.593750 + 7) Cos[
Sin[5 - 7 Sqrt[t - 34.593750 + 7]]]]] +
Cos[200 (t - 34.593750 + 7)]])*3.40574*10^17,
34.593750 < t <
34.625000}, {(((Log[8] - Log[t + 7 - 34.625000])^20)*
SquareWave[
Sin[(t + 7 - 34.625000)^2 SawtoothWave[
400/(t + 7 - 34.625000) Cos[
Sin[5 - 2 Sqrt[(t + 7 - 34.625000)]]]]] +
Cos[40 (t + 7 - 34.625000)]])/(3.76468*10^(-18)),
34.625000 < t <
34.656250}, {(((Log[8] - Log[(t + 7 - 34.656250)])^20)*
SquareWave[(t - 34.656250 +
7)^5 SquareWave[((t - 34.656250 + 7)^20 +
5 (t - 34.656250 + 7)) SawtoothWave[
400/(t - 34.656250 + 7) Cos[
Sin[5 - 7 Sqrt[t - 34.656250 + 7]]]]] +
Cos[200 (t - 34.656250 + 7)]])*3.40574*10^17,
34.656250 < t <
34.687500}, {(((Log[8] - Log[t + 7 - 34.687500])^20)*
SquareWave[
Sin[(t + 7 - 34.687500)^2 SawtoothWave[
400/(t + 7 - 34.687500) Cos[
Sin[5 - 2 Sqrt[(t + 7 - 34.687500)]]]]] +
Cos[40 (t + 7 - 34.687500)]])/(3.76468*10^(-18)),
34.687500 < t <
34.718750}, {(((Log[8] - Log[(t + 7 - 34.718750)])^20)*
SquareWave[(t - 34.718750 +
7)^5 SquareWave[((t - 34.718750 + 7)^20 +
5 (t - 34.718750 + 7)) SawtoothWave[
400/(t - 34.718750 + 7) Cos[
Sin[5 - 7 Sqrt[t - 34.718750 + 7]]]]] +
Cos[200 (t - 34.718750 + 7)]])*3.40574*10^17,
34.718750 < t < 34.812500}, {0,
34.812500 < t <
34.843750}, {(((Log[8] - Log[(t + 7 - 34.843750)])^20)*
SquareWave[(t - 34.843750 +
7)^5 SquareWave[((t - 34.843750 + 7)^20 +
5 (t - 34.843750 + 7)) SawtoothWave[
400/(t - 34.843750 + 7) Cos[
Sin[5 - 7 Sqrt[t - 34.843750 + 7]]]]] +
Cos[200 (t - 34.843750 + 7)]])*3.40574*10^17,
34.843750 < t < 34.937500}, {0,
34.937500 < t <
34.968750}, {(((Log[8] - Log[(t + 7 - 34.968750)])^20)*
SquareWave[(t - 34.968750 +
7)^5 SquareWave[((t - 34.968750 + 7)^20 +
5 (t - 34.968750 + 7)) SawtoothWave[
400/(t - 34.968750 + 7) Cos[
Sin[5 - 7 Sqrt[t - 34.968750 + 7]]]]] +
Cos[200 (t - 34.968750 + 7)]])*3.40574*10^17,
34.968750 < t < 35.062500}, {0,
35.062500 < t <
35.093750}, {(((Log[8] - Log[(t + 7 - 35.093750)])^20)*
SquareWave[(t - 35.093750 +
7)^5 SquareWave[((t - 35.093750 + 7)^20 +
5 (t - 35.093750 + 7)) SawtoothWave[
400/(t - 35.093750 + 7) Cos[
Sin[5 - 7 Sqrt[t - 35.093750 + 7]]]]] +
Cos[200 (t - 35.093750 + 7)]])*3.40574*10^17,
35.093750 < t < 35.187500}, {0,
35.187500 < t <
35.218750}, {(((Log[8] - Log[(t + 7 - 35.218750)])^20)*
SquareWave[(t - 35.218750 +
7)^5 SquareWave[((t - 35.218750 + 7)^20 +
5 (t - 35.218750 + 7)) SawtoothWave[
400/(t - 35.218750 + 7) Cos[
Sin[5 - 7 Sqrt[t - 35.218750 + 7]]]]] +
Cos[200 (t - 35.218750 + 7)]])*3.40574*10^17,
35.218750 < t < 35.312500}, {0,
35.312500 < t <
35.343750}, {(((Log[8] - Log[(t + 7 - 35.343750)])^20)*
SquareWave[(t - 35.343750 +
7)^5 SquareWave[((t - 35.343750 + 7)^20 +
5 (t - 35.343750 + 7)) SawtoothWave[
400/(t - 35.343750 + 7) Cos[
Sin[5 - 7 Sqrt[t - 35.343750 + 7]]]]] +
Cos[200 (t - 35.343750 + 7)]])*3.40574*10^17,
35.343750 < t < 35.437500}, {0,
35.437500 < t <
35.468750}, {(((Log[8] - Log[(t + 7 - 35.468750)])^20)*
SquareWave[(t - 35.468750 +
7)^5 SquareWave[((t - 35.468750 + 7)^20 +
5 (t - 35.468750 + 7)) SawtoothWave[
400/(t - 35.468750 + 7) Cos[
Sin[5 - 7 Sqrt[t - 35.468750 + 7]]]]] +
Cos[200 (t - 35.468750 + 7)]])*3.40574*10^17,
35.468750 < t < 35.562500}, {0,
35.562500 < t <
35.593750}, {(((Log[8] - Log[(t + 7 - 35.593750)])^20)*
SquareWave[(t - 35.593750 +
7)^5 SquareWave[((t - 35.593750 + 7)^20 +
5 (t - 35.593750 + 7)) SawtoothWave[
400/(t - 35.593750 + 7) Cos[
Sin[5 - 7 Sqrt[t - 35.593750 + 7]]]]] +
Cos[200 (t - 35.593750 + 7)]])*3.40574*10^17,
35.593750 < t < 35.687500}, {0,
35.687500 < t <
35.718750}, {(((Log[8] - Log[(t + 7 - 35.718750)])^20)*
SquareWave[(t - 35.718750 +
7)^5 SquareWave[((t - 35.718750 + 7)^20 +
5 (t - 35.718750 + 7)) SawtoothWave[
400/(t - 35.718750 + 7) Cos[
Sin[5 - 7 Sqrt[t - 35.718750 + 7]]]]] +
Cos[200 (t - 35.718750 + 7)]])*3.40574*10^17,
35.718750 < t < 35.812500}, {0,
35.812500 < t <
35.843750}, {(((Log[8] - Log[(t + 7 - 35.843750)])^20)*
SquareWave[(t - 35.843750 +
7)^5 SquareWave[((t - 35.843750 + 7)^20 +
5 (t - 35.843750 + 7)) SawtoothWave[
400/(t - 35.843750 + 7) Cos[
Sin[5 - 7 Sqrt[t - 35.843750 + 7]]]]] +
Cos[200 (t - 35.843750 + 7)]])*3.40574*10^17,
35.843750 < t < 35.937500}, {0,
35.937500 < t <
35.968750}, {((1 -
Log[(5 - (t - 35.968750))^(5 - (t - 35.968750))])*
Sin[440 (5 - (t -
35.968750)) + (5 - (t - 35.968750))^2 SawtoothWave[
400/(5 - (t - 35.968750)) Cos[
Sin[5 - (t - 35.968750)]]]])/7.01859,
35.968750 < t <
36.468750}, {(((Log[8] - Log[(t + 7 - 36.468750)])^20)*
SquareWave[(t - 36.468750 +
7)^5 SquareWave[((t - 36.468750 + 7)^20 +
5 (t - 36.468750 + 7)) SawtoothWave[
400/(t - 36.468750 + 7) Cos[
Sin[5 - 7 Sqrt[t - 36.468750 + 7]]]]] +
Cos[200 (t - 36.468750 + 7)]])*3.40574*10^17,
36.468750 < t <
36.500000}, {(((Log[8] - Log[t + 7 - 36.500000])^20)*
SquareWave[
Sin[(t + 7 - 36.500000)^2 SawtoothWave[
400/(t + 7 - 36.500000) Cos[
Sin[5 - 2 Sqrt[(t + 7 - 36.500000)]]]]] +
Cos[40 (t + 7 - 36.500000)]])/(3.76468*10^(-18)),
36.500000 < t <
36.531250}, {(((Log[8] - Log[(t + 7 - 36.531250)])^20)*
SquareWave[(t - 36.531250 +
7)^5 SquareWave[((t - 36.531250 + 7)^20 +
5 (t - 36.531250 + 7)) SawtoothWave[
400/(t - 36.531250 + 7) Cos[
Sin[5 - 7 Sqrt[t - 36.531250 + 7]]]]] +
Cos[200 (t - 36.531250 + 7)]])*3.40574*10^17,
36.531250 < t <
36.562500}, {(((Log[8] - Log[t + 7 - 36.562500])^20)*
SquareWave[
Sin[(t + 7 - 36.562500)^2 SawtoothWave[
400/(t + 7 - 36.562500) Cos[
Sin[5 - 2 Sqrt[(t + 7 - 36.562500)]]]]] +
Cos[40 (t + 7 - 36.562500)]])/(3.76468*10^(-18)),
36.562500 < t <
36.593750}, {(((Log[8] - Log[(t + 7 - 36.593750)])^20)*
SquareWave[(t - 36.593750 +
7)^5 SquareWave[((t - 36.593750 + 7)^20 +
5 (t - 36.593750 + 7)) SawtoothWave[
400/(t - 36.593750 + 7) Cos[
Sin[5 - 7 Sqrt[t - 36.593750 + 7]]]]] +
Cos[200 (t - 36.593750 + 7)]])*3.40574*10^17,
36.593750 < t <
36.625000}, {(((Log[8] - Log[t + 7 - 36.625000])^20)*
SquareWave[
Sin[(t + 7 - 36.625000)^2 SawtoothWave[
400/(t + 7 - 36.625000) Cos[
Sin[5 - 2 Sqrt[(t + 7 - 36.625000)]]]]] +
Cos[40 (t + 7 - 36.625000)]])/(3.76468*10^(-18)),
36.625000 < t <
36.656250}, {(((Log[8] - Log[(t + 7 - 36.656250)])^20)*
SquareWave[(t - 36.656250 +
7)^5 SquareWave[((t - 36.656250 + 7)^20 +
5 (t - 36.656250 + 7)) SawtoothWave[
400/(t - 36.656250 + 7) Cos[
Sin[5 - 7 Sqrt[t - 36.656250 + 7]]]]] +
Cos[200 (t - 36.656250 + 7)]])*3.40574*10^17,
36.656250 < t <
36.687500}, {(((Log[8] - Log[t + 7 - 36.687500])^20)*
SquareWave[
Sin[(t + 7 - 36.687500)^2 SawtoothWave[
400/(t + 7 - 36.687500) Cos[
Sin[5 - 2 Sqrt[(t + 7 - 36.687500)]]]]] +
Cos[40 (t + 7 - 36.687500)]])/(3.76468*10^(-18)),
36.687500 < t <
36.718750}, {(((Log[8] - Log[(t + 7 - 36.718750)])^20)*
SquareWave[(t - 36.718750 +
7)^5 SquareWave[((t - 36.718750 + 7)^20 +
5 (t - 36.718750 + 7)) SawtoothWave[
400/(t - 36.718750 + 7) Cos[
Sin[5 - 7 Sqrt[t - 36.718750 + 7]]]]] +
Cos[200 (t - 36.718750 + 7)]])*3.40574*10^17,
36.718750 < t < 36.812500}, {0,
36.812500 < t <
36.843750}, {(((Log[8] - Log[(t + 7 - 36.843750)])^20)*
SquareWave[(t - 36.843750 +
7)^5 SquareWave[((t - 36.843750 + 7)^20 +
5 (t - 36.843750 + 7)) SawtoothWave[
400/(t - 36.843750 + 7) Cos[
Sin[5 - 7 Sqrt[t - 36.843750 + 7]]]]] +
Cos[200 (t - 36.843750 + 7)]])*3.40574*10^17,
36.843750 < t < 36.937500}, {0,
36.937500 < t <
36.968750}, {(((Log[8] - Log[(t + 7 - 36.968750)])^20)*
SquareWave[(t - 36.968750 +
7)^5 SquareWave[((t - 36.968750 + 7)^20 +
5 (t - 36.968750 + 7)) SawtoothWave[
400/(t - 36.968750 + 7) Cos[
Sin[5 - 7 Sqrt[t - 36.968750 + 7]]]]] +
Cos[200 (t - 36.968750 + 7)]])*3.40574*10^17,
36.968750 < t < 37.062500}, {0,
37.062500 < t <
37.093750}, {(((Log[8] - Log[(t + 7 - 37.093750)])^20)*
SquareWave[(t - 37.093750 +
7)^5 SquareWave[((t - 37.093750 + 7)^20 +
5 (t - 37.093750 + 7)) SawtoothWave[
400/(t - 37.093750 + 7) Cos[
Sin[5 - 7 Sqrt[t - 37.093750 + 7]]]]] +
Cos[200 (t - 37.093750 + 7)]])*3.40574*10^17,
37.093750 < t < 37.187500}, {0,
37.187500 < t <
37.218750}, {(((Log[8] - Log[(t + 7 - 37.218750)])^20)*
SquareWave[(t - 37.218750 +
7)^5 SquareWave[((t - 37.218750 + 7)^20 +
5 (t - 37.218750 + 7)) SawtoothWave[
400/(t - 37.218750 + 7) Cos[
Sin[5 - 7 Sqrt[t - 37.218750 + 7]]]]] +
Cos[200 (t - 37.218750 + 7)]])*3.40574*10^17,
37.218750 < t < 37.312500}, {0,
37.312500 < t <
37.343750}, {(((Log[8] - Log[(t + 7 - 37.343750)])^20)*
SquareWave[(t - 37.343750 +
7)^5 SquareWave[((t - 37.343750 + 7)^20 +
5 (t - 37.343750 + 7)) SawtoothWave[
400/(t - 37.343750 + 7) Cos[
Sin[5 - 7 Sqrt[t - 37.343750 + 7]]]]] +
Cos[200 (t - 37.343750 + 7)]])*3.40574*10^17,
37.343750 < t < 37.437500}, {0,
37.437500 < t <
37.468750}, {(((Log[8] - Log[(t + 7 - 37.468750)])^20)*
SquareWave[(t - 37.468750 +
7)^5 SquareWave[((t - 37.468750 + 7)^20 +
5 (t - 37.468750 + 7)) SawtoothWave[
400/(t - 37.468750 + 7) Cos[
Sin[5 - 7 Sqrt[t - 37.468750 + 7]]]]] +
Cos[200 (t - 37.468750 + 7)]])*3.40574*10^17,
37.468750 < t < 37.562500}, {0,
37.562500 < t <
37.593750}, {(((Log[8] - Log[(t + 7 - 37.593750)])^20)*
SquareWave[(t - 37.593750 +
7)^5 SquareWave[((t - 37.593750 + 7)^20 +
5 (t - 37.593750 + 7)) SawtoothWave[
400/(t - 37.593750 + 7) Cos[
Sin[5 - 7 Sqrt[t - 37.593750 + 7]]]]] +
Cos[200 (t - 37.593750 + 7)]])*3.40574*10^17,
37.593750 < t < 37.687500}, {0,
37.687500 < t <
37.718750}, {(((Log[8] - Log[(t + 7 - 37.718750)])^20)*
SquareWave[(t - 37.718750 +
7)^5 SquareWave[((t - 37.718750 + 7)^20 +
5 (t - 37.718750 + 7)) SawtoothWave[
400/(t - 37.718750 + 7) Cos[
Sin[5 - 7 Sqrt[t - 37.718750 + 7]]]]] +
Cos[200 (t - 37.718750 + 7)]])*3.40574*10^17,
37.718750 < t < 37.812500}, {0,
37.812500 < t <
37.843750}, {(((Log[8] - Log[(t + 7 - 37.843750)])^20)*
SquareWave[(t - 37.843750 +
7)^5 SquareWave[((t - 37.843750 + 7)^20 +
5 (t - 37.843750 + 7)) SawtoothWave[
400/(t - 37.843750 + 7) Cos[
Sin[5 - 7 Sqrt[t - 37.843750 + 7]]]]] +
Cos[200 (t - 37.843750 + 7)]])*3.40574*10^17,
37.843750 < t < 37.937500}, {0,
37.937500 < t <
37.968750}, {((1 -
Log[(5 - (t - 37.968750))^(5 - (t - 37.968750))])*
Sin[440 (5 - (t -
37.968750)) + (5 - (t - 37.968750))^2 SawtoothWave[
400/(5 - (t - 37.968750)) Cos[
Sin[5 - (t - 37.968750)]]]])/7.01859,
37.968750 < t <
38.468750}, {(((Log[8] - Log[(t + 7 - 38.468750)])^20)*
SquareWave[(t - 38.468750 +
7)^5 SquareWave[((t - 38.468750 + 7)^20 +
5 (t - 38.468750 + 7)) SawtoothWave[
400/(t - 38.468750 + 7) Cos[
Sin[5 - 7 Sqrt[t - 38.468750 + 7]]]]] +
Cos[200 (t - 38.468750 + 7)]])*3.40574*10^17,
38.468750 < t <
38.500000}, {(((Log[8] - Log[t + 7 - 38.500000])^20)*
SquareWave[
Sin[(t + 7 - 38.500000)^2 SawtoothWave[
400/(t + 7 - 38.500000) Cos[
Sin[5 - 2 Sqrt[(t + 7 - 38.500000)]]]]] +
Cos[40 (t + 7 - 38.500000)]])/(3.76468*10^(-18)),
38.500000 < t <
38.531250}, {(((Log[8] - Log[(t + 7 - 38.531250)])^20)*
SquareWave[(t - 38.531250 +
7)^5 SquareWave[((t - 38.531250 + 7)^20 +
5 (t - 38.531250 + 7)) SawtoothWave[
400/(t - 38.531250 + 7) Cos[
Sin[5 - 7 Sqrt[t - 38.531250 + 7]]]]] +
Cos[200 (t - 38.531250 + 7)]])*3.40574*10^17,
38.531250 < t <
38.562500}, {(((Log[8] - Log[t + 7 - 38.562500])^20)*
SquareWave[
Sin[(t + 7 - 38.562500)^2 SawtoothWave[
400/(t + 7 - 38.562500) Cos[
Sin[5 - 2 Sqrt[(t + 7 - 38.562500)]]]]] +
Cos[40 (t + 7 - 38.562500)]])/(3.76468*10^(-18)),
38.562500 < t <
38.593750}, {(((Log[8] - Log[(t + 7 - 38.593750)])^20)*
SquareWave[(t - 38.593750 +
7)^5 SquareWave[((t - 38.593750 + 7)^20 +
5 (t - 38.593750 + 7)) SawtoothWave[
400/(t - 38.593750 + 7) Cos[
Sin[5 - 7 Sqrt[t - 38.593750 + 7]]]]] +
Cos[200 (t - 38.593750 + 7)]])*3.40574*10^17,
38.593750 < t <
38.625000}, {(((Log[8] - Log[t + 7 - 38.625000])^20)*
SquareWave[
Sin[(t + 7 - 38.625000)^2 SawtoothWave[
400/(t + 7 - 38.625000) Cos[
Sin[5 - 2 Sqrt[(t + 7 - 38.625000)]]]]] +
Cos[40 (t + 7 - 38.625000)]])/(3.76468*10^(-18)),
38.625000 < t <
38.656250}, {(((Log[8] - Log[(t + 7 - 38.656250)])^20)*
SquareWave[(t - 38.656250 +
7)^5 SquareWave[((t - 38.656250 + 7)^20 +
5 (t - 38.656250 + 7)) SawtoothWave[
400/(t - 38.656250 + 7) Cos[
Sin[5 - 7 Sqrt[t - 38.656250 + 7]]]]] +
Cos[200 (t - 38.656250 + 7)]])*3.40574*10^17,
38.656250 < t <
38.687500}, {(((Log[8] - Log[t + 7 - 38.687500])^20)*
SquareWave[
Sin[(t + 7 - 38.687500)^2 SawtoothWave[
400/(t + 7 - 38.687500) Cos[
Sin[5 - 2 Sqrt[(t + 7 - 38.687500)]]]]] +
Cos[40 (t + 7 - 38.687500)]])/(3.76468*10^(-18)),
38.687500 < t <
38.718750}, {(((Log[8] - Log[(t + 7 - 38.718750)])^20)*
SquareWave[(t - 38.718750 +
7)^5 SquareWave[((t - 38.718750 + 7)^20 +
5 (t - 38.718750 + 7)) SawtoothWave[
400/(t - 38.718750 + 7) Cos[
Sin[5 - 7 Sqrt[t - 38.718750 + 7]]]]] +
Cos[200 (t - 38.718750 + 7)]])*3.40574*10^17,
38.718750 < t < 38.812500}, {0,
38.812500 < t <
38.843750}, {(((Log[8] - Log[(t + 7 - 38.843750)])^20)*
SquareWave[(t - 38.843750 +
7)^5 SquareWave[((t - 38.843750 + 7)^20 +
5 (t - 38.843750 + 7)) SawtoothWave[
400/(t - 38.843750 + 7) Cos[
Sin[5 - 7 Sqrt[t - 38.843750 + 7]]]]] +
Cos[200 (t - 38.843750 + 7)]])*3.40574*10^17,
38.843750 < t < 38.937500}, {0,
38.937500 < t <
38.968750}, {(((Log[8] - Log[(t + 7 - 38.968750)])^20)*
SquareWave[(t - 38.968750 +
7)^5 SquareWave[((t - 38.968750 + 7)^20 +
5 (t - 38.968750 + 7)) SawtoothWave[
400/(t - 38.968750 + 7) Cos[
Sin[5 - 7 Sqrt[t - 38.968750 + 7]]]]] +
Cos[200 (t - 38.968750 + 7)]])*3.40574*10^17,
38.968750 < t < 39.062500}, {0,
39.062500 < t <
39.093750}, {(((Log[8] - Log[(t + 7 - 39.093750)])^20)*
SquareWave[(t - 39.093750 +
7)^5 SquareWave[((t - 39.093750 + 7)^20 +
5 (t - 39.093750 + 7)) SawtoothWave[
400/(t - 39.093750 + 7) Cos[
Sin[5 - 7 Sqrt[t - 39.093750 + 7]]]]] +
Cos[200 (t - 39.093750 + 7)]])*3.40574*10^17,
39.093750 < t < 39.187500}, {0,
39.187500 < t <
39.218750}, {(((Log[8] - Log[(t + 7 - 39.218750)])^20)*
SquareWave[(t - 39.218750 +
7)^5 SquareWave[((t - 39.218750 + 7)^20 +
5 (t - 39.218750 + 7)) SawtoothWave[
400/(t - 39.218750 + 7) Cos[
Sin[5 - 7 Sqrt[t - 39.218750 + 7]]]]] +
Cos[200 (t - 39.218750 + 7)]])*3.40574*10^17,
39.218750 < t < 39.312500}, {0,
39.312500 < t <
39.343750}, {(((Log[8] - Log[(t + 7 - 39.343750)])^20)*
SquareWave[(t - 39.343750 +
7)^5 SquareWave[((t - 39.343750 + 7)^20 +
5 (t - 39.343750 + 7)) SawtoothWave[
400/(t - 39.343750 + 7) Cos[
Sin[5 - 7 Sqrt[t - 39.343750 + 7]]]]] +
Cos[200 (t - 39.343750 + 7)]])*3.40574*10^17,
39.343750 < t < 39.437500}, {0,
39.437500 < t <
39.468750}, {(((Log[8] - Log[(t + 7 - 39.468750)])^20)*
SquareWave[(t - 39.468750 +
7)^5 SquareWave[((t - 39.468750 + 7)^20 +
5 (t - 39.468750 + 7)) SawtoothWave[
400/(t - 39.468750 + 7) Cos[
Sin[5 - 7 Sqrt[t - 39.468750 + 7]]]]] +
Cos[200 (t - 39.468750 + 7)]])*3.40574*10^17,
39.468750 < t < 39.562500}, {0,
39.562500 < t <
39.593750}, {(((Log[8] - Log[(t + 7 - 39.593750)])^20)*
SquareWave[(t - 39.593750 +
7)^5 SquareWave[((t - 39.593750 + 7)^20 +
5 (t - 39.593750 + 7)) SawtoothWave[
400/(t - 39.593750 + 7) Cos[
Sin[5 - 7 Sqrt[t - 39.593750 + 7]]]]] +
Cos[200 (t - 39.593750 + 7)]])*3.40574*10^17,
39.593750 < t < 39.687500}, {0,
39.687500 < t <
39.718750}, {(((Log[8] - Log[(t + 7 - 39.718750)])^20)*
SquareWave[(t - 39.718750 +
7)^5 SquareWave[((t - 39.718750 + 7)^20 +
5 (t - 39.718750 + 7)) SawtoothWave[
400/(t - 39.718750 + 7) Cos[
Sin[5 - 7 Sqrt[t - 39.718750 + 7]]]]] +
Cos[200 (t - 39.718750 + 7)]])*3.40574*10^17,
39.718750 < t < 39.812500}, {0,
39.812500 < t <
39.843750}, {(((Log[8] - Log[(t + 7 - 39.843750)])^20)*
SquareWave[(t - 39.843750 +
7)^5 SquareWave[((t - 39.843750 + 7)^20 +
5 (t - 39.843750 + 7)) SawtoothWave[
400/(t - 39.843750 + 7) Cos[
Sin[5 - 7 Sqrt[t - 39.843750 + 7]]]]] +
Cos[200 (t - 39.843750 + 7)]])*3.40574*10^17,
39.843750 < t < 39.937500}, {0,
39.937500 < t <
39.968750}, {(((Log[8] - Log[(t + 7 - 39.968750)])^20)*
SquareWave[(t - 39.968750 +
7)^5 SquareWave[((t - 39.968750 + 7)^20 +
5 (t - 39.968750 + 7)) SawtoothWave[
400/(t - 39.968750 + 7) Cos[
Sin[5 - 7 Sqrt[t - 39.968750 + 7]]]]] +
Cos[200 (t - 39.968750 + 7)]])*3.40574*10^17,
39.968750 < t < 40.062500}, {0,
40.062500 < t <
40.093750}, {(((Log[8] - Log[(t + 7 - 40.093750)])^20)*
SquareWave[(t - 40.093750 +
7)^5 SquareWave[((t - 40.093750 + 7)^20 +
5 (t - 40.093750 + 7)) SawtoothWave[
400/(t - 40.093750 + 7) Cos[
Sin[5 - 7 Sqrt[t - 40.093750 + 7]]]]] +
Cos[200 (t - 40.093750 + 7)]])*3.40574*10^17,
40.093750 < t < 40.187500}, {0,
40.187500 < t <
40.218750}, {(((Log[8] - Log[(t + 7 - 40.218750)])^20)*
SquareWave[(t - 40.218750 +
7)^5 SquareWave[((t - 40.218750 + 7)^20 +
5 (t - 40.218750 + 7)) SawtoothWave[
400/(t - 40.218750 + 7) Cos[
Sin[5 - 7 Sqrt[t - 40.218750 + 7]]]]] +
Cos[200 (t - 40.218750 + 7)]])*3.40574*10^17,
40.218750 < t < 40.312500}, {0,
40.312500 < t <
40.343750}, {(((Log[8] - Log[(t + 7 - 40.343750)])^20)*
SquareWave[(t - 40.343750 +
7)^5 SquareWave[((t - 40.343750 + 7)^20 +
5 (t - 40.343750 + 7)) SawtoothWave[
400/(t - 40.343750 + 7) Cos[
Sin[5 - 7 Sqrt[t - 40.343750 + 7]]]]] +
Cos[200 (t - 40.343750 + 7)]])*3.40574*10^17,
40.343750 < t < 40.437500}, {0,
40.437500 < t <
40.468750}, {(((Log[8] - Log[(t + 7 - 40.468750)])^20)*
SquareWave[(t - 40.468750 +
7)^5 SquareWave[((t - 40.468750 + 7)^20 +
5 (t - 40.468750 + 7)) SawtoothWave[
400/(t - 40.468750 + 7) Cos[
Sin[5 - 7 Sqrt[t - 40.468750 + 7]]]]] +
Cos[200 (t - 40.468750 + 7)]])*3.40574*10^17,
40.468750 < t < 40.562500}, {0,
40.562500 < t <
40.593750}, {(((Log[8] - Log[(t + 7 - 40.593750)])^20)*
SquareWave[(t - 40.593750 +
7)^5 SquareWave[((t - 40.593750 + 7)^20 +
5 (t - 40.593750 + 7)) SawtoothWave[
400/(t - 40.593750 + 7) Cos[
Sin[5 - 7 Sqrt[t - 40.593750 + 7]]]]] +
Cos[200 (t - 40.593750 + 7)]])*3.40574*10^17,
40.593750 < t < 40.687500}, {0,
40.687500 < t <
40.718750}, {(((Log[8] - Log[(t + 7 - 40.718750)])^20)*
SquareWave[(t - 40.718750 +
7)^5 SquareWave[((t - 40.718750 + 7)^20 +
5 (t - 40.718750 + 7)) SawtoothWave[
400/(t - 40.718750 + 7) Cos[
Sin[5 - 7 Sqrt[t - 40.718750 + 7]]]]] +
Cos[200 (t - 40.718750 + 7)]])*3.40574*10^17,
40.718750 < t < 40.812500}, {0,
40.812500 < t <
40.843750}, {(((Log[8] - Log[(t + 7 - 40.843750)])^20)*
SquareWave[(t - 40.843750 +
7)^5 SquareWave[((t - 40.843750 + 7)^20 +
5 (t - 40.843750 + 7)) SawtoothWave[
400/(t - 40.843750 + 7) Cos[
Sin[5 - 7 Sqrt[t - 40.843750 + 7]]]]] +
Cos[200 (t - 40.843750 + 7)]])*3.40574*10^17,
40.843750 < t < 40.937500}, {0,
40.937500 < t <
40.968750}, {(((Log[8] - Log[(t + 7 - 40.968750)])^20)*
SquareWave[(t - 40.968750 +
7)^5 SquareWave[((t - 40.968750 + 7)^20 +
5 (t - 40.968750 + 7)) SawtoothWave[
400/(t - 40.968750 + 7) Cos[
Sin[5 - 7 Sqrt[t - 40.968750 + 7]]]]] +
Cos[200 (t - 40.968750 + 7)]])*3.40574*10^17,
40.968750 < t < 41.062500}, {0,
41.062500 < t <
41.093750}, {(((Log[8] - Log[(t + 7 - 41.093750)])^20)*
SquareWave[(t - 41.093750 +
7)^5 SquareWave[((t - 41.093750 + 7)^20 +
5 (t - 41.093750 + 7)) SawtoothWave[
400/(t - 41.093750 + 7) Cos[
Sin[5 - 7 Sqrt[t - 41.093750 + 7]]]]] +
Cos[200 (t - 41.093750 + 7)]])*3.40574*10^17,
41.093750 < t < 41.187500}, {0,
41.187500 < t <
41.218750}, {(((Log[8] - Log[(t + 7 - 41.218750)])^20)*
SquareWave[(t - 41.218750 +
7)^5 SquareWave[((t - 41.218750 + 7)^20 +
5 (t - 41.218750 + 7)) SawtoothWave[
400/(t - 41.218750 + 7) Cos[
Sin[5 - 7 Sqrt[t - 41.218750 + 7]]]]] +
Cos[200 (t - 41.218750 + 7)]])*3.40574*10^17,
41.218750 < t < 41.312500}, {0,
41.312500 < t <
41.343750}, {(((Log[8] - Log[(t + 7 - 41.343750)])^20)*
SquareWave[(t - 41.343750 +
7)^5 SquareWave[((t - 41.343750 + 7)^20 +
5 (t - 41.343750 + 7)) SawtoothWave[
400/(t - 41.343750 + 7) Cos[
Sin[5 - 7 Sqrt[t - 41.343750 + 7]]]]] +
Cos[200 (t - 41.343750 + 7)]])*3.40574*10^17,
41.343750 < t < 41.437500}, {0,
41.437500 < t <
41.468750}, {(((Log[8] - Log[(t + 7 - 41.468750)])^20)*
SquareWave[(t - 41.468750 +
7)^5 SquareWave[((t - 41.468750 + 7)^20 +
5 (t - 41.468750 + 7)) SawtoothWave[
400/(t - 41.468750 + 7) Cos[
Sin[5 - 7 Sqrt[t - 41.468750 + 7]]]]] +
Cos[200 (t - 41.468750 + 7)]])*3.40574*10^17,
41.468750 < t < 41.562500}, {0,
41.562500 < t <
41.593750}, {(((Log[8] - Log[(t + 7 - 41.593750)])^20)*
SquareWave[(t - 41.593750 +
7)^5 SquareWave[((t - 41.593750 + 7)^20 +
5 (t - 41.593750 + 7)) SawtoothWave[
400/(t - 41.593750 + 7) Cos[
Sin[5 - 7 Sqrt[t - 41.593750 + 7]]]]] +
Cos[200 (t - 41.593750 + 7)]])*3.40574*10^17,
41.593750 < t < 41.687500}, {0,
41.687500 < t <
41.718750}, {(((Log[8] - Log[(t + 7 - 41.718750)])^20)*
SquareWave[(t - 41.718750 +
7)^5 SquareWave[((t - 41.718750 + 7)^20 +
5 (t - 41.718750 + 7)) SawtoothWave[
400/(t - 41.718750 + 7) Cos[
Sin[5 - 7 Sqrt[t - 41.718750 + 7]]]]] +
Cos[200 (t - 41.718750 + 7)]])*3.40574*10^17,
41.718750 < t < 41.812500}, {0,
41.812500 < t <
41.843750}, {(((Log[8] - Log[(t + 7 - 41.843750)])^20)*
SquareWave[(t - 41.843750 +
7)^5 SquareWave[((t - 41.843750 + 7)^20 +
5 (t - 41.843750 + 7)) SawtoothWave[
400/(t - 41.843750 + 7) Cos[
Sin[5 - 7 Sqrt[t - 41.843750 + 7]]]]] +
Cos[200 (t - 41.843750 + 7)]])*3.40574*10^17,
41.843750 < t < 41.937500}, {0,
41.937500 < t <
41.968750}, {((1 -
Log[(5 - (t - 41.968750))^(5 - (t - 41.968750))])*
Sin[440 (5 - (t -
41.968750)) + (5 - (t - 41.968750))^2 SawtoothWave[
400/(5 - (t - 41.968750)) Cos[
Sin[5 - (t - 41.968750)]]]])/7.01859,
41.968750 < t <
42.468750}, {(((Log[8] - Log[(t + 7 - 42.468750)])^20)*
SquareWave[(t - 42.468750 +
7)^5 SquareWave[((t - 42.468750 + 7)^20 +
5 (t - 42.468750 + 7)) SawtoothWave[
400/(t - 42.468750 + 7) Cos[
Sin[5 - 7 Sqrt[t - 42.468750 + 7]]]]] +
Cos[200 (t - 42.468750 + 7)]])*3.40574*10^17,
42.468750 < t <
42.500000}, {(((Log[8] - Log[t + 7 - 42.500000])^20)*
SquareWave[
Sin[(t + 7 - 42.500000)^2 SawtoothWave[
400/(t + 7 - 42.500000) Cos[
Sin[5 - 2 Sqrt[(t + 7 - 42.500000)]]]]] +
Cos[40 (t + 7 - 42.500000)]])/(3.76468*10^(-18)),
42.500000 < t <
42.531250}, {(((Log[8] - Log[(t + 7 - 42.531250)])^20)*
SquareWave[(t - 42.531250 +
7)^5 SquareWave[((t - 42.531250 + 7)^20 +
5 (t - 42.531250 + 7)) SawtoothWave[
400/(t - 42.531250 + 7) Cos[
Sin[5 - 7 Sqrt[t - 42.531250 + 7]]]]] +
Cos[200 (t - 42.531250 + 7)]])*3.40574*10^17,
42.531250 < t <
42.562500}, {(((Log[8] - Log[t + 7 - 42.562500])^20)*
SquareWave[
Sin[(t + 7 - 42.562500)^2 SawtoothWave[
400/(t + 7 - 42.562500) Cos[
Sin[5 - 2 Sqrt[(t + 7 - 42.562500)]]]]] +
Cos[40 (t + 7 - 42.562500)]])/(3.76468*10^(-18)),
42.562500 < t <
42.593750}, {(((Log[8] - Log[(t + 7 - 42.593750)])^20)*
SquareWave[(t - 42.593750 +
7)^5 SquareWave[((t - 42.593750 + 7)^20 +
5 (t - 42.593750 + 7)) SawtoothWave[
400/(t - 42.593750 + 7) Cos[
Sin[5 - 7 Sqrt[t - 42.593750 + 7]]]]] +
Cos[200 (t - 42.593750 + 7)]])*3.40574*10^17,
42.593750 < t <
42.625000}, {(((Log[8] - Log[t + 7 - 42.625000])^20)*
SquareWave[
Sin[(t + 7 - 42.625000)^2 SawtoothWave[
400/(t + 7 - 42.625000) Cos[
Sin[5 - 2 Sqrt[(t + 7 - 42.625000)]]]]] +
Cos[40 (t + 7 - 42.625000)]])/(3.76468*10^(-18)),
42.625000 < t <
42.656250}, {(((Log[8] - Log[(t + 7 - 42.656250)])^20)*
SquareWave[(t - 42.656250 +
7)^5 SquareWave[((t - 42.656250 + 7)^20 +
5 (t - 42.656250 + 7)) SawtoothWave[
400/(t - 42.656250 + 7) Cos[
Sin[5 - 7 Sqrt[t - 42.656250 + 7]]]]] +
Cos[200 (t - 42.656250 + 7)]])*3.40574*10^17,
42.656250 < t <
42.687500}, {(((Log[8] - Log[t + 7 - 42.687500])^20)*
SquareWave[
Sin[(t + 7 - 42.687500)^2 SawtoothWave[
400/(t + 7 - 42.687500) Cos[
Sin[5 - 2 Sqrt[(t + 7 - 42.687500)]]]]] +
Cos[40 (t + 7 - 42.687500)]])/(3.76468*10^(-18)),
42.687500 < t <
42.718750}, {(((Log[8] - Log[(t + 7 - 42.718750)])^20)*
SquareWave[(t - 42.718750 +
7)^5 SquareWave[((t - 42.718750 + 7)^20 +
5 (t - 42.718750 + 7)) SawtoothWave[
400/(t - 42.718750 + 7) Cos[
Sin[5 - 7 Sqrt[t - 42.718750 + 7]]]]] +
Cos[200 (t - 42.718750 + 7)]])*3.40574*10^17,
42.718750 < t < 42.812500}, {0,
42.812500 < t <
42.843750}, {(((Log[8] - Log[(t + 7 - 42.843750)])^20)*
SquareWave[(t - 42.843750 +
7)^5 SquareWave[((t - 42.843750 + 7)^20 +
5 (t - 42.843750 + 7)) SawtoothWave[
400/(t - 42.843750 + 7) Cos[
Sin[5 - 7 Sqrt[t - 42.843750 + 7]]]]] +
Cos[200 (t - 42.843750 + 7)]])*3.40574*10^17,
42.843750 < t < 42.937500}, {0,
42.937500 < t <
42.968750}, {(((Log[8] - Log[(t + 7 - 42.968750)])^20)*
SquareWave[(t - 42.968750 +
7)^5 SquareWave[((t - 42.968750 + 7)^20 +
5 (t - 42.968750 + 7)) SawtoothWave[
400/(t - 42.968750 + 7) Cos[
Sin[5 - 7 Sqrt[t - 42.968750 + 7]]]]] +
Cos[200 (t - 42.968750 + 7)]])*3.40574*10^17,
42.968750 < t < 43.062500}, {0,
43.062500 < t <
43.093750}, {(((Log[8] - Log[(t + 7 - 43.093750)])^20)*
SquareWave[(t - 43.093750 +
7)^5 SquareWave[((t - 43.093750 + 7)^20 +
5 (t - 43.093750 + 7)) SawtoothWave[
400/(t - 43.093750 + 7) Cos[
Sin[5 - 7 Sqrt[t - 43.093750 + 7]]]]] +
Cos[200 (t - 43.093750 + 7)]])*3.40574*10^17,
43.093750 < t < 43.187500}, {0,
43.187500 < t <
43.218750}, {(((Log[8] - Log[(t + 7 - 43.218750)])^20)*
SquareWave[(t - 43.218750 +
7)^5 SquareWave[((t - 43.218750 + 7)^20 +
5 (t - 43.218750 + 7)) SawtoothWave[
400/(t - 43.218750 + 7) Cos[
Sin[5 - 7 Sqrt[t - 43.218750 + 7]]]]] +
Cos[200 (t - 43.218750 + 7)]])*3.40574*10^17,
43.218750 < t < 43.312500}, {0,
43.312500 < t <
43.343750}, {(((Log[8] - Log[(t + 7 - 43.343750)])^20)*
SquareWave[(t - 43.343750 +
7)^5 SquareWave[((t - 43.343750 + 7)^20 +
5 (t - 43.343750 + 7)) SawtoothWave[
400/(t - 43.343750 + 7) Cos[
Sin[5 - 7 Sqrt[t - 43.343750 + 7]]]]] +
Cos[200 (t - 43.343750 + 7)]])*3.40574*10^17,
43.343750 < t < 43.437500}, {0,
43.437500 < t <
43.468750}, {(((Log[8] - Log[(t + 7 - 43.468750)])^20)*
SquareWave[(t - 43.468750 +
7)^5 SquareWave[((t - 43.468750 + 7)^20 +
5 (t - 43.468750 + 7)) SawtoothWave[
400/(t - 43.468750 + 7) Cos[
Sin[5 - 7 Sqrt[t - 43.468750 + 7]]]]] +
Cos[200 (t - 43.468750 + 7)]])*3.40574*10^17,
43.468750 < t < 43.562500}, {0,
43.562500 < t <
43.593750}, {(((Log[8] - Log[(t + 7 - 43.593750)])^20)*
SquareWave[(t - 43.593750 +
7)^5 SquareWave[((t - 43.593750 + 7)^20 +
5 (t - 43.593750 + 7)) SawtoothWave[
400/(t - 43.593750 + 7) Cos[
Sin[5 - 7 Sqrt[t - 43.593750 + 7]]]]] +
Cos[200 (t - 43.593750 + 7)]])*3.40574*10^17,
43.593750 < t < 43.687500}, {0,
43.687500 < t <
43.718750}, {(((Log[8] - Log[(t + 7 - 43.718750)])^20)*
SquareWave[(t - 43.718750 +
7)^5 SquareWave[((t - 43.718750 + 7)^20 +
5 (t - 43.718750 + 7)) SawtoothWave[
400/(t - 43.718750 + 7) Cos[
Sin[5 - 7 Sqrt[t - 43.718750 + 7]]]]] +
Cos[200 (t - 43.718750 + 7)]])*3.40574*10^17,
43.718750 < t < 43.812500}, {0,
43.812500 < t <
43.843750}, {(((Log[8] - Log[(t + 7 - 43.843750)])^20)*
SquareWave[(t - 43.843750 +
7)^5 SquareWave[((t - 43.843750 + 7)^20 +
5 (t - 43.843750 + 7)) SawtoothWave[
400/(t - 43.843750 + 7) Cos[
Sin[5 - 7 Sqrt[t - 43.843750 + 7]]]]] +
Cos[200 (t - 43.843750 + 7)]])*3.40574*10^17,
43.843750 < t < 43.937500}, {0,
43.937500 < t <
43.968750}, {(((Log[8] - Log[(t + 7 - 43.968750)])^20)*
SquareWave[(t - 43.968750 +
7)^5 SquareWave[((t - 43.968750 + 7)^20 +
5 (t - 43.968750 + 7)) SawtoothWave[
400/(t - 43.968750 + 7) Cos[
Sin[5 - 7 Sqrt[t - 43.968750 + 7]]]]] +
Cos[200 (t - 43.968750 + 7)]])*3.40574*10^17,
43.968750 < t < 44.437500}, {0,
44.437500 < t <
44.468750}, {(((Log[8] - Log[(t + 7 - 44.468750)])^20)*
SquareWave[(t - 44.468750 +
7)^5 SquareWave[((t - 44.468750 + 7)^20 +
5 (t - 44.468750 + 7)) SawtoothWave[
400/(t - 44.468750 + 7) Cos[
Sin[5 - 7 Sqrt[t - 44.468750 + 7]]]]] +
Cos[200 (t - 44.468750 + 7)]])*3.40574*10^17,
44.468750 < t < 44.937500}, {0,
44.937500 < t <
44.968750}, {(((Log[8] - Log[(t + 7 - 44.968750)])^20)*
SquareWave[(t - 44.968750 +
7)^5 SquareWave[((t - 44.968750 + 7)^20 +
5 (t - 44.968750 + 7)) SawtoothWave[
400/(t - 44.968750 + 7) Cos[
Sin[5 - 7 Sqrt[t - 44.968750 + 7]]]]] +
Cos[200 (t - 44.968750 + 7)]])*3.40574*10^17,
44.968750 < t < 45.437500}, {0,
45.437500 < t <
45.468750}, {(((Log[8] - Log[(t + 7 - 45.468750)])^20)*
SquareWave[(t - 45.468750 +
7)^5 SquareWave[((t - 45.468750 + 7)^20 +
5 (t - 45.468750 + 7)) SawtoothWave[
400/(t - 45.468750 + 7) Cos[
Sin[5 - 7 Sqrt[t - 45.468750 + 7]]]]] +
Cos[200 (t - 45.468750 + 7)]])*3.40574*10^17,
45.468750 < t <
45.968750}, {((1 -
Log[(5 - (t - 45.968750))^(5 - (t - 45.968750))])*
Sin[440 (5 - (t -
45.968750)) + (5 - (t - 45.968750))^2 SawtoothWave[
400/(5 - (t - 45.968750)) Cos[
Sin[5 - (t - 45.968750)]]]])/7.01859,
45.968750 < t <
46.468750}, {(((Log[8] - Log[t + 7 - 46.468750])^20)*
SquareWave[
Sin[(t + 7 - 46.468750)^2 SawtoothWave[
400/(t + 7 - 46.468750) Cos[
Sin[5 - 2 Sqrt[(t + 7 - 46.468750)]]]]] +
Cos[40 (t + 7 - 46.468750)]])/(3.76468*10^(-18)),
46.468750 < t <
46.718750}, {((1 -
Log[(4 - (t - 46.718750))^(4 - (t - 46.718750))])*
Sin[440 (4 - (t -
46.718750)) + (4 - (t - 46.718750))^2 SawtoothWave[
400/(4 - (t - 46.718750)) Cos[
Sin[4 - (t - 46.718750)]]]])/7,
46.718750 < t <
47.968750}, {((1 -
Log[(5 - (t - 47.968750))^(5 - (t - 47.968750))])*
Sin[440 (5 - (t -
47.968750)) + (5 - (t - 47.968750))^2 SawtoothWave[
400/(5 - (t - 47.968750)) Cos[
Sin[5 - (t - 47.968750)]]]])/7.01859,
47.968750 < t <
48.468750}, {(((Log[8] - Log[t + 7 - 48.468750])^20)*
SquareWave[
Sin[(t + 7 - 48.468750)^2 SawtoothWave[
400/(t + 7 - 48.468750) Cos[
Sin[5 - 2 Sqrt[(t + 7 - 48.468750)]]]]] +
Cos[40 (t + 7 - 48.468750)]])/(3.76468*10^(-18)),
48.468750 < t <
48.718750}, {((1 -
Log[(4 - (t - 48.718750))^(4 - (t - 48.718750))])*
Sin[440 (4 - (t -
48.718750)) + (4 - (t - 48.718750))^2 SawtoothWave[
400/(4 - (t - 48.718750)) Cos[
Sin[4 - (t - 48.718750)]]]])/7,
48.718750 < t <
49.718750}, {((1 - Log[(t - 49.718750)^(t - 49.718750)])*
Sin[440 (t - 49.718750) SawtoothWave[
400/(t - 49.718750)]])/1.21065,
49.718750 < t <
49.968750}, {((1 -
Log[(5 - (t - 49.968750))^(5 - (t - 49.968750))])*
Sin[440 (5 - (t -
49.968750)) + (5 - (t - 49.968750))^2 SawtoothWave[
400/(5 - (t - 49.968750)) Cos[
Sin[5 - (t - 49.968750)]]]])/7.01859,
49.968750 < t <
50.468750}, {((1 - Log[(t - 50.468750)^(t - 50.468750)])*
Sin[440 (t - 50.468750) SawtoothWave[
400/(t - 50.468750)]])/1.21065,
50.468750 < t <
50.531250}, {(((Log[8] - Log[t + 7 - 50.531250])^20)*
SquareWave[
Sin[(t + 7 - 50.531250)^2 SawtoothWave[
400/(t + 7 - 50.531250) Cos[
Sin[5 - 2 Sqrt[(t + 7 - 50.531250)]]]]] +
Cos[40 (t + 7 - 50.531250)]])/(3.76468*10^(-18)),
50.531250 < t <
50.718750}, {((1 -
Log[(4 - (t - 50.718750))^(4 - (t - 50.718750))])*
Sin[440 (4 - (t -
50.718750)) + (4 - (t - 50.718750))^2 SawtoothWave[
400/(4 - (t - 50.718750)) Cos[
Sin[4 - (t - 50.718750)]]]])/7,
50.718750 < t <
51.718750}, {((1 - Log[(t - 51.718750)^(t - 51.718750)])*
Sin[440 (t - 51.718750) SawtoothWave[
400/(t - 51.718750)]])/1.21065,
51.718750 < t <
51.968750}, {((1 -
Log[(4 - (t - 51.968750))^(4 - (t - 51.968750))])*
Sin[440 (4 - (t -
51.968750)) + (4 - (t - 51.968750))^2 SawtoothWave[
400/(4 - (t - 51.968750)) Cos[
Sin[4 - (t - 51.968750)]]]])/7,
51.968750 < t <
52.468750}, {((1 - Log[(t - 52.468750)^(t - 52.468750)])*
Sin[440 (t - 52.468750) SawtoothWave[
400/(t - 52.468750)]])/1.21065,
52.468750 < t <
52.500000}, {(((Log[8] - Log[t + 7 - 52.500000])^20)*
SquareWave[
Sin[(t + 7 - 52.500000)^2 SawtoothWave[
400/(t + 7 - 52.500000) Cos[
Sin[5 - 2 Sqrt[(t + 7 - 52.500000)]]]]] +
Cos[40 (t + 7 - 52.500000)]])/(3.76468*10^(-18)),
52.500000 < t <
52.531250}, {((1 - Log[(t - 52.531250)^(t - 52.531250)])*
Sin[440 (t - 52.531250) SawtoothWave[
400/(t - 52.531250)]])/1.21065,
52.531250 < t <
52.562500}, {(((Log[8] - Log[t + 7 - 52.562500])^20)*
SquareWave[
Sin[(t + 7 - 52.562500)^2 SawtoothWave[
400/(t + 7 - 52.562500) Cos[
Sin[5 - 2 Sqrt[(t + 7 - 52.562500)]]]]] +
Cos[40 (t + 7 - 52.562500)]])/(3.76468*10^(-18)),
52.562500 < t <
52.593750}, {((1 - Log[(t - 52.593750)^(t - 52.593750)])*
Sin[440 (t - 52.593750) SawtoothWave[
400/(t - 52.593750)]])/1.21065,
52.593750 < t <
52.625000}, {(((Log[8] - Log[t + 7 - 52.625000])^20)*
SquareWave[
Sin[(t + 7 - 52.625000)^2 SawtoothWave[
400/(t + 7 - 52.625000) Cos[
Sin[5 - 2 Sqrt[(t + 7 - 52.625000)]]]]] +
Cos[40 (t + 7 - 52.625000)]])/(3.76468*10^(-18)),
52.625000 < t <
52.656250}, {((1 - Log[(t - 52.656250)^(t - 52.656250)])*
Sin[440 (t - 52.656250) SawtoothWave[
400/(t - 52.656250)]])/1.21065,
52.656250 < t <
52.687500}, {(((Log[8] - Log[t + 7 - 52.687500])^20)*
SquareWave[
Sin[(t + 7 - 52.687500)^2 SawtoothWave[
400/(t + 7 - 52.687500) Cos[
Sin[5 - 2 Sqrt[(t + 7 - 52.687500)]]]]] +
Cos[40 (t + 7 - 52.687500)]])/(3.76468*10^(-18)),
52.687500 < t <
52.718750}, {((1 -
Log[(4 - (t - 52.718750))^(4 - (t - 52.718750))])*
Sin[440 (4 - (t -
52.718750)) + (4 - (t - 52.718750))^2 SawtoothWave[
400/(4 - (t - 52.718750)) Cos[
Sin[4 - (t - 52.718750)]]]])/7,
52.718750 < t <
53.718750}, {((1 - Log[(t - 53.718750)^(t - 53.718750)])*
Sin[440 (t - 53.718750) SawtoothWave[
400/(t - 53.718750)]])/1.21065,
53.718750 < t < 53.937500}, {0,
53.937500 < t <
53.968750}, {((1 - Log[(t - 53.968750)^(t - 53.968750)])*
Sin[440 (t - 53.968750) SawtoothWave[
400/(t - 53.968750)]])/1.21065,
53.968750 < t <
54.468750}, {(((Log[8] - Log[t + 7 - 54.468750])^20)*
SquareWave[
Sin[(t + 7 - 54.468750)^2 SawtoothWave[
400/(t + 7 - 54.468750) Cos[
Sin[5 - 2 Sqrt[(t + 7 - 54.468750)]]]]] +
Cos[40 (t + 7 - 54.468750)]])/(3.76468*10^(-18)),
54.468750 < t <
54.718750}, {((1 -
Log[(4 - (t - 54.718750))^(4 - (t - 54.718750))])*
Sin[440 (4 - (t -
54.718750)) + (4 - (t - 54.718750))^2 SawtoothWave[
400/(4 - (t - 54.718750)) Cos[
Sin[4 - (t - 54.718750)]]]])/7,
54.718750 < t <
55.718750}, {((1 - Log[(t - 55.718750)^(t - 55.718750)])*
Sin[440 (t - 55.718750) SawtoothWave[
400/(t - 55.718750)]])/1.21065,
55.718750 < t <
56.468750}, {(((Log[8] - Log[t + 7 - 56.468750])^20)*
SquareWave[
Sin[(t + 7 - 56.468750)^2 SawtoothWave[
400/(t + 7 - 56.468750) Cos[
Sin[5 - 2 Sqrt[(t + 7 - 56.468750)]]]]] +
Cos[40 (t + 7 - 56.468750)]])/(3.76468*10^(-18)),
56.468750 < t <
56.718750}, {((1 - Log[(t - 56.718750)^(t - 56.718750)])*
Sin[440 (t - 56.718750) SawtoothWave[
400/(t - 56.718750)]])/1.21065,
56.718750 < t <
57.937500}, {(((Log[8] - Log[t + 7 - 57.937500])^20)*
SquareWave[
Sin[(t + 7 - 57.937500)^2 SawtoothWave[
400/(t + 7 - 57.937500) Cos[
Sin[5 - 2 Sqrt[(t + 7 - 57.937500)]]]]] +
Cos[40 (t + 7 - 57.937500)]])/(3.76468*10^(-18)),
57.937500 < t <
57.968750}, {((1 - Log[(t - 57.968750)^(t - 57.968750)])*
Sin[440 (t - 57.968750) SawtoothWave[
400/(t - 57.968750)]])/1.21065,
57.968750 < t <
63.968750}, {(((Log[8] - Log[t + 7 - 63.968750])^20)*
SquareWave[
Sin[(t + 7 - 63.968750)^2 SawtoothWave[
400/(t + 7 - 63.968750) Cos[
Sin[5 - 2 Sqrt[(t + 7 - 63.968750)]]]]] +
Cos[40 (t + 7 - 63.968750)]])/(3.76468*10^(-18)),
63.968750 < t < 64.031250}}] +
10 Piecewise[{{0,
0.0000000 < t <
11.968750}, {(TriangleWave[
0.1 (2.4 + t - 11.968750)]^20) (If[
Sin[31.747999 (2.4 + t - 11.968750)] <
Tan[31.747999 (2.4 + t - 11.968750)],
If[Sin[698.45599 Pi (2.4 + t - 11.968750)] >
Cos[698.45599 Pi (2.4 + t - 11.968750)],
Sin[698.45599 Pi (2.4 + t - 11.968750)],
TriangleWave[698.45599 (t - 11.968750)]],
If[Sin[349.22800 Pi (2.4 + t - 11.968750)] >
Cos[349.22800 Pi (2.4 + t - 11.968750)],
Sin[349.22800 Pi (2.4 + t - 11.968750)],
TriangleWave[349.22800 (2.4 + t - 11.968750)]]]),
11.968750 < t <
12.093750}, {(TriangleWave[
0.1 (2.4 + t - 12.093750)]^20) (If[
Sin[40.000000 (2.4 + t - 12.093750)] <
Tan[40.000000 (2.4 + t - 12.093750)],
If[Sin[880.00000 Pi (2.4 + t - 12.093750)] >
Cos[880.00000 Pi (2.4 + t - 12.093750)],
Sin[880.00000 Pi (2.4 + t - 12.093750)],
TriangleWave[880.00000 (t - 12.093750)]],
If[Sin[440.00000 Pi (2.4 + t - 12.093750)] >
Cos[440.00000 Pi (2.4 + t - 12.093750)],
Sin[440.00000 Pi (2.4 + t - 12.093750)],
TriangleWave[440.00000 (2.4 + t - 12.093750)]]]),
12.093750 < t <
12.218750}, {(TriangleWave[
0.1 (2.4 + t - 12.218750)]^20) (If[
Sin[47.581455 (2.4 + t - 12.218750)] <
Tan[47.581455 (2.4 + t - 12.218750)],
If[Sin[1046.7920 Pi (2.4 + t - 12.218750)] >
Cos[1046.7920 Pi (2.4 + t - 12.218750)],
Sin[1046.7920 Pi (2.4 + t - 12.218750)],
TriangleWave[1046.7920 (t - 12.218750)]],
If[Sin[523.39600 Pi (2.4 + t - 12.218750)] >
Cos[523.39600 Pi (2.4 + t - 12.218750)],
Sin[523.39600 Pi (2.4 + t - 12.218750)],
TriangleWave[523.39600 (2.4 + t - 12.218750)]]]),
12.218750 < t <
12.343750}, {(TriangleWave[
0.1 (2.4 + t - 12.343750)]^20) (If[
Sin[53.393639 (2.4 + t - 12.343750)] <
Tan[53.393639 (2.4 + t - 12.343750)],
If[Sin[1174.6600 Pi (2.4 + t - 12.343750)] >
Cos[1174.6600 Pi (2.4 + t - 12.343750)],
Sin[1174.6600 Pi (2.4 + t - 12.343750)],
TriangleWave[1174.6600 (t - 12.343750)]],
If[Sin[587.33002 Pi (2.4 + t - 12.343750)] >
Cos[587.33002 Pi (2.4 + t - 12.343750)],
Sin[587.33002 Pi (2.4 + t - 12.343750)],
TriangleWave[587.33002 (2.4 + t - 12.343750)]]]),
12.343750 < t <
12.437500}, {(TriangleWave[
0.1 (2.4 + t - 12.437500)]^20) (If[
Sin[59.932362 (2.4 + t - 12.437500)] <
Tan[59.932362 (2.4 + t - 12.437500)],
If[Sin[1318.5120 Pi (2.4 + t - 12.437500)] >
Cos[1318.5120 Pi (2.4 + t - 12.437500)],
Sin[1318.5120 Pi (2.4 + t - 12.437500)],
TriangleWave[1318.5120 (t - 12.437500)]],
If[Sin[659.25598 Pi (2.4 + t - 12.437500)] >
Cos[659.25598 Pi (2.4 + t - 12.437500)],
Sin[659.25598 Pi (2.4 + t - 12.437500)],
TriangleWave[659.25598 (2.4 + t - 12.437500)]]]),
12.437500 < t < 12.687500}, {0,
12.687500 < t <
12.812500}, {(TriangleWave[
0.1 (2.4 + t - 12.812500)]^20) (If[
Sin[31.747999 (2.4 + t - 12.812500)] <
Tan[31.747999 (2.4 + t - 12.812500)],
If[Sin[698.45599 Pi (2.4 + t - 12.812500)] >
Cos[698.45599 Pi (2.4 + t - 12.812500)],
Sin[698.45599 Pi (2.4 + t - 12.812500)],
TriangleWave[698.45599 (t - 12.812500)]],
If[Sin[349.22800 Pi (2.4 + t - 12.812500)] >
Cos[349.22800 Pi (2.4 + t - 12.812500)],
Sin[349.22800 Pi (2.4 + t - 12.812500)],
TriangleWave[349.22800 (2.4 + t - 12.812500)]]]),
12.812500 < t < 12.937500}, {0,
12.937500 < t <
13.187500}, {(TriangleWave[
0.1 (2.4 + t - 13.187500)]^20) (If[
Sin[31.747999 (2.4 + t - 13.187500)] <
Tan[31.747999 (2.4 + t - 13.187500)],
If[Sin[698.45599 Pi (2.4 + t - 13.187500)] >
Cos[698.45599 Pi (2.4 + t - 13.187500)],
Sin[698.45599 Pi (2.4 + t - 13.187500)],
TriangleWave[698.45599 (t - 13.187500)]],
If[Sin[349.22800 Pi (2.4 + t - 13.187500)] >
Cos[349.22800 Pi (2.4 + t - 13.187500)],
Sin[349.22800 Pi (2.4 + t - 13.187500)],
TriangleWave[349.22800 (2.4 + t - 13.187500)]]]),
13.187500 < t < 13.312500}, {0,
13.312500 < t <
13.562500}, {(TriangleWave[
0.1 (2.4 + t - 13.562500)]^20) (If[
Sin[31.747999 (2.4 + t - 13.562500)] <
Tan[31.747999 (2.4 + t - 13.562500)],
If[Sin[698.45599 Pi (2.4 + t - 13.562500)] >
Cos[698.45599 Pi (2.4 + t - 13.562500)],
Sin[698.45599 Pi (2.4 + t - 13.562500)],
TriangleWave[698.45599 (t - 13.562500)]],
If[Sin[349.22800 Pi (2.4 + t - 13.562500)] >
Cos[349.22800 Pi (2.4 + t - 13.562500)],
Sin[349.22800 Pi (2.4 + t - 13.562500)],
TriangleWave[349.22800 (2.4 + t - 13.562500)]]]),
13.562500 < t < 13.687500}, {0,
13.687500 < t <
13.968750}, {(TriangleWave[
0.1 (2.4 + t - 13.968750)]^20) (If[
Sin[31.747999 (2.4 + t - 13.968750)] <
Tan[31.747999 (2.4 + t - 13.968750)],
If[Sin[698.45599 Pi (2.4 + t - 13.968750)] >
Cos[698.45599 Pi (2.4 + t - 13.968750)],
Sin[698.45599 Pi (2.4 + t - 13.968750)],
TriangleWave[698.45599 (t - 13.968750)]],
If[Sin[349.22800 Pi (2.4 + t - 13.968750)] >
Cos[349.22800 Pi (2.4 + t - 13.968750)],
Sin[349.22800 Pi (2.4 + t - 13.968750)],
TriangleWave[349.22800 (2.4 + t - 13.968750)]]]),
13.968750 < t <
14.093750}, {(TriangleWave[
0.1 (2.4 + t - 14.093750)]^20) (If[
Sin[40.000000 (2.4 + t - 14.093750)] <
Tan[40.000000 (2.4 + t - 14.093750)],
If[Sin[880.00000 Pi (2.4 + t - 14.093750)] >
Cos[880.00000 Pi (2.4 + t - 14.093750)],
Sin[880.00000 Pi (2.4 + t - 14.093750)],
TriangleWave[880.00000 (t - 14.093750)]],
If[Sin[440.00000 Pi (2.4 + t - 14.093750)] >
Cos[440.00000 Pi (2.4 + t - 14.093750)],
Sin[440.00000 Pi (2.4 + t - 14.093750)],
TriangleWave[440.00000 (2.4 + t - 14.093750)]]]),
14.093750 < t <
14.218750}, {(TriangleWave[
0.1 (2.4 + t - 14.218750)]^20) (If[
Sin[47.581455 (2.4 + t - 14.218750)] <
Tan[47.581455 (2.4 + t - 14.218750)],
If[Sin[1046.7920 Pi (2.4 + t - 14.218750)] >
Cos[1046.7920 Pi (2.4 + t - 14.218750)],
Sin[1046.7920 Pi (2.4 + t - 14.218750)],
TriangleWave[1046.7920 (t - 14.218750)]],
If[Sin[523.39600 Pi (2.4 + t - 14.218750)] >
Cos[523.39600 Pi (2.4 + t - 14.218750)],
Sin[523.39600 Pi (2.4 + t - 14.218750)],
TriangleWave[523.39600 (2.4 + t - 14.218750)]]]),
14.218750 < t <
14.343750}, {(TriangleWave[
0.1 (2.4 + t - 14.343750)]^20) (If[
Sin[53.393639 (2.4 + t - 14.343750)] <
Tan[53.393639 (2.4 + t - 14.343750)],
If[Sin[1174.6600 Pi (2.4 + t - 14.343750)] >
Cos[1174.6600 Pi (2.4 + t - 14.343750)],
Sin[1174.6600 Pi (2.4 + t - 14.343750)],
TriangleWave[1174.6600 (t - 14.343750)]],
If[Sin[587.33002 Pi (2.4 + t - 14.343750)] >
Cos[587.33002 Pi (2.4 + t - 14.343750)],
Sin[587.33002 Pi (2.4 + t - 14.343750)],
TriangleWave[587.33002 (2.4 + t - 14.343750)]]]),
14.343750 < t <
14.437500}, {(TriangleWave[
0.1 (2.4 + t - 14.437500)]^20) (If[
Sin[59.932362 (2.4 + t - 14.437500)] <
Tan[59.932362 (2.4 + t - 14.437500)],
If[Sin[1318.5120 Pi (2.4 + t - 14.437500)] >
Cos[1318.5120 Pi (2.4 + t - 14.437500)],
Sin[1318.5120 Pi (2.4 + t - 14.437500)],
TriangleWave[1318.5120 (t - 14.437500)]],
If[Sin[659.25598 Pi (2.4 + t - 14.437500)] >
Cos[659.25598 Pi (2.4 + t - 14.437500)],
Sin[659.25598 Pi (2.4 + t - 14.437500)],
TriangleWave[659.25598 (2.4 + t - 14.437500)]]]),
14.437500 < t < 14.687500}, {0,
14.687500 < t <
14.812500}, {(TriangleWave[
0.1 (2.4 + t - 14.812500)]^20) (If[
Sin[31.747999 (2.4 + t - 14.812500)] <
Tan[31.747999 (2.4 + t - 14.812500)],
If[Sin[698.45599 Pi (2.4 + t - 14.812500)] >
Cos[698.45599 Pi (2.4 + t - 14.812500)],
Sin[698.45599 Pi (2.4 + t - 14.812500)],
TriangleWave[698.45599 (t - 14.812500)]],
If[Sin[349.22800 Pi (2.4 + t - 14.812500)] >
Cos[349.22800 Pi (2.4 + t - 14.812500)],
Sin[349.22800 Pi (2.4 + t - 14.812500)],
TriangleWave[349.22800 (2.4 + t - 14.812500)]]]),
14.812500 < t < 14.937500}, {0,
14.937500 < t <
15.187500}, {(TriangleWave[
0.1 (2.4 + t - 15.187500)]^20) (If[
Sin[31.747999 (2.4 + t - 15.187500)] <
Tan[31.747999 (2.4 + t - 15.187500)],
If[Sin[698.45599 Pi (2.4 + t - 15.187500)] >
Cos[698.45599 Pi (2.4 + t - 15.187500)],
Sin[698.45599 Pi (2.4 + t - 15.187500)],
TriangleWave[698.45599 (t - 15.187500)]],
If[Sin[349.22800 Pi (2.4 + t - 15.187500)] >
Cos[349.22800 Pi (2.4 + t - 15.187500)],
Sin[349.22800 Pi (2.4 + t - 15.187500)],
TriangleWave[349.22800 (2.4 + t - 15.187500)]]]),
15.187500 < t < 15.312500}, {0,
15.312500 < t <
15.562500}, {(TriangleWave[
0.1 (2.4 + t - 15.562500)]^20) (If[
Sin[31.747999 (2.4 + t - 15.562500)] <
Tan[31.747999 (2.4 + t - 15.562500)],
If[Sin[698.45599 Pi (2.4 + t - 15.562500)] >
Cos[698.45599 Pi (2.4 + t - 15.562500)],
Sin[698.45599 Pi (2.4 + t - 15.562500)],
TriangleWave[698.45599 (t - 15.562500)]],
If[Sin[349.22800 Pi (2.4 + t - 15.562500)] >
Cos[349.22800 Pi (2.4 + t - 15.562500)],
Sin[349.22800 Pi (2.4 + t - 15.562500)],
TriangleWave[349.22800 (2.4 + t - 15.562500)]]]),
15.562500 < t < 15.687500}, {0,
15.687500 < t <
15.968750}, {(TriangleWave[
0.1 (2.4 + t - 15.968750)]^20) (If[
Sin[31.747999 (2.4 + t - 15.968750)] <
Tan[31.747999 (2.4 + t - 15.968750)],
If[Sin[698.45599 Pi (2.4 + t - 15.968750)] >
Cos[698.45599 Pi (2.4 + t - 15.968750)],
Sin[698.45599 Pi (2.4 + t - 15.968750)],
TriangleWave[698.45599 (t - 15.968750)]],
If[Sin[349.22800 Pi (2.4 + t - 15.968750)] >
Cos[349.22800 Pi (2.4 + t - 15.968750)],
Sin[349.22800 Pi (2.4 + t - 15.968750)],
TriangleWave[349.22800 (2.4 + t - 15.968750)]]]),
15.968750 < t <
16.093750}, {(TriangleWave[
0.1 (2.4 + t - 16.093750)]^20) (If[
Sin[40.000000 (2.4 + t - 16.093750)] <
Tan[40.000000 (2.4 + t - 16.093750)],
If[Sin[880.00000 Pi (2.4 + t - 16.093750)] >
Cos[880.00000 Pi (2.4 + t - 16.093750)],
Sin[880.00000 Pi (2.4 + t - 16.093750)],
TriangleWave[880.00000 (t - 16.093750)]],
If[Sin[440.00000 Pi (2.4 + t - 16.093750)] >
Cos[440.00000 Pi (2.4 + t - 16.093750)],
Sin[440.00000 Pi (2.4 + t - 16.093750)],
TriangleWave[440.00000 (2.4 + t - 16.093750)]]]),
16.093750 < t <
16.218750}, {(TriangleWave[
0.1 (2.4 + t - 16.218750)]^20) (If[
Sin[47.581455 (2.4 + t - 16.218750)] <
Tan[47.581455 (2.4 + t - 16.218750)],
If[Sin[1046.7920 Pi (2.4 + t - 16.218750)] >
Cos[1046.7920 Pi (2.4 + t - 16.218750)],
Sin[1046.7920 Pi (2.4 + t - 16.218750)],
TriangleWave[1046.7920 (t - 16.218750)]],
If[Sin[523.39600 Pi (2.4 + t - 16.218750)] >
Cos[523.39600 Pi (2.4 + t - 16.218750)],
Sin[523.39600 Pi (2.4 + t - 16.218750)],
TriangleWave[523.39600 (2.4 + t - 16.218750)]]]),
16.218750 < t <
16.343750}, {(TriangleWave[
0.1 (2.4 + t - 16.343750)]^20) (If[
Sin[53.393639 (2.4 + t - 16.343750)] <
Tan[53.393639 (2.4 + t - 16.343750)],
If[Sin[1174.6600 Pi (2.4 + t - 16.343750)] >
Cos[1174.6600 Pi (2.4 + t - 16.343750)],
Sin[1174.6600 Pi (2.4 + t - 16.343750)],
TriangleWave[1174.6600 (t - 16.343750)]],
If[Sin[587.33002 Pi (2.4 + t - 16.343750)] >
Cos[587.33002 Pi (2.4 + t - 16.343750)],
Sin[587.33002 Pi (2.4 + t - 16.343750)],
TriangleWave[587.33002 (2.4 + t - 16.343750)]]]),
16.343750 < t <
16.437500}, {(TriangleWave[
0.1 (2.4 + t - 16.437500)]^20) (If[
Sin[59.932362 (2.4 + t - 16.437500)] <
Tan[59.932362 (2.4 + t - 16.437500)],
If[Sin[1318.5120 Pi (2.4 + t - 16.437500)] >
Cos[1318.5120 Pi (2.4 + t - 16.437500)],
Sin[1318.5120 Pi (2.4 + t - 16.437500)],
TriangleWave[1318.5120 (t - 16.437500)]],
If[Sin[659.25598 Pi (2.4 + t - 16.437500)] >
Cos[659.25598 Pi (2.4 + t - 16.437500)],
Sin[659.25598 Pi (2.4 + t - 16.437500)],
TriangleWave[659.25598 (2.4 + t - 16.437500)]]]),
16.437500 < t < 16.687500}, {0,
16.687500 < t <
16.812500}, {(TriangleWave[
0.1 (2.4 + t - 16.812500)]^20) (If[
Sin[31.747999 (2.4 + t - 16.812500)] <
Tan[31.747999 (2.4 + t - 16.812500)],
If[Sin[698.45599 Pi (2.4 + t - 16.812500)] >
Cos[698.45599 Pi (2.4 + t - 16.812500)],
Sin[698.45599 Pi (2.4 + t - 16.812500)],
TriangleWave[698.45599 (t - 16.812500)]],
If[Sin[349.22800 Pi (2.4 + t - 16.812500)] >
Cos[349.22800 Pi (2.4 + t - 16.812500)],
Sin[349.22800 Pi (2.4 + t - 16.812500)],
TriangleWave[349.22800 (2.4 + t - 16.812500)]]]),
16.812500 < t < 16.937500}, {0,
16.937500 < t <
17.187500}, {(TriangleWave[
0.1 (2.4 + t - 17.187500)]^20) (If[
Sin[31.747999 (2.4 + t - 17.187500)] <
Tan[31.747999 (2.4 + t - 17.187500)],
If[Sin[698.45599 Pi (2.4 + t - 17.187500)] >
Cos[698.45599 Pi (2.4 + t - 17.187500)],
Sin[698.45599 Pi (2.4 + t - 17.187500)],
TriangleWave[698.45599 (t - 17.187500)]],
If[Sin[349.22800 Pi (2.4 + t - 17.187500)] >
Cos[349.22800 Pi (2.4 + t - 17.187500)],
Sin[349.22800 Pi (2.4 + t - 17.187500)],
TriangleWave[349.22800 (2.4 + t - 17.187500)]]]),
17.187500 < t < 17.312500}, {0,
17.312500 < t <
17.562500}, {(TriangleWave[
0.1 (2.4 + t - 17.562500)]^20) (If[
Sin[31.747999 (2.4 + t - 17.562500)] <
Tan[31.747999 (2.4 + t - 17.562500)],
If[Sin[698.45599 Pi (2.4 + t - 17.562500)] >
Cos[698.45599 Pi (2.4 + t - 17.562500)],
Sin[698.45599 Pi (2.4 + t - 17.562500)],
TriangleWave[698.45599 (t - 17.562500)]],
If[Sin[349.22800 Pi (2.4 + t - 17.562500)] >
Cos[349.22800 Pi (2.4 + t - 17.562500)],
Sin[349.22800 Pi (2.4 + t - 17.562500)],
TriangleWave[349.22800 (2.4 + t - 17.562500)]]]),
17.562500 < t < 17.687500}, {0,
17.687500 < t <
17.968750}, {(TriangleWave[
0.1 (2.4 + t - 17.968750)]^20) (If[
Sin[31.747999 (2.4 + t - 17.968750)] <
Tan[31.747999 (2.4 + t - 17.968750)],
If[Sin[698.45599 Pi (2.4 + t - 17.968750)] >
Cos[698.45599 Pi (2.4 + t - 17.968750)],
Sin[698.45599 Pi (2.4 + t - 17.968750)],
TriangleWave[698.45599 (t - 17.968750)]],
If[Sin[349.22800 Pi (2.4 + t - 17.968750)] >
Cos[349.22800 Pi (2.4 + t - 17.968750)],
Sin[349.22800 Pi (2.4 + t - 17.968750)],
TriangleWave[349.22800 (2.4 + t - 17.968750)]]]),
17.968750 < t <
18.093750}, {(TriangleWave[
0.1 (2.4 + t - 18.093750)]^20) (If[
Sin[40.000000 (2.4 + t - 18.093750)] <
Tan[40.000000 (2.4 + t - 18.093750)],
If[Sin[880.00000 Pi (2.4 + t - 18.093750)] >
Cos[880.00000 Pi (2.4 + t - 18.093750)],
Sin[880.00000 Pi (2.4 + t - 18.093750)],
TriangleWave[880.00000 (t - 18.093750)]],
If[Sin[440.00000 Pi (2.4 + t - 18.093750)] >
Cos[440.00000 Pi (2.4 + t - 18.093750)],
Sin[440.00000 Pi (2.4 + t - 18.093750)],
TriangleWave[440.00000 (2.4 + t - 18.093750)]]]),
18.093750 < t <
18.218750}, {(TriangleWave[
0.1 (2.4 + t - 18.218750)]^20) (If[
Sin[47.581455 (2.4 + t - 18.218750)] <
Tan[47.581455 (2.4 + t - 18.218750)],
If[Sin[1046.7920 Pi (2.4 + t - 18.218750)] >
Cos[1046.7920 Pi (2.4 + t - 18.218750)],
Sin[1046.7920 Pi (2.4 + t - 18.218750)],
TriangleWave[1046.7920 (t - 18.218750)]],
If[Sin[523.39600 Pi (2.4 + t - 18.218750)] >
Cos[523.39600 Pi (2.4 + t - 18.218750)],
Sin[523.39600 Pi (2.4 + t - 18.218750)],
TriangleWave[523.39600 (2.4 + t - 18.218750)]]]),
18.218750 < t <
18.343750}, {(TriangleWave[
0.1 (2.4 + t - 18.343750)]^20) (If[
Sin[53.393639 (2.4 + t - 18.343750)] <
Tan[53.393639 (2.4 + t - 18.343750)],
If[Sin[1174.6600 Pi (2.4 + t - 18.343750)] >
Cos[1174.6600 Pi (2.4 + t - 18.343750)],
Sin[1174.6600 Pi (2.4 + t - 18.343750)],
TriangleWave[1174.6600 (t - 18.343750)]],
If[Sin[587.33002 Pi (2.4 + t - 18.343750)] >
Cos[587.33002 Pi (2.4 + t - 18.343750)],
Sin[587.33002 Pi (2.4 + t - 18.343750)],
TriangleWave[587.33002 (2.4 + t - 18.343750)]]]),
18.343750 < t <
18.468750}, {(TriangleWave[
0.1 (2.4 + t - 18.468750)]^20) (If[
Sin[59.932362 (2.4 + t - 18.468750)] <
Tan[59.932362 (2.4 + t - 18.468750)],
If[Sin[1318.5120 Pi (2.4 + t - 18.468750)] >
Cos[1318.5120 Pi (2.4 + t - 18.468750)],
Sin[1318.5120 Pi (2.4 + t - 18.468750)],
TriangleWave[1318.5120 (t - 18.468750)]],
If[Sin[659.25598 Pi (2.4 + t - 18.468750)] >
Cos[659.25598 Pi (2.4 + t - 18.468750)],
Sin[659.25598 Pi (2.4 + t - 18.468750)],
TriangleWave[659.25598 (2.4 + t - 18.468750)]]]),
18.468750 < t <
18.593750}, {(TriangleWave[
0.1 (2.4 + t - 18.593750)]^20) (If[
Sin[53.393639 (2.4 + t - 18.593750)] <
Tan[53.393639 (2.4 + t - 18.593750)],
If[Sin[1174.6600 Pi (2.4 + t - 18.593750)] >
Cos[1174.6600 Pi (2.4 + t - 18.593750)],
Sin[1174.6600 Pi (2.4 + t - 18.593750)],
TriangleWave[1174.6600 (t - 18.593750)]],
If[Sin[587.33002 Pi (2.4 + t - 18.593750)] >
Cos[587.33002 Pi (2.4 + t - 18.593750)],
Sin[587.33002 Pi (2.4 + t - 18.593750)],
TriangleWave[587.33002 (2.4 + t - 18.593750)]]]),
18.593750 < t <
18.718750}, {(TriangleWave[
0.1 (2.4 + t - 18.718750)]^20) (If[
Sin[47.581455 (2.4 + t - 18.718750)] <
Tan[47.581455 (2.4 + t - 18.718750)],
If[Sin[1046.7920 Pi (2.4 + t - 18.718750)] >
Cos[1046.7920 Pi (2.4 + t - 18.718750)],
Sin[1046.7920 Pi (2.4 + t - 18.718750)],
TriangleWave[1046.7920 (t - 18.718750)]],
If[Sin[523.39600 Pi (2.4 + t - 18.718750)] >
Cos[523.39600 Pi (2.4 + t - 18.718750)],
Sin[523.39600 Pi (2.4 + t - 18.718750)],
TriangleWave[523.39600 (2.4 + t - 18.718750)]]]),
18.718750 < t <
18.843750}, {(TriangleWave[
0.1 (2.4 + t - 18.843750)]^20) (If[
Sin[44.898453 (2.4 + t - 18.843750)] <
Tan[44.898453 (2.4 + t - 18.843750)],
If[Sin[987.76599 Pi (2.4 + t - 18.843750)] >
Cos[987.76599 Pi (2.4 + t - 18.843750)],
Sin[987.76599 Pi (2.4 + t - 18.843750)],
TriangleWave[987.76599 (t - 18.843750)]],
If[Sin[493.88300 Pi (2.4 + t - 18.843750)] >
Cos[493.88300 Pi (2.4 + t - 18.843750)],
Sin[493.88300 Pi (2.4 + t - 18.843750)],
TriangleWave[493.88300 (2.4 + t - 18.843750)]]]),
18.843750 < t <
19.593750}, {(TriangleWave[
0.1 (2.4 + t - 19.593750)]^20) (If[
Sin[40.000000 (2.4 + t - 19.593750)] <
Tan[40.000000 (2.4 + t - 19.593750)],
If[Sin[880.00000 Pi (2.4 + t - 19.593750)] >
Cos[880.00000 Pi (2.4 + t - 19.593750)],
Sin[880.00000 Pi (2.4 + t - 19.593750)],
TriangleWave[880.00000 (t - 19.593750)]],
If[Sin[440.00000 Pi (2.4 + t - 19.593750)] >
Cos[440.00000 Pi (2.4 + t - 19.593750)],
Sin[440.00000 Pi (2.4 + t - 19.593750)],
TriangleWave[440.00000 (2.4 + t - 19.593750)]]]),
19.593750 < t <
19.968750}, {(TriangleWave[
0.1 (2.4 + t - 19.968750)]^20) (If[
Sin[31.747999 (2.4 + t - 19.968750)] <
Tan[31.747999 (2.4 + t - 19.968750)],
If[Sin[698.45599 Pi (2.4 + t - 19.968750)] >
Cos[698.45599 Pi (2.4 + t - 19.968750)],
Sin[698.45599 Pi (2.4 + t - 19.968750)],
TriangleWave[698.45599 (t - 19.968750)]],
If[Sin[349.22800 Pi (2.4 + t - 19.968750)] >
Cos[349.22800 Pi (2.4 + t - 19.968750)],
Sin[349.22800 Pi (2.4 + t - 19.968750)],
TriangleWave[349.22800 (2.4 + t - 19.968750)]]]),
19.968750 < t <
20.093750}, {(TriangleWave[
0.1 (2.4 + t - 20.093750)]^20) (If[
Sin[40.000000 (2.4 + t - 20.093750)] <
Tan[40.000000 (2.4 + t - 20.093750)],
If[Sin[880.00000 Pi (2.4 + t - 20.093750)] >
Cos[880.00000 Pi (2.4 + t - 20.093750)],
Sin[880.00000 Pi (2.4 + t - 20.093750)],
TriangleWave[880.00000 (t - 20.093750)]],
If[Sin[440.00000 Pi (2.4 + t - 20.093750)] >
Cos[440.00000 Pi (2.4 + t - 20.093750)],
Sin[440.00000 Pi (2.4 + t - 20.093750)],
TriangleWave[440.00000 (2.4 + t - 20.093750)]]]),
20.093750 < t <
20.218750}, {(TriangleWave[
0.1 (2.4 + t - 20.218750)]^20) (If[
Sin[47.581455 (2.4 + t - 20.218750)] <
Tan[47.581455 (2.4 + t - 20.218750)],
If[Sin[1046.7920 Pi (2.4 + t - 20.218750)] >
Cos[1046.7920 Pi (2.4 + t - 20.218750)],
Sin[1046.7920 Pi (2.4 + t - 20.218750)],
TriangleWave[1046.7920 (t - 20.218750)]],
If[Sin[523.39600 Pi (2.4 + t - 20.218750)] >
Cos[523.39600 Pi (2.4 + t - 20.218750)],
Sin[523.39600 Pi (2.4 + t - 20.218750)],
TriangleWave[523.39600 (2.4 + t - 20.218750)]]]),
20.218750 < t <
20.343750}, {(TriangleWave[
0.1 (2.4 + t - 20.343750)]^20) (If[
Sin[53.393639 (2.4 + t - 20.343750)] <
Tan[53.393639 (2.4 + t - 20.343750)],
If[Sin[1174.6600 Pi (2.4 + t - 20.343750)] >
Cos[1174.6600 Pi (2.4 + t - 20.343750)],
Sin[1174.6600 Pi (2.4 + t - 20.343750)],
TriangleWave[1174.6600 (t - 20.343750)]],
If[Sin[587.33002 Pi (2.4 + t - 20.343750)] >
Cos[587.33002 Pi (2.4 + t - 20.343750)],
Sin[587.33002 Pi (2.4 + t - 20.343750)],
TriangleWave[587.33002 (2.4 + t - 20.343750)]]]),
20.343750 < t <
20.468750}, {(TriangleWave[
0.1 (2.4 + t - 20.468750)]^20) (If[
Sin[59.932362 (2.4 + t - 20.468750)] <
Tan[59.932362 (2.4 + t - 20.468750)],
If[Sin[1318.5120 Pi (2.4 + t - 20.468750)] >
Cos[1318.5120 Pi (2.4 + t - 20.468750)],
Sin[1318.5120 Pi (2.4 + t - 20.468750)],
TriangleWave[1318.5120 (t - 20.468750)]],
If[Sin[659.25598 Pi (2.4 + t - 20.468750)] >
Cos[659.25598 Pi (2.4 + t - 20.468750)],
Sin[659.25598 Pi (2.4 + t - 20.468750)],
TriangleWave[659.25598 (2.4 + t - 20.468750)]]]),
20.468750 < t <
20.593750}, {(TriangleWave[
0.1 (2.4 + t - 20.593750)]^20) (If[
Sin[53.393639 (2.4 + t - 20.593750)] <
Tan[53.393639 (2.4 + t - 20.593750)],
If[Sin[1174.6600 Pi (2.4 + t - 20.593750)] >
Cos[1174.6600 Pi (2.4 + t - 20.593750)],
Sin[1174.6600 Pi (2.4 + t - 20.593750)],
TriangleWave[1174.6600 (t - 20.593750)]],
If[Sin[587.33002 Pi (2.4 + t - 20.593750)] >
Cos[587.33002 Pi (2.4 + t - 20.593750)],
Sin[587.33002 Pi (2.4 + t - 20.593750)],
TriangleWave[587.33002 (2.4 + t - 20.593750)]]]),
20.593750 < t <
20.718750}, {(TriangleWave[
0.1 (2.4 + t - 20.718750)]^20) (If[
Sin[47.581455 (2.4 + t - 20.718750)] <
Tan[47.581455 (2.4 + t - 20.718750)],
If[Sin[1046.7920 Pi (2.4 + t - 20.718750)] >
Cos[1046.7920 Pi (2.4 + t - 20.718750)],
Sin[1046.7920 Pi (2.4 + t - 20.718750)],
TriangleWave[1046.7920 (t - 20.718750)]],
If[Sin[523.39600 Pi (2.4 + t - 20.718750)] >
Cos[523.39600 Pi (2.4 + t - 20.718750)],
Sin[523.39600 Pi (2.4 + t - 20.718750)],
TriangleWave[523.39600 (2.4 + t - 20.718750)]]]),
20.718750 < t <
20.843750}, {(TriangleWave[
0.1 (2.4 + t - 20.843750)]^20) (If[
Sin[44.898453 (2.4 + t - 20.843750)] <
Tan[44.898453 (2.4 + t - 20.843750)],
If[Sin[987.76599 Pi (2.4 + t - 20.843750)] >
Cos[987.76599 Pi (2.4 + t - 20.843750)],
Sin[987.76599 Pi (2.4 + t - 20.843750)],
TriangleWave[987.76599 (t - 20.843750)]],
If[Sin[493.88300 Pi (2.4 + t - 20.843750)] >
Cos[493.88300 Pi (2.4 + t - 20.843750)],
Sin[493.88300 Pi (2.4 + t - 20.843750)],
TriangleWave[493.88300 (2.4 + t - 20.843750)]]]),
20.843750 < t <
21.593750}, {(TriangleWave[
0.1 (2.4 + t - 21.593750)]^20) (If[
Sin[40.000000 (2.4 + t - 21.593750)] <
Tan[40.000000 (2.4 + t - 21.593750)],
If[Sin[880.00000 Pi (2.4 + t - 21.593750)] >
Cos[880.00000 Pi (2.4 + t - 21.593750)],
Sin[880.00000 Pi (2.4 + t - 21.593750)],
TriangleWave[880.00000 (t - 21.593750)]],
If[Sin[440.00000 Pi (2.4 + t - 21.593750)] >
Cos[440.00000 Pi (2.4 + t - 21.593750)],
Sin[440.00000 Pi (2.4 + t - 21.593750)],
TriangleWave[440.00000 (2.4 + t - 21.593750)]]]),
21.593750 < t <
21.968750}, {(TriangleWave[
0.1 (2.4 + t - 21.968750)]^20) (If[
Sin[53.393639 (2.4 + t - 21.968750)] <
Tan[53.393639 (2.4 + t - 21.968750)],
If[Sin[1174.6600 Pi (2.4 + t - 21.968750)] >
Cos[1174.6600 Pi (2.4 + t - 21.968750)],
Sin[1174.6600 Pi (2.4 + t - 21.968750)],
TriangleWave[1174.6600 (t - 21.968750)]],
If[Sin[587.33002 Pi (2.4 + t - 21.968750)] >
Cos[587.33002 Pi (2.4 + t - 21.968750)],
Sin[587.33002 Pi (2.4 + t - 21.968750)],
TriangleWave[587.33002 (2.4 + t - 21.968750)]]]),
21.968750 < t <
22.093750}, {(TriangleWave[
0.1 (2.4 + t - 22.093750)]^20) (If[
Sin[59.932362 (2.4 + t - 22.093750)] <
Tan[59.932362 (2.4 + t - 22.093750)],
If[Sin[1318.5120 Pi (2.4 + t - 22.093750)] >
Cos[1318.5120 Pi (2.4 + t - 22.093750)],
Sin[1318.5120 Pi (2.4 + t - 22.093750)],
TriangleWave[1318.5120 (t - 22.093750)]],
If[Sin[659.25598 Pi (2.4 + t - 22.093750)] >
Cos[659.25598 Pi (2.4 + t - 22.093750)],
Sin[659.25598 Pi (2.4 + t - 22.093750)],
TriangleWave[659.25598 (2.4 + t - 22.093750)]]]),
22.093750 < t <
22.218750}, {(TriangleWave[
0.1 (2.4 + t - 22.218750)]^20) (If[
Sin[53.393639 (2.4 + t - 22.218750)] <
Tan[53.393639 (2.4 + t - 22.218750)],
If[Sin[1174.6600 Pi (2.4 + t - 22.218750)] >
Cos[1174.6600 Pi (2.4 + t - 22.218750)],
Sin[1174.6600 Pi (2.4 + t - 22.218750)],
TriangleWave[1174.6600 (t - 22.218750)]],
If[Sin[587.33002 Pi (2.4 + t - 22.218750)] >
Cos[587.33002 Pi (2.4 + t - 22.218750)],
Sin[587.33002 Pi (2.4 + t - 22.218750)],
TriangleWave[587.33002 (2.4 + t - 22.218750)]]]),
22.218750 < t <
22.343750}, {(TriangleWave[
0.1 (2.4 + t - 22.343750)]^20) (If[
Sin[47.581455 (2.4 + t - 22.343750)] <
Tan[47.581455 (2.4 + t - 22.343750)],
If[Sin[1046.7920 Pi (2.4 + t - 22.343750)] >
Cos[1046.7920 Pi (2.4 + t - 22.343750)],
Sin[1046.7920 Pi (2.4 + t - 22.343750)],
TriangleWave[1046.7920 (t - 22.343750)]],
If[Sin[523.39600 Pi (2.4 + t - 22.343750)] >
Cos[523.39600 Pi (2.4 + t - 22.343750)],
Sin[523.39600 Pi (2.4 + t - 22.343750)],
TriangleWave[523.39600 (2.4 + t - 22.343750)]]]),
22.343750 < t <
22.468750}, {(TriangleWave[
0.1 (2.4 + t - 22.468750)]^20) (If[
Sin[44.898453 (2.4 + t - 22.468750)] <
Tan[44.898453 (2.4 + t - 22.468750)],
If[Sin[987.76599 Pi (2.4 + t - 22.468750)] >
Cos[987.76599 Pi (2.4 + t - 22.468750)],
Sin[987.76599 Pi (2.4 + t - 22.468750)],
TriangleWave[987.76599 (t - 22.468750)]],
If[Sin[493.88300 Pi (2.4 + t - 22.468750)] >
Cos[493.88300 Pi (2.4 + t - 22.468750)],
Sin[493.88300 Pi (2.4 + t - 22.468750)],
TriangleWave[493.88300 (2.4 + t - 22.468750)]]]),
22.468750 < t < 22.593750}, {0,
22.593750 < t <
22.718750}, {(TriangleWave[
0.1 (2.4 + t - 22.718750)]^20) (If[
Sin[53.393639 (2.4 + t - 22.718750)] <
Tan[53.393639 (2.4 + t - 22.718750)],
If[Sin[1174.6600 Pi (2.4 + t - 22.718750)] >
Cos[1174.6600 Pi (2.4 + t - 22.718750)],
Sin[1174.6600 Pi (2.4 + t - 22.718750)],
TriangleWave[1174.6600 (t - 22.718750)]],
If[Sin[587.33002 Pi (2.4 + t - 22.718750)] >
Cos[587.33002 Pi (2.4 + t - 22.718750)],
Sin[587.33002 Pi (2.4 + t - 22.718750)],
TriangleWave[587.33002 (2.4 + t - 22.718750)]]]),
22.718750 < t < 22.968750}, {0,
22.968750 < t <
23.093750}, {(TriangleWave[
0.1 (2.4 + t - 23.093750)]^20) (If[
Sin[53.393639 (2.4 + t - 23.093750)] <
Tan[53.393639 (2.4 + t - 23.093750)],
If[Sin[1174.6600 Pi (2.4 + t - 23.093750)] >
Cos[1174.6600 Pi (2.4 + t - 23.093750)],
Sin[1174.6600 Pi (2.4 + t - 23.093750)],
TriangleWave[1174.6600 (t - 23.093750)]],
If[Sin[587.33002 Pi (2.4 + t - 23.093750)] >
Cos[587.33002 Pi (2.4 + t - 23.093750)],
Sin[587.33002 Pi (2.4 + t - 23.093750)],
TriangleWave[587.33002 (2.4 + t - 23.093750)]]]),
23.093750 < t <
23.218750}, {(TriangleWave[
0.1 (2.4 + t - 23.218750)]^20) (If[
Sin[59.932362 (2.4 + t - 23.218750)] <
Tan[59.932362 (2.4 + t - 23.218750)],
If[Sin[1318.5120 Pi (2.4 + t - 23.218750)] >
Cos[1318.5120 Pi (2.4 + t - 23.218750)],
Sin[1318.5120 Pi (2.4 + t - 23.218750)],
TriangleWave[1318.5120 (t - 23.218750)]],
If[Sin[659.25598 Pi (2.4 + t - 23.218750)] >
Cos[659.25598 Pi (2.4 + t - 23.218750)],
Sin[659.25598 Pi (2.4 + t - 23.218750)],
TriangleWave[659.25598 (2.4 + t - 23.218750)]]]),
23.218750 < t <
23.343750}, {(TriangleWave[
0.1 (2.4 + t - 23.343750)]^20) (If[
Sin[53.393639 (2.4 + t - 23.343750)] <
Tan[53.393639 (2.4 + t - 23.343750)],
If[Sin[1174.6600 Pi (2.4 + t - 23.343750)] >
Cos[1174.6600 Pi (2.4 + t - 23.343750)],
Sin[1174.6600 Pi (2.4 + t - 23.343750)],
TriangleWave[1174.6600 (t - 23.343750)]],
If[Sin[587.33002 Pi (2.4 + t - 23.343750)] >
Cos[587.33002 Pi (2.4 + t - 23.343750)],
Sin[587.33002 Pi (2.4 + t - 23.343750)],
TriangleWave[587.33002 (2.4 + t - 23.343750)]]]),
23.343750 < t <
23.468750}, {(TriangleWave[
0.1 (2.4 + t - 23.468750)]^20) (If[
Sin[47.581455 (2.4 + t - 23.468750)] <
Tan[47.581455 (2.4 + t - 23.468750)],
If[Sin[1046.7920 Pi (2.4 + t - 23.468750)] >
Cos[1046.7920 Pi (2.4 + t - 23.468750)],
Sin[1046.7920 Pi (2.4 + t - 23.468750)],
TriangleWave[1046.7920 (t - 23.468750)]],
If[Sin[523.39600 Pi (2.4 + t - 23.468750)] >
Cos[523.39600 Pi (2.4 + t - 23.468750)],
Sin[523.39600 Pi (2.4 + t - 23.468750)],
TriangleWave[523.39600 (2.4 + t - 23.468750)]]]),
23.468750 < t <
23.593750}, {(TriangleWave[
0.1 (2.4 + t - 23.593750)]^20) (If[
Sin[44.898453 (2.4 + t - 23.593750)] <
Tan[44.898453 (2.4 + t - 23.593750)],
If[Sin[987.76599 Pi (2.4 + t - 23.593750)] >
Cos[987.76599 Pi (2.4 + t - 23.593750)],
Sin[987.76599 Pi (2.4 + t - 23.593750)],
TriangleWave[987.76599 (t - 23.593750)]],
If[Sin[493.88300 Pi (2.4 + t - 23.593750)] >
Cos[493.88300 Pi (2.4 + t - 23.593750)],
Sin[493.88300 Pi (2.4 + t - 23.593750)],
TriangleWave[493.88300 (2.4 + t - 23.593750)]]]),
23.593750 < t < 23.843750}, {0,
23.843750 < t <
23.968750}, {(TriangleWave[
0.1 (2.4 + t - 23.968750)]^20) (If[
Sin[53.393639 (2.4 + t - 23.968750)] <
Tan[53.393639 (2.4 + t - 23.968750)],
If[Sin[1174.6600 Pi (2.4 + t - 23.968750)] >
Cos[1174.6600 Pi (2.4 + t - 23.968750)],
Sin[1174.6600 Pi (2.4 + t - 23.968750)],
TriangleWave[1174.6600 (t - 23.968750)]],
If[Sin[587.33002 Pi (2.4 + t - 23.968750)] >
Cos[587.33002 Pi (2.4 + t - 23.968750)],
Sin[587.33002 Pi (2.4 + t - 23.968750)],
TriangleWave[587.33002 (2.4 + t - 23.968750)]]]),
23.968750 < t <
24.093750}, {(TriangleWave[
0.1 (2.4 + t - 24.093750)]^20) (If[
Sin[59.932362 (2.4 + t - 24.093750)] <
Tan[59.932362 (2.4 + t - 24.093750)],
If[Sin[1318.5120 Pi (2.4 + t - 24.093750)] >
Cos[1318.5120 Pi (2.4 + t - 24.093750)],
Sin[1318.5120 Pi (2.4 + t - 24.093750)],
TriangleWave[1318.5120 (t - 24.093750)]],
If[Sin[659.25598 Pi (2.4 + t - 24.093750)] >
Cos[659.25598 Pi (2.4 + t - 24.093750)],
Sin[659.25598 Pi (2.4 + t - 24.093750)],
TriangleWave[659.25598 (2.4 + t - 24.093750)]]]),
24.093750 < t <
24.218750}, {(TriangleWave[
0.1 (2.4 + t - 24.218750)]^20) (If[
Sin[53.393639 (2.4 + t - 24.218750)] <
Tan[53.393639 (2.4 + t - 24.218750)],
If[Sin[1174.6600 Pi (2.4 + t - 24.218750)] >
Cos[1174.6600 Pi (2.4 + t - 24.218750)],
Sin[1174.6600 Pi (2.4 + t - 24.218750)],
TriangleWave[1174.6600 (t - 24.218750)]],
If[Sin[587.33002 Pi (2.4 + t - 24.218750)] >
Cos[587.33002 Pi (2.4 + t - 24.218750)],
Sin[587.33002 Pi (2.4 + t - 24.218750)],
TriangleWave[587.33002 (2.4 + t - 24.218750)]]]),
24.218750 < t <
24.343750}, {(TriangleWave[
0.1 (2.4 + t - 24.343750)]^20) (If[
Sin[47.581455 (2.4 + t - 24.343750)] <
Tan[47.581455 (2.4 + t - 24.343750)],
If[Sin[1046.7920 Pi (2.4 + t - 24.343750)] >
Cos[1046.7920 Pi (2.4 + t - 24.343750)],
Sin[1046.7920 Pi (2.4 + t - 24.343750)],
TriangleWave[1046.7920 (t - 24.343750)]],
If[Sin[523.39600 Pi (2.4 + t - 24.343750)] >
Cos[523.39600 Pi (2.4 + t - 24.343750)],
Sin[523.39600 Pi (2.4 + t - 24.343750)],
TriangleWave[523.39600 (2.4 + t - 24.343750)]]]),
24.343750 < t <
24.468750}, {(TriangleWave[
0.1 (2.4 + t - 24.468750)]^20) (If[
Sin[44.898453 (2.4 + t - 24.468750)] <
Tan[44.898453 (2.4 + t - 24.468750)],
If[Sin[987.76599 Pi (2.4 + t - 24.468750)] >
Cos[987.76599 Pi (2.4 + t - 24.468750)],
Sin[987.76599 Pi (2.4 + t - 24.468750)],
TriangleWave[987.76599 (t - 24.468750)]],
If[Sin[493.88300 Pi (2.4 + t - 24.468750)] >
Cos[493.88300 Pi (2.4 + t - 24.468750)],
Sin[493.88300 Pi (2.4 + t - 24.468750)],
TriangleWave[493.88300 (2.4 + t - 24.468750)]]]),
24.468750 < t < 24.593750}, {0,
24.593750 < t <
24.718750}, {(TriangleWave[
0.1 (2.4 + t - 24.718750)]^20) (If[
Sin[53.393639 (2.4 + t - 24.718750)] <
Tan[53.393639 (2.4 + t - 24.718750)],
If[Sin[1174.6600 Pi (2.4 + t - 24.718750)] >
Cos[1174.6600 Pi (2.4 + t - 24.718750)],
Sin[1174.6600 Pi (2.4 + t - 24.718750)],
TriangleWave[1174.6600 (t - 24.718750)]],
If[Sin[587.33002 Pi (2.4 + t - 24.718750)] >
Cos[587.33002 Pi (2.4 + t - 24.718750)],
Sin[587.33002 Pi (2.4 + t - 24.718750)],
TriangleWave[587.33002 (2.4 + t - 24.718750)]]]),
24.718750 < t < 24.968750}, {0,
24.968750 < t <
25.093750}, {(TriangleWave[
0.1 (2.4 + t - 25.093750)]^20) (If[
Sin[53.393639 (2.4 + t - 25.093750)] <
Tan[53.393639 (2.4 + t - 25.093750)],
If[Sin[1174.6600 Pi (2.4 + t - 25.093750)] >
Cos[1174.6600 Pi (2.4 + t - 25.093750)],
Sin[1174.6600 Pi (2.4 + t - 25.093750)],
TriangleWave[1174.6600 (t - 25.093750)]],
If[Sin[587.33002 Pi (2.4 + t - 25.093750)] >
Cos[587.33002 Pi (2.4 + t - 25.093750)],
Sin[587.33002 Pi (2.4 + t - 25.093750)],
TriangleWave[587.33002 (2.4 + t - 25.093750)]]]),
25.093750 < t <
25.218750}, {(TriangleWave[
0.1 (2.4 + t - 25.218750)]^20) (If[
Sin[59.932362 (2.4 + t - 25.218750)] <
Tan[59.932362 (2.4 + t - 25.218750)],
If[Sin[1318.5120 Pi (2.4 + t - 25.218750)] >
Cos[1318.5120 Pi (2.4 + t - 25.218750)],
Sin[1318.5120 Pi (2.4 + t - 25.218750)],
TriangleWave[1318.5120 (t - 25.218750)]],
If[Sin[659.25598 Pi (2.4 + t - 25.218750)] >
Cos[659.25598 Pi (2.4 + t - 25.218750)],
Sin[659.25598 Pi (2.4 + t - 25.218750)],
TriangleWave[659.25598 (2.4 + t - 25.218750)]]]),
25.218750 < t <
25.343750}, {(TriangleWave[
0.1 (2.4 + t - 25.343750)]^20) (If[
Sin[53.393639 (2.4 + t - 25.343750)] <
Tan[53.393639 (2.4 + t - 25.343750)],
If[Sin[1174.6600 Pi (2.4 + t - 25.343750)] >
Cos[1174.6600 Pi (2.4 + t - 25.343750)],
Sin[1174.6600 Pi (2.4 + t - 25.343750)],
TriangleWave[1174.6600 (t - 25.343750)]],
If[Sin[587.33002 Pi (2.4 + t - 25.343750)] >
Cos[587.33002 Pi (2.4 + t - 25.343750)],
Sin[587.33002 Pi (2.4 + t - 25.343750)],
TriangleWave[587.33002 (2.4 + t - 25.343750)]]]),
25.343750 < t <
25.468750}, {(TriangleWave[
0.1 (2.4 + t - 25.468750)]^20) (If[
Sin[47.581455 (2.4 + t - 25.468750)] <
Tan[47.581455 (2.4 + t - 25.468750)],
If[Sin[1046.7920 Pi (2.4 + t - 25.468750)] >
Cos[1046.7920 Pi (2.4 + t - 25.468750)],
Sin[1046.7920 Pi (2.4 + t - 25.468750)],
TriangleWave[1046.7920 (t - 25.468750)]],
If[Sin[523.39600 Pi (2.4 + t - 25.468750)] >
Cos[523.39600 Pi (2.4 + t - 25.468750)],
Sin[523.39600 Pi (2.4 + t - 25.468750)],
TriangleWave[523.39600 (2.4 + t - 25.468750)]]]),
25.468750 < t <
25.593750}, {(TriangleWave[
0.1 (2.4 + t - 25.593750)]^20) (If[
Sin[44.898453 (2.4 + t - 25.593750)] <
Tan[44.898453 (2.4 + t - 25.593750)],
If[Sin[987.76599 Pi (2.4 + t - 25.593750)] >
Cos[987.76599 Pi (2.4 + t - 25.593750)],
Sin[987.76599 Pi (2.4 + t - 25.593750)],
TriangleWave[987.76599 (t - 25.593750)]],
If[Sin[493.88300 Pi (2.4 + t - 25.593750)] >
Cos[493.88300 Pi (2.4 + t - 25.593750)],
Sin[493.88300 Pi (2.4 + t - 25.593750)],
TriangleWave[493.88300 (2.4 + t - 25.593750)]]]),
25.593750 < t < 25.843750}, {0,
25.843750 < t <
25.968750}, {(TriangleWave[
0.1 (2.4 + t - 25.968750)]^20) (If[
Sin[53.393639 (2.4 + t - 25.968750)] <
Tan[53.393639 (2.4 + t - 25.968750)],
If[Sin[1174.6600 Pi (2.4 + t - 25.968750)] >
Cos[1174.6600 Pi (2.4 + t - 25.968750)],
Sin[1174.6600 Pi (2.4 + t - 25.968750)],
TriangleWave[1174.6600 (t - 25.968750)]],
If[Sin[587.33002 Pi (2.4 + t - 25.968750)] >
Cos[587.33002 Pi (2.4 + t - 25.968750)],
Sin[587.33002 Pi (2.4 + t - 25.968750)],
TriangleWave[587.33002 (2.4 + t - 25.968750)]]]),
25.968750 < t <
26.093750}, {(TriangleWave[
0.1 (2.4 + t - 26.093750)]^20) (If[
Sin[59.932362 (2.4 + t - 26.093750)] <
Tan[59.932362 (2.4 + t - 26.093750)],
If[Sin[1318.5120 Pi (2.4 + t - 26.093750)] >
Cos[1318.5120 Pi (2.4 + t - 26.093750)],
Sin[1318.5120 Pi (2.4 + t - 26.093750)],
TriangleWave[1318.5120 (t - 26.093750)]],
If[Sin[659.25598 Pi (2.4 + t - 26.093750)] >
Cos[659.25598 Pi (2.4 + t - 26.093750)],
Sin[659.25598 Pi (2.4 + t - 26.093750)],
TriangleWave[659.25598 (2.4 + t - 26.093750)]]]),
26.093750 < t <
26.218750}, {(TriangleWave[
0.1 (2.4 + t - 26.218750)]^20) (If[
Sin[53.393639 (2.4 + t - 26.218750)] <
Tan[53.393639 (2.4 + t - 26.218750)],
If[Sin[1174.6600 Pi (2.4 + t - 26.218750)] >
Cos[1174.6600 Pi (2.4 + t - 26.218750)],
Sin[1174.6600 Pi (2.4 + t - 26.218750)],
TriangleWave[1174.6600 (t - 26.218750)]],
If[Sin[587.33002 Pi (2.4 + t - 26.218750)] >
Cos[587.33002 Pi (2.4 + t - 26.218750)],
Sin[587.33002 Pi (2.4 + t - 26.218750)],
TriangleWave[587.33002 (2.4 + t - 26.218750)]]]),
26.218750 < t <
26.343750}, {(TriangleWave[
0.1 (2.4 + t - 26.343750)]^20) (If[
Sin[47.581455 (2.4 + t - 26.343750)] <
Tan[47.581455 (2.4 + t - 26.343750)],
If[Sin[1046.7920 Pi (2.4 + t - 26.343750)] >
Cos[1046.7920 Pi (2.4 + t - 26.343750)],
Sin[1046.7920 Pi (2.4 + t - 26.343750)],
TriangleWave[1046.7920 (t - 26.343750)]],
If[Sin[523.39600 Pi (2.4 + t - 26.343750)] >
Cos[523.39600 Pi (2.4 + t - 26.343750)],
Sin[523.39600 Pi (2.4 + t - 26.343750)],
TriangleWave[523.39600 (2.4 + t - 26.343750)]]]),
26.343750 < t <
26.468750}, {(TriangleWave[
0.1 (2.4 + t - 26.468750)]^20) (If[
Sin[44.898453 (2.4 + t - 26.468750)] <
Tan[44.898453 (2.4 + t - 26.468750)],
If[Sin[987.76599 Pi (2.4 + t - 26.468750)] >
Cos[987.76599 Pi (2.4 + t - 26.468750)],
Sin[987.76599 Pi (2.4 + t - 26.468750)],
TriangleWave[987.76599 (t - 26.468750)]],
If[Sin[493.88300 Pi (2.4 + t - 26.468750)] >
Cos[493.88300 Pi (2.4 + t - 26.468750)],
Sin[493.88300 Pi (2.4 + t - 26.468750)],
TriangleWave[493.88300 (2.4 + t - 26.468750)]]]),
26.468750 < t <
26.718750}, {(TriangleWave[
0.1 (2.4 + t - 26.718750)]^20) (If[
Sin[47.581455 (2.4 + t - 26.718750)] <
Tan[47.581455 (2.4 + t - 26.718750)],
If[Sin[1046.7920 Pi (2.4 + t - 26.718750)] >
Cos[1046.7920 Pi (2.4 + t - 26.718750)],
Sin[1046.7920 Pi (2.4 + t - 26.718750)],
TriangleWave[1046.7920 (t - 26.718750)]],
If[Sin[523.39600 Pi (2.4 + t - 26.718750)] >
Cos[523.39600 Pi (2.4 + t - 26.718750)],
Sin[523.39600 Pi (2.4 + t - 26.718750)],
TriangleWave[523.39600 (2.4 + t - 26.718750)]]]),
26.718750 < t <
26.843750}, {(TriangleWave[
0.1 (2.4 + t - 26.843750)]^20) (If[
Sin[53.393639 (2.4 + t - 26.843750)] <
Tan[53.393639 (2.4 + t - 26.843750)],
If[Sin[1174.6600 Pi (2.4 + t - 26.843750)] >
Cos[1174.6600 Pi (2.4 + t - 26.843750)],
Sin[1174.6600 Pi (2.4 + t - 26.843750)],
TriangleWave[1174.6600 (t - 26.843750)]],
If[Sin[587.33002 Pi (2.4 + t - 26.843750)] >
Cos[587.33002 Pi (2.4 + t - 26.843750)],
Sin[587.33002 Pi (2.4 + t - 26.843750)],
TriangleWave[587.33002 (2.4 + t - 26.843750)]]]),
26.843750 < t <
27.093750}, {(TriangleWave[
0.1 (2.4 + t - 27.093750)]^20) (If[
Sin[59.932362 (2.4 + t - 27.093750)] <
Tan[59.932362 (2.4 + t - 27.093750)],
If[Sin[1318.5120 Pi (2.4 + t - 27.093750)] >
Cos[1318.5120 Pi (2.4 + t - 27.093750)],
Sin[1318.5120 Pi (2.4 + t - 27.093750)],
TriangleWave[1318.5120 (t - 27.093750)]],
If[Sin[659.25598 Pi (2.4 + t - 27.093750)] >
Cos[659.25598 Pi (2.4 + t - 27.093750)],
Sin[659.25598 Pi (2.4 + t - 27.093750)],
TriangleWave[659.25598 (2.4 + t - 27.093750)]]]),
27.093750 < t <
27.625000}, {(TriangleWave[
0.1 (2.4 + t - 27.625000)]^20) (If[
Sin[53.393639 (2.4 + t - 27.625000)] <
Tan[53.393639 (2.4 + t - 27.625000)],
If[Sin[1174.6600 Pi (2.4 + t - 27.625000)] >
Cos[1174.6600 Pi (2.4 + t - 27.625000)],
Sin[1174.6600 Pi (2.4 + t - 27.625000)],
TriangleWave[1174.6600 (t - 27.625000)]],
If[Sin[587.33002 Pi (2.4 + t - 27.625000)] >
Cos[587.33002 Pi (2.4 + t - 27.625000)],
Sin[587.33002 Pi (2.4 + t - 27.625000)],
TriangleWave[587.33002 (2.4 + t - 27.625000)]]]),
27.625000 < t <
27.843750}, {(TriangleWave[
0.1 (2.4 + t - 27.843750)]^20) (If[
Sin[59.932362 (2.4 + t - 27.843750)] <
Tan[59.932362 (2.4 + t - 27.843750)],
If[Sin[1318.5120 Pi (2.4 + t - 27.843750)] >
Cos[1318.5120 Pi (2.4 + t - 27.843750)],
Sin[1318.5120 Pi (2.4 + t - 27.843750)],
TriangleWave[1318.5120 (t - 27.843750)]],
If[Sin[659.25598 Pi (2.4 + t - 27.843750)] >
Cos[659.25598 Pi (2.4 + t - 27.843750)],
Sin[659.25598 Pi (2.4 + t - 27.843750)],
TriangleWave[659.25598 (2.4 + t - 27.843750)]]]),
27.843750 < t <
27.968750}, {(TriangleWave[
0.1 (2.4 + t - 27.968750)]^20) (If[
Sin[53.393639 (2.4 + t - 27.968750)] <
Tan[53.393639 (2.4 + t - 27.968750)],
If[Sin[1174.6600 Pi (2.4 + t - 27.968750)] >
Cos[1174.6600 Pi (2.4 + t - 27.968750)],
Sin[1174.6600 Pi (2.4 + t - 27.968750)],
TriangleWave[1174.6600 (t - 27.968750)]],
If[Sin[587.33002 Pi (2.4 + t - 27.968750)] >
Cos[587.33002 Pi (2.4 + t - 27.968750)],
Sin[587.33002 Pi (2.4 + t - 27.968750)],
TriangleWave[587.33002 (2.4 + t - 27.968750)]]]),
27.968750 < t <
28.093750}, {(TriangleWave[
0.1 (2.4 + t - 28.093750)]^20) (If[
Sin[59.932362 (2.4 + t - 28.093750)] <
Tan[59.932362 (2.4 + t - 28.093750)],
If[Sin[1318.5120 Pi (2.4 + t - 28.093750)] >
Cos[1318.5120 Pi (2.4 + t - 28.093750)],
Sin[1318.5120 Pi (2.4 + t - 28.093750)],
TriangleWave[1318.5120 (t - 28.093750)]],
If[Sin[659.25598 Pi (2.4 + t - 28.093750)] >
Cos[659.25598 Pi (2.4 + t - 28.093750)],
Sin[659.25598 Pi (2.4 + t - 28.093750)],
TriangleWave[659.25598 (2.4 + t - 28.093750)]]]),
28.093750 < t <
28.218750}, {(TriangleWave[
0.1 (2.4 + t - 28.218750)]^20) (If[
Sin[53.393639 (2.4 + t - 28.218750)] <
Tan[53.393639 (2.4 + t - 28.218750)],
If[Sin[1174.6600 Pi (2.4 + t - 28.218750)] >
Cos[1174.6600 Pi (2.4 + t - 28.218750)],
Sin[1174.6600 Pi (2.4 + t - 28.218750)],
TriangleWave[1174.6600 (t - 28.218750)]],
If[Sin[587.33002 Pi (2.4 + t - 28.218750)] >
Cos[587.33002 Pi (2.4 + t - 28.218750)],
Sin[587.33002 Pi (2.4 + t - 28.218750)],
TriangleWave[587.33002 (2.4 + t - 28.218750)]]]),
28.218750 < t <
28.343750}, {(TriangleWave[
0.1 (2.4 + t - 28.343750)]^20) (If[
Sin[47.581455 (2.4 + t - 28.343750)] <
Tan[47.581455 (2.4 + t - 28.343750)],
If[Sin[1046.7920 Pi (2.4 + t - 28.343750)] >
Cos[1046.7920 Pi (2.4 + t - 28.343750)],
Sin[1046.7920 Pi (2.4 + t - 28.343750)],
TriangleWave[1046.7920 (t - 28.343750)]],
If[Sin[523.39600 Pi (2.4 + t - 28.343750)] >
Cos[523.39600 Pi (2.4 + t - 28.343750)],
Sin[523.39600 Pi (2.4 + t - 28.343750)],
TriangleWave[523.39600 (2.4 + t - 28.343750)]]]),
28.343750 < t <
28.468750}, {(TriangleWave[
0.1 (2.4 + t - 28.468750)]^20) (If[
Sin[44.898453 (2.4 + t - 28.468750)] <
Tan[44.898453 (2.4 + t - 28.468750)],
If[Sin[987.76599 Pi (2.4 + t - 28.468750)] >
Cos[987.76599 Pi (2.4 + t - 28.468750)],
Sin[987.76599 Pi (2.4 + t - 28.468750)],
TriangleWave[987.76599 (t - 28.468750)]],
If[Sin[493.88300 Pi (2.4 + t - 28.468750)] >
Cos[493.88300 Pi (2.4 + t - 28.468750)],
Sin[493.88300 Pi (2.4 + t - 28.468750)],
TriangleWave[493.88300 (2.4 + t - 28.468750)]]]),
28.468750 < t <
28.718750}, {(TriangleWave[
0.1 (2.4 + t - 28.718750)]^20) (If[
Sin[47.581455 (2.4 + t - 28.718750)] <
Tan[47.581455 (2.4 + t - 28.718750)],
If[Sin[1046.7920 Pi (2.4 + t - 28.718750)] >
Cos[1046.7920 Pi (2.4 + t - 28.718750)],
Sin[1046.7920 Pi (2.4 + t - 28.718750)],
TriangleWave[1046.7920 (t - 28.718750)]],
If[Sin[523.39600 Pi (2.4 + t - 28.718750)] >
Cos[523.39600 Pi (2.4 + t - 28.718750)],
Sin[523.39600 Pi (2.4 + t - 28.718750)],
TriangleWave[523.39600 (2.4 + t - 28.718750)]]]),
28.718750 < t <
28.843750}, {(TriangleWave[
0.1 (2.4 + t - 28.843750)]^20) (If[
Sin[53.393639 (2.4 + t - 28.843750)] <
Tan[53.393639 (2.4 + t - 28.843750)],
If[Sin[1174.6600 Pi (2.4 + t - 28.843750)] >
Cos[1174.6600 Pi (2.4 + t - 28.843750)],
Sin[1174.6600 Pi (2.4 + t - 28.843750)],
TriangleWave[1174.6600 (t - 28.843750)]],
If[Sin[587.33002 Pi (2.4 + t - 28.843750)] >
Cos[587.33002 Pi (2.4 + t - 28.843750)],
Sin[587.33002 Pi (2.4 + t - 28.843750)],
TriangleWave[587.33002 (2.4 + t - 28.843750)]]]),
28.843750 < t <
29.093750}, {(TriangleWave[
0.1 (2.4 + t - 29.093750)]^20) (If[
Sin[59.932362 (2.4 + t - 29.093750)] <
Tan[59.932362 (2.4 + t - 29.093750)],
If[Sin[1318.5120 Pi (2.4 + t - 29.093750)] >
Cos[1318.5120 Pi (2.4 + t - 29.093750)],
Sin[1318.5120 Pi (2.4 + t - 29.093750)],
TriangleWave[1318.5120 (t - 29.093750)]],
If[Sin[659.25598 Pi (2.4 + t - 29.093750)] >
Cos[659.25598 Pi (2.4 + t - 29.093750)],
Sin[659.25598 Pi (2.4 + t - 29.093750)],
TriangleWave[659.25598 (2.4 + t - 29.093750)]]]),
29.093750 < t <
29.625000}, {(TriangleWave[
0.1 (2.4 + t - 29.625000)]^20) (If[
Sin[53.393639 (2.4 + t - 29.625000)] <
Tan[53.393639 (2.4 + t - 29.625000)],
If[Sin[1174.6600 Pi (2.4 + t - 29.625000)] >
Cos[1174.6600 Pi (2.4 + t - 29.625000)],
Sin[1174.6600 Pi (2.4 + t - 29.625000)],
TriangleWave[1174.6600 (t - 29.625000)]],
If[Sin[587.33002 Pi (2.4 + t - 29.625000)] >
Cos[587.33002 Pi (2.4 + t - 29.625000)],
Sin[587.33002 Pi (2.4 + t - 29.625000)],
TriangleWave[587.33002 (2.4 + t - 29.625000)]]]),
29.625000 < t <
29.968750}, {(TriangleWave[
0.1 (2.4 + t - 29.968750)]^20) (If[
Sin[31.747999 (2.4 + t - 29.968750)] <
Tan[31.747999 (2.4 + t - 29.968750)],
If[Sin[698.45599 Pi (2.4 + t - 29.968750)] >
Cos[698.45599 Pi (2.4 + t - 29.968750)],
Sin[698.45599 Pi (2.4 + t - 29.968750)],
TriangleWave[698.45599 (t - 29.968750)]],
If[Sin[349.22800 Pi (2.4 + t - 29.968750)] >
Cos[349.22800 Pi (2.4 + t - 29.968750)],
Sin[349.22800 Pi (2.4 + t - 29.968750)],
TriangleWave[349.22800 (2.4 + t - 29.968750)]]]),
29.968750 < t <
30.093750}, {(TriangleWave[
0.1 (2.4 + t - 30.093750)]^20) (If[
Sin[40.000000 (2.4 + t - 30.093750)] <
Tan[40.000000 (2.4 + t - 30.093750)],
If[Sin[880.00000 Pi (2.4 + t - 30.093750)] >
Cos[880.00000 Pi (2.4 + t - 30.093750)],
Sin[880.00000 Pi (2.4 + t - 30.093750)],
TriangleWave[880.00000 (t - 30.093750)]],
If[Sin[440.00000 Pi (2.4 + t - 30.093750)] >
Cos[440.00000 Pi (2.4 + t - 30.093750)],
Sin[440.00000 Pi (2.4 + t - 30.093750)],
TriangleWave[440.00000 (2.4 + t - 30.093750)]]]),
30.093750 < t <
30.218750}, {(TriangleWave[
0.1 (2.4 + t - 30.218750)]^20) (If[
Sin[47.581455 (2.4 + t - 30.218750)] <
Tan[47.581455 (2.4 + t - 30.218750)],
If[Sin[1046.7920 Pi (2.4 + t - 30.218750)] >
Cos[1046.7920 Pi (2.4 + t - 30.218750)],
Sin[1046.7920 Pi (2.4 + t - 30.218750)],
TriangleWave[1046.7920 (t - 30.218750)]],
If[Sin[523.39600 Pi (2.4 + t - 30.218750)] >
Cos[523.39600 Pi (2.4 + t - 30.218750)],
Sin[523.39600 Pi (2.4 + t - 30.218750)],
TriangleWave[523.39600 (2.4 + t - 30.218750)]]]),
30.218750 < t <
30.343750}, {(TriangleWave[
0.1 (2.4 + t - 30.343750)]^20) (If[
Sin[53.393639 (2.4 + t - 30.343750)] <
Tan[53.393639 (2.4 + t - 30.343750)],
If[Sin[1174.6600 Pi (2.4 + t - 30.343750)] >
Cos[1174.6600 Pi (2.4 + t - 30.343750)],
Sin[1174.6600 Pi (2.4 + t - 30.343750)],
TriangleWave[1174.6600 (t - 30.343750)]],
If[Sin[587.33002 Pi (2.4 + t - 30.343750)] >
Cos[587.33002 Pi (2.4 + t - 30.343750)],
Sin[587.33002 Pi (2.4 + t - 30.343750)],
TriangleWave[587.33002 (2.4 + t - 30.343750)]]]),
30.343750 < t <
30.468750}, {(TriangleWave[
0.1 (2.4 + t - 30.468750)]^20) (If[
Sin[59.932362 (2.4 + t - 30.468750)] <
Tan[59.932362 (2.4 + t - 30.468750)],
If[Sin[1318.5120 Pi (2.4 + t - 30.468750)] >
Cos[1318.5120 Pi (2.4 + t - 30.468750)],
Sin[1318.5120 Pi (2.4 + t - 30.468750)],
TriangleWave[1318.5120 (t - 30.468750)]],
If[Sin[659.25598 Pi (2.4 + t - 30.468750)] >
Cos[659.25598 Pi (2.4 + t - 30.468750)],
Sin[659.25598 Pi (2.4 + t - 30.468750)],
TriangleWave[659.25598 (2.4 + t - 30.468750)]]]),
30.468750 < t <
30.593750}, {(TriangleWave[
0.1 (2.4 + t - 30.593750)]^20) (If[
Sin[53.393639 (2.4 + t - 30.593750)] <
Tan[53.393639 (2.4 + t - 30.593750)],
If[Sin[1174.6600 Pi (2.4 + t - 30.593750)] >
Cos[1174.6600 Pi (2.4 + t - 30.593750)],
Sin[1174.6600 Pi (2.4 + t - 30.593750)],
TriangleWave[1174.6600 (t - 30.593750)]],
If[Sin[587.33002 Pi (2.4 + t - 30.593750)] >
Cos[587.33002 Pi (2.4 + t - 30.593750)],
Sin[587.33002 Pi (2.4 + t - 30.593750)],
TriangleWave[587.33002 (2.4 + t - 30.593750)]]]),
30.593750 < t <
30.718750}, {(TriangleWave[
0.1 (2.4 + t - 30.718750)]^20) (If[
Sin[47.581455 (2.4 + t - 30.718750)] <
Tan[47.581455 (2.4 + t - 30.718750)],
If[Sin[1046.7920 Pi (2.4 + t - 30.718750)] >
Cos[1046.7920 Pi (2.4 + t - 30.718750)],
Sin[1046.7920 Pi (2.4 + t - 30.718750)],
TriangleWave[1046.7920 (t - 30.718750)]],
If[Sin[523.39600 Pi (2.4 + t - 30.718750)] >
Cos[523.39600 Pi (2.4 + t - 30.718750)],
Sin[523.39600 Pi (2.4 + t - 30.718750)],
TriangleWave[523.39600 (2.4 + t - 30.718750)]]]),
30.718750 < t <
30.843750}, {(TriangleWave[
0.1 (2.4 + t - 30.843750)]^20) (If[
Sin[44.898453 (2.4 + t - 30.843750)] <
Tan[44.898453 (2.4 + t - 30.843750)],
If[Sin[987.76599 Pi (2.4 + t - 30.843750)] >
Cos[987.76599 Pi (2.4 + t - 30.843750)],
Sin[987.76599 Pi (2.4 + t - 30.843750)],
TriangleWave[987.76599 (t - 30.843750)]],
If[Sin[493.88300 Pi (2.4 + t - 30.843750)] >
Cos[493.88300 Pi (2.4 + t - 30.843750)],
Sin[493.88300 Pi (2.4 + t - 30.843750)],
TriangleWave[493.88300 (2.4 + t - 30.843750)]]]),
30.843750 < t <
31.593750}, {(TriangleWave[
0.1 (2.4 + t - 31.593750)]^20) (If[
Sin[40.000000 (2.4 + t - 31.593750)] <
Tan[40.000000 (2.4 + t - 31.593750)],
If[Sin[880.00000 Pi (2.4 + t - 31.593750)] >
Cos[880.00000 Pi (2.4 + t - 31.593750)],
Sin[880.00000 Pi (2.4 + t - 31.593750)],
TriangleWave[880.00000 (t - 31.593750)]],
If[Sin[440.00000 Pi (2.4 + t - 31.593750)] >
Cos[440.00000 Pi (2.4 + t - 31.593750)],
Sin[440.00000 Pi (2.4 + t - 31.593750)],
TriangleWave[440.00000 (2.4 + t - 31.593750)]]]),
31.593750 < t <
31.968750}, {(TriangleWave[
0.1 (2.4 + t - 31.968750)]^20) (If[
Sin[31.747999 (2.4 + t - 31.968750)] <
Tan[31.747999 (2.4 + t - 31.968750)],
If[Sin[698.45599 Pi (2.4 + t - 31.968750)] >
Cos[698.45599 Pi (2.4 + t - 31.968750)],
Sin[698.45599 Pi (2.4 + t - 31.968750)],
TriangleWave[698.45599 (t - 31.968750)]],
If[Sin[349.22800 Pi (2.4 + t - 31.968750)] >
Cos[349.22800 Pi (2.4 + t - 31.968750)],
Sin[349.22800 Pi (2.4 + t - 31.968750)],
TriangleWave[349.22800 (2.4 + t - 31.968750)]]]),
31.968750 < t <
32.093750}, {(TriangleWave[
0.1 (2.4 + t - 32.093750)]^20) (If[
Sin[40.000000 (2.4 + t - 32.093750)] <
Tan[40.000000 (2.4 + t - 32.093750)],
If[Sin[880.00000 Pi (2.4 + t - 32.093750)] >
Cos[880.00000 Pi (2.4 + t - 32.093750)],
Sin[880.00000 Pi (2.4 + t - 32.093750)],
TriangleWave[880.00000 (t - 32.093750)]],
If[Sin[440.00000 Pi (2.4 + t - 32.093750)] >
Cos[440.00000 Pi (2.4 + t - 32.093750)],
Sin[440.00000 Pi (2.4 + t - 32.093750)],
TriangleWave[440.00000 (2.4 + t - 32.093750)]]]),
32.093750 < t <
32.218750}, {(TriangleWave[
0.1 (2.4 + t - 32.218750)]^20) (If[
Sin[47.581455 (2.4 + t - 32.218750)] <
Tan[47.581455 (2.4 + t - 32.218750)],
If[Sin[1046.7920 Pi (2.4 + t - 32.218750)] >
Cos[1046.7920 Pi (2.4 + t - 32.218750)],
Sin[1046.7920 Pi (2.4 + t - 32.218750)],
TriangleWave[1046.7920 (t - 32.218750)]],
If[Sin[523.39600 Pi (2.4 + t - 32.218750)] >
Cos[523.39600 Pi (2.4 + t - 32.218750)],
Sin[523.39600 Pi (2.4 + t - 32.218750)],
TriangleWave[523.39600 (2.4 + t - 32.218750)]]]),
32.218750 < t <
32.343750}, {(TriangleWave[
0.1 (2.4 + t - 32.343750)]^20) (If[
Sin[53.393639 (2.4 + t - 32.343750)] <
Tan[53.393639 (2.4 + t - 32.343750)],
If[Sin[1174.6600 Pi (2.4 + t - 32.343750)] >
Cos[1174.6600 Pi (2.4 + t - 32.343750)],
Sin[1174.6600 Pi (2.4 + t - 32.343750)],
TriangleWave[1174.6600 (t - 32.343750)]],
If[Sin[587.33002 Pi (2.4 + t - 32.343750)] >
Cos[587.33002 Pi (2.4 + t - 32.343750)],
Sin[587.33002 Pi (2.4 + t - 32.343750)],
TriangleWave[587.33002 (2.4 + t - 32.343750)]]]),
32.343750 < t <
32.468750}, {(TriangleWave[
0.1 (2.4 + t - 32.468750)]^20) (If[
Sin[59.932362 (2.4 + t - 32.468750)] <
Tan[59.932362 (2.4 + t - 32.468750)],
If[Sin[1318.5120 Pi (2.4 + t - 32.468750)] >
Cos[1318.5120 Pi (2.4 + t - 32.468750)],
Sin[1318.5120 Pi (2.4 + t - 32.468750)],
TriangleWave[1318.5120 (t - 32.468750)]],
If[Sin[659.25598 Pi (2.4 + t - 32.468750)] >
Cos[659.25598 Pi (2.4 + t - 32.468750)],
Sin[659.25598 Pi (2.4 + t - 32.468750)],
TriangleWave[659.25598 (2.4 + t - 32.468750)]]]),
32.468750 < t <
32.593750}, {(TriangleWave[
0.1 (2.4 + t - 32.593750)]^20) (If[
Sin[53.393639 (2.4 + t - 32.593750)] <
Tan[53.393639 (2.4 + t - 32.593750)],
If[Sin[1174.6600 Pi (2.4 + t - 32.593750)] >
Cos[1174.6600 Pi (2.4 + t - 32.593750)],
Sin[1174.6600 Pi (2.4 + t - 32.593750)],
TriangleWave[1174.6600 (t - 32.593750)]],
If[Sin[587.33002 Pi (2.4 + t - 32.593750)] >
Cos[587.33002 Pi (2.4 + t - 32.593750)],
Sin[587.33002 Pi (2.4 + t - 32.593750)],
TriangleWave[587.33002 (2.4 + t - 32.593750)]]]),
32.593750 < t <
32.718750}, {(TriangleWave[
0.1 (2.4 + t - 32.718750)]^20) (If[
Sin[47.581455 (2.4 + t - 32.718750)] <
Tan[47.581455 (2.4 + t - 32.718750)],
If[Sin[1046.7920 Pi (2.4 + t - 32.718750)] >
Cos[1046.7920 Pi (2.4 + t - 32.718750)],
Sin[1046.7920 Pi (2.4 + t - 32.718750)],
TriangleWave[1046.7920 (t - 32.718750)]],
If[Sin[523.39600 Pi (2.4 + t - 32.718750)] >
Cos[523.39600 Pi (2.4 + t - 32.718750)],
Sin[523.39600 Pi (2.4 + t - 32.718750)],
TriangleWave[523.39600 (2.4 + t - 32.718750)]]]),
32.718750 < t <
32.843750}, {(TriangleWave[
0.1 (2.4 + t - 32.843750)]^20) (If[
Sin[44.898453 (2.4 + t - 32.843750)] <
Tan[44.898453 (2.4 + t - 32.843750)],
If[Sin[987.76599 Pi (2.4 + t - 32.843750)] >
Cos[987.76599 Pi (2.4 + t - 32.843750)],
Sin[987.76599 Pi (2.4 + t - 32.843750)],
TriangleWave[987.76599 (t - 32.843750)]],
If[Sin[493.88300 Pi (2.4 + t - 32.843750)] >
Cos[493.88300 Pi (2.4 + t - 32.843750)],
Sin[493.88300 Pi (2.4 + t - 32.843750)],
TriangleWave[493.88300 (2.4 + t - 32.843750)]]]),
32.843750 < t <
33.593750}, {(TriangleWave[
0.1 (2.4 + t - 33.593750)]^20) (If[
Sin[40.000000 (2.4 + t - 33.593750)] <
Tan[40.000000 (2.4 + t - 33.593750)],
If[Sin[880.00000 Pi (2.4 + t - 33.593750)] >
Cos[880.00000 Pi (2.4 + t - 33.593750)],
Sin[880.00000 Pi (2.4 + t - 33.593750)],
TriangleWave[880.00000 (t - 33.593750)]],
If[Sin[440.00000 Pi (2.4 + t - 33.593750)] >
Cos[440.00000 Pi (2.4 + t - 33.593750)],
Sin[440.00000 Pi (2.4 + t - 33.593750)],
TriangleWave[440.00000 (2.4 + t - 33.593750)]]]),
33.593750 < t < 33.968750}, {0,
33.968750 < t <
45.968750}, {(TriangleWave[
0.1 (2.4 + t - 45.968750)]^20) (If[
Sin[31.747999 (2.4 + t - 45.968750)] <
Tan[31.747999 (2.4 + t - 45.968750)],
If[Sin[698.45599 Pi (2.4 + t - 45.968750)] >
Cos[698.45599 Pi (2.4 + t - 45.968750)],
Sin[698.45599 Pi (2.4 + t - 45.968750)],
TriangleWave[698.45599 (t - 45.968750)]],
If[Sin[349.22800 Pi (2.4 + t - 45.968750)] >
Cos[349.22800 Pi (2.4 + t - 45.968750)],
Sin[349.22800 Pi (2.4 + t - 45.968750)],
TriangleWave[349.22800 (2.4 + t - 45.968750)]]]),
45.968750 < t <
46.093750}, {(TriangleWave[
0.1 (2.4 + t - 46.093750)]^20) (If[
Sin[40.000000 (2.4 + t - 46.093750)] <
Tan[40.000000 (2.4 + t - 46.093750)],
If[Sin[880.00000 Pi (2.4 + t - 46.093750)] >
Cos[880.00000 Pi (2.4 + t - 46.093750)],
Sin[880.00000 Pi (2.4 + t - 46.093750)],
TriangleWave[880.00000 (t - 46.093750)]],
If[Sin[440.00000 Pi (2.4 + t - 46.093750)] >
Cos[440.00000 Pi (2.4 + t - 46.093750)],
Sin[440.00000 Pi (2.4 + t - 46.093750)],
TriangleWave[440.00000 (2.4 + t - 46.093750)]]]),
46.093750 < t <
46.218750}, {(TriangleWave[
0.1 (2.4 + t - 46.218750)]^20) (If[
Sin[47.581455 (2.4 + t - 46.218750)] <
Tan[47.581455 (2.4 + t - 46.218750)],
If[Sin[1046.7920 Pi (2.4 + t - 46.218750)] >
Cos[1046.7920 Pi (2.4 + t - 46.218750)],
Sin[1046.7920 Pi (2.4 + t - 46.218750)],
TriangleWave[1046.7920 (t - 46.218750)]],
If[Sin[523.39600 Pi (2.4 + t - 46.218750)] >
Cos[523.39600 Pi (2.4 + t - 46.218750)],
Sin[523.39600 Pi (2.4 + t - 46.218750)],
TriangleWave[523.39600 (2.4 + t - 46.218750)]]]),
46.218750 < t <
46.343750}, {(TriangleWave[
0.1 (2.4 + t - 46.343750)]^20) (If[
Sin[53.393639 (2.4 + t - 46.343750)] <
Tan[53.393639 (2.4 + t - 46.343750)],
If[Sin[1174.6600 Pi (2.4 + t - 46.343750)] >
Cos[1174.6600 Pi (2.4 + t - 46.343750)],
Sin[1174.6600 Pi (2.4 + t - 46.343750)],
TriangleWave[1174.6600 (t - 46.343750)]],
If[Sin[587.33002 Pi (2.4 + t - 46.343750)] >
Cos[587.33002 Pi (2.4 + t - 46.343750)],
Sin[587.33002 Pi (2.4 + t - 46.343750)],
TriangleWave[587.33002 (2.4 + t - 46.343750)]]]),
46.343750 < t <
46.468750}, {(TriangleWave[
0.1 (2.4 + t - 46.468750)]^20) (If[
Sin[59.932362 (2.4 + t - 46.468750)] <
Tan[59.932362 (2.4 + t - 46.468750)],
If[Sin[1318.5120 Pi (2.4 + t - 46.468750)] >
Cos[1318.5120 Pi (2.4 + t - 46.468750)],
Sin[1318.5120 Pi (2.4 + t - 46.468750)],
TriangleWave[1318.5120 (t - 46.468750)]],
If[Sin[659.25598 Pi (2.4 + t - 46.468750)] >
Cos[659.25598 Pi (2.4 + t - 46.468750)],
Sin[659.25598 Pi (2.4 + t - 46.468750)],
TriangleWave[659.25598 (2.4 + t - 46.468750)]]]),
46.468750 < t <
46.593750}, {(TriangleWave[
0.1 (2.4 + t - 46.593750)]^20) (If[
Sin[53.393639 (2.4 + t - 46.593750)] <
Tan[53.393639 (2.4 + t - 46.593750)],
If[Sin[1174.6600 Pi (2.4 + t - 46.593750)] >
Cos[1174.6600 Pi (2.4 + t - 46.593750)],
Sin[1174.6600 Pi (2.4 + t - 46.593750)],
TriangleWave[1174.6600 (t - 46.593750)]],
If[Sin[587.33002 Pi (2.4 + t - 46.593750)] >
Cos[587.33002 Pi (2.4 + t - 46.593750)],
Sin[587.33002 Pi (2.4 + t - 46.593750)],
TriangleWave[587.33002 (2.4 + t - 46.593750)]]]),
46.593750 < t <
46.718750}, {(TriangleWave[
0.1 (2.4 + t - 46.718750)]^20) (If[
Sin[47.581455 (2.4 + t - 46.718750)] <
Tan[47.581455 (2.4 + t - 46.718750)],
If[Sin[1046.7920 Pi (2.4 + t - 46.718750)] >
Cos[1046.7920 Pi (2.4 + t - 46.718750)],
Sin[1046.7920 Pi (2.4 + t - 46.718750)],
TriangleWave[1046.7920 (t - 46.718750)]],
If[Sin[523.39600 Pi (2.4 + t - 46.718750)] >
Cos[523.39600 Pi (2.4 + t - 46.718750)],
Sin[523.39600 Pi (2.4 + t - 46.718750)],
TriangleWave[523.39600 (2.4 + t - 46.718750)]]]),
46.718750 < t <
46.843750}, {(TriangleWave[
0.1 (2.4 + t - 46.843750)]^20) (If[
Sin[44.898453 (2.4 + t - 46.843750)] <
Tan[44.898453 (2.4 + t - 46.843750)],
If[Sin[987.76599 Pi (2.4 + t - 46.843750)] >
Cos[987.76599 Pi (2.4 + t - 46.843750)],
Sin[987.76599 Pi (2.4 + t - 46.843750)],
TriangleWave[987.76599 (t - 46.843750)]],
If[Sin[493.88300 Pi (2.4 + t - 46.843750)] >
Cos[493.88300 Pi (2.4 + t - 46.843750)],
Sin[493.88300 Pi (2.4 + t - 46.843750)],
TriangleWave[493.88300 (2.4 + t - 46.843750)]]]),
46.843750 < t <
47.593750}, {(TriangleWave[
0.1 (2.4 + t - 47.593750)]^20) (If[
Sin[40.000000 (2.4 + t - 47.593750)] <
Tan[40.000000 (2.4 + t - 47.593750)],
If[Sin[880.00000 Pi (2.4 + t - 47.593750)] >
Cos[880.00000 Pi (2.4 + t - 47.593750)],
Sin[880.00000 Pi (2.4 + t - 47.593750)],
TriangleWave[880.00000 (t - 47.593750)]],
If[Sin[440.00000 Pi (2.4 + t - 47.593750)] >
Cos[440.00000 Pi (2.4 + t - 47.593750)],
Sin[440.00000 Pi (2.4 + t - 47.593750)],
TriangleWave[440.00000 (2.4 + t - 47.593750)]]]),
47.593750 < t <
47.968750}, {(TriangleWave[
0.1 (2.4 + t - 47.968750)]^20) (If[
Sin[31.747999 (2.4 + t - 47.968750)] <
Tan[31.747999 (2.4 + t - 47.968750)],
If[Sin[698.45599 Pi (2.4 + t - 47.968750)] >
Cos[698.45599 Pi (2.4 + t - 47.968750)],
Sin[698.45599 Pi (2.4 + t - 47.968750)],
TriangleWave[698.45599 (t - 47.968750)]],
If[Sin[349.22800 Pi (2.4 + t - 47.968750)] >
Cos[349.22800 Pi (2.4 + t - 47.968750)],
Sin[349.22800 Pi (2.4 + t - 47.968750)],
TriangleWave[349.22800 (2.4 + t - 47.968750)]]]),
47.968750 < t <
48.093750}, {(TriangleWave[
0.1 (2.4 + t - 48.093750)]^20) (If[
Sin[40.000000 (2.4 + t - 48.093750)] <
Tan[40.000000 (2.4 + t - 48.093750)],
If[Sin[880.00000 Pi (2.4 + t - 48.093750)] >
Cos[880.00000 Pi (2.4 + t - 48.093750)],
Sin[880.00000 Pi (2.4 + t - 48.093750)],
TriangleWave[880.00000 (t - 48.093750)]],
If[Sin[440.00000 Pi (2.4 + t - 48.093750)] >
Cos[440.00000 Pi (2.4 + t - 48.093750)],
Sin[440.00000 Pi (2.4 + t - 48.093750)],
TriangleWave[440.00000 (2.4 + t - 48.093750)]]]),
48.093750 < t <
48.218750}, {(TriangleWave[
0.1 (2.4 + t - 48.218750)]^20) (If[
Sin[47.581455 (2.4 + t - 48.218750)] <
Tan[47.581455 (2.4 + t - 48.218750)],
If[Sin[1046.7920 Pi (2.4 + t - 48.218750)] >
Cos[1046.7920 Pi (2.4 + t - 48.218750)],
Sin[1046.7920 Pi (2.4 + t - 48.218750)],
TriangleWave[1046.7920 (t - 48.218750)]],
If[Sin[523.39600 Pi (2.4 + t - 48.218750)] >
Cos[523.39600 Pi (2.4 + t - 48.218750)],
Sin[523.39600 Pi (2.4 + t - 48.218750)],
TriangleWave[523.39600 (2.4 + t - 48.218750)]]]),
48.218750 < t <
48.343750}, {(TriangleWave[
0.1 (2.4 + t - 48.343750)]^20) (If[
Sin[53.393639 (2.4 + t - 48.343750)] <
Tan[53.393639 (2.4 + t - 48.343750)],
If[Sin[1174.6600 Pi (2.4 + t - 48.343750)] >
Cos[1174.6600 Pi (2.4 + t - 48.343750)],
Sin[1174.6600 Pi (2.4 + t - 48.343750)],
TriangleWave[1174.6600 (t - 48.343750)]],
If[Sin[587.33002 Pi (2.4 + t - 48.343750)] >
Cos[587.33002 Pi (2.4 + t - 48.343750)],
Sin[587.33002 Pi (2.4 + t - 48.343750)],
TriangleWave[587.33002 (2.4 + t - 48.343750)]]]),
48.343750 < t <
48.468750}, {(TriangleWave[
0.1 (2.4 + t - 48.468750)]^20) (If[
Sin[59.932362 (2.4 + t - 48.468750)] <
Tan[59.932362 (2.4 + t - 48.468750)],
If[Sin[1318.5120 Pi (2.4 + t - 48.468750)] >
Cos[1318.5120 Pi (2.4 + t - 48.468750)],
Sin[1318.5120 Pi (2.4 + t - 48.468750)],
TriangleWave[1318.5120 (t - 48.468750)]],
If[Sin[659.25598 Pi (2.4 + t - 48.468750)] >
Cos[659.25598 Pi (2.4 + t - 48.468750)],
Sin[659.25598 Pi (2.4 + t - 48.468750)],
TriangleWave[659.25598 (2.4 + t - 48.468750)]]]),
48.468750 < t <
48.593750}, {(TriangleWave[
0.1 (2.4 + t - 48.593750)]^20) (If[
Sin[53.393639 (2.4 + t - 48.593750)] <
Tan[53.393639 (2.4 + t - 48.593750)],
If[Sin[1174.6600 Pi (2.4 + t - 48.593750)] >
Cos[1174.6600 Pi (2.4 + t - 48.593750)],
Sin[1174.6600 Pi (2.4 + t - 48.593750)],
TriangleWave[1174.6600 (t - 48.593750)]],
If[Sin[587.33002 Pi (2.4 + t - 48.593750)] >
Cos[587.33002 Pi (2.4 + t - 48.593750)],
Sin[587.33002 Pi (2.4 + t - 48.593750)],
TriangleWave[587.33002 (2.4 + t - 48.593750)]]]),
48.593750 < t <
48.718750}, {(TriangleWave[
0.1 (2.4 + t - 48.718750)]^20) (If[
Sin[47.581455 (2.4 + t - 48.718750)] <
Tan[47.581455 (2.4 + t - 48.718750)],
If[Sin[1046.7920 Pi (2.4 + t - 48.718750)] >
Cos[1046.7920 Pi (2.4 + t - 48.718750)],
Sin[1046.7920 Pi (2.4 + t - 48.718750)],
TriangleWave[1046.7920 (t - 48.718750)]],
If[Sin[523.39600 Pi (2.4 + t - 48.718750)] >
Cos[523.39600 Pi (2.4 + t - 48.718750)],
Sin[523.39600 Pi (2.4 + t - 48.718750)],
TriangleWave[523.39600 (2.4 + t - 48.718750)]]]),
48.718750 < t <
48.843750}, {(TriangleWave[
0.1 (2.4 + t - 48.843750)]^20) (If[
Sin[44.898453 (2.4 + t - 48.843750)] <
Tan[44.898453 (2.4 + t - 48.843750)],
If[Sin[987.76599 Pi (2.4 + t - 48.843750)] >
Cos[987.76599 Pi (2.4 + t - 48.843750)],
Sin[987.76599 Pi (2.4 + t - 48.843750)],
TriangleWave[987.76599 (t - 48.843750)]],
If[Sin[493.88300 Pi (2.4 + t - 48.843750)] >
Cos[493.88300 Pi (2.4 + t - 48.843750)],
Sin[493.88300 Pi (2.4 + t - 48.843750)],
TriangleWave[493.88300 (2.4 + t - 48.843750)]]]),
48.843750 < t <
49.593750}, {(TriangleWave[
0.1 (2.4 + t - 49.593750)]^20) (If[
Sin[40.000000 (2.4 + t - 49.593750)] <
Tan[40.000000 (2.4 + t - 49.593750)],
If[Sin[880.00000 Pi (2.4 + t - 49.593750)] >
Cos[880.00000 Pi (2.4 + t - 49.593750)],
Sin[880.00000 Pi (2.4 + t - 49.593750)],
TriangleWave[880.00000 (t - 49.593750)]],
If[Sin[440.00000 Pi (2.4 + t - 49.593750)] >
Cos[440.00000 Pi (2.4 + t - 49.593750)],
Sin[440.00000 Pi (2.4 + t - 49.593750)],
TriangleWave[440.00000 (2.4 + t - 49.593750)]]]),
49.593750 < t < 49.968750}, {0, 49.968750 < t < 64.031250}}] +
Piecewise[{{0,
0.0000000 < t <
3.9687500}, {(1 -
Log[(t - 3.9687500)^3 + (t - 3.9687500)^2] + 1) If[
Sin[87.306999 Pi (t - 3.9687500)] >
Cos[87.306999 Pi (t - 3.9687500)],
Sin[103.18100 Pi (t - 3.9687500)],
Sin[87.306999 Pi (t - 3.9687500)]],
3.9687500 < t < 4.2187500}, {0,
4.2187500 < t <
4.4687500}, {(1 -
Log[(t - 4.4687500)^3 + (t - 4.4687500)^2] + 1) If[
Sin[87.306999 Pi (t - 4.4687500)] >
Cos[87.306999 Pi (t - 4.4687500)],
Sin[103.18100 Pi (t - 4.4687500)],
Sin[87.306999 Pi (t - 4.4687500)]],
4.4687500 < t < 4.7187500}, {0,
4.7187500 < t <
4.9687500}, {(1 -
Log[(t - 4.9687500)^3 + (t - 4.9687500)^2] + 1) If[
Sin[87.306999 Pi (t - 4.9687500)] >
Cos[87.306999 Pi (t - 4.9687500)],
Sin[103.18100 Pi (t - 4.9687500)],
Sin[87.306999 Pi (t - 4.9687500)]],
4.9687500 < t < 5.2187500}, {0,
5.2187500 < t <
5.4687500}, {(1 -
Log[(t - 5.4687500)^3 + (t - 5.4687500)^2] + 1) If[
Sin[87.306999 Pi (t - 5.4687500)] >
Cos[87.306999 Pi (t - 5.4687500)],
Sin[103.18100 Pi (t - 5.4687500)],
Sin[87.306999 Pi (t - 5.4687500)]],
5.4687500 < t < 5.7187500}, {0,
5.7187500 < t <
7.9687500}, {(1 -
Log[(t - 7.9687500)^3 + (t - 7.9687500)^2] + 1) If[
Sin[87.306999 Pi (t - 7.9687500)] >
Cos[87.306999 Pi (t - 7.9687500)],
Sin[103.18100 Pi (t - 7.9687500)],
Sin[87.306999 Pi (t - 7.9687500)]],
7.9687500 < t <
8.4687500}, {(1 -
Log[(t - 8.4687500)^3 + (t - 8.4687500)^2] + 1) If[
Sin[65.424500 Pi (t - 8.4687500)] >
Cos[65.424500 Pi (t - 8.4687500)],
Sin[77.319862 Pi (t - 8.4687500)],
Sin[65.424500 Pi (t - 8.4687500)]],
8.4687500 < t <
8.9687500}, {(1 -
Log[(t - 8.9687500)^3 + (t - 8.9687500)^2] + 1) If[
Sin[87.306999 Pi (t - 8.9687500)] >
Cos[87.306999 Pi (t - 8.9687500)],
Sin[103.18100 Pi (t - 8.9687500)],
Sin[87.306999 Pi (t - 8.9687500)]],
8.9687500 < t <
9.4687500}, {(1 -
Log[(t - 9.4687500)^3 + (t - 9.4687500)^2] + 1) If[
Sin[65.424500 Pi (t - 9.4687500)] >
Cos[65.424500 Pi (t - 9.4687500)],
Sin[77.319862 Pi (t - 9.4687500)],
Sin[65.424500 Pi (t - 9.4687500)]],
9.4687500 < t < 9.9687500}, {0,
9.9687500 < t <
11.968750}, {(1 -
Log[(t - 11.968750)^3 + (t - 11.968750)^2] + 1) If[
Sin[87.306999 Pi (t - 11.968750)] >
Cos[87.306999 Pi (t - 11.968750)],
Sin[103.18100 Pi (t - 11.968750)],
Sin[87.306999 Pi (t - 11.968750)]],
11.968750 < t <
12.968750}, {(1 -
Log[(t - 12.968750)^3 + (t - 12.968750)^2] + 1) If[
Sin[65.424500 Pi (t - 12.968750)] >
Cos[65.424500 Pi (t - 12.968750)],
Sin[77.319862 Pi (t - 12.968750)],
Sin[65.424500 Pi (t - 12.968750)]],
12.968750 < t <
13.968750}, {(1 -
Log[(t - 13.968750)^3 + (t - 13.968750)^2] + 1) If[
Sin[87.306999 Pi (t - 13.968750)] >
Cos[87.306999 Pi (t - 13.968750)],
Sin[103.18100 Pi (t - 13.968750)],
Sin[87.306999 Pi (t - 13.968750)]],
13.968750 < t <
14.968750}, {(1 -
Log[(t - 14.968750)^3 + (t - 14.968750)^2] + 1) If[
Sin[65.424500 Pi (t - 14.968750)] >
Cos[65.424500 Pi (t - 14.968750)],
Sin[77.319862 Pi (t - 14.968750)],
Sin[65.424500 Pi (t - 14.968750)]],
14.968750 < t <
15.968750}, {(1 -
Log[(t - 15.968750)^3 + (t - 15.968750)^2] + 1) If[
Sin[87.306999 Pi (t - 15.968750)] >
Cos[87.306999 Pi (t - 15.968750)],
Sin[103.18100 Pi (t - 15.968750)],
Sin[87.306999 Pi (t - 15.968750)]],
15.968750 < t <
16.968750}, {(1 -
Log[(t - 16.968750)^3 + (t - 16.968750)^2] + 1) If[
Sin[65.424500 Pi (t - 16.968750)] >
Cos[65.424500 Pi (t - 16.968750)],
Sin[77.319862 Pi (t - 16.968750)],
Sin[65.424500 Pi (t - 16.968750)]],
16.968750 < t <
17.968750}, {(1 -
Log[(t - 17.968750)^3 + (t - 17.968750)^2] + 1) If[
Sin[87.306999 Pi (t - 17.968750)] >
Cos[87.306999 Pi (t - 17.968750)],
Sin[103.18100 Pi (t - 17.968750)],
Sin[87.306999 Pi (t - 17.968750)]],
17.968750 < t <
18.968750}, {(1 -
Log[(t - 18.968750)^3 + (t - 18.968750)^2] + 1) If[
Sin[65.424500 Pi (t - 18.968750)] >
Cos[65.424500 Pi (t - 18.968750)],
Sin[77.319862 Pi (t - 18.968750)],
Sin[65.424500 Pi (t - 18.968750)]],
18.968750 < t <
19.968750}, {(1 -
Log[(t - 19.968750)^3 + (t - 19.968750)^2] + 1) If[
Sin[87.306999 Pi (t - 19.968750)] >
Cos[87.306999 Pi (t - 19.968750)],
Sin[103.18100 Pi (t - 19.968750)],
Sin[87.306999 Pi (t - 19.968750)]],
19.968750 < t <
20.968750}, {(1 -
Log[(t - 20.968750)^3 + (t - 20.968750)^2] + 1) If[
Sin[65.424500 Pi (t - 20.968750)] >
Cos[65.424500 Pi (t - 20.968750)],
Sin[77.319862 Pi (t - 20.968750)],
Sin[65.424500 Pi (t - 20.968750)]],
20.968750 < t <
21.968750}, {(1 -
Log[(t - 21.968750)^3 + (t - 21.968750)^2] + 1) If[
Sin[87.306999 Pi (t - 21.968750)] >
Cos[87.306999 Pi (t - 21.968750)],
Sin[103.18100 Pi (t - 21.968750)],
Sin[87.306999 Pi (t - 21.968750)]],
21.968750 < t <
22.968750}, {(1 -
Log[(t - 22.968750)^3 + (t - 22.968750)^2] + 1) If[
Sin[65.424500 Pi (t - 22.968750)] >
Cos[65.424500 Pi (t - 22.968750)],
Sin[77.319862 Pi (t - 22.968750)],
Sin[65.424500 Pi (t - 22.968750)]],
22.968750 < t <
23.968750}, {(1 -
Log[(t - 23.968750)^3 + (t - 23.968750)^2] + 1) If[
Sin[87.306999 Pi (t - 23.968750)] >
Cos[87.306999 Pi (t - 23.968750)],
Sin[103.18100 Pi (t - 23.968750)],
Sin[87.306999 Pi (t - 23.968750)]],
23.968750 < t <
24.968750}, {(1 -
Log[(t - 24.968750)^3 + (t - 24.968750)^2] + 1) If[
Sin[65.424500 Pi (t - 24.968750)] >
Cos[65.424500 Pi (t - 24.968750)],
Sin[77.319862 Pi (t - 24.968750)],
Sin[65.424500 Pi (t - 24.968750)]],
24.968750 < t <
29.968750}, {(1 -
Log[(t - 29.968750)^3 + (t - 29.968750)^2] + 1) If[
Sin[87.306999 Pi (t - 29.968750)] >
Cos[87.306999 Pi (t - 29.968750)],
Sin[103.18100 Pi (t - 29.968750)],
Sin[87.306999 Pi (t - 29.968750)]],
29.968750 < t <
30.968750}, {(1 -
Log[(t - 30.968750)^3 + (t - 30.968750)^2] + 1) If[
Sin[65.424500 Pi (t - 30.968750)] >
Cos[65.424500 Pi (t - 30.968750)],
Sin[77.319862 Pi (t - 30.968750)],
Sin[65.424500 Pi (t - 30.968750)]],
30.968750 < t <
33.968750}, {(1 -
Log[(t - 33.968750)^3 + (t - 33.968750)^2] + 1) If[
Sin[87.306999 Pi (t - 33.968750)] >
Cos[87.306999 Pi (t - 33.968750)],
Sin[103.18100 Pi (t - 33.968750)],
Sin[87.306999 Pi (t - 33.968750)]],
33.968750 < t <
34.968750}, {(1 -
Log[(t - 34.968750)^3 + (t - 34.968750)^2] + 1) If[
Sin[65.424500 Pi (t - 34.968750)] >
Cos[65.424500 Pi (t - 34.968750)],
Sin[77.319862 Pi (t - 34.968750)],
Sin[65.424500 Pi (t - 34.968750)]],
34.968750 < t <
37.968750}, {(1 -
Log[(t - 37.968750)^3 + (t - 37.968750)^2] + 1) If[
Sin[87.306999 Pi (t - 37.968750)] >
Cos[87.306999 Pi (t - 37.968750)],
Sin[103.18100 Pi (t - 37.968750)],
Sin[87.306999 Pi (t - 37.968750)]],
37.968750 < t <
38.968750}, {(1 -
Log[(t - 38.968750)^3 + (t - 38.968750)^2] + 1) If[
Sin[65.424500 Pi (t - 38.968750)] >
Cos[65.424500 Pi (t - 38.968750)],
Sin[77.319862 Pi (t - 38.968750)],
Sin[65.424500 Pi (t - 38.968750)]],
38.968750 < t <
41.968750}, {(1 -
Log[(t - 41.968750)^3 + (t - 41.968750)^2] + 1) If[
Sin[87.306999 Pi (t - 41.968750)] >
Cos[87.306999 Pi (t - 41.968750)],
Sin[103.18100 Pi (t - 41.968750)],
Sin[87.306999 Pi (t - 41.968750)]],
41.968750 < t <
42.968750}, {(1 -
Log[(t - 42.968750)^3 + (t - 42.968750)^2] + 1) If[
Sin[65.424500 Pi (t - 42.968750)] >
Cos[65.424500 Pi (t - 42.968750)],
Sin[77.319862 Pi (t - 42.968750)],
Sin[65.424500 Pi (t - 42.968750)]],
42.968750 < t <
45.968750}, {(1 -
Log[(t - 45.968750)^3 + (t - 45.968750)^2] + 1) If[
Sin[87.306999 Pi (t - 45.968750)] >
Cos[87.306999 Pi (t - 45.968750)],
Sin[103.18100 Pi (t - 45.968750)],
Sin[87.306999 Pi (t - 45.968750)]],
45.968750 < t <
46.968750}, {(1 -
Log[(t - 46.968750)^3 + (t - 46.968750)^2] + 1) If[
Sin[65.424500 Pi (t - 46.968750)] >
Cos[65.424500 Pi (t - 46.968750)],
Sin[77.319862 Pi (t - 46.968750)],
Sin[65.424500 Pi (t - 46.968750)]],
46.968750 < t <
53.968750}, {(1 -
Log[(t - 53.968750)^3 + (t - 53.968750)^2] + 1) If[
Sin[87.306999 Pi (t - 53.968750)] >
Cos[87.306999 Pi (t - 53.968750)],
Sin[103.18100 Pi (t - 53.968750)],
Sin[87.306999 Pi (t - 53.968750)]],
53.968750 < t <
54.968750}, {(1 -
Log[(t - 54.968750)^3 + (t - 54.968750)^2] + 1) If[
Sin[65.424500 Pi (t - 54.968750)] >
Cos[65.424500 Pi (t - 54.968750)],
Sin[77.319862 Pi (t - 54.968750)],
Sin[65.424500 Pi (t - 54.968750)]],
54.968750 < t < 57.968750}, {0,
57.968750 < t < 64.031250}}], {t, 0, 64.031250}]]]