-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathGOOG.nb
executable file
·4728 lines (4630 loc) · 228 KB
/
GOOG.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 8.0' *)
(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[ 157, 7]
NotebookDataLength[ 233462, 4719]
NotebookOptionsPosition[ 229717, 4589]
NotebookOutlinePosition[ 230129, 4607]
CellTagsIndexPosition[ 230086, 4604]
WindowFrame->Normal*)
(* Beginning of Notebook Content *)
Notebook[{
Cell[CellGroupData[{
Cell[TextData[StyleBox["Google", "Title"]], "Subtitle",
CellChangeTimes->{{3.5443248411470623`*^9, 3.544324846160499*^9}, {
3.5501902025937977`*^9, 3.550190204606488*^9}, {3.550191305060985*^9,
3.550191306174177*^9}, {3.5600323695283003`*^9, 3.560032370369426*^9}}],
Cell[BoxData[
RowBox[{
RowBox[{"GOOG", " ", "=", " ",
RowBox[{"Import", "[",
RowBox[{
RowBox[{"NotebookDirectory", "[", "]"}], "<>",
"\"\<bytick/scores/basic/GOOG.csv\>\""}], "]"}]}], ";"}]], "Input",
InitializationCell->True,
CellChangeTimes->{{3.544324100464431*^9, 3.544324152822404*^9}, {
3.5443241876536293`*^9, 3.544324214629775*^9}, 3.544324612161311*^9, {
3.544324661718611*^9, 3.544324663156446*^9}, {3.544832921839259*^9,
3.544832974150329*^9}, {3.5448361614355593`*^9, 3.544836205718445*^9}, {
3.545012280403234*^9, 3.545012280963862*^9}, 3.5450133169452333`*^9, {
3.550182480400038*^9, 3.550182498628001*^9}, {3.550190208782423*^9,
3.5501902128213587`*^9}, {3.5501913240492353`*^9,
3.5501913288278427`*^9}, {3.5503712878651257`*^9,
3.5503712903624907`*^9}, {3.56003237338321*^9, 3.56003237742416*^9}}]
}, Open ]],
Cell[CellGroupData[{
Cell["Snapshotting", "Subtitle",
CellChangeTimes->{{3.544836156288866*^9, 3.544836158338773*^9},
3.5448361939453917`*^9}],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"RSD1", "=",
RowBox[{"DateListPlot", "[",
RowBox[{
RowBox[{"GOOG", "[",
RowBox[{"[",
RowBox[{"All", ",",
RowBox[{"{",
RowBox[{"1", ",", "3"}], "}"}]}], "]"}], "]"}], ",",
RowBox[{"PlotStyle", "\[Rule]",
RowBox[{"{",
RowBox[{"RGBColor", "[",
RowBox[{".7", ",", "0", ",", "0"}], "]"}], "}"}]}], ",",
"\[IndentingNewLine]",
RowBox[{"FrameLabel", "\[Rule]",
RowBox[{"{",
RowBox[{"\"\<Date\>\"", ",", "\"\<RSD (% change)\>\""}], "}"}]}], ",",
RowBox[{"FrameTicks", "\[Rule]",
RowBox[{"{",
RowBox[{"Automatic", ",", "All"}], "}"}]}]}], "]"}]}]], "Input",
CellChangeTimes->{{3.544834170002674*^9, 3.544834193954311*^9}, {
3.544834414196431*^9, 3.544834424646806*^9}, {3.544835324816613*^9,
3.544835327965982*^9}, 3.5448353716397753`*^9, {3.5448355260363407`*^9,
3.5448355466433773`*^9}, {3.544835753769367*^9, 3.544835824451549*^9}, {
3.544835900839242*^9, 3.5448359046528997`*^9}, {3.544835946930344*^9,
3.544835961105116*^9}, {3.544838576373742*^9, 3.544838576922649*^9}, {
3.55018898815585*^9, 3.550188989304851*^9}, 3.55019024233467*^9,
3.5501913294231997`*^9, {3.550459956989444*^9, 3.550459958179721*^9}, {
3.550461067092146*^9, 3.550461067745805*^9}, 3.550461558042737*^9,
3.55046235576991*^9, {3.5505472334846888`*^9, 3.550547233641622*^9}, {
3.5532659115172567`*^9, 3.553265925500772*^9}, 3.553266089908928*^9, {
3.560032380756028*^9, 3.560032381261462*^9}}],
Cell[BoxData[
GraphicsBox[{{},
{RGBColor[0.7, 0, 0], PointBox[CompressedData["
1:eJxV2nlcTO/3APCpVJZiqKylkDbJyFqouRKKGBLlUxkSkhgtJKqxRLJNSUhq
VIqQ0UZaDGnfJtIiZSrRTItJRVT6njn3j9/P54/v9/V+zbid+9zznOc8z51Z
e45sdZWlUCit8D/S/4f/2CfuiQjK//3HiwNnFdr1Ni/8YQ4WloOF62Qrl2/t
fAWmDoAfWDsctczvk35Onx0rIo773b/0PfSX9HMBFzzQNM5h0P2r9HNKKTja
ftnDsrViqWn94JXxwcRQe5/0+0zNOBHxffqx8ImfRVJzrMBVPmFfMtmtUjN+
gNsjuNs2zPsjNVs9XkRE/fgh08FSpkvjXQuesk0lscdCTmohC3xyvlZvzZ9p
UrO+gx0SFH5ccv8m/ffcafdFhHNM66Vu+T/SeAQW4F3Ut6uHauWl36ccBg/X
UwOnpeP9026Bj0QOtv43oUFq/uQEESH7uMae8PwptYQudeTe1XZTh6XX13IH
85tyOteMk5Vej3ED/GarYk3MnSHp99mvwHYX5XOnzMbPqWaJIsKNm+TVqSIj
Nf0AOGDVWnuXXRgvKwzMtrA+EZbTjvFng18FeJtn839h/F/B9oKWbWKTTzh+
1x6IiGSl28kuv+ql5meCry8eXXxNZbT0+pJWcLC2ee5mryGMd/xDEWE8rsdR
LR7Hj3cZPDle1Sl1Yb/0c2EGuCpq9tjBgH7p36M2g02i/l6tCb4s/Zw+LklE
jDGJrjh6Jh3jXQL+b9FTO2OXv/j808A7Yo4EeUZJcDybwJIlRXO0TeOkZo5+
JCLSBXfrigaofGn8xuAVrPAxLhtSMH5H8IT3vQ9yKxul32c0gD2Sgi6mTp0k
/T5b/rGIuPvrzdnW4DfSz3kLwPy3TeOsPuD9Ch3AynH0mhPjBjF/z4HNzVpl
eoOacDxln4iIRUefqXoW4P0KDMEmL5vPlTjgeFB2gN9Zrejc4PBX+jntNDje
7evHJSuKMf5H4NLtB5QCgwcxH/STRcS+5Cf63iO9OL7bwE6fr7IGF/Rg/AFg
pkQ/zMWPgvE/AN9a76EvWID5xXsH5v7V6bwT+g7n15anIkLBXcaFu2pYatZJ
cF7KhZnfHT5Kzb0PTm8YZu65VIXxV4KFgd/PLQz8KDXlD1j7BPOyx5IB6fc5
vjwREVOxavSohy8xn2PBF1e/FFTQ8N9LysDFvVcWWmVUSz/X+gVuPK897NNb
gfNx1rN/6oUwBry2TyPNXQ/jo5aA/3tZM2fRYsxfeh94cOqmcOId5itrZoqI
eJJqaRrQ2Ivxrwd3yDsTJafI+lAIDnW2DN9WLsDx7QEH9doUxndJML9npIoI
i5utctee4vzlW4IbD3G1k5PbMP4j4IagjwGVYwVYL7rBiZojdbPP4/3xpqaJ
iIkqTy6GZOLzF64G78jOm/TOFPOX6gFe4alaEv4B851+E9weL3ju3dqD46uW
LiLOnRI/eDZLiONLB9e3Rb2VbPyE8R8Ehxk+nXfeA7/PDAfnumdZppZ/xvhz
wZM810ZqFH/D8V2VISJGW+Qvq4wbwfzYD+5T3ddyYJcC5kco+DOnq7bMqRjj
zwJflHxcd94ery9sAy85rmlg6Ij1iLX3uYjYGSl2nR2In3OvgjMynEo7PDuw
XrwA3398xtdvCeYvpRW87PXBbVUSvF+a8guol/JHTWcGtuB4poOvt1t/4ffW
YbzCF9J88Fnjwyfr29hMeB6pwXZz9J7geC8G+zepCBMDhZgPqWCvE0YdHo61
mA+NYPkb08IuppRgvIovRYTa6kf8Kh3MT+5CcFlblPdYPay/gv/AhmvD1hkn
tGM+fAQfnzd0rHkFrh+cUVng1ekGZ7y+Yr0wAlf4D1zOr8T8l9iDk23NLr/R
JefjWfBpQ06Gw1P89zyZbBERqRFos2BSOa5386TWYY6fLYvzlbodfLa0jXp+
bg7Gzwbn7Vg58NyvG+tdEjjeKcX7/RrMR4p+jojoPlV3bPwHzEeaLXiHs8Mx
27xSzAd/cO2qCgbxCO+Pkwg+ofZgSedzzA9+Fbj5dVKHeQSuRwxGroig1ppO
VXqG9YntB95pk3Ow364W60U8+PapSfVdj/F+hBXg3Xc/5xpn5mL8v3P/ma/c
469ERF15uJnZNZwfgnvgQEOzh81pOD6UMnCxLe305Wxc32k/wf1Z8uf1TmA9
Z2rxRcSh7zSVN2Xk+hcNHjj9Xcb6ZQ7mRzFYOzL98e1+sl70gvcfsglzdcF6
w9Z4DevtqtVHi8wzcfzXgX3Mk64lW46R5ju9ABz/yCfqjRPGw5KA6x8um3U7
Fe+PO/0N1GvLjsOv+B8wP9aA//RHBPMrX+P4HwH/nrM0dNcUjJfTBS4+Fqd8
XQv7Cf6UPFj/Y4db5/t+x/wgwCbnireNndmM+XEIHOVTHRyehvWJEQHOdJ7U
nn8T11+h6lsR0aslVxCtjPWKag7eLYnI1o+NxPxwA99yT3fOW5SH8V8Hx9gE
qSe3Pcf8zgEzVl4vmDylCsd3ZT7kZ/rkVlm9CoyXA641X3BMo7wD430JdjzV
m7TuHtZ7yRfwSZ2l+cYvsT6zXQog3srxrXHRZD5fAdvLzZTt1BJjvM/BCQGG
154lYb5SW8Avx1f5jDmrKM0vulKhiFA8aXRxTAmOjyAEPMXQ75JmK9m/pYOv
qYvORaRUYryfwd98iQkKG3E8mGOKYHw9G6ys08n+bRH4ZbjmkuE9mZgPKeB3
Pp+4r669xXz4BPZ/9PVoS2Qbxq9QDP3IWLs5quPeYfw08KP4Csm+mPc4H3eC
nysyE60SSvD5y5XA/I50JIzKfmC888G+C+pjW4K+YLz24DXGo7Sz5+H1aWfA
+mETHR7+acL1glIqInS16P4cbXI8DcD7VkXty5mbhs/fDvywIXDTTU2cn4xA
8NXdK9OWKogw3ofgJT8M69M0GnA89crg+tUGA+fysX7Rt4K/PrnQo3Y4C5//
KbBe6YNpD5uwfnETwJZ6h5e6TArB/BWA5z967ip3EK/H3FwuIm4s0onSLH2M
43kC/K7p4s3eajL+OHCL3PxXlYHlmL/l4EOVnpUWmjU43gNgBfo8od/n9zie
xyqgnh65U+UUivVXyAUbVxxaulkd1x9qKVjxk85ai5jxmA/9YJaRvxzbF/OJ
pVkJ/YUiOy/GCvtJSjTYI871YNgbsj4Ugfft2ji0060Z68MP8NzVeaEJuti/
cNQFMN7l6/nlPNwf8NeC786JDt30fCLWt3zwTgPKBuNinH/s72BGWMLuA01k
PzStSkTcOx5emvEGx19oAW503DxUqIL5Rj0MXrL7pt9yA+wvuZ3gAJcBRZYJ
uX5MfgfrB/+kQNOVrG8EOClgbfb+/Eqsz+7goRGZgsFoXL+YN8Dccsc5zBJc
byUq70VERP8Vxua/mG9aZuB5ywJ1z57GeBgHwDI9lr133bBfYYeBx7w4U9Fl
gffDywbX+U4s2+GG852+ohrma2s6455PPK5/rmAZN86hvnYcP+418Lf3mrfH
B2I9EGSCD1RtTcvowvGgfAEvtnTITdp+C8d3zwcRsamn8L1FI67X/MvgaHGH
nul87GckGeB1VRphF37HYfzNYLt6/XGtIxgvY1yNiJg9g2N6Y6QO8+MiOKLD
YP+O3Z2YH2ngX+biogc8sh9tAu/YJ/hbEPQW4x9d++/6YgyOrHjfXTMH+3Xa
M/CUgBfva+eXYX40gDdfOHzHrycR81u+TkQcHjyysnZGGca/ACwr+fYhuB77
B4kDeO30qNvR8jWYH3Vgz07O4q447F94svXQP33dSDguJ/erhmBXcdgGlyis
N9Qd4DHPKqKZa/F500+DO1SKjQcvY/4IRsAHJ9CVa4lWHF+DjzDf/tA0LK9y
Mf5t4EDnn+NCCBwPZgD4KjXT68carDecB+Cfd2qeulWX4vzTbRARG9WyBBZh
uB9jbAHnho02GD6L9YV9EqyQzFrkIcT9Au8+uM1oddv4efj3hZUN/4wna9Mn
EWH17vyu63I4nlxfcNjX21Fjt2J+CWLBMXcn7dphgeNFKQe7ftn6yc4N6zft
16d/rsf3aYR6q3Ln/bcynM+SGLBsRNWyBz+rMT9KwMYpylrt1qP40vj7wEu2
aeXbzJaXmj2zSUTYJnhyWqNxfaTeBVe0XfEtisP8oxeCc2aq+V0r+on1owe8
8EWpc98qsh+d8RnWr1tGE/afKsL8tgTfjvg64YY17heYbz//Ey+nG6xQcPe/
uycxf/hThSJi3MtsLaZZBsa/GtxksOfr3Fjcr2l5gDuWRb1tDVGSxsvrAPdf
b/w6hoX7LaFaM4x39mKtfRuwnlLp4PWF8n6VE3A/QD8Innl88YzdjVg/WeHg
ZHGvNfUMrk8UlRZ4/m9Xy8v9xvulrQKXuaZEP6JhfWPuB1+fdXaieyJFGg8n
FGx17ycndmcoxp8FdtDMmnHICNcDhmkr5Nvavdr5erg/Yu8FzxrffeJCOq7X
vKvglR7zTXMl+Tg/X4A96hZp+v/F/pLaCj79n5J57yH8nLv7yz/jJ7gEnvL7
uCjh/huMPwNcJNbYmNGI16cJwSEinzjLq9gvMse2QT0w6W5J2of5JQkG8xev
m72VrE9aqeBHmeq7rNvJ/G4EHwk/c4I39jfmt+JXEaG1OaRlgxjXM95CcIUa
odhDicb6wQM/+fhF70gzrlesj+AzHiffp5aT/f+ob9AP51d58xVxvgmMwNmj
Z6WYtWO+URzA51wy7iiot+D8qwUfWrFrw+DjAqwfMu0iYm/ak8jPMbg/k8wD
2zpmTd88ooD5sR1M+AVXKmjU4/izwW7TbfIFzjgfhH/BD145yojbFKX5QtUX
wXyxUugpM3mE+WELXimvxmeewnrJ8gevGl8kyorB/SU3Ebx9c1W4xkysLzQd
MYxHePbVYifs55gMsPu9qBz1D3LS63P8wG8PzJ27WhbzhR8P/vW0U7h8VzfW
vwrw9H7jwwfNc3F8bTpgf2rf9mlDaCOO73Hw39/XzAJqsR4J74Gz7W9xzZbh
86KWgd3KnyoXcrB+0n92/Jsf3p0wXx1v3zFoiMX8iAETk5/9fr8Qr08rBkd2
+uhsbcR6yuwFrzc9GWh+GtcjjkYX9GfHHacvyMX704oCT4nfNHqVNnneUQA2
HZOjbhIrK70/tgQ82zlaV6uXXB+nd0P+91k/z1XG5y1cA1aMq55DvJ8mHR9W
Hjg/ScL4dAnzndsFbkkLND8WhP2dYMp3+PfFcUpBGtgfUlaDG6JNFw6ZYf2h
HQIXj6+yiFLH8wO+GHyGetXoWAKOv0RVAuvd9vlpXYm4n9EyB+t73Xsn64X3
z3ADS2Z0M2nOON/Z18EhF267PbXD9Zk6qQf2K3te3RDdIfe3K8Hd5x/ZTXHB
+snaB1Z7UvMidSN53sEBFwxt3P97L/YrgpfgjJsJX34Q5Ppo8gP6w2e+ROtM
cv/iAt4c9fCiZwTWL/4V8Fptlfo2AVryHOxKmCYEjcfzQ60W8MJ65d0ptrjf
5zF7RYS1gvuWfcr3cHxDwGH7RL8Nmsn+KR3svmhqq7kGPl/6517peUaZidJr
XA9YY/qgn9VN2L62Dc83KcHgH3N25gxG4fOkpYBnRXam6kTifp75CZx4tvp4
4TOc3xyFfhGRJZs8oc0Y+3k+DbxuW6ThrLv4fcbT/n/ykV0Pfrxw5sPPs/E8
hSf3U0RMCom8FWwfg/HPBxvVbaaP3oP1nmoP/r7bqsbnEZ6vcmvAYo9vlVm5
5Hk05Rf0s0VDuX85mA+UeeClc3uM+vvw/JNmB1avfOW9KD0c8zsQHLZpqveV
JDx/lAyDc7IWKuX44Pm3lt6AiPDLnzdmfAPOT8ZW8KMPZTv2xOL6zT4FXrTS
W5W/B9cTXgJ45rX2zb0nsT7T5/6G+83tNrn8QgbzYzPYTmvaqb8BeD3uCfCz
G/1+7vO6MP44sO9sNZcakyiMvwL85N0fXlo3nm9wNv4REZO7m8/qzU3F/D4G
/rXV8J7tROxXJVxwXKZ1lfkCXH+1SsGLJ8uv+5uMz5/RD16z6mqpIhX7XaHX
4D/PgxoN9q8q3avjiucr9CJwhdz+yNIB3D+xfoCTa78Pe93G58lVH4L1jfgS
nziEz4N2BxzNSvaOT/6N+ZEPdsrSzTr4G8+bON/BaS/zsmkZWI/504ZFhHJb
j11DDo6nxAK8yemp05WCidLxYr8Blw+Lktd9JfO7E7yRPlB3LmCUNB+Ek/+K
CLkF+33VluF8ohLgOWNvyi6MxvlMdwdPmOO3bO4x3I8LRGCnB4vCFEaT+wPV
ERHRde/mzzsmWE9pZuD6p/z8MfXk+4oDYMu+9NW7yPNaThg4W9P2amFMKI7v
RIqYyKp9ajhxDNZDxgqwTg6L8soD6wXbFTzpqmGrczTuv3nXwAm+Px5J8vD+
hZngy/dcBgIj8byHtVxGTBwJuaxwxAzHg7sHXKi1/tekpEKM/zI4zyY7oGkE
z18oz8Exmx07aSL8Pq0ZbL/HvMAhEs87+LtkxcSdP5YOP29gPyC5CL51e4tX
xTd/rH9p4NNhN+zjS3B+MJrAW35eTDzQMoD1b7ScmFgT4HbmTC7mA/UCWHev
9tjMk3geQn8GfmZQs/dVAtn/NYBDiYvKvfexP+XKjxITwlu36IkKPMzvBeAu
s4ujPUbh82Amgz0M239FJjzE8a0D0+yDt0/2/YLxy8qLCafgitCI0Xh+JTEE
11hOXb868xXGvwP88/6Ar/sMrDe8D+D/l8/CEbBk5KD9MmPcP1MNFMRE0v4I
/UFzXH/o28BRXP3GpXu6ML8DpJ9//vrwRC7mD2UYnGizM+AYA++HpqsoJhZa
fjrR706e720BR3u+rWhhYD/BOQluFhzkami/wvjvg2suF993WIPzg6E9Wkws
mHI67M8trKfsTWBHh4bheQewHvB8wf7rxySIrLCfF8aC6yfQlRpm4XkltRzc
yzFfpsPD8eduGCMmNtl4e1mEkeuLDzhpmfpP31u4/lG40s/9NfcHFOP40ErA
KYMZBx+6peL494HdaONMdd+S56eeY8XEn3VKN4In4/md1l0wz2WOBfGRPB8r
BE+M7C7Mzcd6xe4Bbw+3NTX0wOfFmzEO8tl28RHV/3C9pkeC6Tk6wUnHcf6w
3oK/h5YFXmPh+TK3G1yVqHRWc9cHzI+pSmLiw2z6DPX92G9SLMCJ+t2H64Z1
pOPFeQ1WVh9TkXoFz8/5HWCjY95+9nTslyRqymIi4u/isHfe5P6dDl5l/aG8
ZgDvn3EQPHzKa4l4N+7fhO3gSr162iUmnq9SVcaLiZELGYcGUsj97yrwLnc7
u5i4+xj/fjA71murxwiuV9xQ8PP5d9anncfzNxp1gpjwHG/EmtKXh+NrCjbX
ydwgF4vrA2cv2OdOark6gfnEvwp2YnO5cqVYbyQvwAHLH3YenoDzgb2MKia0
bzWZhVNxfvN2gyeXmhxSu0PGfwn8KavuU9NjzD9qBngkcqJ/fynOF7oQ7P7u
xf4MY3J9dJ4oJjZecdj4W5VcHy+ClQX0gH1bsb+lpYIlT1JK71VlY/yN4Bp2
ubd6L7n/VZwkJkoTJIHN18jxPQ9W3ZotVvPH8WLwwLLr3/YseYfn5+yP4M8l
8u1RrZgPQiMVuB+XzqT32RwczyfgMxPdHZRdsV5xa8HbGoY0gn3w/aBARhXG
07tR1a8R6w/FEDwrdMTzpBrmD207+JJfyNyq37h/51eDbaK3v4vLw35U8hcc
Mkdfsuk57je09NVgvD4WiPZeJd8v2oIFvwSVOsFYX9n+4KrtBYEn+8l6MQRe
uWXywwounofSdSbDv9+9P9jxFfZ/LAY4tvVxnMAPz1O5fuAdurq07ml8HO94
sEy9+/I0xedYL+ZMERMz+LKNxiKcvxwb8DrjP0tuZuH6xj8O7tOqNrfULsD4
74GFQWEP+RNxfvCsp4qJNsfljXoFWM+F3mCe7L0s7wl4PkuNAQ+Pe1u/thjP
e+jF4O1LXts/t8DzFlYvWMXISvWEFfY3FM9pMJ/zCw+G6WD9oUWBD1ufpwgO
YL/OLABLop0ccsjzEI4EvH7+gGcbgd/nT58uJvyGPxSPsPH5Mm6Drbe2O8y6
dR+ffx44elzfGfNv+zD+LnB5iHq18lHsr4VTZogJuW2D3Gtt+Tj/VoPpZhUp
t7LwvFIgBtfNsT2msAv3SxQ1dcgni1fCPArmH80cXHHwcPncK+T5tBs41sfc
cImLgjR/JN/AvXGlDa/vYD3UmqQhJh40+ngEcnD/zVgJbruxqvZ8BT4/9j6w
jamNfdPWIJxvHPBe0aD6nCr8e/QJM8VEWK1XiOI73J+wTMBNsvperWPI8zwX
8FB/6rorC/D9tOAKmPbu1nyrWTj/KS/AHPtr75OisrEeLNWE9Tb22XfvHzG4
XjDB3h0ys7L9sD5LQsBBuvXmeYO4n9NKB+9TujqU9QQ/Z3wGl8eJNqTY4fMQ
OmmJiaWS7NVOCjhfqcFgh57D+itU8XyDngI+4an91d0f3z+xPoEVlOKX/SzC
fpKrMEtMFCcVWwtTMf+YT8GBFA9lsRu+T+fUS+3eZa7UjesNX2423N+uwK5J
Dfh+RzIfbH16gKuqiPsJ9mPwtnKD8tRkfD/EqwH/YruubGnB8RNS5kC/9PG1
Z4bjM8zfeeBiG8rS50Y4f+h24K9z5i6wE+J5keA9OOB40OfXOVhvKX/BzI3L
/751xfWIpqctJvqvLoh9FIvnb8yt4CaLsx3fLfH6nFNg29+e/EPNZH88CD6o
6ejg9xivz5g7V7peyB5ZPA/rB3szePOx9ePq7uB8450AE847snR/Y74I48Dh
2YsnTA/C/GPN1oF4y08JdsrheTl3IzhNb7RXbzTWR8Ex8KcdbF3xWzwfptwD
D7N3Pe7uwnpLKwWnd3D6Gibi71/4Vrpi4ltdYXypKfl+1gtcnuA/S84a1x+t
aPAVA7m0TmX8nFEE3nXO1C7pAhn/D3CF3KF0WWfsN6lH9cTE9dM7+n7b4Pyn
3wHv6Mi6ZSAaLZ0vrHxwvGlU+4s5mD/c7+D0ooXVz1jk+fo0fTFhWBd7QuMk
Ob63wPVdLfNHyP6S8wZsEqu6huJInu92go3fFbnRGrG/kkw2gPnhwj/hthvv
X4sAb1DxPHPNa5b07/NegWuao5V2GuJ+QygCN0WKWZmPsB+lqs6D/lnjXOno
fnJ/YgbW/1oQ+2kz1ivKN3DOjbFf1p/G82LaREPoHzhenUq55PuKFeC5EQNH
/l7AesNxBZfsaT6z7i+eH/GvgeW0e/bMjCHP68bPh3r9NFSQWozrE3s5+Ev8
n3vTirHf5+0BE+MvTW+cj/NBeBl89IkJIRjE9wXU59LPp8pzrasx/7lLjCC/
jp2W3H6bhuO5C3xsgNddMAXfb1JCwIbt8pd2J+F8paWBH2hFeiarYb4xm8CL
5Sb71NzA60kcF4iJu5plIv0onJ9aF8C6KVdVJ/3C8y/GM7Bscs+0xAjMT3YD
WOKn/yXsEJ6n8uRpEO/Cw9+tKvH69HPgTb109eXFWI9YyeAFNsmXJU+xHnDr
wLLqrku7FOJxPsouhP4iZE/DwFxcDynzwTVGa4+McybPbz+AT9VH7DVuJ8/3
R8Ad58uzntNxf6hlYAz7hUz7qu0V5PuVbWC3cc566uPwfarwHdjD51l453ry
/fYwWOPm2KCim7g+03UXQT4czIwqiyd/X7AFvPGjSNQRTJ4/nwRHMB7bLHp+
E/PhD/jY1AzadDM8D2VqLxYTZnteWk8pxPHmbAJvyYja23IJ84/vC15Wau6v
XY/rhyQWTHe68s34wDhpvrJnLRETO+d6n243wPrB2wC+E2Z8ZAwH13ehD7jJ
SPCp8yPmJ5ULNm5WNN9YRM6/ErBtxiMLzSy8X8H6pbB+3bysqayD+UfxAhs8
OqIy8wn5e6q74Jm+w3tbLMjfIxWCV153FCnycXw5PWBtmb1MYTj2O4zIZbDe
m5ita9wuK80H9luwZrx1qcJY7O953eDAvdPFe17h/lw4dbmYKOjd8UbzOHle
cRMc+SvPwFGE/TP3NfjJ8IyR4334PkPQAQ5ZVRp34zv5vmqyiZjw4m6+di4T
+1kaHaxuuPa/e+v1pX+fnws2Urb8ta4MrydpBzd2rOmyTSTXNxVT2N8enrQn
ZS4+P8Yq8EWFxa3Br7AfYO8Hzy1RmXYuGM+/qF/Bzu0tOrXzyf0odYWYeD+k
9T2jAOsvyxQ87QfTYTAf5yt3L9jdrG6lcSfWR8FVsG2DT4T1RuyfmcorYT8c
WcnJ0sN+m7MMTAnpPro5njxv3g1ebco5G5iE+yHJJbAN/cCfpyrk72UywDv2
j6pd6Eb+/mjxKsgXq9tbQofJfHYGP4qmVZ3m4vOkXgT77hl5nfoA9x/0VPAo
W+cCwz6sd6xGcMDvyxPC8sj1ztEM9p9F7zPyj2G9pp0Hh7jd1N5eieePTB54
XlrFoMUvHD/OR/CZ13cz1UbwvJ4/yhzmu1uJyjMqnn8wzoIVt2W8UiV/f8N+
AtaYyX1aUYvm1YLnfrrHj7fC832hDB36pdD2KxsOk+8LDcFKhV5WOm6YT9wk
sNGi5YXWTU9xfKvB9cJ5nBEZ3K9TRsAPzMJHTY3A/SZNn4D8eszIDR3G+su0
BbtPGL6/PwDzX2sI3F9sst9BiTy/11ktJvTCu3oEBnj+y2aAb0RP8F1wAp8H
zw9sNNn3TfMVrCf03+CksOX9slPx+bDmWMB+TyulpOca/j2uDVhJ5W1jhhH5
fvA4+ILBqEs6qvh7C0os2PZNbvI2jxeYD1prIP7JpxjDw7ie8a3Bu8JGDVSf
w/5J4g1+SdunWqWG46cVA66dITsl9SLZrxWDg8R6PPYNfJ8hXGcJ8+nJ8Ivq
0Xj+Q/UE//nQrFCyNAXjjwIHfb7lZliA/T+rAOzKsXdzrsP84ErAyS5+d56t
wvGgHVkrJlrF1mdvluP+jnkb/GDD1G8fTmL+cfLA/m6p+jEU7L/4XeD2tvH5
bxPJ+ThlnZg4brXl7LdM8v12BLhazTxoYhfOJx4f3Hzfv9zTAi0Ug5fFrnWI
ycf1jKq2HvoRs+Nhb7Sw3tDNwVNKnGj0W/j+X5AD/qNbKnNeiOsxpR18I5Bt
MM24COOfZAX5oFRdPRSK9Za5EuypujVPXxPfH3L2gZM6vSa93ELuP9vAs7p9
DrtW43kYY4I11MOf56clTcb+lm0CrpO5ashXJ9drF3BSTEPtXhXy9z1XwCWJ
GaN3z8B8ZSltEBMxi0al2mmSvy9YCjbpX7s9Ih/zV8AEV/19kucURJ4PXQLr
9awsyp2A6wUtHZy0j6nx/hf2N/xFG8XE1pFUs0kOWF8lTuD/HHacFd4oxPiD
wdzUpWdd3fBzRgp45nHiqH8f/v6U/QlcN1SRuHggAcf3PxsY38F+XQcqvr+g
B4EDT6+8kU7FfpD1FMzd823JmhGsl9x6sL6BKPyOCfl7H7lNEO8C3t15B3D+
M8+AH19/cXdnB66nnMdgOY8HhjH2783/Bxy+2hw=
"]]}, {}},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
AxesOrigin->NCache[{3440102400, 0}, {3.4401024*^9, 0}],
Frame->True,
FrameLabel->{
FormBox["\"Date\"", TraditionalForm],
FormBox["\"RSD (% change)\"", TraditionalForm]},
FrameTicks->{{All, All}, {{{
NCache[3439756800, 3.4397568*^9],
FormBox["\"2009\"", TraditionalForm], {0.020601132958329826`, 0}}, {
NCache[3471292800, 3.4712928*^9],
FormBox["\"2010\"", TraditionalForm], {0.020601132958329826`, 0}}, {
NCache[3502828800, 3.5028288*^9],
FormBox["\"2011\"", TraditionalForm], {0.020601132958329826`, 0}}, {
NCache[3447532800, 3.4475328*^9],
FormBox["\"\"", TraditionalForm], {0.012360679774997897`, 0}}, {
NCache[3455395200, 3.4553952*^9],
FormBox["\"\"", TraditionalForm], {0.012360679774997897`, 0}}, {
NCache[3463344000, 3.463344*^9],
FormBox["\"\"", TraditionalForm], {0.012360679774997897`, 0}}, {
NCache[3479068800, 3.4790688*^9],
FormBox["\"\"", TraditionalForm], {0.012360679774997897`, 0}}, {
NCache[3486931200, 3.4869312*^9],
FormBox["\"\"", TraditionalForm], {0.012360679774997897`, 0}}, {
NCache[3494880000, 3.49488*^9],
FormBox["\"\"", TraditionalForm], {0.012360679774997897`, 0}}, {
NCache[3510604800, 3.5106048*^9],
FormBox["\"\"", TraditionalForm], {0.012360679774997897`, 0}}, {
NCache[3518467200, 3.5184672*^9],
FormBox["\"\"", TraditionalForm], {0.012360679774997897`, 0}}, {
NCache[3526416000, 3.526416*^9],
FormBox["\"\"", TraditionalForm], {0.012360679774997897`, 0}}}, {{
NCache[3439756800, 3.4397568*^9],
FormBox["\"\"", TraditionalForm], {0.020601132958329826`, 0}}, {
NCache[3471292800, 3.4712928*^9],
FormBox["\"\"", TraditionalForm], {0.020601132958329826`, 0}}, {
NCache[3502828800, 3.5028288*^9],
FormBox["\"\"", TraditionalForm], {0.020601132958329826`, 0}}, {
NCache[3447532800, 3.4475328*^9],
FormBox["\"\"", TraditionalForm], {0.012360679774997897`, 0}}, {
NCache[3455395200, 3.4553952*^9],
FormBox["\"\"", TraditionalForm], {0.012360679774997897`, 0}}, {
NCache[3463344000, 3.463344*^9],
FormBox["\"\"", TraditionalForm], {0.012360679774997897`, 0}}, {
NCache[3479068800, 3.4790688*^9],
FormBox["\"\"", TraditionalForm], {0.012360679774997897`, 0}}, {
NCache[3486931200, 3.4869312*^9],
FormBox["\"\"", TraditionalForm], {0.012360679774997897`, 0}}, {
NCache[3494880000, 3.49488*^9],
FormBox["\"\"", TraditionalForm], {0.012360679774997897`, 0}}, {
NCache[3510604800, 3.5106048*^9],
FormBox["\"\"", TraditionalForm], {0.012360679774997897`, 0}}, {
NCache[3518467200, 3.5184672*^9],
FormBox["\"\"", TraditionalForm], {0.012360679774997897`, 0}}, {
NCache[3526416000, 3.526416*^9],
FormBox["\"\"", TraditionalForm], {0.012360679774997897`, 0}}}}},
GridLines->NCache[{{{3439756800,
GrayLevel[0.8]}, {3471292800,
GrayLevel[0.8]}, {3502828800,
GrayLevel[0.8]}}, None}, {{{3.4397568*^9,
GrayLevel[0.8]}, {3.4712928*^9,
GrayLevel[0.8]}, {3.5028288*^9,
GrayLevel[0.8]}}, None}],
PlotRange->{{3.4401024*^9, 3.5309088*^9}, {-3.3739926110129996`,
3.4459375849869995`}},
PlotRangeClipping->True,
PlotRangePadding->{
Scaled[0.02],
Scaled[0.02]},
Ticks->None]], "Output",
CellChangeTimes->{3.550462382689253*^9, 3.5504630389652433`*^9,
3.550489204090535*^9, 3.5505412125734253`*^9, 3.550541589399826*^9,
3.550546894389524*^9, 3.5505471220232897`*^9, 3.5515831370369368`*^9,
3.551757334308955*^9, 3.551997040101248*^9, 3.553265926621842*^9,
3.5532660911581907`*^9, 3.553911256998201*^9, 3.55391262630264*^9,
3.555469378488785*^9, 3.555598648795332*^9, 3.560033381496162*^9,
3.560033489802272*^9, 3.560033746075379*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"DPC1", "=",
RowBox[{"DateListPlot", "[",
RowBox[{
RowBox[{"GOOG", "[",
RowBox[{"[",
RowBox[{"All", ",",
RowBox[{"{",
RowBox[{"1", ",", "4"}], "}"}]}], "]"}], "]"}], ",",
RowBox[{"PlotStyle", "\[Rule]",
RowBox[{"{",
RowBox[{"RGBColor", "[",
RowBox[{"0", ",", ".5", ",", "0"}], "]"}], "}"}]}], ",",
"\[IndentingNewLine]",
RowBox[{"FrameLabel", "\[Rule]",
RowBox[{"{",
RowBox[{"\"\<Date\>\"", ",", "\"\<\[CapitalDelta]P (% change)\>\""}],
"}"}]}], ",",
RowBox[{"FrameTicks", "\[Rule]",
RowBox[{"{",
RowBox[{"Automatic", ",", "All"}], "}"}]}]}], "]"}]}]], "Input",
CellChangeTimes->{{3.544834204743032*^9, 3.5448342203691883`*^9}, {
3.544834433603018*^9, 3.544834448440598*^9}, {3.5448353779162483`*^9,
3.544835406434658*^9}, {3.544835554206143*^9, 3.544835563394462*^9},
3.544835633426323*^9, {3.544835719848983*^9, 3.5448357377139*^9}, {
3.544835833497325*^9, 3.5448358340925503`*^9}, {3.544838579994048*^9,
3.544838580455179*^9}, 3.5501889933549767`*^9, 3.550190242897345*^9,
3.550191329708679*^9, {3.550459909962573*^9, 3.5504599113010483`*^9}, {
3.5504599447690277`*^9, 3.550459945793652*^9}, {3.550461076295878*^9,
3.55046107738692*^9}, 3.550461563994111*^9, 3.550462356870571*^9, {
3.5505472306265593`*^9, 3.550547230806229*^9}, {3.553265879478483*^9,
3.553265895261113*^9}, 3.5532660843179617`*^9, {3.560032385379034*^9,
3.560032385795165*^9}}],
Cell[BoxData[
GraphicsBox[{{},
{RGBColor[0, 0.5, 0], PointBox[CompressedData["
1:eJxV2nlcTF/YAPApFUKmBS2qsbURI5G9uUopxVCEwkSbpJIoEoNEKsa+ayot
ikxJkaVJe1EjJKKmhcy0TWmjxfvMc9/P531//vj9Pt/PzNx77jnPec5zzm3a
Lr+N7rIUCqUJ/iP9P/xjH44VEQpdLiEn8igMMC8eHKwhV6fAHDYHC9+BTRV/
bfWuHc8HUwfAV4Jfaw7d7JR+zpgeJyI2p99g+v4YI/1cwAU/8RVXTJ/zK1d6
g3Iwe3Nx5dY0ofT79F6wKLgoz2SYKv0+SzdeRESN+rh37YQf0u9zbMC301OF
7KnvpN9ndoN3pn6yfXZ1svT77Kn3RYRlk2Zt8pup2F4rsCigr2poQje21x8s
6baJP82fIv3cvxO8Z4jmNtlFIL0+VyNBRLh9Mq9a8FZW+rnAAmw9epby2tdq
UlN8wTIf4q1EUQPS79NvgBtcZyu+2tgnNX9yoohoDpw4KXJNk/R+EgZ4SrjR
iINinPRz2l4wb5OqfEN/C7b/Ktgi0Ug5lzJWen12Lviw3D1qeK2q1NSVSdCf
V2YMnZ6B/c/wAu/JMlK2dJ8kfV7/S2DzTzWKH4r52P6XYJPP/x4E7+6TXl/w
Ezw479iliJR+7L8LySKistrTWPkt9i//OXhEW+HEc/cx0utLmsBhLwPzjj4b
Lf2cpvRARDjmfg7nlHVJr8eLAh9sP/PYtU1F+rkwC/xX2Dk+I1EF29sAvhc2
bXZYQpf0foxxKSIiYKzWLJOmHqn9F4LnfaTdLsmtkF6Pkglewq75ZRU3Vno9
eh3YcJxl30NfofT7rDGpIiJd4fGJLF2K9HOOCTg0yZg3nES23wXclnnj5KJH
HdifteCnNjmDRq1kPMg/FBEexvzo3jc43rx5YL5ZrOqPNdjfwq1glyLtnc1r
hqS/p4aBFZcEvFO7/V5qruwjETH77spskQP2n2AOeMtoM3rtFRwfihN4jI+V
7CQWxif9BNix7OGrQOcObH8qeK3n60PflNMxHgzToH/uuMubOU2W/p7mCK7g
pnwR+32Vfp95DPwxU1f2bEib1OxksI51eMM/P3lsfxU47OjkL3+Yf7B/NzwW
EQaRF7aJJ2D7/EOkjh+cF6ryB9ufAL5+Q9Cs/2wQ46ES/CYx+uFCyihs/1/w
42Oend1UjC9OME9ElNpV9DklYXv4ceDqzLnJnE9y0v6UvAUf/xhkXNHULr0e
rR/cPuP+N0fT0dLfM6eliwjK//0TxoDPic3SXqkPYP+WgX/Ff4jXCBolvR6j
B2yeLSc3ul8B56NOhog41CSy9zuC7eOuAdeHjs6IqWzD/FAMjn1e7rvNTRHz
QxdY3byWmbGuUfo5R+uJiGi8Rg0MGd8sNX812Muhpcf8UTn2vx/4/n1zhfd9
v6Vmd4DHDWVZR09qlz4vTz0T5hstsvT0pUaphavAEylNe8qNsX+o+8CvxTum
e7lhPmFcB7d+KY/t88HvCyY9FREdmkqnT9bg9ykMsBOvaclVNQG23xus7Wjh
PRD6WmrWFfCCb2a8JaaDOD9fg8duViqOjsHxpq3IEhHenw3u/vUpwPj2BPuu
nqReeU0G4/si+NH6sAupQ7JS816Ac1W0F2q9wfkj/AH2iN9oa5iA/eHvli0i
EuWoQ/yJGO/c8+BtsYuW0g9g/hU8A8/3eu7Ht6rF/NwE/lQ1M3SquBDje8Iz
ETGwMGbc8kWYvyVPwfavJkqM1HD8aELwgiT9rAUjVdhexecwfv+8Xy1SJ/vb
FDwrY3byY+5fjIcn4JiSe7d4TTKY376DbyZuFm2/XYvtHZ0jItwFVsl8q1/Y
3vk50vtvXqY//A/b6wz+83sV0eeC8cj6Cua995FjDv3G/pR7ISIK393oNfrz
E+N5LnjD3n23lsxDS7aA0ym0IpNYMebnU2AN2lFJ3uhOjAeZlzD+guT4k24j
2J+zwazwMA+FxGKpqZvBWZdqIu7WlOJ8ZIPnBc8pVOnF9cQ/BazwxXnfePt+
zHeGr0TEPj2/6M5VuB7SHcCiv21xP5bjfGOFgvX6BG35hzHeOUng3wr+B345
4nzmvwcPvn/4YAZLFucb8zXkM8cQSlTee8wXR8C0UeujjVY0Yfvvgw30hS+m
vkQLK8DH020uOo3H+Uz98/o/85UblAvx+3xMwJwozH+CWLBmC8P/81bMz5S3
4IUxqkMx8fg89D7wYC2rINoTx4NF44uIFS99ci9Y4vovuQfOW/BXJmUqzmda
Kfh0gIKZ4Ew2xsdvcPH2ftkwN3L9086DePbtuqxnLMH1xhp8r8E16MZGBcwX
ReB8F8+zFoqXsX8lYH0zj6SWRox3ruYb6F+5HSq3aQ9wPlqCI84X54nHY39R
/MBu7+2zwgww3jjt4OVbYwM/ncB450/Jh/VVfsPQ6gpcvyQE+I+TXUqgBRkf
PuD59B1Vg8vx98xr4EtvbJPVbpL5Qq1ARHSmfT+66ByZL8zBNxOW/tI89Qnz
xR7wlaJ3Arolft//MtjcX2ToN60I2/8KnKgW5TXSRfbv8kIRMWPR4QC7/S8w
njlgtaxr857dwfnBzwEHZGv/vfdehP3dDNbevSM8i1OP8bC7COoLXpbmcmvM
l7xo8J1sBXuF/VlYD2WD5/ZHW+l+rMJ4bgSbrttXmBAzAefj+GIR8UG/y2mg
BMdDcA7sK74asUwG5yPlKViiSvPskMf8S68HT2F/XVggxPnFGlsiIo6lnTmS
fAbjm7MAnEqxTVk4jPFKywDH7XKJlFuI6yfzGzhtlUDGLwTrBbZCqYjo9wmv
+r2OjGc62COB1pdYi/El3AYetUVe19hfjPlhVBn0Z6FHnvV1Mh8bg6MaFbQM
UzBfU7aAr+1ze7pkLK5H9JNg1SeusW/XYX7mU8qhnpTrfn3WBPOlxAise+nV
z2g7zI+0TWCtpsM718qS8+84+HT/sl0hR35ifnsAPm6a4HlKJRX70+CtiHCe
ebJn6VhyvdgIzoiepd8T/hXz21HwKGWH5K4EjFduIvjnuPqr9+ZgfwkE4Pxt
JtV+ca3Yn+vfiQi7Ptvc6iTMp5zD7/4zf/nx4JCz00ZqFzRg/L4Duw54/tsl
wvWFNgBWzuko2bUQP+cdqoD8daxme5Yc9p+QC15q9Kk65CUZv+XgiBV/DTv1
lTAeesFDXz81HihqxvjVrRQRzKSEA+L8L9i/98BXs5/IZ8wk+7cEnBisl1Fp
jZ+zusE5r9/Uucni+sOZKoB8btHbdHC2BOefFVjT1L3XRxPvxywEhzqVxV1W
wf5id4IHI2YGqBukY/s13ouI7fcKSh8UvMT5ZwFW8HE5dMWlAdcXX/AKDdFl
lZAM7N82sNlF5p5qxWcYz5OrIF/eP+m1dgrOdwoBNj+3qLSdifUUfS+44PZV
ceQnMr9dBV+sd39T/lBeOp8kqh9ExKYjTsTWfV+wf1eCa7zM1C4WYf3P9AKv
WTz4eoIWzg/2JfC9B5ep8vHYP7yXH6TrzTtlmyvfMD6WfRQR59PC19M52P/+
7mCPMsojD2Ny/bsAjnrc9j068Ae2/zk4c9O3Yol7Hba/Gfy1p/EONRX3F5xd
n2A/sd1667kHaH4UeKZKstwiYRnGdxb4bWy17eZ7b7D9DdLvT+m2CFqP48sc
Vw3jlWQWNdBK1hMR4D2hY87IuWH+o2aCZacVvai34GP768AmJUlRupO/Y3yP
+fzf9cUErHU65/SLTTje9HSwnIX8Ie1GHC9WLfjQVhPZR19xvnDka+B5DBy3
jruN/cufB1asstQds+YDxvdWcED5ZZOUllzMFzVg1Yp5WZenYb3Hk/0C412t
pXEuKA/jew74+QTqObUjmI+pTmCn4oRC226ML8YJ8O8LjUHePljvCP6Bk69/
q7tsg+sxxegr1Jd/i2/qfMD1gu4IHmv1wKS8DceHdQy82Xunns4B7D9OMjjS
voim9xyvT9OvFRGfCz9Hb2XUYHxsANf1nfIMm0TGdwh4zgifOKOF84OXAE7X
1e8NLcX9l7Cy9j/96b/uG8wPxYXrn2Vh/uEGg4uOGO7jf8D5LYgDK9StTjUw
xf6lvAOPZXxVWGHxDdvf/+2/+ePgdxHR0zfdOisY7yeJAe99TfQMzMXv08rA
1RxhTa4R1g/MHjDXoWVJQgzWn2ydOhFRpnGL4u3Yi/17Fxwt/GY5Y2s+1kfF
YHFObMaWtUOYP7rAPP4eQnMn5muuVj2sN3y7yB2T6zC+V4Mn7jzV9if7L+a/
gvr/tJfTAVY7IBCvlcf78dWFIsLTVXPn81is/ySrwOHfFJ492ozzi7YP/LH6
coN+DO4Pea3gTS/WxVzVGcb4ntQA+ZM/6tLBNPw+lQF+/q//1GXTNGy/N/i4
rskLtf/db10BX71q1BI3AesDimoj5BtTe+s5N8n1cAW4Qyl79jJBNbbfE6xb
FDA2YTGen3Augt+uLx14XoD9yX8BNrdL6I5wb8X4WNokIpRaD3lkryLjww18
qvnxJr4Ax5N3Hixq2Ubb++0ztv8ZODs0ui0x+DO2vwksdpnxweoirp9c1+b/
9J8gEtwfkP6PH4X5iJIFbpxkINlF1id0Ifh9br9qXClZXyv+gPp+q+z2K4MY
D5KzYJn1T1orZ2I8056AnRf9WaxZiuchzO9g2h6NyUlncH1nj/4J60Xsn9or
W3B/zJsPDsnv95g7gvtjBg9sNGtR5b0mjD//r+CmxrCdbTPI/axci4g4mr79
qXg+1juCueDDjtQbdSa4v6VsBR9LMfUa5KM5n8F+csnV2TGYL/gyv2B8Zo0/
skUJ11fJbHC7Tsmm44tx/0rbDJ6xobhx1FhcD5lscIpaTXztPaxXhCPg/LqI
aOerCtLxohqKYHw+Jp+61FON7XcAm3u1hViu42H7Q8GBHWOGhLL52P4kcMQY
v3hztW7sXz0x7J88L820uYT9yWKCd7zxfiXvjudLnCNgu+TBPKEVjg//Pjgy
Y0kU/ztZX1eA75p6jDiuicX+tW8VESvffdsSVp2A/RsE7hlstecux/wkjAWf
Puin6XI6A+PjLTgnNaA4tBf3a4y+1v/GR2CbiLCOi/At/47jS4kBP0gLmLJt
NdaX9FLwmzzbydOdMf5Zv8EfRwz6h/ZhPuJot4sIHxtG8LKEt5g/7oAzdZIm
rnXH/M4sAkeG+R5i38H9AVsCrswQsR5vxPvxNDtgfte31epok/nPEnzBbhPD
YIuOtP/988H1+sXjlUtCMb7bwVmb01wvvsR8LZjSCe37oXKIT83D+bkKnHyi
IOLfD6wv6T7gtm05GiFmNRgfYvC0nsAU/g08n5CoSUTEyfzW6TIT8Xlp5uBT
y39p7DS8ie3fA7ZzrZvVM4z1IfsyeNmf2Jfh3Ti+VJUuyC+UoOjHH3D+MJaD
twRZjKVZ4vmZvwdYafTyjet8cD3ncsCNlU16xzxxfy/IAZuGDOmteo31CWtJ
N9RzG8SrVWh4nsXZDXazK6nN34jt5UeDk7ybkzplWjC+s8GZRS+99rti/9Ea
wS2suXP5g7g+8Vi/od4Mltl1az65HzgHrjmj/ad9Oe53qU/Bi/1ccrzsRJj/
6sG6DbpiRZ+J2P6xPRDvmrOY7ySYXyhnwXKTRy4ObMD70TPAeaeveAQycb/G
+gYeDioYrj/0CeNboRf2f25641IX4/6PTwfPiVgpdD+F+2/m497/xCP7C1jc
HrxzWQjmE96oPhHBHuWvZbVSVvp7oTH4uLpXxvOPGE/ULeDeSHpuamEvxkc1
2GH5zPwbc7B+E1D6YX3ROxBmdxLXJ8pssNd30amUPOx/+ibw2Y703g1teB7D
Og7OFhWaPLjyAeffMNjOaN88ZzccH5rBgIjY4JO24i8bz1OZG8HLt/AP31fF
8WUfBY8uOxyssLsC258Itkxv5igeCcP+nfVHRKy7u+fUx624nvqvB8/bqZaX
uArrO+5h8CiWZ/H3eNwPCOLBdd6fxwUo43pEqQAvjdCqy7HDeo1j9xfqkZxj
e33N8XyYfwgc2+bXmmeihPHNBb+INgjZ6o7nq7RysHeH0aBZHK6fzF6wnZ1F
h7oX9rfwwOB/xoN6DzypNEvcMAvrb0YJuF5jteWsNhxP/26wwYOj4/bfwvNo
7tQhqB+3lMxs1sPxod8GtxgvfrUyEusdViF4pIi4GX4Ez5M4nWD/mylJhv/I
/a7GMMSnteSifSCufxILcEPrnQuRdVrS9rPfgB/LN40Y/ML78drA8ZuGl37Z
r4jxMXkE1lstzcjFxth/VAJcH257MfwY5lfGXvDc7quO0Q4YvwIReO3nsipm
MOYvito/EdG6iCKo/I31NH0lmGE82HagmaxPvMAderXfP4iwHuZcAleeEios
uHAX40OZIiaGLBYWqmwl898ycKfaYptqq9eYv93BfazCvogObC/vAljDq2Hq
z+O4vgifg1u+8PV3C3B98F8sIyaCKhMFCV64P+fuApeMkVsysfAjxkcU2O2m
cdNbWcwPlGxwGD10R/HUh9j+BnBNusz0AU/MV/ydsmJC9o0xP5xSgPkjApz+
/ce4Eyvx+rRM8MxX3WaL7XE/yawD99TNvqp/Bt8XsMeMEhOGHx52fHXC/Eo9
A77mfWHbfXdyf5MO3uKc4VdTi/PPv1Zq9Ybc9h9k/SovJyYC/Ie7VGMw3wjm
gW/0bUnL/oLrOSsNnP+oc3jhHpzPnBow562ZcWY91it8WXkxERfR9DRiC+YD
yRxw8PX32p2vcD9GcwJ/f+rtvOMGuf/6BP5/8Sz8Bz73IE94QoVsv5GCmHDc
nPIp1xbrS4Yj+FZai5WDIu6//Y+Bj2ye+kzb9ATGxzA429l3cPPNHuxf/dFi
YnV/CW/AG9cX1gbwiFXbUUvXRIyPEPCZ1Rop+Tsw//ITwPWne9c8XTaC8TFz
DFzvIqXb+jqex7DXgbnlUQzHdeT5WDA4hhPo25Rcj/ERBxbI98iHErheUd+B
85seyKuFYf7irh0rJipy51au7MT6VHAQnPrwXJRyFJm/ueBel2NjghjPsf1l
YE3OojuLx2F9yeoB3wrs6K2N5mJ8BCiKiYYlzY77fuHvaXfBZfLrc2ZsJPNf
MZhWkdN4UBnXI3YX2G+q9onzwzi+PK1xYkLHJ/l+4gzsT8Yt8LwDNe+JLHL/
WACu8LT2jbTB/QC3A7zhtn/rgis4HwTq48XEwe6aRWqt5Hm1BXhmaFCuA0sP
80ceeFZDodYTLj4/vxW8nnV92c7r+P5EMmmCmBike+00Xo3rOY0B/nH/pQJN
C/M10xsc2TxQlHaNXB9/gVPNbZjHXuH5EFVVSUwco/3gtb0lz/dWgO+zfhz1
G4v1vr8n2LxvY19hC37OvQieZV77NmMlPj+dOlFMxEY+/bZCG/errKXgTbPu
XMj7g+cTHDew2XwFm/wKcv9+Htx5KsT2pCa2T/IMHK9wuinjNuYbthlVTHjo
H05MscfzW54rWH7OirU7RVj/CiPBjwXz5CfWo6lZ4Bg57m7XZfj+gyEEmy+M
9N0th+uPYIeymPBWea7v9ArnAyUCXHSp+Ne2S/+w/U/AKv4LwjhVmN9Y38Hr
Rxc1tH8iz1dHq0D8e+f+DX6J9T4tHFxHyQjp+YH1MZMH5lvdXNJuhvsF9ldw
1ZHarcw9eP4hnKsqJqZrRympvsD60v8ROFQmZOVZd3I9/ww+bSzRUJmJ9ZRA
Rk1M6L+JmOMoJPczc8DyLbbTk41x/tI3g0WiDUW9e/D8g/8R3Cv6WiHfifWZ
ZAR849VoPTVb/D3NcJKYWGtQqV55BucL0wFccOdw5/cKfB/DDgVnrvcxicjB
9znUIfD793Kyh8eR5wl6k+F+ZrQVQQPJGM9MsAO7d4ziW3x/wj0C/kDVXit3
Gd+HCu6D68p+Ttj/GOsR1owpYuJCu8z+ZhXyPMcePGG2BfV8BLnfDQK/iDvy
9lIanq9JYsG3alk6TXFlOL9s1eH5R1vN33GDHP9AcNbZzqO7XTFfUmPADzUn
bxu9lNy/lIINq9zWtpSS8fsbnNAVwKZPI/e3ARpi4kAeJVauD/Mx/Q54U6+W
3/m7ZH4oAj+Vm6T0MYg8v5GAiZSCuc5WZPxqasL1xusw2ak4n5k3wTpJ5jlD
evh7dj7YPmuKztE83I/w2sG7OsrfP6ojz2+maImJPc59CeYNGG/UVeDrjQ+i
y3wxfwjEYI0DspfXvSPfb06aCvk2NVRBJwvrGbq51DmMmPtLcP6x9oDvKdd+
zFIm6/0WcNq2h4m3XPE8iaaiLSYSp0ZNS9TB83jmcrCbZ4sScQvPV9geYJtz
3wuvT8Lx5XHA2VVelquO4X6eMVFHTDDLXgu6PuVgfy4Bf2KEq5w8RL5/2w1u
Ebt660/FeBJEg+OvbhmVtgXHi/IM3KVtbcDeg8/PWaQL+bO74c/+3Vj/8Flg
sXBqZiODzAfnwCZ2bKryQfw97SnYg5Ow6kLHKVyv68GKh3dpR7fi+iTcThMT
H4fCnHqfYHxTz4LXeMvHXmPh/oCRAeYayLyWHwjH+P0G9rVfcM3LoRDbrzBN
TDhHHVQfl0qefz0GW8ttyjuxFN8Xcb6AjWUp9olrirG9o6ZDe2yrHQjyfFti
DM77HLvBPrEU59NDsJ321U9yXPJ8oxrclb6Uv+Ao1qdCygwx0Z0m2mweGIjt
nQ12uyKzVNsZx4exCey6qqRgYxD5vv4DWE1dT921jqyPR8AmXbPPVeq+xPg1
mAnr+6bMRe83Z2M8bAT79PXdnTQK8xvnKHjBCXFmVzm5vg2Ciepb10ruY73E
nDVLTPB+m34azXyC8bAevOHHqUgmG/cPvMPgzecWKC4KJvff8eDHw20dT1zw
/YD/dD14vt+RTb2jsN7l2oG3f1QUfDZ9g/FwCPxHnqX5/gOeR1BiwZkn/wy1
/8PzD3o5OCvGMF3jGMY330Yf8vW0qBuzjMn3swfA5ceejHqfRe7/7oFDywps
RC6XMZ5LwJPntiZrTMTzJnY32D44OD76KJq630BMrIwtfKhtje9zGLfB/1xk
+73W4fj6F4IT6/xOyMbgfpvbCX6wuvFfiRn5vkjDEPzGsjTNHutR1g3whQkt
0b6huB/nvAG/XZbolvmCrD/bwMT5g8vnvCXPNyYbiYnDaRGHRheQ50sEOJkN
w3WGhv2bCw4WfdRztcL6QigCr3d5luFEw/NlqtpsMdGfuHCjaSH2F2MlOLXv
vpfHI6y3KS3gipcl9y3ZOD/oynPERGDG93T2I4wn1jJwWtzso3qpuD5w3MG3
KJvkj4zEYzxfAKv+Kr1ssYys55WMYX7vyhxzxhbvz14MllPp2H8iF/cbvF3g
lzdtP2UVkfV8FNgi6UvaaAPy/Vs2+NVZxYwlj0qwPxfOhfkX03n9eCDWz4Kd
4CmZp1bsj8f2UM6Bzzv99Ju6CtdDeiZ4jNNojUJdjEdWHXhp+ObrAQHYHonL
PDEhOd3iFSgg93tnwD3Xaia5XJGVxh8zHdxe2i44tIM8T68FUw+LDDTcyXpC
ng71kY9CUOZrvB8jDKwdFO68dzHuf/3TwCZTL5r1PLqJ61sNeFbSRgX2HvJ9
sux8WJ/1FipZ9uPzUozBBUdnxHG0yHz2Cbzk+cAT2S5cfyX/wHzLwcDfjzEf
0YxMoN4vVA1d34P1IdMRrBWR15RijPWFsAo8RaFsSDUb623qMFh+ZWLJ+E40
Q3+BmKhWvPVKdO825rMN4IFfpj+N1Mj9dQg4aLWOktJurEfof8FerqcqA3qx
PmLNNBUT40Ifz25SJdfjdeBs3fIxfUr4/PxgcNXnI+utvXH/LYkDe2ff6Ht6
Dt/3s6cthPpphlO3zRLMN7y14LMq7ksM3uF6KjwI7tq7yXM4GOczlQsev8zw
mL8VtodRBv61bZdrVhneT7BmkZjQEyoyLR/j31NQDoC3Tam0OfoX6y/6XXDU
7ljezD0Y/6xi8IkWbyUPR/L9Wxd4jcB629hZ5N/v3DKDetSwN/VnGP6eXQC+
f+OCUUIUmY87wIWHjNWrysn6TH0x1KObuyJVdpH7uevgM80lgx8c8e+XuHng
BQs9GH/34nojaAVrZPu65QRheyiTl0C+POz/fmUm7ifpDHBuTI3KuAFD6fX5
r8GHCpPyHJ+Q582/wObR02dZB+H1aKpLYX5/n6zuoUOeV6wAX3gXKLZfg+/r
2J5guRu7/Sq5eN5O/QmO+nrNx18pF/MBdZmYULh3mKlqj+uf/1Jws0yH8pEH
WA9w3cDtzm26ibdw/yg4Dx5VNvFr5hDmK9aE5RAfRTalpx3w/I9jBo6upz1Z
1o31M98VrGl5/0D5Y8wnkkjwbhubi1XBeH5GywKf/hmtZVyD7595pivExESb
z6aelfh+QrgDXLL6XyOPin9/SI0An6j83L5DXln6OeMJuOK32oHFOljv+H8H
V77xPzecivUTxWUl1DeFt2XOXyDPm8PB+9wOdE2dQ/79FA984DvrG2c7xhPn
K9iNn/I1cyH+fSFfzhzWj53xrrk6ClIzT4ED5+eMjI/F52E/Al8yqClLukKV
3p/3Gdy3UXH10EVcP4QyDKh3d1sxK+tx/aTOATOeW/xJGMTx46aAOVceHp9+
HvOP4CPYstLo7rVleL5G+Qd++r7LJPMe1ld0QwLan+tW+Ege928sB/AECwft
yXK4vtOGwLlWOyVCM5x/TL1VMD6fM/jX9fH6bCZ4qYO2dZBtEfb3EfDpQ70V
deR5J+MPuP3uGvdiKq5f/jMsYH/ZdDIi9A+eb3Htwe0ntUJGVZHvp4LAD+mr
6gMiMd4oceALwp6HT+xwvefQLMXE8zvl/RsGtmN+sAXfu3Tosc2LkxjPgWD5
4K13xz3DfEqLAaeoTZzz88Q47O9S8Bfj1yodFZjvhdarxQSl3vBziQ/Wu9QA
sNXsdmvaHjzvYtwBv3NYIaDrYf3iXwRe9Sz8VaAZ+fetEvCt6t2DUT8wPul+
VrC/PWzULNqA54Gsm2Dx5QReLnl+wckHb/XcbKX/lczP7eB1238OfHiBzyuZ
Yi0m8iuPeuxwy8R4uAYuvXZJ2VZXGeOBD65qMDuf9ZM8vxeDFz0vYu12wvWd
OmmNmHCZUpsYfRPPOxjmYOP5GWc83PB8W/AKTKzMZ69TxvGm/AJH5MvI3Gbg
89JVbMTEimanwatXyPO35eA98292V24n56MHmK1tJzs+A9dn2g/wcGQIfY8y
ji9zoi3kI46st3kp+fd0S8CGF2vTRtaQ+W432PnGkO/u72S+iwa/iV9bPrKv
EuNj/Fox8Trn2vKKEcw/3EVg/pTBxPON5P6ZBa5LP7nx0ER8fkokeCLv4aID
W8j8/BS8tHlDROj0dxgfC+zExHHnxuByZ7yfZDs4zGH9Qjl1rO9pZ8G09Q11
wjf4vpKZAf5Iu7u2msDzcvY3sJZul1lXNfl+3tke2vdI5mbyQYxHxmlw0nX1
hhNXyXz3GKyWcpva7I37O+4X8NnbPkvPvMR8LBi1DuavjbzTiZ94fdZJsJ9S
TMqMXHw+zkMw19XXdFJWQe7/ADm1g6Y=
"]]}, {}},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
AxesOrigin->NCache[{3440102400, 0}, {3.4401024*^9, 0}],
Frame->True,
FrameLabel->{
FormBox["\"Date\"", TraditionalForm],
FormBox["\"\[CapitalDelta]P (% change)\"", TraditionalForm]},
FrameTicks->{{All, All}, {{{
NCache[3439756800, 3.4397568*^9],
FormBox["\"2009\"", TraditionalForm], {0.020601132958329826`, 0}}, {
NCache[3471292800, 3.4712928*^9],
FormBox["\"2010\"", TraditionalForm], {0.020601132958329826`, 0}}, {
NCache[3502828800, 3.5028288*^9],
FormBox["\"2011\"", TraditionalForm], {0.020601132958329826`, 0}}, {
NCache[3447532800, 3.4475328*^9],
FormBox["\"\"", TraditionalForm], {0.012360679774997897`, 0}}, {
NCache[3455395200, 3.4553952*^9],
FormBox["\"\"", TraditionalForm], {0.012360679774997897`, 0}}, {
NCache[3463344000, 3.463344*^9],
FormBox["\"\"", TraditionalForm], {0.012360679774997897`, 0}}, {
NCache[3479068800, 3.4790688*^9],
FormBox["\"\"", TraditionalForm], {0.012360679774997897`, 0}}, {
NCache[3486931200, 3.4869312*^9],
FormBox["\"\"", TraditionalForm], {0.012360679774997897`, 0}}, {
NCache[3494880000, 3.49488*^9],
FormBox["\"\"", TraditionalForm], {0.012360679774997897`, 0}}, {
NCache[3510604800, 3.5106048*^9],
FormBox["\"\"", TraditionalForm], {0.012360679774997897`, 0}}, {
NCache[3518467200, 3.5184672*^9],
FormBox["\"\"", TraditionalForm], {0.012360679774997897`, 0}}, {
NCache[3526416000, 3.526416*^9],
FormBox["\"\"", TraditionalForm], {0.012360679774997897`, 0}}}, {{
NCache[3439756800, 3.4397568*^9],
FormBox["\"\"", TraditionalForm], {0.020601132958329826`, 0}}, {
NCache[3471292800, 3.4712928*^9],
FormBox["\"\"", TraditionalForm], {0.020601132958329826`, 0}}, {
NCache[3502828800, 3.5028288*^9],
FormBox["\"\"", TraditionalForm], {0.020601132958329826`, 0}}, {
NCache[3447532800, 3.4475328*^9],
FormBox["\"\"", TraditionalForm], {0.012360679774997897`, 0}}, {
NCache[3455395200, 3.4553952*^9],
FormBox["\"\"", TraditionalForm], {0.012360679774997897`, 0}}, {
NCache[3463344000, 3.463344*^9],
FormBox["\"\"", TraditionalForm], {0.012360679774997897`, 0}}, {
NCache[3479068800, 3.4790688*^9],
FormBox["\"\"", TraditionalForm], {0.012360679774997897`, 0}}, {
NCache[3486931200, 3.4869312*^9],
FormBox["\"\"", TraditionalForm], {0.012360679774997897`, 0}}, {
NCache[3494880000, 3.49488*^9],
FormBox["\"\"", TraditionalForm], {0.012360679774997897`, 0}}, {
NCache[3510604800, 3.5106048*^9],
FormBox["\"\"", TraditionalForm], {0.012360679774997897`, 0}}, {
NCache[3518467200, 3.5184672*^9],
FormBox["\"\"", TraditionalForm], {0.012360679774997897`, 0}}, {
NCache[3526416000, 3.526416*^9],
FormBox["\"\"", TraditionalForm], {0.012360679774997897`, 0}}}}},
GridLines->NCache[{{{3439756800,
GrayLevel[0.8]}, {3471292800,
GrayLevel[0.8]}, {3502828800,
GrayLevel[0.8]}}, None}, {{{3.4397568*^9,
GrayLevel[0.8]}, {3.4712928*^9,
GrayLevel[0.8]}, {3.5028288*^9,
GrayLevel[0.8]}}, None}],
PlotRange->{{3.4401024*^9, 3.5309088*^9}, {-5.028064159725,
5.2579033776749995`}},
PlotRangeClipping->True,
PlotRangePadding->{
Scaled[0.02],
Scaled[0.02]},
Ticks->None]], "Output",
CellChangeTimes->{3.5504623831631308`*^9, 3.550463039529503*^9,
3.5504892045544777`*^9, 3.55054121303689*^9, 3.550541589862076*^9,
3.550546894862832*^9, 3.550547122671637*^9, 3.551583137500395*^9,
3.5517573347818127`*^9, 3.551997044355336*^9, 3.553265896358741*^9,
3.553265931454728*^9, 3.553266093182953*^9, 3.553911257459277*^9,
3.553912626949131*^9, 3.555469379364647*^9, 3.555598649356285*^9,
3.560033746544675*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"DVC1", "=",
RowBox[{"DateListPlot", "[",
RowBox[{
RowBox[{"GOOG", "[",
RowBox[{"[",
RowBox[{"All", ",",
RowBox[{"{",
RowBox[{"1", ",", "5"}], "}"}]}], "]"}], "]"}], ",",
RowBox[{"PlotStyle", "\[Rule]",
RowBox[{"{",
RowBox[{"RGBColor", "[",
RowBox[{"0", ",", "0", ",", ".7"}], "]"}], "}"}]}], ",",
RowBox[{"FrameTicks", "\[Rule]",
RowBox[{"{",
RowBox[{"Automatic", ",", "All"}], "}"}]}], ",", "\[IndentingNewLine]",
RowBox[{"FrameLabel", "\[Rule]",
RowBox[{"{",
RowBox[{"\"\<Date\>\"", ",", "\"\<\[CapitalDelta]V (% change)\>\""}],
"}"}]}], ",",
RowBox[{"FrameTicks", "\[Rule]",
RowBox[{"{",
RowBox[{"Automatic", ",", "All"}], "}"}]}]}], "]"}]}]], "Input",
CellChangeTimes->{{3.544834211414259*^9, 3.544834228312006*^9}, {
3.544834455629385*^9, 3.544834465979206*^9}, {3.544835382461349*^9,
3.5448354007762613`*^9}, {3.5448355559271183`*^9, 3.544835567309805*^9}, {
3.544835770105432*^9, 3.544835793019009*^9}, {3.5448358389300823`*^9,
3.544835839829754*^9}, {3.544838583683866*^9, 3.5448385841565332`*^9},
3.5501889978998957`*^9, 3.5501902434482927`*^9, 3.550191329993988*^9, {
3.550373468005575*^9, 3.550373468534162*^9}, {3.550459702297542*^9,
3.550459793750469*^9}, {3.550459924857471*^9, 3.550459936311347*^9}, {
3.550461081852418*^9, 3.550461082427053*^9}, 3.5504615662661943`*^9,
3.550462357681182*^9, {3.550547228513176*^9, 3.5505472286915607`*^9}, {
3.55326582314005*^9, 3.553265874718668*^9}, 3.553266079931596*^9, {
3.560032388922832*^9, 3.560032389564591*^9}}],
Cell[BoxData[
GraphicsBox[{{},
{RGBColor[0, 0, 0.7], PointBox[CompressedData["
1:eJxV2nk81F/3APCxhLJNdqImElkyWUK2+SBF0pBE65QlWidURDVpQ4W0fCvU
REVaDLJUyihFoaa0ITWKNCM1IqVFz5kzf/x+8/3jeV7v10zjfs4999xz78zk
1ZuCImVJJNIH+B/x/8N/rMRzAuI3Pa99+BRBA3MKwBmKP3JDojzE5reA51T0
bulXdeeCyT/BJcdafR3f24lNM84XEN/XMp1XptmL389jg4ceLXlf+9ZR/Dqp
CXya4hFeromfT/0Onhe3Psmz2VlsxqQCAZFTb3vJpVZf7Cxf8J6QupWuX83E
/57+DezlvifJ/vM4sVmG5wXEpJ1TrBXWyonN8QHPGd3et1NEx/EywUpdKvyV
L93EZn4FX2C7BVL3+ovfz9a/ICAWp5Mzlx6bgOP1Auc0FqVqK/mLTdoI5p8z
PmroqS1+P/UkuHD9QOenz4TYXJ2LAsJySlHVw46p4veLaOBflh8XHpCfJTZl
HXjP7JagX67qYtOPg71nDW43pxmIzaoFF/vt2cDLUcJ4uhcKiBUuyb5PXNww
ntHgfJvUuxb+s3H82eCvUWEVyStm4fhrwD931/zSjdHD8X8EU07d2V4/z1n8
elZmkYDway7w3LvDU/w69wbYJzXh6c0F+H7RBzDl9UJDXbsZ4vdT1C4JiEb9
jibXPCec/0PgK0rv9pWNpYpf51eKX6+mKR98TxW/Tu4CN6eaeEU66IhNUy4W
EE4K7jOGOqeJ3890ALeUamexinC+SNfBG8Y1bPCYifGmvgXXTb78uGrlNJx/
pcsC4r3tlE3ynXY4/7Zgo1H5dvoO/PvcZeCjO07FMItNMZ4d4H0Mj1uRKuMx
H8ZcERAFKoeNcl4pYD7YgLfsanX17MX84YeBe2lxt65FTsd47wUHka7eeU3M
xHjKXhUQH7/l56rn4PzxrMChFX/zlKs0cPyLwcNXCgNdvTA/qbvB00LTXq8f
xfgxLoN3hLaarNs9HeM77ZqAUP9VujGdY4LxDQbH5BgfTtAyxXzeCQ4Y1hzY
8cMC86EIrHkorJDj7IXxfwbmF9htqFjog/kQWCIgUj+5Fsv4TsD4JoF/ZlR9
umhiK34/+wK44kdr2JEN+Pd4T8DM4pAPXt9xvZF+gZ9VahU7yWM8sxI4AqKs
JuVTnhDni5sPNro15V7cUnMcfzO4ekr30aoPTjj+H2BKpQH1cNhMjP/kUgFB
+r//+GelTX4E9jVebX7zLX4ebQg8+OREScOgJJ8nlgkIs7VG/LMnl+D454KJ
n3ITFp3Uxvg2gD+/+CkMWzEf4zsALr9C//z9gGT8E8oFxJHaoBs+Q1o4/tng
ZQq6c5cmYP6LNoGbx7S+kL2K65/1BXyjzFB1viUN80PvuoAwLhiZ5LbTVfw6
3xO8qOpwyNJz+HzkDeAN3x8q3m/Gekb7DyynMXVdlxnOB0+7QkCcuuD93msY
6yOJBt7gqRDhqYV/n7oWHDmwseMtwwTz+xhYIXBlrtFbS8zvO2D/knvKCc/w
71PcKgWEzAon2xo+jo++Bjzj2H+mTyhzcfxHwPPOOEX96cT54NwC29CeKMz/
o4jj7wGXUd5N7Ns1BuMbUSUgRCtlyyqcsD6xM8AeXV8oO65h/vOqwaljb4bT
U7B+kz6A339RO31VF9cfVbVaQOzKTdFxivbEeFaAzyQqxmw0D8bx8sGc/P7i
h7UyON5xN+DzggWZlZbmYrPswdsv1i6gJvfWiuNZDqZdd2l5zMR6T+sEJ3wo
UjX5Y4/5rHhTQEyZW3bjWCDmK3sG+EjxMprcLnw+3lLw7OC+n94+3zzE8WwH
34+Wr7Zi22A+yN8SEE/39/fRvbXE7+dOB2/rG68n7zcW8zkUvLFoxDgw1Brz
eQ+4ee98RSuPv+LP48jUCIh16z1K/6lJ8sESPH/Z1YiJq23F7yeHgAvJ+7mG
PVY4fha49fBKPaEB1hdmMVi3S+nWDBKuX9K027B+vWcf4BWOxXxYCD6mGrt1
YynWd8YOsIOoyTJ8G85HViGYVzTmzKu7jjj+p+C/i9r+2QYb4nqj3xEQH06Z
yZDLMT9Y28HUr8vvvj+J88U5D55xnUGKeo/1hf8YLP9BwyKhdzLm88gdqfXJ
3lYrZd45cJreCb8TKj44/mbwtOtGVso+WN+pw+CHua7OnfM0cfwUroCoapAd
122Cf090BizIfrv5mRY+P+Uh+MIxvYPxTFfMj0Hx+7/VabokuWM+G9UJiAFB
VnTY0iAc/xyw7Kvl1oMLNTC+D8Ach7X9W0b9ML4icNZ1s5RLm3XFZhvchfUz
81nnujtYv3je4AA707wTHpJ6twncfiP03FPaeFxv/eC9xh+Ge39i/8LVvScg
7lpYWEbzhsXzLyLAB/XIu4qaHDA/1oMbMw+r+BwIwPifANulpkQp2Ejiq1UP
45lrfqK0xxjzwwN840801W3cJLFpMeATf9zjhGNIOP6j4KG7oayuCqzP7Nvg
eL9zH1q3YH2hut6HfIhQVN+a4oH5kAXuL30bN8sRn4d7E3w3yWHVtUzMX1E3
+GOf4E3gL8x/VvgDAeHi72hqa4r9C+cw+BDJupSmPgXHWwUWOLw14e4n43jf
g98qbXXqn70Q463SAPtJ8LeFmt34fLx0cHKno3M+CcdDqgCrDP8ncBbifkh9
Bw766aQY5I35yxjbKCDiHjtNfHDivTieWXZg/fehulVPp2I8y8CZhba39OQk
+/cb8PIvhwQus2mYDwoPBQRbrcZdPxznh0MFr+nwvBxyazKOfwn4phI/YW0T
mi33CPZjH2/z1jk4fp41+M3gxLzNS3E/JoWCT3rY7U0awv2YmgKW3XNkTvo3
rJ9cUhPsR0ORXfUJ2J+JLMCbNscl8ec6YP4uAo/4ln/dtH0SjncXuLfH+pN6
EOYr6xLYifdS378W+zGyebOA6PlPzkHuHvaHtCBwV5yW/ttnkv0uGfzsmdbo
23UYD/ZFsKLl2pn8XfoYbx44LPNh+ro2rDeMBS0Coi959MnXJTh/WYngjNOz
9um14P7BLQBn3zDdqdWK+4OoBazI8eYaVOP7KT/BTn0b9kw+NRHjufUx1Ev2
qvDhNIwPnw3+8Jf0s2Cji/jfk5vAzjO8G9ackeTDd3DCCsulB9dJ6tukJ5Cv
A3m2y6i4H5DOgKufH9qZFYzxojaCLxwcsdz2k4Lj/wZeI5h5s3aeEa4/Q56A
+MIRpedWLMLx+4DVvDjH17Ow3tDvg9Wtb7AXNi/AfP4KtiuN7OWfxP2Co/8U
+skdZ2NUl+F643uBL0fPbOqywfGQN4Kf+hvNW2cvJ34/+zPYdleKVgOB/SxP
5xnUxyfhTVUbKWKTCPBoyZPod9a4/1DXgR/Na9x3T+ufeL9iHAf/LghMvsn3
xPhqtgoIreHGa3fuYTwp7uD6YPn7I6dwv6dHg/Xby2W+p+F6Z2WD8+2ie0SP
8fM5NeDRN4HsxIRv4s+nuTyH/lJWWeNbNj4/MxJ87HqvUfhVXM/sTDBLpeog
046M478B7tvjN+heh/lB6gZvqTCdN9EU5ydr9QsBYRWkXtX5AvsR7iHwfUpm
xD861kdRJdihNsDq3Tzc7yld4AuZ7vdSRFiv6covBUTgXg9aYK8RxjcN3Hh3
wLJWSZIf18GTRBUxl5gYb9pb8MmfK4xiA3A+mEqvpPcXW2lTS8EVhuuP3MrB
+WB0gEvjLi6c6YP1LWvMawHRxNxjOd0L9wuuDTjhZXLd6yArHH8YOOjdSvPw
n5L19xq8UmO34vY4XG8c2TbI/77yDIop9sd8K7CO/vajMvWS88pi8EmDw71v
9HC90XaDn+VVH6Q8xv6A9w8c2TXzxQ4N7JdIFu0C4uzM7oZiC0k/FAxu+2Vb
xHDE/ZmxE3zr0aqr1Wp6GP8i8KPNh7z3v8d6RjHrgPF9zCnXnuGC+REI1spY
YcSvwXrBSgLfeRqrvtFnCub3BfHrVUfHedCx3+U/6ZCKHzPgjXR8E8C1Hw1c
ol9ivvDywV97k4MKirH/I7VIv5/6Q9rcLZ1SFp0Fq0Us2nr8iR+O/xH49Gv/
9guW+Dz0IXC2LflSbh7uh6yJb2G/eNWxbdJqSf3LAy9L6GSsWon/ntYA7lvv
n6DLwH6FOQA+4heQWDmEn8ee8A7qj91PuekrcP54s99JjYdRL+2sL9Lm6vEF
xKvE4HJaAdZzkSd4NmGp8WLbYhz/BvDJFGZvfAXWb04fWOHGA9+4A/j3+Npd
EK/LSvF2tB/Yn9LAzLwOtZ3DuL/Q1oLPkfbM9tyH6415DJw40vDI1xL7Q5Lm
ezivV8uFTG32Eb9OdQOfTSFKdOKxP2asAb8WPV+lXY/xyToCtjFsPay5H8+7
3Fvglpc2lfUlBpgfsz4IiKhpfzcVu+P+zooAZypr/zNo0MTxZ4DbXNoLb5/B
+wh+NZi/T135dyP2E+QPH6TzY1W3dH93UNqkSrCfHDPQ0Ekyfr7YzNpm5Qjc
LxnjeiAeDX1reInGYotSwYcd0tMPjsfzF6UcTN5d+n5UHtcvvRO8fyV7yaAa
1heW4kfYf/YlZG0xxP2PMwMcc2cBbdNYL4wvB5w+/N3iAxM/n9kOzj+YVmZ2
GeePLd8rIPYs6i04po39Mm86OGnXidGmICWMfxj4ouqjjwm9eF7LegWm+j0f
NEzBz+fKfIJ+f9KK+9+zMd9EluD/JmtEDu/D/Y0SAr6w5dxZlWmS+s0COx/W
bfy5RZIfo2DZGPvhy66B4veTpwkExO5c/w175+B80haCKxmf7ldUYX/P3AFe
stzOOI+YIza7EGx6N/xkgVOk+N9TpwoFhPuvo7aBcRg/Bh1c4ZG4VO2KJ45/
O1hX9vFe97VYb7jnwbkbzLaFa3pjfj8Gu73/yyhfi/0Ya34frMfBVNUyOs4X
ZxuYdP+z+rdRyfjPgc+tSct8447rkdzcJzX/tGFp8+I/S+fHWXBGq11AbQ7u
l9SH4KSgz7SDfpL7ukGwehChmb0K11+WUT/0u6X1g9R0PL9TcsEMrkrs2HY8
L9EfgP2Nvq89mYH3cywRuIZ+IXP2KO5PHIMvAmL6l0dTKi+Fil/ne4Mb1pBC
r9FwPTHvga+Umeb3jAvE+PaDJ4aHPqXsx/tFnu5X+PxHF1d7cCTnWU9wQMZ0
2/d5GF/qenCaeXfQRmvcv7hC8MbadpPzgUsxP7REUK+YFoFxNnh+pXiATYS/
6P2FUzE/YsBTT1sETsjA/op1FByvkJLr64z7O1ljAPK9q51x9B6Oh+YKnqr9
cUPv4vU4/iiwe5djmu0ZjBc7C7z5xBMBzw3zn3cTvDFnkffRP3geZTh/g/NP
wj4jmWGsP1nh4Earq8ert+HzcQ+Dd65dUp1bZ4PjrwJv1jHffc/eEsf/Hmxg
pfFKW4D7FYcxCPXxZmASSQ/rMT8dHNJhPy5jwaD475ErwGfDrigk12M/R3sH
dqpJX3AsTNK/jh2C/iB9dXG5D84PKRWcFP4wJz1znvjzqGXgB1TtxzPTsH9n
vAH7HH7M+HQc8zNL4Tv0X6Rds1aGSsZP/S6Vb/QSabPapM2RG4b++NqBl5Ei
PH/wrcGOgsc1Y9/i+MihYCrp6VfjJuw32S/BHYHPbNzcsZ/hkX5Av5VmlHDT
CtcvyRK8/q6tRVjMH/HzUxeBPZpUZbuSsb4ydoGnyXWG3v6HzyP6C576T3Hl
tXuYzxTzn3B+DZrO2WiH+UMPAsv3/Ih/MwHXPysZbFxNtI2LxvngXATbOHhF
vL6P/R7NdAT6DYtx2ZwaNYzvAvCKM+qqGrexHrETwYEXSSNHp+B+xCsAcw7+
e8tvwP2C9Bhs5RVr/zsT7/+y/H8JCO+Yb3L7duH5lbsV7Oox5Gp7BedLxAbn
tYau/GCP9ymUJrBb65GGbBHen9O//5K+z4v7LX2fd0batEawvWLc7s+zsf4y
v4G3bf2TcWIb7l9swz9Qf+yOtc6YtED8OjUH7Fu1/UT8OFwfjPvg0lSvTz88
JPe9X8GaVwOKF2ZLxq//F/I7RufJi4/zcPxe4JqReIPkfZL+4y44svjhsuZ+
rI+cz+DGxY4RlCLJ+VxnFM67CilOs+Qx38gE+GuJzI6w+ZLz2TqwY9TnfVr6
eL/BE4DLFcOWJb/Bfpqk9U9AHJePOBTdgs9HdQezz1693rWVJDYjGvw4Nb5Z
+SLeZ2dlgx12Fp5zeS3pr8eThASnPNGX9wLrG90FfNXOPG57ujLmRyT4yfGE
omVdmD+cTLDx6+Wz+yTnK/4N8D5bUui+WE+Mr5OMkFDwWlh5pWU2xnc1uHzA
NFY9B8/TvEPgOWdePnj0F++LSFXgxs9+SWdMv4j7G2oX+HzqpPI2Jaxv3JWy
QmLGbUOHxiCsB6I0cNvT9eeWhGJ+Uq6DA1LW+jsq4/qivwW3Hrxw14U8B+Ov
JCck6h4X763Ku4L90wGwi2dpS+ITSf0rBR8vCDa6YobnJWYHeMaGOtLHNuyX
2WPkhYSG7sFOGS/cz3g24C29+xNuP8P7WsY1sLlvT5DPHFxPWa/BO9YandlT
i/cbXNkxQmJxg0ynzlHcT0RW4P983J47juD7KYvB/y9fOS+kzf8nbbKFgpBY
+at/6frV3uLPowWD7V2yVRtjB8T1gbkTnFCtsJPdLzl//QXvLjxu/TgJz+NU
M0Uh0Xz8/Ltkq0E8PwaCjwU6ReQV4f6ZlQTeqnxE1f8Lnr+5F8Cc1Y2GT/3X
YHynKAmJy/p/ykb4mP+sAHDacfdInRSsz5wEcLzi84MJJ3H++flg9Vh3A1oY
1gdyCzj3kOvyigycP/a8sUKCl/gkcSgK48/bAs4tvtj9JGcG5gcbrFoYfj/P
E9cP9RE45GXylmI23icwhsC/e5+EKUfg/IhixwkJtdzoTpNLmM+UPLBrep9i
mg3uz/QG8Go1pfH3jSTjHwDPPrQpS+eEhdicCcpCopvVo//fclzvtNPgmmHS
t2mOeF/ArAdfGZpo2BiB+cb+Ao536f2Ym4rx5umpCAkHDaO2OTbLcfxe4L/B
SqL7nSswvnXg1DV92UVj8L6Q2we2zG7TeVSB612krQr5sq3dt8ca85NCAyt7
29LpE3A+6GvBxgNJJZd5+H0Q/xP42qXPXwb/4PmYrKkmJPQXnMuUXY/7Pc0N
rLXhUCzzGNYb5hrwUXufwBY21lP2EfDv/o5cGUu8f6SS1SF/nS0q7nKwX2bM
Aivp+Rz8eBbHlxUBbvpVuslhLvab3AzwrqZ+q74wrE+iavDt9hl/3L19Mb6O
ZCHxr7JYQ0VGcv+7Ctw6XvtojBd+v8g/CN6gO7MnztIMx18J5ruQXl5SwPMC
jQ8+qd1SEaLiK36dt2K8kKAnz5zVISOP8U0DdzWFzRddx/teajn48OwR9vrp
uH8yOsGG5e7sbXT8PjFLUUNIfCud4hueOhXjux9s7/3wcdwR/Pd0DnjhETOP
znOfxeuD1a4hvR6na0qZeRWsY7KDMisN55v9Clwb+j6hIGc1jldGS0iMdzbQ
9D6N651kBd6abUm7qo71jBoCLjljtuNWN57vuc/BHFZVdcVanD/RKHif+4JE
pxuSejdNW0hQ7JZ4llvh+qIvBA/eOmmoshW/72PtAM9nTX9QmCpZb3/AMo/L
Ks22S+rFVB2oX7/8Bsefw/XCpIPrsg3T/onwPoa9Hby34rJreRjGj3cefKl1
YlPfcjzvMEx0hUSpXdIyPTWs/1nzwVotTvZml7Df4W4Dl8WYGE/vleTzOV3p
+uanJx3PeHDjU8OwxBrcz8hnwZRDyVbhfLz/pT0EDw+90i9qUcTxDoK1H6or
JXTjfkuK1Yf6sIzn61iH5wdqLnjyxNKiY+24PhgPwArt3SnRS3F9ZInA17UC
s5Orcb1yDQwg/4z7B3S5uF/ST4Hb/1bNLq7D/pd1D1z0PPa1RTXGk9MPfnF9
++XMHPw+lK87QUhE/p0Y7esv+f7Fc4LU8/GE0iZpGwqJRCejjbP6dXD+PcCy
Lt8VtRnYLzBiwM9qlxrcM8d+RNQLfnXueFvQlLni91M0jCDfvJ3z9B5hftBd
wfOivM7MkfPB8UaB95bsIifuGBDnLycLvORuCD9kLe7fNPWJQiIsaFbLFZ7k
vsMZbHZ049X4ObJis8PBHxIf5RmLJPcdh8Eh75yKm3uxXyJVg4kVbvFuUaoY
z5mThER++OKqIA28v+IywHM3WvRzN+L3H6J0sMzIlayWIPx+h1IBFkz+wC68
id9f09+BOZsffjmqgPdZ/OUUqK8t33Y3N2G9I6eCa7zqGr9t+Yv3kWXgr1un
R6auxv6F+QYseOrXGZuP/QJbYbJUvBkl0s5qA7NcHrS9PoXx48oZC4mevZlr
NtXifi+yBt+tfjX1y3m832NdAbvviLq5hoT9K+clWPu39ZBHLa5HPslESGR/
5sXe2I3nebIlOEFtwcU4thrm7yLwWs7LeJ475iuvFewXt6Srp8ca83cU/OLf
c/bTIUk9MJ8iJA5t7p7hKsT4MYLAY7Wv5bqW4t/LSgb7hNb5HRyD53nKb7CZ
85dq5VhDzAdTUyGx/0rpzODpuD+xFoCDazrvy7Lw+2dOIthx/hHdouu4v/AL
wGb6k/34kvt6pvFUIRGrQtYdGcX9ju0PdnQ6XK/TgOudtxXcRzra4D8Bn490
DjzR11quXAnPd9Qm8Gs7+5+GUz0xH3zNoD7dNJj2NQrXoygO3HjRwd3hEt43
Us6AI0IdN+++OxXH3wgOs/myyHGNZPzfwLR5R7+QLuB9FnmzOexP+27FXFqB
+zctBxzvtadE5BeN478PNvlXc6BZhOc99lfwo+DxIfdj8fl5+tOgv8wXFZzu
wPXNOAmeFmy06MZxzP+su+DyoTuuZxPw9wDcz+CXjUdHbl3qEeefSMcC6jfV
cdKU9RGYzwT4/P6gReM44ZgfteBxPx2yryvSMb4CMGPvsmnrl2P9J2tZwvx+
vx/o9hLjTXO3lK4PvdKmjreC511JWyRnhvsLwwW8t2Ede67k/icrEvwjve6/
zMsYP24muDKqvbftPf5ega5mLSRuLj393qMe6wfLCZyhN7Wt/Lzk90irwa8S
ZpmOt/0t7t/4h8AhD7KXPyjE+kSuAo/vvXFMhYPnMbbDdNgvajcPl5nj+ZO3
Eqx6yat51Ty8/yOlg3MDGv1nTsX8pl4Hd9gcnxU5DtcH4y14z6UA7YR6zGfR
MhvYf8t3RB4xwf2JcgDsdCJ0iXwW9gP0UrA3l2LTvRH7P1YHeMUi7TZ6LNYP
zhgqzHfhFMf0C7h+aXvBV+R0jJraFMRmXgPvy15g1TwN77PYr8Hn/9mHXtKS
9POyM4SEmxmzpjQK6y3JeoZU/LkvpC36Bx4OiL6tPg7vwykWtlAPjW/J74qX
3M8Fgzf1HK/TKMH6wn8GZp8/5NBvivWN/BecOHDDcSj5D9YzMzshkeMacKr3
CPafzEBwW+T85omfcT9iJ4GXXF1VreGO8aL+Ajum1Ccvj+zC/n2KvZC4wNhL
V/NSwXwIABcvmZ54v1eSDwngGOOiDQE7JfeL+WAbWVX7prwQsVmTHYREpmA2
jWyB/QRnHvjoo8WLOlZLvs/cAo5uilzx6TX202Q2OKSyovt2B57XaY/AGxSV
Hb7ewuflzZ0J60mj3GGtPPZvpDjwMdeKpCFDXK/UPDClcfjTjEy8b2A0gPt+
PjE/4yzZTwZmSsWbftpRyqx68I6KwSWTv+J9K+cLeDupZsnLf5J6rOcE+6Nq
uKG1Pd4PMf8D39JLiAp0wfxh14H9Mn0SRjiXxfnO6wNzp9+M1zyO80HScRYS
i5RUOuLnrsJ408AmTrGk+vO4nrh3wB/aKT8LO3F9iz6BZbnd6trNWL8pmrOE
hOjizse3urG+0N3AvAUc1tIXWP9Za8ATLtyb25uE9znkj2DTuHcutHycLxrZ
RbwfHdpwwxrziTkLbH/X6UDeLzw/siPAx53HPY6W/B6FlwFeXXS42PMQzi9D
1RXGdyprbHoM9k9ZjuC/sqeWqQVL7rNWgVfKPUp8loL9uOggOOJZycM+luT3
PZXgTmGBzu1z+H0/x95NSAzkWv3OWIfrjb8CrG6SIXstCuePnAZ2UnxtEDyI
64tWDj5NMcvXM8f7R2YneOzaVOWTYVivSMvc4bz4+vzo5NyVGN/9YAMlHYHx
RwXMBw74emRZ7uQ8nK+sdnA/7yR7xAjjx5X3EBI741paGn/g36fvAfuZ+cgt
PI/f77GugrvrAy4YNmM8Oa/AF9aoaUS7Sb5PlqEJiZHkUY3km7i/ka3AqyZo
mhyyNcb4FoM16+4M7GFJ+p/nYLXZcU5pH/D7RdI/sMpbp+8P2zC/qdMIyA/R
JrO9bHxexkJCKl8pf6RNn+opJKLcCqxrNEfE88+ig1ttus8Pr5Dcv20Hcx2K
cn5d8BT/PdoIuFL2ulvOAsn3OyZeUC9KKlUqOdgvs+eDp3Ouu8Z8xfs+3jbw
ZebOwYUv8PdcpHxwb9P8PXdDJPdXFG+Il1KCUruO5PclfuCykgO/1Pokv6eL
Bw8stjZw/4zxpJwF58fsane/gd9n0h+C3/L2B+hukNz/zJkN/Wq4nlr9U9xf
ybHgjMu/Iveckvz+KBdcElebUtGK64H5AOzqNZx9MQ7zjS0CLz5Lr2s1wO87
qZt8IB+37yt5oIz5zjgFXqKi33/PBPubrHvg7qQVLTJknC9uP9j/3btCUpLk
+zXdOUJiVLXbyOs05iPrBJjt7JrTUozx43DBnmNmRZxqx/syvhAcWWH6puqG
pD5rz4Xz7ebQ6bm3Jb8v8ABnvxGYz5CVnD9vg9M23TJvSMHzO+kTOKR6jkdz
Gj4/VcNXSGxMNaK19UjOH65gLxc3q64Uyf1yFPiNQ4Tigeo34vmn9IAHyg4M
/hf9VWy6uh/0pzLBk6514fpnOYPNnXy/2rnieYMTDs6ckPbYIUvye+fDYP9p
+X/XP5f08yrzYP018+RP5f8Tfx57Jtj42OJutg0+L48B3n+8agGhiu8nHQQn
DXxWPvYUvy+hVoDVVDWV5J7ieZlr5y8k7jGunInfiv2vaDm4tz7xW9QZye9F
U8HaPSduZrMkv7csA48upX3MKMfnZ70Bu73exnVZKLmfWDofzitvTmbHP5P8
HnsfuO6B4RtZHZwvZgk4ryDieUO+5H6iDVz/qJj0UYj1jScXAPXgM9l96Iik
P04Bj4pCxtXqS35/cgV8W+nVHnqhLfd/v7a38Q==
"]]}, {}},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
AxesOrigin->NCache[{3440102400, 0}, {3.4401024*^9, 0}],
Frame->True,
FrameLabel->{
FormBox["\"Date\"", TraditionalForm],
FormBox["\"\[CapitalDelta]V (% change)\"", TraditionalForm]},
FrameTicks->{{All, All}, {{{
NCache[3439756800, 3.4397568*^9],
FormBox["\"2009\"", TraditionalForm], {0.020601132958329826`, 0}}, {
NCache[3471292800, 3.4712928*^9],
FormBox["\"2010\"", TraditionalForm], {0.020601132958329826`, 0}}, {
NCache[3502828800, 3.5028288*^9],
FormBox["\"2011\"", TraditionalForm], {0.020601132958329826`, 0}}, {
NCache[3447532800, 3.4475328*^9],
FormBox["\"\"", TraditionalForm], {0.012360679774997897`, 0}}, {
NCache[3455395200, 3.4553952*^9],
FormBox["\"\"", TraditionalForm], {0.012360679774997897`, 0}}, {
NCache[3463344000, 3.463344*^9],
FormBox["\"\"", TraditionalForm], {0.012360679774997897`, 0}}, {
NCache[3479068800, 3.4790688*^9],
FormBox["\"\"", TraditionalForm], {0.012360679774997897`, 0}}, {
NCache[3486931200, 3.4869312*^9],
FormBox["\"\"", TraditionalForm], {0.012360679774997897`, 0}}, {
NCache[3494880000, 3.49488*^9],
FormBox["\"\"", TraditionalForm], {0.012360679774997897`, 0}}, {
NCache[3510604800, 3.5106048*^9],
FormBox["\"\"", TraditionalForm], {0.012360679774997897`, 0}}, {
NCache[3518467200, 3.5184672*^9],
FormBox["\"\"", TraditionalForm], {0.012360679774997897`, 0}}, {
NCache[3526416000, 3.526416*^9],
FormBox["\"\"", TraditionalForm], {0.012360679774997897`, 0}}}, {{
NCache[3439756800, 3.4397568*^9],
FormBox["\"\"", TraditionalForm], {0.020601132958329826`, 0}}, {
NCache[3471292800, 3.4712928*^9],
FormBox["\"\"", TraditionalForm], {0.020601132958329826`, 0}}, {
NCache[3502828800, 3.5028288*^9],
FormBox["\"\"", TraditionalForm], {0.020601132958329826`, 0}}, {
NCache[3447532800, 3.4475328*^9],
FormBox["\"\"", TraditionalForm], {0.012360679774997897`, 0}}, {
NCache[3455395200, 3.4553952*^9],
FormBox["\"\"", TraditionalForm], {0.012360679774997897`, 0}}, {
NCache[3463344000, 3.463344*^9],
FormBox["\"\"", TraditionalForm], {0.012360679774997897`, 0}}, {
NCache[3479068800, 3.4790688*^9],
FormBox["\"\"", TraditionalForm], {0.012360679774997897`, 0}}, {
NCache[3486931200, 3.4869312*^9],
FormBox["\"\"", TraditionalForm], {0.012360679774997897`, 0}}, {
NCache[3494880000, 3.49488*^9],
FormBox["\"\"", TraditionalForm], {0.012360679774997897`, 0}}, {
NCache[3510604800, 3.5106048*^9],
FormBox["\"\"", TraditionalForm], {0.012360679774997897`, 0}}, {
NCache[3518467200, 3.5184672*^9],
FormBox["\"\"", TraditionalForm], {0.012360679774997897`, 0}}, {
NCache[3526416000, 3.526416*^9],
FormBox["\"\"", TraditionalForm], {0.012360679774997897`, 0}}}}},
GridLines->NCache[{{{3439756800,
GrayLevel[0.8]}, {3471292800,
GrayLevel[0.8]}, {3502828800,
GrayLevel[0.8]}}, None}, {{{3.4397568*^9,
GrayLevel[0.8]}, {3.4712928*^9,
GrayLevel[0.8]}, {3.5028288*^9,
GrayLevel[0.8]}}, None}],
PlotRange->{{3.4401024*^9, 3.5309088*^9}, {-68.1702657097, 116.498448657}},
PlotRangeClipping->True,
PlotRangePadding->{
Scaled[0.02],
Scaled[0.02]},
Ticks->None]], "Output",
CellChangeTimes->{
3.55046238395437*^9, 3.5504630402742243`*^9, 3.550489205257399*^9,
3.550541213701503*^9, 3.550541590330082*^9, 3.5505468953363047`*^9,
3.550547123393291*^9, 3.55158313820341*^9, 3.551757335518874*^9,
3.55199704777241*^9, {3.553265842956272*^9, 3.553265851877124*^9},
3.553265900632966*^9, 3.553265934009015*^9, 3.5532660948465548`*^9,
3.553911258166484*^9, 3.5539126274135647`*^9, 3.5554693799175243`*^9,
3.5555986499370213`*^9, 3.560033747109414*^9}]
}, Open ]],
Cell[BoxData[{
RowBox[{
RowBox[{"Export", "[",
RowBox[{
RowBox[{
RowBox[{"NotebookDirectory", "[", "]"}], "<>",
"\"\<Figures/GOOG_RSD1.pdf\>\""}], ",", "RSD1"}], "]"}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"Export", "[",
RowBox[{
RowBox[{
RowBox[{"NotebookDirectory", "[", "]"}], "<>",
"\"\<Figures/GOOG_DPC1.pdf\>\""}], ",", "DPC1"}], "]"}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"Export", "[",
RowBox[{
RowBox[{
RowBox[{"NotebookDirectory", "[", "]"}], "<>",
"\"\<Figures/GOOG_DVC1.pdf\>\""}], ",", "DVC1"}], "]"}], ";"}]}], "Input",\
CellChangeTimes->{{3.544837700436571*^9, 3.544837731598082*^9}, {
3.544837772830203*^9, 3.544837777564246*^9}, {3.54483781194526*^9,