LottoPassion

da **Fortuna_68** il 12/03/2023, 18:10

Buonasera forum , potreste correggere questi due script che non restituiscono alcun risultato nè su L8+ 6.1 nè su Spaziometria.Grazie

Il risultato nel primo scrive solo :

Migliori Coppie per AMBATA ed AMBO su Bari nei 12 colpi successivi - Combinazioni analizzate = 4005

Sub main()
Dim num(4010,4)
Dim cin(10),ruote(10)
colpi=12
r=1
pos=1
ruote(1)=r
casi=0
For es=6876 To EstrazioneFin
If IndiceMensile(es+1)=1 Then
casi=casi+1 : co=0 : es1=es+1 : es2=es1+colpi
If es2>EstrazioneFin Then es2=EstrazioneFin End If
e=Estratto(es,r,pos)
For s1=1 To 89
For s2=s1+1 To 90
ea=0 : et=0 : co=co+1
cin(1)=Fuori90(e+s1) : cin(2)=Fuori90(e+s2)
ea=SerieFreq(es1,es2,cin,ruote,1)
et=SerieFreq(es1,es2,cin,ruote,2)
num(co,1)=s1 : num(co,2)=s2
num(co,3)=num(co,3) : num(co,4)=num(co,4)
If ea>0 Or et>0 Then
num(co,3)=num(co,3)+1
End If
If et>0 Then
num(co,4)=num(co,4)+1
End If
Next
Next
End If
Next
Scrivi " Migliori Coppie per AMBATA ed AMBO su "& NomeRuota(r) & " nei "& eval(colpi) & " colpi successivi"
Scrivi "Combinazioni analizzate = "& co
For i=1 To co
If (num(i,3))>55 Then
Scrivi "------------------------------------------------------------"
s="Al "& eval(pos)&"° di "& NomeRuota(r)&" sommare "& Format2(CStr(num(i,1)))&" "& Format2(CStr(num(i,2)))&" -- "
s=s& FormatSpace(CStr(num(i,3)),3)&" Ambate su "& eval(casi)&" casi analizzati"
Scrivi s
If (num(i,4))>4 Then
ColoreTesto 1
s="Al "& eval(pos)&"° di "& NomeRuota(r)&" sommare "& Format2(CStr(num(i,1)))&" "& Format2(CStr(num(i,2)))&" -- "
s=s& FormatSpace(CStr(num(i,4)),3)&" Ambi su "& eval(casi)&" casi analizzati"
Scrivi s
ColoreTesto 0
End If
End If
Next
End Sub

da **DjNomade** il 12/03/2023, 23:48

Sicuro?
Sia con Spaziometria che con Lottodesk da questo risultato

Codice: Seleziona tutto: Migliori Coppie per AMBATA ed AMBO su Bari nei 12 colpi successivi Combinazioni analizzate = 4005 ------------------------------------------------------------ Al 1° di Bari sommare 01 02 -- 222 Ambate su 278 casi analizzati Al 1° di Bari sommare 01 02 -- 9 Ambi su 278 casi analizzati ------------------------------------------------------------ Al 1° di Bari sommare 01 03 -- 217 Ambate su 278 casi analizzati Al 1° di Bari sommare 01 03 -- 6 Ambi su 278 casi analizzati ------------------------------------------------------------ Al 1° di Bari sommare 01 04 -- 213 Ambate su 278 casi analizzati Al 1° di Bari sommare 01 04 -- 13 Ambi su 278 casi analizzati ------------------------------------------------------------ Al 1° di Bari sommare 01 05 -- 227 Ambate su 278 casi analizzati Al 1° di Bari sommare 01 05 -- 9 Ambi su 278 casi analizzati ------------------------------------------------------------ Al 1° di Bari sommare 01 06 -- 219 Ambate su 278 casi analizzati Al 1° di Bari sommare 01 06 -- 9 Ambi su 278 casi analizzati ------------------------------------------------------------ Al 1° di Bari sommare 01 07 -- 224 Ambate su 278 casi analizzati Al 1° di Bari sommare 01 07 -- 5 Ambi su 278 casi analizzati ------------------------------------------------------------ Al 1° di Bari sommare 01 08 -- 222 Ambate su 278 casi analizzati Al 1° di Bari sommare 01 08 -- 9 Ambi su 278 casi analizzati ------------------------------------------------------------ Al 1° di Bari sommare 01 09 -- 213 Ambate su 278 casi analizzati Al 1° di Bari sommare 01 09 -- 13 Ambi su 278 casi analizzati ------------------------------------------------------------ Al 1° di Bari sommare 01 10 -- 209 Ambate su 278 casi analizzati Al 1° di Bari sommare 01 10 -- 8 Ambi su 278 casi analizzati ------------------------------------------------------------ Al 1° di Bari sommare 01 11 -- 214 Ambate su 278 casi analizzati Al 1° di Bari sommare 01 11 -- 7 Ambi su 278 casi analizzati ------------------------------------------------------------ Al 1° di Bari sommare 01 12 -- 211 Ambate su 278 casi analizzati Al 1° di Bari sommare 01 12 -- 6 Ambi su 278 casi analizzati ------------------------------------------------------------ Al 1° di Bari sommare 01 13 -- 213 Ambate su 278 casi analizzati Al 1° di Bari sommare 01 13 -- 11 Ambi su 278 casi analizzati ------------------------------------------------------------ Al 1° di Bari sommare 01 14 -- 221 Ambate su 278 casi analizzati Al 1° di Bari sommare 01 14 -- 7 Ambi su 278 casi analizzati ------------------------------------------------------------ Al 1° di Bari sommare 01 15 -- 209 Ambate su 278 casi analizzati Al 1° di Bari sommare 01 15 -- 9 Ambi su 278 casi analizzati ------------------------------------------------------------ Al 1° di Bari sommare 01 16 -- 216 Ambate su 278 casi analizzati Al 1° di Bari sommare 01 16 -- 11 Ambi su 278 casi analizzati ------------------------------------------------------------ Al 1° di Bari sommare 01 17 -- 216 Ambate su 278 casi analizzati Al 1° di Bari sommare 01 17 -- 10 Ambi su 278 casi analizzati ------------------------------------------------------------ Al 1° di Bari sommare 01 18 -- 208 Ambate su 278 casi analizzati Al 1° di Bari sommare 01 18 -- 9 Ambi su 278 casi analizzati ------------------------------------------------------------ Al 1° di Bari sommare 01 19 -- 212 Ambate su 278 casi analizzati Al 1° di Bari sommare 01 19 -- 7 Ambi su 278 casi analizzati ------------------------------------------------------------ Al 1° di Bari sommare 01 20 -- 212 Ambate su 278 casi analizzati Al 1° di Bari sommare 01 20 -- 9 Ambi su 278 casi analizzati ------------------------------------------------------------ Al 1° di Bari sommare 01 21 -- 214 Ambate su 278 casi analizzati Al 1° di Bari sommare 01 21 -- 9 Ambi su 278 casi analizzati ------------------------------------------------------------ Al 1° di Bari sommare 01 22 -- 207 Ambate su 278 casi analizzati Al 1° di Bari sommare 01 22 -- 8 Ambi su 278 casi analizzati ------------------------------------------------------------ Al 1° di Bari sommare 01 23 -- 217 Ambate su 278 casi analizzati Al 1° di Bari sommare 01 23 -- 8 Ambi su 278 casi analizzati ------------------------------------------------------------ Al 1° di Bari sommare 01 24 -- 210 Ambate su 278 casi analizzati Al 1° di Bari sommare 01 24 -- 6 Ambi su 278 casi analizzati ------------------------------------------------------------ Al 1° di Bari sommare 01 25 -- 219 Ambate su 278 casi analizzati Al 1° di Bari sommare 01 25 -- 11 Ambi su 278 casi analizzati ------------------------------------------------------------ Al 1° di Bari sommare 01 26 -- 217 Ambate su 278 casi analizzati Al 1° di Bari sommare 01 26 -- 12 Ambi su 278 casi analizzati ------------------------------------------------------------ Al 1° di Bari sommare 01 27 -- 217 Ambate su 278 casi analizzati Al 1° di Bari sommare 01 27 -- 5 Ambi su 278 casi analizzati ------------------------------------------------------------ Al 1° di Bari sommare 01 28 -- 214 Ambate su 278 casi analizzati Al 1° di Bari sommare 01 28 -- 10 Ambi su 278 casi analizzati ------------------------------------------------------------ Al 1° di Bari sommare 01 29 -- 212 Ambate su 278 casi analizzati Al 1° di Bari sommare 01 29 -- 9 Ambi su 278 casi analizzati ------------------------------------------------------------ Al 1° di Bari sommare 01 30 -- 213 Ambate su 278 casi analizzati Al 1° di Bari sommare 01 30 -- 12 Ambi su 278 casi analizzati ------------------------------------------------------------ Al 1° di Bari sommare 01 31 -- 217 Ambate su 278 casi analizzati Al 1° di Bari sommare 01 31 -- 7 Ambi su 278 casi analizzati ------------------------------------------------------------ Al 1° di Bari sommare 01 32 -- 219 Ambate su 278 casi analizzati Al 1° di Bari sommare 01 32 -- 10 Ambi su 278 casi analizzati ------------------------------------------------------------ Al 1° di Bari sommare 01 33 -- 215 Ambate su 278 casi analizzati Al 1° di Bari sommare 01 33 -- 8 Ambi su 278 casi analizzati ------------------------------------------------------------ Al 1° di Bari sommare 01 34 -- 225 Ambate su 278 casi analizzati Al 1° di Bari sommare 01 34 -- 6 Ambi su 278 casi analizzati ------------------------------------------------------------ Al 1° di Bari sommare 01 35 -- 218 Ambate su 278 casi analizzati Al 1° di Bari sommare 01 35 -- 13 Ambi su 278 casi analizzati ------------------------------------------------------------ Al 1° di Bari sommare 01 36 -- 220 Ambate su 278 casi analizzati Al 1° di Bari sommare 01 36 -- 12 Ambi su 278 casi analizzati ------------------------------------------------------------ Al 1° di Bari sommare 01 37 -- 218 Ambate su 278 casi analizzati Al 1° di Bari sommare 01 37 -- 12 Ambi su 278 casi analizzati ------------------------------------------------------------ Al 1° di Bari sommare 01 38 -- 222 Ambate su 278 casi analizzati Al 1° di Bari sommare 01 38 -- 14 Ambi su 278 casi analizzati ------------------------------------------------------------ Al 1° di Bari sommare 01 39 -- 216 Ambate su 278 casi analizzati Al 1° di Bari sommare 01 39 -- 7 Ambi su 278 casi analizzati ------------------------------------------------------------ Al 1° di Bari sommare 01 40 -- 215 Ambate su 278 casi analizzati Al 1° di Bari sommare 01 40 -- 11 Ambi su 278 casi analizzati ------------------------------------------------------------ Al 1° di Bari sommare 01 41 -- 213 Ambate su 278 casi analizzati Al 1° di Bari sommare 01 41 -- 13 Ambi su 278 casi analizzati ------------------------------------------------------------ Al 1° di Bari sommare 01 42 -- 215 Ambate su 278 casi analizzati Al 1° di Bari sommare 01 42 -- 16 Ambi su 278 casi analizzati ------------------------------------------------------------ Al 1° di Bari sommare 01 43 -- 213 Ambate su 278 casi analizzati Al 1° di Bari sommare 01 43 -- 12 Ambi su 278 casi analizzati ------------------------------------------------------------ Al 1° di Bari sommare 01 44 -- 220 Ambate su 278 casi analizzati Al 1° di Bari sommare 01 44 -- 12 Ambi su 278 casi analizzati ------------------------------------------------------------ Al 1° di Bari sommare 01 45 -- 216 Ambate su 278 casi analizzati Al 1° di Bari sommare 01 45 -- 5 Ambi su 278 casi analizzati ------------------------------------------------------------ Al 1° di Bari sommare 01 46 -- 227 Ambate su 278 casi analizzati Al 1° di Bari sommare 01 46 -- 10 Ambi su 278 casi analizzati ------------------------------------------------------------ Al 1° di Bari sommare 01 47 -- 225 Ambate su 278 casi analizzati Al 1° di Bari sommare 01 47 -- 11 Ambi su 278 casi analizzati ------------------------------------------------------------ Al 1° di Bari sommare 01 48 -- 212 Ambate su 278 casi analizzati Al 1° di Bari sommare 01 48 -- 11 Ambi su 278 casi analizzati ------------------------------------------------------------ Al 1° di Bari sommare 01 49 -- 215 Ambate su 278 casi analizzati Al 1° di Bari sommare 01 49 -- 8 Ambi su 278 casi analizzati ------------------------------------------------------------ Al 1° di Bari sommare 01 50 -- 207 Ambate su 278 casi analizzati Al 1° di Bari sommare 01 50 -- 8 Ambi su 278 casi analizzati ------------------------------------------------------------ Al 1° di Bari sommare 01 51 -- 227 Ambate su 278 casi analizzati Al 1° di Bari sommare 01 51 -- 10 Ambi su 278 casi analizzati ------------------------------------------------------------ Al 1° di Bari sommare 01 52 -- 215 Ambate su 278 casi analizzati Al 1° di Bari sommare 01 52 -- 7 Ambi su 278 casi analizzati ------------------------------------------------------------ Al 1° di Bari sommare 01 53 -- 210 Ambate su 278 casi analizzati Al 1° di Bari sommare 01 53 -- 5 Ambi su 278 casi analizzati ------------------------------------------------------------ Al 1° di Bari sommare 01 54 -- 225 Ambate su 278 casi analizzati Al 1° di Bari sommare 01 54 -- 14 Ambi su 278 casi analizzati ------------------------------------------------------------ Al 1° di Bari sommare 01 55 -- 227 Ambate su 278 casi analizzati Al 1° di Bari sommare 01 55 -- 5 Ambi su 278 casi analizzati ------------------------------------------------------------ Al 1° di Bari sommare 01 56 -- 219 Ambate su 278 casi analizzati ------------------------------------------------------------ Al 1° di Bari sommare 01 57 -- 224 Ambate su 278 casi analizzati Al 1° di Bari sommare 01 57 -- 7 Ambi su 278 casi analizzati ------------------------------------------------------------ Al 1° di Bari sommare 01 58 -- 212 Ambate su 278 casi analizzati Al 1° di Bari sommare 01 58 -- 13 Ambi su 278 casi analizzati ------------------------------------------------------------ Al 1° di Bari sommare 01 59 -- 223 Ambate su 278 casi analizzati Al 1° di Bari sommare 01 59 -- 12 Ambi su 278 casi analizzati ------------------------------------------------------------ Al 1° di Bari sommare 01 60 -- 211 Ambate su 278 casi analizzati Al 1° di Bari sommare 01 60 -- 10 Ambi su 278 casi analizzati ------------------------------------------------------------ Al 1° di Bari sommare 01 61 -- 224 Ambate su 278 casi analizzati Al 1° di Bari sommare 01 61 -- 11 Ambi su 278 casi analizzati ------------------------------------------------------------ Al 1° di Bari sommare 01 62 -- 231 Ambate su 278 casi analizzati Al 1° di Bari sommare 01 62 -- 11 Ambi su 278 casi analizzati ------------------------------------------------------------ Al 1° di Bari sommare 01 63 -- 224 Ambate su 278 casi analizzati Al 1° di Bari sommare 01 63 -- 15 Ambi su 278 casi analizzati ------------------------------------------------------------ Al 1° di Bari sommare 01 64 -- 210 Ambate su 278 casi analizzati Al 1° di Bari sommare 01 64 -- 6 Ambi su 278 casi analizzati ------------------------------------------------------------ Al 1° di Bari sommare 01 65 -- 220 Ambate su 278 casi analizzati Al 1° di Bari sommare 01 65 -- 7 Ambi su 278 casi analizzati ------------------------------------------------------------ Al 1° di Bari sommare 01 66 -- 215 Ambate su 278 casi analizzati Al 1° di Bari sommare 01 66 -- 13 Ambi su 278 casi analizzati ------------------------------------------------------------ Al 1° di Bari sommare 01 67 -- 218 Ambate su 278 casi analizzati Al 1° di Bari sommare 01 67 -- 10 Ambi su 278 casi analizzati ------------------------------------------------------------ Al 1° di Bari sommare 01 68 -- 211 Ambate su 278 casi analizzati Al 1° di Bari sommare 01 68 -- 7 Ambi su 278 casi analizzati ------------------------------------------------------------ Al 1° di Bari sommare 01 69 -- 216 Ambate su 278 casi analizzati Al 1° di Bari sommare 01 69 -- 7 Ambi su 278 casi analizzati ------------------------------------------------------------ Al 1° di Bari sommare 01 70 -- 219 Ambate su 278 casi analizzati Al 1° di Bari sommare 01 70 -- 8 Ambi su 278 casi analizzati ------------------------------------------------------------ Al 1° di Bari sommare 01 71 -- 219 Ambate su 278 casi analizzati Al 1° di Bari sommare 01 71 -- 11 Ambi su 278 casi analizzati ------------------------------------------------------------ Al 1° di Bari sommare 01 72 -- 218 Ambate su 278 casi analizzati Al 1° di Bari sommare 01 72 -- 8 Ambi su 278 casi analizzati ------------------------------------------------------------ Al 1° di Bari sommare 01 73 -- 227 Ambate su 278 casi analizzati Al 1° di Bari sommare 01 73 -- 12 Ambi su 278 casi analizzati ------------------------------------------------------------ Al 1° di Bari sommare 01 74 -- 216 Ambate su 278 casi analizzati Al 1° di Bari sommare 01 74 -- 9 Ambi su 278 casi analizzati ------------------------------------------------------------ Al 1° di Bari sommare 01 75 -- 210 Ambate su 278 casi analizzati Al 1° di Bari sommare 01 75 -- 11 Ambi su 278 casi analizzati ------------------------------------------------------------ Al 1° di Bari sommare 01 76 -- 206 Ambate su 278 casi analizzati Al 1° di Bari sommare 01 76 -- 8 Ambi su 278 casi analizzati ------------------------------------------------------------ Al 1° di Bari sommare 01 77 -- 214 Ambate su 278 casi analizzati Al 1° di Bari sommare 01 77 -- 7 Ambi su 278 casi analizzati ------------------------------------------------------------ Al 1° di Bari sommare 01 78 -- 216 Ambate su 278 casi analizzati Al 1° di Bari sommare 01 78 -- 9 Ambi su 278 casi analizzati ------------------------------------------------------------ Al 1° di Bari sommare 01 79 -- 223 Ambate su 278 casi analizzati ------------------------------------------------------------ Al 1° di Bari sommare 01 80 -- 213 Ambate su 278 casi analizzati Al 1° di Bari sommare 01 80 -- 10 Ambi su 278 casi analizzati ------------------------------------------------------------ Al 1° di Bari sommare 01 81 -- 224 Ambate su 278 casi analizzati Al 1° di Bari sommare 01 81 -- 6 Ambi su 278 casi analizzati ------------------------------------------------------------ Al 1° di Bari sommare 01 82 -- 218 Ambate su 278 casi analizzati Al 1° di Bari sommare 01 82 -- 15 Ambi su 278 casi analizzati ------------------------------------------------------------ Al 1° di Bari sommare 01 83 -- 225 Ambate su 278 casi analizzati Al 1° di Bari sommare 01 83 -- 6 Ambi su 278 casi analizzati ------------------------------------------------------------ Al 1° di Bari sommare 01 84 -- 220 Ambate su 278 casi analizzati Al 1° di Bari sommare 01 84 -- 10 Ambi su 278 casi analizzati ------------------------------------------------------------ Al 1° di Bari sommare 01 85 -- 225 Ambate su 278 casi analizzati Al 1° di Bari sommare 01 85 -- 6 Ambi su 278 casi analizzati ------------------------------------------------------------ Al 1° di Bari sommare 01 86 -- 210 Ambate su 278 casi analizzati Al 1° di Bari sommare 01 86 -- 10 Ambi su 278 casi analizzati ------------------------------------------------------------ Al 1° di Bari sommare 01 87 -- 210 Ambate su 278 casi analizzati ------------------------------------------------------------ Al 1° di Bari sommare 01 88 -- 214 Ambate su 278 casi analizzati Al 1° di Bari sommare 01 88 -- 11 Ambi su 278 casi analizzati ------------------------------------------------------------ Al 1° di Bari sommare 01 89 -- 222 Ambate su 278 casi analizzati Al 1° di Bari sommare 01 89 -- 12 Ambi su 278 casi analizzati ------------------------------------------------------------ Al 1° di Bari sommare 01 90 -- 217 Ambate su 278 casi analizzati Al 1° di Bari sommare 01 90 -- 11 Ambi su 278 casi analizzati ------------------------------------------------------------ Al 1° di Bari sommare 02 03 -- 219 Ambate su 278 casi analizzati Al 1° di Bari sommare 02 03 -- 7 Ambi su 278 casi analizzati ------------------------------------------------------------ Al 1° di Bari sommare 02 04 -- 219 Ambate su 278 casi analizzati Al 1° di Bari sommare 02 04 -- 14 Ambi su 278 casi analizzati ------------------------------------------------------------ Al 1° di Bari sommare 02 05 -- 227 Ambate su 278 casi analizzati Al 1° di Bari sommare 02 05 -- 8 Ambi su 278 casi analizzati ------------------------------------------------------------ Al 1° di Bari sommare 02 06 -- 226 Ambate su 278 casi analizzati Al 1° di Bari sommare 02 06 -- 8 Ambi su 278 casi analizzati ------------------------------------------------------------ Al 1° di Bari sommare 02 07 -- 225 Ambate su 278 casi analizzati Al 1° di Bari sommare 02 07 -- 10 Ambi su 278 casi analizzati ------------------------------------------------------------ Al 1° di Bari sommare 02 08 -- 221 Ambate su 278 casi analizzati Al 1° di Bari sommare 02 08 -- 12 Ambi su 278 casi analizzati ------------------------------------------------------------ Al 1° di Bari sommare 02 09 -- 215 Ambate su 278 casi analizzati Al 1° di Bari sommare 02 09 -- 17 Ambi su 278 casi analizzati ------------------------------------------------------------ Al 1° di Bari sommare 02 10 -- 219 Ambate su 278 casi analizzati Al 1° di Bari sommare 02 10 -- 7 Ambi su 278 casi analizzati ------------------------------------------------------------ Al 1° di Bari sommare 02 11 -- 221 Ambate su 278 casi analizzati ------------------------------------------------------------ Al 1° di Bari sommare 02 12 -- 216 Ambate su 278 casi analizzati ------------------------------------------------------------ Al 1° di Bari sommare 02 13 -- 217 Ambate su 278 casi analizzati Al 1° di Bari sommare 02 13 -- 8 Ambi su 278 casi analizzati ------------------------------------------------------------ Al 1° di Bari sommare 02 14 -- 215 Ambate su 278 casi analizzati Al 1° di Bari sommare 02 14 -- 11 Ambi su 278 casi analizzati ------------------------------------------------------------ Al 1° di Bari sommare 02 15 -- 219 Ambate su 278 casi analizzati Al 1° di Bari sommare 02 15 -- 6 Ambi su 278 casi analizzati ------------------------------------------------------------ Al 1° di Bari sommare 02 16 -- 220 Ambate su 278 casi analizzati Al 1° di Bari sommare 02 16 -- 6 Ambi su 278 casi analizzati ------------------------------------------------------------ Al 1° di Bari sommare 02 17 -- 209 Ambate su 278 casi analizzati Al 1° di Bari sommare 02 17 -- 6 Ambi su 278 casi analizzati ------------------------------------------------------------ Al 1° di Bari sommare 02 18 -- 221 Ambate su 278 casi analizzati Al 1° di Bari sommare 02 18 -- 7 Ambi su 278 casi analizzati ------------------------------------------------------------ Al 1° di Bari sommare 02 19 -- 219 Ambate su 278 casi analizzati Al 1° di Bari sommare 02 19 -- 12 Ambi su 278 casi analizzati ------------------------------------------------------------ Al 1° di Bari sommare 02 20 -- 216 Ambate su 278 casi analizzati Al 1° di Bari sommare 02 20 -- 11 Ambi su 278 casi analizzati ------------------------------------------------------------ Al 1° di Bari sommare 02 21 -- 211 Ambate su 278 casi analizzati Al 1° di Bari sommare 02 21 -- 10 Ambi su 278 casi analizzati ------------------------------------------------------------ Al 1° di Bari sommare 02 22 -- 203 Ambate su 278 casi analizzati ------------------------------------------------------------ Al 1° di Bari sommare 02 23 -- 213 Ambate su 278 casi analizzati Al 1° di Bari sommare 02 23 -- 6 Ambi su 278 casi analizzati ------------------------------------------------------------ Al 1° di Bari sommare 02 24 -- 218 Ambate su 278 casi analizzati ------------------------------------------------------------ Al 1° di Bari sommare 02 25 -- 222 Ambate su 278 casi analizzati Al 1° di Bari sommare 02 25 -- 9 Ambi su 278 casi analizzati ------------------------------------------------------------ Al 1° di Bari sommare 02 26 -- 216 Ambate su 278 casi analizzati Al 1° di Bari sommare 02 26 -- 9 Ambi su 278 casi analizzati ------------------------------------------------------------ Al 1° di Bari sommare 02 27 -- 212 Ambate su 278 casi analizzati Al 1° di Bari sommare 02 27 -- 14 Ambi su 278 casi analizzati ------------------------------------------------------------ Al 1° di Bari sommare 02 28 -- 219 Ambate su 278 casi analizzati ------------------------------------------------------------ Al 1° di Bari sommare 02 29 -- 208 Ambate su 278 casi analizzati Al 1° di Bari sommare 02 29 -- 9 Ambi su 278 casi analizzati ------------------------------------------------------------ Al 1° di Bari sommare 02 30 -- 220 Ambate su 278 casi analizzati Al 1° di Bari sommare 02 30 -- 6 Ambi su 278 casi analizzati ------------------------------------------------------------ Al 1° di Bari sommare 02 31 -- 221 Ambate su 278 casi analizzati ETC ETC ETC ------------------------------------------------------------

da **Fortuna_68** il 13/03/2023, 17:40

Ciao Dj Nomade , avevi ragione ho atteso di più ed alla fine mi ha dato il risultato

Prima aspettando un po' di minuti sembrava che si bloccasse allora poi ho ridotto le estrazioni e mi dava solo quella risposta

Grazie

----------------
Avevo dimenticato il secondo script per Spaziometria , su L8+ dà Errore 13 - Tipo non corrispondente - SerieFreqTurbo (riga

45)

Se puoi dare un' occhiata perchè dopo 15 minuti che girava l'ho fermato , spero di non sbagliarmi nuovamente .Grazie

Sub Main()
Dim ambi(225000,8),nn(10),ruota(10)
ne = InputBox("Numero estrazioni:",,700)
perc = InputBox("Percentuale minima (60-90%):",,85)
ncg = InputBox("Numero colpi di gioco",,8)
casi = 0
ini = EstrazioneFin - ne
fin = EstrazioneFin
For x = 1 To 225000
ambi(x,1) = 0 : ambi(x,2) = 0 : ambi(x,3) = 0 : ambi(x,4) = 0 : ambi(x,5) = 0 : ambi(x,6) = 0 : ambi(x,7) = 0: ambi(x,8) = 0
Next
For es = ini To fin
For r3 = 1 To 1 :'ruota(1) = r3
For pp1 = 3 To 3
n1 = Estratto(es,r3,pp1)
' For r4 = r3 + 1 To 10:ruota(2) = 11
For pp2 = 2 To 2
n2 = Estratto(es,r3,pp2)
If Fuori90(n1+n2)=23 Then
Scrivi "ANALISI Dal " & DataEstrazione(es) & " " & n1 & " " & n2 & "°" &(NomeRuota(r3)) & "°" &(NomeRuota(r4)),1

casi = casi + 1
co = 0
For r = 1 To 10
For p = 1 To 5
For rr = r To 10
For pp = 1 To 5
For nu = 1 To 90
co = co + 1
d = 0

a = Estratto(es,r,p)
b = Estratto(es,rr,pp)
c = Fuori90((a + b) + nu)
nn(1) = c : ' nn(2) =Fuori90( Estratto(es,2,5)+ Estratto(es,4,5))

esncg = es + eval(ncg)
If esncg > EstrazioneFin Then esncg = EstrazioneFin End If
ruota(1) = 1

ruota(2) = 2
d = SerieFreqTurbo(es + 1,esncg,nn,ruota,1)
If d > 0 Then
ambi(co,1) = co
ambi(co,2) = r
ambi(co,3) = p
ambi(co,4) = rr
ambi(co,5) = pp
ambi(co,6) = nu
ambi(co,7) = ambi(co,7) + 1
ambi(co,8) = ambi(co,8) + d
End If
Next
Next
Next
Next
Next
End If
Next
Next
Next
Next
' Next
ca = 0
ColoreTesto 1
Scrivi "ANALISI Dal " & DataEstrazione(ini) & " al " & DataEstrazione(fin),1
Scrivi
Scrivi "ESTRAZIONE DI CALCOLO : " & "Ultima del mese",1
Scrivi "COLPI DI GIOCO : " & ncg,1
Scrivi "CASI ANALIZZATI : " & casi,1
Scrivi : ColoreTesto 0
per = Int((casi/100)*perc)
For ca = 1 To 225000
If eval(ambi(ca,7)) >= perc Then
Scrivi eval(ambi(ca,3)) & "°" & Left(NomeRuota(eval(ambi(ca,2))),2) & " + " & eval(ambi(ca,5)) & "°" & _
Left(NomeRuota(eval(ambi(ca,4))),2) & " + " & Format2(ambi(ca,6)) & _
" su " & FormatSpace(NomeRuota(nru),9) & " è uscito " & FormatSpace(ambi(ca,7),3) & " su " & _
FormatSpace(casi,3) & " casi - AMBATE TOTALI: " & FormatSpace(ambi(ca,8),3)
End If
Next
End Sub

----------- poi c'è questo -----------

d = SerieFreqTurbo(es + 1,esncg,nn,ruota,1)
trovare prima ambata
inserisci
nn(2) =Fuori90( Estratto(es,2,5)+ Estratto(es,4,5))
toliendo apice e rifare
ricerca per ambo
d = SerieFreqTurbo(es + 1,esncg,nn,ruota,2)
non avrete bisogno di nessun programma,tranne spaziometria,ed inventiva

da **DjNomade** il 13/03/2023, 18:53

SerieFreqTurbo si usa su Spaziometria con L8+ ti dara sempre errore
Io con Spaziometria sono negato non ho idea perche non va

Ciauz

da **Fortuna_68** il 13/03/2023, 23:59

Grazie lo stesso , ciao

da **DjNomade** il 14/03/2023, 13:11

Ho provato a modificarlo questo gira pure su L8+
Ciauz

Codice: Seleziona tutto: 'Sommativo da Ambo Somma X a Ruota Sub Main() Dim ambi(4500,7),nn(4),ruota(2),amba(4500,4500),mm(2),xx(3) perc = InputBox("Percentuale minima (60-100%):",,70) z =CInt( InputBox("Estrazioni di Ricerca",,40)) iso = CInt(InputBox("SCEGLI RUOTA","RUOTA",1)) somma =CInt( InputBox("AMBO SOMMA?",,64)) ncg = InputBox("Numero colpi di gioco",,4) casi = 0 ini = EstrazioneFin - z fin = EstrazioneFin For es = ini To fin r1 = iso For pp = 1 To 4 For pp1 = pp + 1 To 5 aa = Estratto(es,r1,pp) aa1 = Estratto(es,r1,pp1) cc = Fuori90(aa + aa1) ' If cc=somma Then ' casi = casi + 1 Scrivi " " & es & " " & DataEstrazione(es) & " " & SiglaRuota(r1)& " - " & cc ,1 esncg = es + eval(ncg) If esncg > EstrazioneFin Then esncg = EstrazioneFin End If co = 0 ruota(1) = r1 For r = 1 To 10 For p = 1 To 5 For nu = 1 To 90 co = co + 1 a = Estratto(es,r,p) b = Fuori90(a + nu) nn(1) = b 'nn(2) = Fuori90(Estratto(es,6,1) + 31) ' per ricerca AMBO ambi(co,1) = co ambi(co,2) = b ambi(co,3) = r ambi(co,4) = p ambi(co,5) = nu fr1 = SerieFreq(es + 1,esncg,nn,ruota,1) 'per ricerca AMBATA 'fr1 = SerieFreq(es + 1,esncg,nn,ruota,2) 'per ricerca AMBO If fr1 > 0 Then ambi(co,6) = ambi(co,6) + 1 End If Next Next Next End If ' Next Next Next co = 0 ColoreTesto 1 Scrivi "ANALISI Dal " & DataEstrazione(ini) & " al " & DataEstrazione(fin)& "- Estrazioni di Ricerca --> " &z,1 Scrivi Scrivi "RUOTA DI GIOCO : " & NomeRuota( iso),1 Scrivi "COLPI DI GIOCO : " & ncg,1 Scrivi "CASI ANALIZZATI : " & casi,1 Scrivi "PERCENTUALE RICHIESTA : " & perc&"%",1 Scrivi Scrivi "Algoritmo Uscite Numero Ricavato",1 ColoreTesto 0 per = Int((casi/100)*perc) For x = 1 To 4500 If eval(ambi(x,6)) >= per Then Scrivi s,1 s = " " & eval(ambi(x,4)) & "°" & Left(NomeRuota(eval(ambi(x,3))),2) & " + " & _ Format2(ambi(x,5)) & " " & FormatSpace(ambi(x,6),3) & " " & FormatSpace(ambi(x,2),3) End If Next Scrivi" ------------------------------------------------------------------ " End Sub

da **Fortuna_68** il 14/03/2023, 16:25

Ullallà Dj Nomade , grazie mille , sei stato molto molto gentile !!

Buona serata

LottoPassion

Correzione script

Correzione script

Re: Correzione script

Re: Correzione script

Re: Correzione script

Re: Correzione script

Re: Correzione script

Re: Correzione script

Chi c’è in linea