-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathINTC.nb
4753 lines (4654 loc) · 229 KB
/
INTC.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[ 234001, 4744]
NotebookOptionsPosition[ 230257, 4614]
NotebookOutlinePosition[ 230669, 4632]
CellTagsIndexPosition[ 230626, 4629]
WindowFrame->Normal*)
(* Beginning of Notebook Content *)
Notebook[{
Cell[CellGroupData[{
Cell[TextData[StyleBox["Intel", "Title"]], "Subtitle",
CellChangeTimes->{{3.5443248411470623`*^9, 3.544324846160499*^9}, {
3.5501902025937977`*^9, 3.550190204606488*^9}, {3.550191305060985*^9,
3.550191306174177*^9}}],
Cell[BoxData[
RowBox[{
RowBox[{"INTC", " ", "=", " ",
RowBox[{"Import", "[",
RowBox[{
RowBox[{"NotebookDirectory", "[", "]"}], "<>",
"\"\<bytick/scores/basic/INTC.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}}]
}, 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[{"INTC", "[",
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}],
Cell[BoxData[
GraphicsBox[{{},
{RGBColor[0.7, 0, 0], PointBox[CompressedData["
1:eJxV2nk4lG3UAPCxFC0yihZZJkURmVKJknlSaZMJ0WIZRYoWLfKm0kQLqYyl
RaShhZKayBYySBQyJWlBk7WZxFhCIt+Z83zX9X31x/tev2vMzHnu+9znPvfz
zIwdB+w8ZSkUShP8R/p/+Mc+liAiKP/3j3cbnNTmv9BNW44BFlaCja12nZ+Y
MJYPpg6AxyrO12bP6bIEM3QSRQS1uWLS5eKuArCACzZ/WqJZtxtNKQf7BulQ
FjAapab/Aq9j1mbHyfZJzdK+LSLcAu+eWmHdL/08zlrwqCslMlEe8tLvZ3aD
B54runfryUm/n61xR0RY5kwcnBz5Sfp+3mpwXWhPXPVGivR1oS9Y5fqxeF0j
Ben7fTvBLec3b7ebPCD9fO60uyJiSWfN8Ll2vD6BFVh/b0/FSk0JxrsffLp2
5pgFNcMY73UwfZ5tgtmcP1LzJ98TEWk/TgaafZgmfb+EAe5IsWz6+hrfT/MB
T29r35b3moz/Crj9zLop9Yxf0u9nF4ATzj30XHu0RWrq8iQRUcOqC5m6H19n
7AaPrA++3uXUIf0830gwfUJ05s2wZqm5eeC0AyOdit8bcLxbwYmdR07E6Zfi
+IUniwjTWi8Lx1CMh58DXnIyd17aOZwvSRP4pcD0s5aZsnS8aBPui4j3r/J8
u5RkpPHyLoKzPNfY3YwgxzMTfOzjz6D+kxTp69Rv4D7T/AXxnHFSM8Y9EBFb
XQP3LeT3YLyLwMGxWYGj7P5Kv4/yFKxX+VbPk/9DanoD2DY9/NSLlGqpWYop
ImK8ho1iZusgxr8AfMfoUOsSjUap+c5g1+CIsneH3kvN/AK22F4zYJ8iK/1+
9qiHImJ1SCj97nFVjN8YLLk1c4LT5Urp3wu3gqtZoRmzM77heJ8BM4yP3Mhc
9BXzQTZVRIxLvnMoKVNBer0CQ/C+xiarmlS8XooT+GSFkpPdJwnGfxpcpLrk
5tEX+HmsFHDOYrfrJY6D0uuX6D8SEdlfbEqaHrdjPjiAV9V59xRUYT4xA8G/
TB+E7tH8LTU7Gfx9vO9LfTUljP8dODNp6UervzjfjE2P4frr/ZtPOvbi+B4H
H3aof6q/twPjvwsuUghZzlbC+RJUgWvD58/JTcPxpAyC74w1efzuEs4/5z+e
iJDr2XjWads9zI9E8CKd7fmlP6sw/gpw0+D+XNfdQxh/P/jihxOW7zVx/TBn
PPmnXghvgccNXp+SvRznh/oanHRoTKnyZpx/Ri/4UuEKmbILE6Tx+WqliQib
r8Ntl2bg+HHXgAe6Lu6pcv6L660UvGhOsI+56TusD13gjmmbfwoSv2P809NF
xO/RVoPDxxSl48VfBV4yxUv92HWMV3IA/OCtZ3u0108c3w5wdtyR6tMPBrBe
TH0qItY/+/YgIgDrj3AFWCn6TXV6Up7U1H1gO6WXH5Jm4OczroH3Jo3foxL6
AdebWgasD6sm/tsZozE/GODjw+69e46Pll4f3Rvsd4O2eMX6fow/Guy24dLQ
yACuZ85z8JFiWYWDcqq4/iwyRcSH1zKFd55hPjO9wL6O62OmmGE+sSPAktcX
Gct34nzycsG8VpmDigtwvQpbwCnPPWcmjuD3+XpkiYijjXPk3lxvwXpxGZzi
bmhb3totfb8gG3zTqm+ja9BLzI8mMN0oXNLnifWCrpQtIjQlE+fs5+H7JRng
t4lJ6rVGuF5oQnBvnDjFgIfzyxybA/PTIMicGPcF69tCcFvRjOwvrG4cz3Rw
f07n/auNeH2MenB54FnVUQLMV1+FZyLi6cR5VS07RBjvfHBOt+BXWS/mk2A7
WGfsbYUJdHI8P4PPHcyyzikLx/GUz4X1wTF0iSLGYD7MA4fJuq7vjRRivdsC
vr504c2jIWR9Dga7HF25QH0u7kc8mTwRcdbZzPm23zOsF3PBzSc6nAwq8Hqp
juDgL7kuMsnDmM9sMHPXvO0qjbIY/wPwhLiTAh01XF8U/XwRIXM4oiYg6B3W
C3tw6yJl1WfbsH6wToLVHuuXlDdhfeEkgbvePN8WXvYd1+NbcJHfgEpV7Vsc
X+ZzEWHCfPRwW7UQ8yEAXFo+MOeyAr6fdwfsxbJpoq3B8RW+AQfFcUYCJG0Y
/+/n/6xXrn8BzNeu7/v38rH+CBLAeVVZdodDcf+gVIBjzj5tP5mJ80PvA9/0
TO5meNZh/DS+iHi+JnZGqj3WZ0k8eOOIu4fhOFzPtFfgUu0/uob3/mD8PeB3
s7dQlmZSpfGxNQtFhOPXh2tP6fRhPluDvSmWF67M68HxfQm2j01R8vNqwnyW
gMM0xsSuO4Pjw1UvEhGNWfFlxy7gehCsBA/lzlcwqqrB/fsAeHjkbXmuPtZf
zk/wu/a5t17e/IT7yZRiETHo6D3P6upHzG8C7DKY8NN5IV4fbS9YRVNntX0Y
1lvmVfDifaE/VSwwHqHqCxHxrGjm3fNzsD5TLcHzDM/8Nv+ErzP2gKMWh4QW
Oo9g/FFg0zvxUQ+4mG/cfPAg5a7xCQ/MH/qyEhGRobP7zK0BHC8OB1yZ/SVc
6QK5fz8DT17f/M3Bvh3HuxncXat30roJv5+986WIyHXb807tNuYb7xK49HKs
zIYIMeZzFjj6MVPHdibmD7URTKsJDZzYiPs1Y3wpjN8a69kfI1sxHy6AFU+f
0qqc2YbjmQGO8sgTVnVjf0b/Ck6WjGsy78TxZ40pg/1yukb1kE8pjrcJ2HXD
vuFHYSrS+aalgcsdi1Uaabj/M+vAym6sQLMfnRj/6Fciospp8uk/1lgfeXTw
WM179ulWaOE2sGBnf9K9hTm4X8i9FhHbHm85c2VFBc6/EXi+XGB8jICP+bsF
rPjSJcN4GvZr9CCwkYP+qSVR5HhSymF9900ODH+G3y8xAJ9Ksb5Wboj5QdsM
7mh+8CXTB+eTeQq8pvrnp28rsZ6x74MvW0xw1H6Gf0+dUwH1zl4tvtUT6xXD
Drx818EfAQ44374npPYv5JfqYD/IvQcuYAbJsxVx/AUCsPwTT52d1V+wvtlW
ioi/YT46z+WaMR+OgSNWOp7wyBVj/LfBPP/pWplxuB9KKsHhcX0lzZt/YX0b
ACe9drHN1m7CfDj6Br7PeNGCX8+/4nhywZOfeasqHcf1Ry0HnzzqXz5nH/aj
jF9g5WSNW31P46T21a6C73955a7DbHydEg9uabd7qpfzE/OhDCxa4kRENGE9
YHWD57mNPhWTUIbxawhEhEaF/rSoKrxe/mrw6Tq7qxdW4fwwS8AhnEdTZsbg
fsTuBE/5KHB2/IPjz5v2FuZvmmb48A7cj4RW4BU2V9gKRyMwn/dL3furIPgA
/j23HbzgG2ut3otezI/J72C/j7S4en8Gvk4hwGeSlkYqquN5gu4DJu4qvRso
w/xgXQEbXdfqUxnA/U0yqRr6gT/yHttkyfFdDk4RG1xOVJCXvp+5G5zPtdu6
6CEZfyT49KP5LuLyeow/Dxzdt2gdY9JtHN+l70XE7nU6Nv7xOH++nuDSxcfp
hZ+DMb/DwVc8JzG2/iHjzwFfVAoeI/MF9ydKM/iqR++2fdsP4XrbUSMifhQ3
r7JNwXrPvwhuuJMhM+N4McafCc7R82ikTCH70W/gvK+8sQ27xmD84z6ICHe/
calm6i9xfEPBT58aZAfNwvipT8FVPhtznivmY/wNYPkK66/jHnzD/Fas/Xd/
WQDewRZeM3Il978n4HvKi15n/8T1yfoi/Xsb60CNXOxHOKM+Qj98akhgr4b7
Ld8Y/PzztmoP798Y/1bwxLHtkx+MjML94yO4bdhSrr6lDsdX9hPsrx3OwuW3
fmD8hmCL5ex+JXc8H1KdwGuz3MLTLyZg/KfB+240qFR3Yz8uGAFLzse0mD98
juNr8FlEWJ3XlfMrxvVIdwCbOtO3TpiJ+yErENx5kVZ5uvM9jn8yWOG7WYhx
M8ZHm/1FRLz+aO+YtZbslzeBDbQHtNQisZ6yj4NjT5R4/1lG1uu74C3rVujJ
LMb1Lqz68s94+m6sExE+2+8civyC18P9D9wxSiveaBX2N4JE8MLYG6eH6nB/
oFSC1/coGZtPwPpI76/75/P4fvVwHn1uWu19GOux5BY4umrTfk48D+vfa7D8
vib3uP+w32X2gndEvrco9cL9kK3VICLmKl8uTJ2N/Qz1Jpjjnlzlcb4Ix7cU
bPh5seL9I+R5pQu8ScI7fVAT93fu9K/Qj+8OprXcxP5VsAocnDXtmNprGRzf
F1//iZfTAX5v0qiZZZ+H+TFVCOth5x3t6LO4PiQrwGPEoV6nOvB6aPvAY2Ms
utpHcH/l/QCLqYSf1Xzs34Rq3+D8MUfh3pxyPA9QGeCnfxK/lRIijN8bfKRh
/+e4j5hfvtHgqSYJNxQf4/xTJjXC+dwx4dihI1mYHxbgncyXQ7Z92P+yvMDd
14J9KOVk/xEB1vXelb8/HeefnwuOrW4Pv6stK71+pnmTiJj5QfmXS8dnrB8e
4EvMAlOxF+Yr7zL4/LtL2xb/wP1GmA12XdJpPrwL93dqE/jomvWLBjfi53Hd
m/8ZP0EY2L3nfZ9yqgDrXyb4t+uLwnP1WE/pQrCw1nZj3tVHGP/YFliv6zZF
Lm3H/VwSAn6j9qfv9Fi8Plo6ON/J6WekBdZDZj04u35qpsw0zF+2Qivsr0vk
7F+sxHrImw9Wc26pSH6H/QeDB55ofPX+tmTMV9/PYL2NbpGu+bi/ceXbYP7K
Pz2+M4z9nmAe2HHhDMGE8Z8x/q3gnVOtRupGYT/AqQUXfUruSlXE8eLLfId+
/HHfm23XWzE/5oL3Vjerv0rCekNzBNPKm4xSUgoxfjZYYbIksys+FuvHX/C5
KWtak23I/k5fJCIm3Z/ckH9ovHR8Gfbg6l3jFdhzcH/1PQn2Wn5I0L+J3H+S
wIGzkvLemKPpemIR8ZX+Xv7RBqzPLCY4jmZVe9ChE+MPAJ9Ny9vk4In9Av8O
WPhUJ+S+ANe75A248OMdR6vD+Drb5gesL/kTBkGKl7H++YPXyaXs2+7xGONP
ADf+DNns2vsG86MC7DU/1eflrVc4/n0//s2PI+2wnluDNMRd9Vg/boG3fXZ4
4yLE8xj9Fbj2zdsatzU4X6we8N+Wh/J9CWR+a/4UESsPCbZsfUzmRxz4YK7u
3Bk+BTi+L8Ez2YfjVZ7j+9kScKiZRl3MO8xXnnoHfP6RFBPNlXieFq4Ez2e0
aWs05OL6Kwb76RROH1mC/T33J3hrXmLuqwg8HwmmdEL/QpQaFW3H8zxlBZg6
i/vgyyecf/pesG9uzI6FzZg/fDH4sodiwcNTeH9AoiqB+i7k9a/zSMP90RK8
0zkhkPkR9xPmHnDVKu3c9Px8HP8osL8JJ7E7BPOfOrEL8ueabPGRxXj+YSwD
Pyh1D/2Yjf2l7y7wNrMYW5uJ2P9wOWB7xS1pxyLI/vUZuPZCwBv967i+WWbd
UL/316anZGP/wdkJPj8xXGOzG8bDvwT21uMq0kfh+EmywMSqbO0oPaxntEbw
kbNFxUNL8Pt4rB4REeBaEcZbj/EJL4A3srIjvSLx/EfNAD9KjjatrsZ+kPEV
nJ8T+3ZPYRHGP6ZXRJTNqJe3c8d6QQkBb486d21VSjaObxqYM41neSAcz7+s
OvCV6fvbHfXiMT9G/xIRtrucPMfoYrx8OvhM8aL7tx/U4vg+/vVPPrI/gbe/
jevNDQrG+OX6RETkIjVWFR3Xj9AI3PNrR+PO6g+Y31vAewvX9XQ+Icf3Azju
SE5NQQi5v1P6IT8XOez7zxXvL1HmgvkKr1+JzmO9oW8GT1NsudDmjZ/HOgUu
GNpt7EVgPZQMgzcFrJv37AKOD23OAJwX768U9ZpiPEw78KPdKrlrLLZgfp8A
j5iX6s5UzMH474EzLfJXa7Tg+Yqh+xvW762igoJvuH58bcGxw6faw6px/XCP
gT9paEcG+uF8C26Df6VTMtSn4nmI8gZ83L1h0h9vzD/OhkERYT0icmicj+dH
/lGw99S3sfLZxZjfXLBOrZhtXYz7D60cbPR6m2ChHXm++QWumD74lL6pHMf3
8J9/5oMaDx5jsSiY8Rr3V0YZ+KNFibGSKfb7vt3gPD1eV/ERXH9cjSHof340
vW5fhv0iPRZc7lF1KtkMz4+sErDthuq0nOO4PjmdYHMVhwRDNTxP8qcNiwjm
2+Z65yLyfGMFzj54xqdzTxWObxG4Ov/Zhwmm5P3qdvDuRqdB77fYrwon/4X9
dwzr4a89eL1UAnw83veWXxee7xk+4OQLK78++w/jFYjApszC9pi/ON4U1RFY
3yX7T15rwvmiLwevzgw45fsH9yPWbvAnm4fqa9/h8w1OJDhO+31VihX2BzQV
iphI6ws7k/AUz0vMpeB1q0Rt38n7f2xPsMLg/qVyzvh+Xjh4jdOK1Fln3mD8
OeCGG/ctFGKw3/ddIiMm/s4JWpSji/0odwd49MbLcbtVx0u/T3ARfCfa9Ubp
3gas31lg7R0ZDs1TMT/p38AZwgZu10S8Xr6brJg4snUgo0qE4y0JBRNRO1LT
PPB6aU/BnV/Prr/uhfnAbADHqo88ODcF+zO2ohzES2wovZ2I+x/1PLi7+UPZ
aQaON+MJeKv5ZMXs3Xj/1vcL2O7+MrWxSbgfcUfJi4nVzZ6BRxww/wXGYFFS
f9YOd8xH1iPwGJ3DoU1/cX1yPoIfhf6RpZ4jn7/IjhITLx7cGlNvg/2FxBB8
c7lH0iLyfhnNCdz597DP50Ks97wa8P/LZ+EI+ELEYHfVILm/G4wWEwe5D0uq
r+H9VoYD2Pq8zWITZ+zPfQPBMjt2pxd2kufHYXBITVLihXF4nqfPVhATccMb
fe7Px/6CtQks8puysvI/PB9xjoOXyWdWtI3C1/l3wSvc64R67ZgPzFmKYqK3
NCdAKZw8H2wE3y6wKU26i/017z/wBx+33rmX8HmPMBFMYwQv8K4jn2dUgveu
27r34k3cv7nrx4gJp54rS/e3kc+H/MDseL7AIwbP6xQuOGtA1XC4D/OP/hoc
otIWXTEPn5ewesGXdnmGzonF+ZIcGismzNdcM+E/wv2CdhNcuuCghZiO5x9m
KfhadFvxQkWy/+sCH8wb2R4UgOZNHycm9pgUcXr7M3H93QBb5Zgci8wvwfF9
AQ4SpV6L2Y/9ELcDLL/0lXGhBJ83CqaOFxO6zgFHDtKwP6ZYgdNW1Hdc4eHz
I04huM9G93elP5nfP8C04oK1Fq7k+VFNCean1jg6qQ/Hk8YA3+7+3WNUL8D8
9gZPiB09bfkgnqeE38F3D5foj//Mx/yYNEFMTE70vl1aTZ4PLMB7S71oTvo4
n75eYMtLQT5b+7C+cSPAMe7XuUp55P1TqrKYyI3YMbpnA+YLyxw8P2sjZ2g6
5jPHA6zV4Nv1iqxP/Mvgx33nvrc/x/1Akg0OJGJ+fdiI5ye2KVVM0KOetGoK
MN957uA/Kaq3A81eYfxhYA0HhUlJ43G/pmaCnQbtyhZuwfgYQvAZhqp5ywlZ
aTwCVxUxsXSIH73+AN7fooSCf/jbLOftw/Ggp4N1TYJ2bF6M93NY9eBEVnO6
Lh/3V47CRDHR+k3mfkVRLY7vOXD8aYP0fWXk/sgD/6j/Fnf8Jn4e+zO4eGrG
atbChxjvvEliYtdGRYHyS7KfTgXvK6hKs6rA+eXWgi+XaEV5T8P7tQIZVTGx
pG/PqAAzrMcUQ/Cny2NGelLTMV5HcM0ohbWXVCowH96DV21d4FJijf2W5C94
4Jy8ILUWzyM0fTWoN7y6qnEfMP+Y9uDabE1u0swYXI8nwQ225ZXTcrEeU4fA
ce8m9MNoS+eXoTdZTATMsom2biXvhzDBIftPOGym4HrmBoDb8lLybtm9xfjv
gN2EMfOCVfH8xpo5BfL5t4ERx498PmQDJrTGcb774/rk+4M9j9FPpkVhfyNJ
AE86V3eoUgX7J966qWJC74n92SjvFzieR8A3XGy8yiIvYby3wGdakkOvtmJ+
MF6BVbS2yD27hPPh2wM+Nlf1W+umaBzPQ9PExLR1BRnR0VgP6XFgS5d0paAl
eN5mvQRrjapN+W6G53uOBCya23NfdYQ8v6iri4mj8i4zEy9jv86MAavSZ8cq
F2B9YheDI1PuG02bjvnI+wn+/Xe7+hAd9y/hlOmw39jPM2PewvtX1BXg2ppI
DZOt+PxHIAaHRB1vYRzC/ZCipiEmyg2cMz0/4HzTLcErl36+2P4Tz7usPeCp
83Vckzl4f0/SBjZVbKw0SMB+lTZRE/YP8db3lAqMh7kMfJt2YjAoEPsd9i5w
5tLXxkJ+Io43BzxurqogqPABjqeyFuyHf7cz1/qT93vNwO7rVa68P4zribsT
PFiaY1/wFftLwSWw7y/1pOwVeD6iZIMDVnJnepRiPeIs1hYTVxa0n9MXYX7y
WeDfE12yBubjfii5AB4z3drT0528n5cBLn+3WEjPw/2c+RW8LXmS/zkW5qPQ
hSYm0mVyRoXG4/upIeAL/OPWX7+U436XBha83Pqo8B55Hq8Db6GeWUXnYP/F
HT1DTDykFnjKTMLnQ6zH4OYcWdbVwvs4/5/ASTt27R9rgv0BX04H9ufmLS1y
53C/kRiBb2ZajU1Nw36N/RCcmjr7cPZ1vH/K+wA+6BW5M5+K9VlImQnrfwur
JnkFeX99Lth0TXxDuFMZxrsZbKmcsdzoIOaXoBrcHRJqmt5D9sd/wexbB/sr
T+J+QJ8zC8bb045aIqzB+O3A4lcbeHmGPIz/BPhp/22T/oV4vqP9AX/Lp8or
KOD+z9TVFRMp/0271qiL651tC65c9JGlkfMa8/cYOKzGRDmuDc+TwtvgtInf
l28eIuuBjh7M/1iqWvAcPH9zN4Bf6DWL0uzxfCA4CjbQflmbE04+f0sAt81W
mtfLwvyll4PNbPi/fh3C/pa/djbk4wbLh5J8vJ8sOQw20bF0083B66fFgxOt
JGO3n8D6ySwDK16JrN/egvWE3S19v/rW4JLOUdLroR6cIybe7Dm+KfMhnicY
seALKRoXhj6R+1sJ+OjKzln84+TvDTrB13WF9e9XY/8hmKYP/ZmWy+2632R+
XAdruO9PCPHB+7mcIvDuSNOc5d/I5xft0tc3OHklN97B+CcbiIlgLQPtxaNx
vdAIMG/86pCxY3G/5xWAzQ9PSH56nawPIvDszDxlxQl4fqCqzhUTkhTP9vs0
/D0OYzl4xl7b25bymC+UNnDmfR+ZHRz8vQ9dxRDmk8KpqonE+7OspeBVWhG+
qf54P4/jCY4MubRezRivhx8O1p16s1DuDo4Hc4KRmHjlqXA6i471hL0EfOvN
PTc3B/J55g6w+aagrnZV8n7jRTA/xuYLfRT2I9QsI+n4HHiZuhmfD3IXzRMT
z60s5ie+wOcRAjdwVb623cUGPF9RLoA37iiIpbjh/WX6UzBVrzpwfzdeP6th
nrTfFUQrv8V6KHE2FhN5fz6vlM3H3xPRzoPTQrn7LX2x32I+AXfT+1Q9DHF9
s7+AA+Rqvjaex99P8EbRxURRx8mPQ2/J55lnwMoynSfMDLAe+T4CpxR1h/md
xfrD/QiunBRSE/ZjK+az7Hy4HtuhAskJ8jxlBCZmlNUyE7B/5NeAV5g9294e
iM/LJCPgjvDiUpeOOzj/BgvEBHfzcMUUf7w+pgO44OwymfiNeD9K+A7cPyus
+nID5iN1GKzzoSFqkwf5/Hi2Ccz/2ppaY3lcj76bwB2XCG2392S8x8GP9x5w
nJqH/St9EKzgxdvwUT8I94tZCyFej6djPh7EesTZCA4tclBWD8P74fz/wPti
5VNk1uD6liSCtc5MqZ4uwnrDnrEI+kOVYmNXS9xPeevBtYY6L++eJO/v+4Ef
2U5ZpZyDz+OoXLDAzO9GgfIIxv8aXOly5dqrFeT5dM1i2I/Ub8c6GZH3bw+D
D4TaJp9Wwfmg3wSPH51SNPkv+fyqFHxcufSpGXl/jdMFvtG36PpcBfL3UzdM
xUT00rBiA5lqjPcFWKwdXHFBhPWa1wGeHXH6y2cR5o9w6hLo92kb9A3E+PsY
32tg14EnNXHq2G9wC8Ev7r39WnAM+wHBD/B2bqBhdzPux5TJZrB/PCkL3teA
10tngK95D1tPtMzF9fUc/MAvau3PAtwfJd/BQ++7Z0U04vqhTTKH80qc3/SN
ang/mmkB3lfyQvNUJ64fthe41yho3rFGvP9BbQXTnnyan9CO+ymDuhTyd4n7
oVN8jNfXHBx545Fm9ekbmA8e4LVz59/pUcX+U3AZvHhGgEFmFH4fS2kZ9Me9
4x5MnEE+7zEFzzhpM353Gd4f47uD7yX+HnP+K36+JAx8tEhX6/QerCe0TPAd
ftHhqY5Y/3gLLaCfVa/du20hzo/QFfyZeFHZfZd8HhEKXuPKjsj6Rf4eMB18
PlVtfWsYnsd968HM6paVGuexP6M4L4d64dzfKhuG/Sb9HPiecq3P4XNkv84D
fwjQvVadguuZ8xkcvbsm9MZdPB/w5S2h/p6tuPyqmLyfHwxuu7qD25NHnudS
wben/rlksgznl1crteuCvwY38HqEMgyY34aLse9N8bxNNQRvao/tl5HF8eQ+
AN8MtvXx0cTzjOA9uIJ77cQ9TzyfUkbAe6rOtERokL8/0ifExJMfsYm118n9
2h7cqGjcVvWX/H3GEHh9dm9cd8tHzGe9FWLC3yTfcfxF3K/ZTLD8p4Ju20J8
HsULAE9+ZHP0f3+vwPgN1oqfnkGE4Pj7zrSC89q9vsT1u3D9cW3AHNFvO60K
7FcF/uCRwK1BhoYYDyURLF6SOmrVJpwfDm0ljF887dAJM6yn/HVg212OGZpc
3C8kR8DnI5wzn1PJenwLzFOLDNE9jL/fYb4C7+yK0v1uSP6ey3qVmJjYf1fH
zwn7KeohMMP/v6brDVEYfxz4vPqRXRpF5P23l+AppQfFh/vwPMmVgAcq4l1W
62M9px9YDeNj3jT7kC5ZH2LAZx726G04S/7ethjcknXNxHTSEMb/E+xyZPKt
xdZYvyVTrKF/jDse6/ia/P3qVbDXqHPjpn/C9cDjgzPcOu52TCfrmxg8QbJi
7rsN2J9R1dbAeMULr253wv2WYQkeO1zNiXPA++OCfHDzgfQmOQWs35TvYFMh
Z8J5BfL+xMS1cP4qH1K4WIe/H2ItA29u36VqzcLfa3J2gRfKFFrnq2M9prWA
NQ38eq3UyH5eeR3US8OrlZpeeD+dbQa+ODMjsvgeef9tJ3ihyeypr0Ro4SXw
Wn/XiHA53G98x68XE84HrTwT88nfiy4Ghy9ZuuXmJezfBSzwbOd4WsYrHH9K
GLh/Z907yzK8/0XPAGcnuJ09Y03enzDZICbW9ZlbeY8m70+4gH3odh6TA8jz
SAh4xiebWuVbuD6YaeB7xssUrvQlYL2rA7c13j0hjsS/p263gfNw7JUnX8nz
JeMs+G+wnMruduwXfB+DxywusplvtAfz4xO4RMF3nb0rWa/lNooJ2ehqOfvf
uH5ZQeBTpfu+1G/B+ec8BLdOraq73/Oz4H8Ath3Nvw==
"]]}, {}},
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}, {-5.00336085276,
4.2927862473000005`}},
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}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"DPC1", "=",
RowBox[{"DateListPlot", "[",
RowBox[{
RowBox[{"INTC", "[",
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}],
Cell[BoxData[
GraphicsBox[{{},
{RGBColor[0, 0.5, 0], PointBox[CompressedData["
1:eJxV2nlcjF/UAPAplaXFSJssjT1STQsVyTwISRlLiDC0kdIIUbaJIkJjJySJ
ItVUShFNaVVpUiJtUynNUA2VbPGe5zw/7/vWH3y+n9nO3Ofcc8+9z4zf6rvS
XZ5Go7XAP+T/8McLuC0hXAcl3c46/icbLLgDPk4vv78rcQgLLC4Dp9cXrOkz
0xGC6d/BXgt8/Hdx2ueBWROiJcQEj4cX5/5RJB8XRYFDfcRX965XIE0rAYcH
n6+JefeJfH9mL/jzxIjGiAUjyMc5enckhFLztwuTBT/I9+PbgS909ISe1FIm
P5/9FTy+1eTepshR5PN5Y2IkRN5B2puJzRifYBH4cEzY+4KwYeTjYi64f0LZ
n6MZ8uTj3C5wRzf7qXraX/L9o0bdlRCdPRNPvUgbSj4uWgCeydf52mnQRz5O
2wlmjE83K7NVJ9+PeRW89qn1aw89FdJCrXsSYuwE6akn0Vrk62Us8K5Vnodt
Az+Sr2fsAG+8+nFTY+AX0uxL4HXzSpM3rlIkn8/LBtvehuH+Oow03SZWQuj8
eHXN/kw3juc2sNU60xqnhVrk53HPg2n/9xeVBb4obI8OM2omx1PUBm5+6lOb
7oPjyw+PkxCv57wLkjmOxHgzwarsx5GKBl/J95e1gI8dWtTwY4MG+ThD7b6E
yGpucDlnLSEfF5wG2/d5BL1o18TxTAfLT2lQ7grRxHibwAv2PO12e4/jy1J+
AOOR+/bJrbuDMN6ZYM8lHi1bZr3C8XwEvl5X2+RBU8bxbAAfq2xuTjUpJ+Pl
DImXEM/1U81m2Q4n349vClZj+Kmdn0WNtwt45BnP88I/GB+7FrzB6p3+SxX8
PjzFhxLi+yvNimlvJmM+GINHzpmSr+z2mnxc7AzeWzAkOEuZjvEHg6O3+0Uk
vcHxjpJPgPyz+bTA9dAQzN8Z4F2jM8LFNurk82lrwWcb1JvsCPy+zCDwr+VG
V0pacfw58eDSzoSdIz0x/2TTEiVEzrKpV7RztMnnM1aD02ebqtaW4ePsw+CI
a+RfDfl6Xhw40Mmt4ko4Pl/wGqwwRI9DzMb5w1qRJCFazI/qH9XHfOQeADsz
3cYr19DI50fdTRqQH6JysJNxdEZW1QiM/ye4/uxtOftAan7tF0iI7eUvenap
YfzCaHDcuA67VYn4ebJSsKeX1pehMV/Jxxl9YNEOXaM513A82OOTB3ye+NZA
01+CfXjbTwkGF2E+94BLtdwLmw5S+TEuRUK0yZ9xmhr3C8d/CdhzkmWym1k/
1odCcODLPMfPeWrk8zlfwGb4NwjzY3SqhIj1c3JymozfX2gL/r25W73n8mfy
9TJfcNiT4417wpoxPzrBcnNCxY3b5cj3E+g8gu+jaN2xS/M7+XzxfHDMyrTH
RR+wPtB9wBfsPh0dsV0J8/sK2HbtHPc4J/w+Is00mG9/NNdxgnA+0FjgcJtM
973ymD9ML3DuCq9xHxKp/L4IflJ5Yue9Tfj5/Odg17LQhOvO+HzG3HQJcT8n
f47ZczHmtyfY7fF9hQ+xMsyPc+Cd438ff14lxvr8FGyrG1eYl4D1RNwKDlQx
qrqhII/j6/YY4tMyY9pskcP8OAs+oU3mnxTjzwCn3TgS7BhVR74frQXM91wu
VTyF15+pmgH1gEH8CPPEeiJLA19aDeWlFseDIQazx6UeuHJSSD7OHpYJ9fNQ
ScjB9p843uaZA/MhFdys/5MnfTcSx7MevMX1u/jYcFxvuIOfSAhvJb3VHx7h
9YgyAX8wN1RYro7zU7QBbKpcMuxhVQ+O5/snA96fr/BUQoTU7J4+jYH1XGhE
el1q/V6jcqx368B+PJX2iK2tmM/HwPbDj1ZHs/H6COSyYL04+9LgsTGN/P5i
A3BpAZm/7eTj9DXgAxbhqovm/cZ85oF/Np3coZz3E+N/AP4tt/z849mfsd5N
eyYhKt4pXXI5hO/HXAUOTLIxrz6B4885BA7T6jS2dO7H+RgLrokJrLze0ENa
WAFef6+6z94tG8eX/RzydcrJY30JTTi+gWDfvgjB0OsyrNcxYEFxQxQ/aTDm
wyvwRbXMVwoqOL70H88Hrh/7sqF+2ufknrP6guvHbfDz2M+lkaq/MR9KwQXZ
IZvaQ/D1zG9gz7ph37yGY35yGEIJYVIy401+bzaObyQ4xGJQSfQuKj+KwTdm
BRknHsb5ye4GK9w+taPrzxjSvLE5sP5bOptWfMH5LFgM1s4qf5KjgfWJVQDW
Cf2t9vwpzl+uLGdg/Lq5EuKZ0QoN2xU4XqKF4NXlSUx1b7w+NF+wYaOS5rb0
FlwPO3L/d73E8dV+ISG+XqiJP+KL80lGgJ/ctQyhV77A9dsbzLVujxNqv8Xx
vwzWiz62Iefge6wXGnmwPr1bHpr6tQXrxTzwswUKvpYhIvJx1nbw69EqL5gq
VL27AP55//74rMk4n6KegV2ztsZlj8HxZ1rnS4ibGfWcUwe/YT7wwdpWIXVZ
ahUY7xOw4YSFg/S98PvKPoA3n90/YlNwH9YH1wJYjyzz6tUW/8J8PgM+aZ7g
MUOI9VX8GPzJYdUU+715GG8zOCRj0SHPOw0Yr0qhhEgOKh4xobgTx/MU6VxX
RrJiG+ZDGniLVdKCPX9xfJmN4J2p2eW1Mfj+nKFFEiJz5fzNtc4vMX4zcNms
noTlSrjeMlLAcyZa10foVWN9qwP/bPlx0ObWYHJ8eErFsF7q/YhKWYLzW8As
/nd9cDzF68EzJ3YaTWfgeh816CX0Z8u2T3gygqpnhmAfraqfl+Rb8fqvA6ct
65sYZ0/1m0fB4301E4xt8P2FtBIJcVU+v98xAue3bDr4dJf55njPLrz+TmBD
mbXikk1UPT4CjnfsPJp9qhvH+z5YefbEppwn2P/S9UslhP7I2bmKhk9wPFeC
nx6ojWgye4D14SC4bIS3p/JQar27B/ac5cktLfyB808ETtp48pHeW4yXs7xM
QrR3bClT4//B8QwA919TndSl3ovx3wFv4JzSu3GuHvOhDOwRc9PltCv2V4zv
YNMtQzsmP3qL9cH/FdTzyLAEaQeOjzgKnLHK90KnKc5Xegm4yDdv/btwzGdW
L7iAMbbGjI7P5+qVS4hhyy+KVdZS/XEk2Hrhvt4UG7wezCJwooE1/NVhPnwF
az8x9Uo8jesBf4xIQmSnxAf4X8TxFi4CbwmiBfR+w/WKnQ8ee0h/11Zrqp/r
Astt6CkrGIz9h2BUhYRYpt5bPGkzjpd4Adg6fNXoNV9xPtB3gufNqDgWPxTz
P+oz+fwnfbfOGoowP7Rew/o69fJpOZV6zGcCnBms/ku/APtL5g6wHc+3Q7Mb
rz/nEpine0xjNxv7I9nISgnBNI0ozH2O9YJhA2Y1/Fbf7I/7HfY2cGe5s8XV
CY0Y/3nwoIhQjtxrrGeCLLB+qUJkim4Jju+cKuj/tp++2eeO4891B/+xLNbY
uxznT1Q4uDG3dcPzVswXUSa43uTjjd2vJBj/B/BHYrZ3zIs2HN+tbyREgsIz
lxOnqX7oNFi/ervqz/14PWTpYO2vfb/6D3dh/E3gn1tOjnNxoGP8ytXQ33e5
PdrfWonjexL8KKlpXcANnF/0R9VkPNdb7dwwn1kN5PMHsZNreTg/uUPeDqzP
puD76/bVTh6M84WZDBa9WuJpMKkBx7cW7HzmwYMH06l+TvGdhKhcLdY0D63E
emcM1tYyyLFei/NL5gy+TAu7ysjB9Y33jnz8DDd36FTsXwTyNbCe96zdOawG
+0fxDPATdfcm8Y1MjH8teGvYwRehrjherCBwVZx/YXMNxif6C97vd8sl9EkN
5vf095CvIjuGURX2k8zVYParY8NtvuN6zjkMTuSsFrZfwXzkx4Fdtjolqx7G
+BhTayG/nX+vMc6WJ81eAT5rW6XtUIv9Bu8AOICpFOM6Db+v4C7YyzBWs88R
819cXjtgPLmOdbB/MTnq6dWSi/m9H7y7Zcz1ruOYb6JocERtGfx1YPxl4Csn
fle6n+jA+PvqBryfcG+9hLhX9hr+MD7ZLfComHol95A4zI+X4CNxgfrr973B
9a8HrF5H9uOdGP+4Btg/HU0zMa/H/S39Jnh4Aat2nS+ur6xC8Dr/Fyy/Phwf
7hcwg1GU/c6Aqn+jGyF/f/+AfhCvv8gWfC1ji4HPqqE4vnmNA/u7TjC/fnby
yDnYDwp1xBKit/ChhpJNLubHfPCl+/0POBbUfsUH7Hriw76HNXi+IPgETtN6
W8EJwPkh1myC+ut5odjNFOOjs5r+7S+o/bcXeHUmLb7Fnor/IljorWpv3Eyd
Z4xslhDf2hIOi1bg92fOBZ+f9O01M/A75rcnmOnttDz5AMbDPwe+8nZhx9Iq
3P8Jn4JrTGMVfTqo/JjdIiFUDBWv/83AfoXnBn7bfdrK9RW+n+AseP/8C4mr
1bA+iDPAlR/N29vouD7QW8AN+W3buo5iPxm15cPA/WAYmJhp0GiSjv0FLR08
ReNmiUfoa8wPMXgsbeck26ZPGP+wVgmxL2R20K5zGVj/QsGR3+ZZb3iG+3lG
Krju2MLFDh5U/a4Hj7p0tHjjKoyXN7gN+qO1H+MPxGD+CEzAb3/x6G8UG7F+
CMBDlIqcuUdwfeC+B8dW2wd20KWY3wof4fFGB9/ASlwPRUbgtVearI93x2H8
zuAFDxykTguw/vPfghWMVEvORWG8Qrl2mN/syBlqJli/ZAbg2+v+8Kfp4vVl
rAH7z9fYbKCH5wNsHjhghA78ZeD4/gH//fnDsEEL+yP6NImEkP5dvtXiOZ5P
sFaB/1ovPWCdgf039xA4qdPY77hiIcYfC57dlrqTaYvzhTlFKiEeFt3h3Wfi
/OawwRPXcu97d1HreyD4I9cw2UGG+z1hDPhxUqhJRGU1jv8r8IjPJ5PTj+D4
8Rw+Qf/2eS/Log3rlWAfeNQYzdD8jnsY/20w7WiUXufdUoy/FOwrtr+1JR3X
A9a3TwPzY89nCaH4fp7vmUvU/uUW+Oy9mfUMKV4PZjG4i3F+kt35Uoy/G+wY
TJRd7aH667EdsP4uX79n0SycD4wbYOtBS3YEPbqH9aMAHKd28+iVVThePBl4
SAfj9WNnPP8S6HZKiDzL8m7rcmr/shA8QVfO/HAF1mfuC/Dj8R3ENc83mN8d
nf/ix/5MpN0F+/VZvRHTZmN/RJsPzqwI+1EVhudFTG/wi66myccScP4IpeAr
LjGJ1UuwPso0ZBIiuH/rw6/n/mL9mAf+WC5vNST+Hca/HXz04rbhO2OwP+Bd
AL9ONL2nPVGJzH+6+hfIz5iHZ1S8cf6xrMGJNWaNm0bi/p7rAdZWWtlYE0f1
J3ywsMxtXosI+1/RE7BkTaveZyHGw7H6KiHu0I5uDV6E50F8V/Dbt8GmDvo4
HsIz5OOaT/quaaqSj8segx/SMoK0dmF9YjSDWSsEihsE2J8ION3QD9b3+qnK
YX8nPgXeGcEdzPHFx+lpYFHJ+YQzW3G8WI3d/8YXz1+4Q3tg/ZXZrfPZj/Wd
Fgp+UDQ3fOlGrG/MFPDaX8bGFfVU/ajr+TcfPmJ+KPXCfkVxIRQEDTJeIbP3
3/tjfWUn9Q7IR14NeNDcjhEbOnB/JBj0DeIbvbC5qITKD0Pw9ZLJu7u2vcf6
tw5cZWCyNS8U631UNThhnmpBxAjqPI/WJyHKXUoOHT/wAfPDADz/VeGz1a+p
/sQJPH34d4dRLXiezDkC7h6TuTdgMNU/9YMPzvsWPHcLVT/0v0O/ePdRr9lV
7N/YK8Euj+juKtWxmB8HwQ30sLHbGnJwft4Dj05Uujn4XRPWv8k/YD95P7FV
7IH9GHc56RWubWHp6KgAsMFHfgPME6x/d8BTM9yVllVjvaW9Ats4JqyJf/MN
x3fZTxiPPRnDF7tgPRX6gxOqLrtddcf8lEWBb1490Kp1CPOPUQL2LHozr3I3
1ht2L3i49/wbl25R+63dvwae30SCk3Wd4A/7f1YRuDZUMqZcF8/nuV/Bo8ed
Mlb2Lsb4x/yWEILyR80NdthvMa+DNSY4F83Xwvg4+b//7X/xfIrfRT6/X7XO
K5aKf1S/hNA1bxlVvh9fL1sAHlo9wWejFX5/Xi54SOQur3PJeP4l+AxWc6rQ
tCzG/bJY6w/0b9+LXwa8xvMMOgE+Ztk2xvIc9husHeCujVf3z/PD/bxIAub8
idD+HvEY81vj77/+DOsb0wac+avPY8JJzHfONrC2WqRvG48a//Pg5w75905t
wP6QMYImJa5dkqh924DxseeQnnM545oR1ieeO5jqr/A8ShAOZlqntI45juux
OBP84sL0DIN8XM+4lnLSAf31VvDW5HM1b0Zi/y46DZ57/22L6WT8fNpj8KTL
gwL+5uN5BrMJHPFQ2JiVgOdrws3yUmLd3NH3D2XheMtOguuHkv0H9qOMR+CX
YY5xB++j2Q1gjz/unwMMcb/EGzJISnSX5OQracfj/DsB/lhcs/JRHs5XVjL4
ku7Fg3rxVP9UC7aQd4T1vBbrt6KClHjF0M9z/kHtf43BaWergrKp9ZSTCNZk
mTt0vqfOS9+Bef0rOxsy8bxNKK8oJdY7PV4X+BzHVzYDrJzIi9uSgvsFxlrw
4lG38kbNx/Vf8EZxwPiJ/4LZ5026oiX4fvTpSlIiI6UseIQP1gPWarA1r9T+
pBjP27iHwfOCyfzPx/rRD+65XsTTWYjrF3PqYCnRzBfUVQ6h9o8rwK0m5rHW
K59ifhwAczQ2NWlu6sX8vgvefD44wrcf11f2pCHS/853PmD9cARvGNkxpC0b
11PBfvCo9D/tqlmYL+Jo8A/d0Y4zzPIw/jJwpb67YlaYPBlPlP1QKfFON2Tm
3zhcT0R7wTPmw/b0Fn4+LQpMzWfMR+ZLcMhpcr/3EvO7Z+i/8cJ4ZH7DpISl
cUKqcTTOP8ZNsMmGcdElz7AesAvBoRwyn3C8eV/ASdu8p7Oq8HxCMFpZSowr
Mfe2KKHOFyLAEyZfUcmZjesxNw9s9WBvYZghft+oTrBFzI+cNX7U/UQdlX/x
Yb2nLVAZcD35OeA7frZ6FqE4PsJP4LSsXy5WiU8wfk1VKdHg9MVncTvWGwYL
TN1vw3jYXuDrF0cUm0qwnxK3g72sEtKq1+P8oY9UkxJrOoPyczi4vrHmgmnx
g89kdeP9Pq4neJth4EVfJvbXUefA0zbGEape1PkvfThc77bpPiHZCuTnc2aT
zvSIaWzB+cJ3A1coKO8JU8J6Jzw7/L/vNwnrlSwD3Nca877iGva7PAu6lMg6
ezH4ry7u1wRbwBeelidN18V+WxwGPt5gOjV7Mp5f0NPBY6aGf5KvpdZ3Mbi3
/eWfzInYr4s2jZASzkEM7n1tjId2ElwWTZ8uWUSdT6aCv8tOCoqXYf/NqQdT
+y2sV/zB6lLCry/aWbAQ+wPGcbDNnfkOt+9R52cC8KUpZH+N5z+89+BfGbCn
zcXxEhuNlBKrCr19Yz+VYb1IAM/fzYzW+BOL68lb8OyY6dMUg6j1UE5DStgG
LTBfbYrx02aAH1w/EKLvivWDuQbsTGxiGl/F1wurwFR9x/VZ9gesV7DIbWIK
rseMaZpSYvfMD1arS6j7tavA15Z4r+jzx9fzDoEdRn45MmUd5jP9N/hMz/Oj
5TI8b2BN0ZISdq/G7lpcl4Pxs8GWyvmZZ1fg+UFUIPjpwZpBHsNxfyGKAS+4
a+h3cyjWK85EbYin7dKyrslUPjiAk3ROzVx2Fdcf4T7wGJbOhxk12B/IboPl
6noEv6Nf4fVfqjOwvu0B5z4j9294v4p+C/z/7oeyisF3FB56btv9DvO3G3ya
VVN6aQO1v/IbJSWMUhdeTHGlzk9vgNlxZD+H851TAFYa2XSxLR/j4cvAssQp
nZE/8foIdXWlhGvA3lT+VzwvY18DH5lip2N0GffrvBfgslJZ1adqPA8QdIC/
5DY8uE7D/kqsPfrf+GB+0+eDTZ/eEm3n4+eJpKMHfF+a5hgpIU6b6nedhfnP
nAe+W3uYKV2E+cnZDra6m7ppbS2Op+wjWPng7SPbJ+J5AEN9LMz/adzQqeup
emYNnrT8dW5RCp6n8DzGDvg8AX/sgPrJGj5uwONcK/De8UNssmqxn4hyBfvm
kv0hnseKzoC9oksHbcvGfKRlgEuqVvnHrsD5wp+lB+t1h1lszk18XMgB9z0L
GpsehPNDdgrMSYhwUInE9YORBrZwa5fb74znjexGsN22JkbgQdyPijcyYD3t
lcEfXk96KPh504wGbhnVj6aAbw02rYvn4Hzk1oEjUuSvaRjjfIpSGi8lqlpN
N1fmUvmaBG4YO1d/Sg3ef+DXgGNNz0w7PhP7beGgCVJif/zYa7bxWF9lhuD3
vQd395RRv394CLa83Ch3NQz7M0E1+F2X8GfLO7zfIqZNhPWVR9YDar4ZgLXe
dEySX4PxsZzAc3uaD+5uwf5VVDlxQD9B+zPxX33D/RtTf5KUKJhsEv/UDPeP
nJXgsrMLvI5+wftb/IPghhHk+QHOB8Yv8J0M8nwDz9vYkydDf7BioWq/E55P
8ZaDx6UdOym/Bue/IACsMyXR+9hIjFd8Bzw/eJ9tmz2uH9wJU6REpM6PC7xG
rN9Ry8De/L5T7Sl4HijyB1dvOXdw6RtcT2i3wfP7yxjerrj/YJaAwy1GEJ56
93F+2U2VEk2OcjGfajA+2W6wksywYmgT5jsjEjzLv/iYnCfu59lF4NN3124K
aKX6z69g6rwd13P6Ln0pobItxXDJfexvWdfBVkXhZUeG43kFNx9svaepIfgA
9XuJLvD8lCAvpQe4XopGTZMSKYN8iovCMT7OVTCxwvuLqA/PJ/m54ExudkZl
FF5v4Wfwj/fkeovnszKt6VKiczd5Xo/Xk0GAO/zr1vKLcL0VZIP/ux+B+SEB
X/tCL3A/j/HQNQykxLEPY/hfLPTI/GLZgA2TA1KPfCjD8fwIHs84blT2Add/
5ogZMF9eX1OME+D6ypkDdnEebWqyHu938N3B3zV0/Xuo+iwMB9dM7ZyYEY7r
DVvNEOazxe7bbpep+/OW4NhpCfsMnDE/BVvBVgV2p59dpc5zT4P7LKRzRvdS
+fwYPMvS0PqQO3W/e6aRlNDweaFqUYf9gmgz+E3gZBXVX/h62imwzkfn6Yc8
sF9nPgL3mk+Zqv4avz+nARyu2J7w6wL2rzIXY5hP9kmZx7nU/awTYPkhHBv+
Ruo8Ixlcq+4+PXIHxsurBa+TrvWsLMT9jECRCeub/dlPqkKqvgWD/zuPxPUt
EZy6xyeOewTXq6h34PO5duP9RLhfEMmbSIkbN92dL7tT9ysMwUEbb/XY3aLu
v70Bl76/fjXmBvajsr9gx3MLTdUZVH853RTWv36XPRW2WC/Zq8G0Rbs7hC7U
/Z/X4ANteiGvdlPj2Q/uOLHG70Qt1ivWVDMpMdMj7N3MbRgfdwWYoz/ikNW1
Coz3ALi1gqyHuB9m/jQbUL85k8ylRPzGsZmF/rg+8B3BnYcKJ6etxvku3G8+
4PmyaLCfpdGX8Ub4ebzxM6GfmxS/Iu821j+BPfheY53btxeYP+K9YB99s5cv
A3C+0aPAZ9RFc/YaUvvrl+BpOsQQtRIcD9GSWXB9rj9OKR9P3d/cDb57SHWd
2WFqf30TXFTwsVa+CO9vcQrB3pvu5niVqmD8X8Ajx1rN7k/H/GFHWMD69rjy
ZiOf+v1RHlgxpersPl0qfzvBo1Sb6GpN1Hm5jiXsT2PP7qDb4frJvQIeZ9Lo
43Mb8z8qBzzP90TkXHmc36JP4G/Cu2NLdfH8g6ZlBf0Be8qi+A/U/QgWmLl3
efCvLKxvwufgXy7OvknZGI+sHRzhmBpdLYfxM0bOhvpVUdq61wfvT7HngtuS
Ku0+qWJ+8TzBSSbPd7D8MH56G/j7tgLarvhazF/6HMg3JjN5Nh37Ye5s8FTb
6Bf9NZhPUW7gT0Ueqx5kpmP+ngXHGx3rNrHEfoOjag3X64a21eESjI9vAc5+
VWB96BFeH+EWcHmJg213MO5PZGFgYfaLZUuv43kUIx28w6y7p8IL67PAfK6U
+N387GPEdOr3ipvAjqOD/acexnpEPwk2cjEO+66Aj7NSwRpZgTePx+H9dG49
WLpTKS22B/srmouNlNg4hv/9AFVvmMfBmyf0Qn+I59ccAfi/8zuM/z1Yq//Q
s2gvjE+oMA/qjc+kW/b78TySfQz8ZQ/5+yXqvDMBfHJHfscNG6pfewsuy1vh
uNiKWu/kWLDfTvl5ST6N+r3JDPB3v0C+RjX+XiDqAet/93Nk/KIq8PPifS/C
pTgetL/grTn8kBlu2I8wpxFSYnvd9F8bCfz9AWcV+NSQ498uDcL8YvwGXywP
ctKwp/rLKfMhX9feX18wGs/jeGxwgGXceJ8k7L8FgeDjlS1WlzQwX1k/wC5C
naF3z+B5InfiAsjHstq1a7rkSUc5gO+6eTa3PKfuv+4DvwzR3rinAn8fRosG
J/rPOVcsQ/MZC6VE3MyNY3scsN8SLgUn8/bt6knB+izbA7bQdv019hl1f+oW
OFXPa/+YNdg/sYvB5ausDi/4hddfvNhWSvTX+BqU6WL9o/uB87pUlI0uYb1k
3QD/d56O+VwALtT7nPMyCe+HRsnAtZcP0J3WDCevJ9N3kZRYfdt/1tt+zCfO
NfCXSTZLFyzG789/AdZnv5rpIEQLO8D2lUaysy7U/RPtxXC9LIffntBM3Z+/
DP7dpPH34wzq/E0Ipu4P4v1dsRTc7v178yId3A/SNZdICQOrMh23JHw9ax54
6b7IVTNG4fNFz5b8Wx+xPtDawSXO5O+HsB9mqttJCUn844Mlj7EecKztyP6+
NzX/JZ538z3A/JONXE9/zDdGK1gUreCZGoPXkz18Kcxv80t/7V/j7194VmAd
5T87fJm4HxK4gteUZZsI3lO/lzkDfvNdqyt/FFXvVOylxGD1pWueGmH+Rc0C
G03zXahfj58v4oBjVwdJZhfi+QktDFw97EJBWyDWc2YaWLy8ub9oO84Podky
KfGzevKBfaYYn2wj+ES7W3jVd7wfxAgFB2f1Gih6qeJ8TAEfXb9r0dMT1H6k
Dny9KuZOCHX+RN/gICVaCtLCA1ZjvrNCwBmjoquTh1P5nQTe69n+9AFB1bsa
8JjB5huV5uHvk0SDHKXEJg1Lf0d76vznKFijL3Lf3XSsB/yH4I+79TjZHt+y
/wddsDjS
"]]}, {}},
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}, {-6.40465793304, 6.15469127665}},
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}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"DVC1", "=",
RowBox[{"DateListPlot", "[",
RowBox[{
RowBox[{"INTC", "[",
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}],
Cell[BoxData[
GraphicsBox[{{},
{RGBColor[0, 0, 0.7], PointBox[CompressedData["
1:eJxV2nlcjN/3APAJUWmZ0koyRXtpWpQ2zVOE1pHIEkaUnfnYSsjIWiqTCEUN
2SPTrojJHqVBEi0mkWYoE21EvmfO88fvN/74fF7v19PM3DnPueeee58xjtgU
EjmMQqG0wX9k/4d/nB3nxMS9DuKWf/xEBpifA26bbre6yM5IZlENuF0vo/eg
f7jM1AGwrWCkybZ/swVghsl5MXHnS9OTLbXuMgt54LonBeoltx1kf095Dn45
Z0XiY48pMtN7wbmLB1W+LtSXmTUhR0xUP7vqLYkwlJk7G+zpb3P/e4ylzMwf
YOU/aslEvK3s/TmGF8SE+ufV34d/cpKZ7wt2L7+kylzkgeNlg1sDu0+O9bKS
XWd/B59NtmwYipsiM8/gophY8cbk3FDHBByvD1grbWQu3cgVx7sR/LGWfV06
NFF2nX4KXKMQ88RX3Vhmge4lMXE6JKOgcNks2d9LGWBNP08jlS8Osuu0dWD1
zhe8jwe8cfwnwHVVCS0x2/DzOffAjdMSqvXPKWI8p10WExcFIXa+M1RkZqwG
39Pr1OFl+MrMPgYuyVM+Ioj1wfHfAfODTlfXJDFk14Xt4Fc6357YlrvJrnOP
XhETA1O6Slq+0GTXBWVgvijoUOe3ybLr0jawfXaVo+4/E9l1mvpVMZG88b6u
yUgvvP9J4Cs5B7y9jZwwniXg1nnMv71mdrLXU1vBAYrf3myIw/ExRl8TEy32
xECSoTfGewr49VaVzRpu3V6yeBaBp1t/Xp3ubITxbAH3Z9qppj/E/GAp5YqJ
h1pKTf1Rk/D+O4Brnmsd2LTGBOMdDj6wY8RHvdMYH2YjOOh4EmONCPOVo3gd
8sN/fu7LVswnvh34zbbbeYqRZrLXixaCLaQZJb2F+HrqfnDY23KXLbFkPgy7
ISYmCvvaBFSMh9AGvMNp3c139qay65QwsImmBVV93nTM373gkdFpjWFmmO+s
XPDPX3O/rbFwx3ywzBMTftSvGbcnT8V8CAWnpe1LK8ymysyMA/+5WFVc/94P
x38F7GgRyrPotcd8fgX2PhO3W5IwHefXnJtiYm2+4ZVWP5w/7J3gB/MWlxAf
zGXmXQTTbXnB5/rxfglrwRWWpWlFKqqYz7/BpYqqmkYGBOZHDB/y9WZWbApt
HMb3PHgj+6N5Xpgpjr8azA1yf7z0qCfmRz/YnpmhmZZug+M3zhcTlP/7J8qW
N/UZuOfTKs3QvIWYHz3gy2rdCa3bmTh+owIxcYzVEkXZ5Y/xnwWOmNyhdcpS
AfPjCdjziXG8eMbPe7L4doPjJpU6vDPF+c0dVygm8kP7Wqvy8PsLZoCXXGno
YtXg/ZRuArtezlY/y8H84XSBZ+6/USr6oInx1S8SE5k9D36maOP3EXmD9y72
s8yzwXyibgCPvP2afqQG7yfjJPhd5Tyj8ECMn1CnGO6nR1thcGAIxpcBHlO6
MZ8hccbxrwXPSpu48mnWMMyP42CD1RE3ogy8cfx3wQ06qZKKi1SMr2eJmPix
oLBebxLOX+Yq8Bmr0j4VAvOZkwpuD0o371g/CvP7NritxiftxG59HP9nsHLG
21OfN5L1bmUpvJ/mxHqrm5ifvBTwk+4F/eGqZL24BbZfOG3Thr0KOP42sNIp
j1Hzh3pk8aar3YL6lll4bcxhV4xnMfgU5eHVr0k432ki8PyqV7ZfevRwvCpl
YsKrp6FS5IHfl+MEdp+0Zkfg/WkYz0Lw3xe/bzq14XVGM3ijetxg+1mMF3tU
uZgYdlSob70N6zvPHmzjO+em/bB+2XiEi8FB7LE9XiPw/rPeg081i9ykTZ6Y
zyNuiwn23DSVhFwcn2Ay+Eve68mcNy44/gXg9fmWVg3OJjj+feC43Zti6Wo4
v/kKd8TETislo/RmN9l1kTU4d/frZW0Dk2TXqfPBFlMtped3YH4wOGD+s6Vr
7obh92FfA/9u/hN0hemC8bSsEBORT81DH3zpxHjOBWtqP7uflyjEfN4NXrHB
eivrINYH7mUw65FefII+5oPgJdg9Wmv/wAUcD5N5F8Znekbv1CSsv5xY8Mid
taa9KdaYDxfAmbnRc8UJmF+iF2C+ga9hfyDWD+qvu3Lzkxd9T87Cc+Ac3ZL2
o+Nn4virwep+67K12+ky0/vAgrtz/i2px/WNRROIiSzNtPczDPD+SbPAUyzj
phx5jfWHVgVWO/oovjTQH8f/E3w6OYf+ojAM83l8pZgwfhBxeFUt9g/8meBH
LqlDRLcB5sdj8BtOsdZkU1wv2FKwSqNDwCdd/Hze2Pti4j5t62PHoKWYz9PB
2ffrEhbOG4/j3wTenDyJkRbNxPh2gv+b/6z2/Hh8vUDvAfQDeldX6HzDei4l
wA9YAza/Lemy67T1YKHFw1tfYvH7MNPBgSwFc5c0rC8i7Ydi4pnqgcbGiVg/
qV7gqbtnPbMfpof5sQaceGnBe3UNzFd2Gngu9embdXfNZOZVgLeum5Sq7mAm
ez3d4xHU+9o109/q4vtzuWBb10Dr4vvY/wjKwRbmkan8Uhyf9BPYxLTNf8b8
H7J84qx4LCZWtiYZzf+I9ZufDBaXX3utGmyB4y0Fa5ePY/U/tJJdp34Ej3Uq
XOATi+NnqD6B+3HhwZFX/c4Yz0Swil5s0pPXOL8oxeD4K0utvSyDMB8+gKdu
KIg5FN6B+az8FL5fXlvg1gM4Pq4jOOfS2u0nDBdhPhSA/SKaDG+kzJJdZzaB
3+66qleU7YP5MLJKTFiN8DqVpeuL+UAHB2hNOWNz2AbzeRF4mdmXD6t+tMg+
jzf8mZj4lF8emJqhKvt7oS04hBMeXOuG/SNlAThK11mz83GvrP+gx4MPR3V3
Go7F+ymgPIf6OmnyavNkc4ynFfj7Y42K6kTsB2nzwGkFrgsWqGF/xtwDDsrR
jL62BOsZ5yp4ILs54o49rtdUi2oxURyq/jTKkYHxDAEHjJnl+dlbF+//LnDB
gYz9253m4/2/BHaeNeffs0VkvywEH/z4+n55BtYDVnCNmLC0Vjsx7SX2C9wd
4BW5+89qB2D+CHLAfNW+kJ5/2D9Ia8C6C/yXuPmaYLwHwHfyM6MnXyL7ie0v
YD0dP9s8w00R84En86Sxjjv+kPX5OdhvtCmFn0WOvxfcE+XQVdKB/S17Qi30
n+GB043I8VGywEoBqo6cMLI+PJVdX536YvWLuTKzfoDTf1h4/i3G+cU1FMJ4
wnbsST6J813gC56jGF/aVkiuH4/AVUIDI5oB1lvOd/CqjZM82OJm2f3mG7wU
E93mXab3/2I/IvIB8+ppo7WicDzUjeDDFksNJihPxfh+A9uP8kjpfo71X6j7
Skx8mzpnT2sk9sMUAuyUbXVKJw7nJ30duFfhgMHYVMwH1gnwjbwfF3zXOmJ8
x7wWE4Zn6udXKHthfkwDX2XeCRrTEIj5sRr8YorhzxANsj4fAz8aCONzpFgf
+XfAMUpvv/48Q8bXvU5MfJhq4Jg4D+PHjgRbPCtkFF61w/EfBe86YVIz9qAS
zscycE91x7H1ieT+5BP4YkN+MH3rDMyPiDdQD85W++hdx/otSAILrlS57h7E
+i8tAXucWH0i8JMt5kcr2DQ+UW1RVwSOf3Q99EvZW5o6V2A/JkoAa/Je7X/x
D+sHtQjs+5SrrNeD/SejBbxXfOLapwZcP9lKb+XXFwd50/PBXY5NAx8HCMyP
RrBhuHhMdNJIHL9iA9RD5aST4Qy8nwI78PKJx+kayVgfpAvBH3tqirLDsd/i
NIBDgyfuO1Hmi/Ed9k5MPP3wMaWtB99fZAMeU6Ot626K9YgaBlaeSW/YH+2I
8d8LPqTq60J/h/2h8B84/pNONOso7u8oVu+hnuamu3TXY72gh4KbVQsvB1OW
4fjjwJ/Odl9/1Iufz70CrpkcZOW6AOc3zbxRTMw+X371ng/eH+Yc8NOEU6n3
fHF/xNkJbkk2NHY5gfsx/kWwoC+lso0ahPGvbZSLHzuoST6+MeB+qwmzqr2w
3gnPyzx7lWD+e5w/lBr5v6f3y1uwrVnO0mzwgvmXJUba2N/QnoH5AfeSxyXg
/GH2gBs2Rhsb78b4coxaYD65fNq2bTfef+pZ8Lp009Nql8j17wn4auWgx84Y
b5nZ3eDuvlzRhxHYb/LGfYB6V3jb094MzxOEMz7IjYf1UN7cLnkL9EViYmjz
rZZDMbj/l3qDy6JEjhkMCxz/BrCuwMRm8a8AmflfwX4JuhXMmRh/kU4r7PcW
Lb/yg4LzncoAP8vtq7+8C+cHYy3YUD3rms4HrP/s4+BDITdbwqqwvlDGfBQT
sacO7qBUz5S9nu4JbltkbLdIiPOTtQpsel174ZeRHpgfqeDbTs5ZUz4skF0X
3AZbPzxTd/HgcIyvWxt8flTuqpc7cL3lrATvKu+ih4/Ces9PAZfemXHt8jDM
X9Et8ELjlu67K7Vk16ltbfL5sfyTfH93RN6UEnDJcpry+gSsZ3QReJ+u3bWU
GjzvYKl8hv6T89J8bQjul6SHwbbOh9KH/o6RmVYIfl6ZdSBgMfYDzGbwiVLD
01o9uN5wRrXDeA/0tRs2k/ste3BTxq4NdwMoMjP44IeGJ6vOHsD8Zb8Hrzz3
UOm4AtZD3ogvYuK1dqr3y29YT4WTwZ3npVdv3SLr30Lwwt2X/pS3kucdb8F6
Vv0OxeOw3goUOsREXkP9fuN0luzvpdbg6PPGxefLMb60+eAg4drOdR9wvWdy
wBVXKh7fXYnvJxoCK9IyqZ2huJ+iWophfxHtenrjBDbmx1xwdkrpHeMV5HnH
bvAT78cVHxSmycy7DNaZ+Mzw05kZsr+nm0ng9cqbV207g+c3LCZYWrih9MYs
b9l1biw4JXuxSd9HrAeCC+Bfw7IMKXxc/6UvwPkdWsuDHlpifAO/wucZb91I
O471kh8N9nRZ4vPoDc5f0TnwyekFx8ZGYr2mVn+Vu/+MPnkLt36Tz49s8O3o
JmXXeTjf6VXgQoVvNzZuxv0j6yf4X90GZY0l5HnC+E7I968brZ6Pxv047QxY
tV7jck41rrfMx+D658GXFTkRMnOk4G+uoi9TirH/4I/tgvq8O3l3WTnGTzQd
/Op87+4bTEOM7wPwHsGcxrf3yPh2gq8mvZ7Hqh+P+aH3Hfb3Xb/clvfj51O8
Zf6rMKbMoQ73X+vB9atNv4VfJfNDAu4qPq3CdMH+UKotFRNMD42Yz0vxftC8
wJq1Cpdsx+D6w1wDVsrMCfr81RfjnwYeszx7/pYgvE7V6hYTG5JWD5kYk+u7
B1hit9+p50kw5ncU+NCuQ99KjcZhfnPBfu9dvU7F4nmIsBw86+lw90fJmG8s
1x+wf9K5tes/B5zv3BXgvLJGp+fbyfPHZPDR8r3/6XTgfkZaCjad2xW8azfu
12kfwflKDh5ZDLx/fNZP2P+q+v038gJ+f1EieOmIqy5pGXj+Ri0GF95T9Fjy
Gucf4wP4SHbqc/Ew7H/Yyj1ionFj2Qnz9DEY38NgJZ0KapUA+3l6AdirQOt9
/ck5mB9Nsr8/MTkyqhbXB+7IXjGxhjtu6yj+SBw/vVcu35g35c15J2/+8D7o
dxyyfGcnkefRtmDn2svPv8eZyd6PugBsXbjZvXcx2f/Vgw9JUqQ8bzXMD0o/
rDcpjOvFr/B+UazBD9gG60aXY/7S54Gnlum3f05XwvjvAXf0+s3urMf7If0L
dlMZGz3yOL6eZjEA3+e78aUNt7FeMkPAut6XHB0Wk/V7F9jgqNPaN0rk+n4J
nFl9tezCPuxfGKa/oL6MuzUYcAjnLzsYnNL8RMXGEvsN3g6wSYDlrmpbTcyP
HPCmT2YLakeT56kvwPfOTTZ4twD7f27AbzGxcf3cgENu2G8ItoP14+/NrLuK
5yFSHnjXY4lgRg15Pv0cnLQ9v2zoDuY7s/e3/HnelkH587wseTOegg/Fc6/Z
/yTz4wfY9sj+JTf8sf/gGf4RE8dzxdUvpmL+0jPBZt8HUiaEYb1nPQLPPTZC
6W16KI7/O/jYeNX57s54PiAw+Av1K3OBG8OZ7F99wEN2W+aaauH84twHPxq+
5rG1Be6X+d/ATQ5JtnoTcP0W6Q7B/Wp3/l2mgvOfSoD3UmpDzdXw/IyxDmxs
sl+idxn7Q6EYvGEjJ9JkGMaHov0P9u+TLS9rDGI/Q58G7rri+6piHK5nrNVg
45B07Rv6OL+5x8Czf2X8UU/H70vTpEiIiosZn3PDcD4y3cFqf5c73dHDesyJ
BLeXBYsmz8T9Ef8o+IXv4EnDDuwnRGVg7bfTN8TuxPMd9lQFCbHLcrfEMh/7
VV4EuJlvqFK6azXmRxJ4rYd7/cv5uJ+klIJjnz+4nuqG6wW9Ffy+zTN2ZhPG
T7BsmITYNqs3rdOefB6QAB76V6+l1oLzh1YE3qLY0Hk2AucDswX81T3+kcWK
SBy/0nAJ4ed7yz/IkzxfOgTWem+9sCwS85mRD976sj1q3CHMX3YjeHrOjeYD
Qbie8xRHSIiUi0rT99zE9UpoB87nWZpOSMP7z8oD/woeptN9x1f299wGsF6C
j875/NmYH8MUJcQ+nQVLnBVx/kptwHOSEitnVOD3p4WB/1++8t/IW/RP3lSr
kRLiiMpA08Ll5PwMBd9uV32yVJVc3+PAlTaXiIFVmA+Uv2DpvhXaeaF43kQ3
HyUhJPOapGYbMN6sOWC9Y9scFQbQ3J1g3zqbFidfPB8UXASfkS7tOBX5Vzaf
mZOUJERp6oPhyrrk/iAIfCsyRjd2OJ6f8WPAZZJHvuHmZpgf58F3TGqWdTHI
5zE1YJM59wO6nXE8PH9lCUGfFTRvfSYN83sbuGiCHeX8OZyvFB5Y6PDfYu3l
2I/Tn4FNz0bXj7iE9YfVA175RkP9bTbGX7pZRUI8ujdhkpUP5jvtLFgn/+At
rhHmI/MJeFHu/HGfS7EecrrBn205R+ZNw/09f9xoeL++wQfrwrA+MDLAP3TP
fpSew/Mo9kOwXknCvh/f8PyA1wW+qvF8j1ML1gehvirMnw+S50GxeJ5H8QFL
pd+NpHbYX3ArwTfWBe2rsMXzfMFXcFVkQ39AJsZPqqMmIZr6FI9q3WiT1QMa
Azz67t7NHf24v2WuBWfwB3ILCJwfog7wIDcnJWcNrrfUMepw3a5ZZXAs3j+G
J9itV/XtJW08r2avAqtL0oaKOnD/zUsF60/37FBzx+t0qgbc39cWvfsn43xj
uYFD3qm4c8xw/eWuBKf9Uy54NIT5IkgBNx+/b1y4D+ej9BZ4q7Tz5dcj+HqO
C1VC2L/qK71iqIPxXQ5+HZE5b+E93M+IjoAPx/kejPLFekctAQf9N2TsHks+
rxOBl8w91Z7hhhYu1YT8sNq+fTkNz2coCWAFwzeJkj7st+mFYPMRs6KP1OH6
xmoGV7o2Bic+wvhyR2lJCGeTCSqZPNzv0A6CFywPWBLVifsBJh/MXkE119qK
+xnOey35+Th5jJzZN8CsY0tiQg0jMJ5vwd2q1can9mF/J1TQlhCJNuV2t2dI
cT20AWvXfTqrZI/5Tp8P3tNYHbQ2HvNRUAfOCdp3NnoT1gfpEDjyy8r61Xfx
ftEsdWD8EeGfepahmXPBLVrf8yJu4nkMZzc4ymfigaUOWG+of8CqQ4wf4QV4
PsYw05UQ92q/Lv88Ces3mwkePTA2RTtrQDY+Xiw4hjF+cGY8xkN4Ady9Knzp
27E4n1gT9SREnYOZglgD6yk3EGy0XPWpahyuX4JocOFyXp+bGbmen9OTr29+
+vLx3ArmfH/Wf+wErh/UbLBppmvFuqgB2fsxqsArRncdq/mC85f9E6zmu1fF
PR3XQ8pmA6jPJuvUTJtwv0M/A3aNW+VZbIPnb6zHYGHMgo5RL/H7cKXg4XEj
d9vS8fxDMHashKDq2Ce1SDFezNPgSqOLq35Nxf0m5wG4K6XjT/MMzC9+J/il
wssLfFt8P5HeOIgn/cdphj7ul6ne4+S+n1Aib4qOoYTYu0vj5+907AfoXuCw
XYFzL2eS410D1k4INbxVjfVG+gXsfn/P1DMh5PNNrfGwfpqFid+xyHrgAV4k
HFNV0InnC5wocGVRrN6h9Xg/+VxwIM34dFkt7ocZGkYSoi9v99m/puTzTVdw
XltSq+V/WE94K8CeqVk8/b/YfwuTwePeQXM9E+cz5Rb4aCaRfuMJPu/kOk+Q
ECOK9sb8eYXn+QIWeKV/41deJz4flyaCYxPPrHr5G/c/tGLwNfvrDYtV8Hkl
8wP4ee3hqTcbyH5/CU1CKPtelw7+UMZ4HgbTdBOebl6P5yWMArDC4Pvfl5VN
cPxN4MD4UnHPFLLfGGksF2/WTXlz34FDlkwf0X0Z4ykYbiIhrvdvfNK6nlyf
bcHdz2P73vX/xecV18Ftn83PbDLD+savBy8VmJ5b7Y/1T0SZKCG8KqqfpSmQ
z9+swc7lTldCWpUx3vPAnwzq41PU8PxW+Bo8bNs8i7bxZhjPIbB6aoRp8y2s
93SLSRLC9vjmf8Pu4nk8KwSc3eRX+aUOny9wd4GP+B0pDRjE+0UbBAfaFWzL
LcR+lWlqKiEsM3IPVzrh/eUEgysL9MLZxdo4/h3gtMSWzN/LyP1rDrjoafrl
FXMwv9kmZlAPKn8y2Xk4v3kB4E32Xg2jqrGfEG4Hl9/Y+jSTg/lPOQd+RW/6
p2eP+2P6c/Cbt6vNKowMML6zzaF+ORlEJc/CeizdAr4Svqb1kCuex9CywKc7
TE7PLsV6yHwKHhlz4oqqC17n/AAbNtNrleN0Mb7/WcDrTVN1tZRx/jMywb8T
Og/2bMf6yX4Enhi/rL56NtnffwfrRPjvXHGM7C8MLOF+ZN09q9dGnh+dAmv6
+H0I3477d+59sJK/rska8jxV8A2cFfPlj8ZM8vmyrpWE+Jef4XjxDO5XaQQ4
iz03XLEf+xv+PfC7Y4ssQ7tw/ykSg/2XGC3PrMJ+japtLSFcUojvZSfxPJEx
zVq+PnyRN13TBupFcuKsSd/J58nu4GbC+veDPeR5RiR4jJ7ESrkM+3nBUfBg
6JYjs0etwnxQt5UQcXmLWba9frLrnKngxq/tE+9W4n6MHwFe3f4grF0b81uU
BD60P/XNV7L+UUvBBf6Kf7Nc8Pk+b8pkuF+ZE0vyi/H8SbgMvMW+L99VDeNJ
SQR3xPuUHJ2L84teBP52Nyv1dynOb1YLmPowLEhLhOOVhtvB9bTte9aMw/0F
7RD4+G/zHdZUXM+Y+eBNVRvC9wjwfJfTCOaMrNpcPojrGV+RDt//uaSoS4zx
YOwHSxVdN4evH4n5nAd+mTgq5dJ0rI+8BjDLOOjdstlaOP5h9pBvZ0atDR5G
nkfb2svFX/BG3tJ/YAOf/ItVndgv0qwcJMT5uTt37ArA92OGgg1uit2Skzpl
9Vf0CnyMz9vkVYTnd9S/YIFj9qz+9eTzCXNHWM+U/rjP+ITziT0HPCXObmNR
EOYbbydYsWxAp3CAPJ/7Df5+3SGk2J58vj3JSUKcnDQnc+oK7Je5QeCFXkeD
HkWNxXyIAUtVjmzY1k7W4/Ngbuso3tAg9q8c4ykSYtktL//Yi3iez/cHG9me
NiuZgPEVbQMbZH0zjO8h84EH1ko8xl7WjuNhPAO/UjlXoeyA55fCWc7QP13I
f11fH4zx3AKu8xevjqaT++uz4GO1iwq+niTPj56AX+298NQwHc9juN3OcvFm
ZrjImfMQHJ2VTBtWgvnF7wJ/7y90zL6Hz4NF+lMlxHj2th/jfbA+sk+C5xQp
vA4hVDCeleCB1PtK93KwfxJ+BT+qvFGnu5Nc33RdJcSGoICgno+436MzwMFv
KJF5Glg/BXfBEzydvZlamO/SDnBQq8KpEd7Yb9PGuMH7PVwU9vPdCMxfT7Bo
q1HYoD7mN2cV+JhjHy2iBc8/qO1gxqYo+47l+H4MqruEOPvxVM+bZuwf2W7g
HOovnacd+H15K8FTHpoe2DuA+y9hCriyZLnLmWx8f5aaB3zfpe5D5gcbcX12
AUecSO7OOID3X7Ac7D4sbIf/msmYD0fAjep9Lu5j8LyUVgIWzwj5uWixPcbX
yVNCFM/Jcqw6RD6vWgoufF0/dsJCjBc1AVxX+evlfTIfGYVg6uwROo0q2N+w
m8FPuq4WG2phv00JnyYhGgq/5/w1JfcbB8HJtVe3dtPx/rD4YDu3j1p/bPB8
hPse/DHn7jL1LsxXwQgvqEesX9b6geTvu/aBz6Wc+6NpiOfVnBvg25f3nvQq
I39f8BYcV7GtbPge/L2QSIEB+fz9/f32+/g8nmoDTjSPFy3ywv0/7xq4PMkv
UXknng8I68CX8gj3zSvUcfz/wDmGrTHWheTv6ywJ2P93u09t9sR6yJpLyOUr
7Y+8mWbe0J8uC/koTsXfz3CYYLvO3+//a8L5yo8Fv7rXPm/dWnJ+/QL7cQ5H
/55P/l5qoo+EWHwn5tbjz/h7C14geFmQ9+mt7Xj+IYwGR4VtaVPhkM8Hz8vs
O7SOk0nOL9p0CXHZ31RTn475I/ADB//+1X2/DvNXuhXsc332X0sXHA8tG+w9
6nzgvoP4fZlVYPf6uuD4UPL3JTNnwOdPcvnVqI79EHUzuHpmVImKojeO/wzY
uFs0MX8z5gv7MfjdjgFvSS72MzwpWPCYf0M/HeNN3+QrIe7qTlhW7I31h3Ua
/PbZEiufq5hf3Adg55sawaFt5PlyJzgieUVcbRLWT6neTAmxPkly55TtLezf
0sHTnDRrtnhh/eILwHt+eEwo/439jkgCVjw+eMIzgjxf1pkF9StFoajqKeYX
wwucdriZLejCfltYAd5YGPm4ThvPxykdsuszPp96GoP5SdeaLSFmOre2OSth
/8XyADuZ9x6MZmK8uVHgqZL41cF7yPPZz+DtM/efFMzD/pap4Qf1bc659rt9
+Hyb4wr+tHHlDs1c8vnUCvAv1ul7s0/g/kqUDJ5Us3v6nS3kfk7VH/p710Xq
MTkaMvOcwbSLq+iR7/D5opAF/nT8h3P1WXL/dAQ8tG3U+xM7cb2kF4Nn8Gbe
vu2L66XAMQDWYxez8fv0yPVjCdhPEtR5oNkEx38YXNPdeyy69heeDxWA4xxv
lqoNYr3nNIFTKHca7BvJ+bY4UELUXqLGlAdh/jIOgHvzkjRjA3F87Jvgg8Zz
A8Qe+DyJ9w6c/nO92fRQ8vxzeBDsl4YXmGpvI+dbPLho7tr1jjTy95bXwQb9
7uFedvaC/wFyz768
"]]}, {}},
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}, {-65.9110593599, 110.69484310915}},
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}]
}, Open ]],
Cell[BoxData[{
RowBox[{
RowBox[{"Export", "[",
RowBox[{
RowBox[{
RowBox[{"NotebookDirectory", "[", "]"}], "<>",
"\"\<Figures/INTC_RSD1.pdf\>\""}], ",", "RSD1"}], "]"}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"Export", "[",
RowBox[{
RowBox[{
RowBox[{"NotebookDirectory", "[", "]"}], "<>",
"\"\<Figures/INTC_DPC1.pdf\>\""}], ",", "DPC1"}], "]"}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"Export", "[",
RowBox[{
RowBox[{
RowBox[{"NotebookDirectory", "[", "]"}], "<>",
"\"\<Figures/INTC_DVC1.pdf\>\""}], ",", "DVC1"}], "]"}], ";"}]}], "Input",\
CellChangeTimes->{{3.544837700436571*^9, 3.544837731598082*^9}, {
3.544837772830203*^9, 3.544837777564246*^9}, {3.54483781194526*^9,
3.5448378553702*^9}, {3.544838604361949*^9, 3.544838610538883*^9}, {
3.550182769642198*^9, 3.5501827807881603`*^9}, {3.55018298468392*^9,
3.550183002760957*^9}, {3.5501890264987593`*^9, 3.550189031042597*^9}, {
3.550190244281674*^9, 3.550190245226152*^9}, {3.5501913303111563`*^9,
3.550191330829517*^9}}],
Cell[BoxData[""], "Input",
CellChangeTimes->{{3.550183088166411*^9, 3.5501830910839453`*^9}}]
}, Open ]],
Cell[CellGroupData[{