syz = 3.765945723590548 - 0.0007036432699181316*t + 
     0.2929210451855546*Cos[(7*Pi*t)/213] - 0.5753457097719147*
      (If[Inequality[1, LessEqual, t, Less, 2], 1, 0] + 
       If[Inequality[13, LessEqual, t, Less, 14], 1, 0] + 
       If[Inequality[25, LessEqual, t, Less, 26], 1, 0] + 
       If[Inequality[37, LessEqual, t, Less, 38], 1, 0] + 
       If[Inequality[49, LessEqual, t, Less, 50], 1, 0] + 
       If[Inequality[61, LessEqual, t, Less, 62], 1, 0] + 
       If[Inequality[73, LessEqual, t, Less, 74], 1, 0] + 
       If[Inequality[85, LessEqual, t, Less, 86], 1, 0] + 
       If[Inequality[97, LessEqual, t, Less, 98], 1, 0] + 
       If[Inequality[109, LessEqual, t, Less, 110], 1, 0] + 
       If[Inequality[121, LessEqual, t, Less, 122], 1, 0] + 
       If[Inequality[133, LessEqual, t, Less, 134], 1, 0] + 
       If[Inequality[145, LessEqual, t, Less, 146], 1, 0] + 
       If[Inequality[157, LessEqual, t, Less, 158], 1, 0] + 
       If[Inequality[169, LessEqual, t, Less, 170], 1, 0] + 
       If[Inequality[181, LessEqual, t, Less, 182], 1, 0] + 
       If[Inequality[193, LessEqual, t, Less, 194], 1, 0] + 
       If[Inequality[205, LessEqual, t, Less, 206], 1, 0] + 
       If[Inequality[217, LessEqual, t, Less, 218], 1, 0] + 
       If[Inequality[229, LessEqual, t, Less, 230], 1, 0] + 
       If[Inequality[241, LessEqual, t, Less, 242], 1, 0] + 
       If[Inequality[253, LessEqual, t, Less, 254], 1, 0] + 
       If[Inequality[265, LessEqual, t, Less, 266], 1, 0] + 
       If[Inequality[277, LessEqual, t, Less, 278], 1, 0] + 
       If[Inequality[289, LessEqual, t, Less, 290], 1, 0] + 
       If[Inequality[301, LessEqual, t, Less, 302], 1, 0] + 
       If[Inequality[313, LessEqual, t, Less, 314], 1, 0] + 
       If[Inequality[325, LessEqual, t, Less, 326], 1, 0] + 
       If[Inequality[337, LessEqual, t, Less, 338], 1, 0] + 
       If[Inequality[349, LessEqual, t, Less, 350], 1, 0] + 
       If[Inequality[361, LessEqual, t, Less, 362], 1, 0] + 
       If[Inequality[373, LessEqual, t, Less, 374], 1, 0] + 
       If[Inequality[385, LessEqual, t, Less, 386], 1, 0] + 
       If[Inequality[397, LessEqual, t, Less, 398], 1, 0] + 
       If[Inequality[409, LessEqual, t, Less, 410], 1, 0] + 
       If[Inequality[421, LessEqual, t, Less, 422], 1, 0] + 
       If[Inequality[433, LessEqual, t, Less, 434], 1, 0] + 
       If[Inequality[445, LessEqual, t, Less, 446], 1, 0] + 
       If[Inequality[457, LessEqual, t, Less, 458], 1, 0] + 
       If[Inequality[469, LessEqual, t, Less, 470], 1, 0] + 
       If[Inequality[481, LessEqual, t, Less, 482], 1, 0] + 
       If[Inequality[493, LessEqual, t, Less, 494], 1, 0] + 
       If[Inequality[505, LessEqual, t, Less, 506], 1, 0] + 
       If[Inequality[517, LessEqual, t, Less, 518], 1, 0] + 
       If[Inequality[529, LessEqual, t, Less, 530], 1, 0] + 
       If[Inequality[541, LessEqual, t, Less, 542], 1, 0] + 
       If[Inequality[553, LessEqual, t, Less, 554], 1, 0] + 
       If[Inequality[565, LessEqual, t, Less, 566], 1, 0] + 
       If[Inequality[577, LessEqual, t, Less, 578], 1, 0] + 
       If[Inequality[589, LessEqual, t, Less, 590], 1, 0] + 
       If[Inequality[601, LessEqual, t, Less, 602], 1, 0] + 
       If[Inequality[613, LessEqual, t, Less, 614], 1, 0] + 
       If[Inequality[625, LessEqual, t, Less, 626], 1, 0] + 
       If[Inequality[637, LessEqual, t, Less, 638], 1, 0] + 
       If[Inequality[649, LessEqual, t, Less, 650], 1, 0] + 
       If[Inequality[661, LessEqual, t, Less, 662], 1, 0] + 
       If[Inequality[673, LessEqual, t, Less, 674], 1, 0] + 
       If[Inequality[685, LessEqual, t, Less, 686], 1, 0] + 
       If[Inequality[697, LessEqual, t, Less, 698], 1, 0] + 
       If[Inequality[709, LessEqual, t, Less, 710], 1, 0] + 
       If[Inequality[721, LessEqual, t, Less, 722], 1, 0] + 
       If[Inequality[733, LessEqual, t, Less, 734], 1, 0] + 
       If[Inequality[745, LessEqual, t, Less, 746], 1, 0] + 
       If[Inequality[757, LessEqual, t, Less, 758], 1, 0] + 
       If[Inequality[769, LessEqual, t, Less, 770], 1, 0] + 
       If[Inequality[781, LessEqual, t, Less, 782], 1, 0] + 
       If[Inequality[793, LessEqual, t, Less, 794], 1, 0] + 
       If[Inequality[805, LessEqual, t, Less, 806], 1, 0] + 
       If[Inequality[817, LessEqual, t, Less, 818], 1, 0] + 
       If[Inequality[829, LessEqual, t, Less, 830], 1, 0] + 
       If[Inequality[841, LessEqual, t, Less, 842], 1, 0]) - 
     0.11830403833298604*(If[Inequality[2, LessEqual, t, Less, 3], 1, 0] + 
       If[Inequality[14, LessEqual, t, Less, 15], 1, 0] + 
       If[Inequality[26, LessEqual, t, Less, 27], 1, 0] + 
       If[Inequality[38, LessEqual, t, Less, 39], 1, 0] + 
       If[Inequality[50, LessEqual, t, Less, 51], 1, 0] + 
       If[Inequality[62, LessEqual, t, Less, 63], 1, 0] + 
       If[Inequality[74, LessEqual, t, Less, 75], 1, 0] + 
       If[Inequality[86, LessEqual, t, Less, 87], 1, 0] + 
       If[Inequality[98, LessEqual, t, Less, 99], 1, 0] + 
       If[Inequality[110, LessEqual, t, Less, 111], 1, 0] + 
       If[Inequality[122, LessEqual, t, Less, 123], 1, 0] + 
       If[Inequality[134, LessEqual, t, Less, 135], 1, 0] + 
       If[Inequality[146, LessEqual, t, Less, 147], 1, 0] + 
       If[Inequality[158, LessEqual, t, Less, 159], 1, 0] + 
       If[Inequality[170, LessEqual, t, Less, 171], 1, 0] + 
       If[Inequality[182, LessEqual, t, Less, 183], 1, 0] + 
       If[Inequality[194, LessEqual, t, Less, 195], 1, 0] + 
       If[Inequality[206, LessEqual, t, Less, 207], 1, 0] + 
       If[Inequality[218, LessEqual, t, Less, 219], 1, 0] + 
       If[Inequality[230, LessEqual, t, Less, 231], 1, 0] + 
       If[Inequality[242, LessEqual, t, Less, 243], 1, 0] + 
       If[Inequality[254, LessEqual, t, Less, 255], 1, 0] + 
       If[Inequality[266, LessEqual, t, Less, 267], 1, 0] + 
       If[Inequality[278, LessEqual, t, Less, 279], 1, 0] + 
       If[Inequality[290, LessEqual, t, Less, 291], 1, 0] + 
       If[Inequality[302, LessEqual, t, Less, 303], 1, 0] + 
       If[Inequality[314, LessEqual, t, Less, 315], 1, 0] + 
       If[Inequality[326, LessEqual, t, Less, 327], 1, 0] + 
       If[Inequality[338, LessEqual, t, Less, 339], 1, 0] + 
       If[Inequality[350, LessEqual, t, Less, 351], 1, 0] + 
       If[Inequality[362, LessEqual, t, Less, 363], 1, 0] + 
       If[Inequality[374, LessEqual, t, Less, 375], 1, 0] + 
       If[Inequality[386, LessEqual, t, Less, 387], 1, 0] + 
       If[Inequality[398, LessEqual, t, Less, 399], 1, 0] + 
       If[Inequality[410, LessEqual, t, Less, 411], 1, 0] + 
       If[Inequality[422, LessEqual, t, Less, 423], 1, 0] + 
       If[Inequality[434, LessEqual, t, Less, 435], 1, 0] + 
       If[Inequality[446, LessEqual, t, Less, 447], 1, 0] + 
       If[Inequality[458, LessEqual, t, Less, 459], 1, 0] + 
       If[Inequality[470, LessEqual, t, Less, 471], 1, 0] + 
       If[Inequality[482, LessEqual, t, Less, 483], 1, 0] + 
       If[Inequality[494, LessEqual, t, Less, 495], 1, 0] + 
       If[Inequality[506, LessEqual, t, Less, 507], 1, 0] + 
       If[Inequality[518, LessEqual, t, Less, 519], 1, 0] + 
       If[Inequality[530, LessEqual, t, Less, 531], 1, 0] + 
       If[Inequality[542, LessEqual, t, Less, 543], 1, 0] + 
       If[Inequality[554, LessEqual, t, Less, 555], 1, 0] + 
       If[Inequality[566, LessEqual, t, Less, 567], 1, 0] + 
       If[Inequality[578, LessEqual, t, Less, 579], 1, 0] + 
       If[Inequality[590, LessEqual, t, Less, 591], 1, 0] + 
       If[Inequality[602, LessEqual, t, Less, 603], 1, 0] + 
       If[Inequality[614, LessEqual, t, Less, 615], 1, 0] + 
       If[Inequality[626, LessEqual, t, Less, 627], 1, 0] + 
       If[Inequality[638, LessEqual, t, Less, 639], 1, 0] + 
       If[Inequality[650, LessEqual, t, Less, 651], 1, 0] + 
       If[Inequality[662, LessEqual, t, Less, 663], 1, 0] + 
       If[Inequality[674, LessEqual, t, Less, 675], 1, 0] + 
       If[Inequality[686, LessEqual, t, Less, 687], 1, 0] + 
       If[Inequality[698, LessEqual, t, Less, 699], 1, 0] + 
       If[Inequality[710, LessEqual, t, Less, 711], 1, 0] + 
       If[Inequality[722, LessEqual, t, Less, 723], 1, 0] + 
       If[Inequality[734, LessEqual, t, Less, 735], 1, 0] + 
       If[Inequality[746, LessEqual, t, Less, 747], 1, 0] + 
       If[Inequality[758, LessEqual, t, Less, 759], 1, 0] + 
       If[Inequality[770, LessEqual, t, Less, 771], 1, 0] + 
       If[Inequality[782, LessEqual, t, Less, 783], 1, 0] + 
       If[Inequality[794, LessEqual, t, Less, 795], 1, 0] + 
       If[Inequality[806, LessEqual, t, Less, 807], 1, 0] + 
       If[Inequality[818, LessEqual, t, Less, 819], 1, 0] + 
       If[Inequality[830, LessEqual, t, Less, 831], 1, 0] + 
       If[Inequality[842, LessEqual, t, Less, 843], 1, 0]) + 
     2.244371435922844*(If[Inequality[3, LessEqual, t, Less, 4], 1, 0] + 
       If[Inequality[15, LessEqual, t, Less, 16], 1, 0] + 
       If[Inequality[27, LessEqual, t, Less, 28], 1, 0] + 
       If[Inequality[39, LessEqual, t, Less, 40], 1, 0] + 
       If[Inequality[51, LessEqual, t, Less, 52], 1, 0] + 
       If[Inequality[63, LessEqual, t, Less, 64], 1, 0] + 
       If[Inequality[75, LessEqual, t, Less, 76], 1, 0] + 
       If[Inequality[87, LessEqual, t, Less, 88], 1, 0] + 
       If[Inequality[99, LessEqual, t, Less, 100], 1, 0] + 
       If[Inequality[111, LessEqual, t, Less, 112], 1, 0] + 
       If[Inequality[123, LessEqual, t, Less, 124], 1, 0] + 
       If[Inequality[135, LessEqual, t, Less, 136], 1, 0] + 
       If[Inequality[147, LessEqual, t, Less, 148], 1, 0] + 
       If[Inequality[159, LessEqual, t, Less, 160], 1, 0] + 
       If[Inequality[171, LessEqual, t, Less, 172], 1, 0] + 
       If[Inequality[183, LessEqual, t, Less, 184], 1, 0] + 
       If[Inequality[195, LessEqual, t, Less, 196], 1, 0] + 
       If[Inequality[207, LessEqual, t, Less, 208], 1, 0] + 
       If[Inequality[219, LessEqual, t, Less, 220], 1, 0] + 
       If[Inequality[231, LessEqual, t, Less, 232], 1, 0] + 
       If[Inequality[243, LessEqual, t, Less, 244], 1, 0] + 
       If[Inequality[255, LessEqual, t, Less, 256], 1, 0] + 
       If[Inequality[267, LessEqual, t, Less, 268], 1, 0] + 
       If[Inequality[279, LessEqual, t, Less, 280], 1, 0] + 
       If[Inequality[291, LessEqual, t, Less, 292], 1, 0] + 
       If[Inequality[303, LessEqual, t, Less, 304], 1, 0] + 
       If[Inequality[315, LessEqual, t, Less, 316], 1, 0] + 
       If[Inequality[327, LessEqual, t, Less, 328], 1, 0] + 
       If[Inequality[339, LessEqual, t, Less, 340], 1, 0] + 
       If[Inequality[351, LessEqual, t, Less, 352], 1, 0] + 
       If[Inequality[363, LessEqual, t, Less, 364], 1, 0] + 
       If[Inequality[375, LessEqual, t, Less, 376], 1, 0] + 
       If[Inequality[387, LessEqual, t, Less, 388], 1, 0] + 
       If[Inequality[399, LessEqual, t, Less, 400], 1, 0] + 
       If[Inequality[411, LessEqual, t, Less, 412], 1, 0] + 
       If[Inequality[423, LessEqual, t, Less, 424], 1, 0] + 
       If[Inequality[435, LessEqual, t, Less, 436], 1, 0] + 
       If[Inequality[447, LessEqual, t, Less, 448], 1, 0] + 
       If[Inequality[459, LessEqual, t, Less, 460], 1, 0] + 
       If[Inequality[471, LessEqual, t, Less, 472], 1, 0] + 
       If[Inequality[483, LessEqual, t, Less, 484], 1, 0] + 
       If[Inequality[495, LessEqual, t, Less, 496], 1, 0] + 
       If[Inequality[507, LessEqual, t, Less, 508], 1, 0] + 
       If[Inequality[519, LessEqual, t, Less, 520], 1, 0] + 
       If[Inequality[531, LessEqual, t, Less, 532], 1, 0] + 
       If[Inequality[543, LessEqual, t, Less, 544], 1, 0] + 
       If[Inequality[555, LessEqual, t, Less, 556], 1, 0] + 
       If[Inequality[567, LessEqual, t, Less, 568], 1, 0] + 
       If[Inequality[579, LessEqual, t, Less, 580], 1, 0] + 
       If[Inequality[591, LessEqual, t, Less, 592], 1, 0] + 
       If[Inequality[603, LessEqual, t, Less, 604], 1, 0] + 
       If[Inequality[615, LessEqual, t, Less, 616], 1, 0] + 
       If[Inequality[627, LessEqual, t, Less, 628], 1, 0] + 
       If[Inequality[639, LessEqual, t, Less, 640], 1, 0] + 
       If[Inequality[651, LessEqual, t, Less, 652], 1, 0] + 
       If[Inequality[663, LessEqual, t, Less, 664], 1, 0] + 
       If[Inequality[675, LessEqual, t, Less, 676], 1, 0] + 
       If[Inequality[687, LessEqual, t, Less, 688], 1, 0] + 
       If[Inequality[699, LessEqual, t, Less, 700], 1, 0] + 
       If[Inequality[711, LessEqual, t, Less, 712], 1, 0] + 
       If[Inequality[723, LessEqual, t, Less, 724], 1, 0] + 
       If[Inequality[735, LessEqual, t, Less, 736], 1, 0] + 
       If[Inequality[747, LessEqual, t, Less, 748], 1, 0] + 
       If[Inequality[759, LessEqual, t, Less, 760], 1, 0] + 
       If[Inequality[771, LessEqual, t, Less, 772], 1, 0] + 
       If[Inequality[783, LessEqual, t, Less, 784], 1, 0] + 
       If[Inequality[795, LessEqual, t, Less, 796], 1, 0] + 
       If[Inequality[807, LessEqual, t, Less, 808], 1, 0] + 
       If[Inequality[819, LessEqual, t, Less, 820], 1, 0] + 
       If[Inequality[831, LessEqual, t, Less, 832], 1, 0] + 
       If[Inequality[843, LessEqual, t, Less, 844], 1, 0]) + 
     3.200004656657558*(If[Inequality[4, LessEqual, t, Less, 5], 1, 0] + 
       If[Inequality[16, LessEqual, t, Less, 17], 1, 0] + 
       If[Inequality[28, LessEqual, t, Less, 29], 1, 0] + 
       If[Inequality[40, LessEqual, t, Less, 41], 1, 0] + 
       If[Inequality[52, LessEqual, t, Less, 53], 1, 0] + 
       If[Inequality[64, LessEqual, t, Less, 65], 1, 0] + 
       If[Inequality[76, LessEqual, t, Less, 77], 1, 0] + 
       If[Inequality[88, LessEqual, t, Less, 89], 1, 0] + 
       If[Inequality[100, LessEqual, t, Less, 101], 1, 0] + 
       If[Inequality[112, LessEqual, t, Less, 113], 1, 0] + 
       If[Inequality[124, LessEqual, t, Less, 125], 1, 0] + 
       If[Inequality[136, LessEqual, t, Less, 137], 1, 0] + 
       If[Inequality[148, LessEqual, t, Less, 149], 1, 0] + 
       If[Inequality[160, LessEqual, t, Less, 161], 1, 0] + 
       If[Inequality[172, LessEqual, t, Less, 173], 1, 0] + 
       If[Inequality[184, LessEqual, t, Less, 185], 1, 0] + 
       If[Inequality[196, LessEqual, t, Less, 197], 1, 0] + 
       If[Inequality[208, LessEqual, t, Less, 209], 1, 0] + 
       If[Inequality[220, LessEqual, t, Less, 221], 1, 0] + 
       If[Inequality[232, LessEqual, t, Less, 233], 1, 0] + 
       If[Inequality[244, LessEqual, t, Less, 245], 1, 0] + 
       If[Inequality[256, LessEqual, t, Less, 257], 1, 0] + 
       If[Inequality[268, LessEqual, t, Less, 269], 1, 0] + 
       If[Inequality[280, LessEqual, t, Less, 281], 1, 0] + 
       If[Inequality[292, LessEqual, t, Less, 293], 1, 0] + 
       If[Inequality[304, LessEqual, t, Less, 305], 1, 0] + 
       If[Inequality[316, LessEqual, t, Less, 317], 1, 0] + 
       If[Inequality[328, LessEqual, t, Less, 329], 1, 0] + 
       If[Inequality[340, LessEqual, t, Less, 341], 1, 0] + 
       If[Inequality[352, LessEqual, t, Less, 353], 1, 0] + 
       If[Inequality[364, LessEqual, t, Less, 365], 1, 0] + 
       If[Inequality[376, LessEqual, t, Less, 377], 1, 0] + 
       If[Inequality[388, LessEqual, t, Less, 389], 1, 0] + 
       If[Inequality[400, LessEqual, t, Less, 401], 1, 0] + 
       If[Inequality[412, LessEqual, t, Less, 413], 1, 0] + 
       If[Inequality[424, LessEqual, t, Less, 425], 1, 0] + 
       If[Inequality[436, LessEqual, t, Less, 437], 1, 0] + 
       If[Inequality[448, LessEqual, t, Less, 449], 1, 0] + 
       If[Inequality[460, LessEqual, t, Less, 461], 1, 0] + 
       If[Inequality[472, LessEqual, t, Less, 473], 1, 0] + 
       If[Inequality[484, LessEqual, t, Less, 485], 1, 0] + 
       If[Inequality[496, LessEqual, t, Less, 497], 1, 0] + 
       If[Inequality[508, LessEqual, t, Less, 509], 1, 0] + 
       If[Inequality[520, LessEqual, t, Less, 521], 1, 0] + 
       If[Inequality[532, LessEqual, t, Less, 533], 1, 0] + 
       If[Inequality[544, LessEqual, t, Less, 545], 1, 0] + 
       If[Inequality[556, LessEqual, t, Less, 557], 1, 0] + 
       If[Inequality[568, LessEqual, t, Less, 569], 1, 0] + 
       If[Inequality[580, LessEqual, t, Less, 581], 1, 0] + 
       If[Inequality[592, LessEqual, t, Less, 593], 1, 0] + 
       If[Inequality[604, LessEqual, t, Less, 605], 1, 0] + 
       If[Inequality[616, LessEqual, t, Less, 617], 1, 0] + 
       If[Inequality[628, LessEqual, t, Less, 629], 1, 0] + 
       If[Inequality[640, LessEqual, t, Less, 641], 1, 0] + 
       If[Inequality[652, LessEqual, t, Less, 653], 1, 0] + 
       If[Inequality[664, LessEqual, t, Less, 665], 1, 0] + 
       If[Inequality[676, LessEqual, t, Less, 677], 1, 0] + 
       If[Inequality[688, LessEqual, t, Less, 689], 1, 0] + 
       If[Inequality[700, LessEqual, t, Less, 701], 1, 0] + 
       If[Inequality[712, LessEqual, t, Less, 713], 1, 0] + 
       If[Inequality[724, LessEqual, t, Less, 725], 1, 0] + 
       If[Inequality[736, LessEqual, t, Less, 737], 1, 0] + 
       If[Inequality[748, LessEqual, t, Less, 749], 1, 0] + 
       If[Inequality[760, LessEqual, t, Less, 761], 1, 0] + 
       If[Inequality[772, LessEqual, t, Less, 773], 1, 0] + 
       If[Inequality[784, LessEqual, t, Less, 785], 1, 0] + 
       If[Inequality[796, LessEqual, t, Less, 797], 1, 0] + 
       If[Inequality[808, LessEqual, t, Less, 809], 1, 0] + 
       If[Inequality[820, LessEqual, t, Less, 821], 1, 0] + 
       If[Inequality[832, LessEqual, t, Less, 833], 1, 0] + 
       If[Inequality[844, LessEqual, t, Less, 845], 1, 0]) + 
     0.7345111168288853*(If[Inequality[5, LessEqual, t, Less, 6], 1, 0] + 
       If[Inequality[17, LessEqual, t, Less, 18], 1, 0] + 
       If[Inequality[29, LessEqual, t, Less, 30], 1, 0] + 
       If[Inequality[41, LessEqual, t, Less, 42], 1, 0] + 
       If[Inequality[53, LessEqual, t, Less, 54], 1, 0] + 
       If[Inequality[65, LessEqual, t, Less, 66], 1, 0] + 
       If[Inequality[77, LessEqual, t, Less, 78], 1, 0] + 
       If[Inequality[89, LessEqual, t, Less, 90], 1, 0] + 
       If[Inequality[101, LessEqual, t, Less, 102], 1, 0] + 
       If[Inequality[113, LessEqual, t, Less, 114], 1, 0] + 
       If[Inequality[125, LessEqual, t, Less, 126], 1, 0] + 
       If[Inequality[137, LessEqual, t, Less, 138], 1, 0] + 
       If[Inequality[149, LessEqual, t, Less, 150], 1, 0] + 
       If[Inequality[161, LessEqual, t, Less, 162], 1, 0] + 
       If[Inequality[173, LessEqual, t, Less, 174], 1, 0] + 
       If[Inequality[185, LessEqual, t, Less, 186], 1, 0] + 
       If[Inequality[197, LessEqual, t, Less, 198], 1, 0] + 
       If[Inequality[209, LessEqual, t, Less, 210], 1, 0] + 
       If[Inequality[221, LessEqual, t, Less, 222], 1, 0] + 
       If[Inequality[233, LessEqual, t, Less, 234], 1, 0] + 
       If[Inequality[245, LessEqual, t, Less, 246], 1, 0] + 
       If[Inequality[257, LessEqual, t, Less, 258], 1, 0] + 
       If[Inequality[269, LessEqual, t, Less, 270], 1, 0] + 
       If[Inequality[281, LessEqual, t, Less, 282], 1, 0] + 
       If[Inequality[293, LessEqual, t, Less, 294], 1, 0] + 
       If[Inequality[305, LessEqual, t, Less, 306], 1, 0] + 
       If[Inequality[317, LessEqual, t, Less, 318], 1, 0] + 
       If[Inequality[329, LessEqual, t, Less, 330], 1, 0] + 
       If[Inequality[341, LessEqual, t, Less, 342], 1, 0] + 
       If[Inequality[353, LessEqual, t, Less, 354], 1, 0] + 
       If[Inequality[365, LessEqual, t, Less, 366], 1, 0] + 
       If[Inequality[377, LessEqual, t, Less, 378], 1, 0] + 
       If[Inequality[389, LessEqual, t, Less, 390], 1, 0] + 
       If[Inequality[401, LessEqual, t, Less, 402], 1, 0] + 
       If[Inequality[413, LessEqual, t, Less, 414], 1, 0] + 
       If[Inequality[425, LessEqual, t, Less, 426], 1, 0] + 
       If[Inequality[437, LessEqual, t, Less, 438], 1, 0] + 
       If[Inequality[449, LessEqual, t, Less, 450], 1, 0] + 
       If[Inequality[461, LessEqual, t, Less, 462], 1, 0] + 
       If[Inequality[473, LessEqual, t, Less, 474], 1, 0] + 
       If[Inequality[485, LessEqual, t, Less, 486], 1, 0] + 
       If[Inequality[497, LessEqual, t, Less, 498], 1, 0] + 
       If[Inequality[509, LessEqual, t, Less, 510], 1, 0] + 
       If[Inequality[521, LessEqual, t, Less, 522], 1, 0] + 
       If[Inequality[533, LessEqual, t, Less, 534], 1, 0] + 
       If[Inequality[545, LessEqual, t, Less, 546], 1, 0] + 
       If[Inequality[557, LessEqual, t, Less, 558], 1, 0] + 
       If[Inequality[569, LessEqual, t, Less, 570], 1, 0] + 
       If[Inequality[581, LessEqual, t, Less, 582], 1, 0] + 
       If[Inequality[593, LessEqual, t, Less, 594], 1, 0] + 
       If[Inequality[605, LessEqual, t, Less, 606], 1, 0] + 
       If[Inequality[617, LessEqual, t, Less, 618], 1, 0] + 
       If[Inequality[629, LessEqual, t, Less, 630], 1, 0] + 
       If[Inequality[641, LessEqual, t, Less, 642], 1, 0] + 
       If[Inequality[653, LessEqual, t, Less, 654], 1, 0] + 
       If[Inequality[665, LessEqual, t, Less, 666], 1, 0] + 
       If[Inequality[677, LessEqual, t, Less, 678], 1, 0] + 
       If[Inequality[689, LessEqual, t, Less, 690], 1, 0] + 
       If[Inequality[701, LessEqual, t, Less, 702], 1, 0] + 
       If[Inequality[713, LessEqual, t, Less, 714], 1, 0] + 
       If[Inequality[725, LessEqual, t, Less, 726], 1, 0] + 
       If[Inequality[737, LessEqual, t, Less, 738], 1, 0] + 
       If[Inequality[749, LessEqual, t, Less, 750], 1, 0] + 
       If[Inequality[761, LessEqual, t, Less, 762], 1, 0] + 
       If[Inequality[773, LessEqual, t, Less, 774], 1, 0] + 
       If[Inequality[785, LessEqual, t, Less, 786], 1, 0] + 
       If[Inequality[797, LessEqual, t, Less, 798], 1, 0] + 
       If[Inequality[809, LessEqual, t, Less, 810], 1, 0] + 
       If[Inequality[821, LessEqual, t, Less, 822], 1, 0] + 
       If[Inequality[833, LessEqual, t, Less, 834], 1, 0] + 
       If[Inequality[845, LessEqual, t, Less, 846], 1, 0]) + 
     0.040848562915700146*(If[Inequality[6, LessEqual, t, Less, 7], 1, 0] + 
       If[Inequality[18, LessEqual, t, Less, 19], 1, 0] + 
       If[Inequality[30, LessEqual, t, Less, 31], 1, 0] + 
       If[Inequality[42, LessEqual, t, Less, 43], 1, 0] + 
       If[Inequality[54, LessEqual, t, Less, 55], 1, 0] + 
       If[Inequality[66, LessEqual, t, Less, 67], 1, 0] + 
       If[Inequality[78, LessEqual, t, Less, 79], 1, 0] + 
       If[Inequality[90, LessEqual, t, Less, 91], 1, 0] + 
       If[Inequality[102, LessEqual, t, Less, 103], 1, 0] + 
       If[Inequality[114, LessEqual, t, Less, 115], 1, 0] + 
       If[Inequality[126, LessEqual, t, Less, 127], 1, 0] + 
       If[Inequality[138, LessEqual, t, Less, 139], 1, 0] + 
       If[Inequality[150, LessEqual, t, Less, 151], 1, 0] + 
       If[Inequality[162, LessEqual, t, Less, 163], 1, 0] + 
       If[Inequality[174, LessEqual, t, Less, 175], 1, 0] + 
       If[Inequality[186, LessEqual, t, Less, 187], 1, 0] + 
       If[Inequality[198, LessEqual, t, Less, 199], 1, 0] + 
       If[Inequality[210, LessEqual, t, Less, 211], 1, 0] + 
       If[Inequality[222, LessEqual, t, Less, 223], 1, 0] + 
       If[Inequality[234, LessEqual, t, Less, 235], 1, 0] + 
       If[Inequality[246, LessEqual, t, Less, 247], 1, 0] + 
       If[Inequality[258, LessEqual, t, Less, 259], 1, 0] + 
       If[Inequality[270, LessEqual, t, Less, 271], 1, 0] + 
       If[Inequality[282, LessEqual, t, Less, 283], 1, 0] + 
       If[Inequality[294, LessEqual, t, Less, 295], 1, 0] + 
       If[Inequality[306, LessEqual, t, Less, 307], 1, 0] + 
       If[Inequality[318, LessEqual, t, Less, 319], 1, 0] + 
       If[Inequality[330, LessEqual, t, Less, 331], 1, 0] + 
       If[Inequality[342, LessEqual, t, Less, 343], 1, 0] + 
       If[Inequality[354, LessEqual, t, Less, 355], 1, 0] + 
       If[Inequality[366, LessEqual, t, Less, 367], 1, 0] + 
       If[Inequality[378, LessEqual, t, Less, 379], 1, 0] + 
       If[Inequality[390, LessEqual, t, Less, 391], 1, 0] + 
       If[Inequality[402, LessEqual, t, Less, 403], 1, 0] + 
       If[Inequality[414, LessEqual, t, Less, 415], 1, 0] + 
       If[Inequality[426, LessEqual, t, Less, 427], 1, 0] + 
       If[Inequality[438, LessEqual, t, Less, 439], 1, 0] + 
       If[Inequality[450, LessEqual, t, Less, 451], 1, 0] + 
       If[Inequality[462, LessEqual, t, Less, 463], 1, 0] + 
       If[Inequality[474, LessEqual, t, Less, 475], 1, 0] + 
       If[Inequality[486, LessEqual, t, Less, 487], 1, 0] + 
       If[Inequality[498, LessEqual, t, Less, 499], 1, 0] + 
       If[Inequality[510, LessEqual, t, Less, 511], 1, 0] + 
       If[Inequality[522, LessEqual, t, Less, 523], 1, 0] + 
       If[Inequality[534, LessEqual, t, Less, 535], 1, 0] + 
       If[Inequality[546, LessEqual, t, Less, 547], 1, 0] + 
       If[Inequality[558, LessEqual, t, Less, 559], 1, 0] + 
       If[Inequality[570, LessEqual, t, Less, 571], 1, 0] + 
       If[Inequality[582, LessEqual, t, Less, 583], 1, 0] + 
       If[Inequality[594, LessEqual, t, Less, 595], 1, 0] + 
       If[Inequality[606, LessEqual, t, Less, 607], 1, 0] + 
       If[Inequality[618, LessEqual, t, Less, 619], 1, 0] + 
       If[Inequality[630, LessEqual, t, Less, 631], 1, 0] + 
       If[Inequality[642, LessEqual, t, Less, 643], 1, 0] + 
       If[Inequality[654, LessEqual, t, Less, 655], 1, 0] + 
       If[Inequality[666, LessEqual, t, Less, 667], 1, 0] + 
       If[Inequality[678, LessEqual, t, Less, 679], 1, 0] + 
       If[Inequality[690, LessEqual, t, Less, 691], 1, 0] + 
       If[Inequality[702, LessEqual, t, Less, 703], 1, 0] + 
       If[Inequality[714, LessEqual, t, Less, 715], 1, 0] + 
       If[Inequality[726, LessEqual, t, Less, 727], 1, 0] + 
       If[Inequality[738, LessEqual, t, Less, 739], 1, 0] + 
       If[Inequality[750, LessEqual, t, Less, 751], 1, 0] + 
       If[Inequality[762, LessEqual, t, Less, 763], 1, 0] + 
       If[Inequality[774, LessEqual, t, Less, 775], 1, 0] + 
       If[Inequality[786, LessEqual, t, Less, 787], 1, 0] + 
       If[Inequality[798, LessEqual, t, Less, 799], 1, 0] + 
       If[Inequality[810, LessEqual, t, Less, 811], 1, 0] + 
       If[Inequality[822, LessEqual, t, Less, 823], 1, 0] + 
       If[Inequality[834, LessEqual, t, Less, 835], 1, 0] + 
       If[Inequality[846, LessEqual, t, Less, 847], 1, 0]) - 
     0.05844779381437606*(If[Inequality[7, LessEqual, t, Less, 8], 1, 0] + 
       If[Inequality[19, LessEqual, t, Less, 20], 1, 0] + 
       If[Inequality[31, LessEqual, t, Less, 32], 1, 0] + 
       If[Inequality[43, LessEqual, t, Less, 44], 1, 0] + 
       If[Inequality[55, LessEqual, t, Less, 56], 1, 0] + 
       If[Inequality[67, LessEqual, t, Less, 68], 1, 0] + 
       If[Inequality[79, LessEqual, t, Less, 80], 1, 0] + 
       If[Inequality[91, LessEqual, t, Less, 92], 1, 0] + 
       If[Inequality[103, LessEqual, t, Less, 104], 1, 0] + 
       If[Inequality[115, LessEqual, t, Less, 116], 1, 0] + 
       If[Inequality[127, LessEqual, t, Less, 128], 1, 0] + 
       If[Inequality[139, LessEqual, t, Less, 140], 1, 0] + 
       If[Inequality[151, LessEqual, t, Less, 152], 1, 0] + 
       If[Inequality[163, LessEqual, t, Less, 164], 1, 0] + 
       If[Inequality[175, LessEqual, t, Less, 176], 1, 0] + 
       If[Inequality[187, LessEqual, t, Less, 188], 1, 0] + 
       If[Inequality[199, LessEqual, t, Less, 200], 1, 0] + 
       If[Inequality[211, LessEqual, t, Less, 212], 1, 0] + 
       If[Inequality[223, LessEqual, t, Less, 224], 1, 0] + 
       If[Inequality[235, LessEqual, t, Less, 236], 1, 0] + 
       If[Inequality[247, LessEqual, t, Less, 248], 1, 0] + 
       If[Inequality[259, LessEqual, t, Less, 260], 1, 0] + 
       If[Inequality[271, LessEqual, t, Less, 272], 1, 0] + 
       If[Inequality[283, LessEqual, t, Less, 284], 1, 0] + 
       If[Inequality[295, LessEqual, t, Less, 296], 1, 0] + 
       If[Inequality[307, LessEqual, t, Less, 308], 1, 0] + 
       If[Inequality[319, LessEqual, t, Less, 320], 1, 0] + 
       If[Inequality[331, LessEqual, t, Less, 332], 1, 0] + 
       If[Inequality[343, LessEqual, t, Less, 344], 1, 0] + 
       If[Inequality[355, LessEqual, t, Less, 356], 1, 0] + 
       If[Inequality[367, LessEqual, t, Less, 368], 1, 0] + 
       If[Inequality[379, LessEqual, t, Less, 380], 1, 0] + 
       If[Inequality[391, LessEqual, t, Less, 392], 1, 0] + 
       If[Inequality[403, LessEqual, t, Less, 404], 1, 0] + 
       If[Inequality[415, LessEqual, t, Less, 416], 1, 0] + 
       If[Inequality[427, LessEqual, t, Less, 428], 1, 0] + 
       If[Inequality[439, LessEqual, t, Less, 440], 1, 0] + 
       If[Inequality[451, LessEqual, t, Less, 452], 1, 0] + 
       If[Inequality[463, LessEqual, t, Less, 464], 1, 0] + 
       If[Inequality[475, LessEqual, t, Less, 476], 1, 0] + 
       If[Inequality[487, LessEqual, t, Less, 488], 1, 0] + 
       If[Inequality[499, LessEqual, t, Less, 500], 1, 0] + 
       If[Inequality[511, LessEqual, t, Less, 512], 1, 0] + 
       If[Inequality[523, LessEqual, t, Less, 524], 1, 0] + 
       If[Inequality[535, LessEqual, t, Less, 536], 1, 0] + 
       If[Inequality[547, LessEqual, t, Less, 548], 1, 0] + 
       If[Inequality[559, LessEqual, t, Less, 560], 1, 0] + 
       If[Inequality[571, LessEqual, t, Less, 572], 1, 0] + 
       If[Inequality[583, LessEqual, t, Less, 584], 1, 0] + 
       If[Inequality[595, LessEqual, t, Less, 596], 1, 0] + 
       If[Inequality[607, LessEqual, t, Less, 608], 1, 0] + 
       If[Inequality[619, LessEqual, t, Less, 620], 1, 0] + 
       If[Inequality[631, LessEqual, t, Less, 632], 1, 0] + 
       If[Inequality[643, LessEqual, t, Less, 644], 1, 0] + 
       If[Inequality[655, LessEqual, t, Less, 656], 1, 0] + 
       If[Inequality[667, LessEqual, t, Less, 668], 1, 0] + 
       If[Inequality[679, LessEqual, t, Less, 680], 1, 0] + 
       If[Inequality[691, LessEqual, t, Less, 692], 1, 0] + 
       If[Inequality[703, LessEqual, t, Less, 704], 1, 0] + 
       If[Inequality[715, LessEqual, t, Less, 716], 1, 0] + 
       If[Inequality[727, LessEqual, t, Less, 728], 1, 0] + 
       If[Inequality[739, LessEqual, t, Less, 740], 1, 0] + 
       If[Inequality[751, LessEqual, t, Less, 752], 1, 0] + 
       If[Inequality[763, LessEqual, t, Less, 764], 1, 0] + 
       If[Inequality[775, LessEqual, t, Less, 776], 1, 0] + 
       If[Inequality[787, LessEqual, t, Less, 788], 1, 0] + 
       If[Inequality[799, LessEqual, t, Less, 800], 1, 0] + 
       If[Inequality[811, LessEqual, t, Less, 812], 1, 0] + 
       If[Inequality[823, LessEqual, t, Less, 824], 1, 0] + 
       If[Inequality[835, LessEqual, t, Less, 836], 1, 0] + 
       If[Inequality[847, LessEqual, t, Less, 848], 1, 0]) - 
     0.7957723195585443*(If[Inequality[8, LessEqual, t, Less, 9], 1, 0] + 
       If[Inequality[20, LessEqual, t, Less, 21], 1, 0] + 
       If[Inequality[32, LessEqual, t, Less, 33], 1, 0] + 
       If[Inequality[44, LessEqual, t, Less, 45], 1, 0] + 
       If[Inequality[56, LessEqual, t, Less, 57], 1, 0] + 
       If[Inequality[68, LessEqual, t, Less, 69], 1, 0] + 
       If[Inequality[80, LessEqual, t, Less, 81], 1, 0] + 
       If[Inequality[92, LessEqual, t, Less, 93], 1, 0] + 
       If[Inequality[104, LessEqual, t, Less, 105], 1, 0] + 
       If[Inequality[116, LessEqual, t, Less, 117], 1, 0] + 
       If[Inequality[128, LessEqual, t, Less, 129], 1, 0] + 
       If[Inequality[140, LessEqual, t, Less, 141], 1, 0] + 
       If[Inequality[152, LessEqual, t, Less, 153], 1, 0] + 
       If[Inequality[164, LessEqual, t, Less, 165], 1, 0] + 
       If[Inequality[176, LessEqual, t, Less, 177], 1, 0] + 
       If[Inequality[188, LessEqual, t, Less, 189], 1, 0] + 
       If[Inequality[200, LessEqual, t, Less, 201], 1, 0] + 
       If[Inequality[212, LessEqual, t, Less, 213], 1, 0] + 
       If[Inequality[224, LessEqual, t, Less, 225], 1, 0] + 
       If[Inequality[236, LessEqual, t, Less, 237], 1, 0] + 
       If[Inequality[248, LessEqual, t, Less, 249], 1, 0] + 
       If[Inequality[260, LessEqual, t, Less, 261], 1, 0] + 
       If[Inequality[272, LessEqual, t, Less, 273], 1, 0] + 
       If[Inequality[284, LessEqual, t, Less, 285], 1, 0] + 
       If[Inequality[296, LessEqual, t, Less, 297], 1, 0] + 
       If[Inequality[308, LessEqual, t, Less, 309], 1, 0] + 
       If[Inequality[320, LessEqual, t, Less, 321], 1, 0] + 
       If[Inequality[332, LessEqual, t, Less, 333], 1, 0] + 
       If[Inequality[344, LessEqual, t, Less, 345], 1, 0] + 
       If[Inequality[356, LessEqual, t, Less, 357], 1, 0] + 
       If[Inequality[368, LessEqual, t, Less, 369], 1, 0] + 
       If[Inequality[380, LessEqual, t, Less, 381], 1, 0] + 
       If[Inequality[392, LessEqual, t, Less, 393], 1, 0] + 
       If[Inequality[404, LessEqual, t, Less, 405], 1, 0] + 
       If[Inequality[416, LessEqual, t, Less, 417], 1, 0] + 
       If[Inequality[428, LessEqual, t, Less, 429], 1, 0] + 
       If[Inequality[440, LessEqual, t, Less, 441], 1, 0] + 
       If[Inequality[452, LessEqual, t, Less, 453], 1, 0] + 
       If[Inequality[464, LessEqual, t, Less, 465], 1, 0] + 
       If[Inequality[476, LessEqual, t, Less, 477], 1, 0] + 
       If[Inequality[488, LessEqual, t, Less, 489], 1, 0] + 
       If[Inequality[500, LessEqual, t, Less, 501], 1, 0] + 
       If[Inequality[512, LessEqual, t, Less, 513], 1, 0] + 
       If[Inequality[524, LessEqual, t, Less, 525], 1, 0] + 
       If[Inequality[536, LessEqual, t, Less, 537], 1, 0] + 
       If[Inequality[548, LessEqual, t, Less, 549], 1, 0] + 
       If[Inequality[560, LessEqual, t, Less, 561], 1, 0] + 
       If[Inequality[572, LessEqual, t, Less, 573], 1, 0] + 
       If[Inequality[584, LessEqual, t, Less, 585], 1, 0] + 
       If[Inequality[596, LessEqual, t, Less, 597], 1, 0] + 
       If[Inequality[608, LessEqual, t, Less, 609], 1, 0] + 
       If[Inequality[620, LessEqual, t, Less, 621], 1, 0] + 
       If[Inequality[632, LessEqual, t, Less, 633], 1, 0] + 
       If[Inequality[644, LessEqual, t, Less, 645], 1, 0] + 
       If[Inequality[656, LessEqual, t, Less, 657], 1, 0] + 
       If[Inequality[668, LessEqual, t, Less, 669], 1, 0] + 
       If[Inequality[680, LessEqual, t, Less, 681], 1, 0] + 
       If[Inequality[692, LessEqual, t, Less, 693], 1, 0] + 
       If[Inequality[704, LessEqual, t, Less, 705], 1, 0] + 
       If[Inequality[716, LessEqual, t, Less, 717], 1, 0] + 
       If[Inequality[728, LessEqual, t, Less, 729], 1, 0] + 
       If[Inequality[740, LessEqual, t, Less, 741], 1, 0] + 
       If[Inequality[752, LessEqual, t, Less, 753], 1, 0] + 
       If[Inequality[764, LessEqual, t, Less, 765], 1, 0] + 
       If[Inequality[776, LessEqual, t, Less, 777], 1, 0] + 
       If[Inequality[788, LessEqual, t, Less, 789], 1, 0] + 
       If[Inequality[800, LessEqual, t, Less, 801], 1, 0] + 
       If[Inequality[812, LessEqual, t, Less, 813], 1, 0] + 
       If[Inequality[824, LessEqual, t, Less, 825], 1, 0] + 
       If[Inequality[836, LessEqual, t, Less, 837], 1, 0] + 
       If[Inequality[848, LessEqual, t, Less, 849], 1, 0]) - 
     1.1274630424858099*(If[Inequality[9, LessEqual, t, Less, 10], 1, 0] + 
       If[Inequality[21, LessEqual, t, Less, 22], 1, 0] + 
       If[Inequality[33, LessEqual, t, Less, 34], 1, 0] + 
       If[Inequality[45, LessEqual, t, Less, 46], 1, 0] + 
       If[Inequality[57, LessEqual, t, Less, 58], 1, 0] + 
       If[Inequality[69, LessEqual, t, Less, 70], 1, 0] + 
       If[Inequality[81, LessEqual, t, Less, 82], 1, 0] + 
       If[Inequality[93, LessEqual, t, Less, 94], 1, 0] + 
       If[Inequality[105, LessEqual, t, Less, 106], 1, 0] + 
       If[Inequality[117, LessEqual, t, Less, 118], 1, 0] + 
       If[Inequality[129, LessEqual, t, Less, 130], 1, 0] + 
       If[Inequality[141, LessEqual, t, Less, 142], 1, 0] + 
       If[Inequality[153, LessEqual, t, Less, 154], 1, 0] + 
       If[Inequality[165, LessEqual, t, Less, 166], 1, 0] + 
       If[Inequality[177, LessEqual, t, Less, 178], 1, 0] + 
       If[Inequality[189, LessEqual, t, Less, 190], 1, 0] + 
       If[Inequality[201, LessEqual, t, Less, 202], 1, 0] + 
       If[Inequality[213, LessEqual, t, Less, 214], 1, 0] + 
       If[Inequality[225, LessEqual, t, Less, 226], 1, 0] + 
       If[Inequality[237, LessEqual, t, Less, 238], 1, 0] + 
       If[Inequality[249, LessEqual, t, Less, 250], 1, 0] + 
       If[Inequality[261, LessEqual, t, Less, 262], 1, 0] + 
       If[Inequality[273, LessEqual, t, Less, 274], 1, 0] + 
       If[Inequality[285, LessEqual, t, Less, 286], 1, 0] + 
       If[Inequality[297, LessEqual, t, Less, 298], 1, 0] + 
       If[Inequality[309, LessEqual, t, Less, 310], 1, 0] + 
       If[Inequality[321, LessEqual, t, Less, 322], 1, 0] + 
       If[Inequality[333, LessEqual, t, Less, 334], 1, 0] + 
       If[Inequality[345, LessEqual, t, Less, 346], 1, 0] + 
       If[Inequality[357, LessEqual, t, Less, 358], 1, 0] + 
       If[Inequality[369, LessEqual, t, Less, 370], 1, 0] + 
       If[Inequality[381, LessEqual, t, Less, 382], 1, 0] + 
       If[Inequality[393, LessEqual, t, Less, 394], 1, 0] + 
       If[Inequality[405, LessEqual, t, Less, 406], 1, 0] + 
       If[Inequality[417, LessEqual, t, Less, 418], 1, 0] + 
       If[Inequality[429, LessEqual, t, Less, 430], 1, 0] + 
       If[Inequality[441, LessEqual, t, Less, 442], 1, 0] + 
       If[Inequality[453, LessEqual, t, Less, 454], 1, 0] + 
       If[Inequality[465, LessEqual, t, Less, 466], 1, 0] + 
       If[Inequality[477, LessEqual, t, Less, 478], 1, 0] + 
       If[Inequality[489, LessEqual, t, Less, 490], 1, 0] + 
       If[Inequality[501, LessEqual, t, Less, 502], 1, 0] + 
       If[Inequality[513, LessEqual, t, Less, 514], 1, 0] + 
       If[Inequality[525, LessEqual, t, Less, 526], 1, 0] + 
       If[Inequality[537, LessEqual, t, Less, 538], 1, 0] + 
       If[Inequality[549, LessEqual, t, Less, 550], 1, 0] + 
       If[Inequality[561, LessEqual, t, Less, 562], 1, 0] + 
       If[Inequality[573, LessEqual, t, Less, 574], 1, 0] + 
       If[Inequality[585, LessEqual, t, Less, 586], 1, 0] + 
       If[Inequality[597, LessEqual, t, Less, 598], 1, 0] + 
       If[Inequality[609, LessEqual, t, Less, 610], 1, 0] + 
       If[Inequality[621, LessEqual, t, Less, 622], 1, 0] + 
       If[Inequality[633, LessEqual, t, Less, 634], 1, 0] + 
       If[Inequality[645, LessEqual, t, Less, 646], 1, 0] + 
       If[Inequality[657, LessEqual, t, Less, 658], 1, 0] + 
       If[Inequality[669, LessEqual, t, Less, 670], 1, 0] + 
       If[Inequality[681, LessEqual, t, Less, 682], 1, 0] + 
       If[Inequality[693, LessEqual, t, Less, 694], 1, 0] + 
       If[Inequality[705, LessEqual, t, Less, 706], 1, 0] + 
       If[Inequality[717, LessEqual, t, Less, 718], 1, 0] + 
       If[Inequality[729, LessEqual, t, Less, 730], 1, 0] + 
       If[Inequality[741, LessEqual, t, Less, 742], 1, 0] + 
       If[Inequality[753, LessEqual, t, Less, 754], 1, 0] + 
       If[Inequality[765, LessEqual, t, Less, 766], 1, 0] + 
       If[Inequality[777, LessEqual, t, Less, 778], 1, 0] + 
       If[Inequality[789, LessEqual, t, Less, 790], 1, 0] + 
       If[Inequality[801, LessEqual, t, Less, 802], 1, 0] + 
       If[Inequality[813, LessEqual, t, Less, 814], 1, 0] + 
       If[Inequality[825, LessEqual, t, Less, 826], 1, 0] + 
       If[Inequality[837, LessEqual, t, Less, 838], 1, 0] + 
       If[Inequality[849, LessEqual, t, Less, 850], 1, 0]) - 
     0.9816889766806798*(If[Inequality[10, LessEqual, t, Less, 11], 1, 0] + 
       If[Inequality[22, LessEqual, t, Less, 23], 1, 0] + 
       If[Inequality[34, LessEqual, t, Less, 35], 1, 0] + 
       If[Inequality[46, LessEqual, t, Less, 47], 1, 0] + 
       If[Inequality[58, LessEqual, t, Less, 59], 1, 0] + 
       If[Inequality[70, LessEqual, t, Less, 71], 1, 0] + 
       If[Inequality[82, LessEqual, t, Less, 83], 1, 0] + 
       If[Inequality[94, LessEqual, t, Less, 95], 1, 0] + 
       If[Inequality[106, LessEqual, t, Less, 107], 1, 0] + 
       If[Inequality[118, LessEqual, t, Less, 119], 1, 0] + 
       If[Inequality[130, LessEqual, t, Less, 131], 1, 0] + 
       If[Inequality[142, LessEqual, t, Less, 143], 1, 0] + 
       If[Inequality[154, LessEqual, t, Less, 155], 1, 0] + 
       If[Inequality[166, LessEqual, t, Less, 167], 1, 0] + 
       If[Inequality[178, LessEqual, t, Less, 179], 1, 0] + 
       If[Inequality[190, LessEqual, t, Less, 191], 1, 0] + 
       If[Inequality[202, LessEqual, t, Less, 203], 1, 0] + 
       If[Inequality[214, LessEqual, t, Less, 215], 1, 0] + 
       If[Inequality[226, LessEqual, t, Less, 227], 1, 0] + 
       If[Inequality[238, LessEqual, t, Less, 239], 1, 0] + 
       If[Inequality[250, LessEqual, t, Less, 251], 1, 0] + 
       If[Inequality[262, LessEqual, t, Less, 263], 1, 0] + 
       If[Inequality[274, LessEqual, t, Less, 275], 1, 0] + 
       If[Inequality[286, LessEqual, t, Less, 287], 1, 0] + 
       If[Inequality[298, LessEqual, t, Less, 299], 1, 0] + 
       If[Inequality[310, LessEqual, t, Less, 311], 1, 0] + 
       If[Inequality[322, LessEqual, t, Less, 323], 1, 0] + 
       If[Inequality[334, LessEqual, t, Less, 335], 1, 0] + 
       If[Inequality[346, LessEqual, t, Less, 347], 1, 0] + 
       If[Inequality[358, LessEqual, t, Less, 359], 1, 0] + 
       If[Inequality[370, LessEqual, t, Less, 371], 1, 0] + 
       If[Inequality[382, LessEqual, t, Less, 383], 1, 0] + 
       If[Inequality[394, LessEqual, t, Less, 395], 1, 0] + 
       If[Inequality[406, LessEqual, t, Less, 407], 1, 0] + 
       If[Inequality[418, LessEqual, t, Less, 419], 1, 0] + 
       If[Inequality[430, LessEqual, t, Less, 431], 1, 0] + 
       If[Inequality[442, LessEqual, t, Less, 443], 1, 0] + 
       If[Inequality[454, LessEqual, t, Less, 455], 1, 0] + 
       If[Inequality[466, LessEqual, t, Less, 467], 1, 0] + 
       If[Inequality[478, LessEqual, t, Less, 479], 1, 0] + 
       If[Inequality[490, LessEqual, t, Less, 491], 1, 0] + 
       If[Inequality[502, LessEqual, t, Less, 503], 1, 0] + 
       If[Inequality[514, LessEqual, t, Less, 515], 1, 0] + 
       If[Inequality[526, LessEqual, t, Less, 527], 1, 0] + 
       If[Inequality[538, LessEqual, t, Less, 539], 1, 0] + 
       If[Inequality[550, LessEqual, t, Less, 551], 1, 0] + 
       If[Inequality[562, LessEqual, t, Less, 563], 1, 0] + 
       If[Inequality[574, LessEqual, t, Less, 575], 1, 0] + 
       If[Inequality[586, LessEqual, t, Less, 587], 1, 0] + 
       If[Inequality[598, LessEqual, t, Less, 599], 1, 0] + 
       If[Inequality[610, LessEqual, t, Less, 611], 1, 0] + 
       If[Inequality[622, LessEqual, t, Less, 623], 1, 0] + 
       If[Inequality[634, LessEqual, t, Less, 635], 1, 0] + 
       If[Inequality[646, LessEqual, t, Less, 647], 1, 0] + 
       If[Inequality[658, LessEqual, t, Less, 659], 1, 0] + 
       If[Inequality[670, LessEqual, t, Less, 671], 1, 0] + 
       If[Inequality[682, LessEqual, t, Less, 683], 1, 0] + 
       If[Inequality[694, LessEqual, t, Less, 695], 1, 0] + 
       If[Inequality[706, LessEqual, t, Less, 707], 1, 0] + 
       If[Inequality[718, LessEqual, t, Less, 719], 1, 0] + 
       If[Inequality[730, LessEqual, t, Less, 731], 1, 0] + 
       If[Inequality[742, LessEqual, t, Less, 743], 1, 0] + 
       If[Inequality[754, LessEqual, t, Less, 755], 1, 0] + 
       If[Inequality[766, LessEqual, t, Less, 767], 1, 0] + 
       If[Inequality[778, LessEqual, t, Less, 779], 1, 0] + 
       If[Inequality[790, LessEqual, t, Less, 791], 1, 0] + 
       If[Inequality[802, LessEqual, t, Less, 803], 1, 0] + 
       If[Inequality[814, LessEqual, t, Less, 815], 1, 0] + 
       If[Inequality[826, LessEqual, t, Less, 827], 1, 0] + 
       If[Inequality[838, LessEqual, t, Less, 839], 1, 0] + 
       If[Inequality[850, LessEqual, t, Less, 851], 1, 0]) - 
     0.17957688270653505*(If[Inequality[11, LessEqual, t, Less, 12], 1, 0] + 
       If[Inequality[23, LessEqual, t, Less, 24], 1, 0] + 
       If[Inequality[35, LessEqual, t, Less, 36], 1, 0] + 
       If[Inequality[47, LessEqual, t, Less, 48], 1, 0] + 
       If[Inequality[59, LessEqual, t, Less, 60], 1, 0] + 
       If[Inequality[71, LessEqual, t, Less, 72], 1, 0] + 
       If[Inequality[83, LessEqual, t, Less, 84], 1, 0] + 
       If[Inequality[95, LessEqual, t, Less, 96], 1, 0] + 
       If[Inequality[107, LessEqual, t, Less, 108], 1, 0] + 
       If[Inequality[119, LessEqual, t, Less, 120], 1, 0] + 
       If[Inequality[131, LessEqual, t, Less, 132], 1, 0] + 
       If[Inequality[143, LessEqual, t, Less, 144], 1, 0] + 
       If[Inequality[155, LessEqual, t, Less, 156], 1, 0] + 
       If[Inequality[167, LessEqual, t, Less, 168], 1, 0] + 
       If[Inequality[179, LessEqual, t, Less, 180], 1, 0] + 
       If[Inequality[191, LessEqual, t, Less, 192], 1, 0] + 
       If[Inequality[203, LessEqual, t, Less, 204], 1, 0] + 
       If[Inequality[215, LessEqual, t, Less, 216], 1, 0] + 
       If[Inequality[227, LessEqual, t, Less, 228], 1, 0] + 
       If[Inequality[239, LessEqual, t, Less, 240], 1, 0] + 
       If[Inequality[251, LessEqual, t, Less, 252], 1, 0] + 
       If[Inequality[263, LessEqual, t, Less, 264], 1, 0] + 
       If[Inequality[275, LessEqual, t, Less, 276], 1, 0] + 
       If[Inequality[287, LessEqual, t, Less, 288], 1, 0] + 
       If[Inequality[299, LessEqual, t, Less, 300], 1, 0] + 
       If[Inequality[311, LessEqual, t, Less, 312], 1, 0] + 
       If[Inequality[323, LessEqual, t, Less, 324], 1, 0] + 
       If[Inequality[335, LessEqual, t, Less, 336], 1, 0] + 
       If[Inequality[347, LessEqual, t, Less, 348], 1, 0] + 
       If[Inequality[359, LessEqual, t, Less, 360], 1, 0] + 
       If[Inequality[371, LessEqual, t, Less, 372], 1, 0] + 
       If[Inequality[383, LessEqual, t, Less, 384], 1, 0] + 
       If[Inequality[395, LessEqual, t, Less, 396], 1, 0] + 
       If[Inequality[407, LessEqual, t, Less, 408], 1, 0] + 
       If[Inequality[419, LessEqual, t, Less, 420], 1, 0] + 
       If[Inequality[431, LessEqual, t, Less, 432], 1, 0] + 
       If[Inequality[443, LessEqual, t, Less, 444], 1, 0] + 
       If[Inequality[455, LessEqual, t, Less, 456], 1, 0] + 
       If[Inequality[467, LessEqual, t, Less, 468], 1, 0] + 
       If[Inequality[479, LessEqual, t, Less, 480], 1, 0] + 
       If[Inequality[491, LessEqual, t, Less, 492], 1, 0] + 
       If[Inequality[503, LessEqual, t, Less, 504], 1, 0] + 
       If[Inequality[515, LessEqual, t, Less, 516], 1, 0] + 
       If[Inequality[527, LessEqual, t, Less, 528], 1, 0] + 
       If[Inequality[539, LessEqual, t, Less, 540], 1, 0] + 
       If[Inequality[551, LessEqual, t, Less, 552], 1, 0] + 
       If[Inequality[563, LessEqual, t, Less, 564], 1, 0] + 
       If[Inequality[575, LessEqual, t, Less, 576], 1, 0] + 
       If[Inequality[587, LessEqual, t, Less, 588], 1, 0] + 
       If[Inequality[599, LessEqual, t, Less, 600], 1, 0] + 
       If[Inequality[611, LessEqual, t, Less, 612], 1, 0] + 
       If[Inequality[623, LessEqual, t, Less, 624], 1, 0] + 
       If[Inequality[635, LessEqual, t, Less, 636], 1, 0] + 
       If[Inequality[647, LessEqual, t, Less, 648], 1, 0] + 
       If[Inequality[659, LessEqual, t, Less, 660], 1, 0] + 
       If[Inequality[671, LessEqual, t, Less, 672], 1, 0] + 
       If[Inequality[683, LessEqual, t, Less, 684], 1, 0] + 
       If[Inequality[695, LessEqual, t, Less, 696], 1, 0] + 
       If[Inequality[707, LessEqual, t, Less, 708], 1, 0] + 
       If[Inequality[719, LessEqual, t, Less, 720], 1, 0] + 
       If[Inequality[731, LessEqual, t, Less, 732], 1, 0] + 
       If[Inequality[743, LessEqual, t, Less, 744], 1, 0] + 
       If[Inequality[755, LessEqual, t, Less, 756], 1, 0] + 
       If[Inequality[767, LessEqual, t, Less, 768], 1, 0] + 
       If[Inequality[779, LessEqual, t, Less, 780], 1, 0] + 
       If[Inequality[791, LessEqual, t, Less, 792], 1, 0] + 
       If[Inequality[803, LessEqual, t, Less, 804], 1, 0] + 
       If[Inequality[815, LessEqual, t, Less, 816], 1, 0] + 
       If[Inequality[827, LessEqual, t, Less, 828], 1, 0] + 
       If[Inequality[839, LessEqual, t, Less, 840], 1, 0] + 
       If[Inequality[851, LessEqual, t, Less, 852], 1, 0]) - 
     0.24526216334027195*Sin[(Pi*t)/71]
syz = 3.765945723590548 - 0.0007036432699181316*t + 
     0.2929210451855546*Cos[(7*Pi*t)/213] - 0.5753457097719147*
      (If[Inequality[1, LessEqual, t, Less, 2], 1, 0] + 
       If[Inequality[13, LessEqual, t, Less, 14], 1, 0] + 
       If[Inequality[25, LessEqual, t, Less, 26], 1, 0] + 
       If[Inequality[37, LessEqual, t, Less, 38], 1, 0] + 
       If[Inequality[49, LessEqual, t, Less, 50], 1, 0] + 
       If[Inequality[61, LessEqual, t, Less, 62], 1, 0] + 
       If[Inequality[73, LessEqual, t, Less, 74], 1, 0] + 
       If[Inequality[85, LessEqual, t, Less, 86], 1, 0] + 
       If[Inequality[97, LessEqual, t, Less, 98], 1, 0] + 
       If[Inequality[109, LessEqual, t, Less, 110], 1, 0] + 
       If[Inequality[121, LessEqual, t, Less, 122], 1, 0] + 
       If[Inequality[133, LessEqual, t, Less, 134], 1, 0] + 
       If[Inequality[145, LessEqual, t, Less, 146], 1, 0] + 
       If[Inequality[157, LessEqual, t, Less, 158], 1, 0] + 
       If[Inequality[169, LessEqual, t, Less, 170], 1, 0] + 
       If[Inequality[181, LessEqual, t, Less, 182], 1, 0] + 
       If[Inequality[193, LessEqual, t, Less, 194], 1, 0] + 
       If[Inequality[205, LessEqual, t, Less, 206], 1, 0] + 
       If[Inequality[217, LessEqual, t, Less, 218], 1, 0] + 
       If[Inequality[229, LessEqual, t, Less, 230], 1, 0] + 
       If[Inequality[241, LessEqual, t, Less, 242], 1, 0] + 
       If[Inequality[253, LessEqual, t, Less, 254], 1, 0] + 
       If[Inequality[265, LessEqual, t, Less, 266], 1, 0] + 
       If[Inequality[277, LessEqual, t, Less, 278], 1, 0] + 
       If[Inequality[289, LessEqual, t, Less, 290], 1, 0] + 
       If[Inequality[301, LessEqual, t, Less, 302], 1, 0] + 
       If[Inequality[313, LessEqual, t, Less, 314], 1, 0] + 
       If[Inequality[325, LessEqual, t, Less, 326], 1, 0] + 
       If[Inequality[337, LessEqual, t, Less, 338], 1, 0] + 
       If[Inequality[349, LessEqual, t, Less, 350], 1, 0] + 
       If[Inequality[361, LessEqual, t, Less, 362], 1, 0] + 
       If[Inequality[373, LessEqual, t, Less, 374], 1, 0] + 
       If[Inequality[385, LessEqual, t, Less, 386], 1, 0] + 
       If[Inequality[397, LessEqual, t, Less, 398], 1, 0] + 
       If[Inequality[409, LessEqual, t, Less, 410], 1, 0] + 
       If[Inequality[421, LessEqual, t, Less, 422], 1, 0] + 
       If[Inequality[433, LessEqual, t, Less, 434], 1, 0] + 
       If[Inequality[445, LessEqual, t, Less, 446], 1, 0] + 
       If[Inequality[457, LessEqual, t, Less, 458], 1, 0] + 
       If[Inequality[469, LessEqual, t, Less, 470], 1, 0] + 
       If[Inequality[481, LessEqual, t, Less, 482], 1, 0] + 
       If[Inequality[493, LessEqual, t, Less, 494], 1, 0] + 
       If[Inequality[505, LessEqual, t, Less, 506], 1, 0] + 
       If[Inequality[517, LessEqual, t, Less, 518], 1, 0] + 
       If[Inequality[529, LessEqual, t, Less, 530], 1, 0] + 
       If[Inequality[541, LessEqual, t, Less, 542], 1, 0] + 
       If[Inequality[553, LessEqual, t, Less, 554], 1, 0] + 
       If[Inequality[565, LessEqual, t, Less, 566], 1, 0] + 
       If[Inequality[577, LessEqual, t, Less, 578], 1, 0] + 
       If[Inequality[589, LessEqual, t, Less, 590], 1, 0] + 
       If[Inequality[601, LessEqual, t, Less, 602], 1, 0] + 
       If[Inequality[613, LessEqual, t, Less, 614], 1, 0] + 
       If[Inequality[625, LessEqual, t, Less, 626], 1, 0] + 
       If[Inequality[637, LessEqual, t, Less, 638], 1, 0] + 
       If[Inequality[649, LessEqual, t, Less, 650], 1, 0] + 
       If[Inequality[661, LessEqual, t, Less, 662], 1, 0] + 
       If[Inequality[673, LessEqual, t, Less, 674], 1, 0] + 
       If[Inequality[685, LessEqual, t, Less, 686], 1, 0] + 
       If[Inequality[697, LessEqual, t, Less, 698], 1, 0] + 
       If[Inequality[709, LessEqual, t, Less, 710], 1, 0] + 
       If[Inequality[721, LessEqual, t, Less, 722], 1, 0] + 
       If[Inequality[733, LessEqual, t, Less, 734], 1, 0] + 
       If[Inequality[745, LessEqual, t, Less, 746], 1, 0] + 
       If[Inequality[757, LessEqual, t, Less, 758], 1, 0] + 
       If[Inequality[769, LessEqual, t, Less, 770], 1, 0] + 
       If[Inequality[781, LessEqual, t, Less, 782], 1, 0] + 
       If[Inequality[793, LessEqual, t, Less, 794], 1, 0] + 
       If[Inequality[805, LessEqual, t, Less, 806], 1, 0] + 
       If[Inequality[817, LessEqual, t, Less, 818], 1, 0] + 
       If[Inequality[829, LessEqual, t, Less, 830], 1, 0] + 
       If[Inequality[841, LessEqual, t, Less, 842], 1, 0]) - 
     0.11830403833298604*(If[Inequality[2, LessEqual, t, Less, 3], 1, 0] + 
       If[Inequality[14, LessEqual, t, Less, 15], 1, 0] + 
       If[Inequality[26, LessEqual, t, Less, 27], 1, 0] + 
       If[Inequality[38, LessEqual, t, Less, 39], 1, 0] + 
       If[Inequality[50, LessEqual, t, Less, 51], 1, 0] + 
       If[Inequality[62, LessEqual, t, Less, 63], 1, 0] + 
       If[Inequality[74, LessEqual, t, Less, 75], 1, 0] + 
       If[Inequality[86, LessEqual, t, Less, 87], 1, 0] + 
       If[Inequality[98, LessEqual, t, Less, 99], 1, 0] + 
       If[Inequality[110, LessEqual, t, Less, 111], 1, 0] + 
       If[Inequality[122, LessEqual, t, Less, 123], 1, 0] + 
       If[Inequality[134, LessEqual, t, Less, 135], 1, 0] + 
       If[Inequality[146, LessEqual, t, Less, 147], 1, 0] + 
       If[Inequality[158, LessEqual, t, Less, 159], 1, 0] + 
       If[Inequality[170, LessEqual, t, Less, 171], 1, 0] + 
       If[Inequality[182, LessEqual, t, Less, 183], 1, 0] + 
       If[Inequality[194, LessEqual, t, Less, 195], 1, 0] + 
       If[Inequality[206, LessEqual, t, Less, 207], 1, 0] + 
       If[Inequality[218, LessEqual, t, Less, 219], 1, 0] + 
       If[Inequality[230, LessEqual, t, Less, 231], 1, 0] + 
       If[Inequality[242, LessEqual, t, Less, 243], 1, 0] + 
       If[Inequality[254, LessEqual, t, Less, 255], 1, 0] + 
       If[Inequality[266, LessEqual, t, Less, 267], 1, 0] + 
       If[Inequality[278, LessEqual, t, Less, 279], 1, 0] + 
       If[Inequality[290, LessEqual, t, Less, 291], 1, 0] + 
       If[Inequality[302, LessEqual, t, Less, 303], 1, 0] + 
       If[Inequality[314, LessEqual, t, Less, 315], 1, 0] + 
       If[Inequality[326, LessEqual, t, Less, 327], 1, 0] + 
       If[Inequality[338, LessEqual, t, Less, 339], 1, 0] + 
       If[Inequality[350, LessEqual, t, Less, 351], 1, 0] + 
       If[Inequality[362, LessEqual, t, Less, 363], 1, 0] + 
       If[Inequality[374, LessEqual, t, Less, 375], 1, 0] + 
       If[Inequality[386, LessEqual, t, Less, 387], 1, 0] + 
       If[Inequality[398, LessEqual, t, Less, 399], 1, 0] + 
       If[Inequality[410, LessEqual, t, Less, 411], 1, 0] + 
       If[Inequality[422, LessEqual, t, Less, 423], 1, 0] + 
       If[Inequality[434, LessEqual, t, Less, 435], 1, 0] + 
       If[Inequality[446, LessEqual, t, Less, 447], 1, 0] + 
       If[Inequality[458, LessEqual, t, Less, 459], 1, 0] + 
       If[Inequality[470, LessEqual, t, Less, 471], 1, 0] + 
       If[Inequality[482, LessEqual, t, Less, 483], 1, 0] + 
       If[Inequality[494, LessEqual, t, Less, 495], 1, 0] + 
       If[Inequality[506, LessEqual, t, Less, 507], 1, 0] + 
       If[Inequality[518, LessEqual, t, Less, 519], 1, 0] + 
       If[Inequality[530, LessEqual, t, Less, 531], 1, 0] + 
       If[Inequality[542, LessEqual, t, Less, 543], 1, 0] + 
       If[Inequality[554, LessEqual, t, Less, 555], 1, 0] + 
       If[Inequality[566, LessEqual, t, Less, 567], 1, 0] + 
       If[Inequality[578, LessEqual, t, Less, 579], 1, 0] + 
       If[Inequality[590, LessEqual, t, Less, 591], 1, 0] + 
       If[Inequality[602, LessEqual, t, Less, 603], 1, 0] + 
       If[Inequality[614, LessEqual, t, Less, 615], 1, 0] + 
       If[Inequality[626, LessEqual, t, Less, 627], 1, 0] + 
       If[Inequality[638, LessEqual, t, Less, 639], 1, 0] + 
       If[Inequality[650, LessEqual, t, Less, 651], 1, 0] + 
       If[Inequality[662, LessEqual, t, Less, 663], 1, 0] + 
       If[Inequality[674, LessEqual, t, Less, 675], 1, 0] + 
       If[Inequality[686, LessEqual, t, Less, 687], 1, 0] + 
       If[Inequality[698, LessEqual, t, Less, 699], 1, 0] + 
       If[Inequality[710, LessEqual, t, Less, 711], 1, 0] + 
       If[Inequality[722, LessEqual, t, Less, 723], 1, 0] + 
       If[Inequality[734, LessEqual, t, Less, 735], 1, 0] + 
       If[Inequality[746, LessEqual, t, Less, 747], 1, 0] + 
       If[Inequality[758, LessEqual, t, Less, 759], 1, 0] + 
       If[Inequality[770, LessEqual, t, Less, 771], 1, 0] + 
       If[Inequality[782, LessEqual, t, Less, 783], 1, 0] + 
       If[Inequality[794, LessEqual, t, Less, 795], 1, 0] + 
       If[Inequality[806, LessEqual, t, Less, 807], 1, 0] + 
       If[Inequality[818, LessEqual, t, Less, 819], 1, 0] + 
       If[Inequality[830, LessEqual, t, Less, 831], 1, 0] + 
       If[Inequality[842, LessEqual, t, Less, 843], 1, 0]) + 
     2.244371435922844*(If[Inequality[3, LessEqual, t, Less, 4], 1, 0] + 
       If[Inequality[15, LessEqual, t, Less, 16], 1, 0] + 
       If[Inequality[27, LessEqual, t, Less, 28], 1, 0] + 
       If[Inequality[39, LessEqual, t, Less, 40], 1, 0] + 
       If[Inequality[51, LessEqual, t, Less, 52], 1, 0] + 
       If[Inequality[63, LessEqual, t, Less, 64], 1, 0] + 
       If[Inequality[75, LessEqual, t, Less, 76], 1, 0] + 
       If[Inequality[87, LessEqual, t, Less, 88], 1, 0] + 
       If[Inequality[99, LessEqual, t, Less, 100], 1, 0] + 
       If[Inequality[111, LessEqual, t, Less, 112], 1, 0] + 
       If[Inequality[123, LessEqual, t, Less, 124], 1, 0] + 
       If[Inequality[135, LessEqual, t, Less, 136], 1, 0] + 
       If[Inequality[147, LessEqual, t, Less, 148], 1, 0] + 
       If[Inequality[159, LessEqual, t, Less, 160], 1, 0] + 
       If[Inequality[171, LessEqual, t, Less, 172], 1, 0] + 
       If[Inequality[183, LessEqual, t, Less, 184], 1, 0] + 
       If[Inequality[195, LessEqual, t, Less, 196], 1, 0] + 
       If[Inequality[207, LessEqual, t, Less, 208], 1, 0] + 
       If[Inequality[219, LessEqual, t, Less, 220], 1, 0] + 
       If[Inequality[231, LessEqual, t, Less, 232], 1, 0] + 
       If[Inequality[243, LessEqual, t, Less, 244], 1, 0] + 
       If[Inequality[255, LessEqual, t, Less, 256], 1, 0] + 
       If[Inequality[267, LessEqual, t, Less, 268], 1, 0] + 
       If[Inequality[279, LessEqual, t, Less, 280], 1, 0] + 
       If[Inequality[291, LessEqual, t, Less, 292], 1, 0] + 
       If[Inequality[303, LessEqual, t, Less, 304], 1, 0] + 
       If[Inequality[315, LessEqual, t, Less, 316], 1, 0] + 
       If[Inequality[327, LessEqual, t, Less, 328], 1, 0] + 
       If[Inequality[339, LessEqual, t, Less, 340], 1, 0] + 
       If[Inequality[351, LessEqual, t, Less, 352], 1, 0] + 
       If[Inequality[363, LessEqual, t, Less, 364], 1, 0] + 
       If[Inequality[375, LessEqual, t, Less, 376], 1, 0] + 
       If[Inequality[387, LessEqual, t, Less, 388], 1, 0] + 
       If[Inequality[399, LessEqual, t, Less, 400], 1, 0] + 
       If[Inequality[411, LessEqual, t, Less, 412], 1, 0] + 
       If[Inequality[423, LessEqual, t, Less, 424], 1, 0] + 
       If[Inequality[435, LessEqual, t, Less, 436], 1, 0] + 
       If[Inequality[447, LessEqual, t, Less, 448], 1, 0] + 
       If[Inequality[459, LessEqual, t, Less, 460], 1, 0] + 
       If[Inequality[471, LessEqual, t, Less, 472], 1, 0] + 
       If[Inequality[483, LessEqual, t, Less, 484], 1, 0] + 
       If[Inequality[495, LessEqual, t, Less, 496], 1, 0] + 
       If[Inequality[507, LessEqual, t, Less, 508], 1, 0] + 
       If[Inequality[519, LessEqual, t, Less, 520], 1, 0] + 
       If[Inequality[531, LessEqual, t, Less, 532], 1, 0] + 
       If[Inequality[543, LessEqual, t, Less, 544], 1, 0] + 
       If[Inequality[555, LessEqual, t, Less, 556], 1, 0] + 
       If[Inequality[567, LessEqual, t, Less, 568], 1, 0] + 
       If[Inequality[579, LessEqual, t, Less, 580], 1, 0] + 
       If[Inequality[591, LessEqual, t, Less, 592], 1, 0] + 
       If[Inequality[603, LessEqual, t, Less, 604], 1, 0] + 
       If[Inequality[615, LessEqual, t, Less, 616], 1, 0] + 
       If[Inequality[627, LessEqual, t, Less, 628], 1, 0] + 
       If[Inequality[639, LessEqual, t, Less, 640], 1, 0] + 
       If[Inequality[651, LessEqual, t, Less, 652], 1, 0] + 
       If[Inequality[663, LessEqual, t, Less, 664], 1, 0] + 
       If[Inequality[675, LessEqual, t, Less, 676], 1, 0] + 
       If[Inequality[687, LessEqual, t, Less, 688], 1, 0] + 
       If[Inequality[699, LessEqual, t, Less, 700], 1, 0] + 
       If[Inequality[711, LessEqual, t, Less, 712], 1, 0] + 
       If[Inequality[723, LessEqual, t, Less, 724], 1, 0] + 
       If[Inequality[735, LessEqual, t, Less, 736], 1, 0] + 
       If[Inequality[747, LessEqual, t, Less, 748], 1, 0] + 
       If[Inequality[759, LessEqual, t, Less, 760], 1, 0] + 
       If[Inequality[771, LessEqual, t, Less, 772], 1, 0] + 
       If[Inequality[783, LessEqual, t, Less, 784], 1, 0] + 
       If[Inequality[795, LessEqual, t, Less, 796], 1, 0] + 
       If[Inequality[807, LessEqual, t, Less, 808], 1, 0] + 
       If[Inequality[819, LessEqual, t, Less, 820], 1, 0] + 
       If[Inequality[831, LessEqual, t, Less, 832], 1, 0] + 
       If[Inequality[843, LessEqual, t, Less, 844], 1, 0]) + 
     3.200004656657558*(If[Inequality[4, LessEqual, t, Less, 5], 1, 0] + 
       If[Inequality[16, LessEqual, t, Less, 17], 1, 0] + 
       If[Inequality[28, LessEqual, t, Less, 29], 1, 0] + 
       If[Inequality[40, LessEqual, t, Less, 41], 1, 0] + 
       If[Inequality[52, LessEqual, t, Less, 53], 1, 0] + 
       If[Inequality[64, LessEqual, t, Less, 65], 1, 0] + 
       If[Inequality[76, LessEqual, t, Less, 77], 1, 0] + 
       If[Inequality[88, LessEqual, t, Less, 89], 1, 0] + 
       If[Inequality[100, LessEqual, t, Less, 101], 1, 0] + 
       If[Inequality[112, LessEqual, t, Less, 113], 1, 0] + 
       If[Inequality[124, LessEqual, t, Less, 125], 1, 0] + 
       If[Inequality[136, LessEqual, t, Less, 137], 1, 0] + 
       If[Inequality[148, LessEqual, t, Less, 149], 1, 0] + 
       If[Inequality[160, LessEqual, t, Less, 161], 1, 0] + 
       If[Inequality[172, LessEqual, t, Less, 173], 1, 0] + 
       If[Inequality[184, LessEqual, t, Less, 185], 1, 0] + 
       If[Inequality[196, LessEqual, t, Less, 197], 1, 0] + 
       If[Inequality[208, LessEqual, t, Less, 209], 1, 0] + 
       If[Inequality[220, LessEqual, t, Less, 221], 1, 0] + 
       If[Inequality[232, LessEqual, t, Less, 233], 1, 0] + 
       If[Inequality[244, LessEqual, t, Less, 245], 1, 0] + 
       If[Inequality[256, LessEqual, t, Less, 257], 1, 0] + 
       If[Inequality[268, LessEqual, t, Less, 269], 1, 0] + 
       If[Inequality[280, LessEqual, t, Less, 281], 1, 0] + 
       If[Inequality[292, LessEqual, t, Less, 293], 1, 0] + 
       If[Inequality[304, LessEqual, t, Less, 305], 1, 0] + 
       If[Inequality[316, LessEqual, t, Less, 317], 1, 0] + 
       If[Inequality[328, LessEqual, t, Less, 329], 1, 0] + 
       If[Inequality[340, LessEqual, t, Less, 341], 1, 0] + 
       If[Inequality[352, LessEqual, t, Less, 353], 1, 0] + 
       If[Inequality[364, LessEqual, t, Less, 365], 1, 0] + 
       If[Inequality[376, LessEqual, t, Less, 377], 1, 0] + 
       If[Inequality[388, LessEqual, t, Less, 389], 1, 0] + 
       If[Inequality[400, LessEqual, t, Less, 401], 1, 0] + 
       If[Inequality[412, LessEqual, t, Less, 413], 1, 0] + 
       If[Inequality[424, LessEqual, t, Less, 425], 1, 0] + 
       If[Inequality[436, LessEqual, t, Less, 437], 1, 0] + 
       If[Inequality[448, LessEqual, t, Less, 449], 1, 0] + 
       If[Inequality[460, LessEqual, t, Less, 461], 1, 0] + 
       If[Inequality[472, LessEqual, t, Less, 473], 1, 0] + 
       If[Inequality[484, LessEqual, t, Less, 485], 1, 0] + 
       If[Inequality[496, LessEqual, t, Less, 497], 1, 0] + 
       If[Inequality[508, LessEqual, t, Less, 509], 1, 0] + 
       If[Inequality[520, LessEqual, t, Less, 521], 1, 0] + 
       If[Inequality[532, LessEqual, t, Less, 533], 1, 0] + 
       If[Inequality[544, LessEqual, t, Less, 545], 1, 0] + 
       If[Inequality[556, LessEqual, t, Less, 557], 1, 0] + 
       If[Inequality[568, LessEqual, t, Less, 569], 1, 0] + 
       If[Inequality[580, LessEqual, t, Less, 581], 1, 0] + 
       If[Inequality[592, LessEqual, t, Less, 593], 1, 0] + 
       If[Inequality[604, LessEqual, t, Less, 605], 1, 0] + 
       If[Inequality[616, LessEqual, t, Less, 617], 1, 0] + 
       If[Inequality[628, LessEqual, t, Less, 629], 1, 0] + 
       If[Inequality[640, LessEqual, t, Less, 641], 1, 0] + 
       If[Inequality[652, LessEqual, t, Less, 653], 1, 0] + 
       If[Inequality[664, LessEqual, t, Less, 665], 1, 0] + 
       If[Inequality[676, LessEqual, t, Less, 677], 1, 0] + 
       If[Inequality[688, LessEqual, t, Less, 689], 1, 0] + 
       If[Inequality[700, LessEqual, t, Less, 701], 1, 0] + 
       If[Inequality[712, LessEqual, t, Less, 713], 1, 0] + 
       If[Inequality[724, LessEqual, t, Less, 725], 1, 0] + 
       If[Inequality[736, LessEqual, t, Less, 737], 1, 0] + 
       If[Inequality[748, LessEqual, t, Less, 749], 1, 0] + 
       If[Inequality[760, LessEqual, t, Less, 761], 1, 0] + 
       If[Inequality[772, LessEqual, t, Less, 773], 1, 0] + 
       If[Inequality[784, LessEqual, t, Less, 785], 1, 0] + 
       If[Inequality[796, LessEqual, t, Less, 797], 1, 0] + 
       If[Inequality[808, LessEqual, t, Less, 809], 1, 0] + 
       If[Inequality[820, LessEqual, t, Less, 821], 1, 0] + 
       If[Inequality[832, LessEqual, t, Less, 833], 1, 0] + 
       If[Inequality[844, LessEqual, t, Less, 845], 1, 0]) + 
     0.7345111168288853*(If[Inequality[5, LessEqual, t, Less, 6], 1, 0] + 
       If[Inequality[17, LessEqual, t, Less, 18], 1, 0] + 
       If[Inequality[29, LessEqual, t, Less, 30], 1, 0] + 
       If[Inequality[41, LessEqual, t, Less, 42], 1, 0] + 
       If[Inequality[53, LessEqual, t, Less, 54], 1, 0] + 
       If[Inequality[65, LessEqual, t, Less, 66], 1, 0] + 
       If[Inequality[77, LessEqual, t, Less, 78], 1, 0] + 
       If[Inequality[89, LessEqual, t, Less, 90], 1, 0] + 
       If[Inequality[101, LessEqual, t, Less, 102], 1, 0] + 
       If[Inequality[113, LessEqual, t, Less, 114], 1, 0] + 
       If[Inequality[125, LessEqual, t, Less, 126], 1, 0] + 
       If[Inequality[137, LessEqual, t, Less, 138], 1, 0] + 
       If[Inequality[149, LessEqual, t, Less, 150], 1, 0] + 
       If[Inequality[161, LessEqual, t, Less, 162], 1, 0] + 
       If[Inequality[173, LessEqual, t, Less, 174], 1, 0] + 
       If[Inequality[185, LessEqual, t, Less, 186], 1, 0] + 
       If[Inequality[197, LessEqual, t, Less, 198], 1, 0] + 
       If[Inequality[209, LessEqual, t, Less, 210], 1, 0] + 
       If[Inequality[221, LessEqual, t, Less, 222], 1, 0] + 
       If[Inequality[233, LessEqual, t, Less, 234], 1, 0] + 
       If[Inequality[245, LessEqual, t, Less, 246], 1, 0] + 
       If[Inequality[257, LessEqual, t, Less, 258], 1, 0] + 
       If[Inequality[269, LessEqual, t, Less, 270], 1, 0] + 
       If[Inequality[281, LessEqual, t, Less, 282], 1, 0] + 
       If[Inequality[293, LessEqual, t, Less, 294], 1, 0] + 
       If[Inequality[305, LessEqual, t, Less, 306], 1, 0] + 
       If[Inequality[317, LessEqual, t, Less, 318], 1, 0] + 
       If[Inequality[329, LessEqual, t, Less, 330], 1, 0] + 
       If[Inequality[341, LessEqual, t, Less, 342], 1, 0] + 
       If[Inequality[353, LessEqual, t, Less, 354], 1, 0] + 
       If[Inequality[365, LessEqual, t, Less, 366], 1, 0] + 
       If[Inequality[377, LessEqual, t, Less, 378], 1, 0] + 
       If[Inequality[389, LessEqual, t, Less, 390], 1, 0] + 
       If[Inequality[401, LessEqual, t, Less, 402], 1, 0] + 
       If[Inequality[413, LessEqual, t, Less, 414], 1, 0] + 
       If[Inequality[425, LessEqual, t, Less, 426], 1, 0] + 
       If[Inequality[437, LessEqual, t, Less, 438], 1, 0] + 
       If[Inequality[449, LessEqual, t, Less, 450], 1, 0] + 
       If[Inequality[461, LessEqual, t, Less, 462], 1, 0] + 
       If[Inequality[473, LessEqual, t, Less, 474], 1, 0] + 
       If[Inequality[485, LessEqual, t, Less, 486], 1, 0] + 
       If[Inequality[497, LessEqual, t, Less, 498], 1, 0] + 
       If[Inequality[509, LessEqual, t, Less, 510], 1, 0] + 
       If[Inequality[521, LessEqual, t, Less, 522], 1, 0] + 
       If[Inequality[533, LessEqual, t, Less, 534], 1, 0] + 
       If[Inequality[545, LessEqual, t, Less, 546], 1, 0] + 
       If[Inequality[557, LessEqual, t, Less, 558], 1, 0] + 
       If[Inequality[569, LessEqual, t, Less, 570], 1, 0] + 
       If[Inequality[581, LessEqual, t, Less, 582], 1, 0] + 
       If[Inequality[593, LessEqual, t, Less, 594], 1, 0] + 
       If[Inequality[605, LessEqual, t, Less, 606], 1, 0] + 
       If[Inequality[617, LessEqual, t, Less, 618], 1, 0] + 
       If[Inequality[629, LessEqual, t, Less, 630], 1, 0] + 
       If[Inequality[641, LessEqual, t, Less, 642], 1, 0] + 
       If[Inequality[653, LessEqual, t, Less, 654], 1, 0] + 
       If[Inequality[665, LessEqual, t, Less, 666], 1, 0] + 
       If[Inequality[677, LessEqual, t, Less, 678], 1, 0] + 
       If[Inequality[689, LessEqual, t, Less, 690], 1, 0] + 
       If[Inequality[701, LessEqual, t, Less, 702], 1, 0] + 
       If[Inequality[713, LessEqual, t, Less, 714], 1, 0] + 
       If[Inequality[725, LessEqual, t, Less, 726], 1, 0] + 
       If[Inequality[737, LessEqual, t, Less, 738], 1, 0] + 
       If[Inequality[749, LessEqual, t, Less, 750], 1, 0] + 
       If[Inequality[761, LessEqual, t, Less, 762], 1, 0] + 
       If[Inequality[773, LessEqual, t, Less, 774], 1, 0] + 
       If[Inequality[785, LessEqual, t, Less, 786], 1, 0] + 
       If[Inequality[797, LessEqual, t, Less, 798], 1, 0] + 
       If[Inequality[809, LessEqual, t, Less, 810], 1, 0] + 
       If[Inequality[821, LessEqual, t, Less, 822], 1, 0] + 
       If[Inequality[833, LessEqual, t, Less, 834], 1, 0] + 
       If[Inequality[845, LessEqual, t, Less, 846], 1, 0]) + 
     0.040848562915700146*(If[Inequality[6, LessEqual, t, Less, 7], 1, 0] + 
       If[Inequality[18, LessEqual, t, Less, 19], 1, 0] + 
       If[Inequality[30, LessEqual, t, Less, 31], 1, 0] + 
       If[Inequality[42, LessEqual, t, Less, 43], 1, 0] + 
       If[Inequality[54, LessEqual, t, Less, 55], 1, 0] + 
       If[Inequality[66, LessEqual, t, Less, 67], 1, 0] + 
       If[Inequality[78, LessEqual, t, Less, 79], 1, 0] + 
       If[Inequality[90, LessEqual, t, Less, 91], 1, 0] + 
       If[Inequality[102, LessEqual, t, Less, 103], 1, 0] + 
       If[Inequality[114, LessEqual, t, Less, 115], 1, 0] + 
       If[Inequality[126, LessEqual, t, Less, 127], 1, 0] + 
       If[Inequality[138, LessEqual, t, Less, 139], 1, 0] + 
       If[Inequality[150, LessEqual, t, Less, 151], 1, 0] + 
       If[Inequality[162, LessEqual, t, Less, 163], 1, 0] + 
       If[Inequality[174, LessEqual, t, Less, 175], 1, 0] + 
       If[Inequality[186, LessEqual, t, Less, 187], 1, 0] + 
       If[Inequality[198, LessEqual, t, Less, 199], 1, 0] + 
       If[Inequality[210, LessEqual, t, Less, 211], 1, 0] + 
       If[Inequality[222, LessEqual, t, Less, 223], 1, 0] + 
       If[Inequality[234, LessEqual, t, Less, 235], 1, 0] + 
       If[Inequality[246, LessEqual, t, Less, 247], 1, 0] + 
       If[Inequality[258, LessEqual, t, Less, 259], 1, 0] + 
       If[Inequality[270, LessEqual, t, Less, 271], 1, 0] + 
       If[Inequality[282, LessEqual, t, Less, 283], 1, 0] + 
       If[Inequality[294, LessEqual, t, Less, 295], 1, 0] + 
       If[Inequality[306, LessEqual, t, Less, 307], 1, 0] + 
       If[Inequality[318, LessEqual, t, Less, 319], 1, 0] + 
       If[Inequality[330, LessEqual, t, Less, 331], 1, 0] + 
       If[Inequality[342, LessEqual, t, Less, 343], 1, 0] + 
       If[Inequality[354, LessEqual, t, Less, 355], 1, 0] + 
       If[Inequality[366, LessEqual, t, Less, 367], 1, 0] + 
       If[Inequality[378, LessEqual, t, Less, 379], 1, 0] + 
       If[Inequality[390, LessEqual, t, Less, 391], 1, 0] + 
       If[Inequality[402, LessEqual, t, Less, 403], 1, 0] + 
       If[Inequality[414, LessEqual, t, Less, 415], 1, 0] + 
       If[Inequality[426, LessEqual, t, Less, 427], 1, 0] + 
       If[Inequality[438, LessEqual, t, Less, 439], 1, 0] + 
       If[Inequality[450, LessEqual, t, Less, 451], 1, 0] + 
       If[Inequality[462, LessEqual, t, Less, 463], 1, 0] + 
       If[Inequality[474, LessEqual, t, Less, 475], 1, 0] + 
       If[Inequality[486, LessEqual, t, Less, 487], 1, 0] + 
       If[Inequality[498, LessEqual, t, Less, 499], 1, 0] + 
       If[Inequality[510, LessEqual, t, Less, 511], 1, 0] + 
       If[Inequality[522, LessEqual, t, Less, 523], 1, 0] + 
       If[Inequality[534, LessEqual, t, Less, 535], 1, 0] + 
       If[Inequality[546, LessEqual, t, Less, 547], 1, 0] + 
       If[Inequality[558, LessEqual, t, Less, 559], 1, 0] + 
       If[Inequality[570, LessEqual, t, Less, 571], 1, 0] + 
       If[Inequality[582, LessEqual, t, Less, 583], 1, 0] + 
       If[Inequality[594, LessEqual, t, Less, 595], 1, 0] + 
       If[Inequality[606, LessEqual, t, Less, 607], 1, 0] + 
       If[Inequality[618, LessEqual, t, Less, 619], 1, 0] + 
       If[Inequality[630, LessEqual, t, Less, 631], 1, 0] + 
       If[Inequality[642, LessEqual, t, Less, 643], 1, 0] + 
       If[Inequality[654, LessEqual, t, Less, 655], 1, 0] + 
       If[Inequality[666, LessEqual, t, Less, 667], 1, 0] + 
       If[Inequality[678, LessEqual, t, Less, 679], 1, 0] + 
       If[Inequality[690, LessEqual, t, Less, 691], 1, 0] + 
       If[Inequality[702, LessEqual, t, Less, 703], 1, 0] + 
       If[Inequality[714, LessEqual, t, Less, 715], 1, 0] + 
       If[Inequality[726, LessEqual, t, Less, 727], 1, 0] + 
       If[Inequality[738, LessEqual, t, Less, 739], 1, 0] + 
       If[Inequality[750, LessEqual, t, Less, 751], 1, 0] + 
       If[Inequality[762, LessEqual, t, Less, 763], 1, 0] + 
       If[Inequality[774, LessEqual, t, Less, 775], 1, 0] + 
       If[Inequality[786, LessEqual, t, Less, 787], 1, 0] + 
       If[Inequality[798, LessEqual, t, Less, 799], 1, 0] + 
       If[Inequality[810, LessEqual, t, Less, 811], 1, 0] + 
       If[Inequality[822, LessEqual, t, Less, 823], 1, 0] + 
       If[Inequality[834, LessEqual, t, Less, 835], 1, 0] + 
       If[Inequality[846, LessEqual, t, Less, 847], 1, 0]) - 
     0.05844779381437606*(If[Inequality[7, LessEqual, t, Less, 8], 1, 0] + 
       If[Inequality[19, LessEqual, t, Less, 20], 1, 0] + 
       If[Inequality[31, LessEqual, t, Less, 32], 1, 0] + 
       If[Inequality[43, LessEqual, t, Less, 44], 1, 0] + 
       If[Inequality[55, LessEqual, t, Less, 56], 1, 0] + 
       If[Inequality[67, LessEqual, t, Less, 68], 1, 0] + 
       If[Inequality[79, LessEqual, t, Less, 80], 1, 0] + 
       If[Inequality[91, LessEqual, t, Less, 92], 1, 0] + 
       If[Inequality[103, LessEqual, t, Less, 104], 1, 0] + 
       If[Inequality[115, LessEqual, t, Less, 116], 1, 0] + 
       If[Inequality[127, LessEqual, t, Less, 128], 1, 0] + 
       If[Inequality[139, LessEqual, t, Less, 140], 1, 0] + 
       If[Inequality[151, LessEqual, t, Less, 152], 1, 0] + 
       If[Inequality[163, LessEqual, t, Less, 164], 1, 0] + 
       If[Inequality[175, LessEqual, t, Less, 176], 1, 0] + 
       If[Inequality[187, LessEqual, t, Less, 188], 1, 0] + 
       If[Inequality[199, LessEqual, t, Less, 200], 1, 0] + 
       If[Inequality[211, LessEqual, t, Less, 212], 1, 0] + 
       If[Inequality[223, LessEqual, t, Less, 224], 1, 0] + 
       If[Inequality[235, LessEqual, t, Less, 236], 1, 0] + 
       If[Inequality[247, LessEqual, t, Less, 248], 1, 0] + 
       If[Inequality[259, LessEqual, t, Less, 260], 1, 0] + 
       If[Inequality[271, LessEqual, t, Less, 272], 1, 0] + 
       If[Inequality[283, LessEqual, t, Less, 284], 1, 0] + 
       If[Inequality[295, LessEqual, t, Less, 296], 1, 0] + 
       If[Inequality[307, LessEqual, t, Less, 308], 1, 0] + 
       If[Inequality[319, LessEqual, t, Less, 320], 1, 0] + 
       If[Inequality[331, LessEqual, t, Less, 332], 1, 0] + 
       If[Inequality[343, LessEqual, t, Less, 344], 1, 0] + 
       If[Inequality[355, LessEqual, t, Less, 356], 1, 0] + 
       If[Inequality[367, LessEqual, t, Less, 368], 1, 0] + 
       If[Inequality[379, LessEqual, t, Less, 380], 1, 0] + 
       If[Inequality[391, LessEqual, t, Less, 392], 1, 0] + 
       If[Inequality[403, LessEqual, t, Less, 404], 1, 0] + 
       If[Inequality[415, LessEqual, t, Less, 416], 1, 0] + 
       If[Inequality[427, LessEqual, t, Less, 428], 1, 0] + 
       If[Inequality[439, LessEqual, t, Less, 440], 1, 0] + 
       If[Inequality[451, LessEqual, t, Less, 452], 1, 0] + 
       If[Inequality[463, LessEqual, t, Less, 464], 1, 0] + 
       If[Inequality[475, LessEqual, t, Less, 476], 1, 0] + 
       If[Inequality[487, LessEqual, t, Less, 488], 1, 0] + 
       If[Inequality[499, LessEqual, t, Less, 500], 1, 0] + 
       If[Inequality[511, LessEqual, t, Less, 512], 1, 0] + 
       If[Inequality[523, LessEqual, t, Less, 524], 1, 0] + 
       If[Inequality[535, LessEqual, t, Less, 536], 1, 0] + 
       If[Inequality[547, LessEqual, t, Less, 548], 1, 0] + 
       If[Inequality[559, LessEqual, t, Less, 560], 1, 0] + 
       If[Inequality[571, LessEqual, t, Less, 572], 1, 0] + 
       If[Inequality[583, LessEqual, t, Less, 584], 1, 0] + 
       If[Inequality[595, LessEqual, t, Less, 596], 1, 0] + 
       If[Inequality[607, LessEqual, t, Less, 608], 1, 0] + 
       If[Inequality[619, LessEqual, t, Less, 620], 1, 0] + 
       If[Inequality[631, LessEqual, t, Less, 632], 1, 0] + 
       If[Inequality[643, LessEqual, t, Less, 644], 1, 0] + 
       If[Inequality[655, LessEqual, t, Less, 656], 1, 0] + 
       If[Inequality[667, LessEqual, t, Less, 668], 1, 0] + 
       If[Inequality[679, LessEqual, t, Less, 680], 1, 0] + 
       If[Inequality[691, LessEqual, t, Less, 692], 1, 0] + 
       If[Inequality[703, LessEqual, t, Less, 704], 1, 0] + 
       If[Inequality[715, LessEqual, t, Less, 716], 1, 0] + 
       If[Inequality[727, LessEqual, t, Less, 728], 1, 0] + 
       If[Inequality[739, LessEqual, t, Less, 740], 1, 0] + 
       If[Inequality[751, LessEqual, t, Less, 752], 1, 0] + 
       If[Inequality[763, LessEqual, t, Less, 764], 1, 0] + 
       If[Inequality[775, LessEqual, t, Less, 776], 1, 0] + 
       If[Inequality[787, LessEqual, t, Less, 788], 1, 0] + 
       If[Inequality[799, LessEqual, t, Less, 800], 1, 0] + 
       If[Inequality[811, LessEqual, t, Less, 812], 1, 0] + 
       If[Inequality[823, LessEqual, t, Less, 824], 1, 0] + 
       If[Inequality[835, LessEqual, t, Less, 836], 1, 0] + 
       If[Inequality[847, LessEqual, t, Less, 848], 1, 0]) - 
     0.7957723195585443*(If[Inequality[8, LessEqual, t, Less, 9], 1, 0] + 
       If[Inequality[20, LessEqual, t, Less, 21], 1, 0] + 
       If[Inequality[32, LessEqual, t, Less, 33], 1, 0] + 
       If[Inequality[44, LessEqual, t, Less, 45], 1, 0] + 
       If[Inequality[56, LessEqual, t, Less, 57], 1, 0] + 
       If[Inequality[68, LessEqual, t, Less, 69], 1, 0] + 
       If[Inequality[80, LessEqual, t, Less, 81], 1, 0] + 
       If[Inequality[92, LessEqual, t, Less, 93], 1, 0] + 
       If[Inequality[104, LessEqual, t, Less, 105], 1, 0] + 
       If[Inequality[116, LessEqual, t, Less, 117], 1, 0] + 
       If[Inequality[128, LessEqual, t, Less, 129], 1, 0] + 
       If[Inequality[140, LessEqual, t, Less, 141], 1, 0] + 
       If[Inequality[152, LessEqual, t, Less, 153], 1, 0] + 
       If[Inequality[164, LessEqual, t, Less, 165], 1, 0] + 
       If[Inequality[176, LessEqual, t, Less, 177], 1, 0] + 
       If[Inequality[188, LessEqual, t, Less, 189], 1, 0] + 
       If[Inequality[200, LessEqual, t, Less, 201], 1, 0] + 
       If[Inequality[212, LessEqual, t, Less, 213], 1, 0] + 
       If[Inequality[224, LessEqual, t, Less, 225], 1, 0] + 
       If[Inequality[236, LessEqual, t, Less, 237], 1, 0] + 
       If[Inequality[248, LessEqual, t, Less, 249], 1, 0] + 
       If[Inequality[260, LessEqual, t, Less, 261], 1, 0] + 
       If[Inequality[272, LessEqual, t, Less, 273], 1, 0] + 
       If[Inequality[284, LessEqual, t, Less, 285], 1, 0] + 
       If[Inequality[296, LessEqual, t, Less, 297], 1, 0] + 
       If[Inequality[308, LessEqual, t, Less, 309], 1, 0] + 
       If[Inequality[320, LessEqual, t, Less, 321], 1, 0] + 
       If[Inequality[332, LessEqual, t, Less, 333], 1, 0] + 
       If[Inequality[344, LessEqual, t, Less, 345], 1, 0] + 
       If[Inequality[356, LessEqual, t, Less, 357], 1, 0] + 
       If[Inequality[368, LessEqual, t, Less, 369], 1, 0] + 
       If[Inequality[380, LessEqual, t, Less, 381], 1, 0] + 
       If[Inequality[392, LessEqual, t, Less, 393], 1, 0] + 
       If[Inequality[404, LessEqual, t, Less, 405], 1, 0] + 
       If[Inequality[416, LessEqual, t, Less, 417], 1, 0] + 
       If[Inequality[428, LessEqual, t, Less, 429], 1, 0] + 
       If[Inequality[440, LessEqual, t, Less, 441], 1, 0] + 
       If[Inequality[452, LessEqual, t, Less, 453], 1, 0] + 
       If[Inequality[464, LessEqual, t, Less, 465], 1, 0] + 
       If[Inequality[476, LessEqual, t, Less, 477], 1, 0] + 
       If[Inequality[488, LessEqual, t, Less, 489], 1, 0] + 
       If[Inequality[500, LessEqual, t, Less, 501], 1, 0] + 
       If[Inequality[512, LessEqual, t, Less, 513], 1, 0] + 
       If[Inequality[524, LessEqual, t, Less, 525], 1, 0] + 
       If[Inequality[536, LessEqual, t, Less, 537], 1, 0] + 
       If[Inequality[548, LessEqual, t, Less, 549], 1, 0] + 
       If[Inequality[560, LessEqual, t, Less, 561], 1, 0] + 
       If[Inequality[572, LessEqual, t, Less, 573], 1, 0] + 
       If[Inequality[584, LessEqual, t, Less, 585], 1, 0] + 
       If[Inequality[596, LessEqual, t, Less, 597], 1, 0] + 
       If[Inequality[608, LessEqual, t, Less, 609], 1, 0] + 
       If[Inequality[620, LessEqual, t, Less, 621], 1, 0] + 
       If[Inequality[632, LessEqual, t, Less, 633], 1, 0] + 
       If[Inequality[644, LessEqual, t, Less, 645], 1, 0] + 
       If[Inequality[656, LessEqual, t, Less, 657], 1, 0] + 
       If[Inequality[668, LessEqual, t, Less, 669], 1, 0] + 
       If[Inequality[680, LessEqual, t, Less, 681], 1, 0] + 
       If[Inequality[692, LessEqual, t, Less, 693], 1, 0] + 
       If[Inequality[704, LessEqual, t, Less, 705], 1, 0] + 
       If[Inequality[716, LessEqual, t, Less, 717], 1, 0] + 
       If[Inequality[728, LessEqual, t, Less, 729], 1, 0] + 
       If[Inequality[740, LessEqual, t, Less, 741], 1, 0] + 
       If[Inequality[752, LessEqual, t, Less, 753], 1, 0] + 
       If[Inequality[764, LessEqual, t, Less, 765], 1, 0] + 
       If[Inequality[776, LessEqual, t, Less, 777], 1, 0] + 
       If[Inequality[788, LessEqual, t, Less, 789], 1, 0] + 
       If[Inequality[800, LessEqual, t, Less, 801], 1, 0] + 
       If[Inequality[812, LessEqual, t, Less, 813], 1, 0] + 
       If[Inequality[824, LessEqual, t, Less, 825], 1, 0] + 
       If[Inequality[836, LessEqual, t, Less, 837], 1, 0] + 
       If[Inequality[848, LessEqual, t, Less, 849], 1, 0]) - 
     1.1274630424858099*(If[Inequality[9, LessEqual, t, Less, 10], 1, 0] + 
       If[Inequality[21, LessEqual, t, Less, 22], 1, 0] + 
       If[Inequality[33, LessEqual, t, Less, 34], 1, 0] + 
       If[Inequality[45, LessEqual, t, Less, 46], 1, 0] + 
       If[Inequality[57, LessEqual, t, Less, 58], 1, 0] + 
       If[Inequality[69, LessEqual, t, Less, 70], 1, 0] + 
       If[Inequality[81, LessEqual, t, Less, 82], 1, 0] + 
       If[Inequality[93, LessEqual, t, Less, 94], 1, 0] + 
       If[Inequality[105, LessEqual, t, Less, 106], 1, 0] + 
       If[Inequality[117, LessEqual, t, Less, 118], 1, 0] + 
       If[Inequality[129, LessEqual, t, Less, 130], 1, 0] + 
       If[Inequality[141, LessEqual, t, Less, 142], 1, 0] + 
       If[Inequality[153, LessEqual, t, Less, 154], 1, 0] + 
       If[Inequality[165, LessEqual, t, Less, 166], 1, 0] + 
       If[Inequality[177, LessEqual, t, Less, 178], 1, 0] + 
       If[Inequality[189, LessEqual, t, Less, 190], 1, 0] + 
       If[Inequality[201, LessEqual, t, Less, 202], 1, 0] + 
       If[Inequality[213, LessEqual, t, Less, 214], 1, 0] + 
       If[Inequality[225, LessEqual, t, Less, 226], 1, 0] + 
       If[Inequality[237, LessEqual, t, Less, 238], 1, 0] + 
       If[Inequality[249, LessEqual, t, Less, 250], 1, 0] + 
       If[Inequality[261, LessEqual, t, Less, 262], 1, 0] + 
       If[Inequality[273, LessEqual, t, Less, 274], 1, 0] + 
       If[Inequality[285, LessEqual, t, Less, 286], 1, 0] + 
       If[Inequality[297, LessEqual, t, Less, 298], 1, 0] + 
       If[Inequality[309, LessEqual, t, Less, 310], 1, 0] + 
       If[Inequality[321, LessEqual, t, Less, 322], 1, 0] + 
       If[Inequality[333, LessEqual, t, Less, 334], 1, 0] + 
       If[Inequality[345, LessEqual, t, Less, 346], 1, 0] + 
       If[Inequality[357, LessEqual, t, Less, 358], 1, 0] + 
       If[Inequality[369, LessEqual, t, Less, 370], 1, 0] + 
       If[Inequality[381, LessEqual, t, Less, 382], 1, 0] + 
       If[Inequality[393, LessEqual, t, Less, 394], 1, 0] + 
       If[Inequality[405, LessEqual, t, Less, 406], 1, 0] + 
       If[Inequality[417, LessEqual, t, Less, 418], 1, 0] + 
       If[Inequality[429, LessEqual, t, Less, 430], 1, 0] + 
       If[Inequality[441, LessEqual, t, Less, 442], 1, 0] + 
       If[Inequality[453, LessEqual, t, Less, 454], 1, 0] + 
       If[Inequality[465, LessEqual, t, Less, 466], 1, 0] + 
       If[Inequality[477, LessEqual, t, Less, 478], 1, 0] + 
       If[Inequality[489, LessEqual, t, Less, 490], 1, 0] + 
       If[Inequality[501, LessEqual, t, Less, 502], 1, 0] + 
       If[Inequality[513, LessEqual, t, Less, 514], 1, 0] + 
       If[Inequality[525, LessEqual, t, Less, 526], 1, 0] + 
       If[Inequality[537, LessEqual, t, Less, 538], 1, 0] + 
       If[Inequality[549, LessEqual, t, Less, 550], 1, 0] + 
       If[Inequality[561, LessEqual, t, Less, 562], 1, 0] + 
       If[Inequality[573, LessEqual, t, Less, 574], 1, 0] + 
       If[Inequality[585, LessEqual, t, Less, 586], 1, 0] + 
       If[Inequality[597, LessEqual, t, Less, 598], 1, 0] + 
       If[Inequality[609, LessEqual, t, Less, 610], 1, 0] + 
       If[Inequality[621, LessEqual, t, Less, 622], 1, 0] + 
       If[Inequality[633, LessEqual, t, Less, 634], 1, 0] + 
       If[Inequality[645, LessEqual, t, Less, 646], 1, 0] + 
       If[Inequality[657, LessEqual, t, Less, 658], 1, 0] + 
       If[Inequality[669, LessEqual, t, Less, 670], 1, 0] + 
       If[Inequality[681, LessEqual, t, Less, 682], 1, 0] + 
       If[Inequality[693, LessEqual, t, Less, 694], 1, 0] + 
       If[Inequality[705, LessEqual, t, Less, 706], 1, 0] + 
       If[Inequality[717, LessEqual, t, Less, 718], 1, 0] + 
       If[Inequality[729, LessEqual, t, Less, 730], 1, 0] + 
       If[Inequality[741, LessEqual, t, Less, 742], 1, 0] + 
       If[Inequality[753, LessEqual, t, Less, 754], 1, 0] + 
       If[Inequality[765, LessEqual, t, Less, 766], 1, 0] + 
       If[Inequality[777, LessEqual, t, Less, 778], 1, 0] + 
       If[Inequality[789, LessEqual, t, Less, 790], 1, 0] + 
       If[Inequality[801, LessEqual, t, Less, 802], 1, 0] + 
       If[Inequality[813, LessEqual, t, Less, 814], 1, 0] + 
       If[Inequality[825, LessEqual, t, Less, 826], 1, 0] + 
       If[Inequality[837, LessEqual, t, Less, 838], 1, 0] + 
       If[Inequality[849, LessEqual, t, Less, 850], 1, 0]) - 
     0.9816889766806798*(If[Inequality[10, LessEqual, t, Less, 11], 1, 0] + 
       If[Inequality[22, LessEqual, t, Less, 23], 1, 0] + 
       If[Inequality[34, LessEqual, t, Less, 35], 1, 0] + 
       If[Inequality[46, LessEqual, t, Less, 47], 1, 0] + 
       If[Inequality[58, LessEqual, t, Less, 59], 1, 0] + 
       If[Inequality[70, LessEqual, t, Less, 71], 1, 0] + 
       If[Inequality[82, LessEqual, t, Less, 83], 1, 0] + 
       If[Inequality[94, LessEqual, t, Less, 95], 1, 0] + 
       If[Inequality[106, LessEqual, t, Less, 107], 1, 0] + 
       If[Inequality[118, LessEqual, t, Less, 119], 1, 0] + 
       If[Inequality[130, LessEqual, t, Less, 131], 1, 0] + 
       If[Inequality[142, LessEqual, t, Less, 143], 1, 0] + 
       If[Inequality[154, LessEqual, t, Less, 155], 1, 0] + 
       If[Inequality[166, LessEqual, t, Less, 167], 1, 0] + 
       If[Inequality[178, LessEqual, t, Less, 179], 1, 0] + 
       If[Inequality[190, LessEqual, t, Less, 191], 1, 0] + 
       If[Inequality[202, LessEqual, t, Less, 203], 1, 0] + 
       If[Inequality[214, LessEqual, t, Less, 215], 1, 0] + 
       If[Inequality[226, LessEqual, t, Less, 227], 1, 0] + 
       If[Inequality[238, LessEqual, t, Less, 239], 1, 0] + 
       If[Inequality[250, LessEqual, t, Less, 251], 1, 0] + 
       If[Inequality[262, LessEqual, t, Less, 263], 1, 0] + 
       If[Inequality[274, LessEqual, t, Less, 275], 1, 0] + 
       If[Inequality[286, LessEqual, t, Less, 287], 1, 0] + 
       If[Inequality[298, LessEqual, t, Less, 299], 1, 0] + 
       If[Inequality[310, LessEqual, t, Less, 311], 1, 0] + 
       If[Inequality[322, LessEqual, t, Less, 323], 1, 0] + 
       If[Inequality[334, LessEqual, t, Less, 335], 1, 0] + 
       If[Inequality[346, LessEqual, t, Less, 347], 1, 0] + 
       If[Inequality[358, LessEqual, t, Less, 359], 1, 0] + 
       If[Inequality[370, LessEqual, t, Less, 371], 1, 0] + 
       If[Inequality[382, LessEqual, t, Less, 383], 1, 0] + 
       If[Inequality[394, LessEqual, t, Less, 395], 1, 0] + 
       If[Inequality[406, LessEqual, t, Less, 407], 1, 0] + 
       If[Inequality[418, LessEqual, t, Less, 419], 1, 0] + 
       If[Inequality[430, LessEqual, t, Less, 431], 1, 0] + 
       If[Inequality[442, LessEqual, t, Less, 443], 1, 0] + 
       If[Inequality[454, LessEqual, t, Less, 455], 1, 0] + 
       If[Inequality[466, LessEqual, t, Less, 467], 1, 0] + 
       If[Inequality[478, LessEqual, t, Less, 479], 1, 0] + 
       If[Inequality[490, LessEqual, t, Less, 491], 1, 0] + 
       If[Inequality[502, LessEqual, t, Less, 503], 1, 0] + 
       If[Inequality[514, LessEqual, t, Less, 515], 1, 0] + 
       If[Inequality[526, LessEqual, t, Less, 527], 1, 0] + 
       If[Inequality[538, LessEqual, t, Less, 539], 1, 0] + 
       If[Inequality[550, LessEqual, t, Less, 551], 1, 0] + 
       If[Inequality[562, LessEqual, t, Less, 563], 1, 0] + 
       If[Inequality[574, LessEqual, t, Less, 575], 1, 0] + 
       If[Inequality[586, LessEqual, t, Less, 587], 1, 0] + 
       If[Inequality[598, LessEqual, t, Less, 599], 1, 0] + 
       If[Inequality[610, LessEqual, t, Less, 611], 1, 0] + 
       If[Inequality[622, LessEqual, t, Less, 623], 1, 0] + 
       If[Inequality[634, LessEqual, t, Less, 635], 1, 0] + 
       If[Inequality[646, LessEqual, t, Less, 647], 1, 0] + 
       If[Inequality[658, LessEqual, t, Less, 659], 1, 0] + 
       If[Inequality[670, LessEqual, t, Less, 671], 1, 0] + 
       If[Inequality[682, LessEqual, t, Less, 683], 1, 0] + 
       If[Inequality[694, LessEqual, t, Less, 695], 1, 0] + 
       If[Inequality[706, LessEqual, t, Less, 707], 1, 0] + 
       If[Inequality[718, LessEqual, t, Less, 719], 1, 0] + 
       If[Inequality[730, LessEqual, t, Less, 731], 1, 0] + 
       If[Inequality[742, LessEqual, t, Less, 743], 1, 0] + 
       If[Inequality[754, LessEqual, t, Less, 755], 1, 0] + 
       If[Inequality[766, LessEqual, t, Less, 767], 1, 0] + 
       If[Inequality[778, LessEqual, t, Less, 779], 1, 0] + 
       If[Inequality[790, LessEqual, t, Less, 791], 1, 0] + 
       If[Inequality[802, LessEqual, t, Less, 803], 1, 0] + 
       If[Inequality[814, LessEqual, t, Less, 815], 1, 0] + 
       If[Inequality[826, LessEqual, t, Less, 827], 1, 0] + 
       If[Inequality[838, LessEqual, t, Less, 839], 1, 0] + 
       If[Inequality[850, LessEqual, t, Less, 851], 1, 0]) - 
     0.17957688270653505*(If[Inequality[11, LessEqual, t, Less, 12], 1, 0] + 
       If[Inequality[23, LessEqual, t, Less, 24], 1, 0] + 
       If[Inequality[35, LessEqual, t, Less, 36], 1, 0] + 
       If[Inequality[47, LessEqual, t, Less, 48], 1, 0] + 
       If[Inequality[59, LessEqual, t, Less, 60], 1, 0] + 
       If[Inequality[71, LessEqual, t, Less, 72], 1, 0] + 
       If[Inequality[83, LessEqual, t, Less, 84], 1, 0] + 
       If[Inequality[95, LessEqual, t, Less, 96], 1, 0] + 
       If[Inequality[107, LessEqual, t, Less, 108], 1, 0] + 
       If[Inequality[119, LessEqual, t, Less, 120], 1, 0] + 
       If[Inequality[131, LessEqual, t, Less, 132], 1, 0] + 
       If[Inequality[143, LessEqual, t, Less, 144], 1, 0] + 
       If[Inequality[155, LessEqual, t, Less, 156], 1, 0] + 
       If[Inequality[167, LessEqual, t, Less, 168], 1, 0] + 
       If[Inequality[179, LessEqual, t, Less, 180], 1, 0] + 
       If[Inequality[191, LessEqual, t, Less, 192], 1, 0] + 
       If[Inequality[203, LessEqual, t, Less, 204], 1, 0] + 
       If[Inequality[215, LessEqual, t, Less, 216], 1, 0] + 
       If[Inequality[227, LessEqual, t, Less, 228], 1, 0] + 
       If[Inequality[239, LessEqual, t, Less, 240], 1, 0] + 
       If[Inequality[251, LessEqual, t, Less, 252], 1, 0] + 
       If[Inequality[263, LessEqual, t, Less, 264], 1, 0] + 
       If[Inequality[275, LessEqual, t, Less, 276], 1, 0] + 
       If[Inequality[287, LessEqual, t, Less, 288], 1, 0] + 
       If[Inequality[299, LessEqual, t, Less, 300], 1, 0] + 
       If[Inequality[311, LessEqual, t, Less, 312], 1, 0] + 
       If[Inequality[323, LessEqual, t, Less, 324], 1, 0] + 
       If[Inequality[335, LessEqual, t, Less, 336], 1, 0] + 
       If[Inequality[347, LessEqual, t, Less, 348], 1, 0] + 
       If[Inequality[359, LessEqual, t, Less, 360], 1, 0] + 
       If[Inequality[371, LessEqual, t, Less, 372], 1, 0] + 
       If[Inequality[383, LessEqual, t, Less, 384], 1, 0] + 
       If[Inequality[395, LessEqual, t, Less, 396], 1, 0] + 
       If[Inequality[407, LessEqual, t, Less, 408], 1, 0] + 
       If[Inequality[419, LessEqual, t, Less, 420], 1, 0] + 
       If[Inequality[431, LessEqual, t, Less, 432], 1, 0] + 
       If[Inequality[443, LessEqual, t, Less, 444], 1, 0] + 
       If[Inequality[455, LessEqual, t, Less, 456], 1, 0] + 
       If[Inequality[467, LessEqual, t, Less, 468], 1, 0] + 
       If[Inequality[479, LessEqual, t, Less, 480], 1, 0] + 
       If[Inequality[491, LessEqual, t, Less, 492], 1, 0] + 
       If[Inequality[503, LessEqual, t, Less, 504], 1, 0] + 
       If[Inequality[515, LessEqual, t, Less, 516], 1, 0] + 
       If[Inequality[527, LessEqual, t, Less, 528], 1, 0] + 
       If[Inequality[539, LessEqual, t, Less, 540], 1, 0] + 
       If[Inequality[551, LessEqual, t, Less, 552], 1, 0] + 
       If[Inequality[563, LessEqual, t, Less, 564], 1, 0] + 
       If[Inequality[575, LessEqual, t, Less, 576], 1, 0] + 
       If[Inequality[587, LessEqual, t, Less, 588], 1, 0] + 
       If[Inequality[599, LessEqual, t, Less, 600], 1, 0] + 
       If[Inequality[611, LessEqual, t, Less, 612], 1, 0] + 
       If[Inequality[623, LessEqual, t, Less, 624], 1, 0] + 
       If[Inequality[635, LessEqual, t, Less, 636], 1, 0] + 
       If[Inequality[647, LessEqual, t, Less, 648], 1, 0] + 
       If[Inequality[659, LessEqual, t, Less, 660], 1, 0] + 
       If[Inequality[671, LessEqual, t, Less, 672], 1, 0] + 
       If[Inequality[683, LessEqual, t, Less, 684], 1, 0] + 
       If[Inequality[695, LessEqual, t, Less, 696], 1, 0] + 
       If[Inequality[707, LessEqual, t, Less, 708], 1, 0] + 
       If[Inequality[719, LessEqual, t, Less, 720], 1, 0] + 
       If[Inequality[731, LessEqual, t, Less, 732], 1, 0] + 
       If[Inequality[743, LessEqual, t, Less, 744], 1, 0] + 
       If[Inequality[755, LessEqual, t, Less, 756], 1, 0] + 
       If[Inequality[767, LessEqual, t, Less, 768], 1, 0] + 
       If[Inequality[779, LessEqual, t, Less, 780], 1, 0] + 
       If[Inequality[791, LessEqual, t, Less, 792], 1, 0] + 
       If[Inequality[803, LessEqual, t, Less, 804], 1, 0] + 
       If[Inequality[815, LessEqual, t, Less, 816], 1, 0] + 
       If[Inequality[827, LessEqual, t, Less, 828], 1, 0] + 
       If[Inequality[839, LessEqual, t, Less, 840], 1, 0] + 
       If[Inequality[851, LessEqual, t, Less, 852], 1, 0]) - 
     0.24526216334027195*Sin[(Pi*t)/71]
