Vari Sistemini da condizione statistica

Beppignello · 31 Maggio 2017

Ciao edesimone

no la mia riduzione e' un 31-06-02-03 col.19 o jolla con 31-06-02-02 col.31

ma la mia riduzione e' di solo 9 colonne 31-06-02-03

perche' e' fatto con una logica diversa dai software di riduzione

e garantisce 2 punti con 3 estratti

in altre parole c'è una ragione in piu' non matematica

edesimone · 31 Maggio 2017

Grazie beppignello
se è possibile sapere con quale riduttore sei arrivato alle 9 colonne.
grazie edesimone

Beppignello · 31 Maggio 2017

1) sistema 16-06-02-03 col.5
2) sistema 15-06-02-03 col.4

scrivere i 31 numeri in orizzontale
avremo 16 dispari posizionali e 15 pari posizionali

poiche' la scommessa e' che indoviniamo almeno tre numeri dei 31
sicuramente saranno 0,1,2,3 pari oppure 0,1,2,3 dispari o meglio combinati tra loro
nelle formule specificate, abbiamo sicuramente 2 dispari o 2 pari in una delle 2 sezioni

ora il limite matematico impone al 100% un minimo di 19 colonne 31-06-02-03
Bhe con 9 colonne abbiamo l'unico gap di centrare 3 numeri che cadano in unica sessione
di quelle messe in gioco, ma con minore spesa 9 colonne

Il gap e' a mio avviso minimo che tutela o giustifica questa giocata.
se si tiene anche conto di centrare 3,4,5,6 numeri totali abbiamo maggiore probabilita' di punteggi maggiori, rispetto al ridotto di 19 colonne o a quello di 31 dellajolla

Beppignello · 31 Maggio 2017

Aggiungo ulteriore info

se vai ridurre il sistema 31-06-02-03 mettendo la base di 9 colonne
e dai un paio di passate di copertura del sistema arrivi ad una copertura di un buon 66% di vincita con 3 estratti

giocare un tale sistemino di 9 colonne al superenalotto ed avere una copertura di 31 numeri e di un
successo del 66% non mi sembra una brutta idea.
certo e' la spesa 9 ed un recupero di 5,84 come il concorso precedente e' a prima vista una magra soddisfazione.
ma per vincere siamo tutti d accordo che bisogna fare 6 punti e non solo 3 giusti.

edesimone · 1 Giugno 2017

Grazie Beppignello
Adesso vorrei chiederti sempre se puoi, degli script uno per il superenalotto e l'altro per il 10elotto serale,
dove posso trovare delle lunghette con ritardo per ambo, terno ecc.(esempio i 31 numeri per il superenalotto, vedi #39) per il 10elotto se non
ricordo male stavi elaborando lunghette con punteggi di 11,12,13,14,15,16,17,18,19,20.
Grazie
edesimone

Beppignello · 1 Giugno 2017

prima di metterti lo script, voglio fare una premessa

ho dei problemi per il 10 e lotto e per il superenalotto, con i ritardi,max,freq, per sorti superiori ai 10 punti (10 e lotto) mentre per il superenalotto ho dei problemi con le istruzioni, che contemplano per forza di cosa il nr.jolli ed il nr.stella.
LuigiB lo ha voluto così.
per giunta, fino a quando mi funzionavano queste istruzioni sulle versioni precedenti alla 92 attuale, era tutto ok, ora invece è diventato un casino, perché non funzionano più neanche quelle istruzioni che prevedevano di mettere le posizioni redim apos(0). quindi diventa
più difficoltoso gestire la velocità dell'elaborazione senza usare artifici di programmazione.

comunque sia, ciò che è stato regalato o offerto gratuitamente, non si guarda in bocca.

ti posso postare lo script 10elottoLunghetteRandom, dove puoi avere e ricercare alcune delle lunghette in ritardo
con quanti numeri vuoi, e con sorte mi pare fino a 15.

a più tardi

tieni conto che questo script è una base di ricerca della lunghette, ma non è il solo strumento che uso
per il 10 e lotto.
poiché ho altri metodi per sapere quali lunghette, utilizzare.
ho 12 sistemi (universali) di 31 numeri creati a suo tempo (qualche anno addietro) con nick Rubino
sempre vincenti, sono fissi, e vanno bene per il lotto, per il 10 e lotto e per il superenalotto.
non bisogna mai elaborare nulla, se non seguire il ritardo entro i 6 colpi max

il problema è seguire solo:
1) il sistema tra i 12 in ritardo intorno da 3 : a 6 colpi
2) lo sviluppo migliore che si preferisce mettere in atto.

comunque questo è lo script per la ricerca delle lunghette.

Codice:

Option Explicit
Sub Main
 Dim k,Classe,aCol,aretcol,i,y,yn,Inizio,a,z,minr,rita,b,ii,w,s,nnr,q,ww,e,ee,no,nLunghe,qtnumb,qtcorr,r,ru,retrit,retritmax,xf,dee,de,u,p,n
 ReDim aNum(90),comb(2600000,2),aNumeri(90)
 Dim nSorte,Fine,QuantitaNumeriScelti,ritardo,fuori,rit,max,cgen,ritorig,Inv,dect1,dect2,dect3,f,dect,td,aretritardi,aretidestr,fre,ritmax
 Dim valoreInizioelaborazione,valorefineelaborazione,scelti1,scelti2,rittt,finale,rn1,rn2,rn3
 Dim numerocolonne,multiplocolonne,h,tf,vv,pmin,ritardomax,frequenza
 Dim clsSvil
 Set clsSvil = GetMotoreSviluppoIntegrale
 '''''''''''
 ImpostaArchivio10ELotto(1)
 finale = EstrazioniArchivioDL
 Inizio = Time
 Classe = CInt(InputBox("QUALE CLASSE DI SVILUPPO illimitato ",,32))
 nSorte = CInt(InputBox("QUALE SORTE DI ESITO 5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20",,11))
 '''scelte automatiche per lunghette ed numero colonne ValoreFineElaborazione
 scelti1 = "1.2.3.4.5.6.7.8.9.10.11.12.13.14.15.16.17.18.19.20"
 scelti2 = "0.12000.40000.40000"
 Fine = InputBox("All'estrazione n.",,finale)
 numerocolonne = InputBox("QUANTE COLONNE RANDOM ANALIZZARE (max 10000)",,150000)
 multiplocolonne = CInt(InputBox("FATTORE DI MOLTIPLICAZIONE COLONNE RANDOM (max 10000)",,1))
 rn1 = CInt(InputBox("Quante decine in lunghetta ? ",,5))
 pmin = CInt(InputBox("Pres.Min.Per Decina ",,4))
 qtnumb = 90 : Inv = "D" :qtcorr = 9
 valoreInizioelaborazione = 1
 valorefineelaborazione = numerocolonne * multiplocolonne
 minr = 10
 ReDim aNum(0)
 QuantitaNumeriScelti = ScegliNumeri(aNum)
 Scrivi " P a r a m e t r i    I m p o s t a z i o n i ",1
 ColoreTesto(1)
 Scrivi " CLasse Sviluppo Lunghette " & Classe,1
 Scrivi " Sorte esaminata " & nSorte
 Scrivi " Fase 2° - Leggi Lunghette Random     " & nLunghe
 Scrivi " Fase 2° - Quantità Nr.Aggiunti       " & qtnumb
 Scrivi " Fase 2° - Quantità Nr.Corrispondenti " & qtcorr
 Scrivi " Situazione all'estrazione n." & Fine & " / " & DataEstrazioneDL(Fine),1
 Scrivi " Default = 150000 * " & multiplocolonne & " = " & valoreInizioelaborazione & ": " & valorefineelaborazione & "     ritardo Minimo fase 1°.." & minr
 Scrivi " Decine Richieste.almeno...." & rn1 & "     Pres.Min.per Decina.." & pmin,1
 ColoreTesto(0)
 Scrivi "--------------------------------------------------------------",1
 For i = valoreInizioelaborazione To valorefineelaborazione
  Call GetColonnaCasuale(Classe,aretcol,aNum)
   Messaggio(i & "...." & n)
  ReDim decn(9)
  For f = 1 To Classe
   If aretcol(f) = 90 Then
    dect = 0
   Else
    dect = DecinaNaturale(aretcol(f))
   End If
   decn(dect) = decn(dect) + 1
  Next
  tf = 0
  For h = 0 To 8
   If decn(h) >= pmin Then
    tf = tf + 1
   End If
  Next
  If tf >= rn1 Then
   ritardo = RitardoCombinazioneDL(aretcol,nSorte,Fine)
   If ritardo > minr Then
   Call ElencoRitardiDL(aretcol,nSorte,3950,Fine,aretritardi,aretidestr)
    fre = UBound(aretritardi) - 1
    Call OrdinaMatrice(aretritardi,- 1)
    ritmax = aretritardi(1)
    n = n + 1
    comb(n,1) = StringaNumeri(aretcol,".")
    comb(n,2) = ritardo & " /  Rmax " & ritmax & " / Freq. " & fre
   minr = ritardo
   End If

  End If
  If ScriptInterrotto Then Exit For
 Next
 ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
 For vv = 1 To n
  Scrivi " ---> " & FormattaStringa(vv,"0000") & "  " & comb(vv,1) & "   Rit." & comb(vv,2)
 Next
 ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
 Scrivi "Tempo Elaborazione " & Inizio & "   :    " & TimeValue(Time),1
End Sub

edesimone · 1 Giugno 2017

Grazie Beppignello
si mi interessano i tuoi 12 sistemi (universali), dal momento che sono sprovvisto di questi
materiali, non sono capace di creare degli script e talvolta devo chiedere aiuto nel forum,
fammi sapere se devo darti la mia email.
Grazie di tutto
edesimone

Beppignello · 1 Giugno 2017

volevo sapere se hai preso lo script, e se funziona sul tuo pc.

edesimone · 1 Giugno 2017

si funziona

Beppignello · 1 Giugno 2017

qualche anno fa ti avevo inviato qualcosa o forse tramite (jumbo mail) ad una tua mail, che però non ho più, era sul pc vecchio, ormai rottamato senza recupero rubrica.

se tu hai ancora la mia da qualche parte, puoi stabilire un contatto, così ti invio qualche script.

edesimone · 1 Giugno 2017

Stessa sorte per il mio PC adesso sono in stazione più tardi ti mando la mia email

edesimone · 1 Giugno 2017

Beppignello ci sei?

Beppignello · 1 Giugno 2017

questo è lo script per il superenalotto, ma i sistemi vanno bene sia per il 10 e lotto o per il lotto
è solo questione a parte dello sviluppo e della riduzione che si vuole adottare

12 insiemi con caratteristiche particolari e strutturati in modo particolare, ideati da Rubino (originali) e non da altri.

Codice:

Sub Main
 Dim sys,x,last,fr2,rt2,fr3,rt3,fr4,rt4,fr5,rt5,fr6,rt6,punti,p,mx2,mx3,mx4,mx5,mx6,ritardo,ritardomax,frequenza,k,j,rit,ritmax,Incr,fre,FINE,RETESTRATTI,RETIDESTR,rit2,s,Ini,fin,u
 Scrivi " - - - - -u n i v e r s a l e     R U B I N O  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - "
 Scrivi "sys01 -  01 05 10 11 13 17 22 23 25 28 29 35 37 40 41 47 49 52 53 59 61 64 65 71 73 76 77 83 85 88 89"
 Scrivi "sys02 -  02 06 11 12 14 18 23 24 26 29 30 36 38 41 42 48 50 53 54 60 62 65 66 72 74 77 78 84 86 89 90"
 Scrivi "sys03 -  01 03 07 12 13 15 19 24 25 27 30 31 37 39 42 43 49 51 54 55 61 63 66 67 73 75 78 79 85 87 90"
 Scrivi "sys04 -  01 02 04 08 13 14 16 20 25 26 28 31 32 38 40 43 44 50 52 55 56 62 64 67 68 74 76 79 80 86 88"
 Scrivi "sys05 -  02 03 05 09 14 15 17 21 26 27 29 32 33 39 41 44 45 51 53 56 57 63 65 68 69 75 77 80 81 87 89"
 Scrivi "sys06 -  03 04 06 10 15 16 18 22 27 28 30 33 34 40 42 45 46 52 54 57 58 64 66 69 70 76 78 81 82 88 90"
 Scrivi "sys07 -  01 04 05 07 11 16 17 19 23 28 29 31 34 35 41 43 46 47 53 55 58 59 65 67 70 71 77 79 82 83 89"
 Scrivi "sys08 -  02 05 06 08 12 17 18 20 24 29 30 32 35 36 42 44 47 48 54 56 59 60 66 68 71 72 78 80 83 84 90"
 Scrivi "sys09 -  01 03 06 07 09 13 18 19 21 25 30 31 33 36 37 43 45 48 49 55 57 60 61 67 69 72 73 79 81 84 85"
 Scrivi "sys10 -  02 04 07 08 10 14 19 20 22 26 31 32 34 37 38 44 46 49 50 56 58 61 62 68 70 73 74 80 82 85 86"
 Scrivi "sys11 -  03 05 08 09 11 15 20 21 23 27 32 33 35 38 39 45 47 50 51 57 59 62 63 69 71 74 75 81 83 86 87"
 Scrivi "sys12 -  04 06 09 10 12 16 21 22 24 28 33 34 36 39 40 46 48 51 52 58 60 63 64 70 72 75 76 82 84 87 88"
' Scrivi "sys13 -  04 06 07 09 90 50 54 55 57 58 70 74 75 77 78 40 44 46 47 49 80 85 86 88 89 60 65 66 68 69 10"
' Scrivi "sys14 -  64 84 87 67 05 08 45 48 56 59 76 79 15 19 26 27 34 38 01 43 51 62 72 83 12 13 21 23 31 32 90"
' Scrivi "sys15 -  02 03 10 11 14 16 17 18 20 22 24 25 28 29 30 33 35 36 37 39 41 42 52 53 61 63 71 73 81 82 90"
' Scrivi "sys16 -  01 26 29 31 32 33 40 41 52 53 55 56 59 61 63 65 68 70 71 73 75 78 81 83 85 87 88 89 90 10 05"
' Scrivi "sys17 -  01 03 05 11 13 15 17 19 21 23 25 27 29 31 33 35 37 39 41 43 45 51 53 59 61 63 67 71 73 79 81 83 87"
 Dim aNumeri(31) ' array nuMeri in gioco
 sys = CInt(InputBox("Nr.Sistema  ",,1))
 last = EstrazioniArchivioSE : Ini = 1
 FINE = InputBox("ESTRAZ.N.",,last)
 If sys = 1 Then
  aNumeri(1) = 5 : aNumeri(2) = 10 : aNumeri(3) = 11 : aNumeri(4) = 13 : aNumeri(5) = 17 : aNumeri(6) = 22 : aNumeri(7) = 23 : aNumeri(8) = 25 : aNumeri(9) = 28 : aNumeri(10) = 29 :
  aNumeri(11) = 35 : aNumeri(12) = 37 : aNumeri(13) = 40 : aNumeri(14) = 41 : aNumeri(15) = 47 : aNumeri(16) = 49 : aNumeri(17) = 52 : aNumeri(18) = 53 : aNumeri(19) = 59 : aNumeri(20) = 61 :
  aNumeri(21) = 64 : aNumeri(22) = 65 : aNumeri(23) = 71 : aNumeri(24) = 73 : aNumeri(25) = 76 : aNumeri(26) = 77 : aNumeri(27) = 83 : aNumeri(28) = 85 : aNumeri(29) = 88 : aNumeri(30) = 89 :
  aNumeri(31) = 1
 End If
 If sys = 2 Then
  aNumeri(1) = 2 : aNumeri(2) = 6 : aNumeri(3) = 11 : aNumeri(4) = 12 : aNumeri(5) = 14 : aNumeri(6) = 18 : aNumeri(7) = 23 : aNumeri(8) = 24 : aNumeri(9) = 26 : aNumeri(10) = 29 :
  aNumeri(11) = 30 : aNumeri(12) = 36 : aNumeri(13) = 38 : aNumeri(14) = 41 : aNumeri(15) = 42 : aNumeri(16) = 48 : aNumeri(17) = 50 : aNumeri(18) = 53 : aNumeri(19) = 54 : aNumeri(20) = 60 :
  aNumeri(21) = 62 : aNumeri(22) = 65 : aNumeri(23) = 66 : aNumeri(24) = 72 : aNumeri(25) = 74 : aNumeri(26) = 77 : aNumeri(27) = 78 : aNumeri(28) = 84 : aNumeri(29) = 86 : aNumeri(30) = 89 :
  aNumeri(31) = 90
 End If
 If sys = 3 Then
  aNumeri(1) = 1 : aNumeri(2) = 3 : aNumeri(3) = 7 : aNumeri(4) = 12 : aNumeri(5) = 13 : aNumeri(6) = 15 : aNumeri(7) = 19 : aNumeri(8) = 24 : aNumeri(9) = 25 : aNumeri(10) = 27 :
  aNumeri(11) = 30 : aNumeri(12) = 31 : aNumeri(13) = 37 : aNumeri(14) = 39 : aNumeri(15) = 42 : aNumeri(16) = 43 : aNumeri(17) = 49 : aNumeri(18) = 51 : aNumeri(19) = 54 : aNumeri(20) = 55 :
  aNumeri(21) = 61 : aNumeri(22) = 63 : aNumeri(23) = 66 : aNumeri(24) = 67 : aNumeri(25) = 73 : aNumeri(26) = 75 : aNumeri(27) = 78 : aNumeri(28) = 79 : aNumeri(29) = 85 : aNumeri(30) = 87 :
  aNumeri(31) = 90
 End If
 If sys = 4 Then
  aNumeri(1) = 1 : aNumeri(2) = 2 : aNumeri(3) = 4 : aNumeri(4) = 8 : aNumeri(5) = 13 : aNumeri(6) = 14 : aNumeri(7) = 16 : aNumeri(8) = 20 : aNumeri(9) = 25 : aNumeri(10) = 26 :
  aNumeri(11) = 28 : aNumeri(12) = 31 : aNumeri(13) = 32 : aNumeri(14) = 38 : aNumeri(15) = 40 : aNumeri(16) = 43 : aNumeri(17) = 44 : aNumeri(18) = 50 : aNumeri(19) = 52 : aNumeri(20) = 55 :
  aNumeri(21) = 56 : aNumeri(22) = 62 : aNumeri(23) = 64 : aNumeri(24) = 67 : aNumeri(25) = 68 : aNumeri(26) = 74 : aNumeri(27) = 76 : aNumeri(28) = 79 : aNumeri(29) = 80 : aNumeri(30) = 86 :
  aNumeri(31) = 88
 End If
 If sys = 5 Then
  aNumeri(1) = 2 : aNumeri(2) = 3 : aNumeri(3) = 5 : aNumeri(4) = 9 : aNumeri(5) = 14 : aNumeri(6) = 15 : aNumeri(7) = 17 : aNumeri(8) = 21 : aNumeri(9) = 26 : aNumeri(10) = 27 :
  aNumeri(11) = 29 : aNumeri(12) = 32 : aNumeri(13) = 33 : aNumeri(14) = 39 : aNumeri(15) = 41 : aNumeri(16) = 44 : aNumeri(17) = 45 : aNumeri(18) = 51 : aNumeri(19) = 53 : aNumeri(20) = 56 :
  aNumeri(21) = 57 : aNumeri(22) = 63 : aNumeri(23) = 65 : aNumeri(24) = 68 : aNumeri(25) = 69 : aNumeri(26) = 75 : aNumeri(27) = 77 : aNumeri(28) = 80 : aNumeri(29) = 81 : aNumeri(30) = 87 :
  aNumeri(31) = 89
 End If
 If sys = 6 Then
  aNumeri(1) = 3 : aNumeri(2) = 4 : aNumeri(3) = 6 : aNumeri(4) = 10 : aNumeri(5) = 15 : aNumeri(6) = 16 : aNumeri(7) = 18 : aNumeri(8) = 22 : aNumeri(9) = 27 : aNumeri(10) = 28 :
  aNumeri(11) = 30 : aNumeri(12) = 33 : aNumeri(13) = 34 : aNumeri(14) = 40 : aNumeri(15) = 42 : aNumeri(16) = 45 : aNumeri(17) = 46 : aNumeri(18) = 52 : aNumeri(19) = 54 : aNumeri(20) = 57 :
  aNumeri(21) = 58 : aNumeri(22) = 64 : aNumeri(23) = 66 : aNumeri(24) = 69 : aNumeri(25) = 70 : aNumeri(26) = 76 : aNumeri(27) = 78 : aNumeri(28) = 81 : aNumeri(29) = 82 : aNumeri(30) = 88 :
  aNumeri(31) = 90
 End If
 If sys = 6 Then
  aNumeri(1) = 3 : aNumeri(2) = 4 : aNumeri(3) = 6 : aNumeri(4) = 10 : aNumeri(5) = 15 : aNumeri(6) = 16 : aNumeri(7) = 18 : aNumeri(8) = 22 : aNumeri(9) = 27 : aNumeri(10) = 28 :
  aNumeri(11) = 30 : aNumeri(12) = 33 : aNumeri(13) = 34 : aNumeri(14) = 40 : aNumeri(15) = 42 : aNumeri(16) = 45 : aNumeri(17) = 46 : aNumeri(18) = 52 : aNumeri(19) = 54 : aNumeri(20) = 57 :
  aNumeri(21) = 58 : aNumeri(22) = 64 : aNumeri(23) = 66 : aNumeri(24) = 69 : aNumeri(25) = 70 : aNumeri(26) = 76 : aNumeri(27) = 78 : aNumeri(28) = 81 : aNumeri(29) = 82 : aNumeri(30) = 88 :
  aNumeri(31) = 90
 End If
 If sys = 7 Then
  aNumeri(1) = 1 : aNumeri(2) = 4 : aNumeri(3) = 5 : aNumeri(4) = 7 : aNumeri(5) = 11 : aNumeri(6) = 16 : aNumeri(7) = 17 : aNumeri(8) = 19 : aNumeri(9) = 23 : aNumeri(10) = 28 :
  aNumeri(11) = 29 : aNumeri(12) = 31 : aNumeri(13) = 34 : aNumeri(14) = 35 : aNumeri(15) = 41 : aNumeri(16) = 43 : aNumeri(17) = 46 : aNumeri(18) = 47 : aNumeri(19) = 53 : aNumeri(20) = 55 :
  aNumeri(21) = 58 : aNumeri(22) = 59 : aNumeri(23) = 65 : aNumeri(24) = 67 : aNumeri(25) = 70 : aNumeri(26) = 71 : aNumeri(27) = 77 : aNumeri(28) = 79 : aNumeri(29) = 82 : aNumeri(30) = 83 :
  aNumeri(31) = 89
 End If
 If sys = 8 Then
  aNumeri(1) = 2 : aNumeri(2) = 5 : aNumeri(3) = 6 : aNumeri(4) = 7 : aNumeri(5) = 12 : aNumeri(6) = 17 : aNumeri(7) = 18 : aNumeri(8) = 20 : aNumeri(9) = 24 : aNumeri(10) = 29 :
  aNumeri(11) = 30 : aNumeri(12) = 32 : aNumeri(13) = 35 : aNumeri(14) = 36 : aNumeri(15) = 42 : aNumeri(16) = 44 : aNumeri(17) = 47 : aNumeri(18) = 48 : aNumeri(19) = 54 : aNumeri(20) = 56 :
  aNumeri(21) = 59 : aNumeri(22) = 60 : aNumeri(23) = 66 : aNumeri(24) = 68 : aNumeri(25) = 71 : aNumeri(26) = 72 : aNumeri(27) = 78 : aNumeri(28) = 80 : aNumeri(29) = 83 : aNumeri(30) = 84 :
  aNumeri(31) = 90
 End If
 If sys = 9 Then
  aNumeri(1) = 1 : aNumeri(2) = 3 : aNumeri(3) = 6 : aNumeri(4) = 7 : aNumeri(5) = 9 : aNumeri(6) = 13 : aNumeri(7) = 18 : aNumeri(8) = 19 : aNumeri(9) = 21 : aNumeri(10) = 25 :
  aNumeri(11) = 30 : aNumeri(12) = 31 : aNumeri(13) = 33 : aNumeri(14) = 36 : aNumeri(15) = 37 : aNumeri(16) = 43 : aNumeri(17) = 45 : aNumeri(18) = 48 : aNumeri(19) = 49 : aNumeri(20) = 55 :
  aNumeri(21) = 57 : aNumeri(22) = 60 : aNumeri(23) = 61 : aNumeri(24) = 67 : aNumeri(25) = 69 : aNumeri(26) = 72 : aNumeri(27) = 73 : aNumeri(28) = 79 : aNumeri(29) = 81 : aNumeri(30) = 84 :
  aNumeri(31) = 85
 End If
 If sys = 10 Then
  aNumeri(1) = 2 : aNumeri(2) = 4 : aNumeri(3) = 7 : aNumeri(4) = 8 : aNumeri(5) = 10 : aNumeri(6) = 14 : aNumeri(7) = 19 : aNumeri(8) = 20 : aNumeri(9) = 22 : aNumeri(10) = 26 :
  aNumeri(11) = 31 : aNumeri(12) = 32 : aNumeri(13) = 34 : aNumeri(14) = 37 : aNumeri(15) = 38 : aNumeri(16) = 44 : aNumeri(17) = 46 : aNumeri(18) = 49 : aNumeri(19) = 50 : aNumeri(20) = 56 :
  aNumeri(21) = 58 : aNumeri(22) = 61 : aNumeri(23) = 62 : aNumeri(24) = 68 : aNumeri(25) = 70 : aNumeri(26) = 73 : aNumeri(27) = 74 : aNumeri(28) = 80 : aNumeri(29) = 82 : aNumeri(30) = 85 :
  aNumeri(31) = 86
 End If
 If sys = 11 Then
  aNumeri(1) = 3 : aNumeri(2) = 5 : aNumeri(3) = 8 : aNumeri(4) = 9 : aNumeri(5) = 11 : aNumeri(6) = 15 : aNumeri(7) = 20 : aNumeri(8) = 21 : aNumeri(9) = 23 : aNumeri(10) = 27 :
  aNumeri(11) = 32 : aNumeri(12) = 33 : aNumeri(13) = 35 : aNumeri(14) = 38 : aNumeri(15) = 39 : aNumeri(16) = 45 : aNumeri(17) = 47 : aNumeri(18) = 50 : aNumeri(19) = 51 : aNumeri(20) = 57 :
  aNumeri(21) = 59 : aNumeri(22) = 62 : aNumeri(23) = 63 : aNumeri(24) = 69 : aNumeri(25) = 71 : aNumeri(26) = 74 : aNumeri(27) = 75 : aNumeri(28) = 81 : aNumeri(29) = 83 : aNumeri(30) = 86 :
  aNumeri(31) = 87
 End If
 If sys = 12 Then
  aNumeri(1) = 4 : aNumeri(2) = 6 : aNumeri(3) = 9 : aNumeri(4) = 10 : aNumeri(5) = 12 : aNumeri(6) = 16 : aNumeri(7) = 21 : aNumeri(8) = 22 : aNumeri(9) = 24 : aNumeri(10) = 28 :
  aNumeri(11) = 33 : aNumeri(12) = 34 : aNumeri(13) = 36 : aNumeri(14) = 39 : aNumeri(15) = 40 : aNumeri(16) = 46 : aNumeri(17) = 48 : aNumeri(18) = 51 : aNumeri(19) = 52 : aNumeri(20) = 58 :
  aNumeri(21) = 60 : aNumeri(22) = 63 : aNumeri(23) = 64 : aNumeri(24) = 70 : aNumeri(25) = 72 : aNumeri(26) = 75 : aNumeri(27) = 76 : aNumeri(28) = 82 : aNumeri(29) = 84 : aNumeri(30) = 87 :
  aNumeri(31) = 88
 End If
 For k = 1 To FINE
  punti = 0
  For x = 1 To UBound(aNumeri)
   For p = 1 To 6
    If Int(aNumeri(x)) = Int(EstrattoSE(k,p)) Then
     punti = punti + 1
    End If
   Next
  Next
  ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  If punti >= 2 Then
   fr2 = fr2 + 1
   If rt2 > mx2 Then
    mx2 = rt2
   End If
   rt2 = 0
  Else
   rt2 = rt2 + 1
  End If
  ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  If punti >= 3 Then
   fr3 = fr3 + 1
   If rt3 > mx3 Then
    mx3 = rt3
   End If
   rt3 = 0
  Else
   rt3 = rt3 + 1
  End If
  ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  If punti >= 4 Then
   fr4 = fr4 + 1
   If rt4 > mx4 Then
    mx4 = rt4
   End If
   rt4 = 0
  Else
   rt4 = rt4 + 1
  End If
  ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  If punti >= 5 Then
   fr5 = fr5 + 1
   If rt5 > mx5 Then
    mx5 = rt5
   End If
   rt5 = 0
  Else
   rt5 = rt5 + 1
  End If
  ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  If punti >= 6 Then
   fr6 = fr6 + 1
   If rt6 > mx6 Then
    mx6 = rt6
   End If
   rt6 = 0
  Else
   rt6 = rt6 + 1
  End If
  ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
 Next
 ' 'riepilogo statistico del sistema scelto
 ColoreTesto(1)
 Scrivi
 Scrivi sys & " =    Sistema...." & StringaNumeri(aNumeri,"."),1
 ColoreTesto(0)
 Scrivi
 Scrivi "Aggiornato all'estrazione n." & FINE & "      " & DataEstrazioneSE(FINE)
 Scrivi "Estrazioni esaminate con esiti....." & FINE
 Scrivi
 Scrivi "Punti....2.....freq." & FormattaStringa(fr2,"00000") & "         Ritardo Att.." & FormattaStringa(rt2,"000") & " / " & mx2,1
 Scrivi "Punti....3.....freq." & FormattaStringa(fr3,"00000") & "         Ritardo Att.." & FormattaStringa(rt3,"000") & " / " & mx3,1
 Scrivi "Punti....4.....freq." & FormattaStringa(fr4,"00000") & "         Ritardo Att.." & FormattaStringa(rt4,"000") & " / " & mx4,1
 Scrivi "Punti....5.....freq." & FormattaStringa(fr5,"00000") & "         Ritardo Att.." & FormattaStringa(rt5,"000") & " / " & mx5,1
 Scrivi "Punti....6.....freq." & FormattaStringa(fr6,"00000") & "         Ritardo Att.." & FormattaStringa(rt6,"000") & " / " & mx6,1
 Scrivi
 Scrivi "---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------",1
 Scrivi
 Scrivi " VERIFICA ESITO..." & FINE + 1
 fin = FINE
 For fin = fin + 1 To last
  Call VerificaEsitoSE(aNumeri,fin,3,,,,RETESTRATTI,RETIDESTR)
  If RETESTRATTI <> "" Then
   ColoreTesto(2)
   Scrivi " ------>>  " & RETIDESTR & "    " & RETESTRATTI & "    COLPO N." & RETIDESTR - FINE
   fin = RETIDESTR
   ColoreTesto(0)
  End If
 Next
 Scrivi:Scrivi "---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------",1
 Scrivi
 Scrivi "Sviluppo schedine ......col.tot.19   gar.100% -  2 su 3 giusti all'estrazione n." & Ini & " /" & DataEstrazioneSE(Ini) & "  :   " & FINE & " / " & DataEstrazioneSE(FINE),1
 Scrivi "---------------------Rit.punti-----        01           02           03          04        05        06        ------------------------",1
 ReDim apos(8)
 apos(1) = True: apos(2) = True: apos(3) = True
 apos(4) = True: apos(5) = True: apos(6) = True
 ReDim num(12),ri(14),max(14)
 num(1) = Format2(aNumeri(1)) : num(2) = Format2(aNumeri(2)):num(3) = Format2(aNumeri(3)):num(4) = Format2(aNumeri(4)):num(5) = Format2(aNumeri(26)):num(6) = Format2(aNumeri(29))
 For s = 1 To 6
  ri(s) = RitardoCombinazioneSE(num,s,FINE,apos)
 Next
 Scrivi StringaNumeri(num,".") & "          ..........      " & FormattaStringa(ri(1),"0000") & "         " & FormattaStringa(ri(2),"0000") & "         " & FormattaStringa(ri(3),"0000") & "        " & FormattaStringa(ri(4),"0000") & "      " & FormattaStringa(ri(5),"0000") & "      " & FormattaStringa(ri(6),"0000"),1
 ReDim num(12),ri(14),max(14)
 num(1) = Format2(aNumeri(1)) : num(2) = Format2(aNumeri(2)):num(3) = Format2(aNumeri(10)):num(4) = Format2(aNumeri(13)):num(5) = Format2(aNumeri(14)):num(6) = Format2(aNumeri(18))
 For s = 1 To 6
  ri(s) = RitardoCombinazioneSE(num,s,FINE,apos)
 Next
 Scrivi StringaNumeri(num,".") & "          ..........      " & FormattaStringa(ri(1),"0000") & "         " & FormattaStringa(ri(2),"0000") & "         " & FormattaStringa(ri(3),"0000") & "        " & FormattaStringa(ri(4),"0000") & "      " & FormattaStringa(ri(5),"0000") & "      " & FormattaStringa(ri(6),"0000"),1
 ReDim num(12),ri(14),max(14)
 num(1) = Format2(aNumeri(1)) : num(2) = Format2(aNumeri(4)):num(3) = Format2(aNumeri(10)):num(4) = Format2(aNumeri(11)):num(5) = Format2(aNumeri(25)):num(6) = Format2(aNumeri(26))
 For s = 1 To 6
  ri(s) = RitardoCombinazioneSE(num,s,FINE,apos)
 Next
 Scrivi StringaNumeri(num,".") & "          ..........      " & FormattaStringa(ri(1),"0000") & "         " & FormattaStringa(ri(2),"0000") & "         " & FormattaStringa(ri(3),"0000") & "        " & FormattaStringa(ri(4),"0000") & "      " & FormattaStringa(ri(5),"0000") & "      " & FormattaStringa(ri(6),"0000"),1
 ReDim num(12),ri(14),max(14)
 num(1) = Format2(aNumeri(1)) : num(2) = Format2(aNumeri(5)):num(3) = Format2(aNumeri(6)):num(4) = Format2(aNumeri(10)):num(5) = Format2(aNumeri(22)):num(6) = Format2(aNumeri(28))
 For s = 1 To 6
  ri(s) = RitardoCombinazioneSE(num,s,FINE,apos)
 Next
 Scrivi StringaNumeri(num,".") & "          ..........      " & FormattaStringa(ri(1),"0000") & "         " & FormattaStringa(ri(2),"0000") & "         " & FormattaStringa(ri(3),"0000") & "        " & FormattaStringa(ri(4),"0000") & "      " & FormattaStringa(ri(5),"0000") & "      " & FormattaStringa(ri(6),"0000"),1
 ReDim num(12),ri(14),max(14)
 num(1) = Format2(aNumeri(1)) : num(2) = Format2(aNumeri(10)):num(3) = Format2(aNumeri(13)):num(4) = Format2(aNumeri(29)):num(5) = Format2(aNumeri(30)):num(6) = Format2(aNumeri(31))
 For s = 1 To 6
  ri(s) = RitardoCombinazioneSE(num,s,FINE,apos)
 Next
 Scrivi StringaNumeri(num,".") & "          ..........      " & FormattaStringa(ri(1),"0000") & "         " & FormattaStringa(ri(2),"0000") & "         " & FormattaStringa(ri(3),"0000") & "        " & FormattaStringa(ri(4),"0000") & "      " & FormattaStringa(ri(5),"0000") & "      " & FormattaStringa(ri(6),"0000"),1
 ReDim num(12),ri(14),max(14)
 num(1) = Format2(aNumeri(2)) : num(2) = Format2(aNumeri(4)):num(3) = Format2(aNumeri(5)):num(4) = Format2(aNumeri(6)):num(5) = Format2(aNumeri(25)):num(6) = Format2(aNumeri(29))
 For s = 1 To 6
  ri(s) = RitardoCombinazioneSE(num,s,FINE,apos)
 Next
 Scrivi StringaNumeri(num,".") & "          ..........      " & FormattaStringa(ri(1),"0000") & "         " & FormattaStringa(ri(2),"0000") & "         " & FormattaStringa(ri(3),"0000") & "        " & FormattaStringa(ri(4),"0000") & "      " & FormattaStringa(ri(5),"0000") & "      " & FormattaStringa(ri(6),"0000"),1
 ReDim num(12),ri(14),max(14)
 num(1) = Format2(aNumeri(2)) : num(2) = Format2(aNumeri(5)):num(3) = Format2(aNumeri(6)):num(4) = Format2(aNumeri(11)):num(5) = Format2(aNumeri(30)):num(6) = Format2(aNumeri(31))
 For s = 1 To 6
  ri(s) = RitardoCombinazioneSE(num,s,FINE,apos)
 Next
 Scrivi StringaNumeri(num,".") & "          ..........      " & FormattaStringa(ri(1),"0000") & "         " & FormattaStringa(ri(2),"0000") & "         " & FormattaStringa(ri(3),"0000") & "        " & FormattaStringa(ri(4),"0000") & "      " & FormattaStringa(ri(5),"0000") & "      " & FormattaStringa(ri(6),"0000"),1
 ReDim num(12),ri(14),max(14)
 num(1) = Format2(aNumeri(2)) : num(2) = Format2(aNumeri(22)):num(3) = Format2(aNumeri(26)):num(4) = Format2(aNumeri(28)):num(5) = Format2(aNumeri(30)):num(6) = Format2(aNumeri(31))
 For s = 1 To 6
  ri(s) = RitardoCombinazioneSE(num,s,FINE,apos)
 Next
 Scrivi StringaNumeri(num,".") & "          ..........      " & FormattaStringa(ri(1),"0000") & "         " & FormattaStringa(ri(2),"0000") & "         " & FormattaStringa(ri(3),"0000") & "        " & FormattaStringa(ri(4),"0000") & "      " & FormattaStringa(ri(5),"0000") & "      " & FormattaStringa(ri(6),"0000"),1
 ReDim num(12),ri(14),max(14)
 num(1) = Format2(aNumeri(3)) : num(2) = Format2(aNumeri(7)):num(3) = Format2(aNumeri(9)):num(4) = Format2(aNumeri(17)):num(5) = Format2(aNumeri(19)):num(6) = Format2(aNumeri(24))
 For s = 1 To 6
  ri(s) = RitardoCombinazioneSE(num,s,FINE,apos)
 Next
 Scrivi StringaNumeri(num,".") & "          ..........      " & FormattaStringa(ri(1),"0000") & "         " & FormattaStringa(ri(2),"0000") & "         " & FormattaStringa(ri(3),"0000") & "        " & FormattaStringa(ri(4),"0000") & "      " & FormattaStringa(ri(5),"0000") & "      " & FormattaStringa(ri(6),"0000"),1
 ReDim num(12),ri(14),max(14)
 num(1) = Format2(aNumeri(3)) : num(2) = Format2(aNumeri(8)):num(3) = Format2(aNumeri(12)):num(4) = Format2(aNumeri(23)):num(5) = Format2(aNumeri(24)):num(6) = Format2(aNumeri(27))
 For s = 1 To 6
  ri(s) = RitardoCombinazioneSE(num,s,FINE,apos)
 Next
 Scrivi StringaNumeri(num,".") & "          ..........      " & FormattaStringa(ri(1),"0000") & "         " & FormattaStringa(ri(2),"0000") & "         " & FormattaStringa(ri(3),"0000") & "        " & FormattaStringa(ri(4),"0000") & "      " & FormattaStringa(ri(5),"0000") & "      " & FormattaStringa(ri(6),"0000"),1
 ReDim num(12),ri(14),max(14)
 num(1) = Format2(aNumeri(3)) : num(2) = Format2(aNumeri(15)):num(3) = Format2(aNumeri(16)):num(4) = Format2(aNumeri(20)):num(5) = Format2(aNumeri(21)):num(6) = Format2(aNumeri(24))
 For s = 1 To 6
  ri(s) = RitardoCombinazioneSE(num,s,FINE,apos)
 Next
 Scrivi StringaNumeri(num,".") & "          ..........      " & FormattaStringa(ri(1),"0000") & "         " & FormattaStringa(ri(2),"0000") & "         " & FormattaStringa(ri(3),"0000") & "        " & FormattaStringa(ri(4),"0000") & "      " & FormattaStringa(ri(5),"0000") & "      " & FormattaStringa(ri(6),"0000"),1
 ReDim num(12),ri(14),max(14)
 num(1) = Format2(aNumeri(4)) : num(2) = Format2(aNumeri(11)):num(3) = Format2(aNumeri(13)):num(4) = Format2(aNumeri(22)):num(5) = Format2(aNumeri(25)):num(6) = Format2(aNumeri(28))
 For s = 1 To 6
  ri(s) = RitardoCombinazioneSE(num,s,FINE,apos)
 Next
 Scrivi StringaNumeri(num,".") & "          ..........      " & FormattaStringa(ri(1),"0000") & "         " & FormattaStringa(ri(2),"0000") & "         " & FormattaStringa(ri(3),"0000") & "        " & FormattaStringa(ri(4),"0000") & "      " & FormattaStringa(ri(5),"0000") & "      " & FormattaStringa(ri(6),"0000"),1
 ReDim num(12),ri(14),max(14)
 num(1) = Format2(aNumeri(4)) : num(2) = Format2(aNumeri(14)):num(3) = Format2(aNumeri(18)):num(4) = Format2(aNumeri(25)):num(5) = Format2(aNumeri(30)):num(6) = Format2(aNumeri(31))
 For s = 1 To 6
  ri(s) = RitardoCombinazioneSE(num,s,FINE,apos)
 Next
 Scrivi StringaNumeri(num,".") & "          ..........      " & FormattaStringa(ri(1),"0000") & "         " & FormattaStringa(ri(2),"0000") & "         " & FormattaStringa(ri(3),"0000") & "        " & FormattaStringa(ri(4),"0000") & "      " & FormattaStringa(ri(5),"0000") & "      " & FormattaStringa(ri(6),"0000"),1
 ReDim num(12),ri(14),max(14)
 num(1) = Format2(aNumeri(5)) : num(2) = Format2(aNumeri(6)):num(3) = Format2(aNumeri(13)):num(4) = Format2(aNumeri(14)):num(5) = Format2(aNumeri(18)):num(6) = Format2(aNumeri(26))
 For s = 1 To 6
  ri(s) = RitardoCombinazioneSE(num,s,FINE,apos)
 Next
 Scrivi StringaNumeri(num,".") & "          ..........      " & FormattaStringa(ri(1),"0000") & "         " & FormattaStringa(ri(2),"0000") & "         " & FormattaStringa(ri(3),"0000") & "        " & FormattaStringa(ri(4),"0000") & "      " & FormattaStringa(ri(5),"0000") & "      " & FormattaStringa(ri(6),"0000"),1
 ReDim num(12),ri(14),max(14)
 num(1) = Format2(aNumeri(7)) : num(2) = Format2(aNumeri(8)):num(3) = Format2(aNumeri(15)):num(4) = Format2(aNumeri(16)):num(5) = Format2(aNumeri(19)):num(6) = Format2(aNumeri(27))
 For s = 1 To 6
  ri(s) = RitardoCombinazioneSE(num,s,FINE,apos)
 Next
 Scrivi StringaNumeri(num,".") & "          ..........      " & FormattaStringa(ri(1),"0000") & "         " & FormattaStringa(ri(2),"0000") & "         " & FormattaStringa(ri(3),"0000") & "        " & FormattaStringa(ri(4),"0000") & "      " & FormattaStringa(ri(5),"0000") & "      " & FormattaStringa(ri(6),"0000"),1
 ReDim num(12),ri(14),max(14)
 num(1) = Format2(aNumeri(7)) : num(2) = Format2(aNumeri(12)):num(3) = Format2(aNumeri(19)):num(4) = Format2(aNumeri(20)):num(5) = Format2(aNumeri(21)):num(6) = Format2(aNumeri(23))
 For s = 1 To 6
  ri(s) = RitardoCombinazioneSE(num,s,FINE,apos)
 Next
 Scrivi StringaNumeri(num,".") & "          ..........      " & FormattaStringa(ri(1),"0000") & "         " & FormattaStringa(ri(2),"0000") & "         " & FormattaStringa(ri(3),"0000") & "        " & FormattaStringa(ri(4),"0000") & "      " & FormattaStringa(ri(5),"0000") & "      " & FormattaStringa(ri(6),"0000"),1
 ReDim num(12),ri(14),max(14)
 num(1) = Format2(aNumeri(8)) : num(2) = Format2(aNumeri(9)):num(3) = Format2(aNumeri(17)):num(4) = Format2(aNumeri(20)):num(5) = Format2(aNumeri(21)):num(6) = Format2(aNumeri(27))
 For s = 1 To 6
  ri(s) = RitardoCombinazioneSE(num,s,FINE,apos)
 Next
 Scrivi StringaNumeri(num,".") & "          ..........      " & FormattaStringa(ri(1),"0000") & "         " & FormattaStringa(ri(2),"0000") & "         " & FormattaStringa(ri(3),"0000") & "        " & FormattaStringa(ri(4),"0000") & "      " & FormattaStringa(ri(5),"0000") & "      " & FormattaStringa(ri(6),"0000"),1
 ReDim num(12),ri(14),max(14)
 num(1) = Format2(aNumeri(9)) : num(2) = Format2(aNumeri(12)):num(3) = Format2(aNumeri(15)):num(4) = Format2(aNumeri(16)):num(5) = Format2(aNumeri(17)):num(6) = Format2(aNumeri(23))
 For s = 1 To 6
  ri(s) = RitardoCombinazioneSE(num,s,FINE,apos)
 Next
 Scrivi StringaNumeri(num,".") & "          ..........      " & FormattaStringa(ri(1),"0000") & "         " & FormattaStringa(ri(2),"0000") & "         " & FormattaStringa(ri(3),"0000") & "        " & FormattaStringa(ri(4),"0000") & "      " & FormattaStringa(ri(5),"0000") & "      " & FormattaStringa(ri(6),"0000"),1
 ReDim num(12),ri(14),max(14)
 num(1) = Format2(aNumeri(11)) : num(2) = Format2(aNumeri(14)):num(3) = Format2(aNumeri(18)):num(4) = Format2(aNumeri(22)):num(5) = Format2(aNumeri(28)):num(6) = Format2(aNumeri(29))
 For s = 1 To 6
  ri(s) = RitardoCombinazioneSE(num,s,FINE,apos)
 Next
 Scrivi StringaNumeri(num,".") & "          ..........      " & FormattaStringa(ri(1),"0000") & "         " & FormattaStringa(ri(2),"0000") & "         " & FormattaStringa(ri(3),"0000") & "        " & FormattaStringa(ri(4),"0000") & "      " & FormattaStringa(ri(5),"0000") & "      " & FormattaStringa(ri(6),"0000"),1
 ColoreTesto(0)
 Scrivi
 Scrivi "Sviluppo schedine ......col.tot.13 ",1
 Scrivi Format2(aNumeri(1)) & " " & Format2(aNumeri(2)) & " " & Format2(aNumeri(4)) & " " & Format2(aNumeri(6)) & " " & Format2(aNumeri(10)) & " " & Format2(aNumeri(17))
 Scrivi Format2(aNumeri(1)) & " " & Format2(aNumeri(2)) & " " & Format2(aNumeri(5)) & " " & Format2(aNumeri(13)) & " " & Format2(aNumeri(16)) & " " & Format2(aNumeri(17))
 Scrivi Format2(aNumeri(1)) & " " & Format2(aNumeri(3)) & " " & Format2(aNumeri(5)) & " " & Format2(aNumeri(13)) & " " & Format2(aNumeri(14)) & " " & Format2(aNumeri(15))
 Scrivi Format2(aNumeri(2)) & " " & Format2(aNumeri(3)) & " " & Format2(aNumeri(14)) & " " & Format2(aNumeri(15)) & " " & Format2(aNumeri(16)) & " " & Format2(aNumeri(17))
 Scrivi Format2(aNumeri(3)) & " " & Format2(aNumeri(4)) & " " & Format2(aNumeri(6)) & " " & Format2(aNumeri(10)) & " " & Format2(aNumeri(14)) & " " & Format2(aNumeri(15))
 Scrivi Format2(aNumeri(4)) & " " & Format2(aNumeri(5)) & " " & Format2(aNumeri(6)) & " " & Format2(aNumeri(10)) & " " & Format2(aNumeri(13)) & " " & Format2(aNumeri(16))
 Scrivi Format2(aNumeri(7)) & " " & Format2(aNumeri(8)) & " " & Format2(aNumeri(11)) & " " & Format2(aNumeri(18)) & " " & Format2(aNumeri(19)) & " " & Format2(aNumeri(25))
 Scrivi Format2(aNumeri(7)) & " " & Format2(aNumeri(11)) & " " & Format2(aNumeri(22)) & " " & Format2(aNumeri(25)) & " " & Format2(aNumeri(26)) & " " & Format2(aNumeri(28))
 Scrivi Format2(aNumeri(8)) & " " & Format2(aNumeri(18)) & " " & Format2(aNumeri(19)) & " " & Format2(aNumeri(22)) & " " & Format2(aNumeri(26)) & " " & Format2(aNumeri(28))
 Scrivi Format2(aNumeri(9)) & " " & Format2(aNumeri(12)) & " " & Format2(aNumeri(24)) & " " & Format2(aNumeri(27)) & " " & Format2(aNumeri(29)) & " " & Format2(aNumeri(30))
 Scrivi Format2(aNumeri(9)) & " " & Format2(aNumeri(20)) & " " & Format2(aNumeri(21)) & " " & Format2(aNumeri(23)) & " " & Format2(aNumeri(30)) & " " & Format2(aNumeri(31))
 Scrivi Format2(aNumeri(12)) & " " & Format2(aNumeri(20)) & " " & Format2(aNumeri(21)) & " " & Format2(aNumeri(23)) & " " & Format2(aNumeri(24)) & " " & Format2(aNumeri(31))
 Scrivi Format2(aNumeri(20)) & " " & Format2(aNumeri(21)) & " " & Format2(aNumeri(23)) & " " & Format2(aNumeri(27)) & " " & Format2(aNumeri(29)) & " " & Format2(aNumeri(31))
 Scrivi
 Scrivi "---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------",1
 Scrivi
 Scrivi "Matrice automatica Rubino   (colonne miste .col.tot.25 )",1
 Scrivi Format2(aNumeri(3)) & " " & Format2(aNumeri(5)) & " " & Format2(aNumeri(8)) & " " & Format2(aNumeri(14)) & " " & Format2(aNumeri(22)) & " " & Format2(aNumeri(24)) & " " & Format2(aNumeri(6)) & " " & Format2(aNumeri(16)) & " " & Format2(aNumeri(21)) & " " & Format2(aNumeri(4)) & " " & Format2(aNumeri(18))
 Scrivi Format2(aNumeri(1)) & " " & Format2(aNumeri(3)) & " " & Format2(aNumeri(4)) & " " & Format2(aNumeri(9)) & " " & Format2(aNumeri(19)) & " " & Format2(aNumeri(20)) & " " & Format2(aNumeri(5)) & " " & Format2(aNumeri(8)) & " " & Format2(aNumeri(16))
 Scrivi Format2(aNumeri(3)) & " " & Format2(aNumeri(6)) & " " & Format2(aNumeri(9)) & " " & Format2(aNumeri(17)) & " " & Format2(aNumeri(21)) & " " & Format2(aNumeri(28)) & " " & Format2(aNumeri(2)) & " " & Format2(aNumeri(8)) & " " & Format2(aNumeri(16))
 Scrivi Format2(aNumeri(8)) & " " & Format2(aNumeri(17)) & " " & Format2(aNumeri(18)) & " " & Format2(aNumeri(21)) & " " & Format2(aNumeri(24)) & " " & Format2(aNumeri(26)) & " " & Format2(aNumeri(5)) & " " & Format2(aNumeri(10)) & " " & Format2(aNumeri(23))
 Scrivi Format2(aNumeri(1)) & " " & Format2(aNumeri(11)) & " " & Format2(aNumeri(13)) & " " & Format2(aNumeri(14)) & " " & Format2(aNumeri(18)) & " " & Format2(aNumeri(27)) & " " & Format2(aNumeri(2)) & " " & Format2(aNumeri(23)) & " " & Format2(aNumeri(26))
 Scrivi Format2(aNumeri(1)) & " " & Format2(aNumeri(2)) & " " & Format2(aNumeri(5)) & " " & Format2(aNumeri(7)) & " " & Format2(aNumeri(21)) & " " & Format2(aNumeri(25)) & " " & Format2(aNumeri(11)) & " " & Format2(aNumeri(23))
 Scrivi Format2(aNumeri(2)) & " " & Format2(aNumeri(14)) & " " & Format2(aNumeri(15)) & " " & Format2(aNumeri(22)) & " " & Format2(aNumeri(23)) & " " & Format2(aNumeri(24)) & " " & Format2(aNumeri(9)) & " " & Format2(aNumeri(16)) & " " & Format2(aNumeri(21))
 Scrivi Format2(aNumeri(1)) & " " & Format2(aNumeri(2)) & " " & Format2(aNumeri(6)) & " " & Format2(aNumeri(12)) & " " & Format2(aNumeri(18)) & " " & Format2(aNumeri(27)) & " " & Format2(aNumeri(19)) & " " & Format2(aNumeri(22)) & " " & Format2(aNumeri(28))
 Scrivi Format2(aNumeri(2)) & " " & Format2(aNumeri(3)) & " " & Format2(aNumeri(5)) & " " & Format2(aNumeri(10)) & " " & Format2(aNumeri(20)) & " " & Format2(aNumeri(4)) & " " & Format2(aNumeri(17)) & " " & Format2(aNumeri(23))
 Scrivi Format2(aNumeri(2)) & " " & Format2(aNumeri(4)) & " " & Format2(aNumeri(8)) & " " & Format2(aNumeri(9)) & " " & Format2(aNumeri(14)) & " " & Format2(aNumeri(20)) & " " & Format2(aNumeri(1)) & " " & Format2(aNumeri(19)) & " " & Format2(aNumeri(26))
 Scrivi Format2(aNumeri(3)) & " " & Format2(aNumeri(7)) & " " & Format2(aNumeri(14)) & " " & Format2(aNumeri(27)) & " " & Format2(aNumeri(28)) & " " & Format2(aNumeri(15)) & " " & Format2(aNumeri(18)) & " " & Format2(aNumeri(1)) & " " & Format2(aNumeri(9)) & " " & Format2(aNumeri(17))
 Scrivi Format2(aNumeri(8)) & " " & Format2(aNumeri(11)) & " " & Format2(aNumeri(12)) & " " & Format2(aNumeri(22)) & " " & Format2(aNumeri(27)) & " " & Format2(aNumeri(28)) & " " & Format2(aNumeri(21)) & " " & Format2(aNumeri(25))
 Scrivi Format2(aNumeri(10)) & " " & Format2(aNumeri(11)) & " " & Format2(aNumeri(18)) & " " & Format2(aNumeri(21)) & " " & Format2(aNumeri(22)) & " " & Format2(aNumeri(27)) & " " & Format2(aNumeri(2)) & " " & Format2(aNumeri(12)) & " " & Format2(aNumeri(17)) & " " & Format2(aNumeri(25))
 Scrivi Format2(aNumeri(10)) & " " & Format2(aNumeri(16)) & " " & Format2(aNumeri(17)) & " " & Format2(aNumeri(19)) & " " & Format2(aNumeri(24)) & " " & Format2(aNumeri(13)) & " " & Format2(aNumeri(18)) & " " & Format2(aNumeri(11)) & " " & Format2(aNumeri(14))
 Scrivi Format2(aNumeri(1)) & " " & Format2(aNumeri(5)) & " " & Format2(aNumeri(9)) & " " & Format2(aNumeri(10)) & " " & Format2(aNumeri(15)) & " " & Format2(aNumeri(19)) & " " & Format2(aNumeri(18)) & " " & Format2(aNumeri(26))
 Scrivi Format2(aNumeri(2)) & " " & Format2(aNumeri(7)) & " " & Format2(aNumeri(8)) & " " & Format2(aNumeri(9)) & " " & Format2(aNumeri(13)) & " " & Format2(aNumeri(26)) & " " & Format2(aNumeri(1)) & " " & Format2(aNumeri(22)) & " " & Format2(aNumeri(24))
 Scrivi Format2(aNumeri(6)) & " " & Format2(aNumeri(9)) & " " & Format2(aNumeri(22)) & " " & Format2(aNumeri(25)) & " " & Format2(aNumeri(26)) & " " & Format2(aNumeri(10)) & " " & Format2(aNumeri(14)) & " " & Format2(aNumeri(24))
 Scrivi Format2(aNumeri(11)) & " " & Format2(aNumeri(12)) & " " & Format2(aNumeri(13)) & " " & Format2(aNumeri(20)) & " " & Format2(aNumeri(22)) & " " & Format2(aNumeri(25)) & " " & Format2(aNumeri(3)) & " " & Format2(aNumeri(28))
 Scrivi Format2(aNumeri(4)) & " " & Format2(aNumeri(13)) & " " & Format2(aNumeri(17)) & " " & Format2(aNumeri(21)) & " " & Format2(aNumeri(25)) & " " & Format2(aNumeri(27)) & " " & Format2(aNumeri(9)) & " " & Format2(aNumeri(23))
 Scrivi Format2(aNumeri(3)) & " " & Format2(aNumeri(4)) & " " & Format2(aNumeri(15)) & " " & Format2(aNumeri(18)) & " " & Format2(aNumeri(21)) & " " & Format2(aNumeri(24)) & " " & Format2(aNumeri(19)) & " " & Format2(aNumeri(22))
 Scrivi Format2(aNumeri(4)) & " " & Format2(aNumeri(12)) & " " & Format2(aNumeri(16)) & " " & Format2(aNumeri(20)) & " " & Format2(aNumeri(27)) & " " & Format2(aNumeri(28)) & " " & Format2(aNumeri(10)) & " " & Format2(aNumeri(24))
 Scrivi Format2(aNumeri(4)) & " " & Format2(aNumeri(12)) & " " & Format2(aNumeri(14)) & " " & Format2(aNumeri(19)) & " " & Format2(aNumeri(23)) & " " & Format2(aNumeri(28)) & " " & Format2(aNumeri(3)) & " " & Format2(aNumeri(11))
 Scrivi Format2(aNumeri(2)) & " " & Format2(aNumeri(13)) & " " & Format2(aNumeri(15)) & " " & Format2(aNumeri(17)) & " " & Format2(aNumeri(20)) & " " & Format2(aNumeri(26)) & " " & Format2(aNumeri(16)) & " " & Format2(aNumeri(27))
 Scrivi Format2(aNumeri(2)) & " " & Format2(aNumeri(6)) & " " & Format2(aNumeri(9)) & " " & Format2(aNumeri(10)) & " " & Format2(aNumeri(16)) & " " & Format2(aNumeri(19)) & " " & Format2(aNumeri(18)) & " " & Format2(aNumeri(24)) & " " & Format2(aNumeri(8)) & " " & Format2(aNumeri(12))
 Scrivi Format2(aNumeri(3)) & " " & Format2(aNumeri(8)) & " " & Format2(aNumeri(15)) & " " & Format2(aNumeri(20)) & " " & Format2(aNumeri(23)) & " " & Format2(aNumeri(27)) & " " & Format2(aNumeri(4)) & " " & Format2(aNumeri(7)) & " " & Format2(aNumeri(26)) & " " & Format2(aNumeri(13)) & " " & Format2(aNumeri(28))
 Scrivi
 Scrivi "Situazione Ritardo dei singoli numeri del sistema ",1
 ReDim apos(8)
 apos(1) = True: apos(2) = True: apos(3) = True
 apos(4) = True: apos(5) = True: apos(6) = True
 For j = 1 To 31
  rit = EstrattoRitardoSE(aNumeri(j),1,last,apos)
  If rit = 0 Then
   ColoreTesto(2)
  Else
   ColoreTesto(0)
  End If
  Scrivi Format2(aNumeri(j)) & "...R." & FormattaStringa(rit,"000"),1
 Next
End Sub

fammi sapere se funziona sul tuo pc.

Beppignello · 1 Giugno 2017

se metti un n. estrazione vecchio di qualche settimana fa, ti uscirà il verifica esito di cosa è successo di quel sistema che viene scelto.

esempio: oggi 1691 se lo sostituisci con 1670 ti usciranno le combinazioni uscite in colore rosso.

edesimone · 1 Giugno 2017

Lo script funziona devo solo capire bene come funziona

grazie edesimone

Beppignello · 1 Giugno 2017

presa ok

Beppignello · 3 Giugno 2017

---> 0003 42.46.48.50.53.56.57.60.69.84 Rit.611 / Rmax 1060 / Freq. 27
---> 0004 2.3.5.14.32.36.37.39.75.90 Rit.675 / Rmax 715 / Freq. 28
---> 0005 7.8.9.16.21.22.24.25.70.90 Rit.777 / Rmax 777 / Freq. 34
---> 0006 12.16.18.20.48.72.73.76.79.84 Rit.941 / Rmax 941 / Freq. 23

4 decine, in gioco, per almeno 6 punti al 10 e lotto serale

edesimone · 4 Giugno 2017

Buona domenica Beppignello
Vorrei sapere come potrei sviluppare questi numeri al lotto.
Questo è stato sviluppato con il tuo script.
Grazie edesimone [TABLE="border: 0, cellpadding: 0, cellspacing: 0"]
[TR]
[TD="width: 590, colspan: 2"]Ruota Di : Bari dal 25.03.2014 al 03.06.2017[/TD]
[TD="width: 50"] [/TD]
[TD="width: 50"] [/TD]
[TD="width: 55"] [/TD]
[TD="width: 44"] [/TD]
[TD="width: 64"] [/TD]
[TD="width: 91"] [/TD]
[/TR]
[TR]
[TD="colspan: 2"]Sorte analizzata...Ambo[/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD="width: 106"] 31 Numeri [/TD]
[TD="width: 484"] Combinazione [/TD]
[TD="width: 50"]Ritardo [/TD]
[TD="width: 50"]Rit. Max [/TD]
[TD="width: 55"]incr max [/TD]
[TD="width: 44"]Freq [/TD]
[TD="width: 64"] Esito [/TD]
[TD="width: 91"] Stringa estratti [/TD]
[/TR]
[TR]
[TD="width: 106"] Sistema Beppe [/TD]
[TD="width: 484"]04.06.09.10.12.16.21.22.24.28.33.34.36.39.40.46.48.51.52.58.60.63.64.70.72.75.76.82.84.87.88 [/TD]
[TD="width: 50"]7[/TD]
[TD="width: 50"]7[/TD]
[TD="width: 55"]2[/TD]
[TD="width: 44"]560[/TD]
[TD="width: 64"]Quaterna [/TD]
[TD="width: 91"]BA 10 .. 60 34 88 [/TD]
[/TR]
[/TABLE]

Beppignello · 5 Giugno 2017

ciao un modo che si potrebbe giocare è dato dal 31-07-02-03 col.14 oppure il 31-08-02-03 col.8

oppure avendo 1/2 fisse come ambate cercare altro sviluppo tentare il 28-08-02-03

è un po il limite, oltre il quale al lotto bisogna ulteriormente ridurre i 31 numeri e non i 90 iniziale
ad una lunghetta più piccola

naturalmente per il gioco

l'ambo si recupera parzialmente la quota, in perdita è di 2,9 euro
se esce il terno vincita è di 37,94 netta sia 23 euro a salire

quindi per il giocare 31 numeri al Lotto bisogna tentare le sorti alte, un po come al superenalotto.
quando escono parecchi numeri giusti dei 31, la vincita è certa, quando pochi le speranze risultano poche.

oppure per un tentativo, idea nuova è questo
dal sistema integrale dei 90 numeri con al 100% 10 ambi ad ogni estrazione per qualsiasi combinazione verrà estratta, escono queste combinazioni, da leggersi in orizzontale [TABLE="border: 0, cellpadding: 0, cellspacing: 0, width: 219"]
[TR]
[TD]16 21 34 63 70[/TD]
[/TR]
[TR]
[TD]36 58 70 84[/TD]
[/TR]
[TR]
[TD]39 52 70 87[/TD]
[/TR]
[TR]
[TD]06 28 70 75[/TD]
[/TR]
[TR]
[TD]10 72 75 76[/TD]
[/TR]
[TR]
[TD]04 12 33 70[/TD]
[/TR]
[TR]
[TD]10 21 22 24 28[/TD]
[/TR]
[TR]
[TD]10 33 34 36 39[/TD]
[/TR]
[TR]
[TD]10 82 84 87 88[/TD]
[/TR]
[TR]
[TD]10 46 48[/TD]
[/TR]
[TR]
[TD]24 70[/TD]
[/TR]
[TR]
[TD]10 12 16[/TD]
[/TR]
[TR]
[TD]10 51 52 58[/TD]
[/TR]
[TR]
[TD]46 51 64 70 72[/TD]
[/TR]
[TR]
[TD]10 63 64[/TD]
[/TR]
[TR]
[TD]04 06 09 10[/TD]
[/TR]
[TR]
[TD]48 70 82

che a loro volta se si vuole si possono accorpare quelle piccole in alcune di quantità superiori oppure lasciarle così

spesa 17 euro
vincita minima in cinquina 25
vincita minima in quartina 41
vincita minima in terzina 75
vincita minima in ambo 250

l'ho messo, se può servire, anche per vedere dove uscirà l'ambo nei 31 numeri da te selezionati[/TD]
[/TR]
[/TABLE]

edesimone · 5 Giugno 2017

Buon giorno Beppignello
Grazie ma rilevo nello sviluppo la mancanza del numero 60,
vorrei un tuo parere dei 31 numeri prendo il 21-24-46-51-60-64-70-84 li sviluppo in 4 sestine con il mio cruciverba, garanzia 2 ambi con 2 estratti. [TABLE="border: 0, cellpadding: 0, cellspacing: 0, width: 264"]
[TR]
[TD]46[/TD]
[TD]24[/TD]
[TD]60[/TD]
[TD]51[/TD]
[TD]21[/TD]
[TD]64[/TD]
[/TR]
[TR]
[TD]51[/TD]
[TD]70[/TD]
[TD]84[/TD]
[TD]46[/TD]
[TD]24[/TD]
[TD]21[/TD]
[/TR]
[/TABLE]
[TABLE="border: 0, cellpadding: 0, cellspacing: 0, width: 264"]
[TR]
[TD]24[/TD]
[TD]70[/TD]
[TD]60[/TD]
[TD]84[/TD]
[TD]64[/TD]
[TD]21[/TD]
[/TR]
[TR]
[TD]64[/TD]
[TD]84[/TD]
[TD]51[/TD]
[TD]46[/TD]
[TD]70[/TD]
[TD]60[/TD]
[/TR]
[/TABLE]
i rimanenti 23 come possiamo ridurre?
Grazie edesimone

Vari Sistemini da condizione statistica

Beppignello

Guest

Advanced Member >PLATINUM<

Beppignello

Guest

Beppignello

Guest

Advanced Member >PLATINUM<

Beppignello

Guest

Advanced Member >PLATINUM<

Beppignello

Guest

Advanced Member >PLATINUM<

Beppignello

Guest

Advanced Member >PLATINUM<

Advanced Member >PLATINUM<

Beppignello

Guest

Beppignello

Guest

Advanced Member >PLATINUM<

Beppignello

Guest

Beppignello

Guest

Advanced Member >PLATINUM<

Beppignello

Guest

Advanced Member >PLATINUM<