Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
aiuto per script complicato
- Creatore Discussione ghio
- Data di inizio
Tabella 5 - Ritardi Dinamici numeri in posizione determinata
Esempio : la cinquina appena estratta BARI 26.90.22.14.77
Calcola ritardi per esiti a colpo a TUTTE
R.c./R.max/Successi/Negativi dei 5 estratti in posizione determinata
----------
BA...9660..pos.1 Nr.26 Succ.21 / Neg.35 Rit.0 / Max.9
BA...9660..pos.2 Nr.90 Succ.26 / Neg.44 Rit.0 / Max.11
BA...9660..pos.3 Nr.22 Succ.31 / Neg.52 Rit.0 / Max.13
BA...9660..pos.4 Nr.14 Succ.28 / Neg.40 Rit.0 / Max.9
BA...9660..pos.5 Nr.77 Succ.34 / Neg.34 Rit.3 / Max.5
ritardo dinamico ok Esempio : la cinquina appena estratta BARI 26.90.22.14.77
Calcola ritardi per esiti a colpo a TUTTE
R.c./R.max/Successi/Negativi dei 5 estratti in posizione determinata
----------
BA...9660..pos.1 Nr.26 Succ.21 / Neg.35 Rit.0 / Max.9
BA...9660..pos.2 Nr.90 Succ.26 / Neg.44 Rit.0 / Max.11
BA...9660..pos.3 Nr.22 Succ.31 / Neg.52 Rit.0 / Max.13
BA...9660..pos.4 Nr.14 Succ.28 / Neg.40 Rit.0 / Max.9
BA...9660..pos.5 Nr.77 Succ.34 / Neg.34 Rit.3 / Max.5
BA...9660..pos.1 Nr.26 Succ.21 / Neg.35 Rit.0 / Max.9
ritardo 0 perché
ritardo 0 perché
R
Rubino
Guest
in 6 secondi si ottiene tutto questo, ci starà anche lo spazio per fare qualche tabella sintetica di previsioni automatiche (teoriche)
ci sarà ancora qualcosa da controllare e da sistemare, ma la sintesi e l'evoluzione dall'originale è ormai cosa diversa.
non me ne voglia nessuno.
il concetto è la dinamicità dei numeri appena estratti nell'ultima estrazione sulle 10 ruote, calcolare le ripetizioni sia dell'Estratto
che dell'Ambo a Tutte a Colpo, con tabelle che cercano di facilitare la comprensione delle ruote che teoricamente vedranno
la prossima caduta a colpo.
per il momento, ciao
ci sarà ancora qualcosa da controllare e da sistemare, ma la sintesi e l'evoluzione dall'originale è ormai cosa diversa.
non me ne voglia nessuno.
il concetto è la dinamicità dei numeri appena estratti nell'ultima estrazione sulle 10 ruote, calcolare le ripetizioni sia dell'Estratto
che dell'Ambo a Tutte a Colpo, con tabelle che cercano di facilitare la comprensione delle ruote che teoricamente vedranno
la prossima caduta a colpo.
per il momento, ciao
Codice:
Sub Main()
Dim dati(10,5)
Dim dati2(10,5,10)
Dim dati3(10,5)
Dim an(1),ar(10)
es = InputBox("Quante estrazioni vuoi controllare ?",,100)
es = CInt(es)
'im = InputBox ("Su quale estrazione mensile devo elaborare ?",,1)
'im = CInt (im)
inizio = EstrazioneFin - es
For r = 1 To 10
'ImpostaRuota r,False
ar(r) = r
Next
For ru = 1 To 10
For p = 1 To 5
For ru2 = 1 To 10
dati2(ru,p,ru2) = 0
Next
Next
Next
ColoreTesto 2
Scrivi " P-Ghio-Orig2 ",1,,2,5
Scrivi String(90,Chr(11)): ColoreTesto 1
Scrivi "Situazione Statistica E s t r a t t i e d A m b i R i p e t u t i a C o l p o all Estrazione n." & EstrazioneFin & " / " & DataEstrazione(EstrazioneFin)
Scrivi
Scrivi "Tabella 1"
Scrivi "La tabella indica la presenza di ogni singolo estratto nell'estrazione successiva."
Scrivi "Esempio: E1 = 45 indica che il primo estratto su Bari è sortito 45 volte nelle "
Scrivi "estrazioni successive."
Scrivi "Esempio: R1 = 4 indica che il primo estratto di Bari è in ritardo da 4 estrazioni su Tutte"
ColoreTesto 2
Scrivi String(90,Chr(11)): ColoreTesto 1
For i = inizio To EstrazioneFin
'If IndiceMensile (i) = im Then
AvanzamentoElab inizio,EstrazioneFin,i
Messaggio "Stò elaborando l'estrazione del " & DataEstrazione(i)
If i = EstrazioneFin Then Exit For
For ru = 1 To 10
For p = 1 To 5
es1 = Estratto(i,ru,p)
'''calcola ritardo di ripetizione della posizione
an(1) = es1
ritardo = EstrattoRitardoTurbo(11,es1,Inizio,EstrazioneFin - 2)
dati3(ru,p) = ritardo
'''trova quanti colpi è in ritardo su tutte le ruote
For ru2 = 1 To 10
For p2 = 1 To 5
es2 = Estratto(i + 1,ru2,p2)
If es1 = es2 Then
'''calcola frequenza
dati(ru,p) = dati(ru,p) + 1
dati2(ru,p,ru2) = dati2(ru,p,ru2) + 1
End If
Next
Next
Next
Next
'End If
Next
ColoreTesto 1
Scrivi
Scrivi Space(20) & "Tabella 1 Resoconto Complessivo"
Scrivi
Scrivi " E1 E2 E3 E4 E5 "
ColoreTesto 2
ScriviMatrice dati,,4
Scrivi
ColoreTesto(1)
Scrivi " R1 R2 R3 R4 R5 "
ColoreTesto(2)
ScriviMatrice dati3,,4
Scrivi String(90,Chr(11)): ColoreTesto 1
Scrivi "Tabella 2"
Scrivi "Questa tabella indica, in maniera dettagliata, quante volte l'estratto"
Scrivi "in una determinata posizione, si ripete in ogni ruota. Esempio:"
Scrivi "(Ba Pos1 3 0 1) indica che il 1° estratto su Bari si è ripetuto 3 volte a"
Scrivi "Bari, 0 volte a Cagliari e 1 volta a Firenze."
ColoreTesto 2
Scrivi String(90,Chr(11)): ColoreTesto 1
Scrivi
Scrivi Space(20) & "Tabella 2 Resoconto Dettagliato"
Scrivi
For ru = 1 To 10
Scrivi Space(15) & "Ba" & Space(3) & "Ca" & Space(3) & "Fi" & Space(3) & "Ge" & _
Space(3) & "Mi" & Space(3) & "Na" & Space(3) & "Pa" & Space(3) & "Ro" & _
Space(3) & "To" & Space(3) & "Ve"
For p = 1 To 5
Scrivi FormatSpace(Left(NomeRuota(ru),2),5) + FormatSpace("Pos",4) + FormatSpace(p,6) + _
FormatSpace(dati2(ru,p,1),5) + _
FormatSpace(dati2(ru,p,2),5) + FormatSpace(dati2(ru,p,3),5) + _
FormatSpace(dati2(ru,p,4),5) + FormatSpace(dati2(ru,p,5),5) + _
FormatSpace(dati2(ru,p,6),5) + FormatSpace(dati2(ru,p,7),5) + _
FormatSpace(dati2(ru,p,8),5) + FormatSpace(dati2(ru,p,9),5) + _
FormatSpace(dati2(ru,p,10),5)
Next
Scrivi String(61,"-")
Next
'''''''''''''situazione ambi
Call situazioneambi(inizio,ar)
''''''''''routine per i ritardi di numeri dinamici di posizione determinata a colpo
Call ritardidinamicidiposizionedeterminata
Scrivi: Scrivi "Tempo di Elaborazione : " & TempoTrascorso,1
Scrivi "Tutti i dati sono stati rilevati dalla 3950 all'ultima estrazione in archivio",1
End Sub
Function situazioneambi(inizio,ar)
Dim dati4(10,10,3)
Dim a,b,ii,rt,pi,aretritardi,aretidestr,fr,ult,max,retestratti,retidestr,yn
Dim rigafreq,rigarita,rigarmax,x
Scrivi:Scrivi String(150,"-")
Scrivi "Storia Ambi Dinamici da Cinquine Estratte e Ripetizioni A COLPO su TUTTE : Situazione all'Estr.n." & EstrazioneFin & " / " & DataEstrazione(EstrazioneFin),1,,2,5
Scrivi
Scrivi " Tabella 3 - Situazione i 10 Ambi di Ogni ruota "
Scrivi:Scrivi "Per ogni Ruota vengono evidenziati i 10 ambi che compongono la cinquina estratta"
Scrivi "la frequenza d'uscita - il ritardo corrente - il ritardo max "
Scrivi "Nb: i valori sono calcolati sull'Esito a colpo dell'ambo a TUTTE "
ColoreTesto(1)
Scrivi:Scrivi String(17," ") & FormatSpace(" 1 2 3 4 5 6 7 8 9 10",1)
Scrivi String(17," ") & FormatSpace(" 1:2 1:3 1:4 1:5 2:3 2:4 2:5 3:4 3:5 4:5",1)
ColoreTesto(0)
Scrivi
For ii = inizio To EstrazioneFin
AvanzamentoElab inizio,EstrazioneFin,ii
If ii = EstrazioneFin Then Exit For
For rt = 1 To 10
ReDim num(5)
For pi = 1 To 5
num(pi) = Estratto(ii,rt,pi)
Next
ReDim nr(2)
yn = 0
For a = 1 To 4
For b = a + 1 To 5
nr(1) = num(a) : nr(2) = num(b)
yn = yn + 1
'''verifica esito a 1 colpo
Call VerificaEsitoTurbo(nr,ar,ii + 1,2,1,,,,retestratti,retidestr)
If retestratti <> "" Then
dati4(rt,yn,1) = dati4(rt,yn,1) + 1 ''' frequenza
If dati4(rt,yn,2) > dati4(rt,yn,3) Then
dati4(rt,yn,3) = dati4(rt,yn,2) ''''' massimo
End If
dati4(rt,yn,2) = 0 '''azzera ritardo colpo
Else
dati4(rt,yn,2) = dati4(rt,yn,2) + 1 '''' accumula ritardo di colpo
End If
'''''
Next
Next
Next
Next
''
For rt = 1 To 10
rigafreq = "":rigarita = "":rigarmax = ""
For x = 1 To 10
rigafreq = rigafreq & FormatSpace(dati4(rt,x,1),8)
rigarita = rigarita & FormatSpace(dati4(rt,x,2),8)
rigarmax = rigarmax & FormatSpace(dati4(rt,x,3),8)
Next
Scrivi " Ruota " & SiglaRuota(rt) & " Freq. " & rigafreq
Scrivi " Ruota " & SiglaRuota(rt) & " R.c. " & rigarita
Scrivi " Ruota " & SiglaRuota(rt) & " Rmax " & rigarmax
Scrivi String(100,"-")
Next
End Function
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Function ritardidinamicidiposizionedeterminata
'''' routine per i ritardi dinamici di posizione determinata
Dim der,dr,dp,dh,dhh,dne,danr,daretritardi,daretidestr,dretestratti,dretidestr,dsucc,drit,dmax,dneg,ixr,cadu
'''carica numeri ultima estrazione in archivio e ricerca storia dei numeri
der = EstrazioneFin
Scrivi String(100,"-")
Scrivi
Scrivi "Storia Estratto in posizione Determinata e Ripetizioni A COLPO : Situazione all'Estr.n." & der & " / " & DataEstrazione(der),1,,2,5
ColoreTesto 1
Scrivi
Scrivi "Tabella 4 - Numeri Dinamici in posizione determinata "
Scrivi "Esempio : la cinquina appena estratta BARI 26.90.22.14.77"
Scrivi "Calcola Storia ritardi per esiti a colpo A TUTTE "
Scrivi "R.c./R.max/Successi/Negativi dei 5 estratti In Posizione determinata"
Scrivi
Scrivi String(63," ") & " R u o t e d i C a d u t a ",1
ReDim druote(10)
For dr = 1 To 10
druote(dr) = dr
Next
''''''''' situazione attuale dei 50 numeri estratti nell'ultima estrazione in archivio
For dr = 1 To 10
ReDim dart(1),dan(1)
dart(1) = dr
ColoreTesto(0)
Scrivi String(7,"-") & " Ru Pos Nr Succ / Neg R.c. / R.Max " & FormatSpace(" ba ca fi ge mi na pa ro To ve ",8),1
ColoreTesto(1)
For dp = 1 To 5
danr = Estratto(der,dr,dp)
Messaggio(der & " / " & danr & ".." & dp)
''''
dan(1) = danr
Call ElencoRitardiTurbo(dan,dart,1,3950,der,daretritardi,daretidestr)
dne = UBound(daretritardi) - 1
''''''''
ReDim rucad(10)
dsucc = 0 : drit = 0 : dmax = 0 : dneg = 0
ReDim MatriceEstrRitorno(10,5)
For dhh = 1 To dne
Call GetEstrazioneCompleta(daretidestr(dhh),MatriceEstrRitorno)
If Int(danr) = Int(MatriceEstrRitorno(dr,dp)) Then
'''verificaesito se a colpo su tutte
If daretidestr(dhh) < der - 1 Then
Call VerificaEsitoTurbo(dan,druote,daretidestr(dhh) + 1,1,1,,,,dretestratti,dretidestr)
If dretestratti <> "" Then
dsucc = dsucc + 1
If drit > dmax Then
dmax = drit
End If
drit = 0
''''ruota di caduta
cadu = Left(dretestratti,2)
If cadu = "BA" Then rucad(1) = rucad(1) + 1
If cadu = "CA" Then rucad(2) = rucad(2) + 1
If cadu = "FI" Then rucad(3) = rucad(3) + 1
If cadu = "GE" Then rucad(4) = rucad(4) + 1
If cadu = "MI" Then rucad(5) = rucad(5) + 1
If cadu = "NA" Then rucad(6) = rucad(6) + 1
If cadu = "PA" Then rucad(7) = rucad(7) + 1
If cadu = "RO" Then rucad(8) = rucad(8) + 1
If cadu = "TO" Then rucad(9) = rucad(9) + 1
If cadu = "VE" Then rucad(10) = rucad(10) + 1
Else
drit = drit + 1
dneg = dneg + 1
End If
End If
End If
Next
Scrivi String(3," ") & der & " " & FormatSpace(SiglaRuota(dr),5) & FormatSpace(dp,5) & GetTestoHtml(FormatSpace(danr,7),,vbRed) & FormatSpace(dsucc,7) & FormatSpace(dneg,8) & GetTestoHtml(FormatSpace(drit,8),,vbRed) & FormatSpace(dmax,10) & FormatSpace(rucad(1),4) & FormatSpace(rucad(2),4) & FormatSpace(rucad(3),4) & FormatSpace(rucad(4),4) & FormatSpace(rucad(5),4) & FormatSpace(rucad(6),4) & FormatSpace(rucad(7),4) & FormatSpace(rucad(8),4) & FormatSpace(rucad(9),4) & FormatSpace(rucad(10),4)
Next
Next
End Function
R
Rubino
Guest
a mio avviso tutti gli altri script fatti finora sono decaduti.
quest'ultimo, una volta accertata la correttezza dei dati esposti, ed eventualmente inserita la function dei determinati in gioco
sarà ritenuto finito.
a tal proposito simulando una previsione a colpo:
1 Ipotesi
Ro-To-Ve estratto 29 perchè ha Rc prossimo a Rmax per la ripetizione,
dove può ripetersi?, su quale Ruota? RO-TO-VE non hanno presenze di caduta a colpo
2 Ipotesi
la terzina di CAGLIARI composta dal 1-2-4 estratto possono dare origine alla ripetizione dell'ambo a TUTTE a colpo TERZINA 25 01 06
3 Ipotesi
ripetizione a colpo di una combinazione in posizione determinata su Ruota
converge con quel 29 citato sopra dall'altra tabella
R.c. Max Posizione tra i 50 estratti
026 262 2 ° di BCFGMNPRTV 90.06.68.37.18.23.29.83.33.44. Gioca su To Pos.2
buona serata
del resto domani devo giocare qualcosa, oltre al superenalotto, schedina Bacheca
perchè non ho con me gli strumenti validi, sceglierò una di queste previsioni
tentare con poco non costo quasi niente.
quest'ultimo, una volta accertata la correttezza dei dati esposti, ed eventualmente inserita la function dei determinati in gioco
sarà ritenuto finito.
a tal proposito simulando una previsione a colpo:
1 Ipotesi
Ro-To-Ve estratto 29 perchè ha Rc prossimo a Rmax per la ripetizione,
dove può ripetersi?, su quale Ruota? RO-TO-VE non hanno presenze di caduta a colpo
2 Ipotesi
la terzina di CAGLIARI composta dal 1-2-4 estratto possono dare origine alla ripetizione dell'ambo a TUTTE a colpo TERZINA 25 01 06
3 Ipotesi
ripetizione a colpo di una combinazione in posizione determinata su Ruota
converge con quel 29 citato sopra dall'altra tabella
R.c. Max Posizione tra i 50 estratti
026 262 2 ° di BCFGMNPRTV 90.06.68.37.18.23.29.83.33.44. Gioca su To Pos.2
buona serata
del resto domani devo giocare qualcosa, oltre al superenalotto, schedina Bacheca
perchè non ho con me gli strumenti validi, sceglierò una di queste previsioni
tentare con poco non costo quasi niente.
Ultima modifica di un moderatore:
R
Rubino
Guest
vediamo se uno specchietto come questo, vale qualcosa o se è da buttare?
saranno poche quelle che vanno a segno, perchè sono determinate, così come i ripetuti sono pochi
rispetto ai nuovi estratti tra i 50 di ogni estrazione.
ma stiamo parlando di estratti DINAMICI, quindi che cambiano ad ogni estrazione e validi solo per 1 colpo.
saranno poche quelle che vanno a segno, perchè sono determinate, così come i ripetuti sono pochi
rispetto ai nuovi estratti tra i 50 di ogni estrazione.
ma stiamo parlando di estratti DINAMICI, quindi che cambiano ad ogni estrazione e validi solo per 1 colpo.
Codice:
[FONT=courier new][B][COLOR=#0000CD]Evidenze: Elenco Dinamico Combinazioni Migliori con Ritardi > RMax
nelle 250 posizioni Valide solo per 1 colpo di gioco[/COLOR][/B]
Ambata 07 Pos.da giocare BA/3 Prov. MI pos.1 freq.48 R.c.555 RMax.461
Ambata 33 Pos.da giocare CA/1 Prov. VE pos.3 freq.66 R.c.388 RMax.325
Ambata 33 Pos.da giocare CA/5 Prov. VE pos.3 freq.66 R.c.663 RMax.262
Ambata 26 Pos.da giocare FI/2 Prov. RO pos.1 freq.68 R.c.406 RMax.347
Ambata 26 Pos.da giocare FI/3 Prov. RO pos.1 freq.58 R.c.387 RMax.373
Ambata 26 Pos.da giocare FI/4 Prov. BA pos.1 freq.67 R.c.530 RMax.371
Ambata 09 Pos.da giocare FI/4 Prov. FI pos.1 freq.49 R.c.477 RMax.360
Ambata 85 Pos.da giocare GE/4 Prov. VE pos.1 freq.67 R.c.370 RMax.312
Ambata 56 Pos.da giocare GE/5 Prov. TO pos.1 freq.59 R.c.500 RMax.408
Ambata 22 Pos.da giocare GE/5 Prov. TO pos.4 freq.57 R.c.521 RMax.306
Ambata 06 Pos.da giocare MI/2 Prov. CA pos.2 freq.62 R.c.455 RMax.405
Ambata 01 Pos.da giocare MI/3 Prov. NA pos.3 freq.52 R.c.340 RMax.285
Ambata 36 Pos.da giocare NA/4 Prov. VE pos.5 freq.54 R.c.457 RMax.407
Ambata 13 Pos.da giocare PA/1 Prov. MI pos.3 freq.50 R.c.752 RMax.354
Ambata 74 Pos.da giocare RO/1 Prov. PA pos.4 freq.66 R.c.293 RMax.270
Ambata 56 Pos.da giocare RO/1 Prov. TO pos.1 freq.57 R.c.343 RMax.320
Ambata 33 Pos.da giocare RO/2 Prov. VE pos.3 freq.55 R.c.638 RMax.400
Ambata 50 Pos.da giocare RO/3 Prov. MI pos.5 freq.68 R.c.449 RMax.428
Ambata 61 Pos.da giocare RO/4 Prov. PA pos.5 freq.82 R.c.319 RMax.265
Ambata 06 Pos.da giocare TO/1 Prov. CA pos.2 freq.87 R.c.391 RMax.280
Ambata 84 Pos.da giocare TO/2 Prov. NA pos.1 freq.63 R.c.370 RMax.280
Ambata 14 Pos.da giocare TO/2 Prov. VE pos.4 freq.48 R.c.640 RMax.409
Ambata 49 Pos.da giocare TO/3 Prov. NA pos.4 freq.65 R.c.442 RMax.351
Ambata 60 Pos.da giocare TO/4 Prov. RO pos.4 freq.57 R.c.420 RMax.413
Ambata 09 Pos.da giocare TO/5 Prov. FI pos.1 freq.58 R.c.391 RMax.328
Ambata 07 Pos.da giocare TO/5 Prov. MI pos.1 freq.60 R.c.448 RMax.416
Ambata 85 Pos.da giocare TO/5 Prov. VE pos.1 freq.69 R.c.433 RMax.383
Ambata 01 Pos.da giocare VE/3 Prov. NA pos.3 freq.62 R.c.352 RMax.332[/FONT]
R
Rubino
Guest
sta finalmente piovendo e rinfrescando !
chissà se uscirà qualcosa di questi a colpo?
fra poco lo vedremo.
chissà se uscirà qualcosa di questi a colpo?
fra poco lo vedremo.
Codice:
[FONT=courier new][B][COLOR=#FF0000]Previsioni : Ambi in Ripetizione a Colpo su Tutte le Ruote[/COLOR][/B]
Riepilogo degli Ambi aventi R.c.>= Rmax a 1 colpo di gioco
da BA pos.2.4 Gioca su Tutte ambo..90.14
da CA pos.1.2 Gioca su Tutte ambo..25.6
da CA pos.1.4 Gioca su Tutte ambo..25.1
da CA pos.2.4 Gioca su Tutte ambo..6.1
da FI pos.2.3 Gioca su Tutte ambo..68.65
da FI pos.4.5 Gioca su Tutte ambo..52.38
da GE pos.1.2 Gioca su Tutte ambo..50.37
da GE pos.2.3 Gioca su Tutte ambo..37.55
da GE pos.2.4 Gioca su Tutte ambo..37.22
da GE pos.3.4 Gioca su Tutte ambo..55.22
da MI pos.1.2 Gioca su Tutte ambo..7.18
da MI pos.3.5 Gioca su Tutte ambo..13.50
da MI pos.4.5 Gioca su Tutte ambo..61.50
da NA pos.1.2 Gioca su Tutte ambo..84.23
da NA pos.1.3 Gioca su Tutte ambo..84.1
da NA pos.1.4 Gioca su Tutte ambo..84.49
da PA pos.1.4 Gioca su Tutte ambo..59.74
da PA pos.2.3 Gioca su Tutte ambo..29.2
da PA pos.2.5 Gioca su Tutte ambo..29.61
da PA pos.3.4 Gioca su Tutte ambo..2.74
da PA pos.4.5 Gioca su Tutte ambo..74.61
da RO pos.1.3 Gioca su Tutte ambo..26.37
da RO pos.1.4 Gioca su Tutte ambo..26.60
da RO pos.2.4 Gioca su Tutte ambo..83.60
da RO pos.3.4 Gioca su Tutte ambo..37.60
da TO pos.1.3 Gioca su Tutte ambo..56.17
da TO pos.2.4 Gioca su Tutte ambo..33.22
da TO pos.4.5 Gioca su Tutte ambo..22.1
da VE pos.1.4 Gioca su Tutte ambo..85.14
da VE pos.1.5 Gioca su Tutte ambo..85.36
da VE pos.2.4 Gioca su Tutte ambo..44.14
da VE pos.4.5 Gioca su Tutte ambo..14.3[/FONT]6
R
Rubino
Guest
la prova della giocata a torino dell'ipotesi 3 è andata a segno
ipotesi 1 e ipotesi 2 , fallite
anche il riepilogo degli ambi più in ritardo a colpo ha dato esito negativo.
infatti, forse è opportuno sceglierli sulla frequenza, cioè le posizioni che generano più frequentemente gli ambi a tutte
anzichè far ricadere la scelta tra i più in ritardo.
il riepilogo lo devo adattare a questa scelta, se riesco.
anche questa ipotetica tabella riepilogativa
ha dato esito negativo per le ambate in posizione .
Primo colpo, primo esperimento, scarso!
bisogna entrare ulteriormente dentro i vari prospetti e capire cosa scegliere.
buona serata.
ipotesi 1 e ipotesi 2 , fallite
anche il riepilogo degli ambi più in ritardo a colpo ha dato esito negativo.
infatti, forse è opportuno sceglierli sulla frequenza, cioè le posizioni che generano più frequentemente gli ambi a tutte
anzichè far ricadere la scelta tra i più in ritardo.
il riepilogo lo devo adattare a questa scelta, se riesco.
anche questa ipotetica tabella riepilogativa
Evidenze: Elenco Dinamico Combinazioni Migliori con Ritardi > RMax
nelle 250 posizioni Valide solo per 1 colpo di
nelle 250 posizioni Valide solo per 1 colpo di
ha dato esito negativo per le ambate in posizione .
Primo colpo, primo esperimento, scarso!
bisogna entrare ulteriormente dentro i vari prospetti e capire cosa scegliere.
buona serata.
------- Ru Pos Nr Succ / Neg R.c. / R.Max ba ca fi ge mi na pa ro To ve
9660 BA 1 26 21 35 0 9 6 3 4 2 1 2 1 2
9660 BA 2 90 26 44 0 11 4 4 2 2 1 4 1 1 5 2
9660 BA 3 22 31 52 0 13 4 5 3 2 3 5 1 3 3 2
9660 BA 4 14 28 40 0 9 5 3 1 4 5 1 3 1 4 1
9660 BA 5 77 34 34 3 5 3 3 6 2 5 6 2 2 3 2
------- Ru Pos Nr Succ / Neg R.c. / R.Max ba ca fi ge mi na pa ro To ve
9660 CA 1 25 24 36 0 5 3 3 3 4 2 5 4
9660 CA 2 6 35 50 1 8 8 4 2 3 3 2 5 3 2 3
9660 CA 3 5 30 27 1 5 5 9 2 1 1 2 3 5 2
9660 CA 4 1 31 35 2 7 4 4 5 1 3 1 2 4 3 4
9660 CA 5 16 34 43 2 6 3 7 4 3 5 7 3 1 1
------- Ru Pos Nr Succ / Neg R.c. / R.Max ba ca fi ge mi na pa ro To ve
9660 FI 1 9 28 29 0 6 3 4 2 2 2 1 4 6 3 1
9660 FI 2 68 25 29 0 5 7 1 2 3 3 3 3 1 2
9660 FI 3 65 30 36 1 5 3 2 2 5 4 2 3 2 4 3
9660 FI 4 52 27 25 1 3 5 3 1 4 6 3 1 1 1 2
9660 FI 5 38 26 30 0 13 3 4 2 2 4 4 2 2 3
------- Ru Pos Nr Succ / Neg R.c. / R.Max ba ca fi ge mi na pa ro To ve
9660 GE 1 50 39 46 1 5 3 2 8 5 5 4 3 4 3 2
9660 GE 2 37 28 32 2 6 9 1 2 3 1 4 1 2 3 2
9660 GE 3 55 25 26 0 3 4 4 3 4 1 4 3 2
9660 GE 4 22 30 31 0 5 4 3 2 8 2 4 4 2 1
9660 GE 5 76 28 22 1 6 1 4 4 5 3 3 3 2 3
------- Ru Pos Nr Succ / Neg R.c. / R.Max ba ca fi ge mi na pa ro To ve
9660 MI 1 7 23 31 5 6 3 2 2 2 2 3 2 3 1 3
9660 MI 2 18 29 43 5 5 2 6 4 2 3 3 4 2 1 2
9660 MI 3 13 34 31 0 5 5 3 3 7 1 2 3 4 4 2
9660 MI 4 61 29 35 0 9 1 5 2 3 4 2 5 2 3 2
9660 MI 5 50 25 29 2 6 1 2 1 6 5 1 3 2 4
------- Ru Pos Nr Succ / Neg R.c. / R.Max ba ca fi ge mi na pa ro To ve
9660 NA 1 84 17 36 2 11 1 1 1 5 3 3 1 2
9660 NA 2 23 34 33 1 4 6 5 2 2 5 5 2 2 3 2
9660 NA 3 1 29 25 0 5 2 2 2 3 3 3 4 5 4 1
9660 NA 4 49 27 41 4 9 6 2 1 3 5 1 3 2 2 2
9660 NA 5 87 35 37 0 4 6 3 6 4 6 1 3 3 3
------- Ru Pos Nr Succ / Neg R.c. / R.Max ba ca fi ge mi na pa ro To ve
9660 PA 1 59 16 32 1 7 1 2 4 2 1 3 2 1
9660 PA 2 29 26 32 4 5 2 2 6 2 7 3 4
9660 PA 3 2 31 42 0 8 4 5 4 1 6 3 1 2 1 4
9660 PA 4 74 21 44 0 8 3 1 1 2 4 5 2 3
9660 PA 5 61 31 39 2 5 3 3 3 1 6 5 1 1 5 3
------- Ru Pos Nr Succ / Neg R.c. / R.Max ba ca fi ge mi na pa ro To ve
9660 RO 1 26 23 38 1 7 3 3 4 1 2 4 2 2 2
9660 RO 2 83 29 24 0 3 2 6 3 4 3 4 2 2 1 2
9660 RO 3 37 22 41 1 4 2 1 5 3 1 4 3 2 1
9660 RO 4 60 21 24 0 7 3 4 2 2 2 1 1 3 1 2
9660 RO 5 13 27 31 1 9 1 8 1 2 1 3 6 2 3
------- Ru Pos Nr Succ / Neg R.c. / R.Max ba ca fi ge mi na pa ro To ve
9660 TO 1 56 30 33 0 7 2 6 4 3 4 2 5 3 1
9660 TO 2 33 36 32 2 4 7 3 4 6 5 2 2 1 3 3
9660 TO 3 17 24 34 1 10 9 3 1 1 1 3 4 1 1
9660 TO 4 22 32 29 5 5 5 5 5 3 3 2 6 1 1 1
9660 TO 5 1 24 29 1 4 3 5 2 1 2 4 3 2 1 1
------- Ru Pos Nr Succ / Neg R.c. / R.Max ba ca fi ge mi na pa ro To ve
9660 VE 1 85 37 28 1 3 7 3 1 4 2 3 8 4 3 2
9660 VE 2 44 26 37 0 6 4 2 5 1 5 1 1 3 2 2
9660 VE 3 33 25 36 0 6 5 2 3 1 6 2 1 3 2
9660 VE 4 14 27 35 0 5 2 5 1 5 1 2 2 4 3 2
9660 VE 5 36 20 34 1 5 3 3 4 1 3 1 1 1 3
GUARDANDO E STUDIANDO IN QUESTA TABELLA AVENDO GIOCATO I RITARDI MAGGIORI
AVREBBE DATO UN TERNO A NAPOLI ED ALTRO
9660 BA 1 26 21 35 0 9 6 3 4 2 1 2 1 2
9660 BA 2 90 26 44 0 11 4 4 2 2 1 4 1 1 5 2
9660 BA 3 22 31 52 0 13 4 5 3 2 3 5 1 3 3 2
9660 BA 4 14 28 40 0 9 5 3 1 4 5 1 3 1 4 1
9660 BA 5 77 34 34 3 5 3 3 6 2 5 6 2 2 3 2
------- Ru Pos Nr Succ / Neg R.c. / R.Max ba ca fi ge mi na pa ro To ve
9660 CA 1 25 24 36 0 5 3 3 3 4 2 5 4
9660 CA 2 6 35 50 1 8 8 4 2 3 3 2 5 3 2 3
9660 CA 3 5 30 27 1 5 5 9 2 1 1 2 3 5 2
9660 CA 4 1 31 35 2 7 4 4 5 1 3 1 2 4 3 4
9660 CA 5 16 34 43 2 6 3 7 4 3 5 7 3 1 1
------- Ru Pos Nr Succ / Neg R.c. / R.Max ba ca fi ge mi na pa ro To ve
9660 FI 1 9 28 29 0 6 3 4 2 2 2 1 4 6 3 1
9660 FI 2 68 25 29 0 5 7 1 2 3 3 3 3 1 2
9660 FI 3 65 30 36 1 5 3 2 2 5 4 2 3 2 4 3
9660 FI 4 52 27 25 1 3 5 3 1 4 6 3 1 1 1 2
9660 FI 5 38 26 30 0 13 3 4 2 2 4 4 2 2 3
------- Ru Pos Nr Succ / Neg R.c. / R.Max ba ca fi ge mi na pa ro To ve
9660 GE 1 50 39 46 1 5 3 2 8 5 5 4 3 4 3 2
9660 GE 2 37 28 32 2 6 9 1 2 3 1 4 1 2 3 2
9660 GE 3 55 25 26 0 3 4 4 3 4 1 4 3 2
9660 GE 4 22 30 31 0 5 4 3 2 8 2 4 4 2 1
9660 GE 5 76 28 22 1 6 1 4 4 5 3 3 3 2 3
------- Ru Pos Nr Succ / Neg R.c. / R.Max ba ca fi ge mi na pa ro To ve
9660 MI 1 7 23 31 5 6 3 2 2 2 2 3 2 3 1 3
9660 MI 2 18 29 43 5 5 2 6 4 2 3 3 4 2 1 2
9660 MI 3 13 34 31 0 5 5 3 3 7 1 2 3 4 4 2
9660 MI 4 61 29 35 0 9 1 5 2 3 4 2 5 2 3 2
9660 MI 5 50 25 29 2 6 1 2 1 6 5 1 3 2 4
------- Ru Pos Nr Succ / Neg R.c. / R.Max ba ca fi ge mi na pa ro To ve
9660 NA 1 84 17 36 2 11 1 1 1 5 3 3 1 2
9660 NA 2 23 34 33 1 4 6 5 2 2 5 5 2 2 3 2
9660 NA 3 1 29 25 0 5 2 2 2 3 3 3 4 5 4 1
9660 NA 4 49 27 41 4 9 6 2 1 3 5 1 3 2 2 2
9660 NA 5 87 35 37 0 4 6 3 6 4 6 1 3 3 3
------- Ru Pos Nr Succ / Neg R.c. / R.Max ba ca fi ge mi na pa ro To ve
9660 PA 1 59 16 32 1 7 1 2 4 2 1 3 2 1
9660 PA 2 29 26 32 4 5 2 2 6 2 7 3 4
9660 PA 3 2 31 42 0 8 4 5 4 1 6 3 1 2 1 4
9660 PA 4 74 21 44 0 8 3 1 1 2 4 5 2 3
9660 PA 5 61 31 39 2 5 3 3 3 1 6 5 1 1 5 3
------- Ru Pos Nr Succ / Neg R.c. / R.Max ba ca fi ge mi na pa ro To ve
9660 RO 1 26 23 38 1 7 3 3 4 1 2 4 2 2 2
9660 RO 2 83 29 24 0 3 2 6 3 4 3 4 2 2 1 2
9660 RO 3 37 22 41 1 4 2 1 5 3 1 4 3 2 1
9660 RO 4 60 21 24 0 7 3 4 2 2 2 1 1 3 1 2
9660 RO 5 13 27 31 1 9 1 8 1 2 1 3 6 2 3
------- Ru Pos Nr Succ / Neg R.c. / R.Max ba ca fi ge mi na pa ro To ve
9660 TO 1 56 30 33 0 7 2 6 4 3 4 2 5 3 1
9660 TO 2 33 36 32 2 4 7 3 4 6 5 2 2 1 3 3
9660 TO 3 17 24 34 1 10 9 3 1 1 1 3 4 1 1
9660 TO 4 22 32 29 5 5 5 5 5 3 3 2 6 1 1 1
9660 TO 5 1 24 29 1 4 3 5 2 1 2 4 3 2 1 1
------- Ru Pos Nr Succ / Neg R.c. / R.Max ba ca fi ge mi na pa ro To ve
9660 VE 1 85 37 28 1 3 7 3 1 4 2 3 8 4 3 2
9660 VE 2 44 26 37 0 6 4 2 5 1 5 1 1 3 2 2
9660 VE 3 33 25 36 0 6 5 2 3 1 6 2 1 3 2
9660 VE 4 14 27 35 0 5 2 5 1 5 1 2 2 4 3 2
9660 VE 5 36 20 34 1 5 3 3 4 1 3 1 1 1 3
GUARDANDO E STUDIANDO IN QUESTA TABELLA AVENDO GIOCATO I RITARDI MAGGIORI
AVREBBE DATO UN TERNO A NAPOLI ED ALTRO
R
Rubino
Guest
un ritocchino prima della pennichella pomeridiana
ho inserito la tabella sopra, che chiedevi di vedere in ordine di ritardo decrescente, per comodità.
qualche piccola sistematina alle descrizioni varie, come guida
allego script
per i prossimi colpi, segnalo
che in queste 3 posizioni determinate, almeno 1 dovrebbe uscire
al ritardo 37 ci sono attualmente 3 combinazioni.
bisogna solo cercare i numeri migliori, togliendo i ripetuti
sono 9 su cagliari
sono 8 su bari
sono 10 su cagliari
l'eventuale vincita risulterà di 5,5 volte o superiore alla posta giocata.
037 200 4 ° di BCFGMNPRTV 30.63.63.27.39.53.36.39.08.70. Gioca su Ca Pos.3
037 170 5 ° di BCFGMNPRTV 34.85.54.07.65.29.40.54.59.54. Gioca su Ba Pos.4
037 389 3 ° di BCFGMNPRTV 78.66.88.09.77.41.63.05.54.30. Gioca su Ca Pos.1
PREVISIONE RISTRETTA x 1 colpo di gioco
CAGLIARI 1° e 3° ESTRATTO DETERMINATO
ESTRATTO 36
proveniente da Palermo 4° estratto per ripetizione in rit. da 11 colpi
ciao a tutti
ho inserito la tabella sopra, che chiedevi di vedere in ordine di ritardo decrescente, per comodità.
qualche piccola sistematina alle descrizioni varie, come guida
allego script
per i prossimi colpi, segnalo
che in queste 3 posizioni determinate, almeno 1 dovrebbe uscire
al ritardo 37 ci sono attualmente 3 combinazioni.
bisogna solo cercare i numeri migliori, togliendo i ripetuti
sono 9 su cagliari
sono 8 su bari
sono 10 su cagliari
l'eventuale vincita risulterà di 5,5 volte o superiore alla posta giocata.
037 200 4 ° di BCFGMNPRTV 30.63.63.27.39.53.36.39.08.70. Gioca su Ca Pos.3
037 170 5 ° di BCFGMNPRTV 34.85.54.07.65.29.40.54.59.54. Gioca su Ba Pos.4
037 389 3 ° di BCFGMNPRTV 78.66.88.09.77.41.63.05.54.30. Gioca su Ca Pos.1
PREVISIONE RISTRETTA x 1 colpo di gioco
CAGLIARI 1° e 3° ESTRATTO DETERMINATO
ESTRATTO 36
proveniente da Palermo 4° estratto per ripetizione in rit. da 11 colpi
ciao a tutti
Codice:
Sub Main()
Dim dati(10,5)
Dim dati2(10,5,10)
Dim dati3(10,5)
Dim an(1),ar(10)
Dim listapd,es,Inizio,I,RU,P,ES1,ES2,RU2,P2,ritardo,selx,sel,R
es = CInt(InputBox("Quante estrazioni vuoi controllare ?",,100))
selx = InputBox("Vuoi Graduatorie Ritardi? S/N ",,"S")
listapd = InputBox("Vuoi Elenco Ritardi Posiz.Determinate S/N",,"S")
Inizio = EstrazioneFin - es
If selx = "S" Then sel = "GR" Else sel = " " End If
For R = 1 To 10
'ImpostaRuota r,False
ar(R) = R
Next
For RU = 1 To 10
For P = 1 To 5
For RU2 = 1 To 10
dati2(RU,P,RU2) = 0
Next
Next
Next
ColoreTesto 2
Scrivi " P-Ghio-Orig2 ",1,,2,5
Scrivi String(90,Chr(11)): ColoreTesto 1
Scrivi "Situazione Statistica E s t r a t t i e d A m b i R i p e t u t i a C o l p o all Estrazione n." & EstrazioneFin & " / " & DataEstrazione(EstrazioneFin)
Scrivi
Scrivi "Tabella 1"
Scrivi "La tabella indica la presenza di ogni singolo estratto nell'estrazione successiva."
Scrivi "Esempio: E1 = 45 indica che il primo estratto su Bari è sortito 45 volte nelle "
Scrivi "estrazioni successive."
Scrivi "Esempio: R1 = 4 indica che il primo estratto di Bari è in ritardo da 4 estrazioni su Tutte"
ColoreTesto 2
Scrivi String(90,Chr(11)): ColoreTesto 1
For I = Inizio To EstrazioneFin
AvanzamentoElab Inizio,EstrazioneFin,I
Messaggio "Stò elaborando l'estrazione del " & DataEstrazione(I)
If I = EstrazioneFin Then Exit For
For RU = 1 To 10
For P = 1 To 5
ES1 = Estratto(I,RU,P)
'''calcola ritardo di ripetizione della posizione
an(1) = ES1
ritardo = EstrattoRitardoTurbo(11,ES1,Inizio,EstrazioneFin - 2)
dati3(RU,P) = ritardo
'''trova quanti colpi è in ritardo su tutte le ruote
For RU2 = 1 To 10
For P2 = 1 To 5
ES2 = Estratto(I + 1,RU2,P2)
If ES1 = ES2 Then
'''calcola frequenza
dati(RU,P) = dati(RU,P) + 1
dati2(RU,P,RU2) = dati2(RU,P,RU2) + 1
End If
Next
Next
Next
Next
Next
ColoreTesto 1
Scrivi:Scrivi Space(20) & "Tabella 1 Resoconto Complessivo"
Scrivi:Scrivi " E1 E2 E3 E4 E5 "
ColoreTesto 2
ScriviMatrice dati,,4
Scrivi: ColoreTesto(1)
Scrivi " R1 R2 R3 R4 R5 "
ColoreTesto(2)
ScriviMatrice dati3,,4
Scrivi String(90,Chr(11)): ColoreTesto 1
Scrivi "Tabella 2"
Scrivi "Questa tabella indica, in maniera dettagliata, quante volte l'estratto"
Scrivi "in una determinata posizione, si ripete in ogni ruota. Esempio:"
Scrivi "(Ba Pos1 3 0 1) indica che il 1° estratto su Bari si è ripetuto 3 volte a"
Scrivi "Bari, 0 volte a Cagliari e 1 volta a Firenze."
ColoreTesto 2
Scrivi String(90,Chr(11)): ColoreTesto 1
Scrivi: Scrivi Space(20) & "Tabella 2 Resoconto Dettagliato"
Scrivi
For RU = 1 To 10
Scrivi Space(15) & "Ba" & Space(3) & "Ca" & Space(3) & "Fi" & Space(3) & "Ge" & _
Space(3) & "Mi" & Space(3) & "Na" & Space(3) & "Pa" & Space(3) & "Ro" & _
Space(3) & "To" & Space(3) & "Ve"
For P = 1 To 5
Scrivi FormatSpace(Left(NomeRuota(RU),2),5) + FormatSpace("Pos",4) + FormatSpace(P,6) + _
FormatSpace(dati2(RU,P,1),5) + _
FormatSpace(dati2(RU,P,2),5) + FormatSpace(dati2(RU,P,3),5) + _
FormatSpace(dati2(RU,P,4),5) + FormatSpace(dati2(RU,P,5),5) + _
FormatSpace(dati2(RU,P,6),5) + FormatSpace(dati2(RU,P,7),5) + _
FormatSpace(dati2(RU,P,8),5) + FormatSpace(dati2(RU,P,9),5) + _
FormatSpace(dati2(RU,P,10),5)
Next
Scrivi String(61,"-")
Next
''''''''''''''''''''''''''''''''''''''''richiamo routine '''''''''''''''''''''''''''''''''''''
'''''''''''''situazione ambi
Call situazioneambi(Inizio,ar,sel)
''''''''''routine per i ritardi di numeri dinamici di posizione determinata a colpo
Call ritardidinamicidiposizionedeterminata(sel)
'''''''''''''storia ritardi posizioni determinate
Call CalcoloPosizioniDeterminate(listapd)
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''
Scrivi: Scrivi "Tempo di Elaborazione : " & TempoTrascorso,1
Scrivi "Tutti i dati sono stati rilevati dalla 3950 all'ultima estrazione in archivio",1
End Sub
Function situazioneambi(inizio,ar,sel)
Dim dati4(10,10,3)
Dim a,b,ii,rt,pi,aretritardi,aretidestr,fr,ult,max,retestratti,retidestr,yn
Dim rigafreq,rigarita,rigarmax,x,evid,ambotutte,ww,qqq,ccc
Scrivi:Scrivi String(150,"-")
Scrivi "Storia Ambi Dinamici da Cinquine Estratte e Ripetizioni A COLPO su TUTTE : Situazione all'Estr.n." & EstrazioneFin & " / " & DataEstrazione(EstrazioneFin),1,,2,5
Scrivi
Scrivi " Tabella 3 - Situazione i 10 Ambi di Ogni ruota "
Scrivi:Scrivi "Per ogni Ruota vengono evidenziati i 10 ambi che compongono la cinquina estratta"
Scrivi "la frequenza d'uscita - il ritardo corrente - il ritardo max "
Scrivi "Nb: i valori sono calcolati sull'Esito a colpo dell'ambo a TUTTE "
Scrivi "Vengono segnalate le posizioni dell'ambo con il valore R.c. ha superato Rmax nei 100 concorsi ",1
Scrivi "Annotazioni: i 100 ambi estratti ad ogni estrazione, generalmente nei tre colpi successivi se ne ",1
Scrivi "sfaldano diversi In ripetizione. Ma il ritardo alla ripetizione può essere 3 concorsi. ",1
Scrivi "Cioè per 3 concorsi possono anche non ripetersi ambi dei 100 di una estrazione",1
ColoreTesto(1)
ReDim Tabsvi(10,2),rie(100),grad1(100,2)
Tabsvi(1,1) = 1:Tabsvi(1,2) = 2
Tabsvi(2,1) = 1:Tabsvi(2,2) = 3
Tabsvi(3,1) = 1:Tabsvi(3,2) = 4
Tabsvi(4,1) = 1:Tabsvi(4,2) = 5
Tabsvi(5,1) = 2:Tabsvi(5,2) = 3
Tabsvi(6,1) = 2:Tabsvi(6,2) = 4
Tabsvi(7,1) = 2:Tabsvi(7,2) = 5
Tabsvi(8,1) = 3:Tabsvi(8,2) = 4
Tabsvi(9,1) = 3:Tabsvi(9,2) = 5
Tabsvi(10,1) = 4:Tabsvi(10,2) = 5
Scrivi:Scrivi String(10," ") & FormatSpace("Posiz 1 2 3 4 5 6 7 8 9 10",1)
Scrivi String(17," ") & FormatSpace(" 1:2 1:3 1:4 1:5 2:3 2:4 2:5 3:4 3:5 4:5",1)
ColoreTesto(0)
Scrivi
For ii = inizio To EstrazioneFin
AvanzamentoElab inizio,EstrazioneFin,ii
If ii = EstrazioneFin Then Exit For
For rt = 1 To 10
ReDim num(5)
For pi = 1 To 5
num(pi) = Estratto(ii,rt,pi)
Next
ReDim nr(2)
yn = 0
For a = 1 To 4
For b = a + 1 To 5
nr(1) = num(a) : nr(2) = num(b)
yn = yn + 1
'''verifica esito a 1 colpo
Call VerificaEsitoTurbo(nr,ar,ii + 1,2,1,,,,retestratti,retidestr)
If retestratti <> "" Then
dati4(rt,yn,1) = dati4(rt,yn,1) + 1 ''' frequenza
If dati4(rt,yn,2) > dati4(rt,yn,3) Then
dati4(rt,yn,3) = dati4(rt,yn,2) ''''' massimo
End If
dati4(rt,yn,2) = 0 '''azzera ritardo colpo
Else
dati4(rt,yn,2) = dati4(rt,yn,2) + 1 '''' accumula ritardo di colpo
End If
'''''
Next
Next
Next
Next
'''' prospetto classico a video
For rt = 1 To 10
rigafreq = "":rigarita = "":rigarmax = "":evid = ""
For x = 1 To 10
''''METTE in rie solo ambi con ritardo > rmax
If dati4(rt,x,2) <> 100 And dati4(rt,x,2) >= dati4(rt,x,3) Then
evid = evid & x & "."
ambotutte = Estratto(EstrazioneFin,rt,Tabsvi(x,1)) & "." & Estratto(EstrazioneFin,rt,Tabsvi(x,2))
ww = ww + 1
rie(ww) = "da " & GetTestoHtml(SiglaRuota(rt),,vbRed) & " pos." & Tabsvi(x,1) & "." & Tabsvi(x,2) & " Gioca su Tutte ambo.." & GetTestoHtml(ambotutte,,vbRed)
End If
rigafreq = rigafreq & FormatSpace(dati4(rt,x,1),8)
rigarita = rigarita & FormatSpace(dati4(rt,x,2),8)
rigarmax = rigarmax & FormatSpace(dati4(rt,x,3),8)
Next
Scrivi " Ruota " & SiglaRuota(rt) & " Freq. " & rigafreq
Scrivi " Ruota " & SiglaRuota(rt) & " R.c. " & rigarita
Scrivi " Ruota " & SiglaRuota(rt) & " Rmax " & rigarmax
Scrivi String(100,"-") & " NB: Ambo n." & GetTestoHtml(evid,,vbRed)
Next
Scrivi:Scrivi "Previsioni : Ambi in Ripetizione a Colpo su Tutte le Ruote ",1,,2,5
ColoreTesto(0): Scrivi:Scrivi "Riepilogo degli Ambi aventi R.c.>= Rmax a 1 colpo di gioco ",1
Scrivi "Selezionare con i criteri di Sincronismo Orizzontale e/o verticale ",1
Scrivi : ColoreTesto(1)
For qqq = 1 To ww
Scrivi rie(qqq),1
Next
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''prospetto in graduatoria di ritardo
If sel = "GR" Then
Scrivi: ColoreTesto(0)
Scrivi "Riepilogo Ambi in Graduatoria discendente del Ritardo di Ripetizione a TUTTE ",1
Scrivi "Selezionare con i criteri di Sincronismo Orizzontale e/o verticale ",1
ColoreTesto(1)
ww = 0
For rt = 1 To 10
For x = 1 To 10
ambotutte = Estratto(EstrazioneFin,rt,Tabsvi(x,1)) & "." & Estratto(EstrazioneFin,rt,Tabsvi(x,2))
ww = ww + 1
grad1(ww,1) = FormattaStringa(dati4(rt,x,2),"000")
grad1(ww,2) = "da " & GetTestoHtml(SiglaRuota(rt),,vbRed) & " pos." & Tabsvi(x,1) & "." & Tabsvi(x,2) & " Gioca su Tutte ambo.." & GetTestoHtml(ambotutte,,vbRed)
Next
Next
Call OrdinaMatriceTurbo(grad1,- 1,1)
For ccc = 1 To ww
Scrivi "R.c. " & grad1(ccc,1) & " " & grad1(ccc,2),1
Next
End If
End Function
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Function ritardidinamicidiposizionedeterminata(SEL)
'''' routine per i ritardi dinamici di posizione determinata
Dim der,dr,dp,dh,dhh,dne,danr,daretritardi,daretidestr,dretestratti,dretidestr,dsucc,drit,dmax,dneg,ixr,cadu,ww,az,BARI
'''carica numeri ultima estrazione in archivio e ricerca storia dei numeri
der = EstrazioneFin
ww = 0
Scrivi String(100,"-")
Scrivi
Scrivi "Storia Estratto in posizione Determinata e Ripetizioni A COLPO : Situazione all'Estr.n." & der & " / " & DataEstrazione(der),1,,2,5
ColoreTesto 1 : Scrivi
Scrivi "Tabella 4 - Numeri Dinamici in posizione determinata "
BARI = ""
For j = 1 To 5
BARI = BARI & Estratto(der,1,J) & "."
Next
Scrivi "Esempio : la cinquina appena estratta BARI " & BARI
Scrivi "Calcola Storia ritardi per esiti a colpo A TUTTE "
Scrivi "R.c./R.max/Successi/Negativi dei 5 estratti In Posizione determinata"
Scrivi "E relativa Distribuzione delle Ripetizioni sulle 10 Ruote"
Scrivi String(63," ") & " R u o t e d i C a d u t a ",1
ReDim druote(10),grad2(50,2)
For dr = 1 To 10
druote(dr) = dr
Next
''''''''' situazione attuale dei 50 numeri estratti nell'ultima estrazione in archivio
For dr = 1 To 10
ReDim dart(1),dan(1)
dart(1) = dr
ColoreTesto(0)
Scrivi String(7,"-") & " Ru Pos Nr Succ / Neg R.c. / R.Max " & FormatSpace(" ba ca fi ge mi na pa ro To ve ",8),1
ColoreTesto(1)
For dp = 1 To 5
danr = Estratto(der,dr,dp)
Messaggio(der & " / " & danr & ".." & dp)
''''
dan(1) = danr
Call ElencoRitardiTurbo(dan,dart,1,3950,der,daretritardi,daretidestr)
dne = UBound(daretritardi) - 1
''''''''
ReDim rucad(10)
dsucc = 0 : drit = 0 : dmax = 0 : dneg = 0
ReDim MatriceEstrRitorno(10,5)
For dhh = 1 To dne
Call GetEstrazioneCompleta(daretidestr(dhh),MatriceEstrRitorno)
If Int(danr) = Int(MatriceEstrRitorno(dr,dp)) Then
'''verificaesito se a colpo su tutte
If daretidestr(dhh) < der - 1 Then
Call VerificaEsitoTurbo(dan,druote,daretidestr(dhh) + 1,1,1,,,,dretestratti,dretidestr)
If dretestratti <> "" Then
dsucc = dsucc + 1
If drit > dmax Then
dmax = drit
End If
drit = 0
''''ruota di caduta
cadu = Left(dretestratti,2)
If cadu = "BA" Then rucad(1) = rucad(1) + 1
If cadu = "CA" Then rucad(2) = rucad(2) + 1
If cadu = "FI" Then rucad(3) = rucad(3) + 1
If cadu = "GE" Then rucad(4) = rucad(4) + 1
If cadu = "MI" Then rucad(5) = rucad(5) + 1
If cadu = "NA" Then rucad(6) = rucad(6) + 1
If cadu = "PA" Then rucad(7) = rucad(7) + 1
If cadu = "RO" Then rucad(8) = rucad(8) + 1
If cadu = "TO" Then rucad(9) = rucad(9) + 1
If cadu = "VE" Then rucad(10) = rucad(10) + 1
Else
drit = drit + 1
dneg = dneg + 1
End If
End If
End If
Next
Scrivi String(3," ") & der & " " & FormatSpace(SiglaRuota(dr),5) & FormatSpace(dp,5) & GetTestoHtml(FormatSpace(danr,7),,vbRed) & FormatSpace(dsucc,7) & FormatSpace(dneg,8) & GetTestoHtml(FormatSpace(drit,8),,vbRed) & FormatSpace(dmax,10) & FormatSpace(rucad(1),4) & FormatSpace(rucad(2),4) & FormatSpace(rucad(3),4) & FormatSpace(rucad(4),4) & FormatSpace(rucad(5),4) & FormatSpace(rucad(6),4) & FormatSpace(rucad(7),4) & FormatSpace(rucad(8),4) & FormatSpace(rucad(9),4) & FormatSpace(rucad(10),4)
ww = ww + 1
grad2(ww,1) = Format2(drit)
grad2(ww,2) = String(3," ") & der & " " & FormatSpace(SiglaRuota(dr),5) & FormatSpace(dp,5) & GetTestoHtml(FormatSpace(danr,7),,vbRed) & FormatSpace(dsucc,7) & FormatSpace(dneg,8) & GetTestoHtml(FormatSpace(drit,8),,vbRed) & FormatSpace(dmax,10) & FormatSpace(rucad(1),4) & FormatSpace(rucad(2),4) & FormatSpace(rucad(3),4) & FormatSpace(rucad(4),4) & FormatSpace(rucad(5),4) & FormatSpace(rucad(6),4) & FormatSpace(rucad(7),4) & FormatSpace(rucad(8),4) & FormatSpace(rucad(9),4) & FormatSpace(rucad(10),4)
Next
Next
ColoreTesto(0)
Scrivi:Scrivi:Scrivi " Riepilogo Prospetto in Graduatoria di R.c. ",1
Scrivi "I nr.molto probabili per la ripetizione a colpo sono quelli da R.c.più alto fino a R.c. = 1",1
Scrivi "Numerosi sono questi che escono a colpo, generando ambi e terni su alcune ruote",1
Call OrdinaMatrice(grad2,- 1,1)
Scrivi String(7,"-") & " Ru Pos Nr Succ / Neg R.c. / R.Max " & FormatSpace(" ba ca fi ge mi na pa ro To ve ",8),1
ColoreTesto(1)
For az = 1 To 50
Scrivi grad2(az,2)
Next
End Function
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Function CalcoloPosizioniDeterminate(listapd)
''''calcola ritardi 10ruotex50posizioni
Dim pdIni,pdfin,pdr,pdnr,pdc,pdru,pdp,pdpos,pdretrit,pdretfre,pdritardo,pdrr,pdpp,kk
pdfin = EstrazioneFin
ReDim MatriceEstrRitorno(10,5),ar(1),pdesito(10,5,10,5,3),Previsione(250,4),gruppi(99)
For pdr = 1 To 10
For pdpos = 1 To 5
pdc = pdc + 1
For pdIni = 3950 To EstrazioneFin
Messaggio("Calcola Posizioni Determinate fatte " & pdc & " su 50")
ReDim cinquanta(50)
pdnr = Estratto(pdIni,pdr,pdpos)
Call GetEstrazioneCompleta(pdIni - 1,MatriceEstrRitorno)
For pdru = 1 To 10
For pdp = 1 To 5
If pdnr = MatriceEstrRitorno(pdru,pdp) Then
pdesito(pdr,pdpos,pdru,pdp,1) = pdesito(pdr,pdpos,pdru,pdp,1) + 1 '''''frequenza
''
If pdesito(pdr,pdpos,pdru,pdp,2) > pdesito(pdr,pdpos,pdru,pdp,3) Then '''massimo ritardo
pdesito(pdr,pdpos,pdru,pdp,3) = pdesito(pdr,pdpos,pdru,pdp,2)
End If
pdesito(pdr,pdpos,pdru,pdp,2) = 0 '''azzera ritardo
Else
pdesito(pdr,pdpos,pdru,pdp,2) = pdesito(pdr,pdpos,pdru,pdp,2) + 1 '''' calcola ritardo
End If
Next
Next
If pdIni + 1 > EstrazioneFin Then Exit For
Next
Next
Next
'''''''''''' riepilogo ritardi di tutte le ruote e delle posizioni
If listapd = "S" Then
ColoreTesto(0)
Scrivi String(161,"-")
Scrivi "PREVISIONI: Estratti secchi Dinamici x gioco di Estratto determinato Valide solo per 1 Colpo di gioco : Estr.n." & EstrazioneFin,1,,2,5
Scrivi:Scrivi"Evidenze: Elenco Dinamico Combinazioni Migliori con Ritardi > RMax nelle 250 posizioni Valide solo per 1 colpo di gioco ",1
Scrivi
For pdr = 1 To 10
For pdpos = 1 To 5
For pdrr = 1 To 10
For pdpp = 1 To 5
If pdesito(pdr,pdpos,pdrr,pdpp,2) > pdesito(pdr,pdpos,pdrr,pdpp,3) Then
ColoreTesto(0)
Scrivi "Ambata " & GetTestoHtml(Format2(Estratto(EstrazioneFin,pdrr,pdpp)),,vbRed) & " Pos.da giocare " & GetTestoHtml(SiglaRuota(pdr) & "/" & pdpos,,vbBlue) & " Prov. " & SiglaRuota(pdrr) & " pos." & pdpp & " freq." & FormatSpace(pdesito(pdr,pdpos,pdrr,pdpp,1),4) & " R.c." & FormatSpace(GetTestoHtml(pdesito(pdr,pdpos,pdrr,pdpp,2),,vbRed),4) & " RMax." & pdesito(pdr,pdpos,pdrr,pdpp,3)
Else
ColoreTesto(0)
End If
Next
Next
Next
Next
End If
''''''''''ragruppa i 50 estratti ultimi e verifica la posizione Ruota/posizione di gioco
For pdru = 1 To 10
For pdp = 1 To 5
'''''
'''''provenienza ruota e posizione
For PDpi = 1 To 5
PDRmin = 999 : PDRmax = 0
For PDue = 1 To 10
If pdesito(pdru,pdp,PDue,PDpi,2) < PDRmin Then
PDRmin = pdesito(pdru,pdp,PDue,PDpi,2)
End If
If pdesito(pdru,pdp,PDue,PDpi,2) > PDRmax Then
PDRmax = pdesito(pdru,pdp,PDue,PDpi,2)
End If
Next
'''''
PDss = PDss + 1
''raggruppa numeri da mettere in gioco
PDelnum = ""
For PDm = 1 To 10
PDelnum = PDelnum & Format2(Estratto(EstrazioneFin,PDm,PDpi)) & "."
Next
Previsione(PDss,1) = PDRmin
Previsione(PDss,2) = PDRmax
Previsione(PDss,3) = FormatSpace(PDpi,3) & "° di BCFGMNPRTV " & PDelnum & " Gioca su "
Previsione(PDss,4) = FormatSpace(Left(NomeRuota(pdru),2),4) + FormatSpace("Pos.",2) + FormatSpace(pdp,2)
Next
Next
Next
ColoreTesto(0)
Scrivi String(161,"-")
Scrivi
Scrivi "PREVISIONI: Lunghetta Dinamica x Estratto determinato Valide solo per 1 Colpo di gioco : Estr.n." & EstrazioneFin,1,,2,5
Scrivi "Selezionare tra il ritardo sincrono Orizzontale / verticale ",1
Scrivi
Scrivi "Rmin Rmax Pos.Ruote N u m e r i ",1
Call OrdinaMatrice(Previsione,- 1,1)
For aaa = 1 To 250
gruppi(Previsione(aaa,1)) = gruppi(Previsione(aaa,1)) + 1
Scrivi FormattaStringa(Previsione(aaa,1),"000") & " " & FormattaStringa(Previsione(aaa,2),"000") & " " & Previsione(aaa,3) & " " & GetTestoHtml(Previsione(aaa,4),,vbBlue)
Next
''
Scrivi:Scrivi "Presenze combinazione nei gruppi",1
For kk = 1 To 50
If gruppi(kk) > 0 Then
Scrivi Format2(kk) & "..comb.n." & gruppi(kk),1
End If
Next
ColoreTesto(0)
Scrivi String(161,"-")
End Function
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Ultima modifica di un moderatore:
vincenzo4221
Advanced Member >PLATINUM<
grazie Rubino, bravissimo
Ultima estrazione Lotto
-
Estrazione del lotto
martedì 14 gennaio 2025Bari4125127355Cagliari5420483267Firenze7523681038Genova3327817064Milano6801648687Napoli4775451021Palermo5586335370Roma8878610607Torino7608236182Venezia2515492181Nazionale7010327807Estrazione Simbolotto
Bari
0714284531
