数学中国

 找回密码
 注册
搜索
热搜: 活动 交友 discuz
楼主: ysr

三角数不定方程的通解公式的验证

[复制链接]
 楼主| 发表于 2023-3-5 11:36 | 显示全部楼层
本帖最后由 ysr 于 2023-3-5 11:40 编辑

如下是x=998~1030的结果:(空间限制不能算的太多)
x=998  y=498500  z=498501
x=998  y=249249  z=249251
x=998  y=166165  z=166168
x=998  y=83080  z=83086
x=998  y=55384  z=55393
x=998  y=27685  z=27703
x=998  y=18449  z=18476
x=998  y=13454  z=13491
x=998  y=9204  z=9258
x=998  y=6699  z=6773
x=998  y=4435  z=4546
x=998  y=2134  z=2356
x=998  y=1330  z=1663
x=998  y=749  z=1248
x=998  y=415  z=1081
x=999  y=499499  z=499500
x=999  y=166498  z=166501
x=999  y=99897  z=99902
x=999  y=62433  z=62441
x=999  y=55495  z=55504
x=999  y=33292  z=33307
x=999  y=20800  z=20824
x=999  y=19967  z=19992
x=999  y=18486  z=18513
x=999  y=13481  z=13518
x=999  y=12467  z=12507
x=999  y=11077  z=11122
x=999  y=6901  z=6973
x=999  y=6622  z=6697
x=999  y=4444  z=4555
x=999  y=4102  z=4222
x=999  y=3933  z=4058
x=999  y=3632  z=3767
x=999  y=2607  z=2792
x=999  y=2397  z=2597
x=999  y=2204  z=2420
x=999  y=2107  z=2332
x=999  y=1539  z=1835
x=999  y=1333  z=1666
x=999  y=1207  z=1567
x=999  y=1144  z=1519
x=999  y=622  z=1177
x=999  y=532  z=1132
x=999  y=402  z=1077
x=999  y=118  z=1006
x=999  y=77  z=1002
x=1000  y=500499  z=500500
x=1000  y=100097  z=100102
x=1000  y=71496  z=71503
x=1000  y=62558  z=62566
x=1000  y=45494  z=45505
x=1000  y=38493  z=38506
x=1000  y=20007  z=20032
x=1000  y=14282  z=14317
x=1000  y=12492  z=12532
x=1000  y=9072  z=9127
x=1000  y=8909  z=8965
x=1000  y=7667  z=7732
x=1000  y=6461  z=6538
x=1000  y=5643  z=5731
x=1000  y=5454  z=5545
x=1000  y=4760  z=4864
x=1000  y=3941  z=4066
x=1000  y=3428  z=3571
x=1000  y=2772  z=2947
x=1000  y=2402  z=2602
x=1000  y=1682  z=1957
x=1000  y=1647  z=1927
x=1000  y=1377  z=1702
x=1000  y=1107  z=1492
x=1000  y=917  z=1357
x=1000  y=872  z=1327
x=1000  y=702  z=1222
x=1000  y=504  z=1120
x=1000  y=342  z=1057
x=1000  y=323  z=1051
x=1000  y=134  z=1009
x=1001  y=501500  z=501501
x=1001  y=250749  z=250751
x=1001  y=167165  z=167168
x=1001  y=83580  z=83586
x=1001  y=71639  z=71646
x=1001  y=45585  z=45596
x=1001  y=38570  z=38583
x=1001  y=35814  z=35828
x=1001  y=23870  z=23891
x=1001  y=22784  z=22806
x=1001  y=19275  z=19301
x=1001  y=15180  z=15213
x=1001  y=12839  z=12878
x=1001  y=11919  z=11961
x=1001  y=7565  z=7631
x=1001  y=6474  z=6551
x=1001  y=6390  z=6468
x=1001  y=5465  z=5556
x=1001  y=3435  z=3578
x=1001  y=3179  z=3333
x=1001  y=2919  z=3086
x=1001  y=2664  z=2846
x=1001  y=2055  z=2286
x=1001  y=1700  z=1973
x=1001  y=1610  z=1896
x=1001  y=1334  z=1668
x=1001  y=954  z=1383
x=1001  y=854  z=1316
x=1001  y=750  z=1251
x=1001  y=645  z=1191
x=1001  y=155  z=1013
x=1002  y=502502  z=502503
x=1002  y=251250  z=251252
x=1002  y=167499  z=167502
x=1002  y=83747  z=83753
x=1002  y=29550  z=29567
x=1002  y=14762  z=14796
x=1002  y=9827  z=9878
x=1002  y=8487  z=8546
x=1002  y=4875  z=4977
x=1002  y=4199  z=4317
x=1002  y=2925  z=3092
x=1002  y=2750  z=2927
x=1002  y=1337  z=1671
x=1002  y=1242  z=1596
x=1002  y=752  z=1253
x=1003  y=503505  z=503506
x=1003  y=125874  z=125878
x=1003  y=29609  z=29626
x=1003  y=8504  z=8563
x=1003  y=7370  z=7438
x=1003  y=2015  z=2251
x=1003  y=1880  z=2131
x=1004  y=504509  z=504510
x=1004  y=168168  z=168171
x=1004  y=126125  z=126129
x=1004  y=100899  z=100904
x=1004  y=42036  z=42048
x=1004  y=33626  z=33641
x=1004  y=25215  z=25235
x=1004  y=8378  z=8438
x=1004  y=7496  z=7563
x=1004  y=2409  z=2610
x=1004  y=1884  z=2135
x=1004  y=1748  z=2016
x=1004  y=1338  z=1673
x=1004  y=293  z=1046
x=1004  y=225  z=1029
x=1005  y=505514  z=505515
x=1005  y=252756  z=252758
x=1005  y=168503  z=168506
x=1005  y=101100  z=101105
x=1005  y=84249  z=84255
x=1005  y=50546  z=50556
x=1005  y=33693  z=33708
x=1005  y=16835  z=16865
x=1005  y=7511  z=7578
x=1005  y=3705  z=3839
x=1005  y=2414  z=2615
x=1005  y=1341  z=1676
x=1005  y=1056  z=1458
x=1005  y=753  z=1256
x=1005  y=419  z=1089
x=1006  y=506520  z=506521
x=1006  y=253259  z=253261
x=1006  y=26649  z=26668
x=1006  y=13310  z=13348
x=1006  y=9530  z=9583
x=1006  y=4725  z=4831
x=1006  y=755  z=1258
x=1007  y=507527  z=507528
x=1007  y=169174  z=169177
x=1007  y=72500  z=72507
x=1007  y=56387  z=56396
x=1007  y=31712  z=31728
x=1007  y=26702  z=26721
x=1007  y=24157  z=24178
x=1007  y=10549  z=10597
x=1007  y=9549  z=9602
x=1007  y=8875  z=8932
x=1007  y=8024  z=8087
x=1007  y=4475  z=4587
x=1007  y=3749  z=3882
x=1007  y=3452  z=3596
x=1007  y=3112  z=3271
x=1007  y=2882  z=3053
x=1007  y=1517  z=1821
x=1007  y=1342  z=1678
x=1007  y=1182  z=1553
x=1007  y=1072  z=1471
x=1007  y=825  z=1302
x=1007  y=174  z=1022
x=1007  y=100  z=1012
x=1008  y=508535  z=508536
x=1008  y=169510  z=169513
x=1008  y=72644  z=72651
x=1008  y=56499  z=56508
x=1008  y=31775  z=31791
x=1008  y=24205  z=24226
x=1008  y=10570  z=10618
x=1008  y=8040  z=8103
x=1008  y=4484  z=4596
x=1008  y=3459  z=3603
x=1008  y=1345  z=1681
x=1009  y=509544  z=509545
x=1009  y=254771  z=254773
x=1009  y=101906  z=101911
x=1009  y=50949  z=50959
x=1009  y=4994  z=5095
x=1009  y=2421  z=2623
x=1009  y=756  z=1261
x=1010  y=510554  z=510555
x=1010  y=255276  z=255278
x=1010  y=170183  z=170186
x=1010  y=102108  z=102113
x=1010  y=85089  z=85095
x=1010  y=51050  z=51060
x=1010  y=34029  z=34044
x=1010  y=17003  z=17033
x=1010  y=5004  z=5105
x=1010  y=2426  z=2628
x=1010  y=1533  z=1836
x=1010  y=1346  z=1683
x=1010  y=758  z=1263
x=1010  y=539  z=1145
x=1010  y=420  z=1094
x=1011  y=511565  z=511566
x=1011  y=170520  z=170523
x=1011  y=127889  z=127893
x=1011  y=46500  z=46511
x=1011  y=42624  z=42636
x=1011  y=22230  z=22253
x=1011  y=15485  z=15518
x=1011  y=11604  z=11648
x=1011  y=7379  z=7448
x=1011  y=5514  z=5606
x=1011  y=3809  z=3941
x=1011  y=1895  z=2148
x=1011  y=1715  z=1991
x=1011  y=1349  z=1686
x=1011  y=294  z=1053
x=1012  y=512577  z=512578
x=1012  y=128142  z=128146
x=1012  y=46592  z=46603
x=1012  y=22274  z=22297
x=1012  y=11627  z=11671
x=1012  y=5525  z=5617
x=1012  y=1899  z=2152
x=1013  y=513590  z=513591
x=1013  y=256794  z=256796
x=1013  y=171195  z=171198
x=1013  y=85595  z=85601
x=1013  y=39500  z=39513
x=1013  y=19740  z=19766
x=1013  y=13149  z=13188
x=1013  y=6545  z=6623
x=1013  y=2954  z=3123
x=1013  y=1350  z=1688
x=1013  y=759  z=1266
x=1014  y=514604  z=514605
x=1014  y=257301  z=257303
x=1014  y=171533  z=171536
x=1014  y=102918  z=102923
x=1014  y=85764  z=85770
x=1014  y=73511  z=73518
x=1014  y=51455  z=51465
x=1014  y=39578  z=39591
x=1014  y=36750  z=36764
x=1014  y=34299  z=34314
x=1014  y=24494  z=24515
x=1014  y=19779  z=19805
x=1014  y=17730  z=17759
x=1014  y=17138  z=17168
x=1014  y=14685  z=14720
x=1014  y=13175  z=13214
x=1014  y=12231  z=12273
x=1014  y=8843  z=8901
x=1014  y=7884  z=7949
x=1014  y=7316  z=7386
x=1014  y=6558  z=6636
x=1014  y=5871  z=5958
x=1014  y=5609  z=5700
x=1014  y=4848  z=4953
x=1014  y=3893  z=4023
x=1014  y=3476  z=3621
x=1014  y=2960  z=3129
x=1014  y=2870  z=3044
x=1014  y=2736  z=2918
x=1014  y=2541  z=2736
x=1014  y=2433  z=2636
x=1014  y=2345  z=2555
x=1014  y=1748  z=2021
x=1014  y=1629  z=1919
x=1014  y=1353  z=1691
x=1014  y=1176  z=1553
x=1014  y=1124  z=1514
x=1014  y=1064  z=1470
x=1014  y=965  z=1400
x=1014  y=903  z=1358
x=1014  y=761  z=1268
x=1014  y=669  z=1215
x=1014  y=540  z=1149
x=1014  y=305  z=1059
x=1014  y=186  z=1031
x=1014  y=156  z=1026
x=1014  y=110  z=1020
x=1015  y=515619  z=515620
x=1015  y=103121  z=103126
x=1015  y=73656  z=73663
x=1015  y=64448  z=64456
x=1015  y=17765  z=17794
x=1015  y=14714  z=14749
x=1015  y=12870  z=12910
x=1015  y=9179  z=9235
x=1015  y=3996  z=4123
x=1015  y=3483  z=3628
x=1015  y=2438  z=2641
x=1015  y=2106  z=2338
x=1015  y=1701  z=1981
x=1015  y=494  z=1129
x=1015  y=135  z=1024
x=1016  y=516635  z=516636
x=1016  y=172210  z=172213
x=1016  y=64575  z=64583
x=1016  y=57399  z=57408
x=1016  y=21514  z=21538
x=1016  y=7139  z=7211
x=1016  y=4515  z=4628
x=1016  y=4004  z=4131
x=1016  y=1354  z=1693
x=1016  y=1165  z=1546
x=1016  y=119  z=1023
x=1017  y=517652  z=517653
x=1017  y=258825  z=258827
x=1017  y=172549  z=172552
x=1017  y=86272  z=86278
x=1017  y=57512  z=57521
x=1017  y=28749  z=28767
x=1017  y=4524  z=4637
x=1017  y=2177  z=2403
x=1017  y=1357  z=1696
x=1017  y=762  z=1271
x=1017  y=424  z=1102
x=1018  y=518670  z=518671
x=1018  y=259334  z=259336
x=1018  y=764  z=1273
x=1019  y=519689  z=519690
x=1019  y=173228  z=173231
x=1019  y=129920  z=129924
x=1019  y=103935  z=103940
x=1019  y=43301  z=43313
x=1019  y=34638  z=34653
x=1019  y=30561  z=30578
x=1019  y=25974  z=25994
x=1019  y=10164  z=10215
x=1019  y=8631  z=8691
x=1019  y=7608  z=7676
x=1019  y=6071  z=6156
x=1019  y=2445  z=2649
x=1019  y=1910  z=2165
x=1019  y=1358  z=1698
x=1020  y=520709  z=520710
x=1020  y=173568  z=173571
x=1020  y=130175  z=130179
x=1020  y=104139  z=104144
x=1020  y=43386  z=43398
x=1020  y=34706  z=34721
x=1020  y=30621  z=30638
x=1020  y=26025  z=26045
x=1020  y=10184  z=10235
x=1020  y=8648  z=8708
x=1020  y=7623  z=7691
x=1020  y=6083  z=6168
x=1020  y=2450  z=2654
x=1020  y=1914  z=2169
x=1020  y=1361  z=1701
x=1021  y=521730  z=521731
x=1021  y=260864  z=260866
x=1021  y=74529  z=74536
x=1021  y=37259  z=37273
x=1021  y=7110  z=7183
x=1021  y=3500  z=3646
x=1021  y=765  z=1276
x=1022  y=522752  z=522753
x=1022  y=261375  z=261377
x=1022  y=174249  z=174252
x=1022  y=87122  z=87128
x=1022  y=74675  z=74682
x=1022  y=47517  z=47528
x=1022  y=37332  z=37346
x=1022  y=24882  z=24903
x=1022  y=23750  z=23772
x=1022  y=16847  z=16878
x=1022  y=15824  z=15857
x=1022  y=12425  z=12467
x=1022  y=8400  z=8462
x=1022  y=7887  z=7953
x=1022  y=7124  z=7197
x=1022  y=6750  z=6827
x=1022  y=5574  z=5667
x=1022  y=3507  z=3653
x=1022  y=3317  z=3471
x=1022  y=2717  z=2903
x=1022  y=2300  z=2517
x=1022  y=2277  z=2496
x=1022  y=2147  z=2378
x=1022  y=1362  z=1703
x=1022  y=987  z=1421
x=1022  y=974  z=1412
x=1022  y=900  z=1362
x=1022  y=767  z=1278
x=1022  y=477  z=1128
x=1022  y=425  z=1107
x=1022  y=249  z=1052
x=1023  y=523775  z=523776
x=1023  y=174590  z=174593
x=1023  y=47610  z=47621
x=1023  y=16880  z=16911
x=1023  y=15855  z=15888
x=1023  y=5585  z=5678
x=1023  y=1365  z=1706
x=1024  y=524799  z=524800
x=1024  y=104957  z=104962
x=1024  y=20979  z=21004
x=1024  y=12779  z=12820
x=1024  y=2457  z=2662
x=1025  y=525824  z=525825
x=1025  y=262911  z=262913
x=1025  y=175273  z=175276
x=1025  y=105162  z=105167
x=1025  y=87634  z=87640
x=1025  y=58420  z=58429
x=1025  y=52577  z=52587
x=1025  y=35047  z=35062
x=1025  y=29203  z=29221
x=1025  y=27665  z=27684
x=1025  y=21020  z=21045
x=1025  y=19461  z=19488
x=1025  y=17512  z=17542
x=1025  y=13818  z=13856
x=1025  y=12804  z=12845
x=1025  y=11662  z=11707
x=1025  y=10491  z=10541
x=1025  y=9710  z=9764
x=1025  y=9196  z=9253
x=1025  y=6973  z=7048
x=1025  y=6371  z=6453
x=1025  y=5797  z=5887
x=1025  y=5487  z=5582
x=1025  y=4555  z=4669
x=1025  y=4213  z=4336
x=1025  y=3827  z=3962
x=1025  y=3430  z=3580
x=1025  y=2989  z=3160
x=1025  y=2672  z=2862
x=1025  y=2462  z=2667
x=1025  y=2224  z=2449
x=1025  y=2014  z=2260
x=1025  y=1812  z=2082
x=1025  y=1702  z=1987
x=1025  y=1366  z=1708
x=1025  y=1240  z=1609
x=1025  y=1077  z=1487
x=1025  y=943  z=1393
x=1025  y=869  z=1344
x=1025  y=768  z=1281
x=1025  y=637  z=1207
x=1025  y=547  z=1162
x=1025  y=441  z=1116
x=1025  y=343  z=1081
x=1025  y=285  z=1064
x=1025  y=187  z=1042
x=1025  y=78  z=1028
x=1026  y=526850  z=526851
x=1026  y=263424  z=263426
x=1026  y=175615  z=175618
x=1026  y=87805  z=87811
x=1026  y=58534  z=58543
x=1026  y=40520  z=40533
x=1026  y=29260  z=29278
x=1026  y=27719  z=27738
x=1026  y=20250  z=20276
x=1026  y=19499  z=19526
x=1026  y=13845  z=13883
x=1026  y=13489  z=13528
x=1026  y=9729  z=9783
x=1026  y=9214  z=9271
x=1026  y=6715  z=6793
x=1026  y=6629  z=6708
x=1026  y=4564  z=4678
x=1026  y=4444  z=4561
x=1026  y=3255  z=3413
x=1026  y=2995  z=3166
x=1026  y=2134  z=2368
x=1026  y=2104  z=2341
x=1026  y=2009  z=2256
x=1026  y=1369  z=1711
x=1026  y=1325  z=1676
x=1026  y=874  z=1348
x=1026  y=819  z=1313
x=1026  y=770  z=1283
x=1026  y=399  z=1101
x=1026  y=385  z=1096
x=1026  y=340  z=1081
x=1027  y=527877  z=527878
x=1027  y=131967  z=131971
x=1027  y=40599  z=40612
x=1027  y=10125  z=10177
x=1027  y=6642  z=6721
x=1027  y=1925  z=2182
x=1027  y=1512  z=1828
x=1028  y=528905  z=528906
x=1028  y=176300  z=176303
x=1028  y=132224  z=132228
x=1028  y=75554  z=75561
x=1028  y=44069  z=44081
x=1028  y=25175  z=25196
x=1028  y=18875  z=18903
x=1028  y=10769  z=10818
x=1028  y=6254  z=6338
x=1028  y=3524  z=3671
x=1028  y=2600  z=2796
x=1028  y=1929  z=2186
x=1028  y=1370  z=1713
x=1028  y=605  z=1193
x=1028  y=300  z=1071
x=1029  y=529934  z=529935
x=1029  y=264966  z=264968
x=1029  y=176643  z=176646
x=1029  y=105984  z=105989
x=1029  y=88319  z=88325
x=1029  y=75701  z=75708
x=1029  y=52988  z=52998
x=1029  y=37845  z=37859
x=1029  y=35321  z=35336
x=1029  y=25224  z=25245
x=1029  y=17649  z=17679
x=1029  y=15123  z=15158
x=1029  y=12596  z=12638
x=1029  y=10790  z=10839
x=1029  y=7535  z=7605
x=1029  y=5358  z=5456
x=1029  y=5093  z=5196
x=1029  y=4994  z=5099
x=1029  y=3531  z=3678
x=1029  y=2469  z=2675
x=1029  y=2418  z=2628
x=1029  y=2040  z=2285
x=1029  y=1655  z=1949
x=1029  y=1560  z=1869
x=1029  y=1373  z=1716
x=1029  y=836  z=1326
x=1029  y=771  z=1286
x=1029  y=548  z=1166
x=1029  y=429  z=1115
x=1029  y=374  z=1095
x=1029  y=353  z=1088
x=1030  y=530964  z=530965
x=1030  y=265481  z=265483
x=1030  y=106190  z=106195
x=1030  y=53091  z=53101
x=1030  y=5103  z=5206
x=1030  y=2474  z=2680
x=1030  y=773  z=1288
回复 支持 反对

使用道具 举报

发表于 2023-3-5 11:39 | 显示全部楼层
\[(x,y,z)=(n, \frac{n(n+1)-m(m+1)}{2m},\frac{n(n+1)+m(m-1)}{2 m})\]

\[x=n,z=y+m\]
回复 支持 反对

使用道具 举报

 楼主| 发表于 2023-3-5 11:42 | 显示全部楼层
本帖最后由 ysr 于 2023-3-5 11:42 编辑

x=1030~1050的结果:
x=1030  y=530964  z=530965
x=1030  y=265481  z=265483
x=1030  y=106190  z=106195
x=1030  y=53091  z=53101
x=1030  y=5103  z=5206
x=1030  y=2474  z=2680
x=1030  y=773  z=1288
x=1031  y=531995  z=531996
x=1031  y=177330  z=177333
x=1031  y=66495  z=66503
x=1031  y=22154  z=22178
x=1031  y=12350  z=12393
x=1031  y=4059  z=4188
x=1031  y=1374  z=1718
x=1032  y=533027  z=533028
x=1032  y=177674  z=177677
x=1032  y=66624  z=66632
x=1032  y=22197  z=22221
x=1032  y=12374  z=12417
x=1032  y=4067  z=4196
x=1032  y=1377  z=1721
x=1033  y=534060  z=534061
x=1033  y=267029  z=267031
x=1033  y=48545  z=48556
x=1033  y=24264  z=24286
x=1033  y=11339  z=11386
x=1033  y=5634  z=5728
x=1033  y=774  z=1291
x=1034  y=535094  z=535095
x=1034  y=267546  z=267548
x=1034  y=178363  z=178366
x=1034  y=107016  z=107021
x=1034  y=89179  z=89185
x=1034  y=59450  z=59459
x=1034  y=53504  z=53514
x=1034  y=48639  z=48650
x=1034  y=35665  z=35680
x=1034  y=29718  z=29736
x=1034  y=24311  z=24333
x=1034  y=23253  z=23276
x=1034  y=17821  z=17851
x=1034  y=16198  z=16231
x=1034  y=11868  z=11913
x=1034  y=11609  z=11655
x=1034  y=11361  z=11408
x=1034  y=9701  z=9756
x=1034  y=8074  z=8140
x=1034  y=7720  z=7789
x=1034  y=5900  z=5990
x=1034  y=5645  z=5739
x=1034  y=5355  z=5454
x=1034  y=4809  z=4919
x=1034  y=4595  z=4710
x=1034  y=3808  z=3946
x=1034  y=3724  z=3865
x=1034  y=3160  z=3325
x=1034  y=2603  z=2801
x=1034  y=2481  z=2688
x=1034  y=2211  z=2441
x=1034  y=2159  z=2394
x=1034  y=1988  z=2241
x=1034  y=1756  z=2038
x=1034  y=1456  z=1786
x=1034  y=1378  z=1723
x=1034  y=1085  z=1499
x=1034  y=1053  z=1476
x=1034  y=903  z=1373
x=1034  y=833  z=1328
x=1034  y=804  z=1310
x=1034  y=776  z=1293
x=1034  y=430  z=1120
x=1034  y=406  z=1111
x=1034  y=325  z=1084
x=1034  y=209  z=1055
x=1034  y=45  z=1035
x=1035  y=536129  z=536130
x=1035  y=178708  z=178711
x=1035  y=134030  z=134034
x=1035  y=107223  z=107228
x=1035  y=76586  z=76593
x=1035  y=59565  z=59574
x=1035  y=44671  z=44683
x=1035  y=35734  z=35749
x=1035  y=26796  z=26816
x=1035  y=25519  z=25540
x=1035  y=23298  z=23321
x=1035  y=19133  z=19161
x=1035  y=15300  z=15335
x=1035  y=14874  z=14910
x=1035  y=14471  z=14508
x=1035  y=11891  z=11936
x=1035  y=8905  z=8965
x=1035  y=8478  z=8541
x=1035  y=7735  z=7804
x=1035  y=6340  z=6424
x=1035  y=5781  z=5873
x=1035  y=5053  z=5158
x=1035  y=4774  z=4885
x=1035  y=4604  z=4719
x=1035  y=3759  z=3899
x=1035  y=3548  z=3696
x=1035  y=3249  z=3410
x=1035  y=2888  z=3068
x=1035  y=2805  z=2990
x=1035  y=2486  z=2693
x=1035  y=2001  z=2253
x=1035  y=1940  z=2199
x=1035  y=1804  z=2080
x=1035  y=1544  z=1859
x=1035  y=1443  z=1776
x=1035  y=1381  z=1726
x=1035  y=1066  z=1486
x=1035  y=985  z=1429
x=1035  y=935  z=1395
x=1035  y=868  z=1351
x=1035  y=688  z=1243
x=1035  y=510  z=1154
x=1035  y=354  z=1094
x=1035  y=301  z=1078
x=1035  y=263  z=1068
x=1035  y=233  z=1061
x=1035  y=204  z=1055
x=1036  y=537165  z=537166
x=1036  y=134289  z=134293
x=1036  y=76734  z=76741
x=1036  y=31589  z=31606
x=1036  y=19170  z=19198
x=1036  y=14499  z=14536
x=1036  y=8775  z=8836
x=1036  y=7865  z=7933
x=1036  y=4454  z=4573
x=1036  y=3555  z=3703
x=1036  y=2079  z=2323
x=1036  y=1944  z=2203
x=1036  y=1044  z=1471
x=1036  y=890  z=1366
x=1036  y=539  z=1168
x=1037  y=538202  z=538203
x=1037  y=269100  z=269102
x=1037  y=179399  z=179402
x=1037  y=89697  z=89703
x=1037  y=31650  z=31667
x=1037  y=15812  z=15846
x=1037  y=10527  z=10578
x=1037  y=8792  z=8853
x=1037  y=5225  z=5327
x=1037  y=4350  z=4472
x=1037  y=3024  z=3197
x=1037  y=2849  z=3032
x=1037  y=1382  z=1728
x=1037  y=1287  z=1653
x=1037  y=777  z=1296
x=1038  y=539240  z=539241
x=1038  y=269619  z=269621
x=1038  y=179745  z=179748
x=1038  y=89870  z=89876
x=1038  y=3030  z=3203
x=1038  y=1385  z=1731
x=1038  y=779  z=1298
x=1039  y=540279  z=540280
x=1039  y=108053  z=108058
x=1039  y=41553  z=41566
x=1039  y=33759  z=33775
x=1039  y=8279  z=8344
x=1039  y=6713  z=6793
x=1039  y=2493  z=2701
x=1040  y=541319  z=541320
x=1040  y=180438  z=180441
x=1040  y=108261  z=108266
x=1040  y=41633  z=41646
x=1040  y=36080  z=36095
x=1040  y=33824  z=33840
x=1040  y=13860  z=13899
x=1040  y=11253  z=11301
x=1040  y=8295  z=8360
x=1040  y=6726  z=6806
x=1040  y=2678  z=2873
x=1040  y=2498  z=2706
x=1040  y=2135  z=2375
x=1040  y=1386  z=1733
x=1040  y=555  z=1179
x=1041  y=542360  z=542361
x=1041  y=271179  z=271181
x=1041  y=180785  z=180788
x=1041  y=90390  z=90396
x=1041  y=1389  z=1736
x=1041  y=780  z=1301
x=1041  y=434  z=1128
x=1042  y=543402  z=543403
x=1042  y=271700  z=271702
x=1042  y=77625  z=77632
x=1042  y=38807  z=38821
x=1042  y=3572  z=3721
x=1042  y=1674  z=1972
x=1042  y=782  z=1303
x=1043  y=544445  z=544446
x=1043  y=181480  z=181483
x=1043  y=136109  z=136113
x=1043  y=77774  z=77781
x=1043  y=60489  z=60498
x=1043  y=45364  z=45376
x=1043  y=25915  z=25936
x=1043  y=19430  z=19458
x=1043  y=18759  z=18788
x=1043  y=15105  z=15141
x=1043  y=8610  z=8673
x=1043  y=6439  z=6523
x=1043  y=6214  z=6301
x=1043  y=4635  z=4751
x=1043  y=3579  z=3728
x=1043  y=2580  z=2783
x=1043  y=2034  z=2286
x=1043  y=1955  z=2216
x=1043  y=1390  z=1738
x=1043  y=994  z=1441
x=1043  y=615  z=1211
x=1043  y=589  z=1198
x=1043  y=264  z=1076
x=1044  y=545489  z=545490
x=1044  y=181828  z=181831
x=1044  y=136370  z=136374
x=1044  y=109095  z=109100
x=1044  y=60605  z=60614
x=1044  y=49584  z=49595
x=1044  y=45451  z=45463
x=1044  y=36358  z=36373
x=1044  y=28700  z=28719
x=1044  y=27264  z=27284
x=1044  y=18795  z=18824
x=1044  y=16513  z=16546
x=1044  y=15134  z=15170
x=1044  y=12375  z=12419
x=1044  y=12099  z=12144
x=1044  y=9890  z=9945
x=1044  y=9541  z=9598
x=1044  y=9061  z=9121
x=1044  y=7139  z=7215
x=1044  y=6226  z=6313
x=1044  y=5694  z=5789
x=1044  y=5460  z=5559
x=1044  y=4644  z=4760
x=1044  y=4066  z=4198
x=1044  y=3689  z=3834
x=1044  y=3223  z=3388
x=1044  y=3104  z=3275
x=1044  y=2940  z=3120
x=1044  y=2505  z=2714
x=1044  y=2369  z=2589
x=1044  y=2278  z=2506
x=1044  y=1959  z=2220
x=1044  y=1771  z=2056
x=1044  y=1550  z=1869
x=1044  y=1393  z=1741
x=1044  y=1245  z=1625
x=1044  y=1179  z=1575
x=1044  y=1036  z=1471
x=1044  y=854  z=1349
x=1044  y=714  z=1265
x=1044  y=650  z=1230
x=1044  y=556  z=1183
x=1044  y=496  z=1156
x=1044  y=455  z=1139
x=1044  y=234  z=1070
x=1044  y=210  z=1065
x=1044  y=91  z=1048
x=1045  y=546534  z=546535
x=1045  y=273266  z=273268
x=1045  y=109304  z=109309
x=1045  y=54648  z=54658
x=1045  y=49679  z=49690
x=1045  y=28755  z=28774
x=1045  y=24831  z=24853
x=1045  y=14363  z=14401
x=1045  y=9909  z=9964
x=1045  y=5705  z=5800
x=1045  y=4913  z=5023
x=1045  y=2781  z=2971
x=1045  y=2510  z=2719
x=1045  y=1098  z=1516
x=1045  y=783  z=1306
x=1046  y=547580  z=547581
x=1046  y=273789  z=273791
x=1046  y=182525  z=182528
x=1046  y=91260  z=91266
x=1046  y=1394  z=1743
x=1046  y=785  z=1308
x=1046  y=435  z=1133
x=1047  y=548627  z=548628
x=1047  y=182874  z=182877
x=1047  y=68574  z=68582
x=1047  y=22847  z=22871
x=1047  y=4122  z=4253
x=1047  y=1397  z=1746
x=1047  y=1199  z=1592
x=1048  y=549675  z=549676
x=1048  y=68705  z=68713
x=1048  y=4130  z=4261
x=1049  y=550724  z=550725
x=1049  y=275361  z=275363
x=1049  y=183573  z=183576
x=1049  y=110142  z=110147
x=1049  y=91784  z=91790
x=1049  y=78671  z=78678
x=1049  y=55067  z=55077
x=1049  y=39330  z=39344
x=1049  y=36707  z=36722
x=1049  y=26214  z=26235
x=1049  y=22016  z=22041
x=1049  y=18342  z=18372
x=1049  y=15717  z=15752
x=1049  y=13091  z=13133
x=1049  y=10989  z=11039
x=1049  y=7832  z=7902
x=1049  y=7305  z=7380
x=1049  y=5192  z=5297
x=1049  y=3596  z=3746
x=1049  y=3059  z=3234
x=1049  y=2517  z=2727
x=1049  y=1398  z=1748
x=1049  y=786  z=1311
x=1050  y=551774  z=551775
x=1050  y=275886  z=275888
x=1050  y=183923  z=183926
x=1050  y=110352  z=110357
x=1050  y=91959  z=91965
x=1050  y=78821  z=78828
x=1050  y=55172  z=55182
x=1050  y=39405  z=39419
x=1050  y=36777  z=36792
x=1050  y=26264  z=26285
x=1050  y=22058  z=22083
x=1050  y=18377  z=18407
x=1050  y=15747  z=15782
x=1050  y=13116  z=13158
x=1050  y=11010  z=11060
x=1050  y=7847  z=7917
x=1050  y=7319  z=7394
x=1050  y=5202  z=5307
x=1050  y=3603  z=3753
x=1050  y=3065  z=3240
x=1050  y=2522  z=2732
x=1050  y=1401  z=1751
x=1050  y=788  z=1313
回复 支持 反对

使用道具 举报

 楼主| 发表于 2023-3-5 11:51 | 显示全部楼层
x=2  y=2  z=3 m1=1
x=3  y=5  z=6 m1=1
x=4  y=9  z=10 m1=1
x=5  y=14  z=15 m1=1
x=5  y=6  z=8 m1=2
x=5  y=3  z=6 m1=3
x=5  y=6  z=8 m1=2
x=5  y=6  z=8 m1=2
x=5  y=3  z=6 m1=3
x=5  y=6  z=8 m1=2
x=5  y=6  z=8 m1=2
x=6  y=20  z=21 m1=1
x=6  y=9  z=11 m1=2
x=6  y=5  z=8 m1=3
x=6  y=9  z=11 m1=2
x=6  y=9  z=11 m1=2
x=6  y=5  z=8 m1=3
x=6  y=9  z=11 m1=2
x=6  y=5  z=8 m1=3
x=6  y=9  z=11 m1=2
x=6  y=9  z=11 m1=2
x=7  y=27  z=28 m1=1
x=8  y=35  z=36 m1=1
x=8  y=10  z=13 m1=3
x=8  y=10  z=13 m1=3
x=9  y=44  z=45 m1=1
x=9  y=21  z=23 m1=2
x=9  y=13  z=16 m1=3
x=9  y=21  z=23 m1=2
x=9  y=6  z=11 m1=5
x=9  y=4  z=10 m1=6
x=9  y=21  z=23 m1=2
x=9  y=4  z=10 m1=6
x=9  y=21  z=23 m1=2
x=9  y=21  z=23 m1=2
x=10  y=54  z=55 m1=1
x=10  y=26  z=28 m1=2
x=10  y=26  z=28 m1=2
x=10  y=8  z=13 m1=5
x=10  y=26  z=28 m1=2
x=10  y=26  z=28 m1=2
x=10  y=26  z=28 m1=2
x=10  y=26  z=28 m1=2
x=10  y=8  z=13 m1=5
x=10  y=26  z=28 m1=2
x=10  y=26  z=28 m1=2
x=11  y=65  z=66 m1=1
x=11  y=20  z=23 m1=3
x=11  y=14  z=18 m1=4
x=11  y=14  z=18 m1=4
x=11  y=20  z=23 m1=3
x=11  y=20  z=23 m1=3
x=11  y=14  z=18 m1=4
x=11  y=14  z=18 m1=4
x=12  y=77  z=78 m1=1
x=12  y=24  z=27 m1=3
x=12  y=17  z=21 m1=4
x=12  y=17  z=21 m1=4
x=12  y=24  z=27 m1=3
x=12  y=24  z=27 m1=3
x=12  y=17  z=21 m1=4
x=12  y=17  z=21 m1=4
x=13  y=90  z=91 m1=1
x=13  y=44  z=46 m1=2
x=13  y=44  z=46 m1=2
x=13  y=44  z=46 m1=2
x=13  y=9  z=16 m1=7
x=13  y=44  z=46 m1=2
x=13  y=44  z=46 m1=2
x=13  y=44  z=46 m1=2
x=13  y=44  z=46 m1=2
x=13  y=44  z=46 m1=2
x=13  y=44  z=46 m1=2
x=14  y=104  z=105 m1=1
x=14  y=51  z=53 m1=2
x=14  y=33  z=36 m1=3
x=14  y=51  z=53 m1=2
x=14  y=18  z=23 m1=5
x=14  y=14  z=20 m1=6
x=14  y=11  z=18 m1=7
x=14  y=51  z=53 m1=2
x=14  y=33  z=36 m1=3
x=14  y=5  z=15 m1=10
x=14  y=14  z=20 m1=6
x=14  y=51  z=53 m1=2
x=14  y=14  z=20 m1=6
x=14  y=5  z=15 m1=10
x=15  y=119  z=120 m1=1
x=15  y=38  z=41 m1=3
x=15  y=21  z=26 m1=5
x=15  y=38  z=41 m1=3
x=16  y=135  z=136 m1=1
x=17  y=152  z=153 m1=1
x=17  y=75  z=77 m1=2
x=17  y=49  z=52 m1=3
x=17  y=75  z=77 m1=2
x=17  y=22  z=28 m1=6
x=17  y=75  z=77 m1=2
x=17  y=12  z=21 m1=9
x=17  y=75  z=77 m1=2
x=17  y=22  z=28 m1=6
x=17  y=75  z=77 m1=2
x=17  y=49  z=52 m1=3
x=17  y=75  z=77 m1=2
x=17  y=75  z=77 m1=2
x=18  y=170  z=171 m1=1
x=18  y=84  z=86 m1=2
x=18  y=55  z=58 m1=3
x=18  y=84  z=86 m1=2
x=18  y=25  z=31 m1=6
x=18  y=84  z=86 m1=2
x=18  y=14  z=23 m1=9
x=18  y=84  z=86 m1=2
x=18  y=25  z=31 m1=6
x=18  y=84  z=86 m1=2
x=18  y=55  z=58 m1=3
x=18  y=84  z=86 m1=2
x=18  y=84  z=86 m1=2
x=19  y=189  z=190 m1=1
x=19  y=45  z=49 m1=4
x=19  y=35  z=40 m1=5
x=19  y=45  z=49 m1=4
x=19  y=45  z=49 m1=4
x=19  y=35  z=40 m1=5
x=19  y=45  z=49 m1=4
x=20  y=209  z=210 m1=1
x=20  y=68  z=71 m1=3
x=20  y=50  z=54 m1=4
x=20  y=39  z=44 m1=5
x=20  y=26  z=33 m1=7
x=20  y=50  z=54 m1=4
x=20  y=68  z=71 m1=3
x=20  y=11  z=23 m1=12
x=20  y=6  z=21 m1=15
x=20  y=50  z=54 m1=4
代码如下:

Private Sub Command1_Click()
'代码为全体解,存一下吧
Dim p, q, x, y, z
A = Val(Text1)
n = 1
Do While Val(n) <= A
m = 1
Do While m <= A
x = n
js1 = n ^ 2 + n
js = zzxc(Val(js1), Val(m))
If js = 1 Then
m1 = m
js = 2 * m
Else
m1 = js
js = Val(js) * 2
End If

y = (-m1 ^ 2 - m1 + n ^ 2 + n) / js
z = y + m1
If y > 0 And z > 0 And InStr(y, ".") = 0 And InStr(z, ".") = 0 Then
s2 = s2 + 1
s1 = s1 & "x=" & x & "  y=" & y & "  z=" & z & " m1=" & m1 & vbCrLf
Else
s2 = s2
End If

m = m + 1
Loop
n = n + 1
Loop

If Val(s2) > 0 Then
Text2 = s1
Else
Text2 = "wu   jie"
End If


End Sub

Private Sub Command2_Click()
Text1 = ""
Text2 = ""
End Sub

Private Function zzxc(sa As String, sb As String) As String
Dim A, B, c, d, r
  A = Trim(sa)
  B = Trim(sb)
  
  If Val(A) > Val(B) Then
     c = A
     d = B
  Else
     c = B
     d = A
  End If
Do Until Val(c) Mod Val(d) = 0
     r = c Mod d
     c = d
     d = r
  Loop
  
  

  
  zzxc = d
  
End Function

点评

m取值不完全,有漏解  发表于 2023-3-5 16:27
回复 支持 反对

使用道具 举报

 楼主| 发表于 2023-3-5 11:51 | 显示全部楼层
x=2  y=2  z=3 m1=1
x=3  y=5  z=6 m1=1
x=4  y=9  z=10 m1=1
x=5  y=14  z=15 m1=1
x=5  y=6  z=8 m1=2
x=5  y=3  z=6 m1=3
x=5  y=6  z=8 m1=2
x=5  y=6  z=8 m1=2
x=5  y=3  z=6 m1=3
x=5  y=6  z=8 m1=2
x=5  y=6  z=8 m1=2
x=6  y=20  z=21 m1=1
x=6  y=9  z=11 m1=2
x=6  y=5  z=8 m1=3
x=6  y=9  z=11 m1=2
x=6  y=9  z=11 m1=2
x=6  y=5  z=8 m1=3
x=6  y=9  z=11 m1=2
x=6  y=5  z=8 m1=3
x=6  y=9  z=11 m1=2
x=6  y=9  z=11 m1=2
x=7  y=27  z=28 m1=1
x=8  y=35  z=36 m1=1
x=8  y=10  z=13 m1=3
x=8  y=10  z=13 m1=3
x=9  y=44  z=45 m1=1
x=9  y=21  z=23 m1=2
x=9  y=13  z=16 m1=3
x=9  y=21  z=23 m1=2
x=9  y=6  z=11 m1=5
x=9  y=4  z=10 m1=6
x=9  y=21  z=23 m1=2
x=9  y=4  z=10 m1=6
x=9  y=21  z=23 m1=2
x=9  y=21  z=23 m1=2
x=10  y=54  z=55 m1=1
x=10  y=26  z=28 m1=2
x=10  y=26  z=28 m1=2
x=10  y=8  z=13 m1=5
x=10  y=26  z=28 m1=2
x=10  y=26  z=28 m1=2
x=10  y=26  z=28 m1=2
x=10  y=26  z=28 m1=2
x=10  y=8  z=13 m1=5
x=10  y=26  z=28 m1=2
x=10  y=26  z=28 m1=2
x=11  y=65  z=66 m1=1
x=11  y=20  z=23 m1=3
x=11  y=14  z=18 m1=4
x=11  y=14  z=18 m1=4
x=11  y=20  z=23 m1=3
x=11  y=20  z=23 m1=3
x=11  y=14  z=18 m1=4
x=11  y=14  z=18 m1=4
x=12  y=77  z=78 m1=1
x=12  y=24  z=27 m1=3
x=12  y=17  z=21 m1=4
x=12  y=17  z=21 m1=4
x=12  y=24  z=27 m1=3
x=12  y=24  z=27 m1=3
x=12  y=17  z=21 m1=4
x=12  y=17  z=21 m1=4
x=13  y=90  z=91 m1=1
x=13  y=44  z=46 m1=2
x=13  y=44  z=46 m1=2
x=13  y=44  z=46 m1=2
x=13  y=9  z=16 m1=7
x=13  y=44  z=46 m1=2
x=13  y=44  z=46 m1=2
x=13  y=44  z=46 m1=2
x=13  y=44  z=46 m1=2
x=13  y=44  z=46 m1=2
x=13  y=44  z=46 m1=2
x=14  y=104  z=105 m1=1
x=14  y=51  z=53 m1=2
x=14  y=33  z=36 m1=3
x=14  y=51  z=53 m1=2
x=14  y=18  z=23 m1=5
x=14  y=14  z=20 m1=6
x=14  y=11  z=18 m1=7
x=14  y=51  z=53 m1=2
x=14  y=33  z=36 m1=3
x=14  y=5  z=15 m1=10
x=14  y=14  z=20 m1=6
x=14  y=51  z=53 m1=2
x=14  y=14  z=20 m1=6
x=14  y=5  z=15 m1=10
x=15  y=119  z=120 m1=1
x=15  y=38  z=41 m1=3
x=15  y=21  z=26 m1=5
x=15  y=38  z=41 m1=3
x=16  y=135  z=136 m1=1
x=17  y=152  z=153 m1=1
x=17  y=75  z=77 m1=2
x=17  y=49  z=52 m1=3
x=17  y=75  z=77 m1=2
x=17  y=22  z=28 m1=6
x=17  y=75  z=77 m1=2
x=17  y=12  z=21 m1=9
x=17  y=75  z=77 m1=2
x=17  y=22  z=28 m1=6
x=17  y=75  z=77 m1=2
x=17  y=49  z=52 m1=3
x=17  y=75  z=77 m1=2
x=17  y=75  z=77 m1=2
x=18  y=170  z=171 m1=1
x=18  y=84  z=86 m1=2
x=18  y=55  z=58 m1=3
x=18  y=84  z=86 m1=2
x=18  y=25  z=31 m1=6
x=18  y=84  z=86 m1=2
x=18  y=14  z=23 m1=9
x=18  y=84  z=86 m1=2
x=18  y=25  z=31 m1=6
x=18  y=84  z=86 m1=2
x=18  y=55  z=58 m1=3
x=18  y=84  z=86 m1=2
x=18  y=84  z=86 m1=2
x=19  y=189  z=190 m1=1
x=19  y=45  z=49 m1=4
x=19  y=35  z=40 m1=5
x=19  y=45  z=49 m1=4
x=19  y=45  z=49 m1=4
x=19  y=35  z=40 m1=5
x=19  y=45  z=49 m1=4
x=20  y=209  z=210 m1=1
x=20  y=68  z=71 m1=3
x=20  y=50  z=54 m1=4
x=20  y=39  z=44 m1=5
x=20  y=26  z=33 m1=7
x=20  y=50  z=54 m1=4
x=20  y=68  z=71 m1=3
x=20  y=11  z=23 m1=12
x=20  y=6  z=21 m1=15
x=20  y=50  z=54 m1=4
代码如下:

Private Sub Command1_Click()
'代码为全体解,存一下吧
Dim p, q, x, y, z
A = Val(Text1)
n = 1
Do While Val(n) <= A
m = 1
Do While m <= A
x = n
js1 = n ^ 2 + n
js = zzxc(Val(js1), Val(m))
If js = 1 Then
m1 = m
js = 2 * m
Else
m1 = js
js = Val(js) * 2
End If

y = (-m1 ^ 2 - m1 + n ^ 2 + n) / js
z = y + m1
If y > 0 And z > 0 And InStr(y, ".") = 0 And InStr(z, ".") = 0 Then
s2 = s2 + 1
s1 = s1 & "x=" & x & "  y=" & y & "  z=" & z & " m1=" & m1 & vbCrLf
Else
s2 = s2
End If

m = m + 1
Loop
n = n + 1
Loop

If Val(s2) > 0 Then
Text2 = s1
Else
Text2 = "wu   jie"
End If


End Sub

Private Sub Command2_Click()
Text1 = ""
Text2 = ""
End Sub

Private Function zzxc(sa As String, sb As String) As String
Dim A, B, c, d, r
  A = Trim(sa)
  B = Trim(sb)
  
  If Val(A) > Val(B) Then
     c = A
     d = B
  Else
     c = B
     d = A
  End If
Do Until Val(c) Mod Val(d) = 0
     r = c Mod d
     c = d
     d = r
  Loop
  
  

  
  zzxc = d
  
End Function
回复 支持 反对

使用道具 举报

 楼主| 发表于 2023-3-5 11:52 | 显示全部楼层
x=2  y=2  z=3 m1=1
x=3  y=5  z=6 m1=1
x=4  y=9  z=10 m1=1
x=5  y=14  z=15 m1=1
x=5  y=6  z=8 m1=2
x=5  y=3  z=6 m1=3
x=5  y=6  z=8 m1=2
x=5  y=6  z=8 m1=2
x=5  y=3  z=6 m1=3
x=5  y=6  z=8 m1=2
x=5  y=6  z=8 m1=2
x=6  y=20  z=21 m1=1
x=6  y=9  z=11 m1=2
x=6  y=5  z=8 m1=3
x=6  y=9  z=11 m1=2
x=6  y=9  z=11 m1=2
x=6  y=5  z=8 m1=3
x=6  y=9  z=11 m1=2
x=6  y=5  z=8 m1=3
x=6  y=9  z=11 m1=2
x=6  y=9  z=11 m1=2
x=7  y=27  z=28 m1=1
x=8  y=35  z=36 m1=1
x=8  y=10  z=13 m1=3
x=8  y=10  z=13 m1=3
x=9  y=44  z=45 m1=1
x=9  y=21  z=23 m1=2
x=9  y=13  z=16 m1=3
x=9  y=21  z=23 m1=2
x=9  y=6  z=11 m1=5
x=9  y=4  z=10 m1=6
x=9  y=21  z=23 m1=2
x=9  y=4  z=10 m1=6
x=9  y=21  z=23 m1=2
x=9  y=21  z=23 m1=2
x=10  y=54  z=55 m1=1
x=10  y=26  z=28 m1=2
x=10  y=26  z=28 m1=2
x=10  y=8  z=13 m1=5
x=10  y=26  z=28 m1=2
x=10  y=26  z=28 m1=2
x=10  y=26  z=28 m1=2
x=10  y=26  z=28 m1=2
x=10  y=8  z=13 m1=5
x=10  y=26  z=28 m1=2
x=10  y=26  z=28 m1=2
x=11  y=65  z=66 m1=1
x=11  y=20  z=23 m1=3
x=11  y=14  z=18 m1=4
x=11  y=14  z=18 m1=4
x=11  y=20  z=23 m1=3
x=11  y=20  z=23 m1=3
x=11  y=14  z=18 m1=4
x=11  y=14  z=18 m1=4
x=12  y=77  z=78 m1=1
x=12  y=24  z=27 m1=3
x=12  y=17  z=21 m1=4
x=12  y=17  z=21 m1=4
x=12  y=24  z=27 m1=3
x=12  y=24  z=27 m1=3
x=12  y=17  z=21 m1=4
x=12  y=17  z=21 m1=4
x=13  y=90  z=91 m1=1
x=13  y=44  z=46 m1=2
x=13  y=44  z=46 m1=2
x=13  y=44  z=46 m1=2
x=13  y=9  z=16 m1=7
x=13  y=44  z=46 m1=2
x=13  y=44  z=46 m1=2
x=13  y=44  z=46 m1=2
x=13  y=44  z=46 m1=2
x=13  y=44  z=46 m1=2
x=13  y=44  z=46 m1=2
x=14  y=104  z=105 m1=1
x=14  y=51  z=53 m1=2
x=14  y=33  z=36 m1=3
x=14  y=51  z=53 m1=2
x=14  y=18  z=23 m1=5
x=14  y=14  z=20 m1=6
x=14  y=11  z=18 m1=7
x=14  y=51  z=53 m1=2
x=14  y=33  z=36 m1=3
x=14  y=5  z=15 m1=10
x=14  y=14  z=20 m1=6
x=14  y=51  z=53 m1=2
x=14  y=14  z=20 m1=6
x=14  y=5  z=15 m1=10
x=15  y=119  z=120 m1=1
x=15  y=38  z=41 m1=3
x=15  y=21  z=26 m1=5
x=15  y=38  z=41 m1=3
x=16  y=135  z=136 m1=1
x=17  y=152  z=153 m1=1
x=17  y=75  z=77 m1=2
x=17  y=49  z=52 m1=3
x=17  y=75  z=77 m1=2
x=17  y=22  z=28 m1=6
x=17  y=75  z=77 m1=2
x=17  y=12  z=21 m1=9
x=17  y=75  z=77 m1=2
x=17  y=22  z=28 m1=6
x=17  y=75  z=77 m1=2
x=17  y=49  z=52 m1=3
x=17  y=75  z=77 m1=2
x=17  y=75  z=77 m1=2
x=18  y=170  z=171 m1=1
x=18  y=84  z=86 m1=2
x=18  y=55  z=58 m1=3
x=18  y=84  z=86 m1=2
x=18  y=25  z=31 m1=6
x=18  y=84  z=86 m1=2
x=18  y=14  z=23 m1=9
x=18  y=84  z=86 m1=2
x=18  y=25  z=31 m1=6
x=18  y=84  z=86 m1=2
x=18  y=55  z=58 m1=3
x=18  y=84  z=86 m1=2
x=18  y=84  z=86 m1=2
x=19  y=189  z=190 m1=1
x=19  y=45  z=49 m1=4
x=19  y=35  z=40 m1=5
x=19  y=45  z=49 m1=4
x=19  y=45  z=49 m1=4
x=19  y=35  z=40 m1=5
x=19  y=45  z=49 m1=4
x=20  y=209  z=210 m1=1
x=20  y=68  z=71 m1=3
x=20  y=50  z=54 m1=4
x=20  y=39  z=44 m1=5
x=20  y=26  z=33 m1=7
x=20  y=50  z=54 m1=4
x=20  y=68  z=71 m1=3
x=20  y=11  z=23 m1=12
x=20  y=6  z=21 m1=15
x=20  y=50  z=54 m1=4
代码如下:

Private Sub Command1_Click()
'代码为全体解,存一下吧
Dim p, q, x, y, z
A = Val(Text1)
n = 1
Do While Val(n) <= A
m = 1
Do While m <= A
x = n
js1 = n ^ 2 + n
js = zzxc(Val(js1), Val(m))
If js = 1 Then
m1 = m
js = 2 * m
Else
m1 = js
js = Val(js) * 2
End If

y = (-m1 ^ 2 - m1 + n ^ 2 + n) / js
z = y + m1
If y > 0 And z > 0 And InStr(y, ".") = 0 And InStr(z, ".") = 0 Then
s2 = s2 + 1
s1 = s1 & "x=" & x & "  y=" & y & "  z=" & z & " m1=" & m1 & vbCrLf
Else
s2 = s2
End If

m = m + 1
Loop
n = n + 1
Loop

If Val(s2) > 0 Then
Text2 = s1
Else
Text2 = "wu   jie"
End If


End Sub

Private Sub Command2_Click()
Text1 = ""
Text2 = ""
End Sub

Private Function zzxc(sa As String, sb As String) As String
Dim A, B, c, d, r
  A = Trim(sa)
  B = Trim(sb)
  
  If Val(A) > Val(B) Then
     c = A
     d = B
  Else
     c = B
     d = A
  End If
Do Until Val(c) Mod Val(d) = 0
     r = c Mod d
     c = d
     d = r
  Loop
  
  

  
  zzxc = d
  
End Function
回复 支持 反对

使用道具 举报

 楼主| 发表于 2023-3-5 15:19 | 显示全部楼层
输入20用T先生的公式不用求公因数得到的结果:
x=2  y=2  z=3
x=3  y=5  z=6
x=4  y=9  z=10
x=5  y=14  z=15
x=5  y=6  z=8
x=5  y=3  z=6
x=6  y=20  z=21
x=6  y=9  z=11
x=6  y=5  z=8
x=7  y=27  z=28
x=8  y=35  z=36
x=8  y=10  z=13
x=9  y=44  z=45
x=9  y=21  z=23
x=9  y=13  z=16
x=9  y=6  z=11
x=9  y=4  z=10
x=10  y=54  z=55
x=10  y=26  z=28
x=10  y=8  z=13
x=11  y=65  z=66
x=11  y=20  z=23
x=11  y=14  z=18
x=12  y=77  z=78
x=12  y=24  z=27
x=12  y=17  z=21
x=13  y=90  z=91
x=13  y=44  z=46
x=13  y=9  z=16
x=14  y=104  z=105
x=14  y=51  z=53
x=14  y=33  z=36
x=14  y=18  z=23
x=14  y=14  z=20
x=14  y=11  z=18
x=14  y=5  z=15
x=15  y=119  z=120
x=15  y=38  z=41
x=15  y=21  z=26
x=16  y=135  z=136
x=17  y=152  z=153
x=17  y=75  z=77
x=17  y=49  z=52
x=17  y=22  z=28
x=17  y=12  z=21
x=18  y=170  z=171
x=18  y=84  z=86
x=18  y=55  z=58
x=18  y=25  z=31
x=18  y=14  z=23
x=19  y=189  z=190
x=19  y=45  z=49
x=19  y=35  z=40
x=20  y=209  z=210
x=20  y=68  z=71
x=20  y=50  z=54
x=20  y=39  z=44
x=20  y=26  z=33
x=20  y=11  z=23
x=20  y=6  z=21
代码如下:

Private Sub Command1_Click()
'代码为全体解,存一下吧
Dim p, q, x, y, z
A = Val(Text1)
n = 1
Do While Val(n) <= A
m = 1
Do While m <= A
x = n

y = (-m ^ 2 - m + n ^ 2 + n) / (2 * m)
z = (m ^ 2 - m + n ^ 2 + n) / (2 * m)
If y > 0 And z > 0 And InStr(y, ".") = 0 And InStr(z, ".") = 0 Then
s2 = s2 + 1
s1 = s1 & "x=" & x & "  y=" & y & "  z=" & z & vbCrLf
Else
s2 = s2
End If

m = m + 1
Loop
n = n + 1
Loop

If Val(s2) > 0 Then
Text2 = s1
Else
Text2 = "wu   jie"
End If


End Sub

Private Sub Command2_Click()
Text1 = ""
Text2 = ""
End Sub
回复 支持 反对

使用道具 举报

发表于 2023-3-5 16:28 | 显示全部楼层
ysr 发表于 2023-3-5 11:51
x=2  y=2  z=3 m1=1
x=3  y=5  z=6 m1=1
x=4  y=9  z=10 m1=1
  1. Function Tnumber(ByVal n As Long) As String
  2. Dim temp$, r&, k&
  3. For k = n - 1 To 1 Step -1
  4. t = (n * (n + 1) - k * (k + 1)) / 2
  5. If t Mod (k) = 0 Then r = r + 1: temp = temp & ",{" & n & "," & t / k & "," & t / k + k & "," & k & "}"
  6. Next
  7. temp = n & "," & r & temp
  8. Tnumber = temp
  9. End Function

  10. Sub Test()
  11. Debug.Print Tnumber(8000)
  12. End Sub
复制代码


8000,47,{8000,126,8001,7875},{8000,1402,8122,6720},{8000,2742,8457,5715},{8000,4267,9067,4800},{8000,4977,9422,4445},{8000,5921,9953,4032},{8000,8492,11667,3175},{8000,9672,12552,2880},{8000,10666,13333,2667},{8000,10879,13504,2625},{8000,13167,15407,2240},{8000,15847,17752,1905},{8000,19202,20802,1600},{8000,19532,21107,1575},{8000,23140,24484,1344},{8000,27428,28571,1143},{8000,27885,29010,1125},{8000,32857,33817,960},{8000,35555,36444,889},{8000,36138,37013,875},{8000,50082,50717,635},{8000,55274,55850,576},{8000,60697,61222,525},{8000,71213,71661,448},{8000,83809,84190,381},{8000,85156,85531,375},{8000,99852,100172,320},{8000,101442,101757,315},{8000,142127,142352,225},{8000,166591,166783,192},{8000,182792,182967,175},{8000,251936,252063,127},{8000,255969,256094,125},{8000,304747,304852,105},{8000,426682,426757,75},{8000,500030,500094,64},{8000,507968,508031,63},{8000,711177,711222,45},{8000,914382,914417,35},{8000,1280147,1280172,25},{8000,1523989,1524010,21},{8000,2133592,2133607,15},{8000,3555995,3556
004,9},{8000,4571996,4572003,7},{8000,6400797,6400802,5},{8000,10667998,10668001,3},{8000,32003999,32004000,1}
回复 支持 反对

使用道具 举报

 楼主| 发表于 2023-3-5 18:45 | 显示全部楼层
x=8000  y=32003999  z=32004000
x=8000  y=10667998  z=10668001
x=8000  y=6400797  z=6400802
x=8000  y=4571996  z=4572003
x=8000  y=3555995  z=3556004
x=8000  y=2133592  z=2133607
x=8000  y=1523989  z=1524010
x=8000  y=1280147  z=1280172
x=8000  y=914382  z=914417
x=8000  y=711177  z=711222
x=8000  y=507968  z=508031
x=8000  y=500030  z=500094
x=8000  y=426682  z=426757
x=8000  y=304747  z=304852
x=8000  y=255969  z=256094
x=8000  y=251936  z=252063
x=8000  y=182792  z=182967
x=8000  y=166591  z=166783
x=8000  y=142127  z=142352
x=8000  y=101442  z=101757
x=8000  y=99852  z=100172
x=8000  y=85156  z=85531
x=8000  y=83809  z=84190
x=8000  y=71213  z=71661
x=8000  y=60697  z=61222
x=8000  y=55274  z=55850
x=8000  y=50082  z=50717
x=8000  y=36138  z=37013
x=8000  y=35555  z=36444
x=8000  y=32857  z=33817
x=8000  y=27885  z=29010
x=8000  y=27428  z=28571
x=8000  y=23140  z=24484
x=8000  y=19532  z=21107
x=8000  y=19202  z=20802
x=8000  y=15847  z=17752
x=8000  y=13167  z=15407
x=8000  y=10879  z=13504
x=8000  y=10666  z=13333
x=8000  y=9672  z=12552
x=8000  y=8492  z=11667
x=8000  y=5921  z=9953
x=8000  y=4977  z=9422
x=8000  y=4267  z=9067
x=8000  y=2742  z=8457
x=8000  y=1402  z=8122
x=8000  y=126  z=8001
x=8001  y=32012000  z=32012001
x=8001  y=16005999  z=16006001
x=8001  y=10670665  z=10670668
x=8001  y=5335330  z=5335336
x=8001  y=4573139  z=4573146
x=8001  y=3556884  z=3556893
x=8001  y=2286564  z=2286578
x=8001  y=1778435  z=1778453
x=8001  y=1524370  z=1524391
x=8001  y=762169  z=762211
x=8001  y=508095  z=508158
x=8001  y=254000  z=254126
x=8001  y=251999  z=252126
x=8001  y=125904  z=126158
x=8001  y=83830  z=84211
x=8001  y=41629  z=42391
x=8001  y=35564  z=36453
x=8001  y=27435  z=28578
x=8001  y=17115  z=18893
x=8001  y=12860  z=15146
x=8001  y=10669  z=13336
x=8001  y=6000  z=10001
x=8001  y=3334  z=8668
x=8002  y=32020002  z=32020003
x=8002  y=16010000  z=16010002
x=8002  y=604124  z=604177
x=8002  y=302022  z=302128
x=8002  y=211977  z=212128
x=8002  y=105875  z=106177
x=8002  y=6002  z=10003
x=8003  y=32028005  z=32028006
x=8003  y=10676000  z=10676003
x=8003  y=8006999  z=8007003
x=8003  y=2668994  z=2669006
x=8003  y=1392510  z=1392533
x=8003  y=1104399  z=1104428
x=8003  y=604275  z=604328
x=8003  y=464139  z=464208
x=8003  y=368094  z=368181
x=8003  y=348084  z=348176
x=8003  y=276045  z=276161
x=8003  y=212030  z=212181
x=8003  y=201354  z=201513
x=8003  y=150969  z=151181
x=8003  y=115905  z=116181
x=8003  y=91860  z=92208
x=8003  y=70475  z=70928
x=8003  y=52724  z=53328
x=8003  y=50040  z=50676
x=8003  y=47684  z=48351
x=8003  y=25664  z=26883
x=8003  y=20069  z=21606
x=8003  y=16769  z=18581
x=8003  y=15005  z=17006
x=8003  y=10670  z=13338
x=8003  y=7485  z=10958
x=8003  y=6929  z=10586
x=8003  y=5124  z=9503
x=8003  y=4640  z=9251
x=8003  y=4130  z=9006
x=8003  y=2135  z=8283
x=8004  y=32036009  z=32036010
x=8004  y=10678668  z=10678671
x=8004  y=8009000  z=8009004
x=8004  y=6407199  z=6407204
x=8004  y=2669661  z=2669673
x=8004  y=2135726  z=2135741
x=8004  y=1601790  z=1601810
x=8004  y=1392858  z=1392881
x=8004  y=1104675  z=1104704
x=8004  y=533903  z=533963
x=8004  y=464255  z=464324
x=8004  y=368186  z=368273
x=8004  y=348171  z=348263
x=8004  y=278516  z=278631
x=8004  y=276114  z=276230
x=8004  y=220865  z=221010
x=8004  y=115934  z=116210
x=8004  y=92685  z=93030
x=8004  y=91883  z=92231
x=8004  y=73428  z=73863
x=8004  y=69413  z=69873
x=8004  y=54944  z=55524
x=8004  y=47696  z=48363
x=8004  y=22524  z=23904
x=8004  y=19209  z=20810
x=8004  y=17541  z=19281
x=8004  y=15009  z=17010
x=8004  y=10673  z=13341
x=8004  y=7938  z=11273
x=8004  y=4268  z=9071
x=8004  y=1800  z=8204
x=8005  y=32044014  z=32044015
x=8005  y=16022006  z=16022008
x=8005  y=6408800  z=6408805
x=8005  y=3204396  z=3204406
x=8005  y=19214  z=20815
x=8005  y=8406  z=11608
x=8005  y=6003  z=10006
x=8006  y=32052020  z=32052021
x=8006  y=16026009  z=16026011
x=8006  y=10684005  z=10684008
x=8006  y=5342000  z=5342006
x=8006  y=1885404  z=1885421
x=8006  y=942689  z=942723
x=8006  y=628445  z=628496
x=8006  y=314184  z=314286
x=8006  y=204074  z=204231
x=8006  y=101919  z=102233
x=8006  y=67815  z=68286
x=8006  y=33554  z=34496
x=8006  y=10674  z=13343
x=8006  y=6005  z=10008
x=8006  y=3335  z=8673
x=8007  y=32060027  z=32060028
x=8007  y=10686674  z=10686677
x=8007  y=4580000  z=4580007
x=8007  y=4007499  z=4007507
x=8007  y=2914542  z=2914553
x=8007  y=2466149  z=2466162
x=8007  y=1885875  z=1885892
x=8007  y=1526657  z=1526678
x=8007  y=1335822  z=1335846
x=8007  y=971499  z=971532
x=8007  y=822032  z=822071
x=8007  y=628602  z=628653
x=8007  y=572472  z=572528
x=8007  y=416325  z=416402
x=8007  y=364274  z=364362
x=8007  y=352262  z=352353
x=8007  y=308217  z=308321
x=8007  y=269352  z=269471
x=8007  y=235667  z=235803
x=8007  y=224124  z=224267
x=8007  y=204125  z=204282
x=8007  y=190749  z=190917
x=8007  y=171350  z=171537
x=8007  y=144957  z=145178
x=8007  y=138672  z=138903
x=8007  y=121307  z=121571
x=8007  y=117299  z=117572
x=8007  y=102600  z=102912
x=8007  y=89625  z=89982
x=8007  y=78374  z=78782
x=8007  y=74517  z=74946
x=8007  y=67832  z=68303
x=8007  y=56867  z=57428
x=8007  y=51737  z=52353
x=8007  y=48024  z=48687
x=8007  y=43674  z=44402
x=8007  y=33200  z=34152
x=8007  y=31527  z=32528
x=8007  y=28622  z=29721
x=8007  y=27452  z=28596
x=8007  y=24897  z=26153
x=8007  y=23837  z=25146
x=8007  y=20682  z=22178
x=8007  y=19950  z=21497
x=8007  y=17700  z=19427
x=8007  y=17249  z=19017
x=8007  y=16424  z=18272
x=8007  y=14687  z=16728
x=8007  y=13587  z=15771
x=8007  y=11972  z=14403
x=8007  y=10677  z=13346
x=8007  y=9797  z=12653
x=8007  y=9174  z=12177
x=8007  y=8075  z=11372
x=8007  y=7625  z=11057
x=8007  y=6624  z=10392
x=8007  y=6200  z=10127
x=8007  y=4899  z=9387
x=8007  y=4587  z=9228
x=8007  y=3597  z=8778
x=8007  y=3392  z=8696
x=8007  y=2174  z=8297
x=8007  y=749  z=8042
x=8008  y=32068035  z=32068036
x=8008  y=4581144  z=4581151
x=8008  y=4008500  z=4008508
x=8008  y=2915270  z=2915281
x=8008  y=2466765  z=2466778
x=8008  y=572615  z=572671
x=8008  y=416429  z=416506
x=8008  y=364365  z=364453
x=8008  y=352350  z=352441
x=8008  y=308294  z=308398
x=8008  y=224180  z=224323
x=8008  y=51750  z=52366
x=8008  y=43685  z=44413
x=8008  y=31535  z=32536
x=8008  y=27459  z=28603
x=8009  y=32076044  z=32076045
x=8009  y=16038021  z=16038023
x=8009  y=10692013  z=10692016
x=8009  y=6415206  z=6415211
x=8009  y=5346004  z=5346010
x=8009  y=3564000  z=3564009
x=8009  y=3207599  z=3207609
x=8009  y=2138395  z=2138410
x=8009  y=1781993  z=1782011
x=8009  y=1069186  z=1069216
x=8009  y=712778  z=712823
x=8009  y=360360  z=360449
x=8009  y=356355  z=356445
x=8009  y=180113  z=180291
x=8009  y=120001  z=120268
x=8009  y=71858  z=72303
x=8009  y=59800  z=60334
x=8009  y=39644  z=40445
x=8009  y=35595  z=36485
x=8009  y=23359  z=24694
x=8009  y=19221  z=20823
x=8009  y=10678  z=13348
x=8009  y=6006  z=10011
x=8010  y=32084054  z=32084055
x=8010  y=16042026  z=16042028
x=8010  y=10694683  z=10694686
x=8010  y=6416808  z=6416813
x=8010  y=5347339  z=5347345
x=8010  y=3564890  z=3564899
x=8010  y=3208400  z=3208410
x=8010  y=2138929  z=2138944
x=8010  y=1782438  z=1782456
x=8010  y=1069453  z=1069483
x=8010  y=712956  z=713001
x=8010  y=360450  z=360539
x=8010  y=356444  z=356534
x=8010  y=180158  z=180336
x=8010  y=120031  z=120298
x=8010  y=71876  z=72321
x=8010  y=59815  z=60349
x=8010  y=39654  z=40455
x=8010  y=35604  z=36494
x=8010  y=23365  z=24700
x=8010  y=19226  z=20828
x=8010  y=10681  z=13351
x=8010  y=6008  z=10013

点评

赞一个  发表于 2023-3-5 21:32
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|小黑屋|数学中国 ( 京ICP备05040119号 )

GMT+8, 2024-4-26 12:55 , Processed in 0.091797 second(s), 19 queries .

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表