[zxspectrum] Calcolo pigreco

  • From: Enrico Maria Giordano <e.m.giordano@xxxxxxxxxxxxxxx>
  • To: The ZX Spectrum Mailing-List <zxspectrum@xxxxxxxxxxxxx>
  • Date: Sun, 3 Jan 2016 15:30:01 +0100

Volevo migliorare la velocità del mio programma dimostrativo delle mie routine matematiche che calcola il pigreco. Sto usando questa funzione:

FUNCTION PIGRECO()

    LOCAL nPi := 3

    LOCAL nSgn := 1

    LOCAL i

    FOR i = 2 TO 4 STEP 2 //2000000 STEP 2
        nPi += nSgn * 4 / ( i * ( i + 1 ) * ( i + 2 ) )
        nSgn = -nSgn
    NEXT

    RETURN nPi

ma converge troppo lentamente. Qualcuno conosce un algoritmo che converga più rapidamente? Ho cercato un po' in giro ma quello che ho trovato non sono riuscito a capirlo per niente e quindi non riesco ad implementarlo.

EMG

--
EMAG Software Homepage: http://www.emagsoftware.it
The EMG Music page: http://www.emagsoftware.it/emgmusic
The EMG's ZX-Spectrum Page: http://www.emagsoftware.it/spectrum
The Best of Spectrum Games: http://www.emagsoftware.it/tbosg

Other related posts: