-
Notifications
You must be signed in to change notification settings - Fork 0
/
180w4w9genus5.nb
1880 lines (1785 loc) · 78.5 KB
/
180w4w9genus5.nb
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896
897
898
899
900
901
902
903
904
905
906
907
908
909
910
911
912
913
914
915
916
917
918
919
920
921
922
923
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
948
949
950
951
952
953
954
955
956
957
958
959
960
961
962
963
964
965
966
967
968
969
970
971
972
973
974
975
976
977
978
979
980
981
982
983
984
985
986
987
988
989
990
991
992
993
994
995
996
997
998
999
1000
(* Content-type: application/vnd.wolfram.mathematica *)
(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)
(* CreatedBy='Mathematica 11.0' *)
(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[ 158, 7]
NotebookDataLength[ 78386, 1872]
NotebookOptionsPosition[ 74622, 1754]
NotebookOutlinePosition[ 74965, 1769]
CellTagsIndexPosition[ 74922, 1766]
WindowFrame->Normal*)
(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
RowBox[{
RowBox[{"f1", "=",
RowBox[{"q", "-",
RowBox[{"q", "^", "2"}], "-",
RowBox[{"q", "^", "3"}], "-",
RowBox[{"q", "^", "4"}], "+",
RowBox[{"q", "^", "5"}], "+",
RowBox[{"q", "^", "6"}], "+",
RowBox[{"3", "*",
RowBox[{"q", "^", "8"}]}], "+",
RowBox[{"q", "^", "9"}], "-",
RowBox[{"q", "^", "10"}], "-",
RowBox[{"4", "*",
RowBox[{"q", "^", "11"}]}], "+",
RowBox[{"q", "^", "12"}], "-",
RowBox[{"2", "*",
RowBox[{"q", "^", "13"}]}], "-",
RowBox[{"q", "^", "15"}], "-",
RowBox[{"q", "^", "16"}], "+",
RowBox[{"2", "*",
RowBox[{"q", "^", "17"}]}], "-",
RowBox[{"q", "^", "18"}], "+",
RowBox[{"4", "*",
RowBox[{"q", "^", "19"}]}], "-",
RowBox[{"q", "^", "20"}], "+",
RowBox[{"4", "*",
RowBox[{"q", "^", "22"}]}], "-",
RowBox[{"3", "*",
RowBox[{"q", "^", "24"}]}], "+",
RowBox[{"q", "^", "25"}], "+",
RowBox[{"2", "*",
RowBox[{"q", "^", "26"}]}], "-",
RowBox[{"q", "^", "27"}], "-",
RowBox[{"2", "*",
RowBox[{"q", "^", "29"}]}]}]}], ";",
RowBox[{"f2", "=",
RowBox[{"q", "-",
RowBox[{"q", "^", "2"}], "+",
RowBox[{"q", "^", "3"}], "+",
RowBox[{"q", "^", "4"}], "-",
RowBox[{"q", "^", "5"}], "-",
RowBox[{"q", "^", "6"}], "-",
RowBox[{"4", "*",
RowBox[{"q", "^", "7"}]}], "-",
RowBox[{"q", "^", "8"}], "+",
RowBox[{"q", "^", "9"}], "+",
RowBox[{"q", "^", "10"}], "+",
RowBox[{"q", "^", "12"}], "+",
RowBox[{"2", "*",
RowBox[{"q", "^", "13"}]}], "+",
RowBox[{"4", "*",
RowBox[{"q", "^", "14"}]}], "-",
RowBox[{"q", "^", "15"}], "+",
RowBox[{"q", "^", "16"}], "+",
RowBox[{"6", "*",
RowBox[{"q", "^", "17"}]}], "-",
RowBox[{"q", "^", "18"}], "-",
RowBox[{"4", "*",
RowBox[{"q", "^", "19"}]}], "-",
RowBox[{"q", "^", "20"}], "-",
RowBox[{"4", "*",
RowBox[{"q", "^", "21"}]}], "-",
RowBox[{"q", "^", "24"}], "+",
RowBox[{"q", "^", "25"}], "-",
RowBox[{"2", "*",
RowBox[{"q", "^", "26"}]}], "+",
RowBox[{"q", "^", "27"}], "-",
RowBox[{"4", "*",
RowBox[{"q", "^", "28"}]}], "-",
RowBox[{"6", "*",
RowBox[{"q", "^", "29"}]}]}]}], ";",
RowBox[{"f3", "=",
RowBox[{"q", "-",
RowBox[{"q", "^", "2"}], "+",
RowBox[{"q", "^", "4"}], "+",
RowBox[{"q", "^", "5"}], "+",
RowBox[{"2", "*",
RowBox[{"q", "^", "7"}]}], "-",
RowBox[{"q", "^", "8"}], "-",
RowBox[{"q", "^", "10"}], "+",
RowBox[{"6", "*",
RowBox[{"q", "^", "11"}]}], "-",
RowBox[{"4", "*",
RowBox[{"q", "^", "13"}]}], "-",
RowBox[{"2", "*",
RowBox[{"q", "^", "14"}]}], "+",
RowBox[{"q", "^", "16"}], "-",
RowBox[{"6", "*",
RowBox[{"q", "^", "17"}]}], "-",
RowBox[{"4", "*",
RowBox[{"q", "^", "19"}]}], "+",
RowBox[{"q", "^", "20"}], "-",
RowBox[{"6", "*",
RowBox[{"q", "^", "22"}]}], "+",
RowBox[{"q", "^", "25"}], "+",
RowBox[{"4", "*",
RowBox[{"q", "^", "26"}]}], "+",
RowBox[{"2", "*",
RowBox[{"q", "^", "28"}]}], "-",
RowBox[{"6", "*",
RowBox[{"q", "^", "29"}]}]}]}], ";",
RowBox[{"f4", "=",
RowBox[{"q", "+",
RowBox[{"q", "^", "2"}], "+",
RowBox[{"q", "^", "4"}], "-",
RowBox[{"q", "^", "5"}], "+",
RowBox[{"2", "*",
RowBox[{"q", "^", "7"}]}], "+",
RowBox[{"q", "^", "8"}], "-",
RowBox[{"q", "^", "10"}], "-",
RowBox[{"6", "*",
RowBox[{"q", "^", "11"}]}], "-",
RowBox[{"4", "*",
RowBox[{"q", "^", "13"}]}], "+",
RowBox[{"2", "*",
RowBox[{"q", "^", "14"}]}], "+",
RowBox[{"q", "^", "16"}], "+",
RowBox[{"6", "*",
RowBox[{"q", "^", "17"}]}], "-",
RowBox[{"4", "*",
RowBox[{"q", "^", "19"}]}], "-",
RowBox[{"q", "^", "20"}], "-",
RowBox[{"6", "*",
RowBox[{"q", "^", "22"}]}], "+",
RowBox[{"q", "^", "25"}], "-",
RowBox[{"4", "*",
RowBox[{"q", "^", "26"}]}], "+",
RowBox[{"2", "*",
RowBox[{"q", "^", "28"}]}], "+",
RowBox[{"6", "*",
RowBox[{"q", "^", "29"}]}]}]}], ";"}]], "Input",
CellChangeTimes->{{3.8305740511928*^9, 3.8305740512028*^9}, {
3.8305740889407997`*^9, 3.8305741569938*^9}, {3.8305745226538*^9,
3.8305745291888*^9}}],
Cell[BoxData[""], "Input",
CellChangeTimes->{{3.8305726325708*^9, 3.8305726355598*^9}, {
3.8305728380048*^9, 3.8305730066387997`*^9}, 3.8305740795848*^9}],
Cell[BoxData[""], "Input",
CellChangeTimes->{{3.8305706480508003`*^9, 3.8305706480608*^9}, {
3.8305707133828*^9, 3.8305708057678003`*^9}, 3.8305726607098*^9}],
Cell[BoxData[""], "Input",
CellChangeTimes->{{3.830238159877*^9, 3.8302382058310003`*^9}, {
3.8302384888*^9, 3.830238501458*^9}, 3.8303984137889*^9}],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"\[IndentingNewLine]",
RowBox[{
RowBox[{"l4", "=",
RowBox[{"Table", "[",
RowBox[{
RowBox[{"Coefficient", "[",
RowBox[{"f4", ",", "q", ",",
RowBox[{"Prime", "[", "i", "]"}]}], "]"}], ",",
RowBox[{"{",
RowBox[{"i", ",", "2", ",", "10"}], "}"}]}], "]"}]}],
"\[IndentingNewLine]",
RowBox[{"l3", "=",
RowBox[{"Table", "[",
RowBox[{
RowBox[{"Coefficient", "[",
RowBox[{"f3", ",", "q", ",",
RowBox[{"Prime", "[", "i", "]"}]}], "]"}], ",",
RowBox[{"{",
RowBox[{"i", ",", "2", ",", "10"}], "}"}]}], "]"}]}],
"\[IndentingNewLine]",
RowBox[{"l1", "=",
RowBox[{"Table", "[",
RowBox[{
RowBox[{"Coefficient", "[",
RowBox[{"f1", ",", "q", ",",
RowBox[{"Prime", "[", "i", "]"}]}], "]"}], ",",
RowBox[{"{",
RowBox[{"i", ",", "2", ",", "10"}], "}"}]}], "]"}]}],
"\[IndentingNewLine]",
RowBox[{"l2", "=",
RowBox[{"Table", "[",
RowBox[{
RowBox[{"Coefficient", "[",
RowBox[{"f2", ",", "q", ",",
RowBox[{"Prime", "[", "i", "]"}]}], "]"}], ",",
RowBox[{"{",
RowBox[{"i", ",", "2", ",", "10"}], "}"}]}], "]"}]}],
"\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]",
RowBox[{"Table", "[", " ",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"l1", "[",
RowBox[{"[", "i", "]"}], "]"}], " ",
RowBox[{"JacobiSymbol", "[",
RowBox[{
RowBox[{"-", "3"}], ",",
RowBox[{"Prime", "[",
RowBox[{"i", "+", "1"}], "]"}]}], "]"}]}], "-",
RowBox[{"l2", "[",
RowBox[{"[", "i", "]"}], "]"}]}], ",",
RowBox[{"{",
RowBox[{"i", ",", "1", ",", "9"}], "}"}]}], "]"}],
"\[IndentingNewLine]",
RowBox[{"Table", "[", " ",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"l3", "[",
RowBox[{"[", "i", "]"}], "]"}], " ",
RowBox[{"JacobiSymbol", "[",
RowBox[{
RowBox[{"-", "3"}], ",",
RowBox[{"Prime", "[",
RowBox[{"i", "+", "1"}], "]"}]}], "]"}]}], "-",
RowBox[{"l4", "[",
RowBox[{"[", "i", "]"}], "]"}]}], ",",
RowBox[{"{",
RowBox[{"i", ",", "1", ",", "9"}], "}"}]}], "]"}],
"\[IndentingNewLine]"}]}]], "Input",
CellChangeTimes->{{3.830238105934*^9, 3.830238113901*^9}, {3.830238250483*^9,
3.83023826669*^9}, 3.8304931467754*^9, {3.8304932288834*^9,
3.8304932443654003`*^9}, {3.8304933078344*^9, 3.8304933085274*^9}, {
3.8304933739024*^9, 3.8304934265084*^9}, {3.8304934649234*^9,
3.8304934775364*^9}, {3.8304937011303997`*^9, 3.8304937023014*^9}, {
3.8305708589948*^9, 3.8305708595158*^9}, {3.8305746849198*^9,
3.8305747153677998`*^9}}],
Cell[BoxData[
RowBox[{"{",
RowBox[{"0", ",",
RowBox[{"-", "1"}], ",", "2", ",",
RowBox[{"-", "6"}], ",",
RowBox[{"-", "4"}], ",", "6", ",",
RowBox[{"-", "4"}], ",", "0", ",", "6"}], "}"}]], "Output",
CellChangeTimes->{
3.830238474842*^9, 3.830238530491*^9, 3.830238574881*^9, 3.830238644766*^9,
3.830238714546*^9, 3.8302387714639997`*^9, 3.830238835517*^9,
3.830245745421*^9, 3.8302458347745*^9, 3.830245872693*^9,
3.8302459064165*^9, {3.8302459380065002`*^9, 3.830245960474*^9}, {
3.830328265257*^9, 3.830328283061*^9}, 3.830336209101*^9,
3.830336243703*^9, 3.8303363051949997`*^9, 3.830337864851*^9,
3.8304017910529003`*^9, 3.8304018253549*^9, {3.8304019337459*^9,
3.8304019587778997`*^9}, 3.8304208916979*^9, 3.8304211392389*^9, {
3.8304211724189*^9, 3.8304211876039*^9}, 3.8304371496789*^9,
3.8304932498444*^9, 3.8304933142414*^9, {3.8304934129564*^9,
3.8304934307324*^9}, {3.8304934697883997`*^9, 3.8304934818594*^9},
3.8304937109584*^9, 3.8304941626534*^9, 3.8304943272174*^9,
3.8304944099164*^9, {3.8304944441094*^9, 3.8304944799934*^9},
3.8304945264964*^9, 3.8304948742874002`*^9, 3.8304949393444*^9,
3.8304949840494003`*^9, 3.8304957502664003`*^9, {3.8304957909384003`*^9,
3.8304958089554*^9}, 3.8304959100014*^9, {3.8304959683744*^9,
3.8304959943424*^9}, 3.8304960428194*^9, {3.8304965306524*^9,
3.8304965823384*^9}, 3.8304966233964*^9, 3.8304966675304003`*^9,
3.8304974039323997`*^9, 3.8304974419004*^9, 3.8304976242124*^9,
3.8304977117494*^9, 3.8304977730354*^9, 3.8305708306188*^9,
3.8305708646698*^9, 3.8305711256298*^9, 3.8305715396628*^9,
3.8305716810838003`*^9, {3.8305717605708*^9, 3.8305717836507998`*^9},
3.8305718591788*^9, 3.8305731316628*^9, 3.8305733531798*^9,
3.8305735114308*^9, 3.8305735977648*^9, 3.8305745406368*^9,
3.8305747191228*^9, 3.8305748828618*^9, 3.8305749423828*^9, {
3.8305751781598*^9, 3.8305752040268*^9}, 3.8305757004458*^9}],
Cell[BoxData[
RowBox[{"{",
RowBox[{"0", ",", "1", ",", "2", ",", "6", ",",
RowBox[{"-", "4"}], ",",
RowBox[{"-", "6"}], ",",
RowBox[{"-", "4"}], ",", "0", ",",
RowBox[{"-", "6"}]}], "}"}]], "Output",
CellChangeTimes->{
3.830238474842*^9, 3.830238530491*^9, 3.830238574881*^9, 3.830238644766*^9,
3.830238714546*^9, 3.8302387714639997`*^9, 3.830238835517*^9,
3.830245745421*^9, 3.8302458347745*^9, 3.830245872693*^9,
3.8302459064165*^9, {3.8302459380065002`*^9, 3.830245960474*^9}, {
3.830328265257*^9, 3.830328283061*^9}, 3.830336209101*^9,
3.830336243703*^9, 3.8303363051949997`*^9, 3.830337864851*^9,
3.8304017910529003`*^9, 3.8304018253549*^9, {3.8304019337459*^9,
3.8304019587778997`*^9}, 3.8304208916979*^9, 3.8304211392389*^9, {
3.8304211724189*^9, 3.8304211876039*^9}, 3.8304371496789*^9,
3.8304932498444*^9, 3.8304933142414*^9, {3.8304934129564*^9,
3.8304934307324*^9}, {3.8304934697883997`*^9, 3.8304934818594*^9},
3.8304937109584*^9, 3.8304941626534*^9, 3.8304943272174*^9,
3.8304944099164*^9, {3.8304944441094*^9, 3.8304944799934*^9},
3.8304945264964*^9, 3.8304948742874002`*^9, 3.8304949393444*^9,
3.8304949840494003`*^9, 3.8304957502664003`*^9, {3.8304957909384003`*^9,
3.8304958089554*^9}, 3.8304959100014*^9, {3.8304959683744*^9,
3.8304959943424*^9}, 3.8304960428194*^9, {3.8304965306524*^9,
3.8304965823384*^9}, 3.8304966233964*^9, 3.8304966675304003`*^9,
3.8304974039323997`*^9, 3.8304974419004*^9, 3.8304976242124*^9,
3.8304977117494*^9, 3.8304977730354*^9, 3.8305708306188*^9,
3.8305708646698*^9, 3.8305711256298*^9, 3.8305715396628*^9,
3.8305716810838003`*^9, {3.8305717605708*^9, 3.8305717836507998`*^9},
3.8305718591788*^9, 3.8305731316628*^9, 3.8305733531798*^9,
3.8305735114308*^9, 3.8305735977648*^9, 3.8305745406368*^9,
3.8305747191228*^9, 3.8305748828618*^9, 3.8305749423828*^9, {
3.8305751781598*^9, 3.8305752040268*^9}, 3.8305757004558*^9}],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"-", "1"}], ",", "1", ",", "0", ",",
RowBox[{"-", "4"}], ",",
RowBox[{"-", "2"}], ",", "2", ",", "4", ",", "0", ",",
RowBox[{"-", "2"}]}], "}"}]], "Output",
CellChangeTimes->{
3.830238474842*^9, 3.830238530491*^9, 3.830238574881*^9, 3.830238644766*^9,
3.830238714546*^9, 3.8302387714639997`*^9, 3.830238835517*^9,
3.830245745421*^9, 3.8302458347745*^9, 3.830245872693*^9,
3.8302459064165*^9, {3.8302459380065002`*^9, 3.830245960474*^9}, {
3.830328265257*^9, 3.830328283061*^9}, 3.830336209101*^9,
3.830336243703*^9, 3.8303363051949997`*^9, 3.830337864851*^9,
3.8304017910529003`*^9, 3.8304018253549*^9, {3.8304019337459*^9,
3.8304019587778997`*^9}, 3.8304208916979*^9, 3.8304211392389*^9, {
3.8304211724189*^9, 3.8304211876039*^9}, 3.8304371496789*^9,
3.8304932498444*^9, 3.8304933142414*^9, {3.8304934129564*^9,
3.8304934307324*^9}, {3.8304934697883997`*^9, 3.8304934818594*^9},
3.8304937109584*^9, 3.8304941626534*^9, 3.8304943272174*^9,
3.8304944099164*^9, {3.8304944441094*^9, 3.8304944799934*^9},
3.8304945264964*^9, 3.8304948742874002`*^9, 3.8304949393444*^9,
3.8304949840494003`*^9, 3.8304957502664003`*^9, {3.8304957909384003`*^9,
3.8304958089554*^9}, 3.8304959100014*^9, {3.8304959683744*^9,
3.8304959943424*^9}, 3.8304960428194*^9, {3.8304965306524*^9,
3.8304965823384*^9}, 3.8304966233964*^9, 3.8304966675304003`*^9,
3.8304974039323997`*^9, 3.8304974419004*^9, 3.8304976242124*^9,
3.8304977117494*^9, 3.8304977730354*^9, 3.8305708306188*^9,
3.8305708646698*^9, 3.8305711256298*^9, 3.8305715396628*^9,
3.8305716810838003`*^9, {3.8305717605708*^9, 3.8305717836507998`*^9},
3.8305718591788*^9, 3.8305731316628*^9, 3.8305733531798*^9,
3.8305735114308*^9, 3.8305735977648*^9, 3.8305745406368*^9,
3.8305747191228*^9, 3.8305748828618*^9, 3.8305749423828*^9, {
3.8305751781598*^9, 3.8305752040268*^9}, 3.8305757004658003`*^9}],
Cell[BoxData[
RowBox[{"{",
RowBox[{"1", ",",
RowBox[{"-", "1"}], ",",
RowBox[{"-", "4"}], ",", "0", ",", "2", ",", "6", ",",
RowBox[{"-", "4"}], ",", "0", ",",
RowBox[{"-", "6"}]}], "}"}]], "Output",
CellChangeTimes->{
3.830238474842*^9, 3.830238530491*^9, 3.830238574881*^9, 3.830238644766*^9,
3.830238714546*^9, 3.8302387714639997`*^9, 3.830238835517*^9,
3.830245745421*^9, 3.8302458347745*^9, 3.830245872693*^9,
3.8302459064165*^9, {3.8302459380065002`*^9, 3.830245960474*^9}, {
3.830328265257*^9, 3.830328283061*^9}, 3.830336209101*^9,
3.830336243703*^9, 3.8303363051949997`*^9, 3.830337864851*^9,
3.8304017910529003`*^9, 3.8304018253549*^9, {3.8304019337459*^9,
3.8304019587778997`*^9}, 3.8304208916979*^9, 3.8304211392389*^9, {
3.8304211724189*^9, 3.8304211876039*^9}, 3.8304371496789*^9,
3.8304932498444*^9, 3.8304933142414*^9, {3.8304934129564*^9,
3.8304934307324*^9}, {3.8304934697883997`*^9, 3.8304934818594*^9},
3.8304937109584*^9, 3.8304941626534*^9, 3.8304943272174*^9,
3.8304944099164*^9, {3.8304944441094*^9, 3.8304944799934*^9},
3.8304945264964*^9, 3.8304948742874002`*^9, 3.8304949393444*^9,
3.8304949840494003`*^9, 3.8304957502664003`*^9, {3.8304957909384003`*^9,
3.8304958089554*^9}, 3.8304959100014*^9, {3.8304959683744*^9,
3.8304959943424*^9}, 3.8304960428194*^9, {3.8304965306524*^9,
3.8304965823384*^9}, 3.8304966233964*^9, 3.8304966675304003`*^9,
3.8304974039323997`*^9, 3.8304974419004*^9, 3.8304976242124*^9,
3.8304977117494*^9, 3.8304977730354*^9, 3.8305708306188*^9,
3.8305708646698*^9, 3.8305711256298*^9, 3.8305715396628*^9,
3.8305716810838003`*^9, {3.8305717605708*^9, 3.8305717836507998`*^9},
3.8305718591788*^9, 3.8305731316628*^9, 3.8305733531798*^9,
3.8305735114308*^9, 3.8305735977648*^9, 3.8305745406368*^9,
3.8305747191228*^9, 3.8305748828618*^9, 3.8305749423828*^9, {
3.8305751781598*^9, 3.8305752040268*^9}, 3.8305757004658003`*^9}],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"-", "1"}], ",", "0", ",", "4", ",", "4", ",",
RowBox[{"-", "4"}], ",",
RowBox[{"-", "8"}], ",", "8", ",", "0", ",", "8"}], "}"}]], "Output",
CellChangeTimes->{
3.830238474842*^9, 3.830238530491*^9, 3.830238574881*^9, 3.830238644766*^9,
3.830238714546*^9, 3.8302387714639997`*^9, 3.830238835517*^9,
3.830245745421*^9, 3.8302458347745*^9, 3.830245872693*^9,
3.8302459064165*^9, {3.8302459380065002`*^9, 3.830245960474*^9}, {
3.830328265257*^9, 3.830328283061*^9}, 3.830336209101*^9,
3.830336243703*^9, 3.8303363051949997`*^9, 3.830337864851*^9,
3.8304017910529003`*^9, 3.8304018253549*^9, {3.8304019337459*^9,
3.8304019587778997`*^9}, 3.8304208916979*^9, 3.8304211392389*^9, {
3.8304211724189*^9, 3.8304211876039*^9}, 3.8304371496789*^9,
3.8304932498444*^9, 3.8304933142414*^9, {3.8304934129564*^9,
3.8304934307324*^9}, {3.8304934697883997`*^9, 3.8304934818594*^9},
3.8304937109584*^9, 3.8304941626534*^9, 3.8304943272174*^9,
3.8304944099164*^9, {3.8304944441094*^9, 3.8304944799934*^9},
3.8304945264964*^9, 3.8304948742874002`*^9, 3.8304949393444*^9,
3.8304949840494003`*^9, 3.8304957502664003`*^9, {3.8304957909384003`*^9,
3.8304958089554*^9}, 3.8304959100014*^9, {3.8304959683744*^9,
3.8304959943424*^9}, 3.8304960428194*^9, {3.8304965306524*^9,
3.8304965823384*^9}, 3.8304966233964*^9, 3.8304966675304003`*^9,
3.8304974039323997`*^9, 3.8304974419004*^9, 3.8304976242124*^9,
3.8304977117494*^9, 3.8304977730354*^9, 3.8305708306188*^9,
3.8305708646698*^9, 3.8305711256298*^9, 3.8305715396628*^9,
3.8305716810838003`*^9, {3.8305717605708*^9, 3.8305717836507998`*^9},
3.8305718591788*^9, 3.8305731316628*^9, 3.8305733531798*^9,
3.8305735114308*^9, 3.8305735977648*^9, 3.8305745406368*^9,
3.8305747191228*^9, 3.8305748828618*^9, 3.8305749423828*^9, {
3.8305751781598*^9, 3.8305752040268*^9}, 3.8305757004758*^9}],
Cell[BoxData[
RowBox[{"{",
RowBox[{
"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0",
",", "0"}], "}"}]], "Output",
CellChangeTimes->{
3.830238474842*^9, 3.830238530491*^9, 3.830238574881*^9, 3.830238644766*^9,
3.830238714546*^9, 3.8302387714639997`*^9, 3.830238835517*^9,
3.830245745421*^9, 3.8302458347745*^9, 3.830245872693*^9,
3.8302459064165*^9, {3.8302459380065002`*^9, 3.830245960474*^9}, {
3.830328265257*^9, 3.830328283061*^9}, 3.830336209101*^9,
3.830336243703*^9, 3.8303363051949997`*^9, 3.830337864851*^9,
3.8304017910529003`*^9, 3.8304018253549*^9, {3.8304019337459*^9,
3.8304019587778997`*^9}, 3.8304208916979*^9, 3.8304211392389*^9, {
3.8304211724189*^9, 3.8304211876039*^9}, 3.8304371496789*^9,
3.8304932498444*^9, 3.8304933142414*^9, {3.8304934129564*^9,
3.8304934307324*^9}, {3.8304934697883997`*^9, 3.8304934818594*^9},
3.8304937109584*^9, 3.8304941626534*^9, 3.8304943272174*^9,
3.8304944099164*^9, {3.8304944441094*^9, 3.8304944799934*^9},
3.8304945264964*^9, 3.8304948742874002`*^9, 3.8304949393444*^9,
3.8304949840494003`*^9, 3.8304957502664003`*^9, {3.8304957909384003`*^9,
3.8304958089554*^9}, 3.8304959100014*^9, {3.8304959683744*^9,
3.8304959943424*^9}, 3.8304960428194*^9, {3.8304965306524*^9,
3.8304965823384*^9}, 3.8304966233964*^9, 3.8304966675304003`*^9,
3.8304974039323997`*^9, 3.8304974419004*^9, 3.8304976242124*^9,
3.8304977117494*^9, 3.8304977730354*^9, 3.8305708306188*^9,
3.8305708646698*^9, 3.8305711256298*^9, 3.8305715396628*^9,
3.8305716810838003`*^9, {3.8305717605708*^9, 3.8305717836507998`*^9},
3.8305718591788*^9, 3.8305731316628*^9, 3.8305733531798*^9,
3.8305735114308*^9, 3.8305735977648*^9, 3.8305745406368*^9,
3.8305747191228*^9, 3.8305748828618*^9, 3.8305749423828*^9, {
3.8305751781598*^9, 3.8305752040268*^9}, 3.8305757004858*^9}]
}, Open ]],
Cell[BoxData["\[IndentingNewLine]"], "Input",
CellChangeTimes->{{3.830230920564*^9, 3.8302309787720003`*^9}, {
3.830231236672*^9, 3.830231295641*^9}, {3.830231486748*^9,
3.830231487158*^9}, {3.830231573318*^9, 3.8302316269119997`*^9}, {
3.830238103542*^9, 3.830238103692*^9}, {3.8302382817939997`*^9,
3.830238282476*^9}}],
Cell[BoxData[""], "Input",
CellChangeTimes->{3.830231579825*^9, 3.830238287292*^9}],
Cell[BoxData[""], "Input",
CellChangeTimes->{{3.830231657259*^9, 3.8302316745629997`*^9}, {
3.830232383914*^9, 3.830232408177*^9}, {3.830232486433*^9,
3.830232532165*^9}, 3.83023271156*^9, {3.830238297178*^9,
3.830238308535*^9}, {3.830238631043*^9, 3.8302386354890003`*^9},
3.8303984359159*^9}],
Cell[BoxData[
RowBox[{"\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"f11", "=",
RowBox[{"f1", "+",
RowBox[{"3",
RowBox[{"(",
RowBox[{"f1", "/.",
RowBox[{"q", "\[Rule]",
RowBox[{"q", "^", "3"}]}]}], ")"}]}]}]}], ";"}],
"\[IndentingNewLine]",
RowBox[{
RowBox[{"f111", "=",
RowBox[{"f11", "+",
RowBox[{"2",
RowBox[{"(",
RowBox[{"f11", "/.",
RowBox[{"q", "\[Rule]",
RowBox[{"q", "^", "2"}]}]}], ")"}]}]}]}], ";"}],
"\[IndentingNewLine]",
RowBox[{
RowBox[{"f112", "=",
RowBox[{"f11", "-",
RowBox[{"2",
RowBox[{"(",
RowBox[{"f11", "/.",
RowBox[{"q", "\[Rule]",
RowBox[{"q", "^", "2"}]}]}], ")"}]}]}]}], ";"}],
"\[IndentingNewLine]",
RowBox[{
RowBox[{"g1", "=",
RowBox[{"f111", "+",
RowBox[{"2",
RowBox[{"(",
RowBox[{"f111", "/.",
RowBox[{"q", "\[Rule]",
RowBox[{"q", "^", "2"}]}]}], ")"}]}]}]}], ";"}],
"\[IndentingNewLine]",
RowBox[{
RowBox[{"g2", "=",
RowBox[{"f112", "-",
RowBox[{"2",
RowBox[{"(",
RowBox[{"f112", "/.",
RowBox[{"q", "\[Rule]",
RowBox[{"q", "^", "2"}]}]}], ")"}]}]}]}], ";"}],
"\[IndentingNewLine]", "\[IndentingNewLine]",
RowBox[{
RowBox[{"f21", "=",
RowBox[{"f2", "+",
RowBox[{"2",
RowBox[{"(",
RowBox[{"f2", "/.",
RowBox[{"q", "\[Rule]",
RowBox[{"q", "^", "2"}]}]}], ")"}]}]}]}], ";"}],
"\[IndentingNewLine]",
RowBox[{
RowBox[{"g3", "=",
RowBox[{"f21", "-",
RowBox[{"3",
RowBox[{"(",
RowBox[{"f21", "/.",
RowBox[{"q", "\[Rule]",
RowBox[{"q", "^", "3"}]}]}], ")"}]}]}]}], ";"}],
"\[IndentingNewLine]"}]}]], "Input",
CellChangeTimes->{{3.830226730762*^9, 3.8302269923789997`*^9}, {
3.8302313660150003`*^9, 3.830231417317*^9}, 3.8302328047390003`*^9, {
3.8302383242679996`*^9, 3.830238388719*^9}, {3.830238693317*^9,
3.830238694381*^9}, 3.830238737942*^9, {3.8304016994779*^9,
3.8304017620709*^9}, {3.8304939741724*^9, 3.8304941017483997`*^9}, {
3.8305709692798*^9, 3.8305710952188*^9}, {3.8305732345498*^9,
3.8305732352798*^9}, {3.8305747851458*^9, 3.8305748514748*^9}}],
Cell[BoxData[{
RowBox[{
RowBox[{"g4", "=",
RowBox[{"f3", "+",
RowBox[{"2",
RowBox[{"(",
RowBox[{"f3", "/.",
RowBox[{"q", "\[Rule]",
RowBox[{"q", "^", "2"}]}]}], ")"}]}]}]}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"g5", "=",
RowBox[{"f4", "-",
RowBox[{"2",
RowBox[{"(",
RowBox[{"f4", "/.",
RowBox[{"q", "\[Rule]",
RowBox[{"q", "^", "2"}]}]}], ")"}]}]}]}], ";"}]}], "Input",
CellChangeTimes->{{3.830238394533*^9, 3.8302384145699997`*^9}, {
3.8302385647790003`*^9, 3.830238565469*^9}, {3.8303984530889*^9,
3.8303984589979*^9}, 3.8304018199009*^9, {3.8304941388954*^9,
3.8304941393654003`*^9}, {3.8305711054678*^9, 3.8305711153908*^9}, {
3.8305732951038*^9, 3.8305733405738*^9}, {3.8305748639828*^9,
3.8305748695478*^9}}],
Cell[BoxData[""], "Input",
CellChangeTimes->{{3.830227011594*^9, 3.8302270257539997`*^9}, {
3.83022780649*^9, 3.830227809361*^9}, 3.830231422203*^9}],
Cell[BoxData[{
RowBox[{
RowBox[{"h1", "=",
RowBox[{"Series", "[",
RowBox[{"g1", ",",
RowBox[{"{",
RowBox[{"q", ",", "0", ",", "23"}], "}"}]}], "]"}]}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"h2", "=",
RowBox[{"Series", "[",
RowBox[{"g2", ",",
RowBox[{"{",
RowBox[{"q", ",", "0", ",", "23"}], "}"}]}], "]"}]}], ";"}],
" "}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"h3", "=",
RowBox[{"Series", "[",
RowBox[{"g3", ",",
RowBox[{"{",
RowBox[{"q", ",", "0", ",", "23"}], "}"}]}], "]"}]}], ";"}],
" "}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"h4", "=",
RowBox[{"Series", "[",
RowBox[{"g4", ",",
RowBox[{"{",
RowBox[{"q", ",", "0", ",", "23"}], "}"}]}], "]"}]}], ";"}],
" "}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"h5", "=",
RowBox[{"Series", "[",
RowBox[{"g5", ",",
RowBox[{"{",
RowBox[{"q", ",", "0", ",", "23"}], "}"}]}], "]"}]}], ";"}],
" "}]}], "Input",
CellChangeTimes->{{3.830227053168*^9, 3.830227086734*^9}, {
3.8302327470299997`*^9, 3.830232756075*^9}, {3.8303984453339*^9,
3.8303984472258997`*^9}, {3.8305733453368*^9, 3.8305733458368*^9}}],
Cell[BoxData[""], "Input",
CellChangeTimes->{{3.830232770541*^9, 3.8302327709309998`*^9}, {
3.830232810992*^9, 3.830232811212*^9}}],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"P0", "=",
RowBox[{
RowBox[{"{",
RowBox[{
"a1", ",", "a2", ",", "a3", ",", "a4", ",", "a5", ",", "a6", ",", "a7",
",", "a8", ",", "a9", ",", "a10", ",", "a11", ",", "a12", ",", " ",
"a13", ",", "a14", ",", "a15"}], "}"}], ".",
RowBox[{"{",
RowBox[{
RowBox[{"x", "^", "2"}], ",",
RowBox[{"y", "^", "2"}], ",",
RowBox[{"z", "^", "2"}], ",",
RowBox[{"t", "^", "2"}], ",",
RowBox[{"s", "^", "2"}], ",", " ",
RowBox[{"x", " ", "y"}], ",", " ",
RowBox[{"x", " ", "z"}], ",", " ",
RowBox[{"x", " ", "t"}], ",", " ",
RowBox[{"x", " ", "s"}], ",", " ",
RowBox[{"y", " ", "z"}], ",", " ",
RowBox[{"y", " ", "t"}], ",",
RowBox[{"y", " ", "s"}], ",",
RowBox[{"z", " ", "t"}], ",",
RowBox[{"z", " ", "s"}], ",", " ",
RowBox[{"t", " ", "s"}]}], "}"}]}]}]], "Input"],
Cell[BoxData[
RowBox[{
RowBox[{"a5", " ",
SuperscriptBox["s", "2"]}], "+",
RowBox[{"a15", " ", "s", " ", "t"}], "+",
RowBox[{"a4", " ",
SuperscriptBox["t", "2"]}], "+",
RowBox[{"a9", " ", "s", " ", "x"}], "+",
RowBox[{"a8", " ", "t", " ", "x"}], "+",
RowBox[{"a1", " ",
SuperscriptBox["x", "2"]}], "+",
RowBox[{"a12", " ", "s", " ", "y"}], "+",
RowBox[{"a11", " ", "t", " ", "y"}], "+",
RowBox[{"a6", " ", "x", " ", "y"}], "+",
RowBox[{"a2", " ",
SuperscriptBox["y", "2"]}], "+",
RowBox[{"a14", " ", "s", " ", "z"}], "+",
RowBox[{"a13", " ", "t", " ", "z"}], "+",
RowBox[{"a7", " ", "x", " ", "z"}], "+",
RowBox[{"a10", " ", "y", " ", "z"}], "+",
RowBox[{"a3", " ",
SuperscriptBox["z", "2"]}]}]], "Output",
CellChangeTimes->{
3.8302276515109997`*^9, 3.8302278129379997`*^9, {3.830227844209*^9,
3.830227867644*^9}, {3.830227926023*^9, 3.8302279559709997`*^9},
3.8302279889110003`*^9, 3.8302280391400003`*^9, 3.830228085189*^9,
3.830228116079*^9, 3.830228168885*^9, 3.8302282251070004`*^9, {
3.830228316031*^9, 3.830228340803*^9}, 3.83022838854*^9, {
3.830228441098*^9, 3.830228468259*^9}, 3.830231309211*^9,
3.830231432108*^9, 3.830231527034*^9, {3.830231585407*^9,
3.8302316318570004`*^9}, {3.8302323898269997`*^9, 3.830232412439*^9}, {
3.8302324944820004`*^9, 3.830232519344*^9}, 3.830232683495*^9,
3.830232717766*^9, 3.830232776097*^9, {3.830232815565*^9,
3.830232833541*^9}, 3.830232903658*^9, 3.830233030917*^9,
3.83023309434*^9, {3.8302331249630003`*^9, 3.8302331425690002`*^9},
3.830233370293*^9, 3.830238475142*^9, 3.8302385306210003`*^9,
3.830238575211*^9, 3.830238645086*^9, 3.8302387148789997`*^9,
3.830238771814*^9, 3.830238835807*^9, 3.830245745731*^9,
3.8302458351345*^9, 3.8302458730055*^9, 3.830245906719*^9, {
3.8302459383465*^9, 3.8302459608065*^9}, {3.830328265507*^9,
3.830328283341*^9}, 3.830336209381*^9, 3.830336243913*^9,
3.830336305415*^9, 3.830337865101*^9, 3.8304017913649*^9,
3.8304018256249*^9, {3.8304019339559*^9, 3.8304019590579*^9},
3.8304208918979*^9, 3.8304211395209*^9, {3.8304211726399*^9,
3.8304211878139*^9}, 3.8304371500289*^9, 3.8304932502743998`*^9,
3.8304933146024*^9, {3.8304934132564*^9, 3.8304934311124*^9}, {
3.8304934700284*^9, 3.8304934820994*^9}, 3.8304937113084*^9,
3.8304941629533997`*^9, 3.8304943275074*^9, 3.8304944102264*^9, {
3.8304944443694*^9, 3.8304944803434*^9}, 3.8304945268174*^9,
3.8304948746184*^9, 3.8304949397033997`*^9, 3.8304949843604*^9,
3.8304957505764*^9, {3.8304957911884003`*^9, 3.8304958093054*^9},
3.8304959103924*^9, {3.8304959686144*^9, 3.8304959946624002`*^9},
3.8304960430794*^9, {3.8304965309034*^9, 3.8304965827293997`*^9},
3.8304966240754004`*^9, 3.8304966679904003`*^9, 3.8304974042724*^9,
3.8304974421604*^9, 3.8304976249924*^9, 3.8304977120694*^9,
3.8304977733854*^9, 3.8305708309288*^9, 3.8305708648998003`*^9,
3.8305711260098*^9, 3.8305715399628*^9, 3.8305716813248*^9, {
3.8305717609007998`*^9, 3.8305717838908*^9}, 3.8305718594898*^9,
3.8305731319128*^9, 3.8305733534708*^9, 3.8305735116608*^9,
3.8305735980048*^9, 3.8305745409768*^9, 3.8305747193528*^9,
3.8305748831317997`*^9, 3.8305749426828003`*^9, {3.8305751784098*^9,
3.8305752042668*^9}, 3.8305757006958*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"Q", "=",
RowBox[{"P0", "/.",
RowBox[{"{",
RowBox[{
RowBox[{"x", "\[Rule]", "h1"}], ",",
RowBox[{"y", "\[Rule]", "h2"}], ",",
RowBox[{"z", "\[Rule]", "h3"}], ",",
RowBox[{"t", "\[Rule]", "h4"}], ",",
RowBox[{"s", "\[Rule]", "h5"}]}], "}"}]}]}], ";",
RowBox[{"l", "=",
RowBox[{"Table", "[", " ",
RowBox[{
RowBox[{"Coefficient", "[",
RowBox[{"Q", ",", "q", ",", "i"}], "]"}], ",", " ",
RowBox[{"{",
RowBox[{"i", ",", "2", ",", "25"}], "}"}]}], "]"}]}], ";",
RowBox[{"T", "=",
RowBox[{
RowBox[{"Solve", "[",
RowBox[{
RowBox[{"{",
RowBox[{"l", "\[Equal]",
RowBox[{"{",
RowBox[{
"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",",
"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0",
",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",",
"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
"a1", ",", "a2", ",", "a3", ",", "a4", ",", "a5", ",", "a6", ",", "a7",
",", "a8", ",", "a9", ",", "a10", ",", "a11", ",", "a12", ",", "a13",
",", "a14", ",", "a15"}], "}"}]}], "]"}], "[",
RowBox[{"[", "1", "]"}], "]"}]}]}]], "Input"],
Cell[BoxData[
TemplateBox[{
"Solve","svars",
"\"Equations may not give solutions for all \\\"solve\\\" variables.\"",2,
1164,52,25705277550633247239,"Local"},
"MessageTemplate"]], "Message", "MSG",
CellChangeTimes->{
3.8305748832118*^9, 3.8305749427728*^9, {3.8305751784798*^9,
3.8305752043368*^9}, 3.8305757007658*^9}],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"a3", "\[Rule]",
RowBox[{
RowBox[{"3", " ", "a1"}], "+", "a2"}]}], ",",
RowBox[{"a4", "\[Rule]",
RowBox[{
RowBox[{
RowBox[{"-", "5"}], " ", "a1"}], "+", "a2"}]}], ",",
RowBox[{"a5", "\[Rule]",
RowBox[{"a1", "-",
RowBox[{"5", " ", "a2"}]}]}], ",",
RowBox[{"a6", "\[Rule]",
RowBox[{"2", " ", "a2"}]}], ",",
RowBox[{"a7", "\[Rule]", "0"}], ",",
RowBox[{"a8", "\[Rule]", "0"}], ",",
RowBox[{"a10", "\[Rule]", "0"}], ",",
RowBox[{"a11", "\[Rule]", "0"}], ",",
RowBox[{"a12", "\[Rule]", "0"}], ",",
RowBox[{"a13", "\[Rule]",
RowBox[{"-", "a9"}]}], ",",
RowBox[{"a14", "\[Rule]", "0"}], ",",
RowBox[{"a15", "\[Rule]", "0"}]}], "}"}]], "Output",
CellChangeTimes->{
3.8302276518929996`*^9, 3.830227813108*^9, {3.830227844369*^9,
3.830227867804*^9}, {3.830227926233*^9, 3.830227956141*^9},
3.8302279890810003`*^9, 3.83022803935*^9, 3.8302280853389997`*^9,
3.830228116249*^9, 3.8302281690550003`*^9, 3.830228225347*^9, {
3.8302283162209997`*^9, 3.830228340983*^9}, 3.8302283886800003`*^9, {
3.8302284412679996`*^9, 3.830228468439*^9}, 3.830231309311*^9,
3.830231432238*^9, 3.830231527144*^9, {3.830231585527*^9,
3.8302316333269997`*^9}, {3.8302323900179996`*^9, 3.830232412609*^9}, {
3.8302324946619997`*^9, 3.830232519674*^9}, 3.8302326837650003`*^9,
3.83023271798*^9, 3.830232776321*^9, {3.830232815745*^9,
3.8302328337209997`*^9}, 3.830232903858*^9, 3.830233031087*^9,
3.83023309451*^9, {3.830233125113*^9, 3.830233142729*^9},
3.830233370443*^9, 3.8302385301400003`*^9, 3.8302385715559998`*^9,
3.830238641142*^9, 3.830238710351*^9, {3.830238766682*^9,
3.830238771994*^9}, 3.8302388359969997`*^9, 3.830245745901*^9,
3.8302458352945004`*^9, 3.8302458731654997`*^9, 3.8302459068789997`*^9, {
3.8302459385065002`*^9, 3.8302459609565*^9}, {3.8303282656470003`*^9,
3.830328283491*^9}, 3.830336209521*^9, 3.830336244043*^9,
3.830336305565*^9, 3.8303378652209997`*^9, 3.8304017915049*^9,
3.8304018258149*^9, {3.8304019340959*^9, 3.8304019592389*^9},
3.8304208920379*^9, 3.8304211396499*^9, {3.8304211727799*^9,
3.8304211879439*^9}, 3.8304371501989*^9, 3.8304932503543997`*^9,
3.8304933146924*^9, {3.8304934133564*^9, 3.8304934312134*^9}, {
3.8304934700984*^9, 3.8304934821794*^9}, 3.8304937113984003`*^9,
3.8304941631134*^9, 3.8304943276994*^9, 3.8304944103964*^9, {
3.8304944445094*^9, 3.8304944805234003`*^9}, 3.8304945269774*^9,
3.8304948747883997`*^9, 3.8304949398754*^9, 3.8304949845304003`*^9,
3.8304957507474003`*^9, {3.8304957913194*^9, 3.8304958094454*^9},
3.8304959105824003`*^9, {3.8304959687483997`*^9, 3.8304959948434*^9},
3.8304960432494*^9, {3.8304965310734*^9, 3.8304965829094*^9},
3.8304966241854*^9, 3.8304966681604*^9, 3.8304974044124002`*^9,
3.8304974423004*^9, 3.8304976251344*^9, 3.8304977121994*^9,
3.8304977735554*^9, 3.8305708310488*^9, 3.8305708649798*^9,
3.8305711261598*^9, 3.8305715401428003`*^9, 3.8305716814547997`*^9, {
3.8305717610708*^9, 3.8305717840408*^9}, 3.8305718596698*^9,
3.8305731319927998`*^9, 3.8305733536308002`*^9, 3.8305735118008003`*^9,
3.8305735981348*^9, 3.8305745410668*^9, 3.8305747194348*^9,
3.8305748832718*^9, 3.8305749428428*^9, {3.8305751785298*^9,
3.8305752043968*^9}, 3.8305757008358*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
RowBox[{"QQ", "=",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"P0", "/.", "T"}], ")"}], "//", "Expand"}], "//", "Factor"}], "//",
"Numerator"}]}], ";"}], "\[IndentingNewLine]",
RowBox[{"QQ", "/.",
RowBox[{"{",
RowBox[{
RowBox[{"x", "\[Rule]", "h1"}], ",",
RowBox[{"y", "\[Rule]", "h2"}], ",",
RowBox[{"z", "\[Rule]", "h3"}], ",",
RowBox[{"t", "\[Rule]", "h4"}], ",",
RowBox[{"s", "\[Rule]", "h5"}]}],
"}"}]}], "\[IndentingNewLine]"}], "Input",
CellChangeTimes->{{3.830227170212*^9, 3.830227193098*^9}}],
Cell[BoxData[
InterpretationBox[
SuperscriptBox[
RowBox[{"O", "[", "q", "]"}], "25"],
SeriesData[$CellContext`q, 0, {}, 25, 25, 1],
Editable->False]], "Output",
CellChangeTimes->{
3.830227652113*^9, 3.830227813198*^9, {3.830227844399*^9,
3.830227867844*^9}, {3.830227926263*^9, 3.8302279561809998`*^9},
3.830227989131*^9, 3.83022803941*^9, 3.8302280853789997`*^9,
3.830228116289*^9, 3.8302281690950003`*^9, 3.8302282253970003`*^9, {
3.830228316251*^9, 3.830228341033*^9}, 3.8302283887200003`*^9, {
3.830228441299*^9, 3.8302284684890003`*^9}, 3.830231309351*^9,
3.830231432278*^9, 3.8302315271940002`*^9, {3.830231585567*^9,
3.830231633387*^9}, {3.830232390068*^9, 3.830232412639*^9}, {
3.830232494692*^9, 3.8302325197939997`*^9}, 3.830232683906*^9,
3.83023271808*^9, 3.830232776361*^9, {3.830232815775*^9,
3.830232833751*^9}, 3.830232903889*^9, 3.830233031117*^9,
3.83023309454*^9, {3.8302331251429996`*^9, 3.830233142759*^9},
3.830233370473*^9, 3.83023853019*^9, 3.830238772034*^9, 3.830238836027*^9,
3.830245745941*^9, 3.8302458353345003`*^9, 3.8302458731955*^9,
3.8302459069189997`*^9, {3.8302459385465*^9, 3.8302459610065002`*^9}, {
3.830328265677*^9, 3.830328283531*^9}, 3.830336209591*^9,
3.830336244073*^9, 3.8303363055950003`*^9, 3.830337865271*^9,
3.8304017915849*^9, 3.8304018258549*^9, {3.8304019341259003`*^9,
3.8304019592689*^9}, 3.8304208920678997`*^9, 3.8304211396759*^9, {
3.8304211727999*^9, 3.8304211879739*^9}, 3.8304371502789*^9,
3.8304932503844*^9, 3.8304933147223997`*^9, {3.8304934133964*^9,
3.8304934312434*^9}, {3.8304934701284*^9, 3.8304934821994*^9},
3.8304937114384003`*^9, 3.8304941632134*^9, 3.8304943277544003`*^9,
3.8304944104364*^9, {3.8304944445394*^9, 3.8304944805734*^9},
3.8304945270174*^9, 3.8304948748283997`*^9, 3.8304949399104*^9,
3.8304949845604*^9, 3.8304957507874002`*^9, {3.8304957913494*^9,
3.8304958094754*^9}, 3.8304959106224003`*^9, {3.8304959687784*^9,
3.8304959948733997`*^9}, 3.8304960432894*^9, {3.8304965310934*^9,
3.8304965829494*^9}, 3.8304966242054*^9, 3.8304966681904*^9,
3.8304974044824*^9, 3.8304974423403997`*^9, 3.8304976251864*^9,
3.8304977122293997`*^9, 3.8304977735954*^9, 3.8305708310688*^9,
3.8305708650098*^9, 3.8305711263398*^9, 3.8305715402427998`*^9,
3.8305716814848003`*^9, {3.8305717611008*^9, 3.8305717840608*^9},
3.8305718597098*^9, 3.8305731320228*^9, 3.8305733537008*^9,
3.8305735118308*^9, 3.8305735982148*^9, 3.8305745410968*^9,
3.8305747194538*^9, 3.8305748833018*^9, 3.8305749428728*^9, {
3.8305751785598*^9, 3.8305752044268*^9}, 3.8305757008557997`*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{"QQx", "=",
RowBox[{
RowBox[{"(",
RowBox[{"QQ", "-",
RowBox[{"(",
RowBox[{"QQ", "/.",
RowBox[{"z", "\[Rule]",
RowBox[{"-", "z"}]}]}], ")"}]}], ")"}], "//",
"Factor"}]}], "\[IndentingNewLine]",
RowBox[{"lx", "=",
RowBox[{"{",
RowBox[{
RowBox[{"Coefficient", "[",
RowBox[{"QQx", ",", "x"}], "]"}], ",",
RowBox[{"Coefficient", "[",
RowBox[{"QQx", ",", "y"}], "]"}], ",",
RowBox[{"Coefficient", "[",
RowBox[{"QQx", ",", "z"}], "]"}], ",",
RowBox[{"Coefficient", "[",
RowBox[{"QQx", ",", "t"}], "]"}], ",",
RowBox[{"Coefficient", "[",
RowBox[{"QQx", ",", "s"}], "]"}]}], "}"}]}], "\[IndentingNewLine]",
RowBox[{"Solve", "[",
RowBox[{
RowBox[{"lx", "\[Equal]",
RowBox[{"{",
RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]}], ",",
RowBox[{"{",
RowBox[{"a1", ",", "a2", ",", "a9"}], "}"}]}], "]"}]}], "Input",
CellChangeTimes->{{3.8302272179560003`*^9, 3.830227267356*^9},
3.830227836212*^9, {3.830232554983*^9, 3.830232561244*^9},
3.8302328276940002`*^9, 3.8302328741730003`*^9, {3.830238426675*^9,
3.830238429061*^9}, {3.830238805913*^9, 3.830238806165*^9},
3.830328278269*^9, 3.8304019030849*^9, 3.8304019532258997`*^9, {
3.8304942194674*^9, 3.8304942338884*^9}, {3.8305714125558*^9,
3.8305714265768003`*^9}, 3.8305734055418*^9, 3.8305749192028*^9}],
Cell[BoxData[
RowBox[{
RowBox[{"-", "2"}], " ", "a9", " ", "t", " ", "z"}]], "Output",
CellChangeTimes->{
3.8304019593099003`*^9, 3.8304208920879*^9, 3.8304211397049*^9, {
3.8304211728299*^9, 3.8304211880039*^9}, 3.8304371503089*^9,
3.8304932504144*^9, 3.8304933147724*^9, {3.8304934134364*^9,
3.8304934312834*^9}, {3.8304934701584*^9, 3.8304934822394*^9},
3.8304937114684*^9, 3.8304941632534*^9, 3.8304943277994003`*^9,
3.8304944104764*^9, {3.8304944445704*^9, 3.8304944806144*^9},
3.8304945270474*^9, 3.8304948748684*^9, 3.8304949399494*^9,
3.8304949846024*^9, 3.8304957508274*^9, {3.8304957913794003`*^9,
3.8304958095053997`*^9}, 3.8304959106633997`*^9, {3.8304959688084*^9,
3.8304959949234*^9}, 3.8304960433294*^9, {3.8304965311233997`*^9,
3.8304965830164003`*^9}, 3.8304966242354*^9, 3.8304966682223997`*^9,
3.8304974045224*^9, 3.8304974423704*^9, 3.8304976252164*^9,
3.8304977122594*^9, 3.8304977736354*^9, 3.8305708311088*^9,
3.8305708650298*^9, 3.8305711263698*^9, 3.8305715402728*^9,
3.8305716815248003`*^9, {3.8305717611308002`*^9, 3.8305717841008*^9},
3.8305718597497997`*^9, 3.8305731320528*^9, 3.8305733537208*^9,
3.8305735118608*^9, 3.8305735982548*^9, 3.8305745411368*^9,
3.8305747194838*^9, 3.8305748833318*^9, 3.8305749429028*^9, {
3.8305751785898*^9, 3.8305752044568*^9}, 3.8305757008858*^9}],
Cell[BoxData[
RowBox[{"{",
RowBox[{"0", ",", "0", ",",
RowBox[{
RowBox[{"-", "2"}], " ", "a9", " ", "t"}], ",",
RowBox[{
RowBox[{"-", "2"}], " ", "a9", " ", "z"}], ",", "0"}], "}"}]], "Output",
CellChangeTimes->{
3.8304019593099003`*^9, 3.8304208920879*^9, 3.8304211397049*^9, {
3.8304211728299*^9, 3.8304211880039*^9}, 3.8304371503089*^9,
3.8304932504144*^9, 3.8304933147724*^9, {3.8304934134364*^9,
3.8304934312834*^9}, {3.8304934701584*^9, 3.8304934822394*^9},
3.8304937114684*^9, 3.8304941632534*^9, 3.8304943277994003`*^9,
3.8304944104764*^9, {3.8304944445704*^9, 3.8304944806144*^9},
3.8304945270474*^9, 3.8304948748684*^9, 3.8304949399494*^9,
3.8304949846024*^9, 3.8304957508274*^9, {3.8304957913794003`*^9,
3.8304958095053997`*^9}, 3.8304959106633997`*^9, {3.8304959688084*^9,
3.8304959949234*^9}, 3.8304960433294*^9, {3.8304965311233997`*^9,
3.8304965830164003`*^9}, 3.8304966242354*^9, 3.8304966682223997`*^9,
3.8304974045224*^9, 3.8304974423704*^9, 3.8304976252164*^9,
3.8304977122594*^9, 3.8304977736354*^9, 3.8305708311088*^9,
3.8305708650298*^9, 3.8305711263698*^9, 3.8305715402728*^9,
3.8305716815248003`*^9, {3.8305717611308002`*^9, 3.8305717841008*^9},
3.8305718597497997`*^9, 3.8305731320528*^9, 3.8305733537208*^9,
3.8305735118608*^9, 3.8305735982548*^9, 3.8305745411368*^9,
3.8305747194838*^9, 3.8305748833318*^9, 3.8305749429028*^9, {
3.8305751785898*^9, 3.8305752044568*^9}, 3.8305757008958*^9}],
Cell[BoxData[
TemplateBox[{
"Solve","svars",
"\"Equations may not give solutions for all \\\"solve\\\" variables.\"",2,
1169,53,25705277550633247239,"Local"},
"MessageTemplate"]], "Message", "MSG",
CellChangeTimes->{
3.8305749429828*^9, {3.8305751785998*^9, 3.8305752044667997`*^9},