Re: Integral points on elliptic curves
- To: mathgroup at smc.vnet.net
- Subject: [mg122587] Re: Integral points on elliptic curves
- From: Artur <grafix at csl.pl>
- Date: Wed, 2 Nov 2011 06:22:28 -0500 (EST)
- Delivered-to: l-mathgroup@mail-archive0.wolfram.com
- References: <201110231024.GAA10524@smc.vnet.net> <034053C0-8CD1-44D4-835E-F6EA9D174555@mimuw.edu.pl> <201110251017.GAA05822@smc.vnet.net> <4EAFD6E5.5090304@csl.pl>
- Reply-to: grafix at csl.pl
P.S.
Choose d^2 inspite inspite (4 d^2 E^2 ProductLog[-1, -(1/(2 d E))]^2)
is usefull for small d where d^2<<(4 d^2 E^2 ProductLog[-1, -(1/(2 d
E))]^2)
but if
d>9819237619956432205457343790613036173054804524960328839001963304957144\
9969310680067610622993495364457080915240696725178052317411702942199067\
4555234904932970275931679797061927319629
function d^2 is worse than (4 d^2 E^2 ProductLog[-1, -(1/(2 d E))]^2)
what is possible to check by
FindRoot[(4 d^2 E^2 ProductLog[-1, -(1/(2 d E))]^2) == d^2, {d,
10^210}, WorkingPrecision -> 1000]
but no possible to chech by Plot (becausePlot working only 10^100 range
in x axis)
Also are disagreemnet because Plot and exact numerical values of crosses
function d^y with (4 d^2 E^2 ProductLog[-1, -(1/(2 d E))]^2)
compare e.g.
Plot[{(4 d^2 E^2 ProductLog[-1, -(1/(2 d E))]^2), d^2.05}, {d, 1,
10^100}]
where d^2.05 yet not cross with (4 d^2 E^2 ProductLog[-1, -(1/(2 d E))]^2)
but croos point is range of 10^80
FindRoot[(4 d^2 E^2 ProductLog[-1, -(1/(2 d E))]^2) == d^2.05, {d,
10^210}, WorkingPrecision -> 1000]
Best wishes
Artur
W dniu 2011-11-01 12:24, Artur pisze:
> Baker theory (not proof) isn't constructive from algorhitmic point of
> view. Much better is Hall conjecture.
> If we take additional condition that Hall conjecture is true in such
> case Abs[x] is less than (4 d^2 E^2 ProductLog[-1, -(1/(2 d E))]^2)
> which isn't overflow for Mathematica for resonable d values d=x^3-y^2
>
> Some programmes working that these limits for x are much more
> decreased but exceptions are stored in separate base of points with
> big canonical high.
> If we take very sharp limit x <d^2 only 25 exceptions is know for
> d=x^3-y^2
> see e.g.
> http://www.math.harvard.edu/~elkies/hall.html
>
> Best wishes
> Artur
>
> W dniu 2011-10-25 12:17, Andrzej Kozlowski pisze:
>> In fact: Baker's theorem (see Silverman's "Arithmetic of Elliptic
>> curves" p. 261) does give an effective upper bound on the size of
>> possible solutions x and y but in this case it is huge. Both Abs[x] and
>> Abs[y] must be less than
>>
>> Exp[(10^6 1641843)^(10^6)]
>>
>> However even an attempt to compute this number by applying N to it
>> produces overflow.
>>
>> Andrzej Kozlowski
>>
>>
>> On 24 Oct 2011, at 18:03, Andrzej Kozlowski wrote:
>>
>>> But Mathematica can easily find some solutions to this equation (and
>> very fast):
>>> Solve[y^3 - x^2 == 1641843&& 0< y< 10^3, {x, y}, Integers]
>>>
>>> {{x -> -11754, y -> 519}, {x -> -468, y -> 123},
>>> {x -> 468, y -> 123}, {x -> 11754, y -> 519}}
>>>
>>>
>>> The problem is to find all solutions and prove that there are no more.
>> I don't know how to do that. It is easy, however, to prove (using the
>> Nagell-Lutz Theorem) that the curve has no points of finite order.
>>> Andrzej Kozlowski
>>>
>>>
>>> On 23 Oct 2011, at 12:24, Artur wrote:
>>>
>>>> Dear Mathematica Gurus,
>>>> Who know that existed any Mathematica procedure (library) to finding
>>>> integral points on elliptic curves?
>>>> Or how to find example to e.g.
>>>>
>>>> FindInstance[y^3 - x^2 == 1641843, {x, y}, Integers]
>>>>
>>>> if FindInstance doesn't work what inspite???
>>>>
>>>> Unfortunatelly Wolfram Research is developing some branches of
>>>> Mathematics in new versions of Mathematica and complete leave
>> anothers
>>>> (good samples are elliptic curves, Chabauty method, determining
>> Galois
>>>> groups of polynomials etc.).
>>>>
>>>> Best wishes
>>>> Artur Jasinski
>>>>
>>
>>