-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathdataforStrains.nb
893 lines (862 loc) · 37.4 KB
/
dataforStrains.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
(* Content-type: application/vnd.wolfram.mathematica *)
(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)
(* CreatedBy='Mathematica 10.1' *)
(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[ 158, 7]
NotebookDataLength[ 38111, 884]
NotebookOptionsPosition[ 36958, 841]
NotebookOutlinePosition[ 37295, 856]
CellTagsIndexPosition[ 37252, 853]
WindowFrame->Normal*)
(* Beginning of Notebook Content *)
Notebook[{
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"\[Epsilon]", "=",
RowBox[{"{",
RowBox[{"0.02", ",", "0.012", ",", "0.006"}], "}"}]}]], "Input",
CellChangeTimes->{{3.65010782179079*^9, 3.6501078265672083`*^9}, {
3.6501081230609703`*^9, 3.6501081251989107`*^9}, {3.650116217334229*^9,
3.650116219173504*^9}}],
Cell[BoxData[
RowBox[{"{",
RowBox[{"0.02`", ",", "0.012`", ",", "0.006`"}], "}"}]], "Output",
CellChangeTimes->{3.650122340778472*^9, 3.650188181864122*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"\[Epsilon]Ave", "=",
RowBox[{
RowBox[{"(",
FractionBox["1", "240000"], ")"}],
RowBox[{"{",
RowBox[{
RowBox[{
RowBox[{"0.0196", "*", "177236"}], "+",
RowBox[{"0.0229", "*", "3497"}], "+",
RowBox[{"0.0163", "*", "42999"}], "+",
RowBox[{"0.013", "*", "7846"}], "+",
RowBox[{"0.0097", "*", "3596"}]}], ",",
RowBox[{
RowBox[{"0.0156", "*", "6127"}], "+",
RowBox[{"0.0131", "*", "140821"}], "+",
RowBox[{"0.0105", "*", "69396"}], "+",
RowBox[{"0.008", "*", "10925"}], "+",
RowBox[{"0.0054", "*", "4840"}], "+",
RowBox[{"0.00288", "*", "3229"}]}], ",",
RowBox[{
RowBox[{"0.0097", "*", "14015"}], "+",
RowBox[{"0.0075", "*", "82657"}], "+",
RowBox[{"0.0053", "*", "90168"}], "+",
RowBox[{"0.0031", "*", "25549"}], "+",
RowBox[{"0.000956", "*", "13185"}], "-",
RowBox[{"0.00123", "*", "11321"}], "-",
RowBox[{"0.0034", "*", "2873"}]}], ",", "\[IndentingNewLine]",
RowBox[{
RowBox[{"0.00715", "*", "2345"}], "+",
RowBox[{"0.00535", "*", "9044"}], "+",
RowBox[{"0.0035", "*", "159761"}], "+",
RowBox[{"0.0017", "*", "40201"}], "-",
RowBox[{"0.00003", "*", "17777"}], "-",
RowBox[{"0.001834", "*", "10544"}]}], ",", "\[IndentingNewLine]",
RowBox[{
RowBox[{"0.00667", "*", "1129"}], "+",
RowBox[{"0.004562", "*", "8315"}], "+",
RowBox[{"0.00245", "*", "132434"}], "+",
RowBox[{"0.000346", "*", "80970"}], "-",
RowBox[{"0.0017616", "*", "16465"}]}],
RowBox[{"(*",
RowBox[{",",
RowBox[{
RowBox[{"0.00479", "*", "2921"}], "+",
RowBox[{"0.00334", "*", "14003"}], "+",
RowBox[{"0.0018633", "*", "46488"}], "+",
RowBox[{"0.00043", "*", "134718"}], "-",
RowBox[{"0.001", "*", "33839"}], "-",
RowBox[{"0.0024", "*", "6740"}]}]}], "*)"}], ",",
RowBox[{
RowBox[{
RowBox[{"-", "0.00193"}], "*", "137006"}], "-",
RowBox[{"0.0017", "*", "36223"}], "-",
RowBox[{"0.00146", "*", "17865"}], "-",
RowBox[{"0.00123", "*", "11170"}], "-",
RowBox[{"0.00099", "*", "9258"}], "-",
RowBox[{"0.0007622", "*", "6746"}], "-",
RowBox[{"0.00052", "*", "6722"}], "-",
RowBox[{"0.00029", "*", "6223"}]}], ",",
RowBox[{
RowBox[{
RowBox[{"-", "0.0039"}], "*", "130610"}], "-",
RowBox[{"0.00337", "*", "38360"}], "-",
RowBox[{"0.0028", "*", "18870"}], "-",
RowBox[{"0.00233624", "*", "11879"}], "-",
RowBox[{"0.00181", "*", "8979"}], "-",
RowBox[{"0.00129", "*", "7111"}], "-",
RowBox[{"0.00077", "*", "6758"}], "-",
RowBox[{"0.00025", "*", "6063"}]}]}], "}"}]}]}]], "Input",
CellChangeTimes->{{3.65010701051226*^9, 3.650107133902597*^9}, {
3.650107813754983*^9, 3.650107892076412*^9}, {3.650108131378592*^9,
3.650108182681301*^9}, {3.6501162273607893`*^9, 3.650116280057994*^9}, {
3.650116451189814*^9, 3.650116522676629*^9}, 3.650116707602687*^9, {
3.650116752816834*^9, 3.6501168089212523`*^9}, {3.650117108291844*^9,
3.6501171861187973`*^9}, {3.650117311061509*^9, 3.650117382798664*^9}, {
3.650117596003462*^9, 3.650117601600955*^9}, {3.650117718046989*^9,
3.650117720075183*^9}, {3.650188317913825*^9, 3.6501883669015636`*^9}, {
3.650188456797183*^9, 3.65018847456915*^9}, {3.650188886639086*^9,
3.650188891129922*^9}}],
Cell[BoxData[
RowBox[{"{",
RowBox[{
"0.018298624166666666`", ",", "0.011632624250000003`", ",",
"0.005424488041666667`", ",", "0.0028032764333333336`", ",",
"0.00153724015`", ",",
RowBox[{"-", "0.00160595838`"}], ",",
RowBox[{"-", "0.003130770770666667`"}]}], "}"}]], "Output",
CellChangeTimes->{
3.650107893204924*^9, 3.650108183464201*^9, 3.650116280710161*^9,
3.650116523298225*^9, 3.6501168120207033`*^9, 3.650117191750165*^9,
3.650117384973248*^9, {3.650117596746928*^9, 3.650117601928462*^9},
3.650117720785139*^9, 3.650122341462181*^9, 3.6501881826763372`*^9,
3.650188368412407*^9, 3.650188475406369*^9, 3.650188891970392*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{"Nx", "=",
RowBox[{"{",
RowBox[{
RowBox[{
"48604", "+", "18431", "+", "9709", "+", "4891", "+", "7231", "+",
"4792"}], ",",
RowBox[{
"53305", "+", "18730", "+", "8333", "+", "2283", "+", "6386", "+",
"2455"}], ",",
RowBox[{"41715", "+", "8959", "+", "4439", "+", "2145", "+", "817"}], ",",
RowBox[{"76740", "+", "26258", "+", "10976"}], ",", "\[IndentingNewLine]",
RowBox[{"56098", "+", "41894", "+", "18373"}],
RowBox[{"(*",
RowBox[{",",
RowBox[{"87411", "+", "70620", "+", "23242"}]}], "*)"}], ",", "0", ",",
"0"}], "}"}]}], "\[IndentingNewLine]",
RowBox[{"Ny", "=",
RowBox[{"{",
RowBox[{
RowBox[{
"49192", "+", "21325", "+", "7317", "+", "26507", "+", "11947", "+",
"6149"}], ",",
RowBox[{
"79793", "+", "13661", "+", "6420", "+", "3454", "+", "6304", "+",
"3315"}], ",",
RowBox[{"46995", "+", "15707", "+", "6643", "+", "2208", "+", "1239"}],
",", "0", ",", "3579",
RowBox[{"(*",
RowBox[{",", "11341"}], "*)"}], ",", "0", ",", "0"}],
"}"}]}], "\[IndentingNewLine]",
RowBox[{"Nz", "=",
RowBox[{"{",
RowBox[{"0", ",", "0", ",",
RowBox[{
"31715", "+", "4366", "+", "47349", "+", "801", "+", "5236", "+", "174"}],
",",
RowBox[{
"62875", "+", "5248", "+", "167", "+", "34534", "+", "207", "+", "5180"}],
",",
RowBox[{
"72433", "+", "8814", "+", "9489", "+", "2278", "+", "159", "+", "3454",
"+", "1555"}],
RowBox[{"(*",
RowBox[{",",
RowBox[{
"1792", "+", "5284", "+", "2060", "+", "4628", "+", "816", "+",
"1661"}]}], "*)"}], ",",
RowBox[{"212533", "+", "22639"}], ",",
RowBox[{"185965", "+", "42320"}]}], "}"}]}]}], "Input",
CellChangeTimes->{{3.650107907525813*^9, 3.650107917819345*^9}, {
3.650107957124022*^9, 3.650107977375793*^9}, {3.6501080424604607`*^9,
3.650108082941074*^9}, {3.65010818812825*^9, 3.650108274621526*^9}, {
3.650116300577796*^9, 3.650116402307912*^9}, {3.650116536598785*^9,
3.650116567535033*^9}, {3.650116642827713*^9, 3.65011666550775*^9}, {
3.650116971263341*^9, 3.650117049576436*^9}, {3.650117215332999*^9,
3.65011726204844*^9}, {3.650117423397305*^9, 3.6501174477839193`*^9}, {
3.650117607374452*^9, 3.650117619379438*^9}, {3.650117710691392*^9,
3.6501177387359257`*^9}, {3.650188503566194*^9, 3.650188573537012*^9}, {
3.650188847492762*^9, 3.650188876753274*^9}}],
Cell[BoxData[
RowBox[{"{",
RowBox[{
"93658", ",", "91492", ",", "58075", ",", "113974", ",", "116365", ",", "0",
",", "0"}], "}"}]], "Output",
CellChangeTimes->{
3.6501177402066593`*^9, 3.650122342533305*^9, 3.65018818397622*^9,
3.650188537380324*^9, 3.650188574417934*^9, {3.650188872128607*^9,
3.650188877187495*^9}}],
Cell[BoxData[
RowBox[{"{",
RowBox[{
"122437", ",", "112947", ",", "72792", ",", "0", ",", "3579", ",", "0", ",",
"0"}], "}"}]], "Output",
CellChangeTimes->{
3.6501177402066593`*^9, 3.650122342533305*^9, 3.65018818397622*^9,
3.650188537380324*^9, 3.650188574417934*^9, {3.650188872128607*^9,
3.650188877188509*^9}}],
Cell[BoxData[
RowBox[{"{",
RowBox[{
"0", ",", "0", ",", "89641", ",", "108211", ",", "98182", ",", "235172",
",", "228285"}], "}"}]], "Output",
CellChangeTimes->{
3.6501177402066593`*^9, 3.650122342533305*^9, 3.65018818397622*^9,
3.650188537380324*^9, 3.650188574417934*^9, {3.650188872128607*^9,
3.6501888771893682`*^9}}]
}, Open ]],
Cell[BoxData[
RowBox[{
RowBox[{"plotFont", "=",
RowBox[{"{",
RowBox[{
RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",",
RowBox[{"FontSize", "\[Rule]", "12"}]}], "}"}]}], ";"}]], "Input"],
Cell[BoxData[
RowBox[{
RowBox[{"u", "=",
RowBox[{"ListPlot", "[",
RowBox[{
RowBox[{"Table", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{
RowBox[{"\[Epsilon]Ave", "[",
RowBox[{"[", "k", "]"}], "]"}], "*", "100"}], ",",
RowBox[{
FractionBox[
RowBox[{"Nx", "[",
RowBox[{"[", "k", "]"}], "]"}], "240000."], "+",
FractionBox[
RowBox[{"Ny", "[",
RowBox[{"[", "k", "]"}], "]"}], "240000."]}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"k", ",", "1", ",", "7"}], "}"}]}], "]"}], ",",
RowBox[{"AxesOrigin", "\[Rule]",
RowBox[{"{",
RowBox[{
RowBox[{"-", "1"}], ",", "0"}], "}"}]}], ",",
RowBox[{"AxesLabel", "\[Rule]",
RowBox[{"{",
RowBox[{"\"\<\[Epsilon] (%)\>\"", ",", "\"\<\[Phi]\>\""}], "}"}]}],
",",
RowBox[{"BaseStyle", "\[Rule]", "plotFont"}], ",",
RowBox[{"PlotRange", "\[Rule]",
RowBox[{"{",
RowBox[{
RowBox[{"-", "0.1"}], ",", "1.1"}], "}"}]}], ",",
RowBox[{"PlotStyle", "\[Rule]", "Blue"}], ",",
RowBox[{"ImageSize", "\[Rule]", "800"}]}], "]"}]}], ";"}]], "Input",
CellChangeTimes->{{3.650117462985037*^9, 3.650117542349983*^9}, {
3.65012238637875*^9, 3.650122471687475*^9}, {3.650122523940947*^9,
3.6501225334362497`*^9}, {3.650122864573008*^9, 3.650122886222912*^9}, {
3.650122922234578*^9, 3.650122923854208*^9}, {3.650123237790758*^9,
3.650123243820969*^9}, {3.650123308116474*^9, 3.650123324046302*^9}, {
3.650123359177732*^9, 3.6501233653120413`*^9}, {3.650123418883309*^9,
3.650123430938553*^9}, {3.650123981735775*^9, 3.6501239868393507`*^9}, {
3.650124175693118*^9, 3.650124196273423*^9}, 3.6501885823642263`*^9,
3.650188835180213*^9}],
Cell[BoxData[
RowBox[{
RowBox[{"t", "=",
RowBox[{"ListPlot", "[",
RowBox[{
RowBox[{"Table", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{
RowBox[{"\[Epsilon]Ave", "[",
RowBox[{"[", "k", "]"}], "]"}], "*", "100"}], ",",
FractionBox[
RowBox[{"Nz", "[",
RowBox[{"[", "k", "]"}], "]"}], "240000."]}], "}"}], ",",
RowBox[{"{",
RowBox[{"k", ",", "1", ",", "7"}], "}"}]}], "]"}], ",",
RowBox[{"AxesOrigin", "\[Rule]",
RowBox[{"{",
RowBox[{
RowBox[{"-", "1"}], ",", "0"}], "}"}]}], ",",
RowBox[{"AxesLabel", "\[Rule]",
RowBox[{"{",
RowBox[{"\"\<\[Epsilon] (%)\>\"", ",", "\"\<\[Phi]\>\""}], "}"}]}],
",",
RowBox[{"PlotRange", "\[Rule]",
RowBox[{"{",
RowBox[{
RowBox[{"-", "0.1"}], ",", "1.1"}], "}"}]}], ",",
RowBox[{"PlotStyle", "\[Rule]", "Orange"}]}], "]"}]}], ";"}]], "Input",
CellChangeTimes->{{3.650123060463697*^9, 3.6501230665920677`*^9}, {
3.650123160361663*^9, 3.650123163786051*^9}, {3.6501232699619713`*^9,
3.650123321455679*^9}, {3.65012336099298*^9, 3.6501233674841127`*^9}, {
3.650123416999004*^9, 3.6501234287253313`*^9}, {3.6501241990899343`*^9,
3.65012420026716*^9}, 3.6501885912937117`*^9, 3.650188837319189*^9}],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Fit", "[",
RowBox[{
RowBox[{"Table", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{
RowBox[{"\[Epsilon]Ave", "[",
RowBox[{"[", "k", "]"}], "]"}], "*", "100"}], ",",
RowBox[{
FractionBox[
RowBox[{"Nx", "[",
RowBox[{"[", "k", "]"}], "]"}], "240000."], "+",
FractionBox[
RowBox[{"Ny", "[",
RowBox[{"[", "k", "]"}], "]"}], "240000."]}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"k", ",", "1", ",", "7"}], "}"}]}], "]"}], ",",
RowBox[{"{",
RowBox[{"1", ",", "x", ",",
SuperscriptBox["x", "2"], ",",
SuperscriptBox["x", "3"], ",",
SuperscriptBox["x", "4"]}], "}"}], ",", "x"}], "]"}]], "Input",
CellChangeTimes->{{3.650122925699025*^9, 3.6501229821140003`*^9}, {
3.650123036157054*^9, 3.65012303741724*^9}, {3.650123353706233*^9,
3.650123354111988*^9}, {3.65012407634511*^9, 3.650124108158503*^9},
3.650188594730739*^9, {3.650188730004003*^9, 3.6501887614460697`*^9},
3.6501887963867407`*^9, 3.6501888383703337`*^9}],
Cell[BoxData[
RowBox[{"0.2737865425846048`", "\[VeryThinSpace]", "+",
RowBox[{"0.8366764453073986`", " ", "x"}], "-",
RowBox[{"0.5785855352673751`", " ",
SuperscriptBox["x", "2"]}], "+",
RowBox[{"0.3576698823542988`", " ",
SuperscriptBox["x", "3"]}], "-",
RowBox[{"0.10317153583381446`", " ",
SuperscriptBox["x", "4"]}]}]], "Output",
CellChangeTimes->{{3.650122957409174*^9, 3.650122982567161*^9},
3.65012303791568*^9, 3.650123164853672*^9, 3.6501232455822353`*^9,
3.6501233255378323`*^9, 3.6501233693476763`*^9, {3.6501234214707127`*^9,
3.650123432559411*^9}, 3.650123988743784*^9, {3.650124085659194*^9,
3.650124112489792*^9}, 3.650188187865114*^9, 3.650188595109811*^9,
3.650188732343693*^9, {3.6501887714957314`*^9, 3.650188796866691*^9},
3.650188896687478*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Fit", "[",
RowBox[{
RowBox[{"Table", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{
RowBox[{"\[Epsilon]Ave", "[",
RowBox[{"[", "k", "]"}], "]"}], "*", "100"}], ",",
FractionBox[
RowBox[{"Nz", "[",
RowBox[{"[", "k", "]"}], "]"}], "240000."]}], "}"}], ",",
RowBox[{"{",
RowBox[{"k", ",", "1", ",", "7"}], "}"}]}], "]"}], ",",
RowBox[{"{",
RowBox[{"1", ",", "x", ",",
SuperscriptBox["x", "2"], ",",
SuperscriptBox["x", "3"], ",",
SuperscriptBox["x", "4"]}], "}"}], ",", "x"}], "]"}]], "Input",
CellChangeTimes->{{3.6501230836546173`*^9, 3.650123088178525*^9}, {
3.650123355943012*^9, 3.6501233565552197`*^9}, {3.650124081035185*^9,
3.650124110986191*^9}, 3.650188596651566*^9, 3.650188731628262*^9, {
3.65018876599739*^9, 3.650188794606071*^9}, 3.6501888395801163`*^9}],
Cell[BoxData[
RowBox[{"0.6692323552664103`", "\[VeryThinSpace]", "-",
RowBox[{"0.8954231587167464`", " ", "x"}], "+",
RowBox[{"0.5807119152941623`", " ",
SuperscriptBox["x", "2"]}], "-",
RowBox[{"0.41373990649192893`", " ",
SuperscriptBox["x", "3"]}], "+",
RowBox[{"0.13892954905864366`", " ",
SuperscriptBox["x", "4"]}]}]], "Output",
CellChangeTimes->{
3.6501230902627373`*^9, 3.650123165669691*^9, 3.650123246376556*^9,
3.6501233260259647`*^9, 3.650123369960382*^9, {3.650123421955545*^9,
3.65012343324509*^9}, 3.650123989217161*^9, {3.650124084559338*^9,
3.650124111534606*^9}, 3.650188188612365*^9, 3.650188597007038*^9,
3.6501887329873953`*^9, {3.65018877069534*^9, 3.65018879750694*^9},
3.65018889761465*^9}]
}, Open ]],
Cell[BoxData[
RowBox[{
RowBox[{"v", "=",
RowBox[{"Plot", "[",
RowBox[{
RowBox[{"0.2737865425846048`", "\[VeryThinSpace]", "+",
RowBox[{"0.8366764453073986`", " ", "x"}], "-",
RowBox[{"0.5785855352673751`", " ",
SuperscriptBox["x", "2"]}], "+",
RowBox[{"0.3576698823542988`", " ",
SuperscriptBox["x", "3"]}], "-",
RowBox[{"0.10317153583381446`", " ",
SuperscriptBox["x", "4"]}]}], ",",
RowBox[{"{",
RowBox[{"x", ",",
RowBox[{"-", "0.6"}], ",", "2"}], "}"}]}], "]"}]}], ";"}]], "Input",
CellChangeTimes->{{3.650122985598507*^9, 3.650123043839631*^9}, {
3.650123375663965*^9, 3.6501234060249023`*^9}, {3.6501240906637506`*^9,
3.6501241163084393`*^9}, 3.650188601144374*^9, {3.65018873734029*^9,
3.650188738216915*^9}, {3.650188776433783*^9, 3.650188803778599*^9},
3.6501889198561077`*^9}],
Cell[BoxData[
RowBox[{
RowBox[{"s", "=",
RowBox[{"Plot", "[",
RowBox[{
RowBox[{"0.6692323552664103`", "\[VeryThinSpace]", "-",
RowBox[{"0.8954231587167464`", " ", "x"}], "+",
RowBox[{"0.5807119152941623`", " ",
SuperscriptBox["x", "2"]}], "-",
RowBox[{"0.41373990649192893`", " ",
SuperscriptBox["x", "3"]}], "+",
RowBox[{"0.13892954905864366`", " ",
SuperscriptBox["x", "4"]}]}], ",",
RowBox[{"{",
RowBox[{"x", ",",
RowBox[{"-", "2"}], ",", "1.3"}], "}"}], ",",
RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}]}], ";"}]], "Input",
CellChangeTimes->{{3.650123093039056*^9, 3.650123147598847*^9}, {
3.650123259020822*^9, 3.650123263700633*^9}, {3.650123379698511*^9,
3.6501234049429073`*^9}, {3.650124094958255*^9, 3.650124120666027*^9},
3.650188605876495*^9, 3.6501887424201727`*^9, {3.6501887808135967`*^9,
3.6501888087611933`*^9}, 3.650188923311091*^9}],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Legended", "[",
RowBox[{
RowBox[{"Show", "[",
RowBox[{"{",
RowBox[{"u", ",", "t", ",", "v", ",", "s"}], "}"}], "]"}], ",",
RowBox[{"Placed", "[",
RowBox[{
RowBox[{"PointLegend", "[",
RowBox[{
RowBox[{"{",
RowBox[{"Blue", ",", "Orange"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"\"\<\!\(\*SubscriptBox[\(\[Phi]\), \(\*SubscriptBox[\(a\), \
\(1\)]/\*SubscriptBox[\(a\), \(2\)]\)]\)\>\"", ",",
"\"\<\!\(\*SubscriptBox[\(\[Phi]\), \(c\)]\)\>\""}], "}"}]}], "]"}],
",", "Right"}], "]"}]}], "]"}]], "Input",
CellChangeTimes->{{3.650123763407928*^9, 3.650123768070127*^9}, {
3.650123914037957*^9, 3.6501240516650877`*^9}}],
Cell[BoxData[
TemplateBox[{GraphicsBox[{{{}, {{{}, {
Hue[0.67, 0.6, 0.6],
Directive[
PointSize[0.012833333333333334`],
AbsoluteThickness[1.6], FontSize -> 12,
RGBColor[0, 0, 1]],
PointBox[{{1.8298624166666666`, 0.9003958333333334}, {
1.1632624250000003`, 0.8518291666666667}, {0.5424488041666667,
0.5452791666666668}, {0.2803276433333334, 0.4748916666666667}, {
0.15372401500000002`, 0.4997666666666667}, {-0.160595838,
0.}, {-0.3130770770666667, 0.}}]}, {}}}, {}}, {{}, {{{}, {
Hue[0.67, 0.6, 0.6],
Directive[
PointSize[0.012833333333333334`],
AbsoluteThickness[1.6],
RGBColor[1, 0.5, 0]],
PointBox[{{1.8298624166666666`, 0.}, {1.1632624250000003`, 0.}, {
0.5424488041666667, 0.3735041666666667}, {0.2803276433333334,
0.45087916666666666`}, {0.15372401500000002`,
0.4090916666666667}, {-0.160595838,
0.9798833333333333}, {-0.3130770770666667,
0.9511875000000001}}]}, {}}}, {}}, {{{}, {}, {
Directive[
Opacity[1.],
RGBColor[0.368417, 0.506779, 0.709798],
AbsoluteThickness[1.6]],
LineBox[CompressedData["
1:eJwV1nk8VN0fB3DkqVA/kUilsqREIqVU+qiokCXZKpWlBUVEnkRS0SNbypLQ
IksiKtlKmQiPLCVpkZIlkbk3ZJu5M2N+5/nrvt73nLmvc+b13ZRdT9gcFhMR
EZESFRH572kXXiKvp9fD6o7ZPWbV0clqzbhRn6vVw7rxc2ei/rtOlk1VcIiK
eg9rWaCEtHJ1J8tSuOWnjGIPq+DX5yjR3E7WjsC3xUOT3axSgc6VoVOdrI1e
/bYF9d2spYUGneH/62Sp2s2L13DtZk2aStycGd7BGlYLkV58tYtFnU9vtD/W
zjKVr5usvv6dFSNl83C/3AfWxI6v051Mv7ICt08t26v/lmVgHBkSI9XGkpkn
zHDZUsPKbfTv9vjnA2utbI5tY1QJy6X8no8jWljbnlj+L9w4kXXFW/tLj0sT
qzd65ZHI7/cQNmGUa36klnX/VfA9/dhyzEipu/mwhsWKjr0VFxdejaZA0Tt+
WY9Zr6d+a7pp3oA79SdWiH68yvqecDRYKqEZe39UF8sO3UG4wh4fyc3vYXJX
e0dfSAmGYxr+ZUY/ID1Na1tFfSUU38bvmWv1GVVNdVJPuuvw48bBCI3HX1Du
pcucbHsLI4/8+vNdX5FwR9xsmtZ7rA80Ljjc1IH5gifLch9/xBc6yzjetRP7
RuZ9W89rQ0Lv2LDx5i4cdzLJWBz1Deo9uUymejf8Jwcm14R3woHn8F1X0I0r
86Wvt5D3rdaq8iPPezD7j1zZDXYPePtV8CzsB/wSx185XOuFl9Uvg+PrenHZ
ViqlTqcPZYl2rvXdvZjeJMp1+9OP29s2rLqb+BOHZFu3jCcO4JatxOlNa/uw
TCZizhMnCltclih+7OzDXc0ThSrzf6PdfOfMZ+f7wZVdtf5y+SDsgr3N7sn+
wtc9x5bEsIbgFpJb1nv/F3LjNFV3XRuG1u5Q1dm6A9ht99el385/cOtlaceR
hwN4NG61QnnzCMJ3D7u/0mEjOGS6mZXsKDa15F6yS2eD362bJzs2CjmT4BYH
GQoDK16ff1c3hoGhZr7pCQoWw6Xd0o1jGJo6rJnpQ+FRUfZWy7djyDynlSPw
pRCwIeyvhg9jiFbOvlTgT2GKKS5Xd49h4SGflmlnKCw4VBxXyh+Dxn6bfclh
FCxT0m/f1BlH/5x3X7RvUHgy9cwLj+RxXDjsf2jhSwoRMWf8fqeOo5czPcC1
ksIBuSANv9vjuLlcLzWrioKkSnBicPY4Fvj5LNSooeBqGOJ1pWgcjufSeGr1
FGT9LygVN4/DXjE2Z/A9hZNdkWdFJCaw5tPT800/Kexwj9ILnzGBaKU+pZE+
CgsHo35JzJoA03+lQuEXhXp+tN1shQmIuR6SOsCmoDL3ygr1JRM4Uxla0zFI
4Z1l/DfzzRMoLFtu+YhDQed5quH1wAm8CcraGCdB4w7j2/U9eAJ3hxRlwiRp
zDLYEb4sdAJpBYX8ACkag8WjjU8vTcDmc67C3pk0Ch5aOH2Nn8CCVyq75sjQ
0MwQnlEumEB9j/Kpg3NpqEe6leV1T0Bh38WrUKeRVGfgNNo7gYSxvUFzltKY
Om2WiOGvCQiaO70HiHsvPt/+ZnACBxbC96oGjcyzcz4N8SdgPLn603stGsq+
/46tUeBgbPa0fzX0aCxw1NR7ac5B4SZaXQE0JvfM1rKy4kDz7V8ZX4m79vHU
Omw4WFXgSN8xopF9sEGev4cD7ZVHBpZsoaFz9Biz1p0DZqtqgLIJDeOAvMqH
YRwEzEvd3WFGzn86/tmmCA4aZ6R6x5nTkDgT9KQpioN/Vty13LyTxpuz5lns
axwoepzcd9uChmM4O2JpOgd9Y7XXd1rTOJ6gaX37BQdp45MKx+xoWCbNNtWu
5EBH2shQwp6GbjJv84tqDt4kqC7MJh5PbdBrb+CgnPad9dWBRmjGMQWFLxwE
a5zPXreXRkJhXkfsOAfzI3xliw7QCCiK/6TEcPD7b71cw4M09pQENT8QcLDu
pOhoDfHCZ+ZV9eJcnFazS21xppFTyc6aOpuLK5y2pV9daTxv1vQKWcnFbYvc
hw+P0Pi4LqeBv4oL3f4uMZWjNIbuqC0P0ueiNL9eMp5YzVep729DLmJ+O+r7
utOIlpF28TXngpsxyVbypLHP5o/toaNczPw70mKdFw3/Z95Puj25yD5nmpVI
HKvClnHx5uLgXdOcYeKqPz1v9p/iQuVHbn6WN43l8R92OFzkIkV8bZbgBA3m
fdlGs9tcvKiXqjx+kobcxjWpdXe5cHCdCCsi1s58zN2WzcXWvvABhtjVP7dk
az4XEp1KyRf9aLyWS9MxLOdi6B/t42H+NLqD514pr+Ai6t+lWpXE/B8JtEEV
F9HxPRF8Yp3imFz911zYr14pf+IUjWS7c2o6n8h9NvR4bw2gUfiCd6HgCxei
ryqmnCJuXHK6S6uDi/ODPjpZxCLjPrc0esn+j98tRf+mMe8Azb/Xz0Xb8YNY
Qby61mOfOsXFLZcNNQ7E7kmuc1VHuNimGh2bQ3xhsiMgfZwLMaeq5jfEaUf2
fVjEcOFe/ylrhLhZ3/baAlEGmWrKUw1O0xi41TyUIs7gpNScuD3E4tMsrBSn
M/is5J57mnjtJ5MZ8tIMNF7ejyn8b//4dUdHWQb50gEJDcS35AcyU+YwcDJa
s6eH2EZ/4/DXuQymhx5q5xJPtY81XLSAwa220HnSgTSeneq87LKIwZI10+RV
ib0SV33MUGHw2MG/aQ1xa+tH72UaDLIdxrwciCNGl5V7ajEoniVmf4R4o1zQ
tPyVDMR29E34EQ/pNe0eXMVgjpzy7lDijN2L7ujqM0h01zwaRWzv50v5GTBQ
l7+gl0gsGf9qXclGBkn1d0pvElcUzgkn2YuXs6aMZBKfbDn6bv1WBmnWar25
xOp/niqd3cZg5dtzMQ+J22RmeLJMGSQXxLELiaN1D5SIWjCY+fvdZBGx0a5H
YsbWDL54VNQWE4/6iFld2k3+n/bmLf85J842tc6e7G+7ePIJsdOj7D7JvQyC
Pu6ye0Qs3czRs9jPYIda8UAecdWgWegVZwbLh5auyiYOkL7Z+M6NAWWspnmb
ePnKwblyRxkESKp9SCLusNx82N6TQflf6StjiK95xz9O9mLQ+llu/QVik9he
wRcfBr/EuCOniDn5a82U/Blod9Y6uRM/aLqcdPBvBsP3J/z2EDvT7d3pZ0i8
BIgbmBLPnqm98sdZBk8NjuStJa7VCg1SP8+g+VVivRrxmZ0t/7qHMQivkkqa
Rax9XE0u7x8Gt18azeSReOiOCnCmI8n5l+Sv/EFs2jCP63uVAS0/0/+/+OIP
HDcpSmBQ9moo4TrxI0nW1fHrDHoUqQNBxHPN3JYH3WIQETad2kT8sy5vX1ge
gyuTfe3FJL5T+gX3agsYnE66oR9HbDHdenR6IYN1zQv0PYiLto9Gx5QxUI49
qaxAfLF2Y0VSDYMNNjtTXEn+6f+MlWyrI/E74+yMVcQDf3XZz29kkJGls0iE
2MYkfPB2C4PSc+OqySS/F1c3Lb7/nYGdy9vUUpL/2+7pVun2MPhYHUwFEHtF
Jro9+8mgkKpMWU38zHp/dgPNQCnHfGYeqS+23yjN3zwGMXPa9cNI/Tnz0rop
QEjut6bWWZ84PaPIWyjGg51PUfdPXxq/PYIfz5Lk4cHORvYW4n/GpdbqzeXB
Id9Q+JPUu4K2E5/L5/PQLnb9QxRx6/P3gcaLeOgrs5nUJl58MfW5nToPR22V
jH1IvXwmrbnl9GoeLs/XiOk4Tr6/zMzihTUPQcoNpzw8SL2cUfDbxJaHs6tn
KY2Qer1hUCbujQMPiqI2UkHEEcVtLd8P8GBQzX4aTuq7yhYPRzEvHkStLMwv
HSb5ty/CbftlHgLFPqTpudAI3kSJN0fzMMVr8/500k8ylK2zHeN4UL4nt2cm
8VCfwi+P6zwcDpgi0kn6U6T/Pe/oLB5q3C+On3Ci8SKmNvBdJQ+mZ091GZD+
FrJMRGJhDbnPg+C8JNL/Nr0ySPas42Gr29vOYdIvKzgPSqa85SHqNxWZYUvs
Fj+y5isPnqoKjSO7aLw0cPZKGeehf0LtzHbSj0Nbb/B/cnnoDVr4KJL0a6MT
76P0BDzYit/f3kj6eWXmttzGKXxcChEkm5mS/JRe0Tc5i4+kpJNP9LbReNXL
dXbT5COFiTAsJfNDWKje0ENtPtQyn27p3ETmg/le5/i6fLSppd2eRlxt3Xkz
cR0fBt+4+3dtJC6v/fKvCfl9SHZ78zqSX1fjbbWc+cj8WmF5Tpf0I8MVO8YS
+FhMGTxIVCbn38TbqJvMR2f5C1bMYhpleK3rlcqHs/jcZWGLSL3ZfHh+bzof
/VU/R48p0bhkcvN3awEfG3vFvZcq0thiMTOxqI6PsrkJ9hazSD93orv8+HxU
LLry3FpAoWh/+ceHQj5+s90NZfkU8g5cbmCLCRD5Ilb4jqGQ4ryk2E1CgHoT
Y5OdZB4MPLQ/Yre8AI42nGrNEQr6x5u09XQEOHR2sWRSP5mfg/KD/rgJ8L9N
zqazWyjMM4qp8T8qQEX0u8qgZgrh4l7SE55kXbNSrvsNhb0xWhk8XwGGStq3
5TRQEL+dVy8eKkCAp37NPDL/OlTdV1RII+ub8vyul1KYnJ5duqFVAB+lDZ9+
pVBwbwoXrfgkQF2GtsQMMm+/v3rY3KhdAC1JM57mdQo585Z8N+4WYJ5L+oLD
8RR2aWVOtRwS4O6+IxufR1HItLpr5zxjEsa51qsFQRTMk26NhBlPwtnPaEH1
XgrWsraaDdsnYVlqklnpSME2VsJNxnwS1MEDi17YU3C65N9yc9ckQhaJUPk2
FI4HmD0uOTCJUZvAhgAzCrH24979p8l6ttfULAMKzfKWA+b5k0hQPxbiLU++
d13QKSsvhNP5o9diXrORes8o8ZmiEGqbJNxLatnoLr1o6qokRO5wSMDXV2z4
fJYofKwmRMiz9waLK9iIVpS/aK1H9msmGl4qZONVqvaSWGsh0qba2TaksLHq
zkEPiSghCuycI1d5sBH46K7S41ghOuQDzoocYePly953jteESD7mGtHgyoZl
17H1OTeEoPLjuhyd2PBUOS21PUeIwoTRi9ZWbNzNjMsPqxFib9qDm4Wr2fhV
9N5F67UQnca74nbpsqFTIy/f2iiE5B/mMr2CjYretBDVViGWeSjHLljKxhf1
+1ZV3ULYLJB6bq/IhvJaaornTyFKKjRef5vDhvv2lWUyA0JM7Xvb6iLLxvjR
4sUuw0J4Dp3ocZZiw/A0p3X6mBD9X7b/aJ/GRljEhsuPOEIsPuD2fbc4G/XJ
IYaOfCEejD56XyfChsz9ymGhUIjuroUv1wsG8H8subZF
"]]}}}, {{{}, {}, {
Directive[
Opacity[1.],
AbsoluteThickness[1.6],
RGBColor[1, 0, 0]],
LineBox[CompressedData["
1:eJwVTXk01AkcN9U2KSGv0kuzNcx2SVmpxOT7KxvFDnZ0vpBtx7UdjtBLNY15
jjYjN4PU1qwoUvTkiu+0oxyNcoaQaKJM4xy3mdnZPz7v8z7vc1HP+DE9F2ho
aDDU+J83yKUylUqFjid1y7Lu0QiX32QPP8yp0NDu+AGDDBoRmT/kWTSlwnOc
ldyEJBoh9Rnt/nNYhV06eRsjo2jE8+7J+taPKtw96DMXdp5GOFST8nMrVFi4
TBH9Zi+NCEnXv3D8igobP1vr/dNsRIgJm6H8SSVSBf0rTmoZEeW3p2q02hTo
wzk8wgukEgdjOyG0bh5n6M5sV+0NBEOa471NNIdmdm3DIfEUgn+s2TcmaxYz
Bxf3rScZEOwTJkuU6TN4f/GeVPPaNUS2r4RDCZ3G1zFD1NLY1YSjJPxRmPsU
agTUVcXwVhJxE0f8J45O4pZFmqaKBj1i5Wqu7po9E1hndOTV1KoVhHn9x1/t
jeVoYa+d2LRTh2iU0Sxf0sbxkqvbjrwILaKAUkMaII8hT0DRpXZqEtsk6Z7r
lCP4Xm/C/n4SmWi9mGxHejGMrO1xvIAjPxCOY9U/uUTKcHd/8aZnzIWEIvMk
vSpEil/Fj2xu3CERZj5Z5ETLb8g1UfrG9aog87TzsjDaALpUntnqs1QBt4KL
ROJeCTJjbG8m7J+FUHdZ972Hfcgyspve9WYKMoPCTVNSP6G/rpX38+IJuMnM
9Wso6MIHr4oOBj8ZB7vVWsOFnHZcaKWMPTozCrPX9cxyWC2oL9b0Wh40AgGM
tRUFH98h71vUO+Z3GVQ78aZiedVoHhhDd/KWgie/XrNOpwIF3gYvImVfwZRp
5sUueoAGYXuNT5X2w4LAKK5dVhIYen8JcWuXwJAs2jFYrxj8E5fqX5vpgxb7
yqtOX0TQn55C1XbrBRFTWmetL4ZAr/N2UzU94DiiL+i81gRt5dzCKHEX1HfN
+XUI3oMi4xf2JpMPcIB3ttnAqBMsGVXG3CttcLh33ev1x3rg3fkyh9RVrWBy
KCl0SVkv6I9k9Ic2N4EpycNNMPEZbP7Qsre+1ADzPDF5/bJ+mFaKGDfzxGAz
y1bQGV9BOiqN5++qgVtJ7vGN4YOw5lv39gszIhCQer7bpnwHIryXiNoihJ3O
WYnuLUPwIEAVa8EqgdcWi8OMQ0ZAL/5xpt+JApg47Uz+fHUUNhud83LIzYK+
S/ueSdPGQIMiqU/+OR52zsz+KxGMA2fWJXKT+0VkjnScuZEzDhpip5jghiD0
HyhZsO3xOAgbsxnS/SGY3xpy4OJztS7NCHIwvIxbC8dekmrVeT9hpridjYZn
B4U/Do2DR04bn6odgbrdHZUnLOTg8UmLYjkfiztaStzn6XLgiBadvuMSh45v
UpV398uhIdqCJcmJQ17pUesBezk8vWzVU8GMR3JKY0Wwmxw0fKua7wkSUOlY
+yKBq/Y3/n6IbJmMFNsc191RcnAm57pidDLS90XNd0Sr99Zms/Z2J2Oo8UE6
NVn9F7D5duD1FJwkvyx/ki0H09tby+XCVFylunvKJU8On/Cv68W6fDSfZM9N
PlX327XeWnrwMVBCt7Iuk8Pf9jImV8nH+E6Dzt5KOWzgvDKxZaTh06bZ0AiR
eo9V3FmbkYZvazvWbqmRg1C3avvywTSUCUvKxGJ1n90yrWORjv8BkWiNxg==
"]]}}}}, {DisplayFunction -> Identity, PlotRangePadding -> {{
Scaled[0.02],
Scaled[0.02]}, {0, 0}}, AxesOrigin -> {-1, 0},
PlotRange -> {{-1., 1.8298624166666666`}, {-0.1, 1.1}}, DisplayFunction ->
Identity, AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes -> {True, True}, AxesLabel -> {
FormBox["\"\[Epsilon] (%)\"", TraditionalForm],
FormBox["\"\[Phi]\"", TraditionalForm]}, AxesOrigin -> {-1, 0},
BaseStyle -> {FontWeight -> "Bold", FontSize -> 12}, DisplayFunction :>
Identity, Frame -> {{False, False}, {False, False}},
FrameLabel -> {{None, None}, {None, None}},
FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}},
GridLines -> {None, None}, GridLinesStyle -> Directive[
GrayLevel[0.5, 0.4]], ImageSize -> 800, Method -> {},
PlotRange -> {{-1., 1.8298624166666666`}, {-0.1, 1.1}},
PlotRangeClipping -> True, PlotRangePadding -> {{
Scaled[0.02],
Scaled[0.02]}, {0, 0}}, Ticks -> {Automatic, Automatic}}],FormBox[
FormBox[
TemplateBox[{
"\"\\!\\(\\*SubscriptBox[\\(\[Phi]\\), \\(\\*SubscriptBox[\\(a\\), \\(1\
\\)]/\\*SubscriptBox[\\(a\\), \\(2\\)]\\)]\\)\"",
"\"\\!\\(\\*SubscriptBox[\\(\[Phi]\\), \\(c\\)]\\)\""}, "PointLegend",
DisplayFunction -> (FormBox[
StyleBox[
StyleBox[
PaneBox[
TagBox[
GridBox[{{
TagBox[
GridBox[{{
GraphicsBox[{{}, {
Directive[
EdgeForm[
Directive[
Opacity[0.3],
GrayLevel[0]]],
PointSize[0.5],
AbsoluteThickness[1.6],
RGBColor[0, 0, 1]], {
Directive[
EdgeForm[
Directive[
Opacity[0.3],
GrayLevel[0]]],
PointSize[0.5],
AbsoluteThickness[1.6],
RGBColor[0, 0, 1]],
PointBox[
NCache[{
Scaled[{
Rational[1, 2],
Rational[1, 2]}]}, {
Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full,
ImageSize -> {10, 10}, PlotRangePadding -> None,
ImagePadding -> Automatic,
BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, {
GraphicsBox[{{}, {
Directive[
EdgeForm[
Directive[
Opacity[0.3],
GrayLevel[0]]],
PointSize[0.5],
AbsoluteThickness[1.6],
RGBColor[1, 0.5, 0]], {
Directive[
EdgeForm[
Directive[
Opacity[0.3],
GrayLevel[0]]],
PointSize[0.5],
AbsoluteThickness[1.6],
RGBColor[1, 0.5, 0]],
PointBox[
NCache[{
Scaled[{
Rational[1, 2],
Rational[1, 2]}]}, {
Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full,
ImageSize -> {10, 10}, PlotRangePadding -> None,
ImagePadding -> Automatic,
BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}},
GridBoxAlignment -> {
"Columns" -> {Center, Left}, "Rows" -> {{Baseline}}},
AutoDelete -> False,
GridBoxDividers -> {
"Columns" -> {{False}}, "Rows" -> {{False}}},
GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
GridBoxSpacings -> {
"Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}},
GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}},
AutoDelete -> False,
GridBoxItemSize -> {
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}],
"Grid"], Alignment -> Left, AppearanceElements -> None,
ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction ->
"ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
FontFamily -> "Arial"}, Background -> Automatic, StripOnInput ->
False], TraditionalForm]& ),
InterpretationFunction :> (RowBox[{"PointLegend", "[",
RowBox[{
RowBox[{"{",
RowBox[{
InterpretationBox[
ButtonBox[
TooltipBox[
GraphicsBox[{{
GrayLevel[0],
RectangleBox[{0, 0}]}, {
GrayLevel[0],
RectangleBox[{1, -1}]}, {
RGBColor[0, 0, 1],
RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame ->
True, FrameStyle -> RGBColor[0., 0., 0.6666666666666666],
FrameTicks -> None, PlotRangePadding -> None, ImageSize ->
Dynamic[{
Automatic, 1.35 CurrentValue["FontCapHeight"]/
AbsoluteCurrentValue[Magnification]}]],
"RGBColor[0, 0, 1]"], Appearance -> None, BaseStyle -> {},
BaselinePosition -> Baseline, DefaultBaseStyle -> {},
ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]},
If[
Not[
AbsoluteCurrentValue["Deployed"]],
SelectionMove[Typeset`box$, All, Expression];
FrontEnd`Private`$ColorSelectorInitialAlpha = 1;
FrontEnd`Private`$ColorSelectorInitialColor =
RGBColor[0, 0, 1];
FrontEnd`Private`$ColorSelectorUseMakeBoxes = True;
MathLink`CallFrontEnd[
FrontEnd`AttachCell[Typeset`box$,
FrontEndResource["RGBColorValueSelector"], {
0, {Left, Bottom}}, {Left, Top},
"ClosingActions" -> {
"SelectionDeparture", "ParentChanged",
"EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator ->
Automatic, Method -> "Preemptive"],
RGBColor[0, 0, 1], Editable -> False, Selectable -> False],
",",
InterpretationBox[
ButtonBox[
TooltipBox[
GraphicsBox[{{
GrayLevel[0],
RectangleBox[{0, 0}]}, {
GrayLevel[0],
RectangleBox[{1, -1}]}, {
RGBColor[1, 0.5, 0],
RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame ->
True, FrameStyle ->
RGBColor[0.6666666666666666, 0.33333333333333337`, 0.],
FrameTicks -> None, PlotRangePadding -> None, ImageSize ->
Dynamic[{
Automatic, 1.35 CurrentValue["FontCapHeight"]/
AbsoluteCurrentValue[Magnification]}]],
"RGBColor[1, 0.5, 0]"], Appearance -> None, BaseStyle -> {},
BaselinePosition -> Baseline, DefaultBaseStyle -> {},
ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]},
If[
Not[
AbsoluteCurrentValue["Deployed"]],
SelectionMove[Typeset`box$, All, Expression];
FrontEnd`Private`$ColorSelectorInitialAlpha = 1;
FrontEnd`Private`$ColorSelectorInitialColor =
RGBColor[1, 0.5, 0];
FrontEnd`Private`$ColorSelectorUseMakeBoxes = True;
MathLink`CallFrontEnd[
FrontEnd`AttachCell[Typeset`box$,
FrontEndResource["RGBColorValueSelector"], {
0, {Left, Bottom}}, {Left, Top},
"ClosingActions" -> {
"SelectionDeparture", "ParentChanged",
"EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator ->
Automatic, Method -> "Preemptive"],
RGBColor[1, 0.5, 0], Editable -> False, Selectable ->
False]}], "}"}], ",",
RowBox[{"{",
RowBox[{#, ",", #2}], "}"}]}], "]"}]& ), Editable -> True],
TraditionalForm], TraditionalForm]},
"Legended",
DisplayFunction->(GridBox[{{
TagBox[
ItemBox[
PaneBox[
TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline},
BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"],
"SkipImageSizeLevel"],
ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}},
GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}},
AutoDelete -> False, GridBoxItemSize -> Automatic,
BaselinePosition -> {1, 1}]& ),
Editable->True,
InterpretationFunction->(RowBox[{"Legended", "[",
RowBox[{#, ",",
RowBox[{"Placed", "[",
RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
CellChangeTimes->{
3.650123768400226*^9, {3.650123916781156*^9, 3.650123924244197*^9}, {
3.650123957353052*^9, 3.6501240519907923`*^9}, {3.650124098205017*^9,
3.650124122791272*^9}, {3.650124181133504*^9, 3.65012420214607*^9},
3.650188191666369*^9, 3.6501886090154333`*^9, 3.650188744989806*^9, {
3.650188783239938*^9, 3.650188810548924*^9}, {3.6501889043411016`*^9,
3.65018892580865*^9}}]
}, Open ]]
},
WindowSize->{1044, 695},
WindowMargins->{{78, Automatic}, {Automatic, 129}},
FrontEndVersion->"10.1 for Linux x86 (64-bit) (March 23, 2015)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)
(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 295, 6, 32, "Input"],
Cell[878, 30, 161, 3, 32, "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[1076, 38, 3492, 79, 281, "Input"],
Cell[4571, 119, 674, 13, 32, "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[5282, 137, 2473, 59, 187, "Input"],
Cell[7758, 198, 340, 8, 32, "Output"],
Cell[8101, 208, 335, 8, 32, "Output"],
Cell[8439, 218, 343, 8, 32, "Output"]
}, Open ]],
Cell[8797, 229, 215, 6, 32, "Input"],
Cell[9015, 237, 1837, 44, 110, "Input"],
Cell[10855, 283, 1348, 34, 88, "Input"],
Cell[CellGroupData[{
Cell[12228, 321, 1095, 28, 56, "Input"],
Cell[13326, 351, 815, 15, 34, "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[14178, 371, 913, 23, 56, "Input"],
Cell[15094, 396, 762, 15, 34, "Output"]
}, Open ]],
Cell[15871, 414, 891, 20, 62, "Input"],
Cell[16765, 436, 967, 21, 62, "Input"],
Cell[CellGroupData[{
Cell[17757, 461, 732, 19, 35, "Input"],
Cell[18492, 482, 18450, 356, 500, "Output"]
}, Open ]]
}
]
*)
(* End of internal cache information *)