Jsun Yui Wong
The following computer program seeks to solve simultaneously the system of forty-one Diophantine equations, including fourteen exponential Diophantine equations like
X(31)^X(5)+ X(32)^ X(4) + X(33)^X(7) = X(34)^X(9), for example, and thirty-four general integer variables taken (with modifications) mainly from page 11381 of Abraham, Sanyal, and Sanglikar [1], from page 252 of Waldschmidt [4], and from page 740, page 744, and page 745 of Perez, Amaya, and Correa [3]. These forty-one simultaneous equations are as follows:
X(1)^15 + X(2)^15 = 1088090731
X(2)^14 + X(9)^14 = 268451840
X(1)^13 + X(3)^13 = 1222297448
X(3)^11 + X(10)^11 = 411625181
X(3)^12 + X(8)^12 = 244144721
X(11)+X(12)+X(13)+X(14) = 32
X(15) +X(16)+X(17)+X(18) = 20
X(19)+X(20)+X(21)+X(22) = 17
X(23)+X(24)+X(25)+X(26) = 20
X(27)+X(28)+X(29)+X(30) = 26
X(31)+X(32)+X(33)+X(34) = 16
1+3^X(8) = (2^X(5) )*(5 ^X(6))
X(8)^2 +X(5)^2 +X(6)^2 = 3*X(8)*X(5)*X(6)
X(11) ^2 +X(12)^2+ X(13)^2 + X(14) ^2 =372
X(15) ^2 +X(16)^2+ X(17)^2 + X(18) ^2 = 108
X(19) ^2 +X(20)^2+ X(21)^2 + X(22) ^2 =87
X(23) ^2 +X(24)^2+ X(25)^2 + X(26) ^2 = 108
X(27) ^2 +X(28)^2+ X(29)^2 + X(30) ^2 = 204
X(31) ^2 +X(32)^2+ X(33)^2 + X(34) ^2 =68
5^X(5)+5^X(1) = 3^X(2) + 7^X(9)
5^X(6)+5^X(3) = 3^X(10) + 7^X(2)
5^X(3)+5^X(7) = 3^X(10) + 7^X(2)
5^X(1)+5^X(5) = 3^X(2) + 7^X(9)
13^X(4)+7^X(5) = 3^X(6) + 5^X(7)
17^X(4)+7^X(5) = 3^X(6) + 5^X(7)
3^X(5)+5^X(4) +7^X(6) = 11^X(7)
X(1) -X(3)+2* X(5) -X(7)-X(9) =-3
X(2)+(2* X(4))^2 -6* X(6)- X(8)+2* X(10) = 8
X(1) -3* X(2)+4* X(4) +X(6)-6*X(7)+ X(8)-2*X(9) =-16
5* X(1)+2* X(2)-8* X(4)-3* X(5)+4* X(6)+X(7)-X(9) =23
2* X(1) +(X(2)+3* X(4))^3 + (5*X(7))^2-6* X(8)+X(9)-9* X(10) =31
(2* X(1) + X(2))^2+3*X(3)-10* X(5)-( X(6)+3*X(7))^3- X(8)-6*X(9) =27
X(11)^X(4)+ X(12)^ X(5) = X(13)^X(6) + X(14)^X(7)
X(15)^X(1)+ X(16)^ X(5) = X(17)^X(2) + X(18)^X(9)
1 + X(19)^X(6)+ X(20)^ X(7) = X(21)^X(9)+ X(22)^X(4)
X(23)^X(6)+ X(24)^ X(7) = X(25)^X(9) + X(26)^X(4)
X(27)^X(5)+ X(28)^ X(4) = X(29)^X(6)+ X(30)^X(7)
X(31)^X(5)+ X(32)^ X(4) + X(33)^X(7) = X(34)^X(9)
3* X(1) +2* X(2)-5*X(3)- X(4)^4-2* X(5) + X(6)+4*X(7)-10* X(8)+8*X(9) = -9
X(1) ^2-2*(X(2)+ X(4))^3 + X(5)-3* X(6)-X(7)+4*X(9) +15* X(10) = -24
3* X(1) -(2* X(2))^2+10*X(3)-9* X(4)+3* X(5) + X(6)-2*X(7)- 8* X(8)+12*X(9)-5* X(10) = -25
While line 369 and line 370 of the preceding paper are 369 FOR J44=1 TO 30 and
370 IF X(J44)<0 THEN 1670, line 369 and line 370 here are 369 FOR J44=1 TO 34 and
370 IF X(J44)<0 THEN X(J44)=20. The new line 370, which is 370 IF X(J44)<0 THEN X(J44)=20, is noteworthy.
0 DEFDBL A-Z
1 DEFINT I,J,K,A,X
2 DIM B(99),N(99),A(2002),H(99),L(99),U(99),X(2002),D(111),P(111),PS(33),J(99)
5 DIM AA(99),HR(32),HHR(32),PLHS(44),LB(22),UB(22),PX(44),J44(44),PN(22),NN(99)
88 FOR JJJJ=-32000 TO 32000
89 RANDOMIZE JJJJ
90 M=-3D+30
111 FOR J44=1 TO 34
112 A(J44)= ( RND *20)
113 NEXT J44
128 FOR I=1 TO 3000
129 FOR KKQQ=1 TO 34
130 X(KKQQ)=A(KKQQ)
131 NEXT KKQQ
139 FOR IPP=1 TO FIX(1+RND*9)
140 B=1+FIX(RND*34)
150 R=(1-RND*2)*A(B)
155 IF RND<.5 THEN 160 ELSE 167
160 X(B)=(A(B) +RND^3*R)
165 GOTO 168
167 IF RND<.5 THEN X(B)=CINT(A(B)-1) ELSE X(B)=CINT(A(B) +1)
168 NEXT IPP
201 IF ( +1088090731#-X(1)^15# )<0 THEN 1670
210 X(2)= ( +1088090731#-X(1)^15# )^(1#/15#)
215 X(9)= ( +268451840#-X(2)^14# )^(1#/14#)
222 X(3)= ( +1222297448#-X(1)^13# )^(1#/13#)
233 X(10)= ( +411625181#-X(3)^11# )^(1#/11#)
244 X(8)= ( +244144721#-X(3)^12# )^(1#/12#)
255 X(11)=32#-X(12)-X(13)-X(14)
265 X(15)=20#-X(16)-X(17)-X(18)
275 X(19)=17#-X(20)-X(21)-X(22)
277 X(23)=20#-X(24)-X(25)-X(26)
279 X(27)=26#-X(28)-X(29)-X(30)
281 X(31)=16#-X(32)-X(33)-X(34)
369 FOR J44=1 TO 34
370 IF X(J44)<0 THEN X(J44)=20
371 NEXT J44
399 N(37)=1#+3#^X(8)-(2#^X(5) )*(5# ^X(6))
401 N(39)=X(8)^2# +X(5)^2# +X(6)^2# -3#*X(8)*X(5)*X(6)
505 N(2)=-372#+X(11) ^2 +X(12)^2+ X(13)^2 + X(14) ^2
508 N(1)=-108#+X(15) ^2 +X(16)^2+ X(17)^2 + X(18) ^2
509 N(0)=-87#+X(19) ^2 +X(20)^2+ X(21)^2 + X(22) ^2
510 N(9)=-108#+X(23) ^2 +X(24)^2+ X(25)^2 + X(26) ^2
511 N(10)=-204#+X(27) ^2 +X(28)^2+ X(29)^2 + X(30) ^2
515 N(8)=-68#+X(31) ^2 +X(32)^2+ X(33)^2 + X(34) ^2
519 N(3)= 5#^X(5)+5#^X(1) -3#^X(2) -7#^X(9)
522 N(5)= 5#^X(6)+5#^X(3) -3#^X(10) -7#^X(2)
533 N(7)= 5#^X(3)+5#^X(7) -3#^X(10) -7#^X(2)
602 N(11)= 5#^X(1)+5#^X(5) -3#^X(2) -7#^X(9)
603 N(15)= 13#^X(4)+7#^X(5) -3#^X(6) -5#^X(7)
604 N(18)= 17#^X(4)+7#^X(5) -3#^X(6) -5#^X(7)
605 N(21)= 3#^X(5)+5#^X(4) +7#^X(6) -11#^X(7)
611 N(41)=3# + X(1) -X(3)+2#* X(5) -X(7)-X(9)
613 N(43)=-8# + X(2)+(2#* X(4))^2# -6#* X(6)- X(8)+2#* X(10)
615 N(45)=16# + X(1) -3#* X(2)+4#* X(4) +X(6)-6#*X(7)+ X(8)-2#*X(9)
617 N(47)= -23# +5#* X(1)+2#* X(2)-8#* X(4)-3#* X(5)+4#* X(6)+X(7)-X(9)
619 N(49)=-31# +2#* X(1) +(X(2)+3#* X(4))^3 + (5#*X(7))^2-6#* X(8)+X(9)-9#* X(10)
621 N(51)=- 27# +(2#* X(1) + X(2))^2#+3#*X(3)-10#* X(5)-( X(6)+3#*X(7))^3#- X(8)-6#*X(9)
622 N(54)= X(11)^X(4)+ X(12)^ X(5) – X(13)^X(6)- X(14)^X(7)
623 N(64)= X(15)^X(1)+ X(16)^ X(5) – X(17)^X(2)- X(18)^X(9)
626 N(66)= 1 + X(19)^X(6)+ X(20)^ X(7) – X(21)^X(9)- X(22)^X(4)
629 N(67)= X(23)^X(6)+ X(24)^ X(7) – X(25)^X(9)- X(26)^X(4)
631 N(68)= X(27)^X(5)+ X(28)^ X(4) – X(29)^X(6)- X(30)^X(7)
632 N(79)= X(31)^X(5)+ X(32)^ X(4) + X(33)^X(7)- X(34)^X(9)
634 N(53)=9# +3#* X(1) +2#* X(2)-5#*X(3)- X(4)^4-2#* X(5) + X(6)+4#*X(7)-10#* X(8)+8#*X(9)
635 N(55)=24#+X(1) ^2#-2#*(X(2)+ X(4))^3 + X(5)-3#* X(6)-X(7)+4#*X(9) +15#* X(10)
711 N(69)=25# +3#* X(1) -(2#* X(2))^2+10#*X(3)-9#* X(4)+3#* X(5) + X(6)-2#*X(7)- 8#* X(8)+12#*X(9)-5#* X(10)
922 PD1A=-ABS(N(3))-ABS(N(5))-ABS(N(7))-ABS(N(11))-ABS(N(15))-ABS(N(18))-ABS(N(21))-ABS(N(37))-ABS(N(39))-ABS(N(41))-ABS(N(43))-ABS(N(45))-ABS(N(47))-ABS(N(49)) -ABS(N(51))-ABS(N(53))-ABS(N(54))-ABS(N(55))-ABS(N(69))-ABS(N(2))-ABS(N(64))-ABS(N(1))
925 PD1B=-ABS(N(0))-ABS(N(66)) -ABS( N(9))-ABS( N(67))-ABS(N(10)) -ABS(N(68)) -ABS( N (8) )-ABS( N(79) )
929 PD1=PD1A+PD1B
1111 IF PD1<=M THEN 1670
1452 M=PD1
1454 FOR KLX=1 TO 34
1455 A(KLX)=X(KLX)
1456 NEXT KLX
1461 NN(8)=N(8)
1463 NN(79)=N(79)
1465 NN(9)=N(9)
1466 NN(10)=N(10)
1468 NN(0)=N(0)
1470 NN(1)=N(1)
1471 NN(2)=N(2)
1481 NN(3)=N(3)
1483 NN(5)=N(5)
1485 NN(7)=N(7)
1491 NN(11)=N(11)
1493 NN(15)=N(15)
1495 NN(18)=N(18)
1501 NN(21)=N(21)
1511 NN(37)=N(37)
1513 NN(39)=N(39)
1514 NN(41)=N(41)
1515 NN(43)=N(43)
1516 NN(45)=N(45)
1517 NN(47)=N(47)
1518 NN(49)=N(49)
1519 NN(51)=N(51)
1521 NN(53)=N(53)
1523 NN(55)=N(55)
1524 NN(69)=N(69)
1526 NN(54)=N(54)
1528 NN(64)=N(64)
1530 NN(66)=N(66)
1531 NN(67)=N(67)
1533 NN(68)=N(68)
1557 GOTO 128
1670 NEXT I
1889 IF M<-1 THEN 1999
1901 PRINT A(1),A(2),A(3),A(4),A(5)
1902 PRINT A(6),A(7),A(8),A(9),A(10)
1903 PRINT A(11),A(12),A(13),A(14)
1904 PRINT A(15),A(16),A(17),A(18)
1905 PRINT A(19),A(20),A(21),A(22)
1906 PRINT A(23),A(24),A(25),A(26)
1916 PRINT A(27),A(28),A(29),A(30)
1917 PRINT A(31),A(32),A(33),A(34)
1936 PRINT M,JJJJ
1937 PRINT NN(9), NN(8), NN(10), NN(0),NN(1),NN(2),NN(3),NN(5),NN(7)
1938 PRINT NN(11),NN(15),NN(18)
1939 PRINT NN(21),NN(37)
1940 PRINT NN(39),NN(41),NN(43),NN(45),NN(47)
1941 PRINT NN(49),NN(51),NN(53),NN(54),NN(55),NN(64),NN(66),NN(67), NN(68),NN(69),NN(79)
1999 NEXT JJJJ
This BASIC computer program was run via basica/D of Microsoft’s GW-BASIC 3.11 interpreter for DOS. The output through JJJJ=-31285 is summarized below. What follows is a hand copy from the computer-monitor screen; immediately below there is no rounding by hand.
3 4 5 0 1
1 1 2 2 6
17 7 3 5
5 5 3 7
7 2 3 5
5 5 3 7
11 3 7 5
5 5 3 3
0 -31794
0 0 0 0 0
0 0 0 0
0 0 0
0 0
0 0 0 0 0
0 0 0 0 0
0 0 0 0 0
0
3 4 5 0 1
1 1 2 2 6
17 7 5 3
5 5 3 7
7 2 3 5
5 5 3 7
10 6 8 2
5 5 3 3
-1 -31643
0 0 0 0 0
0 0 0 0
0 0 0
0 0
0 0 0 0 0
0 0 0 0 0
0 0 0 1 0
0
3 4 5 0 1
1 1 2 2 6
17 7 5 3
5 5 3 7
7 2 3 5
5 5 3 7
8 10 2 6
5 5 3 3
-1 -31440
0 0 0 0 0
0 0 0 0
0 0 0
0 0
0 0 0 0 0
0 0 0 0 0
0 0 0 1 0
0
3 4 5 0 1
1 1 2 2 6
17 7 3 5
5 5 3 7
7 2 3 5
5 5 3 7
7 11 3 5
5 5 3 3
0 -31336
0 0 0 0 0
0 0 0 0
0 0 0
0 0
0 0 0 0 0
0 0 0 0 0
0 0 0 0 0
0
3 4 5 0 1
1 1 2 2 6
17 7 5 3
5 5 3 7
7 2 3 5
5 5 3 7
8 10 2 6
5 5 3 3
-1 -31302
0 0 0 0 0
0 0 0 0
0 0 0
0 0
0 0 0 0 0
0 0 0 0 0
0 0 0 1 0
0
3 4 5 0 1
1 1 2 2 6
17 7 5 3
5 5 3 7
7 2 3 5
5 5 3 7
11 3 5 7
5 5 3 3
0 -31285
0 0 0 0 0
0 0 0 0
0 0 0
0 0
0 0 0 0 0
0 0 0 0 0
0 0 0 0 0
0
Before this solution with M=0 at JJJJ=-31285 came, the message “Overflow” came numerous times.
On a personal computer with a Pentium Dual-Core CPU E5200 @2.50GHz, 2.50 GHz, 960 MB of RAM, and the IBM basica/D interpreter, version GW BASIC 3.11, the wall-clock time for obtaining the output through JJJJ=-31285 was 37 minutes.
Acknowledgement
I would like to acknowledge the encouragement of Roberta Clark and Tom Clark.
References
[1] S. Abraham, S. Sanyal, M. Sanglikar (2013), Finding Numerical Solutions of Diophantine Equations Using Ant Colony Optimization. Applied Mathematics and Computation 219 (2013), Pages 11376-11387.
[2] Microsoft Corp., BASIC, Second Edition (May 1982), Version 1.10. Boca Raton, Florida: IBM Corp., Personal Computer, P. O. Box 1328-C, Boca Raton, Florida 33432, 1981.
[3] O. Perez, I. Amaya, R. Correa (2013), Numerical Solution of Certain Exponential and Non-linear Diophantine Systems of Equations by Using a Discrete Particles Swarm Optimization Algorithm. Applied Mathematics and Computation, Volume 225, 1 December 2013, Pages 737-746.
[4] Michel Waldschmidt, Open Diophantine Problems. Moscow Mathematical Journal, Volume 4, Number 1, January-March 2004, Pages 245-305.