Numero 32 Fi-Ge Estrazione 09/10/2026

[Giulio Pedrinelli]

Ciao a tutti;

Nell'estrazione del 09/10/2026 è uscito il numero 32, tra l'altro in posizione isotopa (4° Posizione) su entrambe le ruote.

Ultimi 50 casi.
Inizio: 05/01/1945
Fine: 09/10/2026
Periodo di gioco: 9 estrazioniCapogioco 1: 5° CA + 82

Capogioco 1: 5° CA + 82
Capogioco 2: 2° CA + 32

Abbinamento 1: 5° FI + 37
Abbinamento 2: 5° TO + 86
Abbinamento 3: 2° GE + 26
Abbinamento 4: 4° NA + 45

Ambi: /
Capogioco 1: 5° CA + 82 / Abbinamento 1: 5° FI + 37
Capogioco 2: 2° CA + 32 / Abbinamento 2: 5° TO + 86
Capogioco 1: 5° CA + 82 / Abbinamento 3: 2° GE + 26
Capogioco 2: 2° CA + 32 / Abbinamento 4: 4° NA + 45
Capogioco 1: 5° CA + 82 / Abbinamento 2: 5° TO + 86
Capogioco 2: 2° CA + 32 / Abbinamento 3: 2° GE + 2
Capogioco 1: 5° CA + 82 / Abbinamento 4: 4° NA + 45

L'ultimo ambo (Capogioco1 + Abbinamento 4) è da solo, intendo dire come abbinamamento.

Come percentuale dal 1945: 85,71 - Rilevati 15 casi, positivi 12 su 14, di cui uno in gioco.

Qui di seguito lo script.

Anticipazione (Spoiler): Script

Sub Main()

Dim Ini, Fin, Es, Colpo
Dim CG1, CG2
Dim A1, A2, A3, A4
Dim Ambi(7,2)
Dim R, P, TrovFI, TrovGE
Dim I, N1, N2
Dim Vinti(7), Colpi(7)
Dim VinciteAmbo(7), VinciteColpo(9)
Dim TotCond, TotVinti
Dim CasiVinti, CasiPersi, CasiInCorso
Dim CasiCompleti, VinciteCaso
Dim Perc, Stato

Ini = 3862
Fin = EstrazioneFin

TotCond = 0
TotVinti = 0
CasiVinti = 0
CasiPersi = 0
CasiInCorso = 0

For I = 1 To 7
VinciteAmbo(I) = 0
Next

For I = 1 To 9
VinciteColpo(I) = 0
Next

Scrivi "STUDIO AMBI FI-GE"
Scrivi "Condizione: 32 su FI e GE"
Scrivi "Inizio: " & DataEstrazione(Ini)
Scrivi "Periodo: 9 estrazioni"
Scrivi "================================"

For Es = Ini To Fin

TrovFI = False
TrovGE = False

For P = 1 To 5
If Estratto(Es,3,P) = 32 Then TrovFI = True
If Estratto(Es,4,P) = 32 Then TrovGE = True
Next

If TrovFI And TrovGE Then

TotCond = TotCond + 1
VinciteCaso = 0

CG1 = Fuori90(Estratto(Es,2,5) + 82)
CG2 = Fuori90(Estratto(Es,2,2) + 32)

A1 = Fuori90(Estratto(Es,3,5) + 37)
A2 = Fuori90(Estratto(Es,9,5) + 86)
A3 = Fuori90(Estratto(Es,4,2) + 26)
A4 = Fuori90(Estratto(Es,6,4) + 45)

Ambi(1,1) = CG1 : Ambi(1,2) = A1
Ambi(2,1) = CG2 : Ambi(2,2) = A2
Ambi(3,1) = CG1 : Ambi(3,2) = A3
Ambi(4,1) = CG2 : Ambi(4,2) = A4
Ambi(5,1) = CG1 : Ambi(5,2) = A2
Ambi(6,1) = CG2 : Ambi(6,2) = A3
Ambi(7,1) = CG1 : Ambi(7,2) = A4

For I = 1 To 7
Vinti(I) = False
Colpi(I) = 0
Next

Scrivi "--------------------------------"
Scrivi "CASO N. " & TotCond
Scrivi "Estrazione: " & Es & _
" del " & DataEstrazione(Es)
Scrivi "Capogiochi: " & CG1 & " - " & CG2

For I = 1 To 7

N1 = Ambi(I,1)
N2 = Ambi(I,2)

If N1 <> N2 Then

For Colpo = 1 To 9

If Es + Colpo > Fin Then Exit For
If Vinti(I) Then Exit For

For R = 3 To 4

TrovFI = False
TrovGE = False

For P = 1 To 5
If Estratto(Es + Colpo,R,P) = N1 Then TrovFI = True
If Estratto(Es + Colpo,R,P) = N2 Then TrovGE = True
Next

If TrovFI And TrovGE Then
Vinti(I) = True
Colpi(I) = Colpo

TotVinti = TotVinti + 1
VinciteCaso = VinciteCaso + 1

VinciteAmbo(I) = VinciteAmbo(I) + 1
VinciteColpo(Colpo) = VinciteColpo(Colpo) + 1

Exit For
End If

Next

Next

End If

If Vinti(I) Then
Scrivi "Ambo " & I & ": " & N1 & "-" & N2 & _
" VINTO al colpo " & Colpi(I) & _
" del " & DataEstrazione(Es + Colpi(I))
Else
If N1 = N2 Then
Scrivi "Ambo " & I & ": " & N1 & "-" & N2 & _
" NON VALIDO"
Else
If Es + 9 > Fin Then
Scrivi "Ambo " & I & ": " & N1 & "-" & N2 & _
" IN CORSO"
Else
Scrivi "Ambo " & I & ": " & N1 & "-" & N2 & _
" NON VINTO"
End If
End If
End If

Next

Scrivi "Vincite del caso: " & VinciteCaso

If Es + 9 > Fin Then
CasiInCorso = CasiInCorso + 1
Scrivi "Stato: IN CORSO"
Else
If VinciteCaso > 0 Then
CasiVinti = CasiVinti + 1
Scrivi "Stato: VINCENTE"
Else
CasiPersi = CasiPersi + 1
Scrivi "Stato: PERDENTE"
End If
End If

End If

Next

CasiCompleti = CasiVinti + CasiPersi

Scrivi ""
Scrivi "================================"
Scrivi "RESOCONTO FINALE"
Scrivi "================================"

Scrivi "Totale condizioni: " & TotCond
Scrivi "Casi completati: " & CasiCompleti
Scrivi "Casi vincenti: " & CasiVinti
Scrivi "Casi perdenti: " & CasiPersi
Scrivi "Casi in corso: " & CasiInCorso
Scrivi "Totale ambi vincenti: " & TotVinti

If CasiCompleti > 0 Then
Perc = Round(CasiVinti * 100 / CasiCompleti,2)
Scrivi "Percentuale casi vincenti: " & Perc & "%"
End If

Scrivi ""
Scrivi "VINCITE PER AMBO"
Scrivi "--------------------------------"

For I = 1 To 7
Scrivi "Ambo " & I & ": " & VinciteAmbo(I)
Next

Scrivi ""
Scrivi "VINCITE PER COLPO"
Scrivi "--------------------------------"

For I = 1 To 9
Scrivi "Colpo " & I & ": " & VinciteColpo(I)
Next

Scrivi "================================"
Scrivi "FINE ELABORAZIONE"

End Sub

 

[mina10]

Giulio buona sera gentilmente puoi mettere i risultati giusto per confrontare .
Un doveroso ringraziamento