-
Notifications
You must be signed in to change notification settings - Fork 0
/
TSTExactPDF.nb
2925 lines (2893 loc) · 144 KB
/
TSTExactPDF.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/mathematica *)
(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)
(* CreatedBy='Mathematica 7.0' *)
(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[ 145, 7]
NotebookDataLength[ 144595, 2916]
NotebookOptionsPosition[ 143448, 2874]
NotebookOutlinePosition[ 143833, 2890]
CellTagsIndexPosition[ 143790, 2887]
WindowFrame->Normal*)
(* Beginning of Notebook Content *)
Notebook[{
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"(*", " ",
RowBox[{
RowBox[{
RowBox[{
"Exact", " ", "density", " ", "of", " ", "the", " ", "Student", " ",
"two"}], "-",
RowBox[{"sample", " ", "t"}], "-",
RowBox[{
"statistic", " ", "for", " ", "odd", " ", "sample", " ", "sizes", " ",
SubscriptBox["n", "1"]}]}], "=",
RowBox[{
RowBox[{
RowBox[{"2", "m"}], "+",
RowBox[{"1", " ", "and", " ",
SubscriptBox["n", "2"]}]}], "=",
RowBox[{
RowBox[{"2", "k"}], "+",
RowBox[{"1.", "\[IndentingNewLine]",
RowBox[{
RowBox[{"Sample", " ", "variances", " ", "are", " ",
SuperscriptBox[
SubscriptBox["\[Sigma]", "1"], "2"], " ", "and", " ",
SuperscriptBox[
SubscriptBox["\[Sigma]", "2"], "2"]}], ",", " ",
RowBox[{
SuperscriptBox[
SubscriptBox["\[Sigma]", "1"], "2"], "\[NotEqual]",
RowBox[{
RowBox[{
SuperscriptBox[
SubscriptBox["\[Sigma]", "2"], "2"], ".", " ", "Ray"}], " ",
"and", " ", "Pitman", " ",
RowBox[{"(", "1961", ")"}]}]}]}]}]}]}]}], " ", "*)"}],
"\[IndentingNewLine]", " ", "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"ExactTSTPDF", "[",
RowBox[{
"m_", ",", "k_", ",", "\[Sigma]1_", ",", "\[Sigma]2_", ",", "u_"}],
"]"}], ":=",
RowBox[{"Module", "[", " ",
RowBox[{
RowBox[{"{",
RowBox[{
"a", ",", "b", ",", "\[Sigma]", ",", "\[Alpha]", ",", "\[Beta]"}],
"}"}], ",", "\[IndentingNewLine]", " ", "\[IndentingNewLine]",
" ",
RowBox[{
RowBox[{
SubscriptBox["\[Sigma]", "1"], ":=", "\[Sigma]1"}], ";",
" \
",
RowBox[{
SubscriptBox["\[Sigma]", "2"], ":=", "\[Sigma]2"}], ";",
"\[IndentingNewLine]", "\[IndentingNewLine]",
RowBox[{"a", ":=",
FractionBox[
RowBox[{
SuperscriptBox[
SubscriptBox["\[Sigma]", "1"], "2"],
RowBox[{
RowBox[{"(",
RowBox[{
FractionBox["1",
RowBox[{
RowBox[{"2", "m"}], "+", "1"}]], "+",
FractionBox["1",
RowBox[{
RowBox[{"2", "k"}], "+", "1"}]]}], ")"}], "/",
RowBox[{"(",
RowBox[{
RowBox[{"2", "m"}], "+",
RowBox[{"2", "k"}]}], ")"}]}]}],
RowBox[{
RowBox[{
SuperscriptBox[
SubscriptBox["\[Sigma]", "1"], "2"], "/",
RowBox[{"(",
RowBox[{
RowBox[{"2", "m"}], "+", "1"}], ")"}]}], "+",
RowBox[{
SuperscriptBox[
SubscriptBox["\[Sigma]", "2"], "2"], "/",
RowBox[{"(",
RowBox[{
RowBox[{"2", "k"}], "+", "1"}], ")"}]}]}]]}], ";",
" ",
RowBox[{"b", ":=",
FractionBox[
RowBox[{
SuperscriptBox[
SubscriptBox["\[Sigma]", "2"], "2"],
RowBox[{
RowBox[{"(",
RowBox[{
FractionBox["1",
RowBox[{
RowBox[{"2", "m"}], "+", "1"}]], "+",
FractionBox["1",
RowBox[{
RowBox[{"2", "k"}], "+", "1"}]]}], ")"}], "/",
RowBox[{"(",
RowBox[{
RowBox[{"2", "m"}], "+",
RowBox[{"2", "k"}]}], ")"}]}]}],
RowBox[{
RowBox[{
SuperscriptBox[
SubscriptBox["\[Sigma]", "1"], "2"], "/",
RowBox[{"(",
RowBox[{
RowBox[{"2", "m"}], "+", "1"}], ")"}]}], "+",
RowBox[{
SuperscriptBox[
SubscriptBox["\[Sigma]", "2"], "2"], "/",
RowBox[{"(",
RowBox[{
RowBox[{"2", "k"}], "+", "1"}], ")"}]}]}]]}], ";",
"\[IndentingNewLine]", "\[IndentingNewLine]",
RowBox[{
RowBox[{"\[Alpha]", "[", "r_", "]"}], ":=",
FractionBox[
RowBox[{
SuperscriptBox[
RowBox[{"(",
RowBox[{"-", "1"}], ")"}],
RowBox[{"m", "-", "r", "-", "1"}]],
SuperscriptBox[
RowBox[{"(",
RowBox[{
FractionBox["1",
RowBox[{"2", "b"}]], "-",
FractionBox["1",
RowBox[{"2", "a"}]]}], ")"}], "r"],
FormBox[
TemplateBox[{
RowBox[{"m", "+", "n", "-", "r", "-", "2"}],
RowBox[{"m", "-", "r", "-", "1"}]},
"Binomial"],
TraditionalForm]}],
RowBox[{
SuperscriptBox[
RowBox[{"(",
RowBox[{"2", "a"}], ")"}], "m"],
SuperscriptBox[
RowBox[{"(",
RowBox[{"2", "b"}], ")"}], "k"],
SuperscriptBox[
RowBox[{"(",
RowBox[{
FractionBox["1",
RowBox[{"2", "b"}]], "-",
FractionBox["1",
RowBox[{"2", "a"}]]}], ")"}],
RowBox[{"m", "+", "k", "-", "1"}]],
RowBox[{"r", "!"}]}]]}], ";", " ",
RowBox[{
RowBox[{"\[Beta]", "[", "r_", "]"}], ":=",
FractionBox[
RowBox[{
SuperscriptBox[
RowBox[{"(",
RowBox[{"-", "1"}], ")"}],
RowBox[{"k", "-", "r", "-", "1"}]],
SuperscriptBox[
RowBox[{"(",
RowBox[{
FractionBox["1",
RowBox[{"2", "a"}]], "-",
FractionBox["1",
RowBox[{"2", "b"}]]}], ")"}], "r"],
FormBox[
TemplateBox[{
RowBox[{"m", "+", "n", "-", "r", "-", "2"}],
RowBox[{"n", "-", "r", "-", "1"}]},
"Binomial"],
TraditionalForm]}],
RowBox[{
SuperscriptBox[
RowBox[{"(",
RowBox[{"2", "a"}], ")"}], "m"],
SuperscriptBox[
RowBox[{"(",
RowBox[{"2", "b"}], ")"}], "k"],
SuperscriptBox[
RowBox[{"(",
RowBox[{
FractionBox["1",
RowBox[{"2", "a"}]], "-",
FractionBox["1",
RowBox[{"2", "b"}]]}], ")"}],
RowBox[{"m", "+", "k", "-", "1"}]],
RowBox[{"r", "!"}]}]]}], ";", "\[IndentingNewLine]",
"\[IndentingNewLine]",
RowBox[{
SuperscriptBox[
RowBox[{"(",
RowBox[{"2", "\[Pi]"}], ")"}],
RowBox[{
RowBox[{"-", "1"}], "/", "2"}]],
RowBox[{"(",
RowBox[{
RowBox[{
UnderoverscriptBox["\[Sum]",
RowBox[{"r", "=", "0"}],
RowBox[{"m", "-", "1"}]],
RowBox[{"(",
RowBox[{
RowBox[{"\[Alpha]", "[", "r", "]"}],
RowBox[{"Gamma", "[",
RowBox[{"r", "+",
FractionBox["3", "2"]}], "]"}],
SuperscriptBox[
RowBox[{"(",
RowBox[{
FractionBox["1",
RowBox[{"2", "a"}]], "+",
FractionBox[
SuperscriptBox["u", "2"], "2"]}], ")"}],
RowBox[{"-",
RowBox[{"(",
RowBox[{"r", "+",
RowBox[{"3", "/", "2"}]}], ")"}]}]]}], ")"}]}], "+",
RowBox[{
UnderoverscriptBox["\[Sum]",
RowBox[{"r", "=", "0"}],
RowBox[{"k", "-", "1"}]],
RowBox[{"(",
RowBox[{
RowBox[{"\[Beta]", "[", "r", "]"}],
RowBox[{"Gamma", "[",
RowBox[{"r", "+",
FractionBox["3", "2"]}], "]"}],
SuperscriptBox[
RowBox[{"(",
RowBox[{
FractionBox["1",
RowBox[{"2", "b"}]], "+",
FractionBox[
SuperscriptBox["u", "2"], "2"]}], ")"}],
RowBox[{"-",
RowBox[{"(",
RowBox[{"r", "+",
RowBox[{"3", "/", "2"}]}], ")"}]}]]}], ")"}]}]}],
")"}]}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}],
"\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]",
RowBox[{"Plot", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"ExactTSTPDF", "[",
RowBox[{
"1", ",", "2", ",", "1", " ", ",", "1.001", " ", ",", "x"}],
"]"}], ",", "\[IndentingNewLine]", " ",
RowBox[{"ExactTSTPDF", "[",
RowBox[{"1", ",", "2", ",", "1", " ", ",", "0.5", ",", "x"}], "]"}],
",", "\[IndentingNewLine]", " ",
RowBox[{"ExactTSTPDF", "[",
RowBox[{"1", ",", "2", ",", "0.5", ",", "1", " ", ",", "x"}],
"]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"x", ",",
RowBox[{"-", "5"}], ",", "5"}], "}"}]}], "]"}],
"\[IndentingNewLine]"}]}]], "Input",
CellChangeTimes->{{3.5121484034023438`*^9, 3.512148436973633*^9},
3.5121486408759766`*^9, {3.5121491386435547`*^9, 3.5121491420302734`*^9}, {
3.5121492432070312`*^9, 3.512149263265625*^9}, 3.512149310192383*^9, {
3.5121494035810547`*^9, 3.5121494270029297`*^9}, {3.5121607160908203`*^9,
3.512160756665039*^9}, {3.5121608011445312`*^9, 3.512160829330078*^9}, {
3.512161284375*^9, 3.5121613161845703`*^9}, {3.5122345791640625`*^9,
3.5122349122001953`*^9}, {3.512235226727539*^9, 3.5122352755126953`*^9}, {
3.5122357226367188`*^9, 3.5122359452822266`*^9}, {3.512236010004883*^9,
3.512236038942383*^9}, {3.512236490794922*^9, 3.5122364945722656`*^9}, {
3.515074211022461*^9, 3.5150742258935547`*^9}, {3.531950077247332*^9,
3.531950095124918*^9}, {3.5319511999793673`*^9, 3.531951334993018*^9}, {
3.5319513750466757`*^9, 3.531951378272079*^9}, {3.531951626861802*^9,
3.5319516270969257`*^9}, {3.531951662638042*^9, 3.5319516745744343`*^9}, {
3.531952940335586*^9, 3.5319529481194*^9}}],
Cell[BoxData[
GraphicsBox[{{}, {},
{Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJw1mnc4l2/UwO09v9+G0bIjWyjhPEhSUtlENmXvEYnI3jN7hlSysirPky1+
9vhaUUaKRGaE9/te1/v+cz/X5zrnXPdzxn2f88fNZeGsZU1GQkKiSFz+9/v4
+60/R0d4jFf8jFXJX21Y9DuxNfkPj8kNrhZa0+uAJsvMTt1fPLZd9c1E+rQO
nLvscuC8gceGPpJE0yrpQHNkIs3sIh6TJjnxNTRCB2hEx85g/+ExRUsJzcXT
upDsYXYzMBOPrT/viWjR0YMDGkFN4+d47OZDCtzYAz2wyV6/cykFj+V7+KQe
+uuBbPtTvbVYPCZuQLse8UIPJk6+MDd7isdut1+8nryjB+fe//BGHuIxnhML
65G5+vCK1L2IRBaP6WJZF/KPDOCSdhlVuhQe62ML4rrJZgjtRV8fSIjjMdmr
YaQsEoYwq3ZHxEIQj0Vh+STLFoZwIlaktoUTj/F5MIf86DCEpxxLHaEkeMx8
Y1mbL80IDKRMlhk+47CT82bpoTeNYTEk+daLdhwm20/S3WtrDO6j3W8VWnDY
TAattEyIMcT6ynk4fcBh9O901S0/GkMLevKgrxyHSWETsXISJiCqMciUlITD
/DUMZY7O3AdKazVJdhMc1qPVdPEfrRkM3pfQXzbEYQpNxzr52M0gx4DT/6Me
DqPKPSloet4MZDR+t5nfwWERUfRZpGpmYCOVZlimgsOi/QrlqZ+ZQSfp98Ar
QjjM/dV/jnwU5hCdE9pnssOKRf5wuyXJbAEGz102xTZZMdb/LFt8z1kAb6IR
O9k6K/a1RcRhSMICPj4TtSz+yYr1TT16+VHHAlYdRrdXp1mxzYsjbC6ZFnDn
Cv+ZwFZWLDXnqY2psCXgCW0OBQms2MNejV+kJlaAXcgPD4llxfgv5D7Vc7EC
hyf+RTZRrNjUVqwSGmwF7fxSU0LPWLFbxs5p/5VZwSPPvJvVPqwYZ2cv1+xf
K/iG8xNqNWXFlgzJGdczraHqlvjSgggrJkzdO2O3ZgOm+fQUnUKsmFScXZYb
lS0wbC2eLRNgxfAXjsUknLIFm6xsfScuVmx+6prHcXVb4Fim69g+xopFJ1sj
lwpt4Wn4wgvqfywYuwqnA6nxA9BqybAU/MyCBYz55FnPPgTe4fkvHe0sGFCL
Tb3afwjb86JGNi0sWO5ceDzrSTtIp2q5U/iBqB8lsHdF0w5m1ZcVTr9lwd4e
hvGwNtmBY/8VNtZkFiwkjzAxU2gP4dNTPbsmLJhauOBlyQhHMFrlv55mxIKx
mQ2X1pY6gvCRS4u0Pgumv2UyZNrpCH3nKBvd7rBgmSYiDFw0TnDCSqRkRZkF
K7hUec4qwgkKfz4OmhVgwQy/RFKdSHIGv98KDvFzzNj7QccC+OYCWeayS8g0
M3a2qG9cZcMFPgyJW62PMmPFqzKoEYUrHNbxGGt9ZsaUFjaWMX5XeBpIq3Gs
khnTHD11ydXBFSJZRy48DyDa29PLe+67QoaUw3IuOzPmujPS8ea8O7x/YW17
B8+M1bpanL0o7w5TJ03nSBiZsfPJysf7b7vDmX93J81JmLEH9FRK6t7uUNAq
283znQnz2D60Uelwh5e65K9KapgwP9K+Dkd7D6j3zrB7e5sJW7Hbu2zQ5gnc
Vq4vCNeZsBvzTc0l054Qc+f6LKkyE7agy//u2LYnWAhu6+pcZMI8x686qgl4
Af3kXaW/bEzY64xQnWNRXnBfkZZN5RsjJl7aveRo4A3klD5tox6MWNw0K48c
vS84rWuSkDgxYsIcxUnBAr5AmOa7ImjLiDHakz37reILr2uHKvwMGTHbf1JZ
Yo99Qe+BWNY5RUZseNEzUHfdF0q7F93sqBmxRRplRrPZR6CZqHvuMJ0Bc5al
OPVhwh8eSTKrqyUxYOG1yR+P7/tD8WCna3w0A7YV42GTyvkYDnHyLdxPGLA0
t9pERpPH8CaJ20bNigG7VB77mfD1MTCk/H4VL8qAMSzlnWHeCIDPaRGyPC30
2PlfB6y1GYGwLati5vCBHrOW/hXy7E0gcBP+hb97R48lbNT02WOB8IjNZUKt
lB5rNpUyfbwYCILpeo8dYuix02xS6XVSQRCewdPyTp8eWySR9C0YDAK17I+a
11fosLXI5VFBnmBYi5n6R7FIh3nTk3qkyAZDRsB+2acZOsx4z1CbTSMYVkwv
U18ZosMiKxhUrTyDIZH7HSrSSIc9XHE7ONkVDF9KXovjw+kwnX1DM2rPEPCq
ysR94aHDDs4Otg7MPINzhY1Yxmk6LCIzU9hk5xl0JY076Z+kwyaqVILJmUPh
lOfJ7n46OiwgEvHLVwyFZtmk4JZ1Wuwex8Zx/txQYPoYuVmK0mIk75JtnKzD
oLjDd9T9Hi32xXKtaZE6AtIlvVRe6tBiGzZ+3MZ8ERCd7Vbx5RYtdt5QXWJb
OQLc3O0j1RFajLG4kz49IAIUzpoonuWjxWSvdI/l7ETAsBdS/HmVBktUfVw5
vBYJZPzUXlxPaTA9ZdHmq6QxsBVPPqfnR4MFfUwSLOeJgaX9o9vRHjSY65fV
J8rXYqB3YFdwx4YG84jjG1qJioH0xz+ne27SYB1IKKMmeyyIj/yn6nOcBjMK
ogt0l4+D+yHJx/tKqTHdgJctq4Px0Avb1D4F1Ji4snxa1UI8wL7+3rksauzM
8TL16N14OOfGOeMWR41xqjyrCDqTAN9MC0pPeFFjmWF2et72CWBzpeLKfRVq
zPf5m+ki2kRw+tNt/muaCpPwgIA2/ST48kZEJ3WMCoubGM7zcUyC2w/jrsEA
FYZX+kmtGpwE4rNaFxJaqbBrn3FsQm+T4M9/45sXXxHt+5I8z9Mkg9fL72H+
PlRY518SSRY0GQLMyMvp8US5RZ2bhVIqVPSpxQ4zUGFzn2+e3zNMhW+K0U7Z
VFQYq+/K1Bu3VLh2+riY2B4l9r2bWDNFqcA0wV+h9ZUS00u1nZShTYMc7RtV
6W8pMbYrWuLKhDRAryXUCmhQYs0RbfukMenw591I6poqJdZlYYczeJkOvHwc
3g1AidE4mKj2tqVDOHmh7E0poj7jVBTnUTrcwWrqnTgoMWbjVk8F9wyYvUxo
fLdEgW20hf3+aJ4JJCJnUZVnFJjxWFtppUE2+J9Quv8sgAI7u5+7z+afDTtH
Fgft3hTYGcHhqFe52bA6WHzlhh0FJnCcXFj7ezZM+ojW37lNgWXuyixU+uRA
batCpQk7BbbGV1ExXpgLjsbGhd5vyLEeZ8OPuUz5sKQaoNxQTI6Z0bpwXebJ
ByuxvK97ueRY7UGP/bJsPhiRzZ8NSCTHnKNSuDLN8+F6qX1WiDc59ujG1Gmh
2nzg3XyUkqBEjnWwPSQ/a1UAE1HpYa9GyLCqhxogOlwIQ23nXpv1kWHUJxXn
A38WQs9RSf/xLjKsIt3feIWkCJrca9kDP5BhttJCgkyiRVBwb+iVTiEZljxa
++NJRBHYXWDsP3Ahw0qjfOYlVF/A/udAtjsMZNg109SXQf3FsElBo0BJRYbR
GUvHn/1ZDKuKceaNR6RYyKblo3HyEpityi7j3SDFPBRIW/NlS6A1o1H+7zgp
1jWxzBKWVwLRdptmBSWk2Cavxc/33qVwiu7By01lojyO9UWUfBncb+qJ5pYn
xb6MkTfqGpdBvpuEyx1pUkxN3KX2qn8Z8E/uybwWIMXyhc/8SfhQBmKvY1ot
GUgxJQ1OnV+Kr0BZs3pmcIQEky2KG2m/8RoeJh4er3xAgoWHiuwdPimH19cs
/34xJ8EiKjj3y4rKYXWvY4rhHgn2jIP7XmBXObhZJhQ+uEWC4TjedZXg34L/
RV6Jc5IkWG7s5O1fL9/CmTdJz8/sHKEtynXIZecKsJcWopw8ReTT8priNZXg
RtlQ4sV8hD4JDr021VkJj0bUbuDIjlBP7z7dnOlKiPS0jlP/foiKvRX7Z0Vd
BWXv8tjrKw9RD9rzlw7vVcEP6ZOiKdcOUYpjzkNOtNVgK0Ohf9vlAP3b8aKz
wbMGLGW/lLa07KPlU6ll2ml1YFMqq3etbh+V5izmv1hRB3bsCeRdZfsox1OS
0xe66sBlX+V+b8I+emNHLd94vw780Zf4cdN9dHFg4HSfWT0kq3kGrO7voUbG
l2/siTVAuz6DDvvFPZTzjLl/yUwjCPnIHTkV7aKngh/gfz9rAmxaU2gudReV
/uuyq1bSBHoqlrr6Ebuoas6i8sfOJnjKFP0KnHbR7Tx6/AE9CuNF0/osl3bR
F6VqkwNJKIQPBFZUdu+g1JcqYx7oYLAo1GG++WcbXeEbiWXx+AT509qtvkpb
6Cl6RR+P6Rb4HnRcXo3tD0opN6pTudQJjSnnVZf0fqHUpNFCdNu9IP5jfFMs
exF9XV3T3BgyCB5rIoInQxZR4xekSGfcINTvBJkc2i2iiZ4LswMZg6BEJdTe
c2kR/Xiwe2W8YhC0eB6lPRxeQF1/RrDXTg2CpwmHXCH9AhorIGCWKjUEjQNG
T048mkPfTNtF3Z8egkNCefWB2RxKc2pFqvP7ECjPki3Nq82hf0KXzC78GYLu
1bI71cfn0JGs8j/TVMMwRb/PdafyG+q0TJK9LjYMR6qZrRFLX9EpCQFlLHAY
rjZO0h7ozaISGo6OVqdGoLzsxeWOK7Oo3r4wXx7/CLBlOj9MODeLbtDWHR8Q
H4HRHarEm8MzKEmTjDROdQT4/PRYsve+oDIuLY+YHEegOWiLAVGbRu1sFSvH
GkfgX6wUVejsONqudSxwU2MU+p07rDnKxlFe7ZnNQt1RKLxzr63cfRwV4fC/
r3p/FG7ggkPGqMbRMH6ZNybOo5CeMkgmKEJA2/4bjvgaPwoyWa5H3b6jaOp2
uhDXwCi4vHy7y4ofQov8Utm+qI6BOJNTsPLsIBpimGEurDEG627CTO5vBlGl
Gx/W7bXGwE3+Jc+w2iCKvy77oun+GHj2FWim+g+gH5WVEyq8xmDj5wV16Z4+
lPfTg4r6wjHwqCm9n2rTh7o+TVnHvxyD7cd8Hjskfejhtb+BpuVjsMtyNrdB
uhe1VVS821E/Bv9kcFsKuT2o088QMULPGFAF7+Zdc+tCOTmHeDbWxyBMw7O2
hKELvWxvu6CxPQY0J/5005R0otSzd7lT98aA7uXy9ufJDjT/E8fMNhkBmPu+
aNxWbUcNaRx413AEiH9+z6Jipg0d5nj8pPUEAXAWBG/WR20oQsP/L4yDAMe2
BgqGylvR/uJq8SkuArBxtu3qs7WgirTSjvViBEifV2JqqGpGKZeeNFJIEYCj
vImH41YzyiPZMgEyBDitVK85FfQJvRlz3+WpPAFUevXUP42iaE1h26HsdQJc
M7/jEUyPolIz6et/bxDg+qZ6rirShK6mW3uU3SKABofCVtfLD6hvdyv9mBYB
9Gx48gf9G1DzJttGE2MCRLq6hye+q0fdNnrcw+8T4KN/i7PWah0awLkoXWBG
AN4kS8VB01pUMi/pY4EVAQxyqvkSn79D004b+0TYECDqJTmj1kANynOCl9/0
AQH+oIWTA8rVqBYNudqYPQH4uzeaE/yqUEvysgpfRwIYjqqU3a2pRN8Mhe7R
ORMAW5nzGeCrQOe/zZ3ecyXA0m9bjPtjOdoW6vpb350At6lo4gpE36BxbpcT
ijwIcEbqunABaxl6YBcgS+dNgGfqS3tcwaWoa5WHNI8PgTiPhnflbxajZFW5
20K+BND2Ov+cy+YF+u+jgA/XIwI0Rnfa5I8Voj3SLnVUfgTgKnwgzaVegGLC
pFUTRA5voKHIb8xDV0+/ts72J8CX3LsvlAxy0L1bav2ajwnwpidBWelKJsps
SLe2SmS/vwMzyJnn6DVf/pbHAQRQ58c9RkhT0LP+XNf3iXxSW4sDmU9Andjz
H9s+IUD3Ea/zk9gYVN4r2qKZyA8MX7wM0AlD619PbNEHEoCimm/+MUcQev1q
q8xVIiPsGgp7mCe6//wTrz2R156nW62nW6AbD+6igUT2J0tuu3ZJHeoo1aie
EVk0w7LjmIwzcD5K/OtN5C/slav0zP5A8cgg3ZDI2lKED6FKITDy/NeCIJFr
x/WfhvlFgu6zrpkl4v8wYss8rUbxkLhaHpZKZEh6FdrqnQSdPi5fJInsamP/
ozU5FXbEhBY+Ev0ruHxBo60yHQbf0GbLEnmYYbm8rTcLJngjqPOI8aGaLWNt
X84Fdz81/h1iPLMMpeUsQ/Jh8SbNvjyRpVVS7OdwhXBmuDvMlRj/XuGtLMv8
IqBKx3qTifkiIXl3ZNlUAgLWaHIJMb/pP45JzGu8BIFxRvY0Yv4lhzwsrCbL
4N0IhYWnFwGsii+2We2+gYhHjzUPifVzEJe8PR/6Fmwuvt4tdSPGX34vqSqy
AqoEfnsoE+vNit+oTZK9CvaHz28oORFAnJPui9tsFcTKqR6UOBDtmRu3q0qq
QaGr+cc/OwKk/mU/LyXzDrQr1P3dbQnQ0TMeKaVdD1NiIazJpsR8+kx03LvQ
AOQMe0nKJgSg4Z2kCCFvhGMDI9zTRgS44TcVMFz9HvJ0s0NGdQnQIzjj5nkM
hXeRNxQmiefXYWTmbfYKCqLVllTLagQIRVy2LSwwiK1sPfv9KgEEVlykouQ+
wS+hmodFisT9VNzeTP5shmU3Mc+LEgS4lP6n+7deC9i1XxovESHu/9vtJ3lL
Cyy0Jc9SCxHgZYa7gHBmK+Qz8FLHchPg57pHvv/NdiBLICWrId5nDnneKadf
d0HE88Up199jIL+9Uy3B9hmMKvY03/0cAwYNn0HVkM/ATbkmvbgwBm92fJid
jLsh74Z3DsvUGKxqPopoYvgPrJfVIyI6xqA+oKnprUw/2JNG/mDPHIO8l4f/
NTj0QxAlxSn5lDEIH1acbinoB8VHQZ814sbAQAjdH2MagFNnj+YuB4/B3xH0
Esn3AfC0fM2kajcGciKfqu6kDYGXvxiFuPQYSA+PpjZ1DcGOf/PnBlFiv/Fb
eST8bwhUOJ1MpM+PAX/XSRUa82GgqHwrRMY5BnhrpyFUaATGK06pbh6NwkoW
56Zo0yhkftogqHeMQi6DlzTjwjjsuxxOyxH7Y0Z1FLvfyQko/KS+ee7qKKQa
5R8sqU/AlzJr/v0roxBd2tPWWj4BlXL/RKIvjILPVR49f59JyKjoOOCmGwUt
/36vZfppcGtncZFuGwEyr+NTVuyzkCpGwfVEagSMzMoG6y/OQkdqfZOq4AhU
3YAuhjuzIM5z14v07AhYnH1YWxM6Cw7NZXkGdMR+3vkhnmJzFuY+BsyHzw5D
MKeValHvVxj7VHaHNoro56eq8rngOVBfGPhwc3wIqBnuBFmsLgK3iubwF7NB
CJ4dVXEr/AWVdW9L4yt6oSIz9E7An3XgemoTM36+C5wLrFjm9bbgxEPHoZcf
WyDWNz0r1nILEjQ9KFfKWqD8Tu/5yy5b4P7AmlbueQusHsoqxUZsAQWDbt5f
txZwuEfvdunDFoRU9ldTCxLr8FjVUDTXNsQJaF+1SmsGm9CjVOmVbfh3OSVG
8fEnuG+XcTosaBeuW5xOPDHVBPvjtL3rMbuwdd1C797HJniu7htgnLELsqmb
O3U5TTBw3mBGonoXnvCFfa43b4Kr34/nT83vwvG8YlvC0kcQtErglbz+F3hb
uvqi9z/Apkn4hWmmPSCI6C2+lnwP8f/tTKpx7gGGLMsvnngPIgq20VUCe3Bs
WOebzH4j2Jy69isM2QMn5i+Hp1sbYXyC/K2kG1H/Xsx7Mv1GaNJ/Ihk+sgdJ
xQ+7zwY1QMRdr8tSWfvAa6mw4LRYB4k9Qg6vX+7DxarjzNbddZClNpPDV7cP
47vBTp7EebxC4ToF2+A+qH04zJh/VAcEQY6+f9T/gFtTHdlnqYPzZE1W7e7/
wLm9iOVQqRbaqyjjDW8egNNNb8ud2hroF2lsHjQ4gHu5GVXsuTUwUeq0ddPm
AJTVb7rqhNXAas6YkWLQAfwy2jrEGdTAiaiXfDx1B9D3kftF1V41WFveer/C
fQj8RicuO12tBopjKYtP9g7hYqhkpdWPSsCtBjDhqI8gMXodNzVSCVydD2SK
8EegcLdm06a5EhT95UM7hY/ATlqNtC6zEnzn5/hYTY+gwrjvveLtSlitkbQu
aDmCOY2v8bMNFbAitORqcY0E8Ve+hZ2UewubJ6efvdIgQWQ1HRIqTr6FfYrB
9E0tEiRHfWHOYasc6Gbefwo1JUG+OXRn3q4sB4GkONZXPiRIlLC2cqNQOVjs
y1RulJEgTbHVn+h538BY97O1EGZSxPYaVeuE2CtIVsxW1T1Bipz/23ubj/kV
aFXWZPCdJkV2qrXdU1bLoDd17mq7EClS+Fx2c+FNGbSbK6VTXyPqS+2TXBUt
g9qdf0qR/qQIe9KP+BHpl5DK45EU94MUSWg1MLpnWgI6qVFLpmukiMCpScXj
KiWAoy1UEN8hRXrGntqu8ZdA7OrA934KMsTfnO6I9ncxhDaIyePOkSGjLTxZ
7YHF4HV7eT5ZjwzZivvjeb3sBej6WchktJAhqa9mqyKOFUFq9jGqnS4y5Jpq
r1vnQSGMou0j2v1kSIskVdm574WgR3HBk3GaDIHyRbbTjYVgELNRHbhNhoyc
55NSMS8Eo9wQCVtBcsTh2pqtaE0BmLUUC1+MI0co8Q/Lh+3zIW/B4F98CjnS
P2KuijPIh6/U9D2/MsmR/0wUVW2u5oOFhrN9SSk5InkwyXX3dD5YjsiWcTST
I6LiV9rF+vPA5nunAOkWOeLhNVfy73IeONAvc/caUSDSJxjeOMvlwLJvIwW9
OQViZXqpk8CWA3ZLEYtqthSIRsHbbNudbLBtO1/2yZ0CabZaHtuqyQaLJzYS
76IpkGqVMJl+iWww3PgKWU0USO/6fXsjySy4NkkwtuOmRJqTzq003MqANvVS
xZLzlEjT5bW0OPEMuFrvfW5elBK5wK6pHIrPAKWUE/MmVygRnv1kitHxdJC/
rWN/V4cSSds9NN63TQfJlj7fS6GUSEGV0nvFyOdw9lV7KtVPIts9y2tYSAWd
3PqGz2uUCIPA1vb1z6kQmVQ2FbtDicQGiXLvlafCpl8s90lKKsS3O0f3k08q
fNbQKxc4R4UIzFp3fWFMBa/VhbbrelRIzXM/OSnFFPhPgnIrspkKSWYUdpeu
TQIy/p2Tt7uokP84bn6vzkmCSxw/5PD9VMhKs5/j7bAkKCD7LzBzmgq5wtTD
NW2QBD5DyQyvd6mQUO67WrcPEoHXk5f3P1FqZLkmJ9blZiL41atoM2dSI6m0
ysc+7MeDpHH/mmk+NdISINSzvhQPP4+MYytKqBF9qlE5hdF4MFLz6rpbQ41c
/vBr7FhlPMiNlkLyf9RIhNhVo1bbeNjdYBRmJ6FB/lHckzhTFQdeYgQKHmsa
ZFhC5tK9lBgQHbIqcLenQTidhM+MecTAotc6tLrSIDp6TxJ8dGJAt4nOzzqA
Bgm/Pu584VgMXLylsF6SRoPEiSXf1kiJhg27gmnhzzTIiE6Kmm5OFLgUO9TK
iNEia+b0OMvPEfCljzOFSYYWOXNb/8ziqwi49fez+6I8LaJ0S1IhLiYChDQE
JVJv0CJixtW/te5GwPz6wqsta1rkk/b+SsZEOOgrmObXZNEiCMUAF8VmGCgO
342WpKNDPM99mD5AQuH1AYk9HSsdUr2v0PKDPxQ4BSrUv52kQ4biTE9tM4TC
ri8TdSIfHbLTIhnsPP4Mqs52B60jdIj4bkTprPsz4LO/6l3hTYd0iqWxpZeH
AAOZrIXoAh1yU0t9VUsuGBq8ybUXl+mQueLOFw94g8HmV59Kzh86JG00jTyd
KRgwwgM+JhJ65HnCxQvqc0/B/W3G0i8OesTzs1LMXMxTmDA+dHpzhx7xeWbD
Nf89CErr2vyEP9Ajn/aub10qDwRdkUSH+WZ6JFXVK9U6MxDICu+bZHXRI/pS
4vul4YFgHLujyDBGj4ydWMh0twwEZmtBspV1euTq7wGe4xyB4IWLCX8lwICQ
nN1Z/3riCag66qQIJTEgp6ieG+ft+4NH4nsS53QG5Li6r6zDtD8U1XE7VOcy
IPV2HcuGqD+Qka0ry79mQNCh2asZwf6Apcas3WpjQLhY7tmVMfqDHNZ+03WH
AWGL10cXBfxAFH+ZrP4eI1Ji/zjhs7svmFzKc/xnzog4xCcohhv6QrQJ9Tjy
gBH5GZvJbwm+sFwy8rbLgxHh818550LvC6XybiaTMYwIS2wY9VyRD/DYvKo/
RBmR5Jk3z5invYGt4bSzKi8T8vXPskeBuRccWpZwsl5gQnK1D5WnrnvBPJNE
55QEE1IhnNskJe4FFVZXuTyACUk1ohe8cuQJaiz2QwVGTMgN0zsNJTme4GVb
L0uSwISoiCltjH3zgJHj2iTvD5gQ84eXQ3KfuEMjNvU6lIIZmRAIn1W3c4c8
extDLXpmRMVPP4lR1x0cPvlW/WBjRrTv1jyeFXIHCsc8K7aLzEjAp8g/FWNu
cLH1V6enHTPSqMR966u0GyS6hSeIjxHlw38135K7wl7P6/rwaWbEXuZ0X9Af
F7AQGJiZnWNGDr8Witl+dQGpKXbRhDVmhFTJUs4OdYGfBboLuxQsiN7mN9xt
fxeIZvgeZHiGBVl44MNGtuEMvTO07znusiBVCjyBP0mdgIwxq/eaDguy6JjE
sj3nCDJyot/c9FmQJ6d8lLjbHSEnWYu224QFQb2GlicjHcFZPVPfz44FeUza
e73/uCOwVAtvTgazIJHXb/7MknAArdDbItm1LAhBt7uv54kdFBuuqTc0sCDU
UkwFgjZ28Fc4wWbkAwuygXualK9hB3lDg7mMLSzI3cR3Rt/Y7eDXOT1cQB8L
wsSYwFX07iGEvzfeub/EgqQU2Xkz/XkATWsPP53jYEWGbn2+X/PYFnCtdF/k
T7MiUqe41eVtbcE67dWewTlWRNPhJjp5xxYYFH9JJfCzIhRLfN/NeG3BMMql
mFSKFdHO47oa1GMDm3zeUd9usiIrK9/KyblsQOheiG7RY1ZEL+0Pt/mEFRi6
1uIoglgRPuVU9KDVCsLDlvosQ1gRyspyl6q3VrBQrXGDJ4qVeP43Mi2fWUEe
w3EoeM6KGEqH//4qYQXHm16cz6tmRVgqZ3uk4yyBhKtjP/MHKyK7rJHoZ2QB
YrJ/6/dXWBGtjoF/82oWcP/WBa97a6zEeSWF01LaAt77xq1x7LAibeKhuGwW
C/Aa1F9Ip8AhDH94ZSk7zWE5eKk37SwOCRJeuJIgZw6ji7QFSbo4RLFF3XdL
xAzadSKyGgxwSHVew+HkGTOobaZJm7mHQzYGHOgGmc0gNYc6+oIFDlEf6vxG
mDMFXT1KrxYnHMLdj12sdDSF4TaSGxthOCS/M+3+Ueh9GCzaWddqxCFhNnPf
RPuMoRnnveLzEYdk07NVZ9cYQ1Xg9mIOhkPeXzSKEsgwhkTjrcmf7Tik7Zre
TJS1Mdw9ttH2dAiHRFYmjSUd3IP+4NX0qhUcwntztSZM8h70Wiwo4c7ikfGz
S5evvDWErxQluynceORUJq7hVIohbBY/eMvOj0f2j4UkcvoZAvvy8ikuETyS
5+XwyUXNEKzc/+yIXcEjE3O6Mp5fDWAv+OjNLX08MiIWLtDJYQD8L9g5IuLw
SLetmtXrfD24rDbZz5CER04a/BDZidQDjR9ZYfGpeMR3Ol/knoceuIqc20rL
xiN90iUGTmp68OEdf3/xKzzy8LwSc9OqLmi1S4W2duCRdU9piR9KumD9YEv+
ejceGbWe9W0Q1gUfurqN7l488kvVlzf/pC5ka8qZD43gkS75aInaXzqwNIrI
f5vDI3+o2Tg3M3Rgz4dsw/o7HnG2YnTwD9UBRs7Wlz9+4hEF4wZlTjcdkDRV
O7m+jkeAZuFYlroOqJLS9nps4ZEY+98Tj6V1wKDwc8juLtH/usT3nlw6YKca
fcX/Hx7R9nqTFcyoA//3ngf5//c8/wNeNhLs
"]]},
{Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData["
1:eJw12Xc01X/8B3B7Xhf3UkZlNJEyoqxeHyQUJSISfc1Uyh5FyZbsVUZ2Zras
5PORGTLuvSS7yAiVLcTv/s75/f76nMf5fM75jPfz9Xp9znmLWDro29DR0NC8
oKWh+d/jkxnd5b09IhZQK+b/j8YBpr32rQ3vELG1jJ4/CJ8DXOEa36j+S8QW
njAavzztAMIKjv8cVogYXRbO8Im5A3wMjWGZmCZivxGVodMfHIDl1JdD2Gci
ph0gNnUIHCHO9b/Lz5KJWKL5Pfb3zE5QSOuSTXOWiIlqjV0Qr3WGcwYFTImy
RGzTpGUtu90ZWrO/2UlLETHO+SJ/yUFnmNDUk7QUI2K8N8Tv2204w74Iyaom
QSKm9/vMSJC8C/gJzLYF0RCx6shqnHO1CxjLms3jOgiYh6dRomWzKzDaaMrw
mxEwfLC36HcODyCZS9+YNyFgviHfV7eEPCDVWND7gxEB+/tIU+CwjAfI6/xu
sdAjYFZ/W+IyjDzAVvalSYE6AcNZ3OwwTveAdtqZZ0riBMy+I9ehXt4TwlKD
esw2uDHl8WrWDw6PgDjYYp8ZzY1J3gg8ssLrDZhERkhABDd210zvxJSEN9j7
eGfbvuDGtCNX4mZUvaH1mOyIeCA35jDgM3f0oTc8dku/XOHJjdkrsmj5tXnD
d4KXePNtbmz9ZKpu+5MnUK4rNftDkht7pOAvQvP3Keg3JVmJdXBhSUbi6fT7
feEIZWqsrZULS3UXw1Ue9YX1qVM3bZu4MCQvYd3pjC8kMjXpZdVzYb48ho/3
6fvChPa8ysESLmzQUzefPsIXHvQq8XHHcWE/bcskH7P4QcjoSNemGRdWV5H6
Tp7FH7x+q9hHTXJiowesJ7jkAyHF4uwsMsqJUQL9EX3NQKgnS1kvDXBiv9QP
hWYaB8Ju9eFb+h2cmLHcH7yjVyD4PWPV4SnjxNRJqCHWGAih3P0Sr55yYt4a
dZWq14IgSdZ+Po2fE1txctkv5h0MNR5J90qu4jGZkJKEBoZQELV2ejOohcdk
xe+WrwuGQrie1gStGh470Iu9vSAbCpZi64bXz+AxFnX7aFHLUGAfvqb6lw+P
zer8uj+LhYL5eVY+9e8cWKB8qFSJ3wugZ/RsGXDlwFoRJbem/eFwJcZQeDcR
h6nT0nyPvBgFj2U4tTVjcVh/guy1netRkENqd4oKw2H7LMpE3K2iYJeg3CTq
g8OG7kfyxTyLgqJYUVtNaxz2O8Gkwf59FODifxdGncJhRWeaCTWy0dDx8vnZ
w03s2Pu26250p2NA8/WHK1oLbNiR067Cdw3i4E/4yA7DNBtWea1Fxtw6DpKe
bhc0jrNh66bobwu3OFi4rcCsRGbDRvf/SY5/GQcxou9QyTo2TGlOVqhkJA7G
ct9KEUPYMMf/Nmiq7saDe3kyYewwG/b9qXfNw8gEyGl7NOBiyoohTbJBz3GJ
kCjjrp5/nRXTUtFPNDmcCGGvnUvHdFkxmS617fOKieDscj9UG2HFVh4NbWrb
JYKKkNl5oaOsGOq9uGXZkggUdySn4xcLZuGiq1PunwR0x5jdRfxYMOyO9Gd9
7hQwD4jj7cljxkA0YF7GLQ26YZ3ZM5MZE1ssFMJHpQFs39gSTmHGrowO+tIU
poGws+C4cyQzZr2TJijxLQ2+387M2+fOjFXOBA7rHE8HW6VSJXN1ZgyLbshc
T0iHh8udFoujTFgyP2HjsU8GPP2PvpidyIRF/q1LfeyRBaU9mhEUHBPmd2xr
oy04C76fD3v4mokJ66tonhR9lQUXD/KePr3FiFUPziXT1mYBfuhYqf43Ruzy
Lkex1XYWpBpcKk8sYcTGpXtsm/yyAb0YXXVchxGrOxwWrZjyBmgkhVD1QAbs
BVnnsOVOLnjvUzUPfMqAherriBwg5MHGnuW/Vg8GTMwWtOaO58EvUo7SpXsM
GOHo8KUPBnkw7HmqRu8qA6YevVCj+zYPqppVysz4GTCJqHsbByzy4cGtW1ke
RfSYd1Rb9/DXAhh6kRhc2E+HFT6ZP3GAvRjILcJv/+uhw4R/KS9oHCmGrr3c
Xt5PdJj538lEf5ViaHCp4n9WT4fxFMj8UHQshkxTcuH1LDpsKq86JmmgGO5J
cPT+c6TDTBCp3RO5JbDd8YxPD0eHmbZ3fJgvLIUDbHb5q2q0GJ/U0kHOJ+Vg
3tAVJqpMi0WJkZwSw8shw1naUU+O6qt+StKp5XBseEv+7XFa7OCaru5ztBxO
vw1vtsLRYioztmdG6CpA7UrFOKmfBhNf9tYlhlXA3Zhd3jI7GqzX3U1/I68S
7suJMw4f2EOngooE6PHV4MxYm+vOuYdeFglxbxSphsf9mpcIdHvoaaMG/Qi5
agh1s4nUntlFiQy30gzMqqHgXTp/TdkuqhznjgsvqoY5uf2n4i/uovJmbkdQ
vRq4I89w46rjPzTgwuqkcmYtWJ0dy2tq2ka/JslKXHWuB3FPxb2H2ZsoKeFn
4FuxRsgYNWh+pLqGVnR8DGLubIYZX15lTb5l9KFh7IcZ/3aoiz+hMWu0iGqd
VlKDui6Qmvu6evr1NGrxr+TkxO1ecP0jKbY/YBqlqR+7xXKnF2o2fM12702j
vnPM9JIPe0GVSby169w0+rUvPuC+dy/oH3788i7lB7qtPypa/6oX3MwEFLPY
f6DvFd8sZ/T2Ql3fTZ99jyfRp7TLQVIqfbA7WFzx779J9FB+a3yfeh+oTdDN
TmlOorW1AyUPLvVB568CvQreSZR+YedLwo0+GGHfFtEr+46uWLfWFDr1wZ5G
cvPz2W8oUvfiY392H1yoG2b9ZzSB7kodCBtmIkFxwRuFNqUJ9LOUiq0mBwn4
kh3uRgtPoNLJPh8LiSQY2GCKuUwZR/+LWW83EybBUS8jrtdbY+hVF6UAGwUS
fPRdwyGao+j+A4YBG3dJsBMhyxQ08RXdY29UaG0mQa9Dm41AwVd0WGu05HgH
CbL0TFuKXb6i9ix+Gz49JLhE8A/4wvQV/dib1s4zRILEeBKdmOQgiirLEbp/
kUA+xWmv89EAenoO/8h1Hxkc80s2uYlkdHHryIaKORmk8A/91SZIqCIt/6UD
lmRYcj6Jdykiof/mTI2XbMjgrJx/mKJJQsXpLwb6PCCDW0/mlQTvPlTYqkNB
wpsMKz8ltOW6etCoz9PctS/J4FqZZ55g24NWKtNd20siw/qTo64bND2oEyn4
s1IqGTa5hNJq5brRHt4/Fi+zybAjT1hTSetCzw7dkRksJQOT/2b6RedPaNe1
W0GP28gQrONWlYv7hAqVZ1qJdJCBZd9yJ0tuOyo+ysXT0EUGtvz59Y7hNpRD
qXpgsI8MnD1jOlc1WtGiBCW12GEyRL0ytSwdb0Ezw87tnx0lA8Fy0IP7cQuq
8RyJkZkgA89aXya5uBkVPBtmkzdFBj7Bls0bfE0obvXTyr5FMiROqeJryz+i
hsIK9/l+k0GguOGwgO5H9HWAsgXnEhkOqtZcGfFtROu2d6pGV8mg3m2k3TiA
oqL6HlHb22S4aKHn6s+Oon2fNvzy/pFBa1U7TQNpQO0qH5Au7ZFBR0Bl7VN+
PSqlKfXIgY4CRraHM0jetWh4KZ/fORYKhDq5hMS8q0FNQx4ZPGelwAfvJgf9
X9XoiQdKfT1sFDgSa3WedLsK3fGPbVXhoIBxasXRmFfvUFO99+ds8BR4kU/P
od9XiVo/uqPjx0mBZTRruE+tAkVE7K+85qbAsc6Vj9Fe5ShXO8e5ZAIFTAbU
C65VlqH0sq21EUQKYAuTnn1HS9HkRvYnRrwUmP19BxP9UIxWEpLrxPdR4CoT
S2TmqSJqP9AIWaX6kKzWyUzuAlTX+U+XHR8FArVnt0T881BXpSKEyE+hzueQ
TxmrOaifxK5KBdUG7ideidi+QddWvJq0BChQF9Zum/ElCx2tGughUy2SZScn
op2JWnIMWFwXpEBILQtDRl06OsZh4tlB9VjatTeqxqloyjUjgvwBChR1Raup
KiWjC3+HT72k2utv3zhy6BW6UMn5eZFq7WOEJwhtPDrYeGpB4SAF9hvoCyBT
0WjbavgLL6o79444+ESEo5x1iQXlVNuZvMl/ej0YleMf0BqnmqHi6NQTAV9U
pXrMhvYQBRB+HZUtzA1tHrSl5af6z6tE66VES/S2lYLgMaq96eJaLp7Thrax
cxUnqD6VZNXGI+8AOm63PwlTPcZf9oud0xsIqw1meKoNZAfrg1QDILnjmeMS
9X5VX2/4BXuFAo5tmraDag5s/nDzzSgYstIkvKIaYguDmj1iQeAEb6Yp1U62
9+ea4xLgjPqXMh6qMxUkdFrKEsFaSVKtifr+FNx8cUt3CjyQ7Da4QzXTRAF3
6zz1v+JTyAwN1SkmcopWARkAuuq7kdTvK6cef3+SkAU8/tuveKjuPrmWYpWR
Dca1rTUR1PWhoXm3Z9WQC4kj/4VZUdczcY5HekonHxx7etQaqOsvQ3a1tB4u
AK3GaH881dY5Z1qsN4ug/LxeQSQ1L/8i49angkqgdDs3FqPmq1N5K7Y8tBQ+
sLLiZ3io1x+72SLDXw7P8l5/4KHmUUqQbcx5ohxan0+vC1Lz+o+zbr08twJI
Wlaf+Kh5TvjLf0JW/h3IPxZRX6Hmv63ra6isQQ1wX/raLUGtFzvPoTZTiVrI
Vl52b6LWF8uRYYYA+jrg/fnp7xVmClzyGnlKqXgPs55CaaoMFOgSG3d240FB
/qrwcDy1fu37x0teL6CwJMnZ2UWt7yDEcd3SEgOR/rrqjb9kOL7gKPtCsRHi
78Ukia2TwU7duWj450d4eHWJuEvtJ+cSlzt/GzUBve9r9/55aj/77fyTvqkJ
fvoX76XPkSE/yeX4yeRmyJ3ApfD8IMPPJdcM78utcFA/4s1Daj+zT/eIP/j2
Eyy9905caSGD8vpGhTRfB+AbrfW5msiA0/EkaQR0ANbIkCyCkaFow5Pz4a1O
yDyT9Fekjgy/rjx+3oD7DDmMF1qSishQ87ShoUS+F1b1OqtcYsiQnr/7uda+
F3QzciRGI8gQQjk/2pTZC0Ouk5VKL8hgLI5uf8H3wZDoUbFBfzL87UfP0cz0
gU5pUGqkKxkUJRvL9ahzwCAu/yztdTLIUQYSGj6RQW341BNWPeq88Vp4fHKH
DHFlN9pZdMhw7NN+dRYLah0O/I5eUCcD0eYhGRXvBw/+09PasmRYSBFcPdUw
AOHmGdZWXGRIw7nLcfz4CnjpcFkD6nxMqnjB77V/CMxmVWZ1URIk3Mz4N6s9
BA45hb1IHQnC8rpamouHgC253YazlASeFw4beXsOg1tz8ke9ZBLoe/e6z7OP
whBjv8sDRxLQufOOWPNPwGENw98mvCS4+V8BqebMBAT7LXn8wZOg/BJ8wulN
QFSlyUMfFhJYCt2tqgyagC/kidGg7T742F4fxbA6AbqnIm6qfOsDf0Frjezu
b5Ccdd/VsLAPGBrLiyf9JyF3e9PulWIfMOP0fC1/TUPpo8WcdK1e8J8YUHfO
WgSheJ4O0RddUJocpPd0eQlKMVd1clk7OGRac00ZrYEP9u13Z3kzmN9LOhjs
uwmeJbaiMzqN8Pyau4JsyjbwFajODVbXQ0yXuP3b/G2Inp8pFkyvhxTN8dSj
1dswXmw/8iCkHkpVtBj4SNvAZaX6ADGph0ExgZ4d5h2oK1K5nrr9Hk7QNVi3
uuzAtTg/M2X199BazhhlcvkfdF4PFVgfrQUGnvhpn61dsJI2KGxFqoHw6yme
wLwHuXQRXidOVYNIu518NnEPJFJ8eV8KVsN5b+Wg9pN7sHkvIyFpvQoeTU0e
5b69B6ZcB28pFlXBr0oZm8ymPbAP1tX+eqAKFsRnnSwv0iDqFZDmxvgOvnQG
/gngpEW+thaK8W2XQ9z51xqG+2iRvi7FIoWf5aBfVpl09CAtsqrs1Gb3tRy6
EyYvtIrTIhQbJOt3NbVvWKgmMl+kRehGz55OcyuHqo0d1VBvWqTNfOe8z0oZ
JBx2jY2co0V+pwlGcf4tBUMvS/mkJjok7j3pdIxBMSS85mHa+ESHHGdjZthW
KIYBtLXfoJcOSRFMA0/hYjBikHDjGKVDPLBrdSWLRWAcvlLxbJ0OsVjab8r9
vAhupgVI3xGjR/Dn2eTimt7Cf005J89E0iPDYr4fQLMQ7NnnRbtvMiAydJtX
HwblwfyjOgZ2CwaEhIrZrDvlwb3Z59OadxgQ3H1V3kizPLjTcqKg0YUBcdaX
5Fs+kweWPrbS78IYEMcsOrsnU7lgsvINUhoYkNWt17JpF3Ph4vDgrXuijMjB
vC+3sX05IFTYmsD0kxGZL1Pt4pjKgutpNbUdfxiR284jK9t9WRAaWzASscGI
HPVjtNtCs2DVK0J0PyMT8i1nluZEShZ06BgVHxdmQhY2W/0uGGaB+68fLVpG
TIjkYruOR0cmfJZmXAv9yISwK+Zm3cUywKtG3YAzmRlhfOYyGV6SBjK3ev/c
zmBGfN+PzpfHpcHPvVsRpbnMiNqT0PVfj9Lgpqb7p2uVzMjNYMf2wgtpoDiQ
B3GfmZHqM7dN5IdTYXOF4yQ/DQsya50s6YNLBffTgwyHbViQ5zOUZQufFHDM
sa+SP82KNK5O5GdnJsJYj2A8Xp4Vee/yrVDqRSLo/u1wmVZmRf5tnMsnuSSC
uI6YdMIlViTNU+KisUYiTC39KFyzYUX4F86M3Zl7BTdUbmdUprAicgKclsFy
r+A85VqYDBsbUnZWv0J1NAFwdGctT/1gQ5JfZt/Kto2DWg96g+l5NuRlqRuN
8/U4sF3sUU9dZkMsn3h56KnFATZodxRPw44U8cZkwKE4cClJml0UYEdYbpQp
/BiIhaFbuw+L9NgRB8FIVeRyLORVt3idrGdHCPLJPt0QAxoPrseLx+KQ3vWa
fYqGUeAa857GIRGHXFaU6f+oGQXZ1aL2FWk45L7gCZkbilFAR7ekpvwWh4g0
S6VlCkUBlhD+R7cFhxhflLgZ1B8JiljrZacN6vmSQyMXmCLhFFGBrsaUA9l7
LFUl4RkOfLUHHTSO4JE08UtmiYmhsGuVK8gtgUf2hyuWcvuFwhReun1EGo9s
hS+tpd0LhVLrCyKugEfWGi8z7SqFgibXfXLmTTyyWI3b+DD+HNzv1JylicYj
VeikgpLEc+jnNaB5/w+PtAZwCKX3BUOMc0i01BdORDbCfXH1RiBsdb2tCRnl
RE7dFYgJvxgIlsf7xicmORHd4QgtOblAkB3hPxX9hxMJWzj5rowQCD8zDX9s
MnAhtSuF+826AyAMN+NrcogL2fCL8XLWCoDucdb3Ate4EGbat7Mqmv6gH3RV
8nUVF3Lon/HIW3tfyDH5o11by4VwCIxVLZr7wt+T0bb99VzIK/0bxxSv+UI6
mZTG0cSFnM9JT16T84VFYSPC0x4u5Dv9UMva3jMIeX9rw3yWCym6ts+OkPAM
Gv7cbRQW4EYOucSoLcf5gLhpgGH2E24kr6hvYTnLG0ycqggMvtxIG+Lr3vrC
G0KCZ3usAriRhJq4HyUu3vCjQufS4RfcyBHxbeFmdW9Ix/FC5itupLa6oOv3
lBfwNrw5kV7BjWSlKp1Vk/ACGpG27eQ5bqTu8wNN7bZHMDDNmhlrSEBSaiY5
us55QOv15ym1xgRks+OdaucxD6j6yPJy3JSAbPtu+37l8YCEVOYwCUsCIr21
vCy65A6GRozuTQ8JSNlM9jG7AnegtNBcWgkmILdv6nuXCrkDKXtjSb+OgLyy
2/GY4HGDbssfqgQhIiJpgX9z6LgLfGPI3YwXJSKJgh1mn/e5wGqOXQn/MSJC
Mxcr+oLJBfjn5w+ISBIRv8+Z8bLTzmDtsrxxWomI0F0UCpXPcYYt/70i3RtE
hKH7p9DmCWc49oZf4HkkEWE37/VnUXACBc3hXlwsETF20LF4Iu4EOnMpwVEJ
ROTn0WdRe4JO4CQpvPbyNRG52WZYKrHnCPXvjvXmFBIRK7OACJFWR9BvlQ1q
biMis+Om7zyNHMHGbk1Zq5OIMC/r1dZrOYInW/VKZzcRcTed0eBQcoTXVxQt
yP1ERFrsbjtZyBFmBxDl75NEZFqdQf0n2QG2POlWbGaIiALrkPS5WgfgEGzO
n/tJfV5bSefUVAeQua25f2mJiASlyjyvuOsAGrSs3a5rREQ3iCBtedUBjLM6
AjY3icivxc6uE3IOcE8jTMl7h4jspUppMAs6wP/tTyD/vz/xP4MC4mc=
"]]},
{Hue[0.1421359549995791, 0.6, 0.6], LineBox[CompressedData["
1:eJw1mnc411/0wO35sT6fJKSUmVVJKOO8y1dk7xXJFrJXkRVSIVtGZtmjiKh4
v+2ZPcJHlJFRsmfl5/c8v98/9z6v5957zrnnPM895z7POWPpomNDRkJC8r/D
/84Pf6ivHx4SMC77793C80ow73d8a+IPAQt90C2ZfKAEGsxTO+/3CNj77F+4
EyzKwH3F9a/LBgFzFCEzNZFVhsancTTT8wTMeW3w1Gy8MtCIjZ7CPhMwNcoP
5meUbkKC5x3VoDQCljDYenK9XgX+0pzTMH1BwBgZb/deHVUB25drWtKJBGxZ
6jVb+m8VkGoNMViNJmAzcTEjBdyqMM722uJOCAG7xi+CX3mkCtwfF32QuwSM
VqiLGdFUg2JSj1ckUgQsMOx34+c9dZDWLaJKuUTA6mQXCyvZNKD11Tf7ixcI
2JwTReeHyxowraQlanmOgFVuvDQUddeA49Gi1U2cBKyzj/pswU8NCOFYaAsn
IWCS6TkbJxY0weiS2TKuE4852p17Rv9XC+ZDE9Rft+IxdOifoQyjNniMdJXL
NeGxt40UgQGntSH6/lVP5094bMOBTwaua0MTyva3twyPIbwqTKUR2iCmNsAY
H4/Hlvk4yzTZdYDSRkmc3QyP7djuTFup6MLA7YuGy8Z4LDt28/SUqS5kGHH6
1xngsbsZGYzOLrogqfa7xUILj3WfaTFoS9AF20vJxkUKeOwwBOF0mNaFdtIf
QTJCeAw/HXwyzE8PIjPCe812WDBtY1PvTw36YPTCdfP8JgtGc97FgDiiD7xx
JuxkayzYjKv5P/xPfagLE7PKW2LBZkkVWFqOG8CK08j2yiQLNsX14CrcMwAt
Gf5TQc0sWP9QTVvuKUMgfGlxyollwX4/6ojdjjcCTDg7IjSaBRvypzUtKTYC
p0D/V7bPWLBHZwrC/ZqMoJX/ElEojAXzKEvzsN0wggdeWaqVviwYSlu37qZn
DN/xfkLN5izY7Tqnyw84TaBC/cLCnCgL9oyrVFu0/haYZ9NTtAuxYPdKIzxU
x24Bbmv+dJEAC1ZQLrUVvnkLbNNfGjqfYcE0rQZzDIRNgWOZrm37GAu2U3fg
Z5pqCiERc6+p/zBj3sSJO2cCzECnKdXqXCczZtmRoBxvZg68Q7Nf21qZsb33
iolKgeawPStmYtvEjIlWR+3yZJtDClWTVu4nZqz+R/SA/pw5TN9cluMqZ8a0
FZba+6XuwL0+mRMsCcxYFJ0qA33rHYiYJHbvmjFjv9AXKyvrFmCywq+cbMKM
TZ4riAqksgSRQ9emy4bM2FqjPCrAYQm93JQf3LWYMYeBAH30miUctxbN/3md
Gds8frGGMc4ScpceBk8LMGNGtnqSKlJW4PdbzilmhgnTYov3OploDekWUgvI
JBN2/Uwv0ajIGj4NXrBeG2HCngqKu5ei1vDvPY+pTicTdo17MSNzyRpCgmjV
jr1lwuyFTqkXX7OBpyzDwi8CmDB3JbOFB5s2kHrJaTmTnQm7ReW/N37PDj6+
trHTIjBhSxo7NCbhdkBkM58hYWDCjBIfaG9l2MGpP9oTFiRMWNYpd47gPjvI
aZbq4vnBiMlL6riuSdhDoT55cf47RuxKSvSiHvldqPFJdSjXZMR4YkQ5zr93
gLPWbq+/KDNiQybjspPDDhClpTxNep0RczuWc7Zi0wEsz23r60kwYvwKcvT9
4o5AP6F9be8EI/bIMFp48Y0j3JanPaHwnQF7fHI+qOKdE5BT+raMeDJgKXn+
C9JEZ3Be0yAhcWbAOKzUvgmTuMCXST6Zc3YM2AA/NqzG6wIl1YNv/IwZMObv
SDn7PRcwsD+fzi3PgM1q6R3zIHGFgq55dwdqBkyu0K+l4YUraMTpc/9LwWG8
qqF3DYlu8ECc6aZSPA5zrc4YY1xzg7yBdreYSBz2vexExjSlO/zDyzadDcRh
6o4c7wbPu0Np/FlbJWscJh93helPqDvgEn8Xx4jhsBPzj6i8JTygM/mJFE8T
PfYfM9etU4WesC2lcMfpEz3W2r1N49DgCWe//ImoqqLHhIdoN4bGPOHBCddx
pQJ6LDGXIEhL7wXnUgweOkXRY2tz3778dvaCiFSepipDeiyTRBImZb1B6WWd
hvJPOiy5zu+X/7oPrEYR/1DM02Fvyh1xJxl8ITXgoKhhig7bFcHcJgR84af5
FWqZQTpM12qo+qOZL8SdrUJFP9Bh81yfOqi6fOFrfskFQgQddkmDq/1n8X3w
rkjDf+Whw1TsamjFI/yAO/cDlspFhwU/D1c5n+8HHfFjzoZsdJh0JtNDnVY/
OOnF1tVHR4c9jZZ6SE/pD41S8Y+a1mixP1K9Fuqh/sBY93SzAKXFrnOG3pJ7
+hDy2u6PeNyixb6ITAVfqwqEFHFvhUI9WqyrXfy8KzEQIl+6v/mqTou5cGNv
F0mDwN3D8elNhBZ7j/1STD8XBHKnzeRP89FixYtlTAoPgmDIG8nrXKHB3np6
/67hDgYyfmrvMyE02Oa/hm3zRyGwFUM+Y+BHg1E1hGpFpobAwsGhZqQnDea5
Z0395W0I9PTvntuxpcHSlNqgZzoEUh4uTXar0mCfXbz6riKP4MLwZ0VfVhqs
Oo18V5YyFG6HJrD2FlBjkp/wbVKFYdAD29S+OdSYViBv8GhjGMCB4T53OjVm
HZ/xPZkYBtzunFPuz6kxXYZEFT/mcPhunlNw3JsaEwnEPeq/Hw62Mm9kbitQ
Y5fZjUhmdB6D83qXxa9JKkyewUrx++kn8LVUVC9plArTObbHtSr3BDTvPr8B
/VTY8ZG1p7ymT+DCtI5wbDMV5h84vkqa8gTWP49tShRTYR3eLrkJx56Cd+GP
x/6+VBglxqOgTHgGAXfIy+gJVJhx+tptpwtR8KZXKXoIR4U1Ciwep9CNgu/y
kc4vqagw1arF9DavKLjBxXr+/D4lRilzcm/gYxQwjvO/0flGiWV8UlMnVYmG
DF2VipTyI+mko5Krzs8BvRFbLaBGif2aoBi1XImB9arhpFVFSoz+2A/+PLJY
4OXj8KkFSkzm3ieEnC0WIshzpVQvUWIbZqbG9EgsaGHvapw5KDEq3pIxg/hY
mL7y5UPVAgW2/dc6aE8+DkhET6MKYRSYyLT2xt3iePA/fu12WAAF9q2VMv5i
SzzsHFr+bfWhwOaDZVZPTsXDykCejIoDBeaTa1RqTkiACV+xGi1NCqyLPb49
9WECVDfLvTVjp8C+3pFmZzVOhHumprk+peQYs3qlf6JoMiwoBlyvzSPHhJxu
/JZRSwbr81nf9jPJsY7KkV2cYzKYkM2eDogjxzo3XqHnC5NBucAxPdSHHDP+
gH8XIPACeDcfJMZeI8cE1A/++IikwPizlMfFw2SYjUX/UJJxGgy2cJfc6SXD
pqiV6pL90qD7ML+PtYMM835i/bH5ZRrUe1SzB30iw7ZsVydyv6dBzq3BYr1c
MgyVltv0d04HB2GGvr+uZNhn9ubIz9Ev4aAz6IQWjgwjoP8VR29kwiYFjRwl
FRl2JPBtI0MWrMg/t/hwSIrdfuEzP3omC6YrXhbxbpBia/26t7VUsqA59YPs
3hgpxh2ge/ZhehZEOmzeycknxbRalPRmFLPhJJ194eZ1Uizl1OHrodIcuF3f
HXlWlhRjE1I/qdSWA9nuF121LpNiDuvPWCenc4B/Yl+yRIAUs1oQ0vQ8lgvn
S6KarXCkmC5y/5T+w1y4rlE5NTBMgr1YbxiiM3gFd+P+sb61J8HM0vkT8njz
oOSG1d5XCxLMXHDIdfF6HqzstxFxt0iwOE4ffgOLPHC3is21VyfBlveotkoz
8sBfgvcitzgJ5lgexmrGmQ+nSuNfnNo5RMv1q+sXTxaA42UhyomTh2h075XN
m9eLwJ2yNt+b6RDVivfafmZTBA+GlVTwZIcoN3pZ7G9EETz1snl+88c/9Jhn
xlnnviIoqspir3n7D9W6zmgXY1EMi5fZxBJv/EPL23mEaKNKwE6SwlDT9S+q
m1Fv6EBXDs5U8XtLln/R1Kv3aikkysF75Ex6uP5fNPiYfMOwWTmEe8O3uqt/
Ud801o8nK8ohr/qBowjlX1TsQmFcjtgbmJNcC6RN/YPKbXDock69ASuprwVN
TQeop/xvEDGoANsCKYMb7w9QfrmnpPtOFeDAHkveUXSAPiD9tff9UQW4Hijc
7ok9QOld9HepKirAHy0kjJkfoPPK9QypTJWQoOQVsHKwj3Kbr1ST91VCqyFO
j11iH91cUJDIsK2CjnYb0nSBfRSiBf9RBldB9xW07BTnPrrLIqgWmVYFA5zu
tLxk++hduejJzb4qmJoarRfr20NLnzK8k5arhl273HP/Oe2hrmdWKXI434OQ
79VD51e7KLn9jWflqzWATWoIzSTtonxFBnplLLVgoGClb/hkF/11XK9jSLwW
Qhgji8F5F03appdI8aqFsVeThszSu2h8wroL+d9aiOgPevO2awfFBbcK+BI+
wrxQm8Xm+jYq1tTLX25eB/4xE5H2c9toXHs802RYHeC3f78njm6ji0r9MpIl
dSDfcIKx5dM2unCuvMlhrw4SDR0+JIZvoziV1f+mEuvhv1AGghTHNqrBk9hI
N4pC9qRu8/1rW+he1Rn/ILkGEJ8V3x+S2EL5T865LWs3QPMSy4ULglvo5rSl
mYNtA8zv9KbNM26hUZJLIq+eN4AQXs1Dl7iJequZK9PMNEDFjf/Oivpsopul
q2+SohqhuVwiaLpkA12weeY+u9YEP4JZZZVOrKPnNQXJNHdage5h+e94unVU
MHFkfR7fBmK+N3On/6yhMVgha5JYG3g7P6R78G0Npf8j3XDFtg2obs19KSla
Q40QFYXEkTbglajywssdcWEHfczHdrCc1yuftFhF7dr2CMeSOuFDoqDigsEv
lNfmdUXC4x64sDi2ef7lPHo7WJGGymMQPFdFz7GFzqOq34ZD90MGoWYn2Oyf
wzzaJ8hZuxI3CNeohFq7pefR0eKf9cMVg6DD8yD57tAcGiSS6Zy6PgheZhxX
c+nn0BZNVZ4ptyH40G8SePzBDCojnGCp7TwM/32YoP1rMI321weLnzYYhbKi
11faZKZRZ/uYH0y2o3AizeVuLPc0+vtFtt+m1yiM7FDFqQ5Noe6PCOYvEkeB
z8+A+eX+V1Rbouv7f0Oj0Bi8hUOUJtGPnqEChxpf4E/0Jarw6TH06r+dt3el
x6DPpc2Go2gMTZC+IWx/YwxytW61lHmMoQXMjXd19cZABf8odJRqDFWobdL/
7TIGKYkDZOdEv6DtGnyfJfPGQDLd7bDr/gjq7ebcMcg4Dq6F5bsshEFUP4nr
eHfPOFxgdH50fXoA/dnr8lh2bBzW3EUYPUoHUEbt33ZJM+PgLlvIM6Q0gEor
PB6h3B0Hr94cjST/fjT90bcTvacnYGNJ+Obl7l7Us7Ll2aLDBHi+K7idZNuL
lmY5oV89JmD7IZ/nDkkvypAvT/bRfwJ2mU9n1l7uQe+nDAoIRk/AH0n8llxm
N6p7Upa/v3wCqB7tZt1w70AfntwsRlYm4LGaV3U+rgOlcDL9nbQ1ATTH17to
8tvR18qNlwb+TABd4fJ250QbiusZV96hIwJT71c1TcVWlK2x2G+XjwgxL25Z
vplqQRMe1KV5iBABb/nFh+VBC3rfdnRsQJwIx7b6cwbLmtElMtcbckCEE5wt
u4YnmtBtHC0rakCElNlrjLUVjaimqaqBkSkROMrqeTjUG9HANxq/hiyIwHWt
RoMY3IBquzdgPk5EUOgxuNkwgqIaXAXxFkFEuGGh5fmIHkX1KUWPE8KIoLx5
M1MRqUeDl6Ou5z8hghqH3FZH4Sd04FSlqk8cEQxsebIH/GvRVJ58rnc5RHjq
5hERV1WDxhUqXbPNI0Kdf5OLzsp79HAyo+igkAi88VbyA+bVqPIJ1mN9b4hg
lFHJF/eiCo0REthlfEeEZ4XkDDr971CG7ZHFC++JsI7mTvRfr0RjhXcbueqI
wN+10RjrV4G+8yePW0CJYDyiUKT97i0aKPhNLqmRCNjPGd9+vjdotYopSWob
ERZ+22Fn68pQoyolstUOImhS0TzPEStFU47nvBfsJsKpS8oiOSxFqKub9Ynr
fUQIu7mwf+ZRAaqRN1ZxdoB4VO9HdGRv5qFTE1++zg0SQddb8MUZ29dozfDx
xGfDRPgQ2W6bPZqLthY29BBGiXAm1/7ymZs56MFBUFjAFyJE1NJQZH/IQh9c
9q7sGiPC10zt19eMMtCl97K6B+NEKO2OvX5NJg31wi2ZMxCJ4LfXP4WceoEO
MzIOk04S4SY//iFCmojOEirLvhwxm64OBzIbi7ribi/GfiVC1yGvS2B0FOqd
yxgiOkUEe+PXhQF6j1FfI/AuPmKKSr7ZhxzBaHDiXBP9NBEQdjW5fcwLJWlw
u6txxKsvUqzXUixRK9VeG48j9idLaLkhfRMKaqxrHhyxWKpV2zFJF/B8TbCw
PuKv7G9X6Jn8QaJd+s6FI9a99OVT+LVQ2PpVXP31SF/1mGHIY7+nsLOO2rgc
MQO2zNNsEgNn3193+X5kL8QXhzf7xAMwPhyWOmI3W8fF5oQk2CsWT3M5ul/O
FWG1lrcpUEuf0/TkyB9DuOWylp500NUL1QmfIALVdBFL63ImmEgxqNkc+S/d
+PJVq9BseNm99I7/yL+XFRIdZ/C5IHZXMa7zKB49IlvpVtmv4KY7uqg1QgQS
kqpDq/p8UAr7c5ryKJ4pi8cuzqoVQsWENe5SPxHEBz0trSeKoAmTjFboJYJ1
nkSL9W4pJC0nuuO6iPD3ecL2bHg5ZK48n29uP/K/7H58xdM3cMqqG3+n9Wg/
v0mLOHsFuGczfJJvIMIFTrqv7tMVwMMtpxFSf3Se6cN2RX4lXG4kbyr4SISk
PXbBS5JVoEnd/Cijight3WNPL+nWAM3fpjaxgqN4+o633RKuBWHjSIerr4hA
wztBEUr+AYJxj5V5s4ig4kcMGKr8CGcPwijjk4nQfW7K3esYCpbWFwe+hhLB
aXiq/OVPFI4lVr34GkiEcMR129ISA1fhCzfrHhBB4KfrpWdXG2Dyx0gnm+uR
PgX30omlRhjJMuf7z5gI0inrXb8NmqD9FZFeXvdI/2/3JfKmJrilTveWTZ0I
hakeAiJpzfCluqjEASHC0ppntr9qKxTY6n2KO3rPnLJ8ErlKOgCfo59GvTQB
sts7lRdPdMJiaZgS7vsE4NR8BxRDO8G6UKBlfWwCSnd8mZxNu+CMh0SXTccE
rGg8eFKP+wzffu9fWcibgJqA+vpyyT4IphWeCDadgKzCf59rnfqANcRKvFpn
AiKG5CebcvpAQ3VvoUd5AoyE0INRxn5we2jIXyYxAXvDqDTJj37oe1o0LEg/
AVdFGyq0kgehj4yxT6pyHC4PjSTVdwwCh7XVyciCo3zj9/OByJ9BOHU8cr7z
5Tjwd7Ap0FgMga6QWhJNxDgQbJwHUaHho7qDSIy4NQ4/0zk3xepHQI16yb3h
3xhk4rwvM8yNAZuobIO81BiQebMSrdmn4fuz6dM8D0bB5E7RQI3ENDze9BW8
4DAKFSrQgdOahrZt6/kLJqNgefpu9bvwaTgt42LLePUo/7Z/iqHYnAbLt0fF
794IPOK0VnzV8w34XeyxEq8RoGioKJt5NAPXzCopJOyHgRqnFWy5Mg9KZoMz
tjAIj6ZHFNxzfwHqWPYzRqQHvtaq3vP99AtMXJ2tlhl74Go8lhQw/Asax7v3
ddc+w6pi0eJT6hXQOrbMrFX9GW4XP3ye67gC3PRP7HeQz3DVm3di6NJv+Jno
0cxl3A17lFdqOS1XoVXmTuPTxE54kxauFbC+BkyKY2ezFdqgixD+g4lkHfia
gjN5Bdtg/llYQDbDOkjdezdYj2uDk/6hJc2C66Bq9jJGaqQVIkxDaOjN10HA
yChcxqEV7nAFYMld66CheOJWYlILMGd6XXj7agMWzxYYfiJpBmE2r7brFRtg
MrgZxbfQBDeee94eQjegvdL9fF5vE/gHekTujG8Ay2W9yl8ZTbBg7rYgx7IJ
yqlUhYnyTYBx38vqfLgJaoHFRUohjeCSY808a7AFMcsn+05wNkD0/ZT0aKst
KMsq1RqnaoAyrR7BK65bwNqy1VC+jsHKP6lr0U+2IDTg262kTgycbtG7S3/a
gro4nkJtPwwcjlUMRp7ZhiXzuNObGAq24YdJl39ugxHjvawS9zoIN5Pgmd7d
BqsofA5Osw7yJO6WP6XcgUSyeoM44TqY+z7QNnVqB+7KQyjj3CewhrzdJ9o7
oJpsEd9m/Aksd9VMvlbvwNp8JMM5lY9w2yGV63HwLuAz33VR3qiFgzHanrWo
XQiICrGIFKiFFzfvB5im7kJ/TraZBG0t9AsaTV2s3IVv3qqCC9018N8P1mzi
7C6cJd+4TdSvgXPWsbziynvgjaPq/XbvPWyaRQhPMu5D3/WLRm+rqiDm886E
Euc++K8G5Usc/WdE5ewiKwT2oSK8+cpIUBXYnrzx6zGyDwYjo6iHWhWMjZOX
i7vvg3ZBx0PWuXdQbxgoHjG8D2t20UyTnO/gibb3lUvpBzC2ZZTcmlEBcd1C
TiWFB7AS+U1/JawC0pWmMvjeH8D46L1vl+9VwBs5ZYoTAwdwRdBpgke2Ar6c
4+j9Q/0HrMRiUJ+JtyBIVm/d6vEH7A2nIr6ffgutFZQxxqp/QfisSgn2sBz6
RD80Dhj9hdDpD/2huuUwXuC8pWr7F0b5jvkEnSuHlYxRE/ngv5AY+VSRa6QM
jj8r5ON5/xdIU2+zzl8sAxsr9Y8/z/4D91k/1oCNEqA4ljgfuP8PPvlMnzn5
sgjwKwGMeOpDSAtTrP3kVwRn2u0lXxEOge6QifaxSRHI+8uGt4scQsP1e6wv
ThTB/dkZPhbzQ2h0XW3ISyqElXfiNjlNhyD9SuubemoB/BRacLO8QYJoctHJ
htfnwSbbZFixGgniuXLlMmVOHhxQDKRs6pAgjiMnlArC8oBu6mNDuDkJgit8
QGeingcC8c9Zin1JkFoWDhe7r6/B8kDy7UYRCdJeIcRHSf0aRrvCVkOZSJEi
4SsF591yIUH+paL+cVIkPGTA4otBLui8fZfKx0WK+MZdT3wtmws9STP/tQqR
IvvWrwtKaHKh1eJaCvUNUgSomhXtc3KgeufPtaf+pIi4VjifEzEbkng8458v
kiKWAwJWdnezQC/p2YL5Kiny7VtNvqJuFuBpc+Uu7JAiYmQz6HW5LIhe6f/R
R0GGxLW6Nr1gyYLw2vOyeG4y5JV6EIe5TyZ4ay7PJhiQIedV3bbahTJA389S
MrWJDBHg5D7/5mMaJL08RrXTQYZcFcj/sf8iDUbQ1mHdPjKE3Kx21t07DQwo
hL0YJsmQViqBxsWLaWAUtVEZtE2GHCQ0vvlZlAommaEX7c6RI03pv1xZX6fA
naY8EYnn5Ejuj9l215pkyJoz+hOTSI5kM99+vJOaDN+o6bt/pZEj9ISu6lcP
k8FSzcUxv4AcWSVdyHBTSAarYakijkZy5LFq0Km+viSw/dEuQLpFjpCzjW15
rieCE/3y2R4TCuSy7BSeoJUAy/c/UNBbUCBMReN0EVIJ4LDwZF7JjgJpkCnV
P3k6AexaBIsaPCgQyWHjazkr8WAZaHuxKpICuddoRXf6eTwYb3yD9HoKROLZ
7kDtcBzcmPhi6nCWEtl/rld61zcWWm4WyOcLUiJjtTeWHlrFwn81PtyzYpSI
ZeirxhKNWLiWeHzWTIYSmX0z8cGYLxZkNfUctfUoEUF2e+pfgzEg3tR7Xzqc
EpHhP4yZuBwDp4tbk6iWKJHyCWGeJbZo0Musqe1cpUT+6DyLvLwWBU/ji4jR
O5QIp9gL1urOKNj0iz7LRkmFVP92MtYPiIJONYMyAW4qRIHlTzDFQiR4r8y1
KBtQIcRAGb+55mfw+SLl1tNGKuQikXm0LecJkPHvsGl2UCHNtgq9IiFPQJpj
8Sqhjwp5KTMnW2/xBHLIPgelTR6tzwj525x5Ar6DCbiSXSrEJfJ6TX1OBPB6
8fJ+FqNGRNRbKm1LH4NfjYIuUxo1Anv4l+vTYSBu2rdqnk2NIPlLfTfawmDp
0DT6TT418kLa1e1jaRiYKHl3aL+jRiyYydQp/cLg6kgBJHymRvLUpTuPs4XB
7gaDCDsJDVL1aMYLpx8K3ue/UPDY0CA173/HCv0IAbFB6xwPRxokZ8bSQq4/
BOa916DZjQb5pTlV6PgxBPTr6fxsAmiQdfpjrBwxISChLreWn0yDFDVs2X+4
GgIbDjmTIp00yGmO48pLCcHgmudULXmeFhFb+OnBYRoEX3s5ExklaZE7l2XY
O5SCQH2v02NelhZZKMtljb8UBEJq5y4mqdAiOSev+/rSB8Hs2lzxlg0twpUo
bkF7PxAM5cyz36XTIsEjMdQUSgEgP6QdKU5HhxS17U0K0PhDyV8SRzoWOkTz
8mnz7jk/4BR4c/M7Gx0ScIzyVUaTH+zeZ6SO46NDrj3V8e4K9IOK013Bawgd
klhrLQ/7D4DP8T+fNz50SNOY8wujnfuAI5OyFJujQ87sWFWUMftCrQ+57vwy
HVJ3+1vAyU0fsP3Vq5CxTodgyPPr5aM+gH2x52MkoUdGbGpmrmf6gEd56sIv
Dnqk9tIEHdcFHxg3/edcqkWPSEzbNrsZeUPB+xY/kU/0yJeXGsPajZ6gLxrn
NNtIjxy+e01FWuQJZLm3zdI76JGZj+L6vbGeYBq9I48bpUcuXGzIbLfwBCab
c2Q/1+iRP+x1WufIPcEbHxVRLIBDCnG2xwNVPUDxnl6iUDwOsaHfzrZbcwPP
uI8kLik45LPwa3Lmr27w6v1Zp8pMHCKamXmlt9MNyMjWrsuW4JAnbGtlsa/c
AEuKWlVvwSFUp5syeIzd4CrWquq2g0NYb5bjrFpdQYxwhazmFgOSTILr47dw
ATPprHt/LBiQHf4eiaPqBSLNqMcQewYk5xZDYugpF1jOHy7v8GRAlDLuhT4k
OkOBrLvZRBQDEngOG7xq4gw8tsU1/1AG5G2OUmmt6T04UcvlosjLiLzQLi+I
8HeEf1b5nCzCjIisfX+HjJkjzDJebCdeZEQ+Eo8fPy7vCG+s/zvjCYxIy+ya
KZA4ghKz42COCSMS2p2xcjvcAbztaqRIYhkRaWaju69T7sIwqy7Jx7+MCHV0
XNTuuB18wIgl4RRMyB274HMXMDvIcrQ11qFnQii8E6YiXtuBU8P9isUTTAhd
VvRiuqsdUNzLsj4hwYSENamUqdDYgUTzr3YvByaE8dD7ebKcLcS5R8ReGGVC
TK5ccR+tt4b97pKaiEkm5EJYYbltoTVYCvRPTc8wIYpPlE0ZE6zhEpFdLHaV
CcknzXyad9calnL053YpmJEb6Wf3tlmtIRL3I9j4FDOieU454p+7FfRM0X7k
0GZGMj9leM7IWQIZQ3rPDT1mpNBBj+mmsCVIXhX77m7IjIhnCb9sOmEJGQk6
tF1mzAi3IoXIzoYFuNxMM/RzYEYIAjQ6+sUWwFwpsjnxiBn5EvWG+guXBeiE
a4q+rGZGvF+cH9ZkuQN5xqs3a2uZkXPL9tNepHdgTyTWdvgTM1Js8MrJZMYc
sgYHMhmamJEV+5LpjFfm8IvbAB/Qe2T/GZcuVNAcIj6a7txeYEaeuFdMyEvd
hvrVuw3cHCzIYrhLAJ+TKeCb6b7KcrEg5HcWs321TMEmuXjfiJsF+Ts1mroo
YQo4+V+XYvlZkGjizWDef7fA+JlrHuklFiTCKMFwP/YWbPL5PPuuyoL8Ugly
oUFNQOhWqP6rhyzIlgk7VYeoMRi7VeMpgo/41Zr0E4IxRDxe6LUKZUFkHWUw
uz0jmKtUU+F5xoIQa7IvBbYYQRaOFXJesCCaKjZRBHMjYK1/LZhVyYKoVXiU
v002BJIzbQdpiywIPb1WfSeXAZyX2qs5+MmC6NBEKzFRG8BtdWHvW6ssiLUX
b/29VX34eP/5KscOC2JyJmDdp0kfvAcM51Io8EjNJBzUOejD8qOFnuTTeGTI
j0d8q04PRuZpc+L18YggSNTKeetCq96T9FojPFIiiQsfttKF6kaa5KlbeKQr
erEwSFsXkjKoI4Ut8UhGLk0Gs6gu6BtQejc54xHnFa7+Y3M6MNRCorLxGI8Y
/ZoOTTPSgYFXO2s6H/DIrbTWJ8zq2tCI9/npW4dHvA1XJZdktaEiaHs+A8Mj
nMz2+UMi2hBnujWx1IpH5jblwydw2qB9bKMlZBCPZM88ESn/rAV9j1ZSKn7i
EdbPOitmOlrQYzl3DX+agJDfnW+r6dGAbxT5u4lnCQgh5dCXvlwDNvPsy9n5
CchS587dkOcawL68fPKMKAEJ+cdnQNTSAGuP9Z3zMgSkc0XaRWZYHfYfHZaq
GxIQydIZ/qBZNeB/zc7x5DkBeaTnkH3AqQpXlCb6cPEExJMa7Q4hUQW1xfTH
MUkERMMg+kBwTgXcRLm3kl8SkLGzZp39ZSrwqYq/L6/4SH4iH3WsggrotF4K
b24jIKntzF6v3W+Cjf2WrHIXAeH2aFShN74JvnTvN7p6CAiv5fPhKLgJLzWu
WgwOExBmo0cPF3A3YWEEkf0+Q0BOZly7sVqgDPu+ZBs2PwjIq8Df61IxysDA
2Vy4uERAJi8FQJqPMoibK7GtrREQaUuKi+9uKIMiKW2P5xYBSVnuibsrpgxG
uZ2hu7sEJP/Hacarx5XBQTFSxv8PAVEs6g3m+6cE/9c/hvx//9j/ABQzWc4=
"]]}},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->True,
AxesOrigin->{0, 0},
PlotRange->{{-5, 5}, {0., 0.4512011337964261}},
PlotRangeClipping->True,
PlotRangePadding->{
Scaled[0.02],
Scaled[0.02]}]], "Output",
CellChangeTimes->{3.531952100798731*^9, 3.531952954439093*^9,
3.531953395599337*^9, 3.569007588414291*^9}]
}, Open ]],
Cell[BoxData[
RowBox[{"\[IndentingNewLine]",
RowBox[{"(*", " ",
RowBox[{
RowBox[{"Constant", " ",
SubscriptBox["K", "g"], " ", "for", " ", "the", " ", "asymptotic", " ",
"approximation", " ", "to", " ", "the", " ", "Student", " ", "two"}],
"-",
RowBox[{"sample", " ", "t"}], "-",
RowBox[{
RowBox[{"statistic", ".", " ", "\[IndentingNewLine]", "Zholud"}], " ",
RowBox[{"D", ".", "S", ".", " ",
RowBox[{"(", "2013", ")"}]}]}]}],
" ", "*)"}],
"\[IndentingNewLine]", "\[IndentingNewLine]",
RowBox[{
RowBox[{"KgTST", "[",
RowBox[{"n1_", ",", "n2_", ",", "\[Sigma]1_", ",", "\[Sigma]2_"}], "]"}],
":=",
RowBox[{"Module", "[", " ",
RowBox[{
RowBox[{"{",
RowBox[{
"n", ",", "a", ",", "b", ",", "\[Sigma]", ",", "\[Alpha]", ",",
"\[Beta]", ",", "w"}], "}"}], ",", "\[IndentingNewLine]",
"\[IndentingNewLine]", "\t\t",
RowBox[{
RowBox[{
SubscriptBox["n", "1"], "=", "n1"}], ";",
" ",
RowBox[{
SubscriptBox["n", "2"], "=", "n2"}], ";", "\[IndentingNewLine]",
"\t\t",
RowBox[{
SubscriptBox["\[Sigma]", "1"], "=", "\[Sigma]1"}], ";",
" ",
RowBox[{
SubscriptBox["\[Sigma]", "2"], "=", "\[Sigma]2"}], ";",
"\[IndentingNewLine]", "\t\t",
RowBox[{"\[Alpha]", "=", " ",
RowBox[{
FractionBox[
RowBox[{
SubscriptBox["n", "1"], "-", "1"}],
RowBox[{
SubscriptBox["n", "1"], "+",
SubscriptBox["n", "2"], "-", "2"}]],
RowBox[{"(",
RowBox[{
FractionBox["1",
SubscriptBox["n", "1"]], "+",
FractionBox["1",
SubscriptBox["n", "2"]]}], ")"}]}]}], ";",
" ",
RowBox[{"\[Beta]", "=", " ",
RowBox[{
FractionBox[
RowBox[{
SubscriptBox["n", "2"], "-", "1"}],
RowBox[{
SubscriptBox["n", "1"], "+",
SubscriptBox["n", "2"], "-", "2"}]],
RowBox[{"(",
RowBox[{
FractionBox["1",
SubscriptBox["n", "1"]], "+",
FractionBox["1",
SubscriptBox["n", "2"]]}], ")"}]}]}], ";", "\[IndentingNewLine]",
"\t\t ",
RowBox[{
SubscriptBox["w", "0"], "=",
RowBox[{"ArcCos", "[",
SqrtBox[
FractionBox[
SubscriptBox["n", "2"],
RowBox[{
SubscriptBox["n", "1"], "+",
SubscriptBox["n", "2"]}]]], "]"}]}], ";", "\[IndentingNewLine]",
RowBox[{
FractionBox[
RowBox[{
SuperscriptBox[
RowBox[{"(",
FractionBox[
RowBox[{
SubscriptBox["n", "1"], "-", "1"}], "\[Alpha]"], ")"}],
FractionBox[
RowBox[{
SubscriptBox["n", "1"], "-", "1"}], "2"]],
SuperscriptBox[
RowBox[{"(",
FractionBox[
RowBox[{
SubscriptBox["n", "2"], "-", "1"}], "\[Beta]"], ")"}],
FractionBox[
RowBox[{
SubscriptBox["n", "2"], "-", "1"}], "2"]],
SuperscriptBox[
RowBox[{"(",
RowBox[{
FractionBox["1",
SubscriptBox["n", "1"]], "+",
FractionBox["1",
SubscriptBox["n", "2"]]}], ")"}],
FractionBox[
RowBox[{
SubscriptBox["n", "1"], "+",
SubscriptBox["n", "2"], "-", "2"}], "2"]]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{
SubscriptBox["n", "1"], "+",
SubscriptBox["n", "2"], "-", "2"}], ")"}],
FractionBox[
RowBox[{
SubscriptBox["n", "1"], "+",
SubscriptBox["n", "2"], "-", "2"}], "2"]]], "\[Times]",
FractionBox[
RowBox[{"Gamma", "[",
FractionBox[
RowBox[{
SubscriptBox["n", "1"], "+",
SubscriptBox["n", "2"]}], "2"], "]"}],
RowBox[{
RowBox[{"Gamma", "[",
FractionBox[
RowBox[{
SubscriptBox["n", "1"], "+",