-
Notifications
You must be signed in to change notification settings - Fork 0
/
NFunction-Definition.nb
3908 lines (3744 loc) · 178 KB
/
NFunction-Definition.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
Notebook[{
Cell[CellGroupData[{
Cell["NFunction", "Title",
Deletable->False,
TaggingRules->{},
CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[
SelectedNotebook[], After, Cell]; NotebookFind[
SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True,
WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[
SelectedNotebook[], All, CellContents, AutoScroll -> True]],
PassEventsDown -> False, PassEventsUp -> False},
CellTags->{"Name", "TemplateCell", "Title", "TabNext"},
CellID->863144461,ExpressionUUID->"fb053bea-c3b0-4a9a-8f46-1da2c1b7839a"],
Cell["\<\
Make a function perform pure numeric computation by silently ignoring \
non-numeric values\
\>", "Text",
Deletable->False,
TaggingRules->{},
CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[
SelectedNotebook[], After, Cell]; NotebookFind[
SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True,
WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[
SelectedNotebook[], All, CellContents, AutoScroll -> True]],
PassEventsDown -> False, PassEventsUp -> False},
CellTags->{"Description", "TemplateCell", "TabNext"},
CellID->997449289,ExpressionUUID->"fa976fc8-5ead-4f72-8865-5093a3490b7e"],
Cell[CellGroupData[{
Cell[TextData[{
"Definition",
Cell[BoxData[
PaneSelectorBox[{True->
TemplateBox[{"Definition",
Cell[
BoxData[
FrameBox[
Cell[
"Define your function using the name you gave in the Title line \
above. You can add input cells and extra code to define additional input \
cases or prerequisites. All definitions, including dependencies, will be \
included in the generated resource function.\n\nThis section should be \
evaluated before creating the Examples section below.", "MoreInfoText"],
Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle ->
GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable ->
True, CellTags -> {"SectionMoreInfoDefinition"},
CellMargins -> {{66, 66}, {15, 15}}]},
"MoreInfoOpenerButtonTemplate"]}, Dynamic[
CurrentValue[
EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]],
ImageSize->Automatic]],ExpressionUUID->
"8840b291-b3c1-4d5f-8cf5-881b227e250e"]
}], "Section",
Editable->False,
Deletable->False,
TaggingRules->{},
DefaultNewCellStyle->"Input",
CellTags->{"Definition", "Function", "TemplateCellGroup"},
CellID->858465241,ExpressionUUID->"f7bf12e4-d0fa-48c3-91fa-78fa715a7034"],
Cell[BoxData[{
RowBox[{"Clear", "[",
RowBox[{"nFun", ",", "NFunction"}], "]"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"nFun", "[",
RowBox[{
RowBox[{"x_", "/;",
RowBox[{
RowBox[{"ArrayDepth", "[",
RowBox[{"x", ",",
RowBox[{"AllowedHeads", "\[Rule]",
RowBox[{"{",
RowBox[{"\"\<ListLike\>\"", ",", "Association"}], "}"}]}]}], "]"}],
"\[Equal]", "1"}]}], ",", "fun_"}], "]"}], ":=",
RowBox[{"With", "[",
RowBox[{
RowBox[{"{",
RowBox[{"resNum", "=",
RowBox[{"fun", "@",
RowBox[{"Select", "[",
RowBox[{"x", ",",
RowBox[{
RowBox[{"Through", "[",
RowBox[{
RowBox[{"Or", "[",
RowBox[{"NumericQ", ",", "QuantityQ"}], "]"}], "[", "#", "]"}],
"]"}], "&"}]}], "]"}]}]}], "}"}], ",",
RowBox[{"If", "[",
RowBox[{
RowBox[{"Through", "[",
RowBox[{
RowBox[{"Or", "[",
RowBox[{"NumericQ", ",", "QuantityQ"}], "]"}], "[", "resNum", "]"}],
"]"}], ",", "resNum", ",", "Indeterminate"}], "]"}]}],
"]"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"nFun", "[",
RowBox[{
RowBox[{"x_", "/;",
RowBox[{
RowBox[{"ArrayDepth", "[",
RowBox[{"x", ",",
RowBox[{"AllowedHeads", "\[Rule]",
RowBox[{"{",
RowBox[{"\"\<ListLike\>\"", ",", "Association"}], "}"}]}]}], "]"}],
"\[GreaterEqual]", "2"}]}], ",", "fun_"}], "]"}], ":=",
RowBox[{
RowBox[{
RowBox[{"nFun", "[",
RowBox[{"#", ",", "fun"}], "]"}], "&"}], "/@",
RowBox[{"Transpose", "[",
RowBox[{"x", ",",
RowBox[{"AllowedHeads", "\[Rule]",
RowBox[{"{",
RowBox[{"\"\<ListLike\>\"", ",", "Association"}], "}"}]}]}],
"]"}]}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"NFunction", "[",
RowBox[{"fun", ":",
RowBox[{"(",
RowBox[{"_Function", "|", "_Symbol"}], ")"}]}], "]"}], ":=",
RowBox[{
RowBox[{"nFun", "[",
RowBox[{"#", ",", "fun"}], "]"}], "&"}]}]}], "Input",
TaggingRules->{},
CellLabel->"In[382]:=",
CellID->304931571,ExpressionUUID->"38dbac86-1e83-4958-a0f2-26f9ee7eaebf"]
}, Open ]],
Cell[CellGroupData[{
Cell["Documentation", "Section",
Editable->False,
Deletable->False,
TaggingRules->{},
CellTags->"Documentation",
CellID->475424634,ExpressionUUID->"996cfb2e-b7f5-48af-b0f2-22f1e1821422"],
Cell[CellGroupData[{
Cell[TextData[{
"Usage",
Cell[BoxData[
PaneSelectorBox[{True->
TemplateBox[{"Usage",
Cell[
BoxData[
FrameBox[
Cell[
TextData[{
"Document input usage cases by first typing an input structure, \
then pressing ",
Cell[
BoxData[
StyleBox[
DynamicBox[
ToBoxes[
If[$OperatingSystem === "MacOSX", "\[ReturnKey]",
"\[EnterKey]"], StandardForm], SingleEvaluation -> True,
Evaluator -> "System"], ShowStringCharacters -> False]]],
" to add a brief explanation of the function\[CloseCurlyQuote]s \
behavior for that structure. Pressing ",
Cell[
BoxData[
StyleBox[
DynamicBox[
ToBoxes[
If[$OperatingSystem === "MacOSX", "\[ReturnKey]",
"\[EnterKey]"], StandardForm], SingleEvaluation -> True,
Evaluator -> "System"], ShowStringCharacters -> False]]],
" repeatedly will create new cases as needed. Every input usage \
case defined above should be demonstrated explicitly here.\n\nSee existing \
documentation pages for examples."}], "MoreInfoText"], Background ->
GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9],
RoundingRadius -> 5]], "MoreInfoText", Deletable -> True,
CellTags -> {"SectionMoreInfoUsage"},
CellMargins -> {{66, 66}, {15, 15}}]},
"MoreInfoOpenerButtonTemplate"]}, Dynamic[
CurrentValue[
EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]],
ImageSize->Automatic]],ExpressionUUID->
"35de6a2c-a32b-43fa-97f8-82e1def0a74b"]
}], "Subsection",
Editable->False,
Deletable->False,
TaggingRules->{},
DefaultNewCellStyle->{"UsageInputs", FontFamily -> "Source Sans Pro"},
CellTags->{"TemplateCellGroup", "Usage"},
CellID->77317143,ExpressionUUID->"c36949b9-161d-4711-8660-ec319c617fa1"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"NFunction", "[",
StyleBox["fun", "TI"], "]"}]], "UsageInputs",
TaggingRules->{"AttachedInlineCell" -> CellObject[174129]},
FontFamily->"Source Sans Pro",
CellTags->"TabNext",
CellID->293044900,ExpressionUUID->"77a1d376-81ce-40e2-8034-6a3b13bf42c9"],
Cell[TextData[{
"make a special operator form of ",
StyleBox["fun", "TI"],
" that performs pure numeric computation by ignoring non-numeric values."
}], "UsageDescription",
TaggingRules->{},
CellTags->"TabNext",
CellID->584004037,ExpressionUUID->"53bbefa7-4128-4278-9482-aaaa2af2fd30"]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell[TextData[{
"Details & Options",
Cell[BoxData[
PaneSelectorBox[{True->
TemplateBox[{"Details & Options",
Cell[
BoxData[
FrameBox[
Cell[
"Give a detailed explanation of how the function is used and \
configured (e.g. acceptable input types, result formats, options \
specifications, background information). This section may include multiple \
cells, bullet lists, tables, hyperlinks and additional styles/structures as \
needed.\n\nAdd any other information that may be relevant, such as when the \
function was first discovered or how and why it is used within a given field. \
Include all relevant background or contextual information related to the \
function, its development, and its usage.", "MoreInfoText"], Background ->
GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9],
RoundingRadius -> 5]], "MoreInfoText", Deletable -> True,
CellTags -> {"SectionMoreInfoDetailsOptions"},
CellMargins -> {{66, 66}, {15, 15}}]},
"MoreInfoOpenerButtonTemplate"]}, Dynamic[
CurrentValue[
EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]],
ImageSize->Automatic]],ExpressionUUID->
"9aa1e80c-0066-4929-805a-4e8a8576914c"]
}], "Subsection",
Editable->False,
Deletable->False,
TaggingRules->{},
DefaultNewCellStyle->"Notes",
CellTags->{"Details & Options", "Notes", "TemplateCellGroup"},
CellID->85988701,ExpressionUUID->"cb53c034-1e21-4e2e-a404-c38f59637c66"],
Cell[TextData[{
Cell[BoxData["NFunction"], "InlineFormula",
FontFamily->"Source Sans Pro",ExpressionUUID->
"488f4f6b-f1d7-4382-b779-e2998d5c3ee8"],
"[fun] mimics behavior of fun but performs computations only for numeric \
values: all non-numeric values will be ignored."
}], "Notes",
TaggingRules->{"AttachedInlineCell" -> CellObject[174209]},
CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[
SelectedNotebook[], After, Cell]; NotebookFind[
SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True,
WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[
SelectedNotebook[], All, CellContents, AutoScroll -> True]],
PassEventsDown -> False, PassEventsUp -> False},
CellTags->"TabNext",
CellID->521904482,ExpressionUUID->"64a5baed-1467-479d-acc2-59dcac1b0813"],
Cell[TextData[{
"When applied to pure numeric data arrays, ",
Cell[BoxData["NFunction"], "InlineFormula",
FontFamily->"Source Sans Pro",ExpressionUUID->
"67d1db06-f5c1-448c-82a8-1acc4407d02c"],
"[fun] and fun give identical results."
}], "Notes",
TaggingRules->{"AttachedInlineCell" -> CellObject[174289]},
CellID->892374392,ExpressionUUID->"51bf30ae-b76c-4a37-9eee-09f631745d1f"],
Cell[TextData[{
"When applied to an empty data arrays, ",
Cell[BoxData["NFunction"], "InlineFormula",
FontFamily->"Source Sans Pro",ExpressionUUID->
"5e435a65-1105-4dd3-a741-ef0862d28ec4"],
"[fun] gives Indeterminate."
}], "Notes",
TaggingRules->{"AttachedInlineCell" -> CellObject[174369]},
CellID->98788504,ExpressionUUID->"d08f565e-0d58-49de-8f74-27d72b75a246"],
Cell[TextData[{
"Funtions processed by ",
Cell[BoxData["NFunction"], "InlineFormula",
FontFamily->"Source Sans Pro",ExpressionUUID->
"e9ca7e19-68c9-4261-a373-e544c418ea00"],
" behave similarly as ",
ButtonBox["numpy ",
BaseStyle->"Hyperlink",
ButtonData->{
URL["https://github.com/numpy/numpy/blob/main/numpy/lib/nanfunctions.py"],
None},
ButtonNote->
"https://github.com/numpy/numpy/blob/main/numpy/lib/nanfunctions.py"],
StyleBox[ButtonBox["nan",
BaseStyle->"Hyperlink",
ButtonData->{
URL["https://github.com/numpy/numpy/blob/main/numpy/lib/nanfunctions.py"],
None},
ButtonNote->
"https://github.com/numpy/numpy/blob/main/numpy/lib/nanfunctions.py"],
"Code"],
ButtonBox["-family",
BaseStyle->"Hyperlink",
ButtonData->{
URL["https://github.com/numpy/numpy/blob/main/numpy/lib/nanfunctions.py"],
None},
ButtonNote->
"https://github.com/numpy/numpy/blob/main/numpy/lib/nanfunctions.py"],
" functions."
}], "Notes",
TaggingRules->{"AttachedInlineCell" -> CellObject[174449]},
CellID->940110868,ExpressionUUID->"ad3d6200-9685-406d-8b02-0aa1c24ac0fe"]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell[TextData[{
"Examples",
Cell[BoxData[
PaneSelectorBox[{True->
TemplateBox[{"Examples",
Cell[
BoxData[
FrameBox[
Cell[
TextData[{
"Demonstrate the function\[CloseCurlyQuote]s usage, starting with \
the most basic use case and describing each example in a preceding text cell.\
\n\nWithin a group, individual examples can be delimited by inserting page \
breaks between them (either using ",
Cell[
BoxData[
StyleBox[
TemplateBox[{
StyleBox[
"\"[Right-click]\"", FontFamily -> "Source Sans Pro",
FontWeight -> "SemiBold", FontColor -> GrayLevel[0.2863],
FontSize -> 14, StripOnInput -> False],
StyleBox[
"\" \[FilledRightTriangle] \"", FontFamily ->
"Source Sans Pro", FontSize -> 13.86, FontColor ->
GrayLevel[0.5], StripOnInput -> False],
StyleBox[
"\"Insert Page Break\"", FontFamily -> "Source Sans Pro",
FontWeight -> "SemiBold", FontColor -> GrayLevel[0.2863],
FontSize -> 14, StripOnInput -> False]}, "RowDefault"],
ShowStringCharacters -> False]]],
" between cells or through the menu using ",
Cell[
BoxData[
StyleBox[
TemplateBox[{
StyleBox[
"\"Insert\"", FontFamily -> "Source Sans Pro", FontWeight ->
"SemiBold", FontColor -> GrayLevel[0.2863], FontSize -> 14,
StripOnInput -> False],
StyleBox[
"\" \[FilledRightTriangle] \"", FontFamily ->
"Source Sans Pro", FontSize -> 13.86, FontColor ->
GrayLevel[0.5], StripOnInput -> False],
StyleBox[
"\"Page Break\"", FontFamily -> "Source Sans Pro", FontWeight ->
"SemiBold", FontColor -> GrayLevel[0.2863], FontSize -> 14,
StripOnInput -> False]}, "RowDefault"], ShowStringCharacters ->
False]]],
").\n\nExamples should be grouped into Subsection and \
Subsubsection cells similarly to existing documentation pages. Here are some \
typical Subsection names and the types of examples they normally contain:\n \
",
Cell[
BoxData[
StyleBox[
TemplateBox[{
StyleBox[
"\"\[FilledSmallSquare] \"", FontColor ->
RGBColor[0.8, 0.043, 0.008], StripOnInput -> False],
StyleBox[
"\"Basic Examples: \"", FontFamily -> "Source Sans Pro",
FontWeight -> "SemiBold", FontSize -> 14, StripOnInput ->
False]}, "RowDefault"], ShowStringCharacters -> False]]],
"most basic function usage\n ",
Cell[
BoxData[
StyleBox[
TemplateBox[{
StyleBox[
"\"\[FilledSmallSquare] \"", FontColor ->
RGBColor[0.8, 0.043, 0.008], StripOnInput -> False],
StyleBox[
"\"Scope: \"", FontFamily -> "Source Sans Pro", FontWeight ->
"SemiBold", FontSize -> 14, StripOnInput -> False]},
"RowDefault"], ShowStringCharacters -> False]]],
"input and display conventions, standard computational attributes \
(e.g. threading over lists)\n ",
Cell[
BoxData[
StyleBox[
TemplateBox[{
StyleBox[
"\"\[FilledSmallSquare] \"", FontColor ->
RGBColor[0.8, 0.043, 0.008], StripOnInput -> False],
StyleBox[
"\"Options: \"", FontFamily -> "Source Sans Pro", FontWeight ->
"SemiBold", FontSize -> 14, StripOnInput -> False]},
"RowDefault"], ShowStringCharacters -> False]]],
"available options and parameters for the function\n ",
Cell[
BoxData[
StyleBox[
TemplateBox[{
StyleBox[
"\"\[FilledSmallSquare] \"", FontColor ->
RGBColor[0.8, 0.043, 0.008], StripOnInput -> False],
StyleBox[
"\"Applications: \"", FontFamily -> "Source Sans Pro",
FontWeight -> "SemiBold", FontSize -> 14, StripOnInput ->
False]}, "RowDefault"], ShowStringCharacters -> False]]],
"standard industry or academic applications\n ",
Cell[
BoxData[
StyleBox[
TemplateBox[{
StyleBox[
"\"\[FilledSmallSquare] \"", FontColor ->
RGBColor[0.8, 0.043, 0.008], StripOnInput -> False],
StyleBox[
"\"Properties and Relations: \"", FontFamily ->
"Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14,
StripOnInput -> False]}, "RowDefault"], ShowStringCharacters ->
False]]], "how the function relates to other functions\n ",
Cell[
BoxData[
StyleBox[
TemplateBox[{
StyleBox[
"\"\[FilledSmallSquare] \"", FontColor ->
RGBColor[0.8, 0.043, 0.008], StripOnInput -> False],
StyleBox[
"\"Possible Issues: \"", FontFamily -> "Source Sans Pro",
FontWeight -> "SemiBold", FontSize -> 14, StripOnInput ->
False]}, "RowDefault"], ShowStringCharacters -> False]]],
"limitations or unexpected behavior a user might experience\n ",
Cell[
BoxData[
StyleBox[
TemplateBox[{
StyleBox[
"\"\[FilledSmallSquare] \"", FontColor ->
RGBColor[0.8, 0.043, 0.008], StripOnInput -> False],
StyleBox[
"\"Neat Examples: \"", FontFamily -> "Source Sans Pro",
FontWeight -> "SemiBold", FontSize -> 14, StripOnInput ->
False]}, "RowDefault"], ShowStringCharacters -> False]]],
"particularly interesting, unconventional, or otherwise unique \
usage"}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20,
FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText",
Deletable -> True, CellTags -> {"SectionMoreInfoExamples"},
CellMargins -> {{66, 66}, {15, 15}}]},
"MoreInfoOpenerButtonTemplate"]}, Dynamic[
CurrentValue[
EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]],
ImageSize->Automatic]],ExpressionUUID->
"4afb0950-8644-4e88-a8af-deee309f569b"]
}], "Section",
Editable->False,
Deletable->False,
TaggingRules->{},
CellTags->{"Examples", "TemplateCellGroup"},
CellID->408246283,ExpressionUUID->"ff5d5f00-d9c3-42af-afcd-be524cf6848f"],
Cell[CellGroupData[{
Cell["Basic Examples", "Subsection",
TaggingRules->{},
CellID->462042388,ExpressionUUID->"75e45041-6f35-497e-974c-b9f475da9dd1"],
Cell[TextData[{
"Mean processed by ",
Cell[BoxData["NFunction"], "InlineFormula",
FontFamily->"Source Sans Pro",ExpressionUUID->
"9c09cd5e-ab21-4499-849e-c10cdea6594a"],
" will ignore non-numerical values when applied to a data array:"
}], "Text",
TaggingRules->{"AttachedInlineCell" -> CellObject[174529]},
CellID->13078159,ExpressionUUID->"436a28b6-34be-402a-b13a-3db5f5fe33b1"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"NFunction", "[", "Mean", "]"}], "[",
RowBox[{"{",
RowBox[{"1", ",", "Indeterminate", ",",
RowBox[{"Missing", "[", "]"}]}], "}"}], "]"}]], "Input",
TaggingRules->{},
CellLabel->"In[152]:=",
CellID->443871870,ExpressionUUID->"461aac5f-3d29-4fc0-b99f-48c64c84b636"],
Cell[BoxData["1"], "Output",
TaggingRules->{},
CellLabel->"Out[152]=",
CellID->254129609,ExpressionUUID->"d6b97412-be5d-4074-a4f6-4aa5193e2611"]
}, Open ]],
Cell[TextData[{
"For data arrays with rank\[GreaterEqual]2, ",
Cell[BoxData[
TagBox[
ButtonBox[
StyleBox["Mean", "SymbolsRefLink",
ShowStringCharacters->True,
FontFamily->"Source Sans Pro"],
BaseStyle->Dynamic[
FEPrivate`If[
CurrentValue["MouseOver"], {
"Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, {
"Link"}]],
ButtonData->"paclet:ref/Mean",
ContentPadding->False],
MouseAppearanceTag["LinkHand"]]], "InlineFormula",
FontFamily->"Source Sans Pro",ExpressionUUID->
"850cf9b4-1870-4491-be14-bb96add58d92"],
" processed by ",
Cell[BoxData["NFunction"], "InlineFormula",
FontFamily->"Source Sans Pro",ExpressionUUID->
"e5d4a990-9192-4fbd-bafa-140a7d94a51a"],
" applies in each column:"
}], "Text",
TaggingRules->{"AttachedInlineCell" -> CellObject[183537]},
CellID->1437842679,ExpressionUUID->"0ae5d96c-8671-491c-b466-6675f72a7619"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"NFunction", "[", "Mean", "]"}], "[",
RowBox[{"Table", "[",
RowBox[{
RowBox[{"{",
RowBox[{"1", ",", "Indeterminate", ",",
RowBox[{"Missing", "[", "]"}]}], "}"}], ",", "3"}], "]"}],
"]"}]], "Input",
TaggingRules->{},
CellLabel->"In[153]:=",
CellID->1580204096,ExpressionUUID->"7e6f8a48-dc3b-4d49-b1fc-5f69c2abda88"],
Cell[BoxData[
RowBox[{"{",
RowBox[{"1", ",", "Indeterminate", ",", "Indeterminate"}], "}"}]], "Output",
TaggingRules->{},
CellLabel->"Out[153]=",
CellID->1848506326,ExpressionUUID->"7ed4c7da-76c6-419b-a833-3cdb8a43bc9e"]
}, Open ]],
Cell[TextData[{
"Non-numeric results are given as ",
Cell[BoxData[
TagBox[
ButtonBox[
StyleBox["Indeterminate", "SymbolsRefLink",
ShowStringCharacters->True,
FontFamily->"Source Sans Pro"],
BaseStyle->Dynamic[
FEPrivate`If[
CurrentValue["MouseOver"], {
"Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, {
"Link"}]],
ButtonData->"paclet:ref/Indeterminate",
ContentPadding->False],
MouseAppearanceTag["LinkHand"]]], "InlineFormula",
FontFamily->"Source Sans Pro",ExpressionUUID->
"49405e2f-5857-49e6-a713-7416186e37eb"],
":"
}], "Text",
TaggingRules->{"AttachedInlineCell" -> CellObject[174689]},
CellID->2124649622,ExpressionUUID->"65177ab7-f92b-472c-af33-5a13512abe21"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"NFunction", "[", "Mean", "]"}], "[",
RowBox[{"{", "}"}], "]"}]], "Input",
TaggingRules->{},
CellLabel->"In[154]:=",
CellID->1650755477,ExpressionUUID->"57887c70-1867-4554-888d-2661669b2b47"],
Cell[BoxData["Indeterminate"], "Output",
TaggingRules->{},
CellLabel->"Out[154]=",
CellID->266927165,ExpressionUUID->"e72cbad0-be37-4d74-a0bc-a57de8ab05a2"]
}, Open ]]
}, Closed]],
Cell[CellGroupData[{
Cell["Scope", "Subsection",
TaggingRules->{},
CellID->964056545,ExpressionUUID->"638f7026-60a7-405c-9487-b5c29507d7d9"],
Cell[TextData[{
"Custom functions can also be processed by ",
Cell[BoxData["NFunction"], "InlineFormula",
FontFamily->"Source Sans Pro",ExpressionUUID->
"2be07cda-87dd-40aa-b4a0-5f0e69a340bb"],
":"
}], "Text",
TaggingRules->{"AttachedInlineCell" -> CellObject[174769]},
CellID->649685796,ExpressionUUID->"05eb5c2b-fd12-4fe6-bc00-c5f148ba13b0"],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{"Clear", "[", "fun", "]"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"fun", "[", "x_", "]"}], ":=",
RowBox[{
RowBox[{"Median", "[", "x", "]"}], "/",
RowBox[{"Mean", "[", "x", "]"}]}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"NFunction", "[", "fun", "]"}], "@",
RowBox[{"Table", "[",
RowBox[{
RowBox[{"{",
RowBox[{"1", ",", "Indeterminate", ",",
RowBox[{"Missing", "[", "]"}]}], "}"}], ",", "3"}], "]"}]}]}], "Input",
TaggingRules->{},
CellLabel->"In[160]:=",
CellID->1129620934,ExpressionUUID->"eed245a7-5ee7-44fb-90f3-ab5951db86e5"],
Cell[BoxData[
RowBox[{"{",
RowBox[{"1", ",", "Indeterminate", ",", "Indeterminate"}], "}"}]], "Output",
TaggingRules->{},
CellLabel->"Out[162]=",
CellID->1925124003,ExpressionUUID->"f88f3211-f5e5-4ceb-b639-b1252f554fd7"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
InterpretationBox[Cell[
"\t", "ExampleDelimiter",ExpressionUUID->
"5fd4af2b-4eda-4de0-85f5-c4ea73e7d7da"],
$Line = 0; Null]], "ExampleDelimiter",
TaggingRules->{},
CellID->1759993321,ExpressionUUID->"89648efe-ba52-4d8c-b693-b34f83c7fecf"],
Cell[TextData[{
"Functions processed by ",
Cell[BoxData["NFunction"], "InlineFormula",
FontFamily->"Source Sans Pro",ExpressionUUID->
"287cd2df-745b-4374-bbf3-a8ed6bc0ef9c"],
" can work with ",
Cell[BoxData[
TagBox[
ButtonBox[
StyleBox["Dataset", "SymbolsRefLink",
ShowStringCharacters->True,
FontFamily->"Source Sans Pro"],
BaseStyle->Dynamic[
FEPrivate`If[
CurrentValue["MouseOver"], {
"Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, {
"Link"}]],
ButtonData->"paclet:ref/Dataset",
ContentPadding->False],
MouseAppearanceTag["LinkHand"]]], "InlineFormula",
FontFamily->"Source Sans Pro",ExpressionUUID->
"15cb7484-9cb1-445c-93b6-4e10517d08d0"],
":"
}], "Text",
TaggingRules->{"AttachedInlineCell" -> CellObject[663265]},
CellID->767992269,ExpressionUUID->"c7b0b5aa-1715-4d68-98f2-9ac166813f8e"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"ExampleData", "[",
RowBox[{"{",
RowBox[{"\"\<Dataset\>\"", ",", "\"\<Titanic\>\""}], "}"}], "]"}], "[",
RowBox[{"NFunction", "[", "Median", "]"}], "]"}]], "Input",
TaggingRules->{},
CellLabel->"In[397]:=",
CellID->1541826027,ExpressionUUID->"98f13864-a356-46d7-b8a9-72ec1f7e9f1f"],
Cell[BoxData[
GraphicsBox[
TagBox[RasterBox[CompressedData["
1:eJztnQl4Tdca948hpporxFApYqoporiKIiW3peYxTVA1FpeWmrWmS0qNJabH
GHPUeNXMR0gJkhqLlAjyhZCEpERIwvf/znutZ3fvM+fsnHP2fX/Pcz322muv
s/Yafutde2+9lb4a2WVQbp1ON7oA/ujSb1yrUaP6TehaHAfdR4z+evCIgQM+
G/HdwMEDR/3jqzxI9Mil0w3H//7/39+8JTMzMyUlJSEhIT4+/v8yDMNIgBYg
BygConhjiLS0NFYHwzBmgSigC6VA6GxiYmJ6enpWVpZBzzAM8z8LtAA5QBHk
CqlGEJlQBJKamurAGjIM4xJAFBSNiE0NNjgUgTi2YgzDuAoUjUAddJiQkIBD
RCmOrRXDMK4CdAFpQB10SBsZfgbCMIyFQBe0naFDekLi2CoxDONaSL3BDmEY
xlrYIQzDZAd2CMMw2YEdwjBMdmCHMAyTHdghDMNkB3YIwzDZgR3CMEx2YIcw
DJMd2CEMw2QHdgjDMNmBHcIwTHZghzAMkx3YIQzDZIfsO+T/MAyjIdghDMNk
B0c5JJVRGdv6l2Eshx2ibdghjNqwQ7QNO4RRG3aItmGHMGrDDtE27BBGbdgh
2oYdwqgNO0TbsEMYtWGHaBt2CKM27BBtww5h1IYdom3YIYzasEO0DTuEURt2
iLZhhzBqww7RNuwQRm3YIdqGHcKoDTtE2zibQ2JjY0NCQvbt2+foijiAmJiY
0NBQdIqjK2JntOGQo0ePjhkzZty4cU+ePLFXmdrAkv59ZRJre9Y0CxYs0Ol0
9evXt2+xzs/t27dz586Ne/f29nZ0XeyMNhwyc+ZMnZ5Hjx7Zq0xtYEn/enl5
6YwTHh5ubeeawF4OSUxMPH/+/L179+xSqxxg79691J558+Z99uxZDv/65cuX
0VxZWVlqFM4O0TaW9K+Pj0/xtwh1iJSTJ09a27kmsJdDgoODUc6oUaPsUqsc
4OXLl127dq1Spcrs2bNz/tfd3d3RXKnqbKPYIdrG2v4tUqQImnHLli3WdqiF
2MshU6dOdS2HOBCEH7SNSmWHGIcdYgxVHZKenn7hwoWHDx+azhYfH//777/T
o5VFixaZdkhKSgqibrNlDhs2zCqHWFis4PXr13FxcREREdevX8/MzFRmwH7k
ypUr0sOoqCg0iIXlm+XOnTsoH9GLiTyoGLKhktjTocLGsj1+/JhmR6plDkFR
0dHR2P6Y/nWBqzgEHbpx48aJEyd279598ODBc+bMwZAQZw06BF2wevXqsWPH
9uvXr2PHjr179x49evTmzZufPn1q8CcOHTqE1Q3ZEHOOHDkSo/3GjRvKaixe
vHjEiBGdOnVCsVOmTNm9e7czP8i1r0M++OCDokWLPn/+/PTp023atClYsCA1
e7Vq1c6ePavMv2nTpooVK1KeAgUK9OrVa8aMGcYcsn379urVq+fKlYvyI/wO
CgqSzd/atWt7enqWLl06X758yIM/i/6dw4cP21DsG72UcPn+/fvx9w0bNuCO
xLauXLly9CTh6tWrxYoV69u3L8YhbgensDdJTEycNGlSoUKFcFi2bNlr166J
Mj08PIoq8Pf3V957SEgITk2ePBnTFiMWxYqHJ99++61yLp87d65Pnz4lS5YU
lSxcuDBmQUZGhsizYsUKLy+v8uXLiy0qOldak1atWsmKTUhICAwMpDEA3Nzc
WrRoIb0jg7iEQ3bu3Il+VD7u+8c//kEZDDqkSZMmhp4R6jAIpf4Bd+/ebd68
uTInBh60I7KhU6S9JihVqtTNmzezPd1Vwb4OKVOmDM7CnJi8CI9r1ar1/vvv
UyOUKFECa700Mwa/sEeDBg0w8UWLKR0SEBBApzB5u3Tpgr6j8PvTTz+VZkP7
0/inzGYdYmGxAGsH0mEP2m1R70OAqHzTpk0pD4Iuuh38CZlQtrp16+r0j4/o
sFu3bqJMmUMoA5YzZcMuW7YMp9q2bdusWTMaUfXq1XvnnXfoEohXmpn2cUSl
SpUwdJGfDocPHy6yBQcH0++Sb3XmHHLmzBka3vChr69v+/btoUQc5s+f/8SJ
E4aGw39xfoesWbOGWiBPnjwff/wxVv+WLVtSj2A8UB4TDoEx0DUDBgzAIBGL
CzwP5YqcrVu3pnSss19++eXAgQNxLQ2VHj16UB4MTlQAKfhpPz8/BCoYDOhB
uhCxuv3mvT1RwyEA7QNtUiIyU+KSJUtEzlOnTtHSj1YSbkEQSKNU5pDly5fr
9Gvu2rVrReJvv/0GL9G8VtYEI1xnbi9jVbHkEMxc/Im4ZeXKldiCvdHv17Bf
oDzkEIBIFVszMTJhSwQqCE7w9woVKhirD0nVhENowiIApn1fUlISjWEoQpoZ
HQplTZs2DZsUSkEl+/fvTzcbExMjKzwyMpIKTzW+l8FejIIfBB7379+nxLS0
NEw3JNasWdPEW34ndwhuh9Yv/IlZLNKxsUXIB1HToUGHbNu2DVtFWYGY+5QT
OxdK+eOPPygFOxRpTvQFrD5o0CA6pDEGgcg2OKGhoT4+PohyLZzUOYwaDvn8
889l0TUNdekiiKGIlKpVq8rG3vz582UOefHiBS24P/74o+znFi5ciHQsGcqa
mHWItcVS/4KGDRsmJycbLJMcgpULCxAOMTh1+p0OPQY5duyYTh8aGauSWYdg
2UIh0nSMUqoVdkzSdOXuBhtMWli3bt0qO2WJQ2iPiY0PxCVNh0ZoC2AiFHFy
h4iwDeuC8uy9e/foL5Y/U42Ojqac8+bNo5Rff/2VUlCIiQsR0CIPllH0ptlq
Ow9qOARylqXTIojNAh2+fv2aysHUkOVUvpfB1l6n3zjExcU9+zvh4eE4hR9V
1sSsQ6wtlhyCaivXcQE5RFgC0xaHderUoUPEohQJGLvcrEOw3MvSSVPg8uXL
BstENLhr166goKDBgweTQ2bNmiXLY4lDEKvTKvBMAZYMg10pcHKHdO/eHfV/
9913jT0IJYw5BFE0QpG5c+f27NkT6w66WzxX+eGHHygP1hR6IIaIEe2PwNXg
T0yaNIkuRGtjdTBdH+chZxxCs6NDhw50GBsbS211+vRpWU6lQ7A66MyhDKTN
OsTaYskhCN1NNE7OOwQDmKoaFRUlTcco/frrr+l5hQwsu7JCLHGIweeNUrBT
M3atkzuE9qcIL01nM+gQ9Lj06boM4RAgnrwR2Bhiw7tz507pT6A0DA+Rp3Dh
wohMxo8fb8w5TkJOOkTMjlu3blErIRiQ5VQ6hJ5agC+MEBgYqKyJWYdYWyw5
BAGV8bZxpENQuEhEh2JV1elDKYQfiEOwlUZlsEra7BAPDw+d/smzsebCdDB2
rZM7BBs03Jqfn5/pbEqHhIWFYZpTIkbsN998g27as2fPqVOnlA5BUIE9Mj1q
k9K4ceMzZ86IbAcPHkSKLA9+ZcKECbZM7xzBIQ5JT0+n1x87duyQ5VQ6BLEK
tSQ9ZLAQ7JtwydChQ41lsLZYF3IIPclHiI4KSDMbcwj2QWJ2GKsbvVYw0Z4m
cHKH0KuuWrVqmc6mdIh4dhocHCzLTO8LpA4hcO2BAwemT5+OmFy8iUO3yrLB
+atWrUJrY/AIk2zYsMHsvTgEhzjkzdtxLnY3grFjx8oc8tdff7m5uSFxzJgx
ltcTO3edoVe0NhfrKg4RT0hkz20yMzN9fHwMOiQxMZEuMfgND4F1UKd/3Cde
yliOkzvkq6++0ulfeJneMigdQm/tq1atqsxszCFS4uPjP/zwQ9FZxrKFhIRQ
ngEDBpi9F4fgKIfMnTtXp3+kuWjRIkrJyMjA1o+aS/ZuNygoiDKjH6VvHG7c
uIGS09LSlDVZsWKFTv+KRPrI5dWrV9Kl2apiXcUh4qPTdevWiWwXL15s0KAB
pSsd8ubt4w4oXfol7ZMnT8Tfk5KSKI+3t7c05qFX2Mp3PVKc3CFLly6llhk2
bJjsFDYgS5Ysob8rHULrYOnSpZOTk6VXnTx5knIKh2C3sn37duVPi4eo169f
x+HixYuVHkMd6CEJtqXm57MjsKR/a9eunfctdMuYmyLl+PHjIqflDsFYrVGj
BpVWpUoVhNlkJ9p3yxySlZXVrl07yowM+HuvXr2wqtKGSFhICgxAlcmTJ0+r
Vq2wYW/Tpg1+QjqDrCrWVRwCfH19yY1oVX9/f/oKF+ssPf0z6JB58+ZROZ6e
nl31oNMLFSokFenRo0dp+4/2adSoUUBAgJ+fH31Z4e7uLv0CVoaTOwSqhBjp
9gcOHHjt2jUkPnjwABJGuolvzKBcSsHsxg/dvXt37969iGrEN8/CIatXr8Zh
06ZNf/nlF7LEw4cPsamhLzArVqxIr2C8vLwwRCdPnhwREUEft1+5cmX06NFU
GpZFFQRgByzpXxNPnoH0iwVaqow5BCNTmojxjzkrvIQ4GQEz7c0xRJXVwH5Q
fLNHVK5cGTPdYBwC4Hax+IqfmDJlim3F9u3bF6eGDBlioqHIEjKHQErSsyYc
Qvs4WSsR9BbJhEOk/zYHg7xTp07idjAsO3fuHB0dTc+aDDoEOkVUBs+IqzAR
UPNbt25Js8XFxaHL6OtKomDBgqiw1GBKnNwh4NSpU9IvzKU3aMIhuEr6GkVA
e2SdwiECKJfWKSofUT1lk/5HNtAX0gewWAdl0Y7zYFv/2hFMVUTaly5dsvA/
XoGWjIyMhKhlX84bA2MvPDw8LCzs9u3bBv9xnG3FOj9YSRFUo20t/6+CYEOH
RkBbwQnGvqN7o3+0gu0eWhVNaknhzu8QgPAgMDBQag+d/h/LLF++nDLQzhdg
tyiuwnJJkbMQb+vWrc+ePUufrEPXlA0CxzKqfD/evHnzgwcPitI2bdqEy4Ve
iGLFimGPHx8fb6cZb38c7hBG87iEQwjsKRAJ0/tZBF2WXJKQkIBQfM2aNdjI
wBWmM8NUJ06cgHlQMWOPcJOSkuDwPXqioqKc/5tVdgijNi7kEMYG2CGM2rBD
tA07hFEbdoi2YYcwasMO0TbsEEZt2CHahh3CqA07RNuwQxi1YYdoG3YIozbs
EG3DDmHUhh2ibdghjNqwQ7QNO4RRG3aItmGHMGrDDtE27BBGbdgh2oYdwqgN
O0TbsEMYtWGHaBt2CKM2jnUIwzDagB3CMEx2cJRDHB3pax/b+pdhLIcdom3Y
IYzasEO0DTuEURt2iLZhhzBqww7RNuwQRm3YIdqGHcKoDTtE27BDGLVhh2gb
dgijNuwQbcMOYdSGHaJt2CGM2rBDtA07hFEbdoi2YYcwasMO0TbsEEZt2CHa
xtr+ffny5ZMnTyzMnJWVha5/8eKFtb3PaAl2iLaxpH/v3bs3b968li1bVqhQ
IXfu3DqdrlixYg0bNly3bh0socz/6tWr4ODgWrVq5cuXD5lz5cpVrly5/v37
x8bGWjsMGA3ADtE2lvRv3bp1dUb4+OOPYQxpZpTp7e0tMuTNm1f8HUo5evSo
tSOBcXXYIdrGcofUqVPn+++/37JlS0hISPfu3YsUKUJmmDBhgjRzt27dKH3Y
sGFhYWEZGRmXLl2aMWNGoUKFkFiyZMnHjx9bOxgYl4Ydom0s6d9Ro0bt3bv3
9evX0sRbt26RRipXriwSnz9/ToFHjx49ZIUsX76c3LJz505rBwPj0ji/Q65c
ubJ69eqxY8f269evY8eOvXv3Hj169ObNm58+fWos/5w5czDI27ZtO2jQIKyq
4eHhGOH4izLznTt3li1bhiX1n//8Z58+fWbNmnX16tVsTVonIzvvZTp16kRa
SElJoZTz589TysSJE2WZIyMj6dTs2bNt+znGRXF+hzRp0sTgVt3T0xNDWpb5
559/pqBaCcJsWeZt27a5u7vLshUuXHjx4sV2mb/OQHYcgh0NPTJNS0ujlGfP
nhUoUACJNWvWFInExo0bqQHPnTtn288xLoqrOATGQFwxYMAAxCHVqlWj4Vql
SpWEhASRE3Of0t3c3Fq2bNm/f3+spFCHQYesXbuW0kuXLv2vf/0LocuIESNE
5iNHjth3LjsKmx2SmZlZsWJFNEX58uWl6egFaqI6depcvnyZEuGTZs2aIbFC
hQqyPRGjeZzfIYgWIiIiZIkjR46kkXzo0CFKwa6kRIkSNObDwsJEzuTkZOxr
ZA6Jj48vW7YsEps2bXrv3j2RHhMTU65cOaQ3atTI5mnrVNjsEOHYUaNGSdPv
37+PxhFhW5s2bdavX+/r60uev3Tpkg2/xbg0zu8Qg0RHR9MYnjdvHqXMmDGD
UjZs2CDLPGzYMJlDZs6cqdO/i7xx44Ys89y5cymAf/z4sc3Vcx5s69/r16/T
A1X8CWnIzqJYMrAUbCHv3r1r7Q8xGsAlHJKSkoJQBLO7Z8+e2KQgiqZoAfzw
ww+UJzAwEIelSpVCZtnlSof4+/sj5b333tuhYPLkyVSy8mGLK2JD/6I3sUmk
Rti6davyLO0uq1evvnDhwubNmwuN1KxZ88KFC9aOBMbVcX6HYFiKByBKhEM+
/PBDHDZs2FBZgtIhlNk0//nPf+wxiR2Mtf378OFDyIFaICgoSHYWBZK969at
++jRI0q8efMmBI7ITaf/5OzkyZPWDgbGpXFyh4SFhRUuXJiGdP369b/55ptl
y5bt2bPn1KlTModUrVoVh4hSlIUoHYIIBCnFixdvZxzlQxhXxKr+xWakRo0a
1LDTpk1TZsDOkc6uX79edmrlypV0qnXr1tYOBsalcXKHiGenwcHBslO08AmH
tGrVisJpZSFKh1AEjj2R7ZPTRbC8f69du1ahQgWd/lnQzz//bDDPF198Qd2R
kJAgO5WRkVG0aFGc8vDwsHYwMC6NkzuEPsNGjKE8JXPIl19+icPcuXP/8ccf
spxKhwwYMECnf6YaGxtr+/x0BSzsX+Sht1pubm4bN240li0gIIAcYvCDdoph
PD09rR0MjEvj5A6pVKmSTv8JR3JysjQdm27ZXmbLli2U0rlz58TEREpMSUlZ
vXp1mTJlZA4RLy67du2q/NGkpKTly5fbPG2dCkv6d926dfQvcLG5O3bsmImc
8+fPp3bDX2Sn4uPj8+fPj1NdunSxdjAwLo2TO6RDhw40aAcPHoz82LDv3bv3
q6++oiBE6hBQr149SvTy8goMDIRMsCaKZ6Syb8xatGgh9u8nTpyAdqCOU6dO
YXbQWwnl+x1XxGz/RkREiCbCvR8wRHh4OGW+desWPZ4qUKDAhg0bRCEI55o2
bUr7oF9//dXawcC4NE7uEExq6b8uFyDkVjrE4BucUqVKUaK7u7u05EuXLlWu
XFlkwyZI9kP/Iw7BWWXzyqhZs6bIL75pJ1e3b98e9qAIBHz//ffWjgTG1XFy
h6Tqv1P18PAQ4xYrHSKHs2fP5smTB4dTp06VZkZN/v3vf2OH0qhRI39//xkz
ZiB06du3r07/WkdWMjb1kyZNEt+3C5n4+vouXbrUbtPYoZjtX7ErNEGtWrWk
l5w+fbpx48ayPDVq1Ni3b5+1w4DRAM7vEJCQkIB9+po1a7CRiY6OtnYe0TdR
2NoYy4BQ/MiRI7t3746MjBTPUrSBbf1rCffv3z9+/PjatWv3799/+/Ztg//F
M+Z/AZdwiIXExcXJHr2CnTt30kKJmMS+P+cSqOcQhiG05JDx48cXL168S5cu
EydOXL58+U8//RQQEEBPX8uXLy/9F77/O7BDGLXRmEMMbufLlCmjjQ/XbYAd
wqiNlhxy5MiRPn36eHt7I+ooUqRIlSpV/Pz8xo0bhz2OfX/IhWCHMGqjJYcw
StghjNqwQ7QNO4RRG3aItmGHMGrDDtE27BBGbdgh2oYdwqgNO0TbsEMYtWGH
aBt2CKM27BBtww5h1IYdom3YIYzasEO0DTuEURt2iLZhhzBq41iHMAyjDdgh
DMNkB0c5xNGRvvaxrX8ZxnLYIdqGHcKoDTtE27BDGLVhh2gbdgijNuwQbcMO
YdSGHaJt2CGM2rBDtA07hFEbdoi2YYcwasMO0TbsEEZt2CHahh3CqA07RNuw
Qxi1YYdoG3YIozbsEG3jbA6JjY0NCQnZt2+foyviAGJiYkJDQ9Epjq6InWGH
aBtL+veVSaztWdMsWLBAp9PVr1/fvsU6P7dv386dOzfu3dvb29F1sTPsEG1j
Sf96eXkZ/P86J8LDw63tXBPYyyGJiYnnz5+/d++eXWqVA+zdu5faM2/evM+e
PcvhX798+TKaKysrS43C2SHaxpL+9fHxKf4WoQ6RcvLkSWs71wT2ckhwcDDK
GTVqlF1qlQO8fPmya9euVapUmT17ds7/uru7O5orVZ1tFDtE21jbv0WKFMFg
27Jli7UdaiH2csjUqVNdyyEOBOEHbaNS2SGM9ajqkPT09AsXLjx8+NB0tvj4
+N9//50erSxatMi0Q1JSUhB1my1z2LBhVjnEwmIFr1+/jouLi4iIuH79emZm
pjID9iNXrlyRHkZFRaFBLCzfLHfu3EH5iF5M5EHFkA2VxJ4OFTaW7fHjxxRb
plrmEBQVHR2N7Y/pXxe4hEPQm4sXLx4xYkSnTp369es3ZcqU3bt3P3nyRJnz
wIED06dP7969e7t27TDANm3aJD2LqbFcDwaG8trNmzfTWbS59ZPVSbGvQz74
4IOiRYs+f/789OnTbdq0KViwIA3OatWqnT17Vpkf7V+xYkXKU6BAgV69es2Y
McOYQ7Zv3169evVcuXJRfoTfQUFBsvlbu3ZtT0/P0qVL58uXD3nwZ9G/c/jw
YRuKfaOXEi7fv38//r5hwwbckdjWlStXjp4kXL16tVixYn379p04cSJuB6ew
N0lMTJw0aVKhQoVwWLZs2WvXrokyPTw8iirw9/dX3ntISAhOTZ48GdN27Nix
KFY8PPn222+Vc/ncuXN9+vQpWbKkqGThwoVnzpyZkZEh8qxYscLLy6t8+fJi
i4rOldakVatWsmITEhICAwNpDAA3N7cWLVpI78ggzu8QNIW0rQSlSpW6efOm
yAYV9+jRQ5mtZcuWN27coDw//vgjJfr4+KDrpb8CddApaMqOU9jh2NchZcqU
wVk4HJMX4XGtWrXef/99arcSJUpgrZdmxuAX9mjQoAEmvugUpUMCAgKEjrp0
6dKkSRMKvz/99FNpNowEGv+U2axDLCwW9O7dG+mwB+22ALQDAaLyTZs2pTwI
uuh28CdkQtnq1q2r0z8+osNu3bqJMmUOoQwdO3ZUNuyyZctwqm3bts2aNaOx
Xa9evXfeeYcugXilmWkfR1SqVKl58+bIT4fDhw8X2YKDg+l3ybdmHXLmzBma
aPChr69v+/btoUQc5s+f/8SJE4aGw39xcodgSOTJkwc3glv28/MbOXIkugDt
Rm2CCJmyJScnY4mkxM8++wyNPG3aNCyUlPLJJ5+IAjt37kyJQ4cOFYmIcmkd
qVmz5oMHD+w+kR2IGg4BmIwQOCUiMyUuWbJE5Dx16hQt/egv4RZEejRKZQ4h
gWPNXbt2rUj87bff4CWa18qaYITrzO1lrCqWHIKZiz8Rt6xcuRJbsDf6/Rr2
C5SHHAK6du2KrdmaNWvoELZEoILgBH+vUKGCsfqQVE04hCYstnu070tKSkI7
k1KkmdGhUBZGOAJmSkEl+/fvTzcbExMjKzwyMpIKTzW+l8FejIIfBB7379+n
xLS0NIT9NC9MvOV3codQz0IgIpYgQkNDEUsgtqTDWbNm0cKxceNGaTZh7F27
dlEKBkbVqlUpEYMfKYjf0ES0lFy8eNEuM9d5UMMhn3/+uSy6pqEuXQQxFJGC
ppaNvfnz58sc8uLFC1pwESXKfm7hwoU6fSSprIlZh1hbLI000LBhQyxJBssk
hyCSwZjBIeaaTr/Toccgx44d0+lDI2NVMusQRDgoRJp+6NAhqhXCZmm6cneD
DSaFOlu3bpWdssQhtMfExgfikqZDI7hBnDIRiji5QxBGov5YvGRbDylPnz6l
1hs4cKDsFAYDhdCjR48WidhLUtQBacBCNHjgnx07dtg6U50XNRyybds2WTot
gtgs0OHr16+pHEwNWU7lexl0B7V/XFzcs78THh6OU/hRZU3MOsTaYmkYoNrK
dVxADhGWwLTFYZ06degQUTFFAsYuN+sQrGWydNIUuHz5ssEyEQ1ifQwKCho8
eDDNAqynsjyWOATbKFoFninAkmGwKwVO7pBJkybR7eMe4WToQpkHzUt5vvvu
ux0KKOrAFkZ6yerVq+kSsZHEHt9e09apyBmH0Ozo0KEDHcbGxlKrnj59WpZT
6RDsGnTmUAbSZh1ibbHkEITuJhon5x2CbSBVNSoqSpqO7dXXX39NzytkIPaW
FWKJQyjYMAF2asaudXKHoNfQKeJGChcujMhk/PjxaEORB6IwO1oQbMtKHjRo
kDiLwW/fmes85KRDxOy4desWNSyCAVlOpUPE0+wvjBAYGKisiVmHWFssOQQB
lfG2caRDULhIRIe+++67On0ohfADcQjCaVQGuzObHeLh4aHTP3k21lw7d+40
dq2TOwQcPHiwcePGMidAJhMmTKAMS5cupURka2eEMWPGyIoVz8d0+jjNvjPX
eXCIQ9LT0+n1B/Quy6l0CGIV6gV6yGAh2Dfp9A/GjWWwtlgXcgi9U+jevTsq
IM1szCEiUH/06JGxurVu3dp0e5rA+R1CwLSrVq3CPaLLxNzfsGFDqv6bEDqk
Z6SWgHElLQdGgqttmaJOj0Mc8ubtOBe7G8HYsWNlDvnrr7/c3NyQCM9bXk/s
3HWGXtHaXKyrOEQ8IZE9t8nMzPTx8THokMTERLrE4Dc8BFZknf7Bo3gpYzmu
4hApISEh1CYDBgzAIRqTDkeOHGlhCf7+/jr9A7fvvvuOXkGi+x4+fGhbfZwZ
Rzlk7ty51MKLFi2ilIyMDGxCqadk73aDgoIo88yZM6VvHG7cuIGS09LSlDVZ
sWKFTv+KRPrI5dWrV9Kl2apiXcUh4qPTdevWiWwXL15s0KABpSsd8ubt4w4o
Xfol7ZMnT8Tfk5KSKI+3t7c05qFX2Mp3PVKc3CGLFy+WPvognj59Sg9JsBmk
FHpwinXnzJkzykLOnz9/+PBhcThv3jxqbayJOBQDu0ePHrbPVWfFkv6tXbt2
3rdQU2BuipTjx4+LnJY7BGO1Ro0aVFqVKlUQZpOdaN8tc0hWVhb2m5QZGfD3
Xr16YVWlDZGwkBQYgCqTJ0+eVq1aYcPepk0b/IR0BllVrKs4BPj6+pIb0apY
Dekr3Pz589O3tQYdIsa8p6dnVz3o9EKFCklFevToUQTk1PuNGjUKCAjw8/Oj
15ru7u7SL2BlOLlDvLy8MDAmT54cERFBH7dfuXJl9OjR1CBYjCib2M4UL158
zpw5t2/fRuKff/4ZGhrap08ftMm4ceMoJxqKQtyPPvqICsSf9AYZYPVUazI7
CEv6V/pdtxLpFwu0VBlzCEamNBHjH3NWeAlxMgJm2ptjiCqrgZ2p+HqQqFy5
Mma6wTgEXL9+XSy+4iemTJliW7F9+/bFqSFDhphoKLKEzCGQkvSsCYfQPk7W
SgS9RTLhEOm/zXn06FGnTp3E7WCCdO7cOTo6mp41GXQIdIqoDJ4RV0E7qPmt
W7ek2eLi4tBl9CEuUbBgQVRYajAlzu8QcTtoAfrCkMDqk5ycLHIinBD/JoIy
S4cNOQRuoddhGGzS7+QR3NL3k9ALpowac9lR2Na/dgRTFZH2pUuXLPyPV6BP
IyMjsWTIvpw3BsZeeHh4WFgYOtfgP46zrVjn58GDBydPnkTbWv5fBcGGDo2A
toITjH1H90b/aAUzAq2KJrWkcCd3yKZNm1q3bk3Bp6BYsWIwRnx8vCwzGqdJ
kybSd8E6/WeEw4cPj4qKQgbx9fsvv/wiu3b79u10qnz58vC8vaaww3G4QxjN
4+QOIZKSkmDOPXpgAxPfrKbqv02FbHfs2IGNfExMjD0mogvDDmHUxiUcwtgM
O4RRG3aItmGHMGrDDtE27BBGbdgh2oYdwqgNO0TbsEMYtWGHaBt2CKM27BBt
ww5h1IYdom3YIYzasEO0DTuEURt2iLZhhzBqww7RNuwQRm3YIdqGHcKoDTtE
27BDGLVhh2gbdgijNuwQbcMOYdTGsQ5hGEYbsEMYhskOjnKIoyN97WNb/zKM
5bBDtA07hFEbdoi2YYcwasMO0TbsEEZt2CHahh3CqA07RNuwQxi1YYdoG3YI
ozbsEG3DDmHUhh2ibdghjNqwQ7QNO4RRG3aItmGHMGrDDtE27BBGbdgh2sbZ
HBIbGxsSErJv3z5HV8QBxMTEhIaGolMcXRE7ww5xaXbt2jVmzJjp06cby2BJ
/74yibU9a5oFCxbodLr69evbt1jn5/bt27lz58a9e3t7O7oudoYdYjN3796t
qmfo0KGOqsOwYcMwLEuWLGksgyX96+XlpTNOeHi4tZ1rAns5JDEx8fz58/fu
3bNLrXKAvXv3UnvmzZv32bNnOfzrly9fRnNlZWWpUTg7xGawstCo6NChg6Pq
YBeH+Pj4FH+LUIdIOXnypLWdawJ7OSQ4OBjljBo1yi61ygFevnzZtWvXKlWq
zJ49O+d/3d3dHc2Vqs42ih1iM3Fxca31TJkyxVF1sItDpBQpUgQFbtmyxdoO
tRB7OWTq1Kmu5RAHgvCDtlGp7BBGgWMdkp6efuHChYcPH5rOFh8f//vvv9Oj
lUWLFpl2SEpKCqJus2XSjVvuEAuLFbx+/RprRERExPXr1zMzM5UZsB+5cuWK
9DAqKgoNYmH5Zrlz5w7KR/RiIg8qhmyoJPZ0qLCxbI8fP6bYMtUyh6Co6Oho
bH9M/7rAJRyC3ly8ePGIESM6derUr18/rPu7d+9+8uSJyBAWFrZ8+fINGzYo
rw0NDcWpw4cPixSMJaSsXLmSDjGuDh48iMNffvll06ZNOLV161aD1aBfAdiM
U8q6detwGB4eTofWXk4cOHBg+vTp3bt3b9euHSYFCjHWDlevXv3pp5969uz5
2WefDRw4cP369fgzJx3ywQcfFC1a9Pnz56dPn27Tpk3BggVpcFarVu3s2bPK
/LiXihUrUp4CBQr06tVrxowZxhyyffv26tWr58qVi/Ij/A4KCpLN39q1a3t6
epYuXTpfvnzIgz+L/h10tA3FvtFLCZfv378ff8dAwh2JbV25cuXoSQLav1ix
Yn379p04cSJuB6ewN0FvTpo0qVChQjgsW7bstWvXRJkeHh5FFfj7+yvvPSQk
BKcmT56MaTt27FgUKx6efPvtt8q5fO7cuT59+qDfRSULFy48c+bMjIwMkWfF
ihVeXl7ly5cXW1R0rrQmrVq1khWbkJAQGBhIYwC4ubm1aNFCekcGcX6HoCmk
bSUoVarUzZs3Kc/XX3+NlHfffVd5OYY9TnXp0kWkUBgM7t+/P2jQIArzqMUw
i/GXPHnywMPKojDycfa99957+vQppaDjkPLNN9/QobWXY/no0aOH8tZatmx5
48YN2eWrVq2in1OSYw4pU6YMzsLhmLxot1q1ar3//vtUhxIlSmCtl2bG4Bf2
aNCgASa+qLDSIQEBAXQKkxed1aRJE+qXTz/9VJoNd0rjnzKbdYiFxYLevXsj
Hfag3RaAdiBAVL5p06aUB0EX3Q7+hEwoW926dXX6x0d02K1bN1GmzCGUoWPH
jsqGXbZsGU61bdu2WbNmNLbr1av3zjvv0CUQrzSzGMCgUqVKzZs3R346HD58
uMgWHBxMv0u+1ZlzyJkzZ2iiwYe+vr7t27eHEnGYP3/+EydOGBoO/8XJHYIh
gSmJG8Et+/n5jRw5El2AdqM2QYRM2WxzCNYX6UyEQ3bs2EF/Rx5ZOb/99hud
+v7770WizCFWXZ6cnEx1A4grcMm0adOwuFPKJ598Ir18zZo1lI4p0KhRIywW
n3/+uVBrDjsEYDJC4JSIzJS4ZMkSkfPUqVO09KO/hFs2b95MdZY5BLGZTr/m
rl27ViSixeAlmtfKmmCE68ztZawqlhyCmYs/EbcgLsUW7I1+v4b9AuUhh4Cu
XbtiayY6BbZEoILgBH+vUKGCsfqQVE04hCYstnu070tKSkI7k1KkmdGhUBZG
CzYplIJK9u/fn242JiZGVnhkZCQVnmp8L4O9GAU/CDywtlJiWloawn4k1qxZ
08Rbfid3CPUsBCJbl7FD8fHxQWxJh7Y5BHz00UcY+dhRYjO7d+9eRAgUe1eu
XBkjX1rOkCFDdIoYQ+YQqy6fNWuWTr/Ybdy4UZpTVG/Xrl2Ugt0W6Q4TEMG2
yAkLURiTww6BvmTRNQ116SKIoYiUqlWrysbe/PnzZQ558eIFLbg//vij7OcW
Llyo00dlypqYdYi1xdJIAw0bNkTDGiyTHAKNI+bHIeYarUT0GOTYsWM6fWhk
rEpmHYIIB4VI0w8dOkS1wo5Jmq7c3WCDSaEOttKyU5Y4hPaY2PhAXNJ0aITG
nolQxMkdgjCS5ojsGYIM2xzy888/y2Y6QJxAZ3/99VeRCOHTAip7jStziOWX
wzbU4wMHDpRVAAOYwv7Ro0dTioiuoTtZ5hx+pkoO2bZtmyydFkE0Mh2+fv2a
ysHUkOVUvpfB1p5cGhcX9+zvhIeH4xR+VFkTsw6xtlhyCKqtXMcF5BBhCUxb
HNapU4cOERVTJGDscrMOwXIvSydNgcuXLxssE9Eg1pqgoKDBgwfTiMLaJMtj
iUOwjaJV4JkCLBkGu1Lg5A6ZNGkS3T7uEU4WTxJk2OYQg6UhTqDdU8+ePUXi
unXr6JLdu3dLMysdYuHlGBKU8t133+1QgOUbpzp37kyZaYZiA441QlZbJ3EI
zQ4Ykg5jY2Pp7k6fPi3LqXQIdg06cygDabMOsbZYcghCdxONk/MOwRpHVUWc
LE3H9gpjnp5XyMDwlhViiUNk+3ol2KkZu9bJHYJeQ6eIG8GcRWQyfvx4tKE0
mx0dAmh8IrC8d+8epfj6+ur0z69kcYvSIRZeLp6cmAAbBMpMz9mwVVdW1akc
ImbHrVu36BYQDMhyKh1CTy3AF0YIDAxU1sSsQ6wtlhwCXRtvG0c6BIWLRHQo
hrpOH0oh/EAcgk09KoPdmc0O8fDw0OmfPBtrrp07dxq71skdAg4ePNi4cWPZ
/MLknTBhgshjX4egUyjDvHnzcHjt2jV6PKj8ZykGHWLJ5UuXLqU8uLV2Rhgz
Zgxlrly5MnJCRMqqOqdD0tPT6fUHVCnLqXQIYhVqCnrIYCHoUFwydOhQYxms
LdaFHELvFLp3744KSDMbc4gIeh89emSsbq1btzbdniZwfocQMO2qVatwj+gy
YRLxQQg5BPtB5YU2OAQdR68s69ati0N63u7m5oadsiynQYdYcvmBAweoDpit
Zu+dnli6UBzy5u04F7sbwdixY2UO+euvv9A4SIQzLa8ndu46Q69obS7WVRwi
npDInttkZmb6+PgYdEhiYiJdYvAbHgIrMg0k8VLGclzFIVJCQkKoTQYMGEAp
I0eO1OkfoCm1YINDpHlOnDhBr1q6deumzGbQIZZcjgFAGVBzs/fbs2dPnf5x
H9YR2SmndcjcuXOpRxYtWkQpGRkZ2ITSXcve7QYFBVHmmTNnSt843LhxAyWn
paUpa7JixQqd/hWJ9JHLq1evpEuzVcW6ikPER6fr1q0T2S5evNigQQNKVzrk
zdvHHVC69EvaJ0+eiL8nJSVRHm9vb2nMQ6+wle96pDi5QxYvXix79JGqf6lB
D0mwGaQUGrEA67s0Z1hYGL0QsdYh2NHTT4gvBqUvVQXGHGLJ5fTgFGvlmTNn
lCWfP39efFtL7910ivcy8fHxrVq1yr5Dateunfct9EOYmyLl+PHjIqflDsFY
rVGjBpWGRkCYTXaifbfMIVlZWfR5HmXA33v16oVVlTZEwkJSYACqTJ48edAI
2LC3adMGPyGdQVYV6yoOAfR4DW5Eq/r7+9NXuPnz56dvaw06BNtqKsfT07Or
HnR6oUKFpCI9evQojWf6BikgIMDPz49eEbq7u0u/gJXh5A7x8vLCwJg8eXJE
RAR93H7lypXRo0dTg2Axomxia4BmPHLkCKbw7t27+/btK75wttYhAH2tewuK
NZjHmEMsuVzUuXjx4nPmzLl9+zYS//zzz9DQ0D59+qAfx40bRzkRXtIExOhd
sGABWgDagTbFs/RsOkT6XbcS6RcL9IvGHIKRKU3E+MecFV5CJREw094cQ1RZ
DexMxdeDROXKlTHTDcYh4Pr162LxFT8xZcoU24rFaMGpIUOGmGgosoTMIZCS
9KwJh9A+TtZKBL1FMuEQ6b/NQTjaqVMncTsYG507d46OjqZnTQYdAp0iKoNn
xFWYGqg5Zoo0W1xcHLqMPsQlChYsiApLDabE+R0ibgctQF8YElh9kpOTRU76
kkSGGMA2OGTPnj2iHLS/wTwmHGLJ5YjtheXoBqWVFw5JlYQiBrHjXsbuYKoi
0r506ZKF//EK9GlkZCSWDNmX88bA2AsPD0fACQkb/MdxthXr/Dx48ODkyZNo
W8v/qyDY0KER0FZwgrHv6N7oH61gu4dWRZNaUriTO2TTpk2tW7cW/6SFKFas
GGYfInlpTtw1BfaCJk2anD17FjGb7u+PI6ZPn64z8vBECgYbvRCBlu/evWsw
D33VM2rUKNsuT9XvtlBP6ftrnf7Tx+HDh0dFRUlzYlsnlQyiFwSo9DzE4Asp
wuEOYTSPkzuESEpKgjn36MHMMvbNKqYtsm3ZsmXXrl0mpq0TQqvkjh07jh8/
rnz7I8CNo9HWr1+PjblpAQrYIYzauIRDGJthhzBqww7RNuwQRm3YIdqGHcKo
DTtE27BDGLVhh2gbdgijNuwQbcMOYdSGHaJt2CGM2rBDtA07hFEbdoi2YYcw
asMO0TbsEEZt2CHahh3CqA07RNuwQxi1YYdoG3YIozbsEG3DDmHUhh2ibdgh
jNo41iEMw2gDdgjDMNkh5x3CMMz/MuwQhmGyAzuEYZjswA5hGCY7sEMYhskO
7BCGYbIDO4RhmOzADmEYJjuwQxiGyQ7sEIZhsgM7hGGY7CD1Rnx8PP6elZXl
2CoxDOMqQBeQBtRBhwkJCThMT093bK0YhnEVoAtIA+qgw5SUFBwmJiY6tlYM
w7gK0AWkAXXQYWZmJm1nUlNTHVsxhmGcH4iCNjJQh0hMS0ujJyTQC6IUfjbC
MIwMaAFyoAgEQBqyDEihaIRhGMYEEIVSIAQiE2xwEhISWCYMw8iAFiAHKEK6
hWEYhmEYhmEYhmEYhmEYhmEYhmEYhmEYhmEYhmEYhmEYhmEYhmEYhmEYhmEY
hmEYhmEYhmEYhmEYhmEYhmEYhmEYhmEYhmEYhmEYhmEYhmEYhmEYhmEYhmEY
hmEYhmEYhmEYhmEYhmEYhmEYhmEYhmEYhskZ/h9lOIZM
"], {{0, 140.}, {182., 0}}, {
0, 255},
ColorFunction->RGBColor,
ImageResolution->144.],
BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
Selectable->False],
DefaultBaseStyle->"ImageGraphics",
ImageSizeRaw->{182., 140.},
PlotRange->{{0, 182.}, {0, 140.}}]], "Output",
TaggingRules->{"AttachedInlineCell" -> CellObject[652449]},