-
Notifications
You must be signed in to change notification settings - Fork 0
/
fir_tester.nb
5275 lines (5121 loc) · 211 KB
/
fir_tester.nb
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896
897
898
899
900
901
902
903
904
905
906
907
908
909
910
911
912
913
914
915
916
917
918
919
920
921
922
923
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
948
949
950
951
952
953
954
955
956
957
958
959
960
961
962
963
964
965
966
967
968
969
970
971
972
973
974
975
976
977
978
979
980
981
982
983
984
985
986
987
988
989
990
991
992
993
994
995
996
997
998
999
1000
(* Content-type: application/vnd.wolfram.mathematica *)
(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)
(* CreatedBy='Mathematica 11.2' *)
(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[ 158, 7]
NotebookDataLength[ 215659, 5267]
NotebookOptionsPosition[ 203934, 5067]
NotebookOutlinePosition[ 204272, 5082]
CellTagsIndexPosition[ 204229, 5079]
WindowFrame->Normal*)
(* Beginning of Notebook Content *)
Notebook[{
Cell[CellGroupData[{
Cell["Basic:", "Subsection",
CellChangeTimes->{{3.733484305067504*^9,
3.733484307307472*^9}},ExpressionUUID->"b1a454a7-880f-49d4-96dc-\
75bd33d041a8"],
Cell[BoxData[
RowBox[{
RowBox[{"FNJ", "=", "FileNameJoin"}], ";"}]], "Input",
CellChangeTimes->{{3.731302535311866*^9,
3.7313025596926937`*^9}},ExpressionUUID->"bdfa4455-6456-433c-8fa9-\
14764b242a93"],
Cell[BoxData[
RowBox[{
RowBox[{"RelativeDir", "[", "dir_", "]"}], ":=",
RowBox[{"FileNameJoin", "[",
RowBox[{"{",
RowBox[{
RowBox[{"NotebookDirectory", "[", "]"}], ",", "dir"}], "}"}],
"]"}]}]], "Input",
CellChangeTimes->{{3.73129899668963*^9,
3.731299049373083*^9}},ExpressionUUID->"cd1e7fa3-2952-40d6-ba48-\
2a3833f1fda6"],
Cell[BoxData[
RowBox[{
RowBox[{"Replicate", "[",
RowBox[{"list_", ",", "n_"}], "]"}], ":=",
RowBox[{"Flatten", "[",
RowBox[{"Transpose", "[",
RowBox[{"ConstantArray", "[",
RowBox[{"list", ",", "n"}], "]"}], "]"}], "]"}]}]], "Input",
CellChangeTimes->{{3.731238134305779*^9, 3.731238181185244*^9}, {
3.7312382217935467`*^9, 3.731238226033588*^9}, {3.731238259807108*^9,
3.731238341105678*^9}, {3.731245230076696*^9,
3.7312452355555964`*^9}},ExpressionUUID->"23d6c1af-e783-463f-8871-\
3270d30b9d73"],
Cell[BoxData[
RowBox[{
RowBox[{"ToText", "[", "list_", "]"}], ":=",
RowBox[{"StringJoin", "[",
RowBox[{"Riffle", "[",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"ToString", "[", "#", "]"}], "&"}], "/@", "list"}], ",",
"\"\<\\n\>\""}], "]"}], "]"}]}]], "Input",
CellChangeTimes->{{3.731238315987795*^9,
3.7312383364023943`*^9}},ExpressionUUID->"35cbbeab-ec4e-483f-9ab3-\
c7a0bf158953"],
Cell[BoxData[
RowBox[{
RowBox[{"ShiftLeft", "[",
RowBox[{"list_", ",", "n_"}], "]"}], ":=",
RowBox[{"Drop", "[",
RowBox[{
RowBox[{"PadLeft", "[",
RowBox[{"list", ",",
RowBox[{
RowBox[{"Length", "[", "list", "]"}], "+", "n"}]}], "]"}], ",",
RowBox[{"-", "n"}]}], "]"}]}]], "Input",
CellChangeTimes->{{3.7334841851801043`*^9, 3.73348426359575*^9}, {
3.7334846592913313`*^9,
3.733484666027109*^9}},ExpressionUUID->"c443dc61-4a06-4b65-9d8c-\
31df6271c0b1"],
Cell[BoxData[
RowBox[{
RowBox[{"ShiftRight", "[",
RowBox[{"list_", ",", "n_"}], "]"}], ":=",
RowBox[{"Drop", "[",
RowBox[{
RowBox[{"PadRight", "[",
RowBox[{"list", ",",
RowBox[{
RowBox[{"Length", "[", "list", "]"}], "+", "n"}]}], "]"}], ",", "n"}],
"]"}]}]], "Input",
CellChangeTimes->{{3.733484273099884*^9, 3.7334842839318933`*^9}, {
3.7334846724004097`*^9,
3.73348467349923*^9}},ExpressionUUID->"60e5b26a-f870-44d1-a019-\
edec6b62c0c8"],
Cell[BoxData[
RowBox[{
RowBox[{"Half", "[", "list_", "]"}], ":=", " ",
RowBox[{"Take", "[",
RowBox[{"list", ",", " ",
RowBox[{"Floor", "[",
RowBox[{
RowBox[{"Length", "[", "list", "]"}], "/", "2"}], "]"}]}],
"]"}]}]], "Input",
CellChangeTimes->{{3.734946736020713*^9,
3.73494677899424*^9}},ExpressionUUID->"7a537a52-bdd1-421a-a542-\
c90955230fc8"]
}, Open ]],
Cell[CellGroupData[{
Cell["Before simulation:", "Subsection",
CellChangeTimes->{{3.731308139820512*^9, 3.731308149915599*^9}, {
3.7313081880108337`*^9,
3.731308190634131*^9}},ExpressionUUID->"2bd25fb9-285b-4aa7-9e8b-\
8dcb13b79efd"],
Cell[BoxData[
RowBox[{
RowBox[{"(*",
RowBox[{
RowBox[{"--",
RowBox[{"--",
RowBox[{"--",
RowBox[{"-",
RowBox[{
RowBox[{
RowBox[{"parameters", "--"}], "--"}], "--"}]}]}]}]}], "-"}], "*)"}],
"\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"td", " ", "=", " ", "3"}], ";", " ",
RowBox[{"blocks", " ", "=", " ", "4"}], ";", " ",
RowBox[{"l", " ", "=", " ", "100"}], ";",
RowBox[{"srcblocks", "=", "4"}], ";"}], "\[IndentingNewLine]",
RowBox[{"(*",
RowBox[{"--",
RowBox[{"--",
RowBox[{"--",
RowBox[{"--",
RowBox[{"--",
RowBox[{"--",
RowBox[{"--",
RowBox[{"--",
RowBox[{"--",
RowBox[{"--",
RowBox[{"--", "--"}]}]}]}]}]}]}]}]}]}]}], "*)"}],
"\[IndentingNewLine]",
RowBox[{"SeedRandom", "[", "15", "]"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"data", "=",
RowBox[{"RandomInteger", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"-", "16"}], ",", "16"}], "}"}], ",", "l"}], "]"}]}], ";"}],
"\[IndentingNewLine]",
RowBox[{
RowBox[{"ker", " ", "=", " ",
RowBox[{"RandomInteger", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"-", "16"}], ",", "16"}], "}"}], ",",
RowBox[{"td", "*", "blocks"}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"upKer", " ", "=", " ",
RowBox[{"RandomInteger", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"-", "16"}], ",", "16"}], "}"}], ",",
RowBox[{"td", "*", "srcblocks"}]}], "]"}]}], ";"}],
"\[IndentingNewLine]",
RowBox[{
RowBox[{"dwKer", " ", "=", " ",
RowBox[{"RandomInteger", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"-", "16"}], ",", "16"}], "}"}], ",",
RowBox[{"td", "*", "srcblocks"}]}], "]"}]}], ";"}]}]}]], "Input",
CellChangeTimes->{{3.7310657176156683`*^9, 3.731065773486732*^9}, {
3.731228560944915*^9, 3.731228581616651*^9}, {3.731228939808909*^9,
3.731228982576681*^9}, {3.73122902801659*^9, 3.731229043008498*^9}, {
3.731229156721384*^9, 3.731229156864895*^9}, {3.731229227741688*^9,
3.7312292640483437`*^9}, {3.731229562497164*^9, 3.7312296070246973`*^9}, {
3.731229766929212*^9, 3.731229772576707*^9}, {3.7312298669455757`*^9,
3.731229926384821*^9}, {3.731229996257698*^9, 3.731230046560811*^9}, {
3.731231252593471*^9, 3.731231255568799*^9}, {3.731238367252491*^9,
3.731238382849777*^9}, {3.731238436882636*^9, 3.7312384943595743`*^9}, {
3.7312430456191072`*^9, 3.731243054370439*^9}, 3.7312434534529133`*^9, {
3.731243951825979*^9, 3.731243980916615*^9}, {3.731244136801962*^9,
3.731244146042816*^9}, 3.73124472680444*^9, {3.73124514177265*^9,
3.731245142654707*^9}, {3.7313036881638403`*^9, 3.731303691554988*^9}, {
3.7313043784092493`*^9, 3.731304388599875*^9}, {3.7313045560829268`*^9,
3.7313045742588577`*^9}, 3.731308009794862*^9, {3.731308083058916*^9,
3.731308092526569*^9}, {3.731308369445589*^9, 3.7313083824671297`*^9}, {
3.731308424259198*^9, 3.731308425905761*^9}, {3.731308604092297*^9,
3.731308626586523*^9}, {3.731308776502527*^9, 3.731308790292207*^9}, {
3.734598916536723*^9, 3.734598940161687*^9}, {3.734599257342287*^9,
3.734599268036208*^9}, 3.734610634167658*^9, {3.734612684868734*^9,
3.734612688040161*^9}, {3.734612719297593*^9, 3.734612722191311*^9}, {
3.734612768653919*^9, 3.734612786328054*^9}, {3.73462074837467*^9,
3.734620749199552*^9}, {3.734621535749011*^9, 3.7346215361647243`*^9}, {
3.734622555819606*^9, 3.734622564513114*^9}, 3.735825369548635*^9,
3.735984192553203*^9, {3.742709531677627*^9, 3.742709552742846*^9}, {
3.742710137682527*^9,
3.7427101768502417`*^9}},ExpressionUUID->"6f8b8eba-c29c-4b30-86aa-\
bb656b09eac3"],
Cell[CellGroupData[{
Cell[BoxData["data"], "Input",
CellChangeTimes->{{3.742711552982801*^9,
3.7427115534054213`*^9}},ExpressionUUID->"8aca6ae8-a273-43bd-8571-\
b5b618a53d04"],
Cell[BoxData[
RowBox[{"{",
RowBox[{"7", ",", "3", ",", "13", ",", "14", ",",
RowBox[{"-", "10"}], ",",
RowBox[{"-", "12"}], ",", "9", ",", "15", ",",
RowBox[{"-", "14"}], ",",
RowBox[{"-", "3"}], ",", "11", ",",
RowBox[{"-", "10"}], ",", "13", ",", "11", ",", "6", ",",
RowBox[{"-", "8"}], ",", "2", ",",
RowBox[{"-", "4"}], ",", "14", ",",
RowBox[{"-", "1"}], ",",
RowBox[{"-", "8"}], ",", "2", ",", "12", ",", "9", ",", "6", ",",
RowBox[{"-", "9"}], ",", "2", ",",
RowBox[{"-", "4"}], ",",
RowBox[{"-", "8"}], ",",
RowBox[{"-", "1"}], ",",
RowBox[{"-", "11"}], ",",
RowBox[{"-", "9"}], ",", "13", ",", "7", ",", "14", ",", "2", ",", "3",
",",
RowBox[{"-", "16"}], ",",
RowBox[{"-", "7"}], ",", "0", ",", "1", ",",
RowBox[{"-", "4"}], ",",
RowBox[{"-", "1"}], ",",
RowBox[{"-", "15"}], ",",
RowBox[{"-", "5"}], ",", "1", ",",
RowBox[{"-", "1"}], ",",
RowBox[{"-", "16"}], ",", "2", ",",
RowBox[{"-", "4"}], ",",
RowBox[{"-", "12"}], ",", "6", ",", "4", ",", "6", ",",
RowBox[{"-", "8"}], ",",
RowBox[{"-", "5"}], ",", "12", ",", "14", ",", "8", ",",
RowBox[{"-", "6"}], ",", "7", ",",
RowBox[{"-", "10"}], ",",
RowBox[{"-", "13"}], ",", "2", ",",
RowBox[{"-", "4"}], ",",
RowBox[{"-", "13"}], ",", "11", ",", "5", ",",
RowBox[{"-", "13"}], ",", "7", ",", "6", ",", "2", ",",
RowBox[{"-", "15"}], ",", "11", ",", "6", ",",
RowBox[{"-", "16"}], ",", "6", ",", "12", ",", "8", ",", "16", ",", "14",
",", "10", ",", "14", ",", "15", ",", "13", ",", "4", ",",
RowBox[{"-", "16"}], ",", "7", ",", "15", ",",
RowBox[{"-", "14"}], ",",
RowBox[{"-", "13"}], ",",
RowBox[{"-", "4"}], ",",
RowBox[{"-", "7"}], ",", "5", ",",
RowBox[{"-", "15"}], ",", "4", ",",
RowBox[{"-", "15"}], ",", "6", ",",
RowBox[{"-", "2"}], ",", "5"}], "}"}]], "Output",
CellChangeTimes->{
3.7427115537270193`*^9},ExpressionUUID->"777ca0e4-1c46-41e8-8ddc-\
cf0e54941822"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"expected", "=",
RowBox[{"Downsample", "[",
RowBox[{
RowBox[{"ListConvolve", "[",
RowBox[{"dwKer", ",", "data", ",", "1", ",", "0"}], "]"}], ",", "3", ",",
"3"}], "]"}]}]], "Input",
CellChangeTimes->{{3.731065781087098*^9, 3.731065783935438*^9}, {
3.7310658981428623`*^9, 3.731065906334816*^9}, {3.731066273503989*^9,
3.731066281375011*^9}, {3.7312286016643333`*^9, 3.7312286017585297`*^9},
3.7312289650116987`*^9, {3.7312290007531157`*^9, 3.7312290165443373`*^9}, {
3.731244109383769*^9, 3.731244125509197*^9}, {3.731245144833558*^9,
3.7312451452373867`*^9}, {3.731301573137803*^9, 3.73130158217583*^9},
3.731308011362163*^9, 3.734601665685403*^9, {3.73460949000924*^9,
3.734609491092763*^9}, {3.742710195604308*^9, 3.742710198516933*^9},
3.742710279144908*^9, {3.742712414374955*^9, 3.7427124167923822`*^9}, {
3.742712484477254*^9, 3.742712486150331*^9}, {3.742712958560605*^9,
3.742713002301502*^9}, {3.7427139135668297`*^9,
3.74271391789701*^9}},ExpressionUUID->"293cde8e-cd7e-461e-bb4b-\
106f830f7073"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"-", "153"}], ",", "150", ",", "39", ",", "164", ",",
RowBox[{"-", "490"}], ",", "339", ",",
RowBox[{"-", "409"}], ",", "207", ",",
RowBox[{"-", "205"}], ",",
RowBox[{"-", "125"}], ",",
RowBox[{"-", "163"}], ",", "212", ",", "370", ",",
RowBox[{"-", "461"}], ",", "27", ",",
RowBox[{"-", "168"}], ",",
RowBox[{"-", "3"}], ",",
RowBox[{"-", "414"}], ",",
RowBox[{"-", "39"}], ",",
RowBox[{"-", "47"}], ",", "369", ",",
RowBox[{"-", "495"}], ",",
RowBox[{"-", "89"}], ",",
RowBox[{"-", "148"}], ",",
RowBox[{"-", "15"}], ",", "10", ",", "250", ",", "556", ",", "273", ",",
"91", ",",
RowBox[{"-", "70"}], ",",
RowBox[{"-", "794"}], ",", "420"}], "}"}]], "Output",
CellChangeTimes->{
3.742710279353956*^9, 3.7427111016829*^9, 3.742712417267511*^9,
3.742712486392305*^9, 3.742712912624241*^9, {3.742712965445981*^9,
3.7427130030582647`*^9}},ExpressionUUID->"d0ad4422-fe03-4c00-bee4-\
821240143c5a"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Max", "[",
RowBox[{"Abs", "[", "expected", "]"}], "]"}]], "Input",
CellChangeTimes->{{3.7313047504288692`*^9, 3.7313047770497437`*^9}, {
3.73130821474699*^9,
3.7313082190186768`*^9}},ExpressionUUID->"f0d0f0f4-a086-4d39-87f2-\
66870386e484"],
Cell[BoxData["794"], "Output",
CellChangeTimes->{{3.731304777415085*^9, 3.731304801507708*^9},
3.731308195839376*^9, {3.731308260584999*^9, 3.7313082877991753`*^9}, {
3.731308325654306*^9, 3.731308347272002*^9}, {3.7313083873986053`*^9,
3.731308390713417*^9}, {3.731308432749278*^9, 3.731308450100621*^9},
3.73130852315189*^9, {3.731308608444463*^9, 3.7313086321908216`*^9},
3.731308796264811*^9, 3.731309220280407*^9, 3.733050705077386*^9,
3.733143696845283*^9, 3.7332083849516277`*^9, 3.7333004306089783`*^9,
3.73337762039769*^9, {3.733483735299981*^9, 3.7334837474470882`*^9},
3.733484678258382*^9, 3.733810923654354*^9, 3.734084528991534*^9,
3.734598640064693*^9, 3.7345990015021048`*^9, 3.7345992769665194`*^9,
3.734610642638772*^9, 3.734610866618833*^9, 3.734612692332242*^9,
3.7346127257961597`*^9, 3.734612790249633*^9, 3.7346207520400953`*^9,
3.734621575234942*^9, 3.7346225692342567`*^9, 3.734864375400998*^9,
3.73486627949454*^9, 3.73487551759262*^9, 3.734934251588657*^9,
3.734935224045718*^9, {3.735192574538076*^9, 3.735192601393174*^9},
3.735825394387699*^9, 3.735984164110249*^9, 3.7427094724668617`*^9,
3.7427095640734863`*^9,
3.742710202043748*^9},ExpressionUUID->"6765e5f5-de66-4560-8f64-\
7b6637452fe0"]
}, Open ]],
Cell[BoxData[{
RowBox[{
RowBox[{"Export", "[",
RowBox[{
RowBox[{"RelativeDir", "[", "\"\<data.dat\>\"", "]"}], ",",
RowBox[{"ToText", "[", "data", "]"}]}], "]"}], ";",
RowBox[{"Export", "[",
RowBox[{
RowBox[{"RelativeDir", "[", "\"\<coefs.dat\>\"", "]"}], ",",
RowBox[{"ToText", "[", "ker", "]"}]}], "]"}], ";",
RowBox[{"Export", "[",
RowBox[{
RowBox[{"RelativeDir", "[", "\"\<upsamp_coefs.dat\>\"", "]"}], ",",
RowBox[{"ToText", "[", "upKer", "]"}]}], "]"}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"Export", "[",
RowBox[{
RowBox[{"RelativeDir", "[", "\"\<dwsamp_coefs.dat\>\"", "]"}], ",",
RowBox[{"ToText", "[", "dwKer", "]"}]}], "]"}], ";"}]}], "Input",
CellChangeTimes->{{3.7312450754695997`*^9, 3.731245084538713*^9}, {
3.731245124630807*^9, 3.731245160824111*^9}, 3.731245215061183*^9, {
3.731299072364416*^9, 3.7312990896918373`*^9}, {3.731308031825678*^9,
3.7313080373600607`*^9}, {3.734598987949326*^9, 3.7345989961699867`*^9}, {
3.734621543720783*^9, 3.734621544144433*^9}, 3.735825388256763*^9,
3.742709535888891*^9, {3.7427102329796467`*^9, 3.742710257622106*^9}, {
3.742712845015368*^9,
3.742712845518917*^9}},ExpressionUUID->"da4ef8eb-9aed-490a-981a-\
5fff3cb14ef8"],
Cell[BoxData[
RowBox[{
RowBox[{"result", "=",
RowBox[{"Flatten", "[",
RowBox[{"Import", "[",
RowBox[{"RelativeDir", "[",
RowBox[{"FNJ", "[",
RowBox[{"{",
RowBox[{
"\"\<edit_firIP_v1_0.sim\>\"", ",", "\"\<sim_1\>\"", ",",
"\"\<behav\>\"", ",", "\"\<xsim\>\"", ",", "\"\<out.dat\>\""}],
"}"}], "]"}], "]"}], "]"}], "]"}]}], ";"}]], "Input",
CellChangeTimes->{3.7427109798509912`*^9,
3.742711029248549*^9},ExpressionUUID->"79ed8209-92ed-401a-b732-\
c9f05cbddc58"],
Cell["Operations:", "Text",
CellChangeTimes->{{3.742711036017066*^9,
3.742711047187973*^9}},ExpressionUUID->"c4f1efed-143e-4167-89da-\
d69ba115af46"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Downsample", "[",
RowBox[{"result", ",", "3"}], "]"}]], "Input",
CellChangeTimes->{{3.742711051784349*^9,
3.742711061087099*^9}},ExpressionUUID->"7ec9ec45-b65e-41f4-afee-\
4e0d13e8383a"],
Cell[BoxData[
RowBox[{"{",
RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0", ",",
RowBox[{"-", "23"}], ",",
RowBox[{"-", "269"}], ",", "266", ",", "354", ",",
RowBox[{"-", "320"}], ",", "11", ",",
RowBox[{"-", "423"}], ",", "457", ",",
RowBox[{"-", "452"}], ",",
RowBox[{"-", "158"}], ",", "24", ",",
RowBox[{"-", "48"}], ",", "345", ",",
RowBox[{"-", "276"}], ",", "54", ",",
RowBox[{"-", "265"}], ",", "180", ",",
RowBox[{"-", "218"}], ",",
RowBox[{"-", "215"}], ",",
RowBox[{"-", "421"}], ",", "461", ",",
RowBox[{"-", "308"}], ",",
RowBox[{"-", "11"}], ",", "16", ",",
RowBox[{"-", "170"}], ",",
RowBox[{"-", "72"}], ",", "138", ",", "496", ",",
RowBox[{"-", "74"}], ",", "504", ",", "158", ",",
RowBox[{"-", "725"}], ",", "171", ",",
RowBox[{"-", "82"}], ",", "143", ",",
RowBox[{"-", "115"}], ",", "16", ",", "0", ",", "0", ",", "0", ",", "0",
",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",",
"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0",
",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",",
"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0",
",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",",
"0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]], "Output",
CellChangeTimes->{3.742711061362492*^9, 3.742711332673359*^9,
3.742712199628314*^9, 3.7427123302359447`*^9, 3.742712493196768*^9,
3.742712898635632*^9,
3.7427138998647337`*^9},ExpressionUUID->"1e600d5e-97ae-403a-91e2-\
0c8d7d3cfae1"]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell["After simulation:", "Subsection",
CellChangeTimes->{{3.7313081679327097`*^9,
3.731308177611492*^9}},ExpressionUUID->"0d6689a6-86fc-4824-bea3-\
b7a5e4840c5b"],
Cell[CellGroupData[{
Cell[BoxData["ker"], "Input",
CellChangeTimes->{{3.734609532932863*^9,
3.734609533086123*^9}},ExpressionUUID->"a3adc919-1049-45c3-813d-\
5b5ec2c4eea4"],
Cell[BoxData[
RowBox[{"{",
RowBox[{"9", ",", "3", ",",
RowBox[{"-", "4"}], ",",
RowBox[{"-", "15"}], ",",
RowBox[{"-", "10"}], ",",
RowBox[{"-", "4"}], ",",
RowBox[{"-", "10"}], ",",
RowBox[{"-", "15"}], ",", "12", ",", "9", ",", "0", ",", "3"}],
"}"}]], "Output",
CellChangeTimes->{
3.734609533496694*^9, 3.734610642686058*^9, 3.734620752140338*^9,
3.73462157528388*^9, 3.734622284571815*^9, 3.734622574382536*^9,
3.734864375523972*^9, 3.734866279573209*^9, 3.734875517800617*^9,
3.734934251716763*^9, 3.734935224121429*^9, {3.735192574664235*^9,
3.735192601431221*^9}, 3.735825394419382*^9, 3.735984164161682*^9,
3.742709472501754*^9,
3.742709585408689*^9},ExpressionUUID->"f7aed42b-1a05-4d70-8f34-\
b2335510808d"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData["expected"], "Input",
CellChangeTimes->{{3.7346025471049356`*^9,
3.734602548871861*^9}},ExpressionUUID->"9836e36f-7af0-4fbb-ae56-\
d975fef9f29b"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
"21", ",", "9", ",", "102", ",", "153", ",", "18", ",", "131", ",",
RowBox[{"-", "148"}], ",",
RowBox[{"-", "605"}], ",",
RowBox[{"-", "282"}], ",", "255", ",",
RowBox[{"-", "214"}], ",",
RowBox[{"-", "582"}], ",", "406", ",", "489", ",",
RowBox[{"-", "205"}], ",", "36", ",", "152", ",",
RowBox[{"-", "150"}], ",",
RowBox[{"-", "248"}], ",",
RowBox[{"-", "158"}], ",",
RowBox[{"-", "179"}], ",", "29", ",",
RowBox[{"-", "331"}], ",", "66", ",", "383", ",", "194", ",",
RowBox[{"-", "250"}], ",",
RowBox[{"-", "239"}], ",",
RowBox[{"-", "232"}], ",", "29", ",",
RowBox[{"-", "428"}], ",",
RowBox[{"-", "365"}], ",", "98", ",", "145", ",", "403", ",", "633", ",",
"229", ",", "102", ",",
RowBox[{"-", "103"}], ",",
RowBox[{"-", "332"}], ",",
RowBox[{"-", "644"}], ",",
RowBox[{"-", "317"}], ",",
RowBox[{"-", "41"}], ",", "87", ",", "153", ",", "336", ",", "19", ",",
"149", ",", "98", ",",
RowBox[{"-", "70"}], ",",
RowBox[{"-", "1"}], ",", "528", ",", "76", ",",
RowBox[{"-", "7"}], ",", "317", ",", "315", ",", "44", ",",
RowBox[{"-", "138"}], ",", "114", ",", "307", ",",
RowBox[{"-", "53"}], ",",
RowBox[{"-", "414"}], ",",
RowBox[{"-", "144"}], ",",
RowBox[{"-", "5"}], ",",
RowBox[{"-", "596"}], ",",
RowBox[{"-", "498"}], ",", "163", ",", "128", ",", "165", ",", "731", ",",
"124", ",",
RowBox[{"-", "125"}], ",", "247", ",", "118", ",",
RowBox[{"-", "358"}], ",",
RowBox[{"-", "311"}], ",", "406", ",",
RowBox[{"-", "58"}], ",",
RowBox[{"-", "386"}], ",", "364", ",", "492", ",",
RowBox[{"-", "11"}], ",", "95", ",",
RowBox[{"-", "11"}], ",",
RowBox[{"-", "146"}], ",",
RowBox[{"-", "317"}], ",",
RowBox[{"-", "571"}], ",",
RowBox[{"-", "514"}], ",",
RowBox[{"-", "694"}], ",",
RowBox[{"-", "647"}], ",", "114", ",",
RowBox[{"-", "174"}], ",",
RowBox[{"-", "700"}], ",", "74", ",", "447", ",", "157", ",",
RowBox[{"-", "48"}], ",", "42", ",", "509", ",", "234"}], "}"}]], "Output",\
CellChangeTimes->{
3.734602549337098*^9, 3.734609495324409*^9, {3.734609704157542*^9,
3.734609719550523*^9}, 3.734610642710394*^9, 3.7346107975255957`*^9,
3.7346207521653023`*^9, 3.734621575323433*^9, 3.7346222846270733`*^9,
3.734622574439786*^9, 3.7348643755465717`*^9, 3.734866279600239*^9,
3.7348755178771677`*^9, 3.7349342517342577`*^9, 3.734935224167983*^9, {
3.735192574688552*^9, 3.73519260145367*^9}, 3.7358253944411383`*^9,
3.735984164196144*^9, 3.742709472530518*^9,
3.74270958545226*^9},ExpressionUUID->"da5c8264-8931-44e2-a676-\
24f656c308b1"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData["upKer"], "Input",
CellChangeTimes->{{3.734610815178989*^9, 3.734610818726742*^9}, {
3.73462155143862*^9,
3.7346215518311234`*^9}},ExpressionUUID->"0ca8b5a1-c530-4385-b7b9-\
b518e238e74e"],
Cell[BoxData[
RowBox[{"{",
RowBox[{"2", ",",
RowBox[{"-", "4"}], ",", "12", ",", "2", ",", "0", ",",
RowBox[{"-", "1"}], ",", "0", ",", "7", ",", "2", ",", "16", ",",
RowBox[{"-", "3"}], ",",
RowBox[{"-", "5"}], ",",
RowBox[{"-", "10"}], ",", "11", ",",
RowBox[{"-", "8"}], ",", "13", ",", "9", ",", "8"}], "}"}]], "Output",
CellChangeTimes->{{3.734610815680938*^9, 3.734610819110619*^9},
3.7346108700451193`*^9, 3.73462075219144*^9, 3.734621476942133*^9,
3.734621575362022*^9, 3.734622284633861*^9, 3.734622574446115*^9,
3.7348643755690317`*^9, 3.7348662796313667`*^9, 3.734875517942045*^9,
3.734934251751219*^9, 3.734935224213531*^9, {3.73519257471342*^9,
3.7351926014738293`*^9}, 3.7358253944655323`*^9, 3.7359841642312317`*^9,
3.742709472561895*^9,
3.7427095854585953`*^9},ExpressionUUID->"36ef2ae5-da25-4c6c-9a00-\
0aaa35709dd6"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Max", "[", "lol", "]"}]], "Input",
CellChangeTimes->{{3.7346127408575363`*^9,
3.734612743433549*^9}},ExpressionUUID->"05d39d18-8bcd-47c1-9678-\
9df901653e2a"],
Cell[BoxData["18964"], "Output",
CellChangeTimes->{
3.734612743703422*^9, 3.734612798772606*^9, 3.7346207522192574`*^9,
3.734621575398992*^9, 3.734622284676277*^9, 3.7346225744783087`*^9,
3.7348643755907516`*^9, 3.734866279660534*^9, 3.7348755179557867`*^9,
3.7349342517675257`*^9, 3.734935224271166*^9, {3.735192574737237*^9,
3.735192601495432*^9}, 3.7358253944910088`*^9, 3.735984164265663*^9,
3.742709472596446*^9,
3.742709585494961*^9},ExpressionUUID->"2d2c1c50-440e-4dd0-b646-\
a22e9ad3cfa4"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"upIn", "=",
RowBox[{"Flatten", "@",
RowBox[{"Riffle", "[",
RowBox[{"expected", ",",
RowBox[{"{",
RowBox[{"ConstantArray", "[",
RowBox[{"0", ",", "2"}], "]"}], "}"}]}], "]"}]}]}]], "Input",
CellChangeTimes->{{3.73462139982764*^9,
3.734621458069571*^9}},ExpressionUUID->"1299ce2a-2d86-4089-9144-\
b0dab580e6c1"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
"21", ",", "0", ",", "0", ",", "9", ",", "0", ",", "0", ",", "102", ",",
"0", ",", "0", ",", "153", ",", "0", ",", "0", ",", "18", ",", "0", ",",
"0", ",", "131", ",", "0", ",", "0", ",",
RowBox[{"-", "148"}], ",", "0", ",", "0", ",",
RowBox[{"-", "605"}], ",", "0", ",", "0", ",",
RowBox[{"-", "282"}], ",", "0", ",", "0", ",", "255", ",", "0", ",", "0",
",",
RowBox[{"-", "214"}], ",", "0", ",", "0", ",",
RowBox[{"-", "582"}], ",", "0", ",", "0", ",", "406", ",", "0", ",", "0",
",", "489", ",", "0", ",", "0", ",",
RowBox[{"-", "205"}], ",", "0", ",", "0", ",", "36", ",", "0", ",", "0",
",", "152", ",", "0", ",", "0", ",",
RowBox[{"-", "150"}], ",", "0", ",", "0", ",",
RowBox[{"-", "248"}], ",", "0", ",", "0", ",",
RowBox[{"-", "158"}], ",", "0", ",", "0", ",",
RowBox[{"-", "179"}], ",", "0", ",", "0", ",", "29", ",", "0", ",", "0",
",",
RowBox[{"-", "331"}], ",", "0", ",", "0", ",", "66", ",", "0", ",", "0",
",", "383", ",", "0", ",", "0", ",", "194", ",", "0", ",", "0", ",",
RowBox[{"-", "250"}], ",", "0", ",", "0", ",",
RowBox[{"-", "239"}], ",", "0", ",", "0", ",",
RowBox[{"-", "232"}], ",", "0", ",", "0", ",", "29", ",", "0", ",", "0",
",",
RowBox[{"-", "428"}], ",", "0", ",", "0", ",",
RowBox[{"-", "365"}], ",", "0", ",", "0", ",", "98", ",", "0", ",", "0",
",", "145", ",", "0", ",", "0", ",", "403", ",", "0", ",", "0", ",", "633",
",", "0", ",", "0", ",", "229", ",", "0", ",", "0", ",", "102", ",", "0",
",", "0", ",",
RowBox[{"-", "103"}], ",", "0", ",", "0", ",",
RowBox[{"-", "332"}], ",", "0", ",", "0", ",",
RowBox[{"-", "644"}], ",", "0", ",", "0", ",",
RowBox[{"-", "317"}], ",", "0", ",", "0", ",",
RowBox[{"-", "41"}], ",", "0", ",", "0", ",", "87", ",", "0", ",", "0",
",", "153", ",", "0", ",", "0", ",", "336", ",", "0", ",", "0", ",", "19",
",", "0", ",", "0", ",", "149", ",", "0", ",", "0", ",", "98", ",", "0",
",", "0", ",",
RowBox[{"-", "70"}], ",", "0", ",", "0", ",",
RowBox[{"-", "1"}], ",", "0", ",", "0", ",", "528", ",", "0", ",", "0",
",", "76", ",", "0", ",", "0", ",",
RowBox[{"-", "7"}], ",", "0", ",", "0", ",", "317", ",", "0", ",", "0",
",", "315", ",", "0", ",", "0", ",", "44", ",", "0", ",", "0", ",",
RowBox[{"-", "138"}], ",", "0", ",", "0", ",", "114", ",", "0", ",", "0",
",", "307", ",", "0", ",", "0", ",",
RowBox[{"-", "53"}], ",", "0", ",", "0", ",",
RowBox[{"-", "414"}], ",", "0", ",", "0", ",",
RowBox[{"-", "144"}], ",", "0", ",", "0", ",",
RowBox[{"-", "5"}], ",", "0", ",", "0", ",",
RowBox[{"-", "596"}], ",", "0", ",", "0", ",",
RowBox[{"-", "498"}], ",", "0", ",", "0", ",", "163", ",", "0", ",", "0",
",", "128", ",", "0", ",", "0", ",", "165", ",", "0", ",", "0", ",", "731",
",", "0", ",", "0", ",", "124", ",", "0", ",", "0", ",",
RowBox[{"-", "125"}], ",", "0", ",", "0", ",", "247", ",", "0", ",", "0",
",", "118", ",", "0", ",", "0", ",",
RowBox[{"-", "358"}], ",", "0", ",", "0", ",",
RowBox[{"-", "311"}], ",", "0", ",", "0", ",", "406", ",", "0", ",", "0",
",",
RowBox[{"-", "58"}], ",", "0", ",", "0", ",",
RowBox[{"-", "386"}], ",", "0", ",", "0", ",", "364", ",", "0", ",", "0",
",", "492", ",", "0", ",", "0", ",",
RowBox[{"-", "11"}], ",", "0", ",", "0", ",", "95", ",", "0", ",", "0",
",",
RowBox[{"-", "11"}], ",", "0", ",", "0", ",",
RowBox[{"-", "146"}], ",", "0", ",", "0", ",",
RowBox[{"-", "317"}], ",", "0", ",", "0", ",",
RowBox[{"-", "571"}], ",", "0", ",", "0", ",",
RowBox[{"-", "514"}], ",", "0", ",", "0", ",",
RowBox[{"-", "694"}], ",", "0", ",", "0", ",",
RowBox[{"-", "647"}], ",", "0", ",", "0", ",", "114", ",", "0", ",", "0",
",",
RowBox[{"-", "174"}], ",", "0", ",", "0", ",",
RowBox[{"-", "700"}], ",", "0", ",", "0", ",", "74", ",", "0", ",", "0",
",", "447", ",", "0", ",", "0", ",", "157", ",", "0", ",", "0", ",",
RowBox[{"-", "48"}], ",", "0", ",", "0", ",", "42", ",", "0", ",", "0",
",", "509", ",", "0", ",", "0", ",", "234"}], "}"}]], "Output",
CellChangeTimes->{
3.734621371929627*^9, {3.734621408306014*^9, 3.734621458382539*^9},
3.734621575436002*^9, 3.7346222847174253`*^9, 3.734622574512361*^9,
3.7348643756144123`*^9, 3.7348662796912203`*^9, 3.7348755180273438`*^9,
3.734934251785495*^9, 3.7349352243210917`*^9, {3.735192574763908*^9,
3.735192601519964*^9}, 3.735825394517614*^9, 3.7359841643009787`*^9,
3.742709472660975*^9,
3.7427095855032043`*^9},ExpressionUUID->"32a58af9-cd8b-42b3-be28-\
015649cdd437"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"lol", "=",
RowBox[{"ListConvolve", "[",
RowBox[{
RowBox[{"Reverse", "[", "upKer", "]"}], ",", "upIn", ",", "1", ",", "0"}],
"]"}]}]], "Input",
CellChangeTimes->{{3.734601442940297*^9, 3.7346014653918*^9}, {
3.7346015166810007`*^9, 3.734601560950583*^9}, {3.734601787294332*^9,
3.734601788283696*^9}, {3.734609670506412*^9, 3.734609676379497*^9}, {
3.734610750775275*^9, 3.734610751816684*^9}, {3.734621463420554*^9,
3.734621465361724*^9}, {3.734621566352222*^9,
3.734621566807865*^9}},ExpressionUUID->"30f72a16-1f37-4338-b6df-\
9bdb945f01c9"],
Cell[BoxData[
RowBox[{"{",
RowBox[{"168", ",", "189", ",", "273", ",",
RowBox[{"-", "96"}], ",", "312", ",",
RowBox[{"-", "93"}], ",", "639", ",", "954", ",", "1572", ",", "405", ",",
"2619", ",", "1113", ",",
RowBox[{"-", "1593"}], ",", "1602", ",", "378", ",", "586", ",", "1548",
",", "4031", ",",
RowBox[{"-", "2010"}], ",", "1090", ",",
RowBox[{"-", "2724"}], ",",
RowBox[{"-", "3204"}], ",",
RowBox[{"-", "7748"}], ",",
RowBox[{"-", "3779"}], ",", "5404", ",",
RowBox[{"-", "8444"}], ",", "358", ",", "7110", ",",
RowBox[{"-", "100"}], ",",
RowBox[{"-", "3247"}], ",",
RowBox[{"-", "1832"}], ",",
RowBox[{"-", "3034"}], ",",
RowBox[{"-", "9878"}], ",",
RowBox[{"-", "5954"}], ",",
RowBox[{"-", "9739"}], ",",
RowBox[{"-", "2852"}], ",", "2506", ",", "2099", ",", "5900", ",",
RowBox[{"-", "493"}], ",", "10243", ",",
RowBox[{"-", "7069"}], ",",
RowBox[{"-", "5472"}], ",",
RowBox[{"-", "2778"}], ",",
RowBox[{"-", "977"}], ",",
RowBox[{"-", "1691"}], ",", "300", ",", "8750", ",",
RowBox[{"-", "4459"}], ",", "8130", ",",
RowBox[{"-", "2016"}], ",", "1377", ",",
RowBox[{"-", "2845"}], ",",
RowBox[{"-", "1104"}], ",", "4601", ",",
RowBox[{"-", "6042"}], ",", "1276", ",",
RowBox[{"-", "722"}], ",",
RowBox[{"-", "1816"}], ",",
RowBox[{"-", "2312"}], ",", "1052", ",",
RowBox[{"-", "3799"}], ",",
RowBox[{"-", "4339"}], ",", "3932", ",",
RowBox[{"-", "3578"}], ",",
RowBox[{"-", "357"}], ",",
RowBox[{"-", "3853"}], ",",
RowBox[{"-", "2629"}], ",",
RowBox[{"-", "8253"}], ",",
RowBox[{"-", "145"}], ",",
RowBox[{"-", "3395"}], ",", "3820", ",", "2532", ",", "6001", ",",
RowBox[{"-", "1651"}], ",",
RowBox[{"-", "4681"}], ",", "4160", ",",
RowBox[{"-", "552"}], ",",
RowBox[{"-", "4656"}], ",",
RowBox[{"-", "919"}], ",", "334", ",",
RowBox[{"-", "4154"}], ",",
RowBox[{"-", "1478"}], ",", "1967", ",", "2103", ",",
RowBox[{"-", "2873"}], ",",
RowBox[{"-", "3728"}], ",", "7185", ",",
RowBox[{"-", "4856"}], ",", "27", ",",
RowBox[{"-", "396"}], ",",
RowBox[{"-", "5286"}], ",",
RowBox[{"-", "9678"}], ",",
RowBox[{"-", "2866"}], ",",
RowBox[{"-", "8704"}], ",",
RowBox[{"-", "979"}], ",", "3266", ",",
RowBox[{"-", "690"}], ",",
RowBox[{"-", "2866"}], ",",
RowBox[{"-", "1468"}], ",", "1410", ",",
RowBox[{"-", "5341"}], ",", "1620", ",", "2257", ",", "4559", ",",
RowBox[{"-", "3460"}], ",", "12093", ",", "4933", ",",
RowBox[{"-", "9435"}], ",", "10290", ",", "2561", ",",
RowBox[{"-", "2344"}], ",", "3967", ",", "9650", ",",
RowBox[{"-", "182"}], ",", "3359", ",", "2401", ",", "2319", ",",
RowBox[{"-", "4436"}], ",", "418", ",", "5590", ",",
RowBox[{"-", "10957"}], ",",
RowBox[{"-", "4976"}], ",", "6716", ",",
RowBox[{"-", "10578"}], ",",
RowBox[{"-", "2331"}], ",", "6091", ",",
RowBox[{"-", "4656"}], ",",
RowBox[{"-", "7669"}], ",", "417", ",",
RowBox[{"-", "2813"}], ",",
RowBox[{"-", "4401"}], ",",
RowBox[{"-", "3241"}], ",", "1566", ",",
RowBox[{"-", "1489"}], ",",
RowBox[{"-", "6464"}], ",", "6735", ",", "2308", ",",
RowBox[{"-", "6890"}], ",", "5285", ",",
RowBox[{"-", "1381"}], ",",
RowBox[{"-", "913"}], ",", "1777", ",", "7215", ",", "1060", ",", "4468",
",", "568", ",",
RowBox[{"-", "551"}], ",",
RowBox[{"-", "478"}], ",", "1472", ",", "4373", ",",
RowBox[{"-", "1374"}], ",", "2965", ",", "4857", ",", "5561", ",", "6090",
",",
RowBox[{"-", "2061"}], ",", "5409", ",",
RowBox[{"-", "3814"}], ",",
RowBox[{"-", "2060"}], ",",
RowBox[{"-", "1210"}], ",", "7653", ",", "2429", ",", "6524", ",", "5265",
",",
RowBox[{"-", "369"}], ",", "6879", ",", "1867", ",", "2493", ",", "749",
",", "3702", ",",
RowBox[{"-", "1478"}], ",", "212", ",", "2944", ",", "2025", ",", "1609",
",", "4186", ",", "5811", ",", "3471", ",", "1907", ",", "10", ",", "332",
",",
RowBox[{"-", "1217"}], ",",
RowBox[{"-", "3529"}], ",",
RowBox[{"-", "4608"}], ",",
RowBox[{"-", "128"}], ",", "1269", ",",
RowBox[{"-", "2990"}], ",", "1372", ",", "4137", ",",
RowBox[{"-", "1214"}], ",",
RowBox[{"-", "4407"}], ",",
RowBox[{"-", "1099"}], ",",
RowBox[{"-", "9113"}], ",",
RowBox[{"-", "9494"}], ",", "299", ",",
RowBox[{"-", "11819"}], ",",
RowBox[{"-", "1528"}], ",", "3434", ",",
RowBox[{"-", "602"}], ",",
RowBox[{"-", "3553"}], ",",
RowBox[{"-", "705"}], ",", "843", ",",
RowBox[{"-", "8232"}], ",",
RowBox[{"-", "979"}], ",",
RowBox[{"-", "1062"}], ",", "2271", ",",
RowBox[{"-", "2440"}], ",", "11535", ",", "7713", ",",
RowBox[{"-", "11564"}], ",", "11550", ",",
RowBox[{"-", "3728"}], ",",
RowBox[{"-", "3489"}], ",",
RowBox[{"-", "1451"}], ",", "9413", ",", "5189", ",", "5081", ",", "7031",
",", "1090", ",", "4362", ",",
RowBox[{"-", "1144"}], ",", "3355", ",",
RowBox[{"-", "6464"}], ",",
RowBox[{"-", "172"}], ",", "1893", ",",
RowBox[{"-", "5858"}], ",", "1423", ",", "6015", ",", "2633", ",", "2904",
",",
RowBox[{"-", "27"}], ",", "1383", ",",
RowBox[{"-", "9060"}], ",",
RowBox[{"-", "3502"}], ",",
RowBox[{"-", "7979"}], ",", "1578", ",", "3117", ",", "3478", ",", "6326",
",",
RowBox[{"-", "1300"}], ",", "10428", ",",
RowBox[{"-", "3230"}], ",",
RowBox[{"-", "1686"}], ",",
RowBox[{"-", "105"}], ",", "1457", ",",
RowBox[{"-", "1194"}], ",", "2038", ",", "8329", ",",
RowBox[{"-", "4805"}], ",", "5967", ",",
RowBox[{"-", "1313"}], ",", "2299", ",",
RowBox[{"-", "3253"}], ",", "1444", ",", "4792", ",",
RowBox[{"-", "5729"}], ",",
RowBox[{"-", "1875"}], ",",
RowBox[{"-", "1551"}], ",",
RowBox[{"-", "8221"}], ",",
RowBox[{"-", "6421"}], ",", "2900", ",",
RowBox[{"-", "11358"}], ",",
RowBox[{"-", "5876"}], ",", "795", ",",
RowBox[{"-", "12362"}], ",",
RowBox[{"-", "13332"}], ",", "369", ",",
RowBox[{"-", "15328"}], ",",
RowBox[{"-", "10621"}], ",", "5297", ",",
RowBox[{"-", "6339"}], ",",
RowBox[{"-", "4928"}], ",",
RowBox[{"-", "6795"}], ",",
RowBox[{"-", "945"}], ",",
RowBox[{"-", "15924"}], ",",
RowBox[{"-", "11546"}], ",",
RowBox[{"-", "11029"}], ",",
RowBox[{"-", "7952"}], ",",
RowBox[{"-", "391"}], ",",
RowBox[{"-", "2938"}], ",", "2496", ",",
RowBox[{"-", "1742"}], ",", "8307", ",",
RowBox[{"-", "7195"}], ",",
RowBox[{"-", "2548"}], ",", "752", ",",
RowBox[{"-", "1365"}], ",",
RowBox[{"-", "5115"}], ",", "1168", ",", "3210", ",",
RowBox[{"-", "7645"}], ",", "5308", ",", "2286", ",", "4731", ",", "5990",
",", "6471", ",", "2701"}], "}"}]], "Output",
CellChangeTimes->{{3.734601443908225*^9, 3.734601465787485*^9}, {
3.734601525114297*^9, 3.7346015614507637`*^9}, 3.734601668967917*^9,
3.734601789213347*^9, 3.734602635330429*^9, 3.734609676759097*^9,
3.734610642735764*^9, {3.734610752547308*^9, 3.7346107820041313`*^9},
3.734610875894299*^9, {3.734612705016521*^9, 3.734612730265012*^9},
3.734612796854116*^9, 3.734620752244586*^9, 3.734621465780797*^9,
3.7346215754721603`*^9, 3.73462228475268*^9, 3.7346225745506277`*^9,
3.734864375659576*^9, 3.734866279723157*^9, 3.734875518099235*^9,
3.73493425180523*^9, 3.734935224373612*^9, {3.73519257479403*^9,
3.735192601546386*^9}, 3.7358253945542793`*^9, 3.7359841643420486`*^9,
3.742709472740714*^9,
3.742709585542119*^9},ExpressionUUID->"97686b13-7080-4017-8b06-\
d7eae7de4cca"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"2", "^", "13"}]], "Input",
CellChangeTimes->{{3.734612642365149*^9,
3.734612643553788*^9}},ExpressionUUID->"005b2573-6d0a-47dc-ada7-\
4cf7a5c91202"],
Cell[BoxData["8192"], "Output",
CellChangeTimes->{
3.734612643998979*^9, 3.734620752266425*^9, 3.734621575507144*^9,
3.734622284760291*^9, 3.734622574594186*^9, 3.734864375686651*^9,
3.7348662797316647`*^9, 3.734875518181533*^9, 3.734934251824332*^9,
3.7349352244348516`*^9, {3.7351925748199387`*^9, 3.735192601568116*^9},
3.735825394594792*^9, 3.7359841643791313`*^9, 3.742709472803691*^9,
3.7427095855832777`*^9},ExpressionUUID->"81f76c9d-4fc0-4660-b9cc-\
66d5dca41948"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Floor", "[",
RowBox[{"lol", "/",
RowBox[{"2", "^", "8"}]}], "]"}]], "Input",
CellChangeTimes->{{3.7346230540685062`*^9,
3.7346230767808943`*^9}},ExpressionUUID->"b5dc134c-ba23-415d-abe3-\
8d24223fde5d"],
Cell[BoxData[
RowBox[{"{",
RowBox[{"0", ",", "0", ",", "1", ",",
RowBox[{"-", "1"}], ",", "1", ",",
RowBox[{"-", "1"}], ",", "2", ",", "3", ",", "6", ",", "1", ",", "10", ",",
"4", ",",
RowBox[{"-", "7"}], ",", "6", ",", "1", ",", "2", ",", "6", ",", "15", ",",
RowBox[{"-", "8"}], ",", "4", ",",
RowBox[{"-", "11"}], ",",
RowBox[{"-", "13"}], ",",
RowBox[{"-", "31"}], ",",
RowBox[{"-", "15"}], ",", "21", ",",
RowBox[{"-", "33"}], ",", "1", ",", "27", ",",
RowBox[{"-", "1"}], ",",
RowBox[{"-", "13"}], ",",
RowBox[{"-", "8"}], ",",
RowBox[{"-", "12"}], ",",
RowBox[{"-", "39"}], ",",
RowBox[{"-", "24"}], ",",
RowBox[{"-", "39"}], ",",
RowBox[{"-", "12"}], ",", "9", ",", "8", ",", "23", ",",
RowBox[{"-", "2"}], ",", "40", ",",
RowBox[{"-", "28"}], ",",
RowBox[{"-", "22"}], ",",
RowBox[{"-", "11"}], ",",
RowBox[{"-", "4"}], ",",
RowBox[{"-", "7"}], ",", "1", ",", "34", ",",
RowBox[{"-", "18"}], ",", "31", ",",
RowBox[{"-", "8"}], ",", "5", ",",
RowBox[{"-", "12"}], ",",
RowBox[{"-", "5"}], ",", "17", ",",
RowBox[{"-", "24"}], ",", "4", ",",
RowBox[{"-", "3"}], ",",
RowBox[{"-", "8"}], ",",
RowBox[{"-", "10"}], ",", "4", ",",
RowBox[{"-", "15"}], ",",
RowBox[{"-", "17"}], ",", "15", ",",
RowBox[{"-", "14"}], ",",
RowBox[{"-", "2"}], ",",
RowBox[{"-", "16"}], ",",
RowBox[{"-", "11"}], ",",
RowBox[{"-", "33"}], ",",
RowBox[{"-", "1"}], ",",
RowBox[{"-", "14"}], ",", "14", ",", "9", ",", "23", ",",
RowBox[{"-", "7"}], ",",
RowBox[{"-", "19"}], ",", "16", ",",
RowBox[{"-", "3"}], ",",
RowBox[{"-", "19"}], ",",
RowBox[{"-", "4"}], ",", "1", ",",