/
Play2.nb
10218 lines (10183 loc) · 589 KB
/
Play2.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 10.0' *)
(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[ 158, 7]
NotebookDataLength[ 603228, 10209]
NotebookOptionsPosition[ 601968, 10162]
NotebookOutlinePosition[ 602486, 10184]
CellTagsIndexPosition[ 602398, 10179]
WindowFrame->Normal*)
(* Beginning of Notebook Content *)
Notebook[{
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Manipulate", "[",
RowBox[{
RowBox[{"Plot", "[",
RowBox[{
RowBox[{"Cos", "[",
RowBox[{"2", "Pi", " ", "f", " ", "t"}], "]"}], ",", " ",
RowBox[{"{",
RowBox[{"t", ",", " ",
RowBox[{
RowBox[{"-", "1"}], "/", "200"}], ",", " ",
RowBox[{"1", "/", "200"}]}], "}"}]}], "]"}], ",", " ",
RowBox[{"{",
RowBox[{"f", ",", " ", "400", ",", " ", "800"}], "}"}]}], "]"}]], "Input",\
CellChangeTimes->{{3.599485136463676*^9, 3.59948523567659*^9}}],
Cell[BoxData[
TagBox[
StyleBox[
DynamicModuleBox[{$CellContext`f$$ = 736., Typeset`show$$ = True,
Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu",
Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ =
"\"untitled\"", Typeset`specs$$ = {{
Hold[$CellContext`f$$], 400, 800}}, Typeset`size$$ = {
527., {161., 165.}}, Typeset`update$$ = 0, Typeset`initDone$$,
Typeset`skipInitDone$$ = True, $CellContext`f$449$$ = 0},
DynamicBox[Manipulate`ManipulateBoxes[
1, StandardForm, "Variables" :> {$CellContext`f$$ = 400},
"ControllerVariables" :> {
Hold[$CellContext`f$$, $CellContext`f$449$$, 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[
Cos[
2 Pi $CellContext`f$$ $CellContext`t], {$CellContext`t, (-1)/200, 1/
200}], "Specifications" :> {{$CellContext`f$$, 400, 800}},
"Options" :> {}, "DefaultOptions" :> {}],
ImageSizeCache->{574., {205., 211.}},
SingleEvaluation->True],
Deinitialization:>None,
DynamicModuleValues:>{},
SynchronousInitialization->True,
UnsavedVariables:>{Typeset`initDone$$},
UntrackedVariables:>{Typeset`size$$}], "Manipulate",
Deployed->True,
StripOnInput->False],
Manipulate`InterpretManipulate[1]]], "Output",
CellChangeTimes->{
3.5994851752856007`*^9, {3.599485220280651*^9, 3.599485236803586*^9}}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Plot", "[",
RowBox[{
RowBox[{"Sin", "[", "x", "]"}], ",", " ",
RowBox[{"{",
RowBox[{"x", ",", " ",
RowBox[{
RowBox[{"-", "2"}], "Pi"}], ",", " ",
RowBox[{"2", "Pi"}]}], "}"}]}], "]"}]], "Input",
CellChangeTimes->{{3.599490969506865*^9, 3.5994909761407633`*^9}}],
Cell[BoxData[
GraphicsBox[{{}, {},
{Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwtmnk0Vd/7x02VIcO918wnUSRpToNkH0KZKVNFShElKqVBKUOmVKbMEZEx
Q6YU9pG5EGXKPA/XvXebh2v6ne9av3/uXa911jn7ed7P+9l7n72OtI3zOVs2
FhaWUuLnf/862nynV6TF8OuRWo1DSsGqJwueTnFuE8P7dGUkxUKdgaL05Hth
cTF8s5rWaGXIc8C3XLN0kCyGN2uts9qGvAXNqR5Z9mxieIT0LN0qOB5YcM6L
tQ2K4lZll7jcX2eDGzVdUzkfRXGdjKM3pNwh8NZMi7OTFcUjn1iW92O/wd0W
JjmUIoIr/cvPvfWoD4SfM7wYxi+Ce78p8OHI6QMlTR8T3vGI4NZas/DZWB/Y
3KB3IJJdBB87tohx7ukHsVVx+u9nhXHdnfvjOyL7QW2hul/KX4IleGjmdwfA
tqiAte+hwvg9Vw9VIaEhoCHSp1H6Vhhfs9gXlrdvCDi8OxxY9koY766+WaN6
dgjkB3eLl3sJ4+mLxVck3IaAdsC+49UuwjjddyOK2jcE7rv9udd0Xhjvfzii
9it5GPy0Eh8fpgjjY1N3r1KlR4FhvApg8gvj+vlcAh7HR0FL/+Vw/q3COA9H
xR02w1HQc+2jhjKHMF7Qbj1T6TYKphwUE97OCeHCFIV4rZZRIOKqelG5VQh3
mU5QUPAYA9ff2NS/DRfCpXfjVYN142Dit/eO5BAhPPhGpmdKzzhwIqU8+fZG
CK9ketibTI+Dh2GT8iM+QvjSs1fX7EQnQED0/ZfKD4Vwo1tBWx1sJ0DOJx/V
EXMhvFDETOYfcwKslaXnKIsJ4T5ebvPj5ElQ37l/64qgEP73ZbXC0s5JELuQ
f+O7gBBOqn+Ojx+dBCr74DYVTiH8Ds+tktsXJ8GT938DTy0K4t/PrtdwfJgE
C26r9lirIH4g9cd+M1kaqI7wqGRpFsRXLFNO3lOigXd5m7eX1wviKtfC7jtp
0sCRSYF2tUpB3C/KT3aLLQ24XJTVPJ0niC8FVIUWJdLA1HEDaa1gQVyDSY7c
JEoHuMnfp5tfC+KRNzMNJeXo4O0di45qP0H8ydKvneQjdLAv1ebtmReCuLRM
xXi0IR3cFnm4dtZZED88UbZL6iUdUOfj/+nqC+K6ISfcRybo4BtJVmmrtiCu
3M67PjpPB/5704PqNQRxgYWVnGpWBpC3zT+jryKI63QUPtkuxgB2LbUFBnsE
8Ynq1f0qWgww9GU62JhLED9R9vYQVzQDxG5mel7cJIhnpQZcxz4ygNlFtvvX
WAXxi6MpbhcyGaCWlWL2YJmC02OTlA6WMUCW0RHxqAkKniaVOPKgnwFuJKnw
JI5Q8FuzXXrfxxlg+5LGavoABY96NmMyOMUAofGmvSX/KPhAXO2uVhYEHjFc
E/vrKLjcf/IbelIIHFR/HjpRRcE5Fl+GxskhQH3n6z1TTsEX4dSr5r0IWJ2K
tOP4RsFd/GBg10kE1AOLFeTTKXjjzmj+52YIrPSVSxz8RMHVdUY4uiwRyD/8
c6tyIgXvt5yRF72GwK6uToZuNAV/tW1yWMkZga0Kq1+cAyj4Q/VdfusvEah6
xpH0yIeCDym6G1x7hYB789Z3Hp4UXL6vRygtCIHpR/89DH1CwQ06JUPboxFo
q1E9WXSTgotlcpXBzwgESZxRxO2IfNTV2RS/IKDtbPhfnQ0F9w65If24EIES
4SsbnRcp+CaJ7L6CMgQSbD0q1nUo+Ev76/SvDQhcLPbP33KGiE/fOmpPMwKC
vCHJAqcpuN/5ZtbnLQj45Cf6ypyk4OGCu1ZqOhHAODMe7TlGwcubel6W9iCw
fCnP4chhCn6gMBcP7UfAkb1SV2sPBd9rmXZycAQBWfN6FcNdFFxaLdz14jgC
vektey12UHDw/pB5HhWByPXubVelKPgPtgNdNBoCxudG+G9KUHBqy2WWLQgB
7k90FhcRCv6fTlYl6zQClcvz024UCj57W1GuZwaBowmbW17zUPCjsr7FSgsI
KP++W6e2hYKvv9th27yIgOpad9k8GwW3mbmseHaZqN+es/lp62Sc/tWPN5qJ
gNaFvDQrJhk/uia+pWYFAR3fbfGkBTKe4vBN5PcqAgYF/mFV02ScR+2o6pc1
BM4Nzfk/ppNxqrXf4zvrCJiTrjzfO0HG8VOttVwbCFiCX/cHhsn4HP3WHneC
r9w+evNdPxlP2l79oYHg6zEJ1trdZFxjh5/8EsH2dVtN19rJOMfAix9rBDsu
PtTJ/UuMN5Tm1EvwHdkhYPubjD832rU3muD75w2UxH6RcQvGmfUDBD/yKFZo
qCbjW6ReDiYS8TzN3rnd4wcZnxzw7EREvC963goplZHxsD/8YyIEe/OscE8U
k/GmXbJcEkR+fifsWN4XkPHgL6Nqy4QegTea541yyXh0d2LIF0KvoHcqkxyf
yfjqpz+rWksIhFWk9H9NJeO2qWKehYTekdPkNsckMn6CR2sn6zwCsVLuv7Z/
IOMer4xG5GYR+KA/gbfEkPH4+5Y1u4j6JbmZFPpFkPHuuKJ6dqK+qWkwQyWU
jH937Fz8RtQ/s10hYeoNGZeuvaGrT/gjZ1N4eFIAGdeR2vvz2xgCxVcdPbZ6
kvGpFQfTXYMIlL1td8WfkXHfViN7uT4EfpSqO95/TMZTdQ3yWLoR+CkmZt59
h4zPF6uynGlFoPGMt16QIxn/L2KOK4/w+58HSE3DntCjWesSk+iHzuYqxUxr
Mn7RSXRUvJrw68YBmSuXyHhZ4Wf5uXIEBvfGigiak3EjKZ6q1FJivvC/x/bU
gIzre0hIJeUjwFST6tA9RcY5a0roQx8QWHcOaNg4TsbD+d+FRMYgwBY3/yPv
CBmPCn1cKh9O+Jv567OEIhlfPJVe1hWAgMSXR16T4mT8ZHmO/Ot7CGzvH3oU
L0zG+5J/Fm5zRGAnn6HTeTIZr8r7xhpoi4DiTdkL37nI+IPcONqyOQIqMn/2
vVoi4SzhO+Z3EPPVBwrPkfNzJFykaf9Y0WEE2DdpnJCYIuHvQox37lYk9Bkr
OJ0xRsIngmMTPkoiYPE5yuJXGwlftdr3fnmFAe4fv+rJU0BwoVLpwXwG6Ngd
7fs3h4SrJbolx6UzwEmJv4ExmST8foDZ3YkPDMC2rhGxJ4mE60bL9Im+ZoCg
CvlM3VASXrGnTKf/GgNkGky1vrpLwvefYYuR4GEAAWx31/nbJPx3NX2b4wYd
uBy06ZdwIOEHnnRpxMzSgbJgCzXjCgk3Wbmf8a6LDmr/FW38MiThvb0llqtp
dDB8/fnurftIeMp/esHvMTqQdON7FkgVwM+39tdEmtKAQ9JPkfejAjhrH2vO
hBYNFDb4fPk8KIDzHxRRljpOA8bbN8YaOwXwqO9ut4+L04BPFTpH+iWA5809
Hd/ZMwkQf7N8eIYAvi25G8xaTYIfSaEt8Y4C+C9YovFXlwr4Gw2dc+wF8JWq
Dqm2E1RgucjDXX5dADf2FY2Cu6hgUdsbDFoK4IhFJlOLnQoU0f30nfoCuKpL
oMau4gnw7oTZi7S9AvjvkC/86tsnQFPsQQu7Hn480jDt4dXuMcCS5Bze08KP
Sy8p1oZVjYEDGZ9bTOr58abbqjyfs8ZAUPFu49Pf+fE7l283B74YA0Zt0jrb
o/jxwY+WYOuOMdDET1bpNOHHe+6/5Ze5NgqaPGekDOr58PMHcObNpmHw2z5v
TOk7L847yTjxz3YAfNrdfNyolAc/HCBqmvW0BRyIbrpzr44Lj7C7rDk5ng+k
D5zqFM7Ygm+jXtNt06uB1G+amzbnbsIHfeU0z+d0wozgop8uqZvw+B/7o8IZ
ndDRfnfQQPwmXNZ1iu27YhekC/FKlL7ZhP+Tu8FMTu2CU3daDtx33ISrdX3N
X43rhgty1ywHd23CZx9qfXZ+2QvZQl/klcVx4Co87ocqJAZghcPMI8VwDpyt
x+XNl+MD0Bu7rhr9mgPPTPos+8Z0AG5inKl78JQDt9ju5cH1dgByavP3KV7k
wPXvtpvwsg5Cvo333DFCHHjHc8VxxYFBKHHr+9WHgez4m2svcmhBwzC6tlaL
15sdT4tmeZOePgzF5dr2fHRjx+1Xnd4YVxI8MDXfeJMdTzbP8Lm4OAxFzeUC
5LTZcdFTepip5QgUPB38pXUTO64j/DagVXoUbpW4wX7kORsu1N/5UiN6DAY+
uj9e58qG7y7X+zGdMwZ52jwarJ3YcJKkSJ13zRjkDo6NeGXFht9l0povzY1B
zi1/9gydZMPtNH0lf+mNw02zKiYhS6y4avl306ilcbj+k5w8dZcVtym58sro
JBUaR8oViNxkxbU3Xmuo6lNhkq1ylaoNK06tGM0iW1OhDovNSOA5VvyBc+g5
Z08qDFfKld19mBU/4/5iZb6GCvd+MPx0dY4FH2XtN1YwmIQvbl8r9KOx4LNu
Y2fdLk/CP8oPq7OHWXB2lwPUXKdJ+Kg1bnSthQXf4D5B//1mElZyM+SiC1hw
i453Wg0Nk9DyQWDKH1cWfJF/lxyuRYPZ6h+Klp1YcC+GbNp1UxpkE8iv2X6D
Ba9Rax6nX6PB1PSuMSdzFvzxmold1gsanOtTkOc5zoKPZE90jHylQWFi4vKd
2YDCshxUmZ106AK2mjgsrsN0brm0ZyN0qHEavrw2ug79K4beBk3TofCZe0VW
reuwO7c12GONDr8adIify1uHRY9u5a4JMuCqVdKAsvM6NKy5zLBUZ0DvpyrO
W8fWoNQVTbPMcAY0fYE+bG5bg3wd3xjRHxhQzjvxD0vVGpT7q95tl86Ata84
j84nrkFJP7OA8FIG5I1pWe25vAY9jUo3mQwyYHixY0B22yq87xkbpiqL4I1S
qZK0qlXoqtCasKaI4PHyP/SP+auQkXzcNuoIgp21x40jQ1bh8Eklmt1pBLd1
cIh6GKxC+lQx5YI1gqirSNvt1Cr0HBqdWLVFEO+76fZAcRUGeX9TeuaIoM1Y
U68D9ypMz+EjUR4jmLIQm3yuegVO7tUmhwYh+Ihp2K5XsAK3pt9pEgtHUGed
jetM0gosE6treBqDIG2Tg+NJzxUoVdB8uz0ZwVIuyTiluyuQPbyO43c6gm94
f//ef2UFyg56VCRmI3hASOnwTtUVOHHGI7H3K4KsYuPXt+1dgU0ZJl+1ShH8
IxkTLiq5As9LsA4ElCN4fycrcyuTCa26S8xT6hD8ergBny9gwvHS11YHOojn
ibw+S/7EhGcC/+WodSGYytRr2hfOhCpUyejDvQhGltf33XBlwlOveHYUDyEo
kBx4w9uOCY1HNEr1RhH089NDH8yY0JYtZBAfR/ChYf36v6NMyNvZUalDR5Bx
KNBnQY4Jh/9aPLuCELQT1uOjiDBhDmW5yGwawd5lnvD9W5jwr/nPe3tnETTr
+fWf3uIyDHRazRieQ7ARf5VsP7YMS471Xn26gKBWku7el+3L8N2nnpC5RQTL
fHkKEmqWoWyF7yn9ZQSP3vqlUla0DCsz/K74MBHMMnhV2ZmyDG3CM5jxKwjK
HdLVW4xYht+bO7mjVxGME+Jpofgtw+vVUkH31xAUXv556cCjZVi+mOi/f53Q
vztgSM9+GXZyZC78JHgzrnPLwWIZ8qcltGltIOj+kXv25dllmFvCtfsjwfM+
P58kHl+Gj5T86X0EO94MYIPyy7BPbngHsd+Ew/o6AV2iy/DKj7VfTIItD3KT
lziJfM07RjoIbhH8GSW4vAR5Td7djSBYb8lf+uDEEvQ6/cD5KMGVXdpp+v+W
oObv9r4CIh4VyHXwZt0SZC87WSFEcH5i3Vef4iWoPasqbkbko+jjj31MW4L9
TnEjrkS+SQ7atTBqCUroHZV7ROghqc9l1O2/BOdw1p4LhF5hB+ralx4vwW3/
SfBIEnpuFfS3Frq5BCdqv+eWEXp7L54dO3hxCfJpqPxRI+rhUla7cFN5CaoL
dvpMzCBITfBz91VYglrNp7fxEfW1eXl2c5L4EjRQkDtKIep/Tq9WqIe5CJnH
TqMyKoI/9/u9X6YuQvemH2G2hH/UKWdlhbsW4etajQraCIKHOmuOGH5fhE5r
+6pi+xFML/UtuZWxCLPMWt5X9SAok3BGwy9mEe4+vcD1uxNBkn3N+XK3RVi+
7p7q1UL4U9e3q+fWIjzUJD6wrxlBlv1nrjEvLcIbh98Xf2tAcGq++t5hFWK8
7YIW96sRtP/nwzRUXIS1B5RkE38g2F+i5ekouQgNOt59yClDsMmrOjh5dQGe
afyR61yIYDapOkekdAGaGGh+cU0i8rtM0unPWIDO1mdN1OMRXEi3HEqNXoDW
Z6wuTEQR9dKYFVJ+tAATdmUk171BsNZ1u5vl4QUo8TV+/a8rgrcqbgnKyhDP
E252druDIJ9A0We6wAJs2nvqyboDgiZp+v3ujHlYT1l9FGFJxNf1RDMhjeDB
aqYQhqCXfHWvQ+Q8dB61IMUcJ/z+gPTokO88/J3azrp6gPAjX2p6xfV5mK1E
CjOWRnAJa+UflZqH+w2b3PVYCP0+7e9UCJ+D26+ssgQUMWD+zBOXWe85WOnl
eKT5MwNagOqtJS5zsJT2ZHDuIwPGdVgCfeM5SArS6m5+y4AKPAFJzlvnYKzT
5aAhWwZUvzPslO85C0/cq2y8w8OAIyX7OZ/dnYXXvkZav9ygQz8utwTNK7Ow
2fHfkYezdNiYSGppOzULy/XeD8900uHFVtUTy0szMIG1f0I3lVh/lKPYVZ1n
YE3yl9BgFToMC5PoNrs8Az+/2C5fsY8O8xnv8531Z+C38XqFlu10uJCYaJuw
ZwYKOZ8oDuOgw0c8mTUc49Mw/WNBYfBPGnTvLnv168o0LLadDfQ3okE/92HK
hXNTUHHvnwKqxiRM7bCj3VWbgmrLrOMKhydh3aGJyoADU3C6fqpMT3oSco/R
H5TwTcGPJtPpSmtUKB7PyAbEPJ/XI/slLo8KZdUEjzf4MiBdQfNDnzgVKr+0
Pjt+kwZL1A79zv87DuuWniVf1qVBY97+kR9wHFo4xrK17qHB6qCgma8Z4/DB
+X8l5bRJeOU/2kkrr3GYI33+YAyxD7i0Q63A7+A43FWmJW5wj0r0nUXFU/8x
KLi4l5b3eBxSOUymHeRHIbJfffvcbximha4c3blrCLZkHRQwsBuGu12VuvJ5
huC3ObsgSY1hOD93F98/NQi9XzQHFW8MwUKz77+Gvw5C8chPwbOuQ9BJ5+Yl
Q+1BqFFjFHrDdhCmx/xnpW43ACNlk8MN1fthhIrmUa4dfdCrMkYZLLXDvV+V
jX85tMO27yqV6ew4/Nv+sGF+GkJrRa01k+AyEHdkeivuXgYGzlqYOsV1ACPW
5z9kOTqA6sjTqw09HWCL4cX77aodINoj4bbif/8A9q34yt3HHeDcN+pLasw/
EL5Fh92K0QF+7HlWaBfVCeokqhV52/+BRL5EEeuwbnCjl18n/mMXOESdp+3S
7Ac5jRtlrPJ9YC4bZIueHAY/HCazqeODoH7PSfIdq2FQ/CxvOZRjCHxMOfqg
5vkweGhub7lr+xA4F7/3pGvlMDBHqXQe8yGQ+0ai5q/+CGDXelNfWzEEnG4v
9r65Mgoea10+sRA5DMYUsvk2+YyDs9uGlXUPjoKyT+l3LVPHQbymvNiq9igI
l/nUkvdzHLDJTOqG2owCLfH30Tb8E+C8zo9T90NHQRLXKzk8cgJcMieprc2O
givjdqpuGVRw0P9QLCVnDHQmb3OabqIBSwGUFU6ZAIWbM8+lztCAWtuuq0/k
J0DojRPHrAXpIKPRSE791ATQ223C0mBOB00nDF4/s5sAZZn+Iam9dLCkWm2Y
UDQBEvLmCq1pDNA3ECDpb0IF+VdGNka9psBodKmYxqNJIENSvPcjbAqkeHMO
PPefBEHl94bfJ08B0QkVkffRk+C2DEudSc0U0FXy9XYrmQRyw+IhP7inwZt4
cfPq9UkQecNoZ1zwNNA9Ujzl9YwG3Jy+nzWNnwFSp06UyV2jA3Uwf50vewa4
j3Z6BjjTAbfAfo+ashkwEOrX2exGB5G5icUnemdAUXABhSeMDgrn/BW2/TcL
5hwk7OUq6GDmicXWsehZMMlN/rkgwQDfdEPkP6TPAu+WzbffyDGAh2S9xoVv
s+DNE90ZzoPE+28ZePbr3yz4mGTn9kmTAfax7mJki84BmtJzF8/bDHDTd/73
o/A5sL1gNr+giAEOWeynHfw0B2zbHq664gywLO/AOVkwB/RNMoLF6xjA72c3
ZtU6By5Y9HpxdjLAJ97KXDXBebDlLUpyZzKAU+9aA3PHPBgXTXA1ZkNAKfsY
Ne/wPDDgvGm2mRuBSqMMGbnz80DIIlpGWAwReYeEcofMg9rlIzsblBBIvV6f
XZEwD+qyI2KzVRC4o7S5/mnuPCixzae6nEZgve0xB2qaB/l+QowEIwQkxa8+
+Mu/AJKzMgdCHBAYpkYHB0otAL9P2uZezghkfG/5rLl/AXy0fXXX9AECylZn
R4sMFkBLdtyzuBcIWHzYbx77egHMZ3ZaVbxDYG5L79W0uAVQl9HdohCDQJBz
oGNh9gLgXxq0c/qAQJ3qhEdT8wJojj9Z6Z+OgN2niMCewQVQ+JbifTUbATY+
rQjq7AIYZVs5I5RPjNeTmMkhvAjKFiurBUoRaNMwLiLtWgT6Ky4PLcoRuJe5
Ub7t+CLwD/4l8rSKiNfNsv34xUUQ/O+3oHnD//ITZrsdtwj6nJJ8LnUh8NWj
cuuT7EUQzTV9wrMXAZOJeyK++CIoda/57j2AwOuvvxUTBheB8dCb//4bQ0Bh
u/uxrNlFoCwqu/hlAoFqX0X17xxLIKf4bchOGqGnmb95q9wSgI+m2WOmEIgu
O2YzeGwJcO5ob4n/3/mn3KgjOrsEWC44Wb2YQ+DP67CHqxeWgKD1uxiVBQSc
5tU9uW4tgdSc869bFhHgtpoOFH66BMzZOg/87zz0U2V8xI7XxP0ant4RTATU
FQ0SD8QtgeTE3z4/VhDoC13NPJW9BCQDnI7WrSLwdCW9SAdfAsGfjoRkrCEg
eu3CD/PmJdA+sj3KYR2B/J9bGq4PLoE3jy7psG8gYHSosP3u7BIQ/auU/Ihg
WtT1QXeOZWCVpZBWR7AfK4X+SmgZ2HL2mi4QvNOhfDFSbhnAnf9lrBOMNzmz
fTq2DL4H9qYO/u989fg23ryzy+ABv7phIsFL8fUi+IVlkFseFHeK4LAtbjIN
N5eB75pKRD4Rz0Hn3Xs73ZbBwNXBE1sIbmxrPzYWuAwamjV9lYj4b6r6qM+9
XwbRLqYvAJHf5k9H9Fmzl8GvbHk5WSL/RN4hcz58GXTuZ3kySuil+iDYRqJ5
GdR3az7zWkKgsxvclh9cBuE9gQdXCb1dNRgPlWaXgeG74EijeQQombGe6hxM
gCWcyH8xi0AORfe1oRAT5LWF+gROI6DnthxhKccEyVgH6T5CwFvH7LPrWSbg
7WqwbKMisP0Lx1evC0ygL1wqbTyOQIlY3o+gm0yQ/o6cnjKCwPw4f0d6IBNc
VDlIGu9DIMSobLDoPRM4pngsNHcjsO+rI70yiwly2rQyI/4R/eBbx9bXxAQX
DrJFFv4h9OS/VVTXzwQ+p6OkDX8jYByx1TF/igmszpsfqP2FgEqKYau/wAoY
77WavFSJALmmNeWI0QpQ+LuMcRP9w2n40FLqygowbTpvmUL011qbKIn7zgrQ
85KXlM1AYHz00pO+tyuArKgc8yMBgdLNg3oBv1cARfuthM9rBL688WJ90LcC
Zs1ce+X9iPlFWLbQGq0Ase90x0xPIh85eykl/lUAhq+xmT1EwF6LMd1nsAq6
Ma7sw9YICPoww5UaV0FE7pa723YT/uaL1d3euwrEVxq+N0kjsPHuFAsPYxXQ
1h2PXRdHgJr8wqGfdw0IDBf27uMh/FW1WeWV/hrI/i/rx/lJBnDcRBnor18D
nSom9MFkBrB5nf/uV/ca2Hj9ZTkjlgHMhcx0CmlrIKs185tZKAOoy0blvdq6
DlqEXz43fsEAoppSPkf11sGTvtJtPRYMUOG9Z0/gr3XAutJ53ZSDAZQ33n2Q
61oHac3eXq7LdPDlMYtwOXUdNPU+3O7GoINEp1aWBa4NsDtYYmNfBx14Wjxv
sz67AVz/3Xmink6sT4p/PQ5XbQB9IzNxGW066Hc45XjbmgVzqmtdE75HA5Ip
M5+Ub7BgzSBXvuwaDVgMpwxscWbBpoxzzuuY0kDTZbJ5ojsLVv1m7wDpOA3g
58fU2t+zYLLPda5ar06C+FPBImrdLNjZL7GeLC8mwWXSyA/BC6yYz3PsT6UL
FXBEt8y9usqKCSQ0fEu5QgXpMpVy7DdZMeEbzWK39alg8fDHgOknrNhjnufB
8XJUEGR29VxjLCsW5OnyM7l9AlTE9Az49hPXdT+P6ByZAPJybSwrN9gwW54O
u+iOMTCrXKM64MqOrW8Rtar9Mwyqz+do1rizYzSFy134t2EQ6Ril99mHHZvI
SNqZnDgMVONuXXwczo493HTG9eC9YRDAKuBKKmTH4K+8zEsCw0Cm1uKz2jw7
VnO26xKP9hAwNqVKJLpwYPvCLTS8MgdAtjPvss2dTVjP6E6NVs9uwPF81MMm
bAvmVl10MT23FnhE7dAWCePCQkfXeY56ZUJdjue7K/15sPgubymbuT8wS/t2
ByONFzsRTB/O3jMAp0JkLHpzebEv8Tx+d7QG4KHu9vaGYl4ssDd/z/arA7DQ
Sb09s44Xe9GYy6MXPgBhqEjbzQle7LPHmfN/NwZgU0/531F5PuxxENdV/9+D
cPau8O/eFD5s8lm69OCVYXj0+y+Dxmw+TDZWU8f48TB8xOHRWFrEhwVOZOtn
Bg/D1fDJhtgaPuyOisJL2R/DkKMEr784xocJqcZLysiMQOHNt362yfFj2nPO
1vt7R+DxaFjVmMyPJf305GZqjsHhfdkq9ln8WIUIm7af1RgMrojLYy3ix4ql
5n1X7o9BKu1ZwpFafqxu52x00McxGAtUnkVT+TF+jgty9zbG4It7luJ5IgJY
fqlfxUruOBwR+dfsbimAqRQZ6TxkpUKVQaPXv64IYPpa6z4uQlQYkll7VtRW
AIP+LB+Md1OhqtpXmHtbANMKPMeTZ0SFkTcjPg+7C2CLXaz6nHFUqFNq6q+T
IIAxok9KTRyahFk2fzDhUQEsxyzx/pQGDSY7PKUZUAUwOXJ8W54JDcbekYv0
ZQhg1iNT6ebXaTDA/QlaWhDAnm7ltsW8aNA2WiauawsJ07+wGQuDNCj5597K
h90kjKfxIu+xQ3RI+SeZ8m8vCXscN1u0DOiQu7/6HPkQCQsu62iM0afDJbp4
upcyCbu7ijjc7enwL1eFhZ0uCRvfkJ75GkuHAWqUwj23SVhV5LEzq+t06HG2
9Or1uyTs0rGn41ncDPjI8Abv+wckbMlYWxATZkA7q+/X+dxJ2E1T8Y41RQZU
e3yNMv2GhBWLkHNHLBhwKSfvTmEOCWvJurLLMp0BUZGVJMonYezpp4un8xhw
tGxL7a5iEpYWu0fMtpQBW+ovSUWVk7Co08JiI78ZMHucvdHtDwmzc2BfPTtL
jLfdZI/aHAmTS780EHEYQRf0RO3gEgnb9JmD7KuM4IuyBHPpVRL2Q7pg3VwN
wRhL5MXKQcaKdXum4wwQbIoM6C6nkDHXm29e4zcQ7LmRO5MrQsb2Rk9MltxG
kHq0gzNRgozNf0lviXZBkKNVVslzBxmjNpbuW3FH8ASp/LX6YTJ27PGJ2/ph
CGr1j308dIyM6R/f4mMahaBJNt83mZNk7Mtj5rpqHIJO+pajbKfJmOm96+sF
KQi6SXqtzmiRMWw4y+10JoJ+k2nkIR0yVmhWrfUlB8FE/0XVinNkLPWPTsHh
YgSzLbaZ5pkR44c9Nvrf+WTJLs1bHy+SMbXmJXnlcgTbq0IivGzIWNZqnmdV
LYJb2fZNnb5HxkK5Dz+42YagWLPJ5iOuZGwDKYT7/ENQ7oOb5M4nZExOmPzP
qxtBNdW6sxyeZKzltlKx9CCCBrxTl+dekrFXIizGP4YRtOwWfjDsT8YyF9s2
To8h6PrkekJlMBmbgvxR1EkEvbRfFeW/I2Mj1cidn4FgkOiXhqQoMga0Ou4J
TSH4fqxjKOw9Gbt9+u+91WkE0ws3lr0TyJhTBeezylkEi17KCTxIJmNh9WVv
b88jWGmiL2ebRsaU7C+kLS4g+GfHfRXTz2TsaNLFWpslBPtmos9p5pIxrzCb
yaxlBGnl5fZKBWTMymQ/qZuJIDNo3F22mIxFbnl/nLqC4JYr/O+ESslYflfy
lX+rCAruP5qxqZyMtXPa+KWtISi9blk+X0lc/7Ml++I6gvsavNpHasmYrv/k
XxrBJ2PT6a31ZOyN//MF6w0Ez95qZq9uImOMUybC+QSbKi+JFbaQscptoocn
CLbhkjrwqYOMJXyJ0Nsg+E6HplZ4NxnzfFNqQ+wX4bMUR0uffjLWZxryoJHg
ANfQe67DZCzjm8pLX4IjNb/52Y2TsV3PWEOkCU4WHIgzo5GxpFunY2OJeL4M
bSnQmiJj2228kpaI+O93/Kp+NUfGLL4PN+0g+FjD246mJTJ26JZCgAKRL7P8
PFVojYwZut1p3kroUVIosnqRlYJdfbqa8pPQzz2ji/fDJgpW4H2K/zqhL/Yh
XmqEi4KF7qvn/Efoz/bu2kEFPgpmH34zfDdRnyr/XaedyRTslwXHN1Oifn7u
kyb5whRMOyjrgRVRXx2XbLtlcQrG+TflF4YQbLQ8FuC1g4Lp7DU2iqYS/jBe
iandRcEkK/S9BcYRPK8FP/MqUrCKi4esbEYQ7Nh/pjniCAXTMBbkjupDMHon
z1D3cQq2HpY2/Izwq5XY7znpUxSsIdbsrirh50E2c9FMTQpmPcbIPvcHwaRF
cYVpbQp2ba3E4VMjgna03pNHDYj779uPtP5EcLLVzho3o2DDoUOHa38gmPVT
4e6mS0S8t/v5X5UR9YIMTx1rCsbGKoTv/obgXKrrp5YbFOwzppnLJPpz3c2H
Pv6Igs2gRMfJWATxOzobe59RsDn43/PXEUQ/2PKRXDwomEzNqRCeEAQ5DcOP
rPlTMNP4nL8xPgiSZD65kWIo2F+Vvc94nRBsEb752iyegpkddtcPIuajcJ59
8TEfKZjddxlTdAVB8fmCH7KZFMwlu0pe/TyCO2uruJRLKVjj/FzZyaMIjpb4
Szwvp2DhkVpyCfsQTMvV31tZRcH47v3aNCRH+Dmm1cigkYLlWQ4YrQoT/nAa
ibDpo2Dnmo6K+swzoI7gJrlXrIKYkM29xfUMBtzRrJnou0kQc9z8Wb4jkQFX
X/ts8+YSxLjwJlpIFAN+3sIp8owkiL15UXXusw8DCqxwczpLC2Ku36LjXK0Z
sHVAgHpOTRBT7ts7eI2HAbPijO0MNQWxhZW3LRdZGNDnUsigLrF0ONqdXDk8
T4fHWyldRK2x580dpNe9dBhdK1x/9KogJsP2OqErmw6vZEtmiXsIYmSJPeFz
enR4wtFKQeQlMZ60u6ogRofk3XGfKP6C2MtM/k7hw3RYkSgVvzWYWJq8k7dV
idKhXLhM0PoHQSzlw7h+zSANTj6VvzeIC2KH5pk7ne7SoKvOkaPpLELYruFR
j/THkxCdTkkM4RDCYrLHXoY7TEL7U+L8bpxC2JkLuLX9hUl46QDLuK6AEKYc
2/Gn9PgkxITro+hSQlgUOHD74AIV8gxeWzsAhDD3c3UPtR2p8MPj0MqiZ0KY
7wF77i+aE1DMZfPBDx5CmO79lrePDk3AEMfH7/1eCmEa/Hacu6Qm4Etra9cL
r4WwqbZmSZWlcXhTc4/8SqwQFqtd0H02bRweIVW8Ui0RwoROSZxb2zwO61Jn
zlUxhTA5iy8Ol3JH4VIN23e2DSHs/COjZ9ejRqHcGHkHxi6MKe7oVzTxGIWe
sodnv/EIY0aZQvVjRqNQJdElNEdSGLtc27J5iDECc2Lm/saoCmMK5lvT1ORG
YOSbBZN7nsKYiVL01hteQ9D+PtNMilsE085M/q9ipQ/GaB5hnt8iitlUfEkB
d5th+mfziDIeUeyQQSr38b3N8KuQ25HdAqKYwVWJZxITTbBtpNxpXVQUa0rK
70660gQFfAyHUhVEMXqX4+l37xuhT/XN+jV9UazKQKTJzPAnvHcmIS4lTBSb
uipZvC22HHpkV54kR4li7WwFT0UFymGQyHjH0/ei2GkWPZc1Lxx+HttHOfdJ
FPsl5a4t0l4Gx31LfFeLRLENvD8qwuUbvFzbfse4SxTbZMFzePBTLrx9YIW3
pE8U69h6K6o7MAc+jdyWITcsil2K8E9+OZIFo+xtR1Zoolhgz16VnKfpsIVz
9sKndVHMv87OJSItAQ7dEV4UYBfD9j1Jtts9EQdnOk6EuW0RwzYuNx5bd4+G
/GkvGo0ExLAw7JSpXnow3EZKuvVdUAybtBj/+eF5AFR8XMMpJyaGKWcnvPdL
94AnB6jJQf+JYQpn5BsL0u/C//9+F/v/73fL/g/sEy69
"]]}},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->{True, True},
AxesLabel->{None, None},
AxesOrigin->{0, 0},
Method->{"ScalingFunctions" -> None},
PlotRange->
NCache[{{(-2) Pi, 2 Pi}, {-0.9999996658276197,
0.9999993650500513}}, {{-6.283185307179586,
6.283185307179586}, {-0.9999996658276197, 0.9999993650500513}}],
PlotRangeClipping->True,
PlotRangePadding->{
Scaled[0.02],
Scaled[0.02]},
Ticks->{Automatic, Automatic}]], "Output",
CellChangeTimes->{3.59948528980315*^9,
3.599490978534169*^9},ImageCache->GraphicsData["CompressedBitmap", "\<\
eJzFXQd4VUX2f/BIwCABQVzUVVnXdVd317Kou7oqKkqRaldEqsTQAiGBQCCA
SAkWkCZKDyAgVXovAST0XkzovSQhCSUJCXlv7+/MuefeifMe/Hf9/H+fAncy
M78pZ06fSf0WsZGtO7SIbdOqRdVanVt0imzTKqZqzY6drSJvCY+nRKTH4zlV
1YN/+61/8h9+6z9/G/yBEuffC+kvryciIoL+hf/nqR9Npr/Klffn7sr6stOX
5Xfl0o/d32X8BRdHbpk66ETPbnGn4uJ6jvh86tYyFwv8nlI36za8eLcl/b68
R9LPppfM8xUMOjE7YU6XUSmhGYX+0v7C9Dkpo7okJsw+4Snw+70369mr9czV
rYGeSJvVs2e1GccLPCVV2VMFx2ek9ew5q8yJAqln6nYA/RV6+7VrBU2WL0/r
OGvm3qHDhv704q5dZ8vm5hbczi39ft8HOVuG5sa0a+fx5rbDnymdEpeFni9U
vZUMPLpwf96ejKHRiVVScnx2vSq+nI0ZidFDw/fkmUfXQw0r/MqV6/VSNp4Y
Ofir9a0WLjjYZNmytFI3bhQ9oQbfj/4Ku+vSpdwhw4dtzH69zoRL9epM/LFH
/NJNkRFzt0Z8PKfo5eqjRw75av096enXKgcd5N6MYdYgN+qDTE/sPCx8rz3I
EIwxToH++eSJrAXduy4tfOWlMRvatZ23t3mzmXN69lh2qd7rE843ajDps7Fj
tt6dkXHtMTXUz+ivUl2nTd2V91qNsYNHDN/4wPlzVxQplXrwzJnLX3wzMuWC
1bDVggUHK1JxSAm/L7/6xdTdH+7cNPtKrw6/2PRDM3vGPzP9mGz6MwXHpqfF
B9l0NfYQb2FhUbfvp+y82LB+Us+kidurnj17ham61J9Oncqe2zN+Wf6rr4yp
uWXLqb+r8X+qflrC5/N/PuqbTYc+/GD6W8lrj5ZRxX87ejTz3BsNJ6dEfjLX
W1Tkq6BwLLK/FnVk1ZTdw/tGFUV84h4/GhYkWkdhaczQ1eVO5/nK+fJOL109
NGZQkKPQVaGVLii48XOTD6cf/OjDH35/8eJVNQhvrc2bTp56+80pnX+Yvtvz
NzXsPs6wx3w+KHlj28gf77h8OT9MFVfJzLyW3KH9/KQB/daUtIZ9h+oozH/9
+O5ZfYfScNWyhIb5rp8fsXnq55ndo6Myo6K7W8xgc9j56z4TL+iiei9z/fqN
ldGdFs7r3m1p2WvXChWoFyPGyHtNnLDd81f3ML0Dv/t2c0qbyLm3WyfPw0cv
LC+vcHWnqAXfWEfA86ABLdaZ4sxeCSu+/+zTVdgCbl45KysvzdqsNj/O3e95
VKH1Vj9qvmRx6qHG709DFU84n42rV6/vb/bRjE/mzTvg+UNANG//MaO3YFSh
BQVFdts/nD17GURQ29oHzyMKqpf60d+PHMkEsT167NgljyIO70OnT+eg7Kmf
D170VDVAxaiyeht/OnH0/Xen0jC5bfWdO85eq/XquCfS0jI8f1FQCepHpa9f
L9zTotnMFosX/exR58j79to1R7AIZa219DxggOrMJ96iB8zgub17z9ttJwwc
sBa7iPX1/FmD+u7LL5JBcPRVSZVN7vfZajBQ+ro/MBS2CotIXwyFbdts8a2I
+dbiM1RP9aO/Hjt6CcwBbMxzpyqrmJOTf65Rg8m1N1nrbYKKdhbQOi4/4NjY
bbERWHxwKM/DGtSajlEL2s6ds5++mGWCXV1o2CAJh8RzH8oIqRMTjcWlT7z7
9vcv7dxxxnOXQyAgRfr6kwJQTN37zprVR3a3bD4T07Wrlygq8uNw0q7dZ5gL
Q435PDEZO0lf3BanBdvwzwP7L9hQ8epHIM8jH7w3rcb2bac9VVTZ0wcPXjz5
zlvf43h6fm+A6qjKIFXSG9RLApu22+LIgOzp6yENqv2c2fuWdIldTF93q7IZ
vXut6Dhz5l76ujcw1FcjR6R8PZyJpopDDDiJdJoYqrvDEs6+2WjyP1JT0z33
qLK/nDiRdeatNyYT6zBBRamye9MvXsWsfncpM9du23DD+mM7Pm45m0j8jxoU
eClI1T0D60Ss6TEpaQd93RMYauSQwevB0dxtQd5vrV17lL4UN/N0Uz+6LT+/
EDN4/PChDHtfIIxA9jQrE1QHVYZjgXo4Enbb11NSTsisdKjWC+YfXNAtbgl9
MbVN79N7JUkO1/6ZoKBoQALSF0MBAlCAtKGUqPXixIBg/713zzn7kD6ZlpaO
8wJNxgjV3jngmfXrTqRDym3fX7XyME4off1Bg8I2QnrQF3O5FZ2jFzZeseKQ
m7JMUN2nTN6JfXWzLQwPw8Rwi0GBIUq3DzhsRuBNUO2cFTn+7juqW+b7sdOn
7Z44sL+CV2Us7IlTgSxI0lR1uoDkohNfRdhRO2cdkqPaz3d15q1gsSjwuzuz
s/OKAUCw9pyUtN21ot7oGT/sgVJAX78LPBcs77urVx9xtx07KHHt6C8+X+da
G9YIvOGWdM2oX1eN4kFnZNhkOpAmqLb6OhDRcNtG69cfvVy71ngq06HAwaf2
Zf77Rx6ZxTzjJ0/a4WaeJqgRXw/ekGCphe6269u3m4eFdRGIDXXYZrCu6mCy
hz94fxodPhOUstC8kMhgR2BLzOW8kAGL4roscUOx2lFzy+bT1oQnQFwwq/dC
lJDkwVflwFDoVg79Qw4nxeLfd+HClWJQlnBfF2fpyPTFUFGWdQQBfzMo2AP1
f9pw3N0WZNbN7k/xHFvDAefDKGgRlDD2VsrJycuqW2cCSMYIFelwSMgCIgFu
+8yBAxcg8A1QYB8ipZSK4Z2d0GN5q4ULD9LXnYGh+kwYvw3cz912X7OmM0hb
crihDQUYwLmrN9iw4bgcTRPUJ6oMZAO5TTxC6XckikDBbihWpsD+sYBYSLt6
iGXjQCRAK1VQhMQAL+zefW5v86Yz6YtbQPuzrDfViw7QxTLbrDOtsJVq64WW
J6ekUuC5oB3au9tibd5btUqtzb0aFOTIa1u3nHJXB5+T0Zqg1L+8UGkwAxIY
StknlWVhXNclbihWDB8+eTIb6i4pYo86K3/svXemQuEMBgUhvjaqg9rJRx32
dqV2zfHE3nQoGDui4Sijxzvo21GbQFP0VTEwFPQPUoldbWFpS9k9GhQoHyfA
Xb1a6s/psLkCQrUWEsiFQX8H9AhlQpK6CnnnhmJtFOQJLkdfylD2Qi49dvhw
Jn3dERjqw+XLD235JEKJS4YCN8x5vfYEqJ7FoPqOG7sVC+aGGjD6u81iQwSB
wmKRYu1qC9U0ct6PSsu/W4OC1gn+7a4OpQwzCwj1sTMDsC3YkZ7HDAvIUKz4
QqhBxSAx8bizf9gv+qoQGAoUuLhrF8XKHjMsoA7V2829GOrT8eO2JtoaahCo
aZ/2Wdly0cKf3W2xgGQl46uKBoWjCgbjro7zBCuWZlpB2FEr9VOYZji4dHKU
c8sL/iDzYwDWrOF7wsElc+xJVWbxv6T3bHZb3jAXhgILlt1gKOwWlq3ctWsF
xaAgAkd99eV6+mKoSf37rflqxPCUm0FBoRRLktsui+28CARBX7/ToKA8vrpt
62l3dY3zmaBaqjJwe2hWJEL/ocrg8pjSr+8qNxQr8WCQUDvQzK6OnYGCBb9E
MCgMEWYMfXFbCCDsH/WnQ+GQiSFcTZV9+9UX60QkhAeGgogRnYHbbvmk9RxZ
pbs0KFCLrC1Xr7Mp5STUkZtBQdoSz3e1hZE3bOjXP7mh2jsUc7lOrfGknqhF
KC/+8h7d4nytWkWNHThxI/zlbn9rSb/vaufDK0af7xsbldMhqvOa+C9/qLot
o9DoU2+hyuA8Ei77lHOchHHoQ8MKgMpcZASGpfnd5ybEz902uk80/O4lC8Q3
738+/9Cko3Hxkx/YlVFQ0ufLjzybPDSla+LKkAs3/EaHKg8RmwRzl76eVmUY
Mlno+KqsDRGmTofZs/a6hlhGc+JbJc2WLEld0av7l7YTP5Qp15f9U2YwzzmP
CDZi3ZSNJ9wj+vKbESlgee4RuYwyaEv3nz9/xdY6PL90+pd1O/01x771DQdd
Vv0Gn2cM5OEpr3TpykWXD4yaP2VutZTjORXyrqUP3Dvns10d+y4OPVdonkJz
h8agTkBJ9zyjysBWd7VsMcswBbAKOP7c59Lk1t/cvt3I7ISoL8itz0Os6L+6
4+rgDtH7+/aO9kdEtNka2z/pkZ/OXvf4eCGU67+p6qHR+nXHhMJ4YNChoILS
AuoDg+gWMc0DM3nvR0weNTyrXfth5L3nstv8BcdSpyUk3pd8qchTOvBaQcns
NHPGHvr6pyqD+ffxwgVuvd4e0vbWrWaT8ewMyeiQ3zh9YHRm6xZj4ZDnEXn9
RZkpyYkJz0yzRh5kRDidcEq5RwSaFm8Sj6itw0ERNiGRpg556V/63L/ffPHt
hkl/PGNx6JJCpHmzD4zq4McQStKf3imdxv3syfdrkSltiM0cxgK+R1//csYB
BYZ0Yn2IWEvh5M86J5lc6/gqGxgqZvq03eTBd7UFHT+/h9WEShrU3B7xy8S/
wtU/WLnikCjyQaBWRXd0Tj63hZIDMnRDsa0alptbiCDZvfAsP6fK4HgCdyeP
sQmKDwLcctAbyD3HbV/eseMMZJQBCj+Sw/tvVfZTuzY/IsxEX2GBoaC2yJlj
KLiEAE9akw4FD11v27ZgKBhrogEGgcI+iSeQ287v3m2pbEhFDQr+h2f37Tvv
rq7ZG0Gg4AeTQ8JtQU7ie2IotsDhI4KaQcT5vEfj3A+eOZOjoAjpI/VTdA5z
jr64BY4PtEeSnToAjBK4A+jrBQOJ32aYC0PBZyYkzm1hMpANj687NChMUQwQ
ro4VFhIPAgVCEP8Ktx3+9ZANoivpUNDqiGe4qoPEQTtE4iaoJqoMzgAh8RdV
GU6X+GAZio19BEKh5tNXdVWGuIb4x8oEhkK3y2OiFYm/6JwwyEDSzHUosHso
km4onHFYhTeDgocPLMndFkaBePgqaFDwxonXnqtDEss5DwIFNUhInNtC9xVS
YSg29rEfWG9EaT0vqTJo1dlWGXn3TVAfqjL4wiB26IvbgsfLhuhQcBqKIv+y
KgP1yUxN0o2h4AmUGbzskBksM/oqr0FhT/qNHbPFXR37J5ZVECgsvuwLtx2f
OHAthmCA2hrReg6yN9zVQZUSNTNBNXaIHcKPiP0VVQb3tpxJhmqtnyFyzddQ
ZfBFUsQMX6HCjhgAwSwxPl9xegGJ00nUATRsBoD/VbSa0MBzgbIr7rkazkkU
31q4BgUFSkJ1XP2jZUvTYPrfDAoyjeI7rrYQPhiCAQpMnwLhruqwWxGfIJ5s
gvpAlUHU4SiQofmqKtNsZIZixwU8fKff4gj1a6oMLtsnDqVl0FdIYCj4H8Rf
zlAQNhBAcJUWg2o3Z84+iSAxFOxXsXODQMHXLtort4XTCioPfZXToH6M7+5o
R1wd0SdxbAeBAjsS9xy3hSNx3KDEtW4odmHArY4TQQ6lmqoMvDjbFh0mqPdV
WdVz5y5DpaU9remUCYvSoUBBoh3VUmWIukhsw2QiMxQOhER7uC24nrCj2zUo
eF0lhlnLIVixUoJAAUaiBbWcw4P4twEK+p0cuVrOTDdFfjI3INR7qgwLhwXE
onlqqzJEFKCMuaHYhWH7JMh/X9vZPxAsomwKipAYAIQgngVuAR1LDAAdAFwY
ET/6qqPKMJY31iUf41kEnIsmrbktrNV/7d+nrLCyGhS0GTk5XB0rLE6GIFA4
tBKU5LbQeyX0p0OBH4i/lauDPaU2aTw9INS7qsyWzKSBv67KoJgJj2codkrY
ERYy8uqqMmRuUPgNXyZjjaEQZdrZqqU6HgxlBxwolUOHAn8AC6EvhoImK27c
IFAQG3I8uC1EB+wX+grToJBYBu7nrg5FWg5kECgEw+Ci04Y5YMCaufHxy91Q
SvULLe/LPT55zbj+GXHRHbOiOsXO6TNq4d37s4vYK6ZlNlZy2IBIG87CaHRt
5xB/ZESE22i+ERE52E5XdUfExFIwzeLJW+yP8yTgycF+UR5WRcOY2RcWaJrw
H+xr9tEM3mqlzkEhzBuZNrV34oDZB0KzCv0h/huXP02dPyA59os1Iek3/NUM
QAwOzoIJugf5YFH6quMDu4+pvOuyj+MKIRCv0CRl4phiNUN9zgGAniNxTtNE
n5DNDTj028/m3rha67VxWKww94S9Zf35accndk+8d32WeLXu8WVtyBwQrZJV
H5dz62uZtWGA2hD5M852Mdr9gZ2LY0OtAqWedjm57KvDsT2+fX7loRzPDb8d
pgqBWBddSV8NczvOEMGZEpUs/BbH+FjAOYe454xYJB0kXqrSTvfBfJjWpuwu
HBIZMSphyua7T2bn3Zl/5eyQHT98uil64Apy+j4csJ8wLQHa+v/xglOLtg3q
P6N8Wq7Pvdm8/1hhEZwVA3ZryquGknGjek7q8v2je8dM6D1xU5kLBXZssxSk
0rx4loh+FnD/CNKO03sQaBatVendoYGmwOR6s9XC5iJIqZFr6XL+vP0XR8X0
7jtt3thz/WLbWtsbtaLHkFkP7Mgo5BMPjbcw8mLysAl9J+6qdPlq8bWDVUFa
gF+oqVSov/DS6B2TE2Z1/Xa7N6fIr4LQIZD0iASR/LaJ8xlzEz7xyLUQpbpC
8AHxSgSdk1UDfr1trT+erR9c63hf2Lnss+4vJqXl2wc33Jd34cljJy+VKPDZ
/C/E6y/KmbRjfN/okStWZg1ilsFRV/By8eio5I7SDxVeSJ4x+rvVNtkgSHAx
MWZE+L48IRPY6hIWt9ak2i005fVBREUsgTuCDPGJgNMMdU/T9tthq24rzsqL
WmesG7y564B5d6VevlGuKO980tbxceO7Tkz15Pn9iqxLVfBdS907o0+UJWMI
mJcGQlgyRHhpKvmu7r4wKia+9tR9OSWKfAUR59YN3RfTZ37pM4WyNCBZSfVx
liZoU14aqHRiuVQ0j06tStmbzQ21lsbGLCJb/zZN7Jf0+3LbH1897tiA7p3z
O7TtOC9h5OKKh676WOw/dv3U4sz+0YPdZALdR2wkXguM4MWraYsODO8dm92p
Y8ddsX3HPbb2VD5FOXgtam3ZfEr8rM5aBG3KawEPg5hWlQxDezL4bPhAQO2F
f0oowloHdpeW5CALmZ+N1IDDOOOAnBDWgN9RVRGHEeOrEQ/GGpy4QfSeEahD
3gN9vaHK1nVoN488KeAg3C2yacQlwN0CAh5YJPYX61abC3cL44tc065u4dSQ
dBau90OfXivggZANcLpFoFeMDq6OkZLK4eoWujWFs131YEXIIeFu2a0K/ie+
tzdVGYxcLC91+7Yqg1UpRuybThmyqt3dsgyGAiMuobdUGQQPglDuMiI7W7vk
MniIxavAZVDYdBeTx8NGClpTD/hT/dOot3IZXE/ZtgPLZMmbYh+mMpOL/1bb
qhmEwKEsloA9l3K/AT63Jdlgl99q2/99LCF2GU4RUjJcp+i33wtqWwJFJdS/
iLhMFMRGMWS8KFEmV8ZvMWqmXPg9xLoyjfk3W0EVDkc5+V1+O2oqZZchXw0O
DFNk5/+PkJiscd1DnDEmonnKUMYCFak/ks9juvTjaouYKX1VM9RjV4AWhTAl
apvGUk6bDlyv4vD5P04HgREJTN9kOpI/GmQ6cMeJ7+u/m044uxHJqcRCE6lp
1XftVEGVd5wuJN+kkUP24g9TwtoOLmoOpIYOlIQ+3nW6hTZBHmfuFh5+cQ3r
3cJlK5El7hYeOPFTurqFRkFZx9wtwqUSENe7fWX79jNw3bq7RVXcEyneLbIg
ybXJ3SKGKdFZvVuwKKwthTO5W8TPJRfF1S2ieaStcT0sEhaLUktVroN9RHEl
i+7e4Ku+KtNi5eQZVZvuFWcj/q+nKkN5Eo+03jeS4HA119034hJI0aCv93TO
g7h206VLUhuoqsi3kktQes/waMIId/eMMIT4Eov1jF7RO/eM2IB41vWebbcs
DFu7Zy3VoFjPkLkIE3FVCBDsEiVeqXQem8lp8VH2V2Kj5BqkihKEuM8XEiHI
A8mLDRNDnGN698ghEG7E3UMFlLtBhu6hX1MyHXcPa47u1v6ye1squLtHPlKT
5cvSAnUPJkoBB+4e8VVJ7tW7hwqDIB5RGLuoYbLAHUEp+SoGFeruHtQM/Rpb
xk0gM7H8pJUqH7N9GRimB0wQ+mJfvWa6GBDwP5gP1BRGgIkJU5O+dARYIXLF
hRG6Tv1+FwISwRDAxGHZMAJchGhmQMCFDITK3QhQ/UVaBUDAGYXkYwS4ZCVL
nRFYXYZ7RFzetQzco7HDDkheYaXtyzYcBkJAVlzfLbXu4e+XaBd3D86ORaav
xg4TkwmwPoZgvvBGbovUfFlyHQrRLmE0XF3j+EGgcJZk17gtQhJC7DqUxi+5
OliiiL0gUHCNH2jaRKU71XQIH4eBbHUVDLR9vpCa4op6TSd6EoUfBobCfmBf
yExgKESvIEXoS4fS4l4MhfRNCRWboFi3R+64HDZuC/kn0kCHgs8fLgN3dfAm
CeMFgQIJSKo6t4VBKPxdh7KTkoiYuTrWX8L6QaCwcOIY4bA+8j1A/xQ5VUF2
OwMeJxMLRl+uZAXwNArjNTFAsRIIxi8OIW6rJTnpUMi5k5waVwoGblrQVxAo
LLTk7NVweFCsneSkQ9m3MdzVJ/Xvt1oudASBAp+Sexk1nMWXmTIU+3zhFEEa
Bn1xygtkrSSkNRFmxAD2bQw6CtwC7ixhR601ALAjSSbnhB/NSfyRYS5sMoJl
yQHntohRCDvSoeAIlnwcro4LHnI1LgiUlgXNbXHnWtiRDqXl53F1+KCFFoNA
adrcSw47As0SO1ItbFeplp9XXZXZF3LohDUNDAXJkV0sXQ1SSdiRDgW/n9zi
Yihkv8qbAiYoTgeC6HgzOVlLwtOUUx0KiQUyCq6OZxyEHQWB0tQwbguNTdiR
DuXltaXHKao7Z18ipkGgUEd8spz0COsAe0/sSKUg2gEzmDCIAtMXp3LiJIk7
sllgKDudhFL0GQqyWNiRDoVMAQnhMxTyYJGsFBCKXZ5aktoLDosSdqRDgScL
Q+XqOGdC7M2ERzAA8gtEMeAW0GyFCTEAm9lQlkTicp6xluzXPPBcYIjaGqqd
Qgz3q7CjSA0KSW9ynf7fBhI3QbHpDW+a2MjcVlNIdSh0CyvIXR1MXzJbg0CB
HcnVP26rmQI6FJwBUE+IH3B1kK2omUGgoHiLo+A558hIJINfK+P70JAtcs6f
NZB4i8BQ2i0UhsK+CyPQoRDEF3JmKC2z1QTFpjzC2XhHw90W8V8xdnWoR44f
d2IGzzocTbT+IFCIYwmxc1vwd7k8wVB8Td5080QjduVQKB/ofbf/+r7abc6B
EdHlulYC7zZp12214WqZpzxcaEkShVP2/i/usLnfjvuf7rCFOSsqNzF4HNqV
F33YIFHRov/pHD7RwthNcdPH6Zg73/RiW5hDY/LAEuNq12X0YdouNtp4rq6l
pPMwb/pK3S1fZiPvAZ9HOBzkhhHfFLNVC3KNq/tYtqdSU7b50h50R+mioQw2
+Gt1t3ytzezKxgkS4f20w2yFh+vDhgoILdRdXWMjDR1SCPpk3a1eeivrkJs8
RPS0Uyb8Xx8mmCIcDyS0nnZWXC5LNRRWGvRlulu9CMejhNIk2ujTBhbFo+S3
X8Cqxa9RzeFe2bZCpFzSAR+ks7f1v7kXxyOGpAeFkj7HDnPtEm57bcQQpXjt
0D1iRKfFw/SxAYqdQdDnRFHitnBLywnXoeDrQr6quzrsNomdB4HSLhdxW/j1
4ep2Q/HTRfCXwrNJX5znCG0fC0Nv9bQODAVrABKAHKiuK+Lwh5AE6KBBIbAh
ajlDaRmEJih22+BICsvgtlrQXIdCMrk80sTVtbujQaAgpCRNnttCd5bLKTqU
ly+mERU94ZRhESh8HxEYCj8XccltwS/FSaGeDLAfz4J+KCbw485MoU/SFwEQ
EntQLIV4RtOlnFzBLeBrkMtvOgBWWJgfV8fNeOE+prmEC4mvXGwLSm6rCSwd
CpomVLi7Mi0a4+RHcCx42KFE2XeyTFDI9ZB3Ibit7duhm/rqgQr7JTXrJM1M
GtBPqdb80AfMRnHlmaDYg4JUbFHVuW3zxYtTJU9Mh2q8YvkhWUCujnRQcWQG
gYI1IdYot4VXZdjX/DSBDoUFBLMkuvubs4Dwh9DbcpGBoXDgQXf0mhK3JXdM
nVoT6E0Y9USKHW0E6xHVjZ+awVVQYVEmKHZwgDZF3eK2cL3I/WgdCvxADi5X
h3dXKDAIFFQyObjcFvmycnB1KLB/HFJKuHzUObigLPJatQkMZb/ERLELbgu5
i0WlMvVIj50yBg1BMu/42QHIS7mWZ4K6w5mBuNK5LdyzonXoUIjZiBXG1bEo
8HU4UITEAHAGzkroudzdAoEWueyrA4DG4FN0v1kFXiX3pdoGnovN2+iGI7eF
rJMn1NTjUPZbhXAjiYTkp7UQ2BV93ATFvgaEkOQ6L7eFX0gehtChEK0BF6fN
4+oQ7MXUbSMUAn2i+TysExKlpamXwuy4PxzeYg7+yaEdedmrXWAodAuvKnHI
hw1HRoeC+0Q4FUPhJMn1GhMUuwLgNRCfG7eFn0jCtjoURo7T5H7hDvwZ7Ih0
7PaBoXDaZPG5rX0DkMwH9VadnV+P0YvrhR/iQ0qZ7IEJiu1z5AvI2zHcFt4q
0SN0KBA5ZkCShqtDdsr1miBQeI1X0hMedA4P/Cn0lpx6V9B+uhHuWQnu8/0K
LCbOFVl1HQJDYeGQO07UxlBw9Qoj0KHg/BGtlaGg2Yr0MUFVdshCziS3RRKu
kIUOhZHBGKHQAJdBcmG7yakUJeyosnMUwEZpztwCjkMpU+9Z2tg4z0LOvGsj
LIGxw75DFWWYC1tK0MpFn+K2kNZyoVWHgjqMQ0pZL/c7G4qXvCLnzT1gv4tl
goK+AfOWJC63xWwwK/JiqRdH7c3DToitcZ9zziWX1ATFxgMEhrj3uC1MRcnn
1aFAM/L2LFeHRi6nJAgUhgSfK/Hu3+s7Ti5a9RCtfXKw3uI3YSkMryGeT6AT
1skAxWo2MkhEDHJbmENySVKHAsvBiSCGytXxYogEOoNA4eCCl9Cs7nFmBalH
3mX1aLDNqdZ07LDAkp9Km2HtFlo5ZkXbHR0YCrO2hjmlL6QSQ0FqiYTToWps
23rKkp/Kp1LFoUCwf7pE3NkAxUOCAgfXOQ2pikOB2Ct6m1w98GyzemQ6yeVA
3m6QBPQ52isT1D0O+Yipym0hyyXMoEPhQSUELMgM5fMCkxKmKd0bjREewQAI
AEO6UjjK5fYAHZMAUk9w2xISThoJZTKbgTUv6TYxhrkw0YC3iKpV2eF3os7p
UFhdpLDRbtzp0CLOOWlHsYGhsKuYFWWJcVvoruAvFJVQL5fb6gk2TQxP1g9Q
DZk7dAGriwGKDynUGmjvdDzsS4KWCpRhsTe6C6Cefrd1NDBZiDI6EazLIaUR
ugWVmaCYl4DtCIOu4NAs+iNTqZcGBQ0H9ENXByo4bAZaDz2N3zUwFEwYMFlK
/uO2cDiAZslLzVCs5MKBDXMzIWnCdtu0hLs3q16diUR3cQao+x0KBH+hvQp3
9kpyNnorKLYN6m7ceAK/D4My39l7AsfYxYYNJn0NadrNAMUSCXmnFxrWn0Q6
I7dFMBt7T/DqtyrYFg84FE4T3algZzKqYQGRWscW1K/3K2FYRveyVvFqrdfG
E/mEOZwUlE8RDPWrNdjcLIXUBOwVJB2SxpR7vBTOD4QV1hETV4bRr/qLZpQ0
LwWjFEsIfRjcnQdQ/sqV/PXt286D1gftr68atbLHbweFzbZspes1Xh4DDvLc
3j3ny1hnCARtqTNZMMywCNCuYFKw1fCr/TYbJbNvB4+b3y1uaW7NV8daB2X7
wxYp4Zed4Pi/Zs0LwQNQ56bIyB8fsMxb9VtZ2CtT5u9HDmciYSi9ft2kopde
HO2v/sJ3sMqUh3H+gfaBB31rv+SGQgNqqGWQ8oN7OKfffGMygACIkwCjHu+1
9FdDC/Jrf27td9YUWyj+tT9J9Nev/wtm9O5/7d//ov8qpP/117Rwb/Rh+OVR
7n97SvwH/yO08A==\
\>"]]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"N", "[",
RowBox[{"Pi", ",", " ",
RowBox[{"10", "^", "6"}]}], "]"}], ";"}], " ", "//",
"AbsoluteTiming"}]], "Input",
CellChangeTimes->{{3.599485311714251*^9, 3.599485330113991*^9}, {
3.5994853624078007`*^9, 3.599485363473548*^9}, {3.599491006079582*^9,
3.599491007116125*^9}, {3.599491045804994*^9, 3.599491046945924*^9}}],
Cell[BoxData[
RowBox[{"{",
RowBox[{"0.0040509999999999999`3.6281621564632127", ",", "Null"}],
"}"}]], "Output",
CellChangeTimes->{{3.599485344431033*^9, 3.59948537770313*^9}, {
3.59949102528446*^9, 3.59949105117255*^9}}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
NamespaceBox["WolframAlphaQueryResults",
DynamicModuleBox[{Typeset`q$$ = "plot sin ( x y)", Typeset`opts$$ = {
AppearanceElements -> {"Extrusion", "Warnings", "Assumptions", "Pods"},
Asynchronous -> All,
Method -> {
"ExtrusionChosen" -> {
"3DPlot", "3D plot", 1, 1, "Input",
"Plot3D[Sin[x y], {x, -3.14579, 3.14579}, {y, -3.14579, 3.14579}]"},
"Formats" -> {"cell", "minput", "moutput", "msound", "dataformats"}}},
Typeset`elements$$ = {"Extrusion", "Warnings", "Assumptions", "Pods"},
Typeset`pod1$$ = XMLElement[
"pod", {"title" -> "Input interpretation", "scanner" -> "Identity", "id" ->
"Input", "position" -> "100", "error" -> "false", "numsubpods" -> "1"}, {
XMLElement["subpod", {"title" -> ""}, {
XMLElement["cell", {"compressed" -> False, "string" -> True}, {
Cell[
BoxData[
FormBox[
TagBox[
TagBox[
GridBox[{{
PaneBox[
StyleBox[
TagBox[
GridBox[{{
StyleBox[
"\"plot\"", {
LineIndent -> 0, LineSpacing -> {0.9, 0, 1.5}}],
RowBox[{"sin", "(",
RowBox[{"x", " ", "y"}], ")"}]}},
GridBoxBackground -> {"Columns" -> {
GrayLevel[0.949], None}, "Rows" -> {{None}}},
GridBoxItemSize -> {
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
ColumnsEqual -> False, RowsEqual -> False,
GridBoxDividers -> {"Columns" -> {
GrayLevel[0.84],
GrayLevel[0.84],
GrayLevel[0.84]}, "Rows" -> {{
GrayLevel[0.84]}},
"RowsIndexed" -> {
1 -> GrayLevel[0.84], -1 -> GrayLevel[0.84]}},
GridBoxSpacings -> {
"Columns" -> {2, 2, 2}, "Rows" -> {{1}}},
GridBoxAlignment -> {
"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
AllowScriptLevelChange -> False, BaselinePosition -> 1],
Global`TagBoxWrapper["Separator" -> " | "]],
LineSpacing -> {1, 0, 1.5}, LineIndent -> 0],
BaselinePosition -> Center]}},
GridBoxItemSize -> {
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
ColumnsEqual -> False, RowsEqual -> False,
GridBoxSpacings -> {"Columns" -> {{
AbsoluteThickness[-1]}}, "Rows" -> {{0}}},
AllowScriptLevelChange -> False],
Global`TagBoxWrapper["Separator" -> " | "]],
PolynomialForm[#, TraditionalOrder -> False]& ],
TraditionalForm]], "Output"]}],
XMLElement["dataformats", {}, {"plaintext"}]}]}], Typeset`pod2$$ =
XMLElement[
"pod", {"title" -> "3D plot", "scanner" -> "Plot", "id" -> "3DPlot",
"position" -> "200", "error" -> "false", "numsubpods" -> "1"}, {
XMLElement["subpod", {"title" -> ""}, {
XMLElement[
"minput", {}, {
"Plot3D[Sin[x y], {x, -3.14579, 3.14579}, {y, -3.14579, 3.14579}]"}],
XMLElement["cell", {"compressed" -> True, "string" -> False}, {
Cell[
BoxData[
FormBox[
TagBox[
FormBox[
StyleBox[
DynamicModuleBox[{
CalculateUtilities`GraphicsUtilities`Private`density$$ = 15,
CalculateUtilities`GraphicsUtilities`Private`max4244$$ = 0.5,
CalculateUtilities`GraphicsUtilities`Private`max4246$$ =
0.5, CalculateUtilities`GraphicsUtilities`Private`min4243$$ = \
-0.5, CalculateUtilities`GraphicsUtilities`Private`min4245$$ = -0.5,
CalculateUtilities`GraphicsUtilities`Private`more$$ = False,
CalculateUtilities`GraphicsUtilities`Private`xmesh$$ = True,
CalculateUtilities`GraphicsUtilities`Private`ymesh$$ = True,
CalculateUtilities`GraphicsUtilities`Private`zmesh$$ = False,
Typeset`show$$ = True, Typeset`bookmarkList$$ = {},
Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$,
Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"",
Typeset`specs$$ = {{
Hold[
CalculateUtilities`GraphicsUtilities`Private`more$$], {
False, True}}, {{
Hold[
CalculateUtilities`GraphicsUtilities`Private`min4243$$], \
-0.5,
Subscript[
RawBoxes[
FormBox["x", TraditionalForm]], "min"]}, -1, 1}, {{
Hold[
CalculateUtilities`GraphicsUtilities`Private`max4244$$],
0.5,
Subscript[
RawBoxes[
FormBox["x", TraditionalForm]], "max"]}, -1, 1}, {{
Hold[
CalculateUtilities`GraphicsUtilities`Private`min4245$$], \
-0.5,
Subscript[
RawBoxes[
FormBox["y", TraditionalForm]], "min"]}, -1, 1}, {{
Hold[
CalculateUtilities`GraphicsUtilities`Private`max4246$$],
0.5,
Subscript[
RawBoxes[
FormBox["y", TraditionalForm]], "max"]}, -1, 1}, {{
Hold[
CalculateUtilities`GraphicsUtilities`Private`xmesh$$],
True, "x"}, {True, False}}, {{
Hold[
CalculateUtilities`GraphicsUtilities`Private`ymesh$$],
True, "y"}, {True, False}}, {{
Hold[
CalculateUtilities`GraphicsUtilities`Private`zmesh$$],
False, "z"}, {True, False}}, {{
Hold[
CalculateUtilities`GraphicsUtilities`Private`density$$],
15, "mesh density"}, 1, 30, 1}, {
Hold[
Style[
Overlay[{
Dynamic[
RawBoxes[
FEPrivate`FrontEndResource[
"WABitmaps", "PodInfoBackground"]]],
Pane[
Column[{
Row[{
Invisible[
Dynamic[
RawBoxes[
FEPrivate`FrontEndResource["WABitmaps", "OrangePlus"]]]],
" ",
Grid[{{
Manipulate`Place[1],
Manipulate`Place[2]}, {
Manipulate`Place[3],
Manipulate`Place[4]}}]}],
PaneSelector[{True -> Grid[{{
Button[
Row[{
Dynamic[
RawBoxes[
FEPrivate`FrontEndResource["WABitmaps", "OrangePlus"]]],
" "}], CalculateUtilities`GraphicsUtilities`Private`more$$\
= False, Appearance -> None, BaseStyle -> {}],
Button[
"Fewer controls",
CalculateUtilities`GraphicsUtilities`Private`more$$ =
False, Appearance -> None, BaseStyle -> {}]}, {"",
Item[
Grid[{{"mesh:",
Manipulate`Place[5],
Manipulate`Place[6],
Manipulate`Place[7]}}], ItemSize -> Scaled[1],
Frame -> {None, None, True, None}]}, {"",
Item[
Manipulate`Place[8], ItemSize -> Scaled[1],
Frame -> {None, None, True, None}]}}, FrameStyle ->
GrayLevel[0.9], Alignment -> Left, Spacings -> {0, 0.8}],
False -> Button[
Row[{
Dynamic[
RawBoxes[
FEPrivate`FrontEndResource["WABitmaps", "OrangePlus"]]],
" More controls"}],
CalculateUtilities`GraphicsUtilities`Private`more$$ =
True, Appearance -> None, BaseStyle -> {}]},
Dynamic[
CalculateUtilities`GraphicsUtilities`Private`more$$],
ImageSize -> Automatic]}],
ImageMargins -> {{20, 30}, {10, 10}}]}, {1, 2}, 2,
Alignment -> {Left, Top}]]],
Manipulate`Dump`ThisIsNotAControl}}, Typeset`size$$ =
Automatic, Typeset`update$$ = 0, Typeset`initDone$$ = False,
Typeset`skipInitDone$$ = False,
CalculateUtilities`GraphicsUtilities`Private`more$1835029$$ =
False,
CalculateUtilities`GraphicsUtilities`Private`min4243$1835030$\
$ = 0, CalculateUtilities`GraphicsUtilities`Private`max4244$1835031$$ = 0,
CalculateUtilities`GraphicsUtilities`Private`min4245$1835032$\
$ = 0, CalculateUtilities`GraphicsUtilities`Private`max4246$1835037$$ = 0,
CalculateUtilities`GraphicsUtilities`Private`xmesh$1835038$$ =
False, CalculateUtilities`GraphicsUtilities`Private`ymesh$\
1835039$$ = False,
CalculateUtilities`GraphicsUtilities`Private`zmesh$1835040$$ =
False, CalculateUtilities`GraphicsUtilities`Private`density$\
1835041$$ = 0},
DynamicBox[
Manipulate`ManipulateBoxes[
2, TraditionalForm,
"Variables" :> {
CalculateUtilities`GraphicsUtilities`Private`density$$ =
15, CalculateUtilities`GraphicsUtilities`Private`max4244$$\
= 0.5, CalculateUtilities`GraphicsUtilities`Private`max4246$$ = 0.5,
CalculateUtilities`GraphicsUtilities`Private`min4243$$ = \
-0.5, CalculateUtilities`GraphicsUtilities`Private`min4245$$ = -0.5,
CalculateUtilities`GraphicsUtilities`Private`more$$ =
False, CalculateUtilities`GraphicsUtilities`Private`xmesh$\
$ = True, CalculateUtilities`GraphicsUtilities`Private`ymesh$$ = True,
CalculateUtilities`GraphicsUtilities`Private`zmesh$$ =
False}, "ControllerVariables" :> {
Hold[
CalculateUtilities`GraphicsUtilities`Private`more$$,
CalculateUtilities`GraphicsUtilities`Private`more$1835029$\
$, False],
Hold[
CalculateUtilities`GraphicsUtilities`Private`min4243$$,
CalculateUtilities`GraphicsUtilities`Private`min4243$\
1835030$$, 0],
Hold[
CalculateUtilities`GraphicsUtilities`Private`max4244$$,
CalculateUtilities`GraphicsUtilities`Private`max4244$\
1835031$$, 0],
Hold[
CalculateUtilities`GraphicsUtilities`Private`min4245$$,
CalculateUtilities`GraphicsUtilities`Private`min4245$\
1835032$$, 0],
Hold[
CalculateUtilities`GraphicsUtilities`Private`max4246$$,
CalculateUtilities`GraphicsUtilities`Private`max4246$\
1835037$$, 0],
Hold[
CalculateUtilities`GraphicsUtilities`Private`xmesh$$,
CalculateUtilities`GraphicsUtilities`Private`xmesh$\
1835038$$, False],
Hold[
CalculateUtilities`GraphicsUtilities`Private`ymesh$$,
CalculateUtilities`GraphicsUtilities`Private`ymesh$\
1835039$$, False],
Hold[
CalculateUtilities`GraphicsUtilities`Private`zmesh$$,
CalculateUtilities`GraphicsUtilities`Private`zmesh$\
1835040$$, False],
Hold[
CalculateUtilities`GraphicsUtilities`Private`density$$,
CalculateUtilities`GraphicsUtilities`Private`density$\
1835041$$, 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" :> Function[Null,
Plot3D[#, #2, #3, Mesh ->
CalculateUtilities`GraphicsUtilities`Private`density$$,
MeshFunctions :> Flatten[{
If[
CalculateUtilities`GraphicsUtilities`Private`xmesh$$, #& \
, {}],
If[
CalculateUtilities`GraphicsUtilities`Private`ymesh$$, #2& \
, {}],
If[
CalculateUtilities`GraphicsUtilities`Private`zmesh$$, #3& \
, {}]}],
SlotSequence[4]], HoldAll][
Sin[Global`x Global`y], {Global`x,
If[
NumericQ[
CalculateUtilities`GraphicsUtilities`Private`min4243$$],
(
Piecewise[{{
0. + 3.362994729838756 Tan[1.5040801783846716` #], # <
0}}, 0. +
3.362994729838756 Tan[1.5040801783846716` #]]& )[
CalculateUtilities`GraphicsUtilities`Private`min4243$$], \
-3.145793518145755],
If[
And[
NumericQ[
CalculateUtilities`GraphicsUtilities`Private`min4243$$],
NumericQ[
CalculateUtilities`GraphicsUtilities`Private`max4244$$]], \
(
Piecewise[{{
0. + 3.362994729838756 Tan[1.5040801783846716` #], # <
0}}, 0. + 3.362994729838756 Tan[1.5040801783846716` #]]& )[
If[
CalculateUtilities`GraphicsUtilities`Private`min4243$$ ==
CalculateUtilities`GraphicsUtilities`Private`max4244$$,
CalculateUtilities`GraphicsUtilities`Private`min4243$$ +
0.00629158703629151,
CalculateUtilities`GraphicsUtilities`Private`max4244$$]],
3.145793518145755]}, {Global`y,
If[
NumericQ[
CalculateUtilities`GraphicsUtilities`Private`min4245$$],
(
Piecewise[{{
0. + 3.362994729838756 Tan[1.5040801783846716` #], # <
0}}, 0. +
3.362994729838756 Tan[1.5040801783846716` #]]& )[
CalculateUtilities`GraphicsUtilities`Private`min4245$$], \
-3.145793518145755],
If[
And[
NumericQ[
CalculateUtilities`GraphicsUtilities`Private`min4245$$],
NumericQ[
CalculateUtilities`GraphicsUtilities`Private`max4246$$]], \
(
Piecewise[{{
0. + 3.362994729838756 Tan[1.5040801783846716` #], # <
0}}, 0. + 3.362994729838756 Tan[1.5040801783846716` #]]& )[
If[
CalculateUtilities`GraphicsUtilities`Private`min4245$$ ==
CalculateUtilities`GraphicsUtilities`Private`max4246$$,
CalculateUtilities`GraphicsUtilities`Private`min4245$$ +
0.00629158703629151,
CalculateUtilities`GraphicsUtilities`Private`max4246$$]],
3.145793518145755]}, AxesLabel -> {
RawBoxes[
FormBox["x", TraditionalForm]],
RawBoxes[
FormBox["y", TraditionalForm]]}, ImageSize -> {300.},
ClippingStyle -> Opacity[0.25], AxesLabel -> {
RawBoxes[
FormBox["x", TraditionalForm]],
RawBoxes[
FormBox["y", TraditionalForm]]}, MeshStyle ->
Opacity[0.45], Mesh -> 20, ColorFunction :> (Blend[{
RGBColor[0.628962, 0.149248, 0.135592],
RGBColor[1., 0.634379, 0.186801],
RGBColor[1., 0.895537, 0.582162],
RGBColor[1., 0.995346, 0.826535]}, #3]& ), AxesStyle :>
Directive[
GrayLevel[0.65], FontColor -> GrayLevel[0.25],
FontOpacity -> 1], BoxStyle :> GrayLevel[0, 0.35]],
"Specifications" :> {{
CalculateUtilities`GraphicsUtilities`Private`more$$, {
False, True}, ControlType -> None}, {{
CalculateUtilities`GraphicsUtilities`Private`min4243$$, \
-0.5,
Subscript[
RawBoxes[
FormBox["x", TraditionalForm]], "min"]}, -1, 1, ImageSize ->
Tiny, ControlPlacement -> 1}, {{
CalculateUtilities`GraphicsUtilities`Private`max4244$$,
0.5,
Subscript[
RawBoxes[
FormBox["x", TraditionalForm]], "max"]}, -1, 1, ImageSize ->
Tiny, ControlPlacement -> 2}, {{
CalculateUtilities`GraphicsUtilities`Private`min4245$$, \
-0.5,
Subscript[
RawBoxes[
FormBox["y", TraditionalForm]], "min"]}, -1, 1, ImageSize ->
Tiny, ControlPlacement -> 3}, {{
CalculateUtilities`GraphicsUtilities`Private`max4246$$,
0.5,
Subscript[
RawBoxes[
FormBox["y", TraditionalForm]], "max"]}, -1, 1, ImageSize ->
Tiny, ControlPlacement -> 4}, {{
CalculateUtilities`GraphicsUtilities`Private`xmesh$$,
True, "x"}, {True, False}, ControlPlacement -> 5}, {{
CalculateUtilities`GraphicsUtilities`Private`ymesh$$,
True, "y"}, {True, False}, ControlPlacement -> 6}, {{
CalculateUtilities`GraphicsUtilities`Private`zmesh$$,
False, "z"}, {True, False}, ControlPlacement -> 7}, {{
CalculateUtilities`GraphicsUtilities`Private`density$$,
15, "mesh density"}, 1, 30, 1, ImageSize -> Tiny,
ControlPlacement -> 8},
Style[
Overlay[{
Dynamic[
RawBoxes[
FEPrivate`FrontEndResource[
"WABitmaps", "PodInfoBackground"]]],
Pane[
Column[{
Row[{
Invisible[
Dynamic[
RawBoxes[
FEPrivate`FrontEndResource["WABitmaps", "OrangePlus"]]]],
" ",
Grid[{{
Manipulate`Place[1],
Manipulate`Place[2]}, {
Manipulate`Place[3],
Manipulate`Place[4]}}]}],
PaneSelector[{True -> Grid[{{
Button[
Row[{
Dynamic[
RawBoxes[
FEPrivate`FrontEndResource["WABitmaps", "OrangePlus"]]],
" "}], CalculateUtilities`GraphicsUtilities`Private`more$$\
= False, Appearance -> None, BaseStyle -> {}],
Button[
"Fewer controls",
CalculateUtilities`GraphicsUtilities`Private`more$$ =
False, Appearance -> None, BaseStyle -> {}]}, {"",
Item[
Grid[{{"mesh:",
Manipulate`Place[5],
Manipulate`Place[6],
Manipulate`Place[7]}}], ItemSize -> Scaled[1],
Frame -> {None, None, True, None}]}, {"",
Item[
Manipulate`Place[8], ItemSize -> Scaled[1],
Frame -> {None, None, True, None}]}}, FrameStyle ->
GrayLevel[0.9], Alignment -> Left, Spacings -> {0, 0.8}],
False -> Button[
Row[{
Dynamic[