-
Notifications
You must be signed in to change notification settings - Fork 0
/
Animation.nb
executable file
·8096 lines (8032 loc) · 440 KB
/
Animation.nb
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896
897
898
899
900
901
902
903
904
905
906
907
908
909
910
911
912
913
914
915
916
917
918
919
920
921
922
923
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
948
949
950
951
952
953
954
955
956
957
958
959
960
961
962
963
964
965
966
967
968
969
970
971
972
973
974
975
976
977
978
979
980
981
982
983
984
985
986
987
988
989
990
991
992
993
994
995
996
997
998
999
1000
(* Content-type: application/vnd.wolfram.mathematica *)
(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)
(* CreatedBy='Mathematica 11.0' *)
(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[ 158, 7]
NotebookDataLength[ 450288, 8088]
NotebookOptionsPosition[ 446176, 8010]
NotebookOutlinePosition[ 446542, 8026]
CellTagsIndexPosition[ 446499, 8023]
WindowFrame->Normal*)
(* Beginning of Notebook Content *)
Notebook[{
Cell[CellGroupData[{
Cell["Test functions", "Section",
CellChangeTimes->{{3.7228853595865517`*^9,
3.722885365602244*^9}},ExpressionUUID->"f5cc3d98-b336-4ff4-a744-\
6c3677ba0a16"],
Cell[BoxData[{
RowBox[{
RowBox[{"H1", "=", "0.5"}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"H2", "=", "0.5"}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"L", "=", "10"}], ";"}]}], "Input",
CellChangeTimes->{{3.722590066124208*^9, 3.722590110311804*^9},
3.722590186699306*^9, {3.72259372472993*^9, 3.7225937249207277`*^9}, {
3.722593845319723*^9,
3.7225938489650383`*^9}},ExpressionUUID->"0440d613-40f4-4b7c-ac53-\
f73a9c5a507c"],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
RowBox[{
RowBox[{"U", "[",
RowBox[{"x_", ",", " ", "y_", ",", "t_"}], "]"}], ":=",
RowBox[{
RowBox[{"Erf", "[",
RowBox[{
RowBox[{"-",
RowBox[{"(",
RowBox[{"x", "-", "t"}], ")"}]}], "/",
SqrtBox["2"]}], "]"}], "+",
RowBox[{
RowBox[{"(",
RowBox[{"x", "-", "t"}], ")"}],
RowBox[{
SuperscriptBox["y", "2"], "/", "2"}],
RowBox[{"Exp", "[",
RowBox[{
RowBox[{"-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"x", "-", "t"}], ")"}], "2"]}], "/", "2"}], "]"}]}], "+",
"1"}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"W", "[",
RowBox[{"x_", ",", " ", "y_", ",", "t_"}], "]"}], ":=",
RowBox[{"y", " ",
RowBox[{"Exp", "[",
RowBox[{
RowBox[{"-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"x", "-", "t"}], ")"}], "2"]}], "/", "2"}], "]"}]}]}],
";"}], "\[IndentingNewLine]",
RowBox[{"Manipulate", "[",
RowBox[{
RowBox[{"Plot", "[",
RowBox[{
RowBox[{"U", "[",
RowBox[{"x", ",", "0", ",", "t"}], "]"}], ",",
RowBox[{"{",
RowBox[{"x", ",", "0", ",", "L"}], "}"}], ",",
RowBox[{"PlotRange", "\[Rule]", "Full"}]}], "]"}], ",",
RowBox[{"{",
RowBox[{"t", ",", "0", ",", "10"}], "}"}]}], "]"}]}], "Input",
CellChangeTimes->{{3.722590415750051*^9, 3.7225904707799683`*^9}, {
3.722593158251459*^9, 3.722593168243231*^9}, {3.72259321539542*^9,
3.722593217065611*^9}, {3.722593258791667*^9, 3.722593264649468*^9}, {
3.722593315032071*^9, 3.722593343478459*^9}, {3.722593805767642*^9,
3.7225938064661694`*^9}, {3.722593932977716*^9, 3.7225939677706633`*^9}, {
3.722594002448964*^9, 3.722594002546074*^9}, {3.722885916197504*^9,
3.7228859570898714`*^9}, {3.72288646418143*^9,
3.7228864644470615`*^9}},ExpressionUUID->"8ee9b431-e24b-4a09-9801-\
92a5aedb0214"],
Cell[BoxData[
TagBox[
StyleBox[
DynamicModuleBox[{$CellContext`t$$ = 0, Typeset`show$$ = True,
Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu",
Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ =
"\"untitled\"", Typeset`specs$$ = {{
Hold[$CellContext`t$$], 0, 10}}, Typeset`size$$ = {360., {102., 109.}},
Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ =
True, $CellContext`t$87265$$ = 0},
DynamicBox[Manipulate`ManipulateBoxes[
1, StandardForm, "Variables" :> {$CellContext`t$$ = 0},
"ControllerVariables" :> {
Hold[$CellContext`t$$, $CellContext`t$87265$$, 0]},
"OtherVariables" :> {
Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$,
Typeset`animator$$, Typeset`animvar$$, Typeset`name$$,
Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
Typeset`skipInitDone$$}, "Body" :> Plot[
$CellContext`U[$CellContext`x, 0, $CellContext`t$$], {$CellContext`x,
0, $CellContext`L}, PlotRange -> Full],
"Specifications" :> {{$CellContext`t$$, 0, 10}}, "Options" :> {},
"DefaultOptions" :> {}],
ImageSizeCache->{407., {147., 154.}},
SingleEvaluation->True],
Deinitialization:>None,
DynamicModuleValues:>{},
SynchronousInitialization->True,
UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
UnsavedVariables:>{Typeset`initDone$$},
UntrackedVariables:>{Typeset`size$$}], "Manipulate",
Deployed->True,
StripOnInput->False],
Manipulate`InterpretManipulate[1]]], "Output",
CellChangeTimes->{{3.7228859473865833`*^9, 3.7228859574804664`*^9},
3.7228864655095267`*^9},ExpressionUUID->"0ff7ad53-d239-43eb-bb3a-\
12e5e1c93e1d"],
Cell[BoxData[
TemplateBox[{
"Plot","plln",
"\"Limiting value \\!\\(\\*RowBox[{\\\"L\\\"}]\\) in \
\\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"x\\\", \\\",\\\", \\\"0\\\", \
\\\",\\\", \\\"L\\\"}], \\\"}\\\"}]\\) is not a machine-sized real number.\"",
2,1,1,19290367293080071878,"Local"},
"MessageTemplate"]], "Message", "MSG",
CellChangeTimes->{
3.7281117903208933`*^9},ExpressionUUID->"57c0d4c2-0e62-4230-8cd1-\
8d4846b2d620"],
Cell[BoxData[
TemplateBox[{
"Plot","plln",
"\"Limiting value \\!\\(\\*RowBox[{\\\"L\\\"}]\\) in \
\\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"x\\\", \\\",\\\", \\\"0\\\", \
\\\",\\\", \\\"L\\\"}], \\\"}\\\"}]\\) is not a machine-sized real number.\"",
2,1,2,19290367293080071878,"Local"},
"MessageTemplate"]], "Message", "MSG",
CellChangeTimes->{
3.728111790393898*^9},ExpressionUUID->"fbf21221-35a7-441b-b121-\
e85f4b35c2f1"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
RowBox[{"pad", "=", "1"}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"scale", "=", "0.5"}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"opts", "=",
RowBox[{"Sequence", "[",
RowBox[{
RowBox[{"BoundaryStyle", "\[Rule]", "Black"}], ",",
RowBox[{"Frame", "\[Rule]", "False"}], ",",
RowBox[{"Axes", "\[Rule]", "False"}], ",",
RowBox[{"PlotRange", "\[Rule]",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"-", "L"}], ",",
RowBox[{"2", "L"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{
RowBox[{"-", "H1"}], "-", "H2", "-", "pad"}], ",",
RowBox[{"H1", "+", "H2", "+", "pad"}]}], "}"}]}], "}"}]}], ",",
RowBox[{"PerformanceGoal", "\[Rule]", "\"\<Quality\>\""}]}], "]"}]}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"plot", "[", "t_", "]"}], ":=",
RowBox[{"Show", "[",
RowBox[{
RowBox[{"ParametricPlot", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"x", "+",
RowBox[{"scale", " ",
RowBox[{"U", "[",
RowBox[{"x", ",", "y", ",", "t"}], "]"}]}]}], ",",
RowBox[{"y", "+",
RowBox[{"scale", " ",
RowBox[{"W", "[",
RowBox[{"x", ",", "y", ",", "t"}], "]"}]}]}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"x", ",",
RowBox[{"-", "pad"}], ",",
RowBox[{"L", "+", "pad"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"y", ",",
RowBox[{
RowBox[{"-", "H1"}], "-", "H2"}], ",",
RowBox[{"H1", "+", "H2"}]}], "}"}], ",",
RowBox[{"Mesh", "\[Rule]",
RowBox[{"{",
RowBox[{"23", ",", "7"}], "}"}]}], ",",
RowBox[{"PlotStyle", "\[Rule]", "Gray"}], ",",
RowBox[{"Evaluate", "@", "opts"}]}], "]"}], ",", "\[IndentingNewLine]",
RowBox[{"ParametricPlot", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"x", "+",
RowBox[{"scale", " ",
RowBox[{"U", "[",
RowBox[{"x", ",", "y", ",", "t"}], "]"}]}]}], ",",
RowBox[{"y", "+",
RowBox[{"scale", " ",
RowBox[{"W", "[",
RowBox[{"x", ",", "y", ",", "t"}], "]"}]}]}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"x", ",",
RowBox[{"-", "pad"}], ",",
RowBox[{"L", "+", "pad"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"y", ",",
RowBox[{"-", "H1"}], ",", "H1"}], "}"}], ",",
RowBox[{"Mesh", "\[Rule]",
RowBox[{"{",
RowBox[{"23", ",", "3"}], "}"}]}], ",",
RowBox[{"PlotStyle", "\[Rule]", "Gray"}], ",",
RowBox[{"Evaluate", "@", "opts"}]}], "]"}]}], "]"}]}],
";"}], "\[IndentingNewLine]",
RowBox[{"Animate", "[",
RowBox[{
RowBox[{"plot", "[", "t", "]"}], ",",
RowBox[{"{",
RowBox[{"t", ",",
RowBox[{
RowBox[{"-", "3"}], "pad"}], ",",
RowBox[{"L", "+",
RowBox[{"3", "pad"}]}]}], "}"}]}], "]"}]}], "Input",
CellChangeTimes->{{3.722590084669477*^9, 3.722590347145651*^9}, {
3.722593186717421*^9, 3.722593277446616*^9}, {3.7225933303601017`*^9,
3.722593442852909*^9}, {3.7225934874400463`*^9, 3.722593550967739*^9}, {
3.7225935857739058`*^9, 3.722593681905422*^9}, {3.722593745417261*^9,
3.722593770264686*^9}, {3.722593858505508*^9, 3.722593890027802*^9}, {
3.7225940168791037`*^9, 3.7225941406667547`*^9}, {3.7225941849513273`*^9,
3.722594263643409*^9}, {3.7228865149799514`*^9,
3.722886517636232*^9}},ExpressionUUID->"fc50bcf3-feab-492c-8129-\
898b9daab9ab"],
Cell[BoxData[
TagBox[
StyleBox[
DynamicModuleBox[{$CellContext`t$$ = -0.38488616943359366`,
Typeset`show$$ = True, Typeset`bookmarkList$$ = {},
Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ =
1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{
Hold[$CellContext`t$$], -3, 13}}, Typeset`size$$ = {500., {93., 100.}},
Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ =
True, $CellContext`t$106946$$ = 0},
DynamicBox[Manipulate`ManipulateBoxes[
1, StandardForm, "Variables" :> {$CellContext`t$$ = -3},
"ControllerVariables" :> {
Hold[$CellContext`t$$, $CellContext`t$106946$$, 0]},
"OtherVariables" :> {
Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$,
Typeset`animator$$, Typeset`animvar$$, Typeset`name$$,
Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
Typeset`skipInitDone$$},
"Body" :> $CellContext`plot[$CellContext`t$$],
"Specifications" :> {{$CellContext`t$$, -3, 13,
AppearanceElements -> {
"ProgressSlider", "PlayPauseButton", "FasterSlowerButtons",
"DirectionButton"}}},
"Options" :> {
ControlType -> Animator, AppearanceElements -> None, DefaultBaseStyle ->
"Animate", DefaultLabelStyle -> "AnimateLabel", SynchronousUpdating ->
True, ShrinkingDelay -> 10.}, "DefaultOptions" :> {}],
ImageSizeCache->{547., {128., 135.}},
SingleEvaluation->True],
Deinitialization:>None,
DynamicModuleValues:>{},
SynchronousInitialization->True,
UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
UnsavedVariables:>{Typeset`initDone$$},
UntrackedVariables:>{Typeset`size$$}], "Animate",
Deployed->True,
StripOnInput->False],
Manipulate`InterpretManipulate[1]]], "Output",
CellChangeTimes->{{3.722590125919982*^9, 3.722590231044464*^9}, {
3.7225903389164352`*^9, 3.722590350111549*^9}, 3.722590395495907*^9, {
3.7225931849154387`*^9, 3.7225932781643677`*^9}, {3.72259331905473*^9,
3.722593331165842*^9}, {3.72259336236978*^9, 3.722593402955146*^9},
3.72259344398333*^9, {3.72259354024573*^9, 3.722593551801086*^9}, {
3.722593595702991*^9, 3.722593682641107*^9}, {3.722593728996357*^9,
3.722593770888747*^9}, 3.7225938082847958`*^9, {3.722593851715188*^9,
3.7225938905563374`*^9}, {3.7225939391386337`*^9, 3.7225939694262447`*^9},
3.7225940042734613`*^9, {3.7225940696270123`*^9, 3.722594089956648*^9},
3.722594142453169*^9, {3.722594187173361*^9, 3.72259423241614*^9},
3.722594264748247*^9, 3.722837622076273*^9, {3.7228858820564723`*^9,
3.722885888556547*^9}, 3.722886468415806*^9,
3.7228865182768836`*^9},ExpressionUUID->"05a3bef7-6fe7-4f74-a0a5-\
35340cbe125b"]
}, Open ]],
Cell[BoxData[
RowBox[{
RowBox[{"table", "=",
RowBox[{"Monitor", "[",
RowBox[{
RowBox[{"Table", "[",
RowBox[{
RowBox[{"plot", "[", "t", "]"}], ",",
RowBox[{"{",
RowBox[{"t", ",",
RowBox[{
RowBox[{"-", "3"}], "pad"}], ",",
RowBox[{"L", "+",
RowBox[{"3", "pad"}]}], ",", "0.1"}], "}"}]}], "]"}], ",", "t"}],
"]"}]}], ";"}]], "Input",
CellChangeTimes->{{3.722594384706533*^9,
3.7225943882779922`*^9}},ExpressionUUID->"76450301-46e2-4d19-9886-\
e7f1ce5980cd"],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
RowBox[{"SetDirectory", "@",
RowBox[{"NotebookDirectory", "[", "]"}]}], ";"}], "\[IndentingNewLine]",
RowBox[{"Export", "[",
RowBox[{"\"\<wave.gif\>\"", ",", "table"}], "]"}]}], "Input",
CellChangeTimes->{{3.7225942897310953`*^9, 3.722594290044142*^9}, {
3.7225943283308363`*^9,
3.722594405081153*^9}},ExpressionUUID->"6503345a-fa72-45a7-bb43-\
0d60427d7065"],
Cell[BoxData["\<\"wave.gif\"\>"], "Output",
CellChangeTimes->{3.7225943683158712`*^9,
3.722594441287734*^9},ExpressionUUID->"bf536dfb-805d-46f2-b5f1-\
51a030a9f30d"]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell["Soliton in layered plate", "Section",
CellChangeTimes->{{3.7228853710554323`*^9, 3.722885373289834*^9}, {
3.76674792383904*^9,
3.76674793509833*^9}},ExpressionUUID->"49fe975b-a2b6-48ba-be82-\
6cb9c2602e92"],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
RowBox[{"l", "=",
SuperscriptBox["10", "10"]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"m", "=",
SuperscriptBox["10", "10"]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"n", "=",
SuperscriptBox["10", "10"]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"\[Nu]", "=", "0.33"}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"H1", "=", "0.8"}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"H2", "=", "0.8"}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"L", "=", "10"}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"A", "=", "0.01"}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"Em", "=",
RowBox[{"5", "*",
SuperscriptBox["10", "9"]}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"\[Rho]", "=", "1060"}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"\[Beta]2", "=",
RowBox[{
FractionBox[
RowBox[{"2",
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{"2", "\[Nu]"}]}], ")"}],
RowBox[{"(",
RowBox[{"1", "+", "\[Nu]"}], ")"}]}],
RowBox[{"3", "Em",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "-", "\[Nu]"}], ")"}], "2"]}]],
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"l", "+",
RowBox[{"2", "m"}]}], ")"}],
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{"2", "\[Nu]"}]}], ")"}], "2"]}], "+",
RowBox[{"6", "\[Nu]",
RowBox[{"(",
RowBox[{"1", "-", "\[Nu]"}], ")"}], "m"}]}], ")"}]}]}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"\[Beta]", "=",
RowBox[{
RowBox[{"3",
FractionBox["Em",
RowBox[{"(",
RowBox[{"1", "-",
SuperscriptBox["\[Nu]", "2"]}], ")"}]]}], "+",
RowBox[{"2", "l",
FractionBox[
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{"2", "\[Nu]"}]}], ")"}], "3"],
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "-", "\[Nu]"}], ")"}], "3"]]}], "+",
RowBox[{"4", "m",
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{"2", "\[Nu]"}]}], ")"}],
FractionBox[
RowBox[{"(",
RowBox[{"1", "-", "\[Nu]", "+",
SuperscriptBox["\[Nu]", "2"]}], ")"}],
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "-", "\[Nu]"}], ")"}], "3"]]}]}]}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"Simplify", "[",
RowBox[{
RowBox[{
FractionBox["3", "2"],
RowBox[{"(",
RowBox[{"1", "+", "\[Beta]2"}], ")"}]}], "-",
RowBox[{
FractionBox["\[Beta]",
RowBox[{"2", "Em"}]],
RowBox[{"(",
RowBox[{"1", "-",
SuperscriptBox["\[Nu]", "2"]}], ")"}]}]}], "]"}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"c", "=",
RowBox[{"Sqrt", "[",
FractionBox["Em", "\[Rho]"], "]"}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"v", "=",
RowBox[{"Sqrt", "[",
RowBox[{
FractionBox[
RowBox[{"A", " ", "\[Beta]"}],
RowBox[{"3", "\[Rho]"}]], "+",
FractionBox[
SuperscriptBox["c", "2"],
RowBox[{"1", "-",
SuperscriptBox["\[Nu]", "2"]}]]}], "]"}]}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"\[Lambda]", "=",
RowBox[{"Sqrt", "[",
RowBox[{
FractionBox[
RowBox[{
SuperscriptBox["\[Nu]", "2"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"H1", "+", "H2"}], ")"}], "2"]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "-", "\[Nu]"}], ")"}], "2"]],
RowBox[{"(",
RowBox[{
FractionBox["1", "3"], "+",
FractionBox["Em",
RowBox[{"2",
RowBox[{"(",
RowBox[{"1", "-", "\[Nu]"}], ")"}], "A", " ", "\[Beta]"}]]}],
")"}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"U", "[",
RowBox[{"x_", ",", "y_", ",", "t_"}], "]"}], "=",
RowBox[{
RowBox[{"-", "A"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"Integrate", "[", " ",
RowBox[{
SuperscriptBox[
RowBox[{"Cosh", "[",
FractionBox[
RowBox[{"x", "-",
RowBox[{"v", " ", "t"}]}], "\[Lambda]"], "]"}],
RowBox[{"-", "2"}]], ",", "x"}], "]"}], "-", "0.5", "+",
RowBox[{
FractionBox["\[Nu]",
RowBox[{"2",
RowBox[{"(",
RowBox[{"1", "-", "\[Nu]"}], ")"}]}]],
SuperscriptBox["y", "2"],
RowBox[{"D", "[",
RowBox[{
SuperscriptBox[
RowBox[{"Cosh", "[",
FractionBox[
RowBox[{"x", "-",
RowBox[{"v", " ", "t"}]}], "\[Lambda]"], "]"}],
RowBox[{"-", "2"}]], ",", "x"}], "]"}]}]}],
")"}]}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"W", "[",
RowBox[{"x_", ",", "y_", ",", "t_"}], "]"}], "=",
RowBox[{
FractionBox["\[Nu]",
RowBox[{"1", "-", "\[Nu]"}]], " ", "y", " ", "A", " ",
SuperscriptBox[
RowBox[{"Cosh", "[",
FractionBox[
RowBox[{"x", "-",
RowBox[{"v", " ", "t"}]}], "\[Lambda]"], "]"}],
RowBox[{"-", "2"}]]}]}], ";"}]}], "Input",
CellChangeTimes->{{3.7228358303124685`*^9, 3.72283595722434*^9}, {
3.7228360139238396`*^9, 3.7228360141738434`*^9}, {3.7228376906080484`*^9,
3.7228376947017984`*^9}, {3.7228377356692057`*^9, 3.722837784673063*^9}, {
3.7228378701205997`*^9, 3.7228379243994083`*^9}, {3.7228379807687254`*^9,
3.7228379821125*^9}, {3.722838055800372*^9, 3.7228380569097605`*^9}, {
3.7228385725281568`*^9, 3.7228385749500017`*^9}, {3.7228388211711583`*^9,
3.7228389033196135`*^9}, {3.722838936598217*^9, 3.7228389382388096`*^9},
3.7228389723255367`*^9, {3.7228390808200617`*^9, 3.722839118313627*^9}, {
3.722841331429592*^9, 3.7228413315390215`*^9}, {3.722841593663843*^9,
3.7228416004764166`*^9}, {3.7228416365018845`*^9, 3.72284164776713*^9},
3.722841752923559*^9, {3.7228424517081213`*^9, 3.722842478954924*^9}, {
3.7228854719503374`*^9, 3.722885479073547*^9}, {3.7228856281260347`*^9,
3.722885654531179*^9}, {3.7228866142125034`*^9, 3.7228866263844767`*^9},
3.7229197070290165`*^9, {3.722919895260741*^9, 3.7229199182454348`*^9}, {
3.7229201349323235`*^9, 3.7229201425707397`*^9}, 3.7229202678800917`*^9,
3.722920419269141*^9, {3.728111905791683*^9,
3.728111905952264*^9}},ExpressionUUID->"8cd0144f-7256-48b0-988d-\
e5b8a940b103"],
Cell[BoxData[
RowBox[{
RowBox[{"-", "0.01`"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.5`"}], "+",
RowBox[{"2.1085393882686687`", " ",
RowBox[{"Sech", "[",
RowBox[{"1108.7333647308633`", " ", "t"}], "]"}], " ",
RowBox[{"Sech", "[",
RowBox[{
RowBox[{"1108.7333647308633`", " ", "t"}], "-",
RowBox[{"0.4742619490836757`", " ", "x"}]}], "]"}], " ",
RowBox[{"Sinh", "[",
RowBox[{"0.4742619490836757`", " ", "x"}], "]"}]}], "-",
RowBox[{"0.233591706265094`", " ",
SuperscriptBox["y", "2"], " ",
SuperscriptBox[
RowBox[{"Sech", "[",
RowBox[{"0.4742619490836757`", " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "2337.807970622677`"}], " ", "t"}], "+", "x"}],
")"}]}], "]"}], "2"], " ",
RowBox[{"Tanh", "[",
RowBox[{"0.4742619490836757`", " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "2337.807970622677`"}], " ", "t"}], "+", "x"}],
")"}]}], "]"}]}]}], ")"}]}]], "Output",
CellChangeTimes->{
3.72291970815403*^9, 3.72291991905789*^9, 3.722920143254225*^9,
3.722920268640378*^9, 3.722920420557072*^9, 3.728111810071089*^9, {
3.7281118836984053`*^9,
3.728111906316389*^9}},ExpressionUUID->"cd71724c-5d41-428e-a48f-\
b24b00ab23ed"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
RowBox[{"pad", "=", "1"}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"scale", "=", "100"}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"L", "=", "30"}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"xMesh", "=", "20"}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"opts", "=",
RowBox[{"Sequence", "[",
RowBox[{
RowBox[{"BoundaryStyle", "\[Rule]", "Black"}], ",",
RowBox[{"Frame", "\[Rule]", "False"}], ",",
RowBox[{"Axes", "\[Rule]", "False"}], ",",
RowBox[{"PlotRange", "\[Rule]",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"L", "*", "0.1"}], ",",
RowBox[{"L", "*", "0.6"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{
RowBox[{"-", "H1"}], "-", "H2", "-", "pad"}], ",",
RowBox[{"H1", "+", "H2", "+", "pad"}]}], "}"}]}], "}"}]}], ",",
RowBox[{"PerformanceGoal", "\[Rule]", "\"\<Quality\>\""}]}], "]"}]}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"plot", "[", "t_", "]"}], ":=",
RowBox[{"Show", "[",
RowBox[{"ParametricPlot", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"x", "+",
RowBox[{"scale", " ",
RowBox[{"U", "[",
RowBox[{"x", ",", "y", ",", "t"}], "]"}]}]}], ",",
RowBox[{"y", "+",
RowBox[{"scale", " ",
RowBox[{"W", "[",
RowBox[{"x", ",", "y", ",", "t"}], "]"}]}]}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"x", ",", "0", ",",
RowBox[{"L", "+", "pad"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"y", ",",
RowBox[{
RowBox[{"-", "H1"}], "-", "H2"}], ",",
RowBox[{"H1", "+", "H2"}]}], "}"}], ",",
RowBox[{"Mesh", "\[Rule]",
RowBox[{"{",
RowBox[{"xMesh", ",", "7"}], "}"}]}], ",",
RowBox[{"PlotStyle", "\[Rule]", "Gray"}], ",",
RowBox[{"ImageSize", "\[Rule]", "800"}], ",",
RowBox[{"Evaluate", "@", "opts"}]}], "]"}], "]"}]}],
";"}], "\[IndentingNewLine]",
RowBox[{"Manipulate", "[",
RowBox[{
RowBox[{"plot", "[", "t", "]"}], ",",
RowBox[{"{",
RowBox[{"t", ",", "0.002", ",", "0.01", ",", "0.00005"}], "}"}]}],
"]"}]}], "Input",
CellChangeTimes->{{3.7228359810468664`*^9, 3.7228359853710093`*^9}, {
3.7228360262953753`*^9, 3.7228360553073034`*^9}, 3.7228378237791367`*^9, {
3.7228378661563015`*^9, 3.722837866593807*^9}, {3.7228379663306985`*^9,
3.722837967471319*^9}, {3.722838001218772*^9, 3.7228380101210136`*^9},
3.722838042507455*^9, {3.72283831957292*^9, 3.7228383464145746`*^9}, {
3.7228385526403556`*^9, 3.7228386049282513`*^9}, {3.7228386699870205`*^9,
3.7228386872352915`*^9}, {3.722838733154503*^9, 3.72283878677148*^9},
3.7228389110507526`*^9, 3.7228389484108543`*^9, {3.722838983490402*^9,
3.722838994724622*^9}, {3.7228390555533705`*^9, 3.722839066194172*^9}, {
3.7228391855329227`*^9, 3.7228393143643713`*^9}, {3.722841289436246*^9,
3.722841305620846*^9}, {3.7228413505820007`*^9, 3.722841416212509*^9}, {
3.7228415306508827`*^9, 3.7228415706739492`*^9}, {3.722841707848942*^9,
3.7228417186771917`*^9}, {3.722841804701562*^9, 3.7228418088265915`*^9}, {
3.722841847164121*^9, 3.722841858645053*^9}, {3.722841889843364*^9,
3.7228418974023247`*^9}, {3.7228419275881033`*^9, 3.722841940616938*^9}, {
3.7228422531500063`*^9, 3.722842253525052*^9}, {3.7228425706875114`*^9,
3.7228425875893536`*^9}, {3.7228855275597353`*^9,
3.7228855287785025`*^9}, {3.7228855976555247`*^9, 3.722885620297781*^9}, {
3.722885731832262*^9, 3.7228858531642656`*^9}, {3.722886569371258*^9,
3.7228865881066957`*^9}, {3.7228866479940915`*^9, 3.72288665007224*^9}, {
3.7228867971575837`*^9, 3.722886813220274*^9}, {3.722919248302023*^9,
3.7229193312934227`*^9}, {3.7229193925201387`*^9,
3.7229196501038694`*^9}, {3.7229197196542153`*^9, 3.722919725904287*^9}, {
3.722919757734048*^9, 3.7229197581246767`*^9}, {3.722919953527092*^9,
3.722919953886468*^9}, {3.7229202750659323`*^9, 3.722920280809004*^9}, {
3.7229204232669754`*^9, 3.7229204238073783`*^9}, {3.728111954977015*^9,
3.728111970398439*^9}},ExpressionUUID->"44057b56-e1d9-48c9-8661-\
af4a75a92cb4"],
Cell[BoxData[
TagBox[
StyleBox[
DynamicModuleBox[{$CellContext`t$$ = 0.00365, Typeset`show$$ = True,
Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu",
Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ =
"\"untitled\"", Typeset`specs$$ = {{
Hold[$CellContext`t$$], 0.002, 0.01, 0.00005}}, Typeset`size$$ = {
141., {4., 13.}}, Typeset`update$$ = 0, Typeset`initDone$$,
Typeset`skipInitDone$$ = True, $CellContext`t$11872$$ = 0},
DynamicBox[Manipulate`ManipulateBoxes[
1, StandardForm, "Variables" :> {$CellContext`t$$ = 0.002},
"ControllerVariables" :> {
Hold[$CellContext`t$$, $CellContext`t$11872$$, 0]},
"OtherVariables" :> {
Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$,
Typeset`animator$$, Typeset`animvar$$, Typeset`name$$,
Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
Typeset`skipInitDone$$},
"Body" :> $CellContext`plot[$CellContext`t$$],
"Specifications" :> {{$CellContext`t$$, 0.002, 0.01, 0.00005}},
"Options" :> {}, "DefaultOptions" :> {}],
ImageSizeCache->{309., {60., 68.}},
SingleEvaluation->True],
Deinitialization:>None,
DynamicModuleValues:>{},
SynchronousInitialization->True,
UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
UnsavedVariables:>{Typeset`initDone$$},
UntrackedVariables:>{Typeset`size$$}], "Manipulate",
Deployed->True,
StripOnInput->False],
Manipulate`InterpretManipulate[1]]], "Output",
CellChangeTimes->{
3.722842254087496*^9, 3.7228424929408083`*^9, 3.722842588573739*^9,
3.722885413494203*^9, 3.7228854831048117`*^9, 3.722885529590975*^9, {
3.7228856032350655`*^9, 3.722885657284545*^9}, {3.7228857391917405`*^9,
3.7228858538205194`*^9}, {3.7228865744502525`*^9,
3.7228865887004175`*^9}, {3.7228866289001226`*^9, 3.722886650728498*^9}, {
3.722886803548232*^9, 3.7228868139077435`*^9}, {3.72291927530355*^9,
3.722919331699637*^9}, {3.7229193934213905`*^9, 3.722919650525767*^9}, {
3.7229197110290623`*^9, 3.7229197263417573`*^9}, 3.7229197590309052`*^9,
3.722919922511074*^9, 3.722919954448943*^9, 3.7229201471317205`*^9, {
3.7229202717165585`*^9, 3.722920281392419*^9}, 3.722920424354748*^9,
3.728111915655493*^9, {3.728111956872607*^9,
3.728111971124288*^9}},ExpressionUUID->"59b77d3e-5cbd-4ee3-a017-\
b56ba7f7bf19"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"plt", "=",
RowBox[{"plot", "[", "0.005", "]"}]}]], "Input",
CellChangeTimes->{{3.7281120436453342`*^9,
3.728112133668879*^9}},ExpressionUUID->"50605cbc-d2c8-4e5c-b5c5-\
df570228eb47"],
Cell[BoxData[
GraphicsBox[GraphicsComplexBox[CompressedData["
1:eJxdXXVYVdvTFuwuDBSpcziAF7EbnWV3K3Y3NnYrKnYrFioqdiuY4GAntoSK
INKI0inybdbs8fd8+/5zn/1wPHtmzcz7vrPXXnOsxs3qP9G4SJEilUoVKVL4
/xUnTsyfVBAOtxcH1391IAdtvjSs19O3uDhv2tuv2aEc3OJz6lGJK1XFdzfH
fg9O5eDgxoYdX4eZiTT/l/02Fs3Fto6lawxMshIHT01Y9tjzD4ZFbnsw5q1O
HDo2IvrDPuMAo9Vdl+jNbERbn95ub9yLBFy3Si4wj7UVO2uc+NHyRy4W2G3/
fbG0gxjWv4Qu4mEOVvVo2jK4WQMxZEKq3esjOdgw5PJM0xmNRJFY/xCngzno
vPJw9cgTTcS+ydU9Lir2en1JbX73czNhcz2zrKdybVb0+EiPyi1FyLwuMQeU
64HL1z+Y07W1OHvhz/HCa+flXxpuV/wdNMXguiklAxN9dgXMV/ztduZK4/up
GXhuinn2ZcXfMrZ3tp36k4FPy3yMqzXGTKQniu0OPTPRecY9aP/XSqQGL7Ea
456NpasVTTgerRPRL49M8AkvQH2z0rNm5+uF1Yrzc94N/INnTH+/ax9uK+JX
5yyOK5uFr/ouHnO0lIPw6Oy3+VC1TOy6deiiJ4q/sxue7/IpIwM/d4sdU0Px
d1dConGiYt+HJKeg74q/Jomrms9Wrod0rtyg0N+8eR8cxyrXjYufH1Ho7+zM
c4NHK9cPxVTpbxdDfp3C6wO5d89eVfxNcZ7v07VbKtZp5PZrv+JvbLOq53t0
T8UHJud1cLWqaPSy06tN/VNxXpyv/6YJZiLT9MarN3tSMaJmx8N7y1mLbqV3
PsmdlY4nffu9PZqlE7sHrv0bsD0XB+7Z7zX/h1483n37W1HPLCyy8XMTzxBb
0f5nn0r7mqThIleYc6ekg3jfyjXdeXIqbjzQt8ctxd8Nf8dP+tozFb3djL2r
Kf7qf5nWO6DYZ//p4dFCf3fMTAxppFwHVp9kX+jvu2ZX+hmU6+wSn4cX+ltq
UYXneuW6/Pk+0t+Yo/n7C6871O4UFqj4W2vzhqTy7ZPwTv8iN30Vf8tuTux4
oUMSBt/q2cVH8ffGt+NVv/VNwtGvXlZwmGImfm93Nom5k4RhDQ7W713TWni1
Oj1t79BkvPJoyfzBJfSifdjU/YGQgXsOZVZo8lovXM4+7dHsRyrem3XN7r8P
tqLZxZ69Nt/5hSW2fbcqKOEgzEb1vaN3TcJPd2pdu6D4C/talnnaJQl3uBm1
MFH8nf5j+6Vtin1DmjaaW+ivadT59IR2Sfi3Z4qu0N9eKabxQcq1S6n60l9I
+zHvo3LdyK+V9LdU4z+2hdfO4Qte/VD8HSDzORofVC9f65XibxeZz9EYO7Do
+IrXqoqSMp+jccONal//upiJVJnPMdjTNyBzmpW1SJb5HId1268IfV5ZLyJl
Pv/GyB66O+f99cJc5vNPDA9ccPH3a1sRK/M5FuefGO06Q/F3j8znGKyXcvPC
CcXfmTKfo9GzW5RZVcXfHTKfo3FMhQ19C/2tIvM5GhPjrlkU+psj8zkaN5c+
N6zQ35kyn6Ox8by60t9OMp+j8X3nfgvTFH9ryPiGYbMVZ2p8VfwtJeMbhqlx
rxf0Vfy9LuMbhr9O7bYpOsNM/JTxDUPHUzdTf9lai6MyvhFY1XHEn0xTvRAy
vtHY9qT58a9X9WKKjG8kTjhh+zD+pa1oJOP7DR9duz2uuOJvTRnfMNzhZNf6
sOKvk4xvGL4IPte/iuLvVBnfMGw35nHzQn+ry/iG4Z6Ec2aF/naX8Q3DIWV6
SH+dZHzDsOIHc+lvcRnfMPTp9zHsj+JvFelvIJpsfH85WvG3qPQ3EHPmXXZb
qPh7SfobiLsOd0psMdNMxEp/A9Gt6Epd8H/WwlP6+xanbzD59s1cL5ykv5/w
zOm4J0/O6cVE6e977J38aKrpC1tRT/r7GtPu/k59UtxBVJX+BmKB57SRBxR/
m0t/A7FmvUGhlRV/J0h/AzGvboJdob+Vpb+BmNsvtFahv52kv4H4sUwV6W9z
6W8gPgmpIf0tIv0NxCLyvwioOXjMOtsiPk6jm2+OjFP8LV+szsP2Rj5Oedne
7msVf8F5+psuZXyc5h78r56X4u9Eh9guD/v7OHULrL5RX89a2B137LZk2A2n
pv1Or1htqRdufmOqty7v72Q1YLWdyxm98Mo52Nr7/W0nT5/ex1Y8txVTXYJb
rjPydTJGI901xV/n5BG1S1r5OC2u4lZ1v+LvxFH5FSsX83Ha0O3HlUJ/F40Y
uHGlYt/2mZm6Qn9/rWp3uKJybWbRVvqbcXdIvJFynV+mYGihv90+xLYuolwP
XVdN+vtj0qCShdccXwPFFzi+NSi+wPF9QPEFjm8exRc4vqcpvsDx7UHxBY6v
K8UXOL7tKb7A8bWj+ALHtwfFFzi+iyi+wPG1ofgCx3coxRc4vj0ovsDxNaH4
AtevFdUvcP1WofoFrl9/ql/g+s2k+gWuX2+qX+D67UL1C1y/s6h+geu3DdUv
cP3qqH6B67cz1S9w/c6l+gWuX0uqX+D6HUj1C1y/nal+geu3ItUvMD4PIXwG
xueehM/A+Fye8BkYn7MIn4HxOYPwGRif4wmfgfFZT/gMjM8/CZ+B8fkA4TMw
Ps8lfAbG572Ez8D4XIPwGRif/xI+A+PzXMJnYHzuTvgMzL/mxL/A/FuR+BeY
f+8Q/wLzbxrxLzD/niD+BebfTsS/wPw7g/gXmH9bEf8C868l8S8w/3Yg/gXm
39nEv8D8W4f4F5h/+xH/AvNvB+JfYP4tR/wLrK/SSF8B66t40lfA+qoJ6Stg
fZVN+gpYX/UgfQWsrzxIXwHrq2ekr4D1VUfSV8D66iPpK2B9tYn0FbC+MpC+
AtZXu0hfAeurD6SvgPVVGdJXwPoqjvQVsH4eTPoZWD/3IP0MrJ/LkX4G1s+Z
pJ+B9XM66Wdg/RxL+hlYP+tIPwPr50TSz8D6eT/pZ2D97Er6GVg/7yH9DKyf
q5N+BtbP+aSfgfWzK+lnYP3cjfQzaPoj0PRHoOmPQNMfgaY/Ak1/JDT9kdD0
R6Dpj0DTH4GmPwJNfwSa/gg0/RFo+iPociRzy96Riv0D3ZM/22ajoV295Q0b
W4qOW/uHdsZcbB3wfK15ppXojL9f79qZi2LU6F5tWlmKM4fzbWsmZaJ/TW8n
uzo6MXXj5+nH2hQJsLk0Y4XLF514UjSobHAHo4Cg2t9tSrfWiZDl9cJHBufh
sl4PNn2ZpRcVw4/Vf/7EOGB2iYq9GpezEb3n6lu3uPoXT473GNxjlF48/PHB
rlbNIgEek19apbQ0iIDHK940Tf2D9yu8b1bmh63w7/nacWdWNo6qu7jtQluD
WHV2etChN9m43W7uLKNYezEy3F2fVSkXz/qXmmelrOeinmOD/X9m4c+lDd5U
iLIX/v2+d7g8OBODFt07MX2cmchwy6u3YnY6bmka2wWLW4sjycXn1Vuaie2P
VD3UWFiKspfOLIivlYYba/QpXua3Tjjt2Hn1TvN8DOl0rVe/gTrxLe5k1KLG
WVirUvOIL7/1Im1DozMu2Tm49efasJl99CL5bdmOQe9zcUr7Lu+efbEV1W/q
H4NlBrqsyi75qYZBiK3DwowupuOkyAgfWyXffUQNsbhtOpoc2ttlx3d7UedR
6/GTj6Ti8aF3ms2fpPDFldnTrG4nY98an+BxFYUvrMxMn01IRQej7pNMOlmK
b8tOb5q/8xeO+F2mx4QCnUisubDH09gsfOBRw6fIVJ2IGmCesHt7Kn54UO9K
mxC92H9EVDus9DtN4raade6gF0M+z2q2aH4Gzk0688fvk62YabV0+K+uKXhn
arcVZcoaRMHsrlGTNyVjMaO9ewcreJTcJPBMkx3JWNz9eMi6cHuRO92hOLxI
wgsiodPlqWYiRdZHArpP3D29QR1rsV/Wx08scDe+HN7VUpyS+RSDR5se67O4
nF4ckPWSinsrVB5aY7FOBMn8ScQD5ml+Qx7rRRtZP8m43/mqybuWevFA5ksy
RlbMuhXz1lZsk/WUgD1jph2rYWQQK2R+xKGbqU31qwpfDJH1FY/3nQa7/Q6z
F3dlPsRgWr3e72pNV/p/ideRWN/S+nURG2vRReJ1FN6p32b+3h6W4otc32/Y
L6Fy1W7V9WKHxO8E7HvxiNPetTrxQ65vJM7UrS9R76aSzxLPY9Gv+e/HFRvr
hbNc32j0PduwROdAWyEkvv9AfeboOX9ybMRfub4RuMgqJuSmooeSJZ4GYfcu
qyc0q2stkiSehuDIvJxbTXtZiiBpz2t0LT9y7wczvQiX+BqOaa4Bo5Zs1okI
ac977P8ufsudi3phJvH2Kx7Z3KWBcX29GCDt+YRJd4ZEfVb0YrTE32Bse8Dm
160MG5En7XmLwZ+v1H/nYC08JF8HoPFRt6Cait5uKvn6Ma4cvQCfbNUJnwXV
WvUcc9upg13tvkZn9WKU5O8HCP3vDDhTTy/cf04fdtDZ32lDh+kDTip6XCf5
/B56vvGr0SvdRqwoU7tMq8M3nPh+F+l+wP4mkr/A9+9P9wf29yf5C3z/RXR/
YH/Hkb/A9+9F9wf2t8Qc6S/w+ufS+gOvfzatP3A+xFA+AK9/Eq0/cD7EUz4A
r78drT9wPoyifABe/2Raf+B8KCrtiQDOzxzKT+D87En5CVxP56megPNzP+Un
cD19pXoCzs/nlJ/A9fSE6gk4PztRfkIvtZ7WUj0B108A1Q9wvWdQvQPX+2Gq
d2B8iiR8Aq53T6p3YHyKJXwCrnegegfGpxGET8D1vpvqHRifjOV6JQPX+wiq
d2B8+kv4BIynOYSnwHiaRXgKjP8VCP+B8fQX4Skw/n8n/AfG04OEp8D4n0r4
D4yncwhPgfG/PeE/MJ6mEp4C478F4T8wX2URXwHzlRfxFTA/nyN+BuYrIL4C
5uPPxMfAfJVJfAXMv4+IfwXzVU3iK2C+dSO+BearG8RXwPyKxK//9EU66Qtg
PdGF9ARo9AawfnhK+kFo9IVgvdCH9AJo9IRgfXCP9AFo9AOwHlhMegA0egGc
y3pU+9zMUiyodmZV/aBsnF5t9vPzDjoxqOucEX3t/2LLMqVz/SbpxdTvrS7M
mWUUsKv6hlZDGxiE182M93ERufgoxMlzcbS92FqzSZMBTbIxquVG/fA2luKz
zYA3RYplYO5/Wf1EV50Yfj1+7LR1OfhgqMsJd2e9aPUqtPu61fn45/iRej0s
DGLMoR+hve9lYokqvUvdj7QXSZu2DSi7NB2Hbf575Ul7S9Gm2d867xum4Oyp
VUydRuvEOPNxk92/p2Mps5jixbrphfenNm1s9dl47oF7oEllg7Bc+S7C51Aq
Vq1RcuuyCHvRKz/O9eH9ZLxVkHHHrIulkn+F65+ArwPvmx+doxNT5HonY4V+
y6yattWL8nJ9U/HgfFHrRnGDuCfX8ycmxE6ue+GbvRgm1y8BCzxmtR/Z3VKU
lvXyA6sNLT5+6koFb2R9xOL7bIdM02Z68VPWQwK+ufuyav18RQ/L/I9Cx37T
umzoaSm8Zf4GYceyYdEHN+jEB5mvX3BQ1ew11xroRYDMzwjsutfuzsosG7FM
5mMIjojqerqxwj+hEj8eoIdX2Iu/Ct/0lHjxGIsZDy5/RuGXDMlnAf8+n0af
B/78VPo88OfLSTwJALbvEtkHbF8E2Qds3zOyD9i+9WQf8PpUpPUBXp9IWh/g
9Umn9QFenw60PsDx6kzxAo6XC8ULOF6VKF5wSI3XQ4oXcLxGU7yA8wkon4Dz
aQLlE3A+naZ8As4na8on4HzqQ/kEnO9fKd+B830U5TtwvrelfAfO93GU78D5
/pvy/V89LqR6BK5HZ6pH4Hp0oXoUXI/HqR6B63Eb1SMcfnbBDUaYibml7a2u
VcvBNfnOq1ZONxcw8tWkc91zMTStvf51ipVIbnTOxmFfHvredavyw85KdHR7
WrBjaxbalW16r8MBa3Fvy7lVRzv9xQrz178o+KQTV/sfWPQpyShgf8nH6f6H
dcL90P6blwry8fi+E0fSLPQiZPY12/amRQNm935sWsLERkQnRRydFl6Awx/M
GDnkuF74pOfOSFj6F9++P+nusM9GbFs57/Ezv7+40if0V5loW2F7rcXGiUk5
uL1R5fNnMgzCey9E1r+Xhb0ett68MMJO1L7Rre/7Mbm4rmrghEkKvk190zi/
d0g2Hm1U92iZ9LrCt+e4T8McM9Hz2ORW3ceaifnNj4waNCoDy/d2OFjN2Fp0
nRDw4smqLEzesNp5UCMrse3n25UnvNIwqP21Y7MTdKKSY83NNzf/xT1Hbqbs
u6nwX9DZDn4F2Rh08fbIVZl6sano73JHDHlYdeqkyYs26oXHglPDO0zOwV4v
qtosC7MVq8y2W5hUz0Tv/T7NmiYaxPU/TWJtn6fhi5aX2oxT+OPkw/iJZepm
oLHT9uqbU+uKdnuXjchcmoqhq5xnuk80EwsmVvXMPpWCPiYxHR9UtBZH9wbN
GuuShsv9WiVWbGUlLl/0KZg2+TeWX3mzuWeeTuCNfP2j1jnY4+Oks/de6cSQ
KnffPC9Iwx43ln27HqYX9U3zF7+dkYm7ehdtZz5fLxZm9+vm2T8dVwxu9dM6
2FaEuEf7PmibiuvH7GtyJlLRO08HhsCZ3/h76LQb6xV+/n7z6OvHS1Mwc9j1
bv1S6opDd+s91e1OwoGTFpunT1H0uqHy9ebhifi6y2z9x1qKXt8aap99+heO
dL70toqwEu1lPsWij/2+LW6l9WIm/Lj3NjEN/c+8r90oTCfcZP4k4evJFTy9
nuvFB8eysca+KRjq2jGh20S9uCbz5RdWG9GrY8E7WzEucuH+yNc/sfmm295G
X5X8l/kRixlzi70JUvRPqyHnZxofSsQl2z1ajEyuK67LfIjBcv3fdt89Ten/
pZ6IwmGxL1r00FmLQ1JPxOB2568lRnW0Ehfk+obji/b9vHQmetFS6okkTKid
1zU1TqlHub4/cMyDmR6d7yj9rtQT8Rj7yX583lC9mC/XNworhvSsV/m1rTCR
eiIafarVXt8uWOnf5fqGo1HH4WnjFb39W+rHzzgkLWO1rb3Sb0j9+BWr+j/a
mtLZSpyS9rzBPi+iXVfWVvSt1I+R+L5eRIMCRe/0l/Z8wILHhwNPXtaL1lI/
RqDfwuvnGw3QC1dpz0ec+bLF6SEvbcUWqR8/Y5Gifl8mfzSIpdKeN/h8WkrB
FKX/iJV6/xl2DBhYzEOp5yCp79/gvG+rPwxJ1YlqD40SfAffdbroeqjdPaXf
MJH6/hUOGfL94e++Sn1Xbnsh5dldpwbNKl/7pPQb4VLfP8Va/T2Pz/tgEBPS
v3sX9fZ1utDX/1rFetbilux3rgD760f+whn9kYGTlX5nrOx3fIH9HUP+gsuz
yanbzyj9lex3rgH7u4r8hcE1g3ptUO4/TvY7l4D93Un+wgBoEvRXWf8/sr94
D8bHhx6s/Z+16Cv7i4/A+XCT8gGWZd0fn1ZH0e+yv/gMnA8jKR+gyVPjiFoX
9CJQ9hfBwPmwjPIBIuesXzJb6Xe6yv7iA3A+bKZ8AOi+fdZepd/Jlfo8Al6O
fnJji0Hpv6Q+jwSup65UT3CvRUDDVjX14rfU57HA9bSJ6gkqzJpeZrSPYq/U
59HA9XSL6gnet7dpse2VrXCV+vw7cD2dpnoCrp9bVD8wZbj5upEuZiJT6ts4
KLGpaKnxFgqeSn2bAIxPPoRPMCdu/73WFRV9IPVtCjA+DSd8ggz0njPivl70
k/r2FzA+LSF8ApvNl92/v7EVKPVtHDA+bSB8ggsrOmRtVep9idS3scD4dJTw
Cd64fq8+eLKZSM0+NH+Px2+4bll525Fq1qLXpbEPHEenAOP/DsJ/2FWiZ5ls
Y70wXZo858XuTGD8TyH8h8Tb56tV/aAXxfRrr0ytnA6M//sJ/yGsu2GSy0db
UdKvklGtAcnA+O9L+A83JvtVqKvgqdGEjOJduv0Gxv+OhP8wd0eI3m28mVj0
ekj+Kbc0+KD73RVKW4vMZT3q7FH6P+bnzsTPoNsdajIrTdFDqWVC/H/kAfPx
BuJj+D1idaZbvF6MrrCgQ/MX2cD8e5P4F3JWbwyy+2wrLvW74zKtbjow354i
vgWv7pWf/FbsfezfsVZc/zRgfr1J/AqDfIpe/jZK4VevH1i0VRZM3H24Radc
K3G4R9NFOZtzIHBgW4vbdaxEXo17K1csyQP9tnbfvCJ0IsynytGQA0WEc8Xt
1xooerDClYd73640EsZnbUwuFLMRt7InBxVbkw8uw0x191DRO7dtA7o+MxJL
GoQGm323FQNjx3/0M8qGro4Xdxob24q9jt3Dml/Pg2m27euEK/y64fm2qw5G
WfC67dofbzLqCvtiXXtjRM4/e+eRvaixD9l+T7IfX1j/mWU/31w0izQbot+Y
iRp7A9ifr+RPwGjL59/0V61Fk8Mzbm5IzUGN/QEa/7Dxw+UuLtZKPY6Zl/9i
VJEAjT+4WPV3APmLbh7ZM68ttxEN9JnVLwzJRY1/yP6vJ//xVnzBUM8vdqJ1
9IU8K89M5PxaQPmFnF9plF+47FZl2xXLzIXD5BndjjxNRc6vKZRf+J9fo7VD
H1uL8xcb/JpzNAM5v0ZQfuGhdRfqrtLrRaNj00+d7pqHnF8XKL+wmNEkf90U
G/H+2cIp29MzkPPrIeUX2r5xmbYq2E6MMKl0ek5wKnL9/qL6Ra7fHlS/ePDe
vpPL3cxF55Cl8xuU+4Vcv9WpfnHztzmXvn+yFtb30vTDe6Yg168R1S+GfKsf
3sSgFxmrkvvd/pCBXL/FqX5xSJVfc1Y524j5M3Juu+5IQa7f/PGyfvHA3GWo
+2gnst1jvN1sfiHjYwrhIzI+diR8RF3TbYm2681FE5lPMcj4+JjwEd3Wu4/0
j7QWjWT+xCPjY0/CR/z5uuSGDbZK/cp8SUbGx7uEj7jsxY4tz7raCEeZHwnI
+LiA8BErBDdxdn9nJ1rKfIhB5psM4htkvkklvsEaZhnZyzaZiw5yfb8h800c
8Q2Wvzl7589Ea2Ep1/c7Mt/sJb7BT4Oa2Cy104s0ub7RyHwznfgGXe17l//T
1kbMlev7HZmPU4mPkfm4E/ExLpj7KnDZFnPRVtrzGpmPtxIfY70ZDbrPSrEW
5tKed8h8HEB8jHvm+t4oZ6/wpbTnEzIftyU+xhb1Dem1WtqI2dKed8j6ZDPp
E2Q9YiA9gpFnH6/vlGYt0tus85xw6qYT65H+pEfQ3m6zUxvlfn3flhi1MNjf
ifVIBdIj+PZLzXY2zW3E6aIdPi8resuJ9Vc+6S9gfweQv8B6LI30GLC/9uQv
sB5zJD0G7O9f8hdYj6WTHgP2dxn5C6xHc0iPAuvRY6RHgfOhF+UDsB49SnoU
OB8MlA/AerQ96VHgfMilfADWo/tIjwLnw2LKByir6vVs0uvAev0Y6XXgempJ
9QSs1wXpdeB6akH1BKzXs0ivA9fTXaonYL1uSnoduJ6aUD0B109bqh/g/ied
+h/g/ieF+h9gfOpO+ATc/8yh/gcYn/SET8D9TxD1P8D4lE34BNz/TKL+Bxif
FhI+Afc/ban/AcanP4RPwP3lIuovgfvLY9RfAuO/I+E/cH/5gPpLYPy/RPgP
3F82pP4SGP+bEf4D95efqb8Exv9PhP/A/eUP6i+B8X8U4T9w/76Q+nfg/r07
9e/A/NyC+Bm4fzeh/h2Yj5sTH0Ow2r9vof4dmH/vEP8K7t/dqH8H5tvGxLfA
/ftp6t+B+bUN8eu/5y3z6HkL8POVVHq+AprnL8DPU67R8xShed4C/Pwkhp6f
gOb5iuDnJXb0vAQ0z1OAn4+40PMR0Dw/gYWtn1dYp7MSloEPsOTaHLTdO39+
haaWYmS/fIe7L3LQ58S2kXtaWIrtof0/nviehaZurS0KZpuLO0fnjY6dmo1e
C/v7ld+uE3F/n2Z/gCIBYfOrPa9goxO761U91K1/AbpkXW9T0Fgnaox/U2dw
kXxMmRAVdvaktcgxKWdmYvYHN5Xo477kil5EHtiVZ76mSECnEE/vZtP0wmnM
rxl1ahsHDP1RYvPMcXrhMW59wuOHRQJ21CphaG2l9BNTdu8q4WcU0Khjjbf7
8wzCLPJR+PVbObik0cPZFZoaxJW2rfptj8/Db1VrrXz3n0HsaHB1YPuQHHwT
XrZC6kYbEdGv6cw7m/5gMefwjVGKnp1l96ny1pLZ2ONBleiWMfYiY+lIh5PW
OZgzLWVPQJS9sPEt42TUOQtP/O1aJjXMTpzvlWezZEU2bvjkUvdDPSsxtfkr
qLUvA3NblYr+2NpS3B97ZumW7AzMGxZZ9m1bS5Ean289v2I6eoTvd/27yFxc
1T/uO/ZMOgLGDG93XidatTy23HdlHl51y1r9vJ1OHNy/2WvCpVy8ViNi74ze
OlHndRed64hsdG3zI8DnrrWYbfOmf/6zLPy2df6ZwXv14qTv2yiPlDw033xz
9IBhehHxXLz+GvIXd765ZB3dX+Hj165P69X9g1t2lpm+Wqfw09Vzb82L/sUx
OQetGyUbxH/d7kSdf5iBVYedXNRdZxCzre2GZDxR4l184sjFtQ2ir8nR4Wd8
MzA+c9rZGa42wi3zBh42ZOORjxN07dPqirzZv/fbDUrHg6Vyu0/4YS8G/brZ
Y+TUDHTc71DSJtJerLOdOPz2ljTcsXbMkgWhduLlslHvnt9Ox5+fnnhMbWYl
rh/7hA7nFH1VtM77de0shd51wIuRhlR0aHqreWYHS+Gce2ZO5zbJuOLipK1n
VpqLM2ertf8Sk4z7Tza/cf+BTnjPu1b64cpMnHFjxuLEoTrhVbTYqZVlMjFy
lJdDhwk6oWsZYLf1Vhpu8LxpV/W1tYhtumtjzPw0zB0gDt5ZoRfuzZe9//01
E32v/Pyg66kX3T94B6xYmoMbHOfMrdhZ4c/goNtvXmXi6KPjT02y0QuTnY7L
GmzLxhGVRsVejTGIVlcux594nYLJJkPrjTIxiAYlqo8e7p2G+zaujssubxAV
s7eMq7A7BT/6xJz7OMpG6A+1qLz6QRq+mHJ2UbTSr264Xdry0fFk9Km18bnx
d3vhO6bKtGpXUtBxR8Vd+eH24kXjlRmRp37jqufm9e58shM/z99fZpqRjCec
wgZ0bWMlcmT/kojDf193supsKSoVz2846sxP7Nio0vcSXS3FPPk8OQ7fJXrP
yl9rLtpI/EnAi3U7vdym4E852c+kYOXKiy7Pm6ETp2YuO39wUgrmvko3WjVf
J/rL58+/sInb2GqPv1qLuxKffmHYkMvDT0zXiymyv0nBst2cjM4Ivbj+tdR1
S/N0bFOk9/Kk1srf5fPqFCzZsfKnBIXPgiR+paHNxjHmNcMNYrfsdxKx0vhv
27qVMohvH0q+civ6G4cdm2XZt6hBHJHPtxNwh+myKrZ9bMQWiW+/cF2Vixtf
J9cVtrL/iccD2TimmrJedU+FmhxKSsSsAQebdv9mLzbL5+FxODdwjbX/eztR
U+Kfoo9LXxo7q72V2CL7/x8Yl/9Kf7qbpQiRz/OjsVP/hJLGPSxFa7lf8B23
Hxxgmr/BXNSV/BiJy3pXPHTmh078lM8H4vDIrur6ict0Yqh8/h+PeWPDqund
dGK03F+Iwnm/ItxfxFqLs5I/o3G954OflUfrxW75/CAeLQeeig1vrhct5H5B
El7t2EmsbKIXx+R+RBy6r6yaXV7RTw0kvyai3/jjTyeEGsRV+XzhB87r2PRw
uQIbMUruL8Tg6J71i6/MsxF15P5FJNaxcYiY0MFGvJX8G40l27QM+NbJSgj5
PCEYR9afsqlGT0sh5H7LZ3Tc2/lCrHJdUu7ffMDbt103nd5sLhpJvg3CEpU9
bCom6cQq+bwhDKu27hbs564Tk+T+TARG1Rk2pf4mnQiV+z3B2P170+W639ai
geTjUMw2X9KrhLNeXJbPI75h6ru661821Itycj8nEqPynP0e1deLBLk/9Bk/
93Op+Fbx/4bk6wi09NL92PfJILzk84pgNLs9csjpbBvhJ/d/vuLZTQEe6zJt
RGu5n/QRlwZnVt3W2kY4SD7/jD1dQ10epOhET/k86iHOLlPp+dItOvFK7m+9
xBtFpuUc26pcy/2ya+g7bEz2m1RrUVPqtfvYMOLT8lX99GKafF71CNc+eB7u
4qgXfnI/7C1+slmT4l9PL9rI/TVfLHa3Wu2Gih6Pk3ruMQ5oGzX76gcFb+Xz
LMSS9wcHmGYo/abcP3uGzUboPo1PtxEJcv/uCp5r8PXicaVfcJF67/4/+yeT
/cD2FpC9wP5Ekz/A9tcn+4Htdyf7ge1dRPYC+/OC/AG2v8RqaT+w/Z5kP7C9
NeT+4RVgf7aQP8D2u5H9wPnXg/IPON+qUL4B52N3ykfg/HOi/APOv22Uf8D5
FkP5BpyPMygfgfPPifIPOP/8KP+A8y2b8g04H6tSPgLnnz/lH3D+naP8A863
zpRvwPn4lPIROP9aUP4B489Owh9gvBGEN8B4FEZ4BIw/9Ql/gPEnjfAHGG8m
Ed4A49FowiNg/LlM+AOMPwcJf4Dx5gzhDTAeAeERMP40J/wBxp8bhD/AeKMj
vAHGo/GER8D4E0T4A8xf+cRfwHy1iPgKmM9MiM+A+asd8Rcwf1Ui/gLmqyHE
V8B8dpb4DJi/Aoi/gPlrGvEXMF/R/moKMJ/dID4D5q9Q4i9g/tpH/AXMV7Qf
mwDMZz+Iz4D5ayfxFzB//Uf8BcxX24mvgPnMkfgMmL/qEH8B6ydf0k/AemkI
6SVgPWUgPQWsn86RfgLWT6dIPwHrJQPpJWA9dZz0FLB+iif9BKyfNpJ+AtZL
RiFSLwHrqZ6kp4D1Uw3ST8D6yYn0E7BeqkJ6CVhPNSI9BayfDKSfgPXTJtJP
wHrpNekl8FX11E3SU8D66RfpJ2D9Po30O7BezyC9DqznH5KeB9bv10m/A+v3
NqTfgfW6Jel1YD3vSXoeWL+7kn4H1u9nSL/DLlWv7ye9Dqzno0jPA+v3QaTf
gfW7I+l3YL3en/Q6sJ53JT0PrN/Xkn4H1u/5pN+B9fp60uvAen4w6Xlg/R5I
+v1f/2hF/SNwv7iD+kXgfnIU9ZPA/eNd6h+B+8d46h8F94s1qV8E7if3Uj8J
3D/mUv8Imv5RcL+4j/pFoeknhaZ/FNw/mlP/CNwv7qR+EbifvEb9JHD/+J36
R+D+cTb1j8D9ooH6ReB+MpP6SeD+8QL1j9DDb2vO85nmYvkKyx9dh+VgSNmY
hnuOWosvfYe/Dm2Qj+OaXHM5aKkXb39aj/R2MQ4wLWb3e9YOG3Ez7uOB+yfy
sch/F986htuJH6utW5+alYMX8yscMl9oLuYWnfPxwf4M9HG73HjTDWvRf6x5
8Ydh2Xh23bG0bGu9GHf7+cRhYwpw5Ryjq8kLbcTQrc6J3pCDDka1Z6/5bCeK
Xl0Xk3EuA5dcLlLMfIW5cNlw/7FTcArarOp958Nza/F8zvfWFzal45MZ0bMz
9XqhP9Cr8vTEHLyxLiNkxHgbkdcwxGnDl3Qc4VG//74gO6GPiNvZKSYFr70b
1+TZGnPxoJZ+5oz/fuJ/xR4+nh1qrehPb9e9zZPx9s/lkbsUfI1Z9M5v+YJ0
9BfFJvv0txGHg4Zum7YwGbclJCxw+WAnNpjvX1K3w090ntDUoY7Ch5dlPUbh
kwrlncdGW4uZsr5i0c14WtfXtnrRR9bLL/Q4Xm94VicbsVLmfxxOmLwo0UzR
E60ln3zGrKMO004mWYvbkh++oeXlC8fPKHz3UeL9DxTn5/jatLERmyR+f0O/
m1bF2yh6yk7qiee4N7V9ipWij65KffAW7wx7Ox9aKP2e5PsXWMP5p84uzVq0
lvrrKkS8qteklfJ5E6mnfKHE1W6eHRV9tE3qo6tgUjXqk9kWc9FY8v17KLl0
y9NJydbimuTvT1Ck7YxpKYp9TpKPv4DuUphd01Y24rPk10/wNjju2tON5uK8
xPsI2GIwTs6OtxYJEr9/QGYno31dlH9fU+JxHFTuv6V25XY2wk7iq/L3cqMG
13E3F36yXuPg1JBeh7+FW4s8WX8/4WFU/A0nZX2fy3pKgbeeg+aF9LARkbI+
fkJXsy4Pait8dVHmexxsvNbhYZ3V5uLN3g/L0n7+hkGVZ76p8d5alMxtH2w5
NhUm1rJ9+Vbhh5IbK8amN8iC0dtaNt48zEb0KXYgevHZVNgzpcWfuI924sbC
g5OTiiaD+7MDmc+WmIuUTqaBBTcVvOo7wd07wFrsiF/p1dwnE8Jibn0oquRn