Goldbachin konjektuuri

Vastaa Viestiin
H
Harrastelija
Viestit: 25

Goldbachin konjektuuri

Viesti Kirjoittaja Harrastelija »

Goldbachin konjektuuri esitettiin vuonna 1742 ja se kuuluu: kaikki parilliset luvut suuremmat kuin 2 voidaan esittää kahden alkuluvun summana. Testaan lukua 1000000000000000000 freepascal kielisellä ohjelmalla. Ohjelma on pyörinyt nyt kauan aikaa, eikä vieläkään ole löytänyt kahta alkulukua. Yleensä kaksi alkulukua löytyvät pian. Ois se hienoa tehdä historiaa ja löytää vastaesimerkki, mikä kumoaa konjektuurin :woozy: Vuonna 2013, eräs tutkimus, joka käytti erittäin suurta laskentatehoa, tutki Goldbachin konjektuuria kaikilla parillisilla luvuilla alle 4×10^18 eli välttämättä lukua 1000000000000000000 eli lukua 10E+19 ei olla vielä tutkittu.

program GoldbachExample;
uses
bigdecimalmath;

function IsPrime(n: BigDecimal): Boolean;
var
i, num: BigDecimal;
begin
IsPrime := True;
num := Sqrt(n);
i := 2;
while i <= num do
begin
if (n mod i) = 0 then
begin
IsPrime := False;
Exit;
end;
i := i + 1;
end;
end;

procedure GoldbachSum(n: BigDecimal);
var
x, y: BigDecimal;
found: Boolean;
begin
found := False;
x := 2;
while x <= n div 2 do
begin
if IsPrime(x) then
begin
y := n - x;
if IsPrime(y) then
begin
WriteLn(BigDecimalToStr(n), ' = ', BigDecimalToStr(x), ' + ', BigDecimalToStr(y));
found := True;
Break;
end;
end;
x := x + 1;
end;
if not found then
WriteLn('No Goldbach sum found for ', BigDecimalToStr(n));
end;

var
numberToCheck: BigDecimal;
begin
numberToCheck := 1000000000000000000;
GoldbachSum(numberToCheck);
end.
Q
QS
Viestit: 345

Re: Goldbachin konjektuuri

Viesti Kirjoittaja QS »

Tämän tulosjoukko on { 999999999999999989 , 11 }
D
Disputator
Viestit: 203

Re: Goldbachin konjektuuri

Viesti Kirjoittaja Disputator »

Harrastelija kirjoitti: 07 Tammi 2024, 12:03
Goldbachin konjektuuri esitettiin vuonna 1742 ja se kuuluu: kaikki parilliset luvut suuremmat kuin 2 voidaan esittää kahden alkuluvun summana. Testaan lukua 1000000000000000000 freepascal kielisellä ohjelmalla.
...
Ihan jees puuhastelua . Vähän kuitenkin täytyy antaa negatiivista palautetta ohjelmointikielen valinnasta, sillä Pascal on kai nykypäivän ohjelmointia osaavien osaamislistalla jossain paikalla 100+ eli noin 0,002% koodareista ymmärtää Pascalin sielunelämää tarkemmin. Pascal koodi jää ainakin multa tarkastamatta, koska en viitsi opetella Pascalia vastatakseni netissä johonkin ja luultavasti moni muukin ajattelee niin. Siksi:

Nykyään jengi koodaa jollain Pythonilla, C:llä, C++lla Javalla tms. Kaikissa noissa on olemassa kirjastoja erilaiseen harrastelijan numeronmurskaukseen.
SI Resurrection!
Vastaa Viestiin