SCRIPT SUI MIGLIORI SOMMATIVI PER UN NUMERO RIPETUTO

[herat]

Buongiorno, gentilmente chiedo se è possibile creare uno script che restituisca i migliori SOMMATIVI nelle ultime 500 estrazioni quando un numero si ripete nella stessa estrazione in 3 ruote in forma isotopa.
Per esempio
6/8/22
CA 69 - RO 69 - TO 69 tutti in prima posizione.
Lo script dovrebbe calcolare i migliori fissi (singoli o meglio ancora in coppia) sommativi sulla condizione "numero ripetuto isotopo su 3 ruote nella stessa estrazione"
Grazie anticipatamente

 

[*blacklotto*]

Ciao,

ti inserisco questo listato di una decina d'anni fa preso in web, intanto che aspetti,

trova 3 numeri isotopi, stessa estrazione, rimette in gioco la stessa ambata nelle tre ruote

Sub Main
Dim Nu(3),Ru(3),posta(1)
Ini = EstrazioneFin - 150
fin = EstrazioneFin
For es = Ini To fin
For r1 = 1 To 9
For r2 = r1 + 1 To 10
For r3 = r2 + 1 To 12
If r3 = 11 Then r3 = 12
For p = 1 To 5
a = Estratto(es,r1,p)
b = Estratto(es,r2,p)
c = Estratto(es,r3,p)
If a = b And a = c Then
k = k + 1
Nu(1) = a
Ru(1) = r1
Ru(2) = r2
Ru(3) = r3
posta(1) = 1
Call VerificaEsito(Nu,Ru,es + 1,1,10,,esito,clp,Estratti,id)
Scrivi FormatSpace(k,2) & vbTab & GetInfoEstrazione(es) & vbTab,0,0
Scrivi StringaNumeri(Nu,,1) & " - Pos : " & p,0,0
Scrivi vbTab & StringaRuote(Ru) & vbTab,0,0
Scrivi clp & "° Colpo" & Space(3) & Estratti
ImpostaGiocata 1,Nu,Ru,posta,10,1
Gioca es,,,,,False
End If
Next
Next
Next
Next
'Scrivi
Next
Scrivi
Scrivi "Casi trovati con Frequenza = 3 in Isotopia... " & k,1,0
Scrivi "E strazioni Analizzate : " & fin - Ini,1
'ScriviResoconto
End Sub

RESOCONTO :

1 [09984] [117] 30.09.2021 40 - Pos : 1 GE.PA.NZ 3° Colpo GE .. 40 .. .. ..
2 [09995] [128] 26.10.2021 72 - Pos : 2 MI.PA.TO 3° Colpo MI .. 72 .. .. ..
3 [10017] [150] 16.12.2021 32 - Pos : 2 CA.NA.TO 1° Colpo NA .. 32 .. .. ..
4 [10037] [ 14] 01.02.2022 56 - Pos : 4 CA.FI.VE 3° Colpo CA .. .. .. .. 56
5 [10038] [ 15] 03.02.2022 53 - Pos : 4 MI.PA.NZ 10° Colpo
6 [10045] [ 22] 19.02.2022 82 - Pos : 1 PA.RO.TO 4° Colpo RO .. .. .. .. 82
7 [10060] [ 37] 26.03.2022 61 - Pos : 1 FI.MI.NA 5° Colpo MI .. .. 61 .. ..
8 [10061] [ 38] 29.03.2022 17 - Pos : 1 CA.NA.TO 5° Colpo CA .. .. .. 17 ..
9 [10067] [ 44] 12.04.2022 25 - Pos : 4 CA.NA.RO 7° Colpo RO .. .. .. .. 25
10 [10075] [ 52] 30.04.2022 86 - Pos : 5 GE.VE.NZ 2° Colpo VE .. 86 .. .. ..
11 [10078] [ 55] 07.05.2022 52 - Pos : 5 FI.PA.RO 9° Colpo RO .. .. 52 .. ..
12 [10079] [ 56] 10.05.2022 37 - Pos : 4 CA.PA.NZ 7° Colpo PA .. 37 .. .. ..
13 [10088] [ 65] 31.05.2022 61 - Pos : 5 MI.NA.VE 7° Colpo VE 61 .. .. .. ..
14 [10092] [ 69] 09.06.2022 62 - Pos : 5 GE.TO.VE 2° Colpo VE .. .. .. 62 ..
15 [10104] [ 81] 07.07.2022 22 - Pos : 5 GE.NA.TO 1° Colpo TO .. .. .. 22 ..
16 [10117] [ 94] 06.08.2022 69 - Pos : 1 CA.RO.TO 1° Colpo
17 [10117] [ 94] 06.08.2022 36 - Pos : 2 NA.RO.VE 1° Colpo

Casi trovati con Frequenza = 3 in Isotopia... 17 Estrazioni Analizzate : 150


buona fortuna !

 

[herat]

Grazie mille carissimo Blacklotto.
Bellissimo script.
Vediamo se qualche esperto ci aiuta a fare lo script che ho richiesto

 

[Cinzia27]

Ciao, Herat.
Prova questo.

' Per Herat: metodo il miglior sommativo dopo la sortita di un numero 3 volte isotopo (Cinzia27)
Sub Main()
Dim ru(3),n(1)
w=1'colpi
For x=1 To 90 'Sommativo da 1 a 90
Scrivi
cc=0

For es=EstrazioneFin -500 To EstrazioneFin -(x+1)

For r=1 To 9
For r1=r+1 To 10
For r2=r1+1 To 11
If ScriptInterrotto Then Exit For
If r2=11 Then r2=12
ru(1)=r:ru(2)=r1:ru(3)=r2

For p=1 To 5
If ScriptInterrotto Then Exit For
a=Estratto(es,r,p)
b=Estratto(es,r1,p)
c=Estratto(es,r2,p)
If a=b And a=c And a>0 Then
 
n(1)=Fuori90(a+x)
fr= SerieFreq(es+1,es+w,n,ru,1)
If fr>0 Then  cc=cc+1:ColoreTesto 0:Scrivi "Sommativo"& FormatSpace(x,5,1)&" "&FormatSpace(es,5,1)&" "& _
SiglaRuota(r)&" "&SiglaRuota(r1)&" "&SiglaRuota(r2)&" n. "&Format2(a)&" n. "&Format2(n(1))&" "&FormatSpace(co,4,1)


End If

Next
Next
Next
Next
Next
If cc>=10 Then 'Minimo 10 volte in rosso
ColoreTesto 2
Messaggio "Volte in cui il sommativo"& FormatSpace(x,4,1)&" si è presentato entro colpi "&w&" = "&cc
Scrivi "Volte in cui il sommativo"& FormatSpace(x,4,1)&" si è presentato entro colpi "&w&" = "&cc
Else
ColoreTesto 0
Messaggio "Volte in cui il sommativo"& FormatSpace(x,4,1)&" si è presentato entro colpi "&w&" = "&cc
Scrivi "Volte in cui il sommativo"& FormatSpace(x,4,1)&" si è presentato entro colpi "&w&" = "&cc
ColoreTesto 0
End If

Next


End Sub

 

[herat]

Grazie sempre cara Cinzia

 

[herat]

Cara Cinzia, innanzitutto vedimi come una principiante che cerca di imparare
Sto provando lo script e aumentando i colpi fino a 10 noto che impiega molto tempo.
È normale?
Grazie

 

[herat]

Inoltre Cinzia, non voglio disturbarti molto, è possibile avere anche coppie di ambate sommative dopo la sortita di tale condizione?

 

[Cinzia27]

Sostituisci
fr= SerieFreq(es+1,es+w,n,ru,1)
con
fr= SerieFreqTurbo(es+1,es+w,n,ru,1)
Sarà meno lento.

Inoltre Cinzia, non voglio disturbarti molto, è possibile avere anche coppie di ambate sommative dopo la sortita di tale condizione?

Per la sorte di ambo o di ambata?

 

[Cinzia27]

Herat, considera che dovremmo mettere una coppia di sommativi, il che comporterà tempi di esecuzione molto lunghi.
Se la sorte è per ambata, secondo me converrebbe far girare lo script così com'è e scegliere i 2 migliori sommativi .

 

[herat]

Herat, considera che dovremmo mettere una coppia di sommativi, il che comporterà tempi di esecuzione molto lunghi.
Se la sorte è per ambata, secondo me converrebbe far girare lo script così com'è e scegliere i 2 migliori sommativi .

Coppia per ambata
Ok cara ascolto il tuo consiglio