' Congettura di Eulero -> Matematica e Calcolatore, sch.8, es.6 DEFDBL A-Z n.cifre = 15: prec.rel = 5 * 10 ^ -n.cifre x1 = 25: x2 = 30 y1 = 80 ' Invece che: FOR x = 1 TO 150 : FOR y = x TO 150: FOR z = y to 150 : ... ' si sono scelti per x e y range piu` ristretti per ridurre i tempi; ' comunque la quaterna di interi x,y,z,w che si ottiene e` la prima per cui ' esiste u intero tale che x^5+y^5+z^5+w^5=u^5 COLOR 14 PRINT "Ricerca di x,y,z,w per cui esiste u tale che x^5+y^5+z^5+w^5=u^5" PRINT "nell'intervallo [1,150], restringendosi a x tra "; x1; x2 PRINT "e y >"; y1 COLOR 7 PRINT "Aspetta ..." COLOR 15 FOR x = x1 TO x2: FOR y = y1 TO 150: FOR z = y TO 150: FOR w = z TO 150 LOCATE , 1: PRINT "x,y,z,w, u "; x; y; z; w; u = (x ^ 5 + y ^ 5 + z ^ 5 + w ^ 5) ^ .2#: GOSUB Ver.Int IF intero = 1 THEN PRINT " "; u: intero = 0 NEXT: NEXT: NEXT: NEXT LOCATE , 1: PRINT SPACE$(60) END Ver.Int: IF ABS((INT(u) - u) / u) < prec.rel THEN ' parte intera inf. intero = 1 ELSEIF ABS((INT(u + 1) - u) / u) < prec.rel THEN ' parte intera sup. intero = 1 END IF RETURN