aiuto per script

[Mike58]

Ciao Joe, situazioni favorevoli c'è ne sono tante, poi sta a noi la scelta delle migliori situazioni.
Peccato non averlo visto e aver perso il tuo post predittivo.

Visto che sono a scrivere posto anche uno script migliorativo che fotografa la situazione analitica isocrona scelta e ne verifica gli esiti futuri caduti.

Sub Main
	Dim nu(5),cad(5),ru(1)
	'r = InputBox("Quale RUOTA",,2)
	f = CInt(InputBox("Estrazione di rilevamento a ritroso",,2))
	e = InputBox("Quante ESTRAZIONI",,150)
	ss = CInt(InputBox("Quale sorte",,3))
	Ini = EstrazioneFin - e
	fin = EstrazioneFin - f
	fine = EstrazioneFin
	Scrivi "-----------------------Analitico isocrono ---- by Mike58 -------------------",1
	Scrivi "sorte...." & NomeSorte(ss) & "  .... Rilevamento estrazione ..." & GetInfoEstrazione(fin),1,1,,1,2
	Scrivi "----------------------------------------------------------------------------",1
	For es = fin To Ini Step - 1' To idEstr
		For r = 1 To 10
			ru(1) = r
			For p = 1 To 5
				nu(p) = Estratto(es,r,p)
				cad(p) = Estratto(es,r,p)
				If EstrattoFrequenza(r,nu(p),es,fin) > 1 Then nu(p) = "--"
				
				k = k + 1
				'If EstrattoFrequenza(r,cad(p),es,fin) = 1 Then cad(p) = "--"
				If nu(p) = "--" Then kk = kk + 1
				Call VerificaEsito(nu,ru,fin + 1,1,100,,esito,clp,estratti,id)
			Next
			k1 = k - kk
			If k1 = ss Then
			k2 = k2 + 1
			kc = kc + 1
			Scrivi "Ritardo..." & FormatSpace(fin - es,3) & "  " & k2 & "  " & GetInfoEstrazione(es) & "  ",0,0
			Scrivi SiglaRuota(r) & "  " & StringaNumeri(nu,,1) & "    count..." & k - kk,0,0
			Scrivi "    " & estratti,1,0,,1,2
			If esito <> "" Then Scrivi "    Al colpo..." & clp & "  " & GetInfoEstrazione(id),1,1,,1,2
			If esito <> "" Then kesito = kesito + 1
			If esito = "" Then Scrivi String(60,".") & " In corso ",0,1,,2,2
			'Scrivi StringaNumeri(nu,,1) & "  " & k-kk '& "    Ritarda da.... " & fin - es,0,0
			'Scrivi vbTab & " Caduti  " & StringaNumeri(cad,,1)
			
			'Scrivi
			
			End If
			
			k = 0
			kk = 0
			
			
		Next
		If k2 > 0 Then Scrivi String(150,"="),1
		k2 = 0
		
	Next
	Scrivi "Esiti Positivi...." & kesito & " su casi " & kc & " Rilevati ",1,1,,2,3
	Scrivi "Perc % di Esito..." & Int(kesito/kc*100) & " % ",1,1,,1,3
End Sub

 

[i legend]

Ciao Claudio, la verifica è difficile da fare perchè la previsione si riferisce sempre all'ultima estrazione utile.
se utilizziamo il RangeEstrazioni in basso su spaziometria, possiamo fare i calcoli e fare una verifica subito dopo?
Stabilisci Una data di fine Archivio, Stabilisci una ruota a tua scelta , e dammi un estratto che è uscito nei 9 colpi successivi.
Esempio: (Data= 02/09/2014 ; Ruota= Genova; Estratto= 14)
Con foglio di calcolo le Estrazioni non sono un problema per me ,decidi tu, l'importante e che il capogioco sia uscito, devo improntare la ricerca su quello.
Se si può fare anche in script procediamo parallelamente.

X Mike
Grazie Mike, il tabellone analitico mi informa e sintetizza i numeri che sono isocroni e ancora devono cadere.(Utilissimo)
Utilizzando tutto il quadro estrazionale(un passo in più), osservo la dinamica dei numeri, diciamo il loro flusso continuo.
Quelli che più si inseguono e non sono ancora caduti nella stessa ruota, potrebbero confluire nel breve, premesso che cada l'ambata.


Stamattina ho realizzato lo studio per Claudio e nel pomeriggio , (queste sono le mie ferie),Ho ipotizzato ancora un altro studio.
Ambata Ciclometrica su due ruote.
Gli abbinamenti , con metodo dell'isocronia.
Posto qui.
Non ho fatto la previsione per giocare sono troppe, sono solo per studio.

Vedi l'allegato 13260

Cordiali saluti
I Legend

Ambata 74 a colpo
Peccato per gli abbinamenti
Cordiali saluti
I Legend

 

[i legend]

Ciao a tutti,avrei bisogno dell'ultimo passaggio, ossia del numero di volte in cui gli elementi della combinazione , sono presenti tutti nella medesima estrazione.
spero che qualcuno ci riesca. grazie.
cordiali saluti
I Legend

 

[i legend]

Ciao Claudio 2 studi,2 diverse Ricerche.
In entrambe sono state considerate le sortite isocrone dei numeri.
Ricerca 1: In questa c'è convergenza con il tuo 22
Vedi l'allegato 13257
Ricerca 2: solo tre abbinamenti utili rintracciati.
Vedi l'allegato 13258

N.B: Nella ricerca 2 dove dico che la terzina 11.38.66 è vicina al suo limite storico,
ovviamente, mi riferisco al range di ricerca di 400 Estrazioni.
E' altresì ovvio che questo limite può essere incrementato, da 1 ad n estrazioni.
Ci tengo a precisarlo per i neofiti, che si avvicinano al lotto da pochissimo tempo,



Ora non ci resta che aspettare .
Se una delle due da esito, possiamo lavorarci su con maggiore attenzione.
E' stimolante lavorare assieme ad altre persone, era una vita che non mi divertivo così, proprio come le prime
ricerche che facevo con carta penna sul giornale.
Grazie
Cordiali saluti
I Legend

2 finestra
3 soli abbinamenti

11.86 su venezia tutte
il -1 anche stasera ci ha regalato un emozione.
Sembrerebbe funzionare
Cordiali saluti+
I Legend

 

[i legend]

Buon giorno a tutti,
nessuno riesce a scrivere la funzione mancante?

in pseudo codice all'incirca
esempio sviluppo combinazione terzina
classeSviluppo(3)
numeri=scegli numeri
conta=0
for x=1 to 3

if numeri(x) sono presenti in estrazione then
conta+=1
end if
next x

so che questo non è corretto ma spero renda l'idea.

Mi sono arenato in entrambi gli script proposti
In ogni caso ringrazio tutti coloro che mi hanno aiutato sino ad ora
Cordiali saluti
I Legend

 

[Mike58]

Ciao I Legend, correggimi se capisco male

1 = scelta numeri
2 = sviluppo combinazioni x classe
3 = ritardo e frequenza combinazione ( se ritardo = 0 presente in estrazione )
4 = conteggio della cobinazione di esito o numeri o altro conteggio

Lo script è semplice da fare e mi sembra che lo svliluppo delle combinazioni l'ho già postato.

Ci aggiorniamo.

 

[i legend]

Ciao grande Mike
ti chiedo scusa per la confidenza, ma meriti realmente l'apprezzamento fatto, e ,non solo per la tua bravura ma anche per la tua disponibilità.
Sono andato avanti con lo script che mi ha postato e corretto Claudio.
Risolto il problema dello studio su ruota singola e o a tutte.(non so se nel migliore dei modi, ma sembra funzionare)
Ho inserito colonna che calcola il ciclo teorico, la frequenza attesa, devo studiare il calcolo del ritardoMedio.
Ho un tuo script di esempio e ci provo.
Rimana la questione della presenza della combinazione.
Forse il termine Isocrono ha tratto in inganno.(va bene per il tabAnalitico)
Credo fosse più corretto parlare di presenze numeiche contemporanee. P.N.C
La colonna di Claudio calcola la somma di ogni singolo elemento nelle estrazioni considerate,(va bene anche questo)
per calcolare il P.N.C dobbiamo contare solo le estrazione in cui tutti i numeri che compongono la combinazione sono presenti.
Spero di essere spiegato

Option Explicit ' se lo usi devi definire tutte le variabil
Sub Main
Dim Ini,Fin,nEstr,k,x,r,nValore
Dim s,e,ritardo,ritardomax,IncrRitMax,Frequenza,freq,ritc,freqTeorica,freqTT
Dim nNumeri,aColonne
Dim aNumeri(90)
Dim aRu(1)
Dim nCombinazione,nSorte,nCiclo
Dim TipoScelta ' variabile che memorizza la scelta fatta

nEstr = CInt(InputBox("Quante estrazioni vuoi esaminare?","Analizza",100))
Fin = EstrazioneFin
Ini = Fin - nEstr
Call ScegliNumeri(nNumeri)
' aColonne= ScegliCombinazione ossia sviluppo in ambo terno ecc...
nCombinazione = CInt(InputBox("1=Estratto ; 2=Coppia ; 3=Terzina ; 4=Quartina ; 5=Cinquina","Sviluppo Combinazione",3))
nSorte = CInt(ScegliEsito) '  sorte da analizzare

TipoScelta = GetTipoScelta


' valuto la scelta fatta
    Select Case TipoScelta
    
    Case 1
        aRu(1) = 1
    Case 2
        aRu(1) = 2
    Case 3
        aRu(1) = 3    
        Case 4
        aRu(1) = 4    

    Case 5
        aRu(1) = 5    

    Case 6
        aRu(1) = 6    

    Case 7
        aRu(1) = 7
    Case 8
        aRu(1) = 8
    Case 9
        aRu(1) = 9    
    Case 10
        aRu(1) = 10    

    Case 11
        aRu(1) = 11    

    'Case 12
        'SelRu = 12

        
    Case Else
        Scrivi "Nessuan scelta"
    End Select
    If aRu(1)<= 10 Then
    nCiclo=1
    Else
    nCiclo=10
    End If

ReDim aTitolo(11)
'aTitolo(.)'
aTitolo(1) = "Id"
aTitolo(2) = "Comb."
aTitolo(3) = "Ciclo.T" ' quante volte tutti i singoli elementi sono sortiti nella medesima estrazione esclusa la ruota nazionale
aTitolo(4) = "Freq.N"
aTitolo(5) = "F.R"
aTitolo(6) = "F.T" 'Frequenza teorica
aTitolo(7) = "RMT" 'ritardo medio teorico formazione
aTitolo(8) = "R.C" ' ritardo cronologico
aTitolo(9) = "R.C.S" ' ritardo cronologico storico
aTitolo(10) = "Inc.R" ' incremento dal ritardo precedente
aTitolo(11) = "Ruota"
InitTabella aTitolo,RGB(128,0,64),,3,RGB(0,255,64),"Arial black",1,1
aColonne = SviluppoIntegrale(nNumeri,nCombinazione) ' sviluppo le combinazioni es: 01.02.03; 01.02.04; ecc  ecc
For k = 1 To UBound(aColonne) ' ciclo per leggere la colonna k della matrice aColonne
s = "" 'FormatSpace(k,10,True) & "- "
For e = 1 To nCombinazione
's = Format2(aColonne(k,e)) & "-"
s = s & Format2(aColonne(k,e)) & "#"
aNumeri(e) = aColonne(k,e)
'Scrivi aNumeri(e) & ".." ' (prova di scrittura in output
Next
s = Left(s,Len(s) - 1) ' tolgo l'ultimo trattino

Call StatisticaFormazioneTurbo(aNumeri,aRu,nSorte,ritardo,ritardomax,IncrRitMax,Frequenza,Ini,Fin)
freq = SerieFreqTurbo(Ini,Fin,aNumeri,aRu,nSorte)
     freqTT = SerieFreqTurbo(Ini,Fin,aNumeri,aRu,1)
ritc = SerieRitardoTurbo(Ini,Fin,aNumeri,aRu,nSorte)
nValore = CicloTeorico(nCombinazione,nSorte,CInt(nCiclo))' 1 sta per 1 ruota, se le ruote fossero di più ovviamnete il ciclo è minore
freqTeorica = Round(Dividi(nEstr,nValore)) 'numero di estrazioni esaminate / il proprio CicloTeorico
ReDim aRisultato(11)
aRisultato(1) = k
aRisultato(2) = s
aRisultato(3) = nValore
aRisultato(4) = freqTT '"????" '"ISCR" ' quante volte tutti i singoli elementi sono sortiti nella medesima estrazione esclusa la ruota nazionale
aRisultato(5) = freq ' 4 '"Freq"
aRisultato(6) = freqTeorica 
aRisultato(7) = ritc '6 '"RMT" 'ritardo medio teorico formazione
aRisultato(8) = ritardo '7 '"R.C" ' ritardo cronologico
aRisultato(9) = ritardomax ' 8 '"R.C.S" ' ritardo cronologico storico
aRisultato(10) = IncrRitMax ' 9 ' "Inc.R" ' incremento dal ritardo precedente
aRisultato(11) = NomeRuota(aRu(1))
Call AddRigaTabella(aRisultato,,,3,,"Calibrì",1,1)
Next
Call SetTableWidth("100%")

Call CreaTabella ' se ti occorre, possiamo anche gestire la colonna su cui fare l'ordinamento
End Sub



     Function GetTipoScelta
        
        ' questa funzione propone un menu a tendina per eseguire una scelta
        ' le voci del meu si preparano tramite un vettore che puo
        ' essere alimentato coem si vuole in questo caso 3 elementi
         ReDim aVoci(11)
        
        aVoci(1) = "BARI"
        aVoci(2) = "CAGLIARI"
        aVoci(3) = "FIRENZE"
        aVoci(4) = "GENOVA"
          aVoci(5) = "MILANO"
          aVoci(6) = "NAPOLI"
          aVoci(7) = "PALERMO"
        aVoci(8) = "ROMA"
        aVoci(9) = "TORINO"
        aVoci(10) = "VENEZIA"
          aVoci(11) = "TUTTE"
                    'aVoci(12) = "NAZIONALE"
    
        
        ' mostro la finestra col menu a tendina , mi ritorna un indice da 1 a 12
        ' che indica la scelta fatta
        GetTipoScelta = ScegliOpzioneMenu(aVoci,1,"Seleziona Ruota di Ricerca")
        
    End Function

Posto immagine

Ho trovato uno script che ordina le colonne, troppo lungo e complesso però.
Cmq ci voglio lavorare su
tipo:
dim iOrdine,
if iOrdine =1 then ordinaColonna4
if iOrdine= 2 then ordinaColonna5
ecc

iOrdine= scriviamo di volta in volta il numero della colonna che vogliamo ordinare in ordine decrescente

Grazie ancora per l'attenzione.
So che è pochissima cosa ma da soddisfazione

Cordiali saluti
I Legend

 

[Mike58]

Sto cercando di capire e capirti meglio cosa vuoi ottenere.
P N C = presenza numerica contemporanea = n volte che il numero (combinazione) è presente come terno stessa ruota (tutte) oppure 3 ruote diverse stessa estrazione ?
è questo il punto !!! ma sarebbe anche possibile.

Scusa Se insisto con le delucidazioni ma penso che tutto sia ottenibile con lo script e sarebbe meglio non allontanarsi dal punto di partenza per non perdere di vista l'obiettivo.

Per ordinare le colonne in creatabella() basta mettere il numero della colonna e ordina in modo ascendente-discescemte la tabella.

Per il Ritardo Medio adesso non saprei cosa dobbiamo calcolare ma la formula la si trova.

Ciao ci aggiorniamo..... e insisti con le sperimentazioni e vedrai che tutti i vari codici saranno + chiari.

Sei tra i pochi che a voglia di imparare e avventursi nel pianeta Vbscript e questo merita tutto il mio appoggio.

 

[i legend]

Ciao Mike, per il ritMedio sto provando e riprovando
ti posto un immagine per farti capire come voglio contare le presenze.
Grazie per il sostegno
appena riesco a sistemare il file posto immagine

 

[i legend]

Ciao Mike, per il ritMedio sto provando e riprovando
ti posto un immagine per farti capire come voglio contare le presenze.
Grazie per il sostegno
appena riesco a sistemare il file posto immagine

Cordiali saluti
I Legend

 

[Mike58]

Ciao I legend per ora ho lavorato su un mio script per isocronismo, devo ancora ri-definirlo.
Sono un pochetto stanco cosi stacco un po', dagli un occhio e poi ridefiniamo meglio.

Sub Main
	Dim k
	Dim Classe
	Dim aCol
	ReDim aNum(90)
	Dim i
	Dim ruota(1),rt(10)
	r = InputBox("Quale ruota ",,3)
	cl = CInt(InputBox("Quale classe di sviluppo",,3))
	sorte = CInt(InputBox("Quale sorte esito analizzo ",,2))
	capog = CInt(InputBox("Quale capogioco ",,38))
	
	ruota(1) = r
	ScegliNumeri(aNum)
	Scrivi " Sviluppo combinazione " & StringaNumeri(aNum) & " Con Capogioco > " & capog,1
	Scrivi " Sulla ruota di..." & NomeRuota(r),1
	Scrivi " In sviluppo di classe..." & cl,1
	ColoreTesto 2
	Scrivi " Verifica statistica per sorte di... " & NomeSorte(sorte),1
	ColoreTesto 1
	Scrivi " Sorte isocroni per...." & NomeSorte(cl),1
	
	ColoreTesto 0
	For k = 1 To UBound(aNum)
	aNum(0) = capog
		aNum(k) = aNum(k)
	Next
	Classe = cl
	ReDim atitoli(13)
	atitoli(1) = " Contatore "
	atitoli(2) = " Sviluppo comb. "
	atitoli(3) = " Ritardo "
	atitoli(4) = " Ritardo Max "
	atitoli(5) = " Frequenza "
	atitoli(6) = " Incrmax "
	atitoli(7) = " acol(1) "
	'atitoli(8) = " Iso rit "
	atitoli(9) = " N.1 "
	atitoli(10) = " N.2 "
	atitoli(11) = " N.3 "
	atitoli(12) = " Cont "
	atitoli(13) = " Estrazione fin "
	Call InitTabella(atitoli,1,,3,5)
	If InitSviluppoIntegrale(aNum,Classe) > 0 Then
		Do While GetCombSviluppo(aCol) = True
			i = i + 1
			
			
			Call StatisticaFormazioneTurbo(aCol,ruota,sorte,sr,st,Incr,sf,EstrazioneIni,EstrazioneFin)
			Isorit = SerieRitardo(EstrazioneIni,EstrazioneFin,aCol,ruota,cl)
			isofre = SerieFreq(EstrazioneIni,EstrazioneFin,aCol,ruota,cl)
			isosto = SerieStorico(EstrazioneIni,EstrazioneFin,aCol,ruota,cl)
			For rr = 1 To 10
			rt(rr) = rr
			

			
			Next
			ReDim avalori(13)
			avalori(1) = FormattaStringa(i,"00") & "  " & ii
			avalori(2) = StringaNumeri(aCol,,1)
			avalori(3) = sr
			avalori(4) = st
			avalori(5) = sf
			avalori(6) = Incr
			avalori(7) = aCol(1)
			'avalori(8) = Isorit
			If VerificaEsito(aCol,rt,EstrazioneFin,1,1,,,,estratti,id) Then avalori(13) = estratti
			If EstrattoFrequenza(rr,aCol(1),EstrazioneFin,EstrazioneFin) > 0 Then avalori(9) = aCol(1)
			
			If EstrattoFrequenza(rr,aCol(1),EstrazioneFin,EstrazioneFin) > 0 Then k1 = 1
			If EstrattoFrequenza(rr,aCol(2),EstrazioneFin,EstrazioneFin) > 0 Then avalori(10) = aCol(2)
			If EstrattoFrequenza(rr,aCol(2),EstrazioneFin,EstrazioneFin) > 0 Then k2 = 1
			If EstrattoFrequenza(rr,aCol(3),EstrazioneFin,EstrazioneFin) > 0 Then avalori(11) = aCol(3)
			If EstrattoFrequenza(rr,aCol(3),EstrazioneFin,EstrazioneFin) > 0 Then k3 = 1
			avalori(12) = k1+k2+k3
			k1 = 0
			k2 = 0
			k3 = 0
			'avalori(9) = sf1 & sf2 &sf3
			'avalori(10) = Isosto
			
			
			If avalori(12) = 3 Then
		Call AddRigaTabella(avalori,4,,3)
		Else
		Call AddRigaTabella(avalori,,,3)
		End If	
		Loop
		 			
			
			
		
	End If
	
	
	CreaTabella()
	ReDim atitoli1(6)
	atitoli1(1) = " Contatore "
	atitoli1(2) = " Sviluppo comb. "
	atitoli1(3) = " Ritardo "
	atitoli1(4) = " Ritardo Max "
	atitoli1(5) = " Frequenza "
	atitoli1(6) = " Incrmax "
	
Call InitTabella(atitoli1,1,,3,5)
Call StatisticaFormazioneTurbo(aNum,ruota,sorte,sr,st,Incr,sf,EstrazioneIni,EstrazioneFin)
Scrivi"Statistica Globale ",1
			ReDim avalori1(6)
			avalori1(1) = FormattaStringa(i,"0")
			avalori1(2) = StringaNumeri(aNum)
			avalori1(3) = sr
			avalori1(4) = st
			avalori1(5) = sf
			avalori1(6) = Incr
			
Call AddRigaTabella(avalori1,4,,3)
	CreaTabella()
	Scrivi
	Scrivi "Tabella Scripted by Mike58 ",1,- 1,3
End Sub

 

[i legend]

Ciao Mike provato lo script,
tutto ok, se fosse possibile affianco alla colonna cont, vorrei inserire una colonna frequenza che restituisce quante volte è presente quella formazione, e ordinare la matrice in ordine decrescente.Sarebbe utile inserire il numero di estrazioni che si vogliono esaminare per questo calcolo.un input box che chiede "Quante estrazioni vuoi esaminare la formazione?", default 200,
magari estrazioneIni,e ,estrazionefin, per calcololare la frequenza effettiva, (estrazionefin-valore(inputbox),e.estrazionifin per i valori isocroni)

Grazie mille e proprio questo lo studio che volevo effettuare.
una volta impostato anche questo confronto il tutto con il mio foglio di calcolo per fare un riscontro dei risultati
facciamo i raffronti e capiamo

Cordiali saluti
I Legend

 

[Mike58]

Ciao I legend, tutto si può fare ma poi bisogna vedere come raccogliere i dati e utilizzarli di conseguenza.
Modificando un po' lo script devo filtrare i dati di PNC = 3 pena il non sviluppo totale delle combinazioni perché poi sarebbero anche tante e ripetute con esito = 3 e esito < 3.
Cosi puoi vedere solo quelle risultanza che hanno dato esito di PNC su un range stabilito, vedi un po' tu se riesci ad estrapolarne i dati che ti servono.

P.S. lo script cosi come è listato è funzionale per lo sciluppo di classe 3 (terno).

Sarebbe + oppurtuno arrivare dettagliare lo scopo di una ricerca cosi da arrivare con i dati raccolti alla Meta.

Sub Main
	Dim k
	Dim Classe
	Dim aCol
	ReDim aNum(90)
	Dim i
	Dim ruota(1),rt(10)
	r = InputBox("Quale ruota ",,1)
	cl = CInt(InputBox("Quale classe di sviluppo",,3))
	sorte = CInt(InputBox("Quale sorte esito analizzo ",,2))
	capog = CInt(InputBox("Quale capogioco ",,0))
	
	ruota(1) = r
	ScegliNumeri(aNum)
	Scrivi " Sviluppo combinazione " & StringaNumeri(aNum) & " Con Capogioco > " & capog,1
	Scrivi " Sulla ruota di..." & NomeRuota(r),1
	Scrivi " In sviluppo di classe..." & cl,1
	ColoreTesto 2
	Scrivi " Verifica statistica per sorte di... " & NomeSorte(sorte),1
	ColoreTesto 1
	Scrivi " Sorte isocroni per...." & NomeSorte(cl),1
	
	ColoreTesto 0
	For k = 1 To UBound(aNum)
	aNum(0) = capog
		aNum(k) = aNum(k)
	Next
	Classe = cl
	ReDim atitoli(13)
	atitoli(1) = " Contatore "
	atitoli(2) = " Sviluppo comb. "
	atitoli(3) = " Ritardo "
	atitoli(4) = " Ritardo Max "
	atitoli(5) = " Frequenza "
	atitoli(6) = " Incrmax "
	atitoli(7) = " acol(1) "
	atitoli(8) = " info Es "
	atitoli(9) = " N.1 "
	atitoli(10) = " N.2 "
	atitoli(11) = " N.3 "
	atitoli(12) = " Cont "
	atitoli(13) = " Estrazione Es "
	Call InitTabella(atitoli,1,,3,5)
	If InitSviluppoIntegrale(aNum,Classe) > 0 Then
		Do While GetCombSviluppo(aCol) = True
			i = i + 1
			
			
			Call StatisticaFormazioneTurbo(aCol,ruota,sorte,sr,st,Incr,sf,EstrazioneIni,EstrazioneFin)
			Isorit = SerieRitardo(EstrazioneIni,EstrazioneFin,aCol,ruota,cl)
			isofre = SerieFreq(EstrazioneIni,EstrazioneFin,aCol,ruota,cl)
			isosto = SerieStorico(EstrazioneIni,EstrazioneFin,aCol,ruota,cl)
			For rr = 1 To 10
			rt(rr) = rr
			
			
			Next
			ReDim avalori(13)
			avalori(1) = FormattaStringa(i,"00") & "  " & ii
			avalori(2) = StringaNumeri(aCol,,1)
			avalori(3) = sr
			avalori(4) = st
			avalori(5) = sf
			avalori(6) = Incr
			avalori(7) = aCol(1)
			Ini = EstrazioneFin-10
			fin = EstrazioneFin

			For Es = Ini To fin
			Tott = fin-Ini
			If VerificaEsito(aCol,rt,Es,1,1,,,,estratti,id) Then avalori(13) = estratti
			If EstrattoFrequenza(rr,aCol(1),Es,Es) > 0 Then avalori(9) = aCol(1)
			
			If EstrattoFrequenza(rr,aCol(1),Es,Es) > 0 Then k1 = 1
			If EstrattoFrequenza(rr,aCol(2),Es,Es) > 0 Then avalori(10) = aCol(2)
			If EstrattoFrequenza(rr,aCol(2),Es,Es) > 0 Then k2 = 1
			If EstrattoFrequenza(rr,aCol(3),Es,Es) > 0 Then avalori(11) = aCol(3)
			If EstrattoFrequenza(rr,aCol(3),Es,Es) > 0 Then k3 = 1
			avalori(8) = GetInfoEstrazione(id)
			avalori(12) = k1 + k2 + k3
			k1 = 0
			k2 = 0
			k3 = 0
			
			
			If avalori(12) = 3 Then k5=k5+1
			If avalori(12) = 3 Then
			
		Call AddRigaTabella(avalori,4,,2)
		'Else ' invece se
		'Call AddRigaTabella(avalori,,,3) ' scrive i valori diversi da avalori(12) = 3
		End If
		Next	
		Loop
		 			
			
			
		
	End If
	
	Call SetTableWidth("100%")
	CreaTabella()
	Scrivi "Valori Di P.N.C. = " & k5 & " Su un Totale di " & Tott & " Estrazioni ",1,1,1,5,3
	ReDim atitoli1(6)
	atitoli1(1) = " Contatore "
	atitoli1(2) = " Sviluppo comb. "
	atitoli1(3) = " Ritardo "
	atitoli1(4) = " Ritardo Max "
	atitoli1(5) = " Frequenza "
	atitoli1(6) = " Incrmax "
	
Call InitTabella(atitoli1,1,,3,5)
Call StatisticaFormazioneTurbo(aNum,ruota,sorte,sr,st,Incr,sf,EstrazioneIni,EstrazioneFin)
Scrivi"Statistica Globale ",1
			ReDim avalori1(6)
			avalori1(1) = FormattaStringa(i,"0")
			avalori1(2) = StringaNumeri(aNum)
			avalori1(3) = sr
			avalori1(4) = st
			avalori1(5) = sf
			avalori1(6) = Incr
			
Call AddRigaTabella(avalori1,4,,3)
	CreaTabella()
	Scrivi
	
	Scrivi "Tabella List by Mike58  for  I Legend ********* Forum LottoCed ****** ",1,- 1,3
End Sub

 

[i legend]

Ciao Mike è perfetto cosi. Ho di nuovo problemi con il P.C. non riesco a postare l'immagine che avevo selezionato. Ti passo i Valori di input cosi potete ottenerla tutti. Ruota-> 10 Classesviluppo->3 Sorte-> 2 Capogioco-> 87 ' questa è la mia ambata ScegliNumeri-> {2.11.25.49.68} ' questi sono miei abbinamenti Ora posso procedere in diversi modi: Gioco 5 ambi a venezia e tutte. ' troppa spesa Gioco 10 terzine a Venezia e Tutte ' dovrei essere pazzo Gioco sistema completo di 20 combinazioni a Venezia e tutte ' Da ricovero Sviluppo sistema, vedo i ritardi, e la frequenza. Ci sono tre terzine che hanno un buon ritardo,e la migliore frequenza. 87.49.68 87.11.49 11.49.25 Ho ristretto il tutto a tre terzine le prime due che contengono il capogioco sono più papabili. Avevo postato l'87 su Venezia Ieri come ambata principale senza gli abbinamenti perchè troppi. Uscito a colpo 11.68. (87-1) proprio a Venezia. ad averlo ieri. In pratica questo favoloso (per me Ovviamente) script mi suggerisce come filtrare i miei numeri Postami una tua ambata, con degli abbinamenti e ti mostro come restringere in base ai miei criteri. Grazie Mike sei un grande.

 

[Mike58]

Cicli...12 Per 72 estrazioni Colpi di Gioco 6

Ruote gioco: Cagliari
Ambata/Capogioco: 28
Abbinamenti x ambo: 48.62.2.3
Sestina x ambo e terno: 28.48.62.2.3.54

Ciao I Legend, questi sono i miei numeri su cagliari ruota del 80 ritardatario, vedi quello che riesci ad estrapolare.

Purtroppo lo script analizza solo dei Numeri scelti e fa la statistica scelta, ma ad ogni modo e sempre l'utente che poi deve vedere i numeri da giocare.

Ad ogni modo sono sicuro che saprai mettere in evidenza delle situazioni favorevoli e se così sarà non mancare di postarcele.

Ciao

 

[i legend]

Ciao Mike...................{28;03} Ambo secco............{03.48.54} Ambo anche su tutte. (questo letto con script MikeLegend). . Mike si riesce a sviluppare anche gli ambi oltre le terzine?............Abbinamenti sviluppati {3.43.76}; ..............{28.7.9};................{28.9.69};.....................{3.9.86} {3.9.86} combinazione migliore, convergenza piena del 3 A dopo Cordiali saluti I Legend

 

[Mike58]

Intanto grazie per l'analisi Numerica di Previsione,invece per lo sviluppo in ambi devi solo eliminare il conteggio della 3 riga della combinazione ed elabora gli ambi.
Però rimane circoscritto per uso solo di ambo.

prova

Sub Main
	Dim k
	Dim Classe
	Dim aCol
	ReDim aNum(90)
	Dim i
	Dim ruota(1),rt(10)
	r = InputBox("Quale ruota ",,1)
	cl = CInt(InputBox("Quale classe di sviluppo",,2))
	sorte = CInt(InputBox("Quale sorte esito analizzo ",,2))
	capog = CInt(InputBox("Quale capogioco ",,0))
	
	ruota(1) = r
	ScegliNumeri(aNum)
	Scrivi " Sviluppo combinazione " & StringaNumeri(aNum) & " Con Capogioco > " & capog,1
	Scrivi " Sulla ruota di..." & NomeRuota(r),1
	Scrivi " In sviluppo di classe..." & cl,1
	ColoreTesto 2
	Scrivi " Verifica statistica per sorte di... " & NomeSorte(sorte),1
	ColoreTesto 1
	Scrivi " Sorte isocroni per...." & NomeSorte(cl),1
	
	ColoreTesto 0
	For k = 1 To UBound(aNum)
	aNum(0) = capog
		aNum(k) = aNum(k)
	Next
	Classe = cl
	ReDim atitoli(13)
	atitoli(1) = " Contatore "
	atitoli(2) = " Sviluppo comb. "
	atitoli(3) = " Ritardo "
	atitoli(4) = " Ritardo Max "
	atitoli(5) = " Frequenza "
	atitoli(6) = " Incrmax "
	atitoli(7) = " acol(1) "
	atitoli(8) = " info Es "
	atitoli(9) = " N.1 "
	atitoli(10) = " N.2 "
	atitoli(11) = " N.3 "
	atitoli(12) = " Cont "
	atitoli(13) = " Estrazione Es "
	Call InitTabella(atitoli,1,,3,5)
	If InitSviluppoIntegrale(aNum,Classe) > 0 Then
		Do While GetCombSviluppo(aCol) = True
			i = i + 1
			
			
			Call StatisticaFormazioneTurbo(aCol,ruota,sorte,sr,st,Incr,sf,EstrazioneIni,EstrazioneFin)
			Isorit = SerieRitardo(EstrazioneIni,EstrazioneFin,aCol,ruota,cl)
			isofre = SerieFreq(EstrazioneIni,EstrazioneFin,aCol,ruota,cl)
			isosto = SerieStorico(EstrazioneIni,EstrazioneFin,aCol,ruota,cl)
			For rr = 1 To 10
			rt(rr) = rr
			
			
			Next
			ReDim avalori(13)
			avalori(1) = FormattaStringa(i,"00") & "  " & ii
			avalori(2) = StringaNumeri(aCol,,1)
			avalori(3) = sr
			avalori(4) = st
			avalori(5) = sf
			avalori(6) = Incr
			avalori(7) = aCol(1)
			Ini = EstrazioneFin-10
			fin = EstrazioneFin

			For Es = Ini To fin
			Tott = fin-Ini
			If VerificaEsito(aCol,rt,Es,1,1,,,,estratti,id) Then avalori(13) = estratti
			If EstrattoFrequenza(rr,aCol(1),Es,Es) > 0 Then avalori(9) = aCol(1)
			
			If EstrattoFrequenza(rr,aCol(1),Es,Es) > 0 Then k1 = 1
			If EstrattoFrequenza(rr,aCol(2),Es,Es) > 0 Then avalori(10) = aCol(2)
			If EstrattoFrequenza(rr,aCol(2),Es,Es) > 0 Then k2 = 1
			'If EstrattoFrequenza(rr,aCol(3),Es,Es) > 0 Then avalori(11) = aCol(3)
			'If EstrattoFrequenza(rr,aCol(3),Es,Es) > 0 Then k3 = 1
			avalori(8) = GetInfoEstrazione(id)
			avalori(12) = k1 + k2 + k3
			k1 = 0
			k2 = 0
			k3 = 0
			
			
			If avalori(12) = cl Then k5=k5+1
			If avalori(12) = cl Then
			
		Call AddRigaTabella(avalori,4,,2)
		'Else ' invece se
		'Call AddRigaTabella(avalori,,,3) ' scrive i valori diversi da avalori(12) = 3
		End If
		Next	
		Loop
		 			
			
			
		
	End If
	
	Call SetTableWidth("100%")
	CreaTabella()
	Scrivi "Valori Di P.N.C. = " & k5 & " Su un Totale di " & Tott & " Estrazioni ",1,1,1,5,3
	ReDim atitoli1(6)
	atitoli1(1) = " Contatore "
	atitoli1(2) = " Sviluppo comb. "
	atitoli1(3) = " Ritardo "
	atitoli1(4) = " Ritardo Max "
	atitoli1(5) = " Frequenza "
	atitoli1(6) = " Incrmax "
	
Call InitTabella(atitoli1,1,,3,5)
Call StatisticaFormazioneTurbo(aNum,ruota,sorte,sr,st,Incr,sf,EstrazioneIni,EstrazioneFin)
Scrivi"Statistica Globale ",1
			ReDim avalori1(6)
			avalori1(1) = FormattaStringa(i,"0")
			avalori1(2) = StringaNumeri(aNum)
			avalori1(3) = sr
			avalori1(4) = st
			avalori1(5) = sf
			avalori1(6) = Incr
			
Call AddRigaTabella(avalori1,4,,3)
	CreaTabella()
	Scrivi
	
	Scrivi "Tabella List by Mike58  for  I Legend ********* Forum LottoCed ****** ",1,- 1,3
End Sub

 

[Serpico 90]

Buon giorno Mike, con i tuoi lavori dai un grosso contributo alla ricerca,grazie.
Per i legend: scusa se mi permetto,complimenti per la tua ricerca.
Posso chiederti una cortesia....avrei per la ruota di BARI due capigioco 90---30-----e per abbinamenti per tutti e due i capi gioco
1---14---4----2---22-----85-----se lo puoi fare mi potresti indicare gentilmente come giocarli ?............
Ho visto gli script che avete creato con MIke ,ma non sono capace ad utilizzarli.
Grazie se mi rispondi
Cordiali saluti
Serpico

 

[i legend]

Ciao serpico tra i tuoi numeri in ristretto:.................90.01.85.................90.14.85..............01.14.85...................... Queste a mio avviso sono le terzine migliori tra ritardi e frequenze. Sono solo un interpretazione, magari escono solo quelli che non ho selezionato.Appena mi è possibile mettiamo appunto lo script e ne spiego la funzione in modo tale che tutti possano utilizzarlo, e restringere le proprie previsioni e magari dare altri suggerimenti. Cordiali saluti | I Legend

 

[claudio8]

Ciao ragazzi, vedo che state lavorando sodo e mi fa piacere, ma non riesco a capire perchè lavorate su diversi script e non unite tutti i dati che vi occorreno in uno unico.
Potreste ricapitolare con un esempio di tabella, anche carente di tutti i dati che vi occorrono per avere un quadro unico completo?

Ps: la mia previs. Ba CA ambata 86 abb 21 , 69 e 22 ha dato a esito a Na (TT), per me non si è ancorasfaldata.

Vi posto il mio "P N C = presenza numerica contemporanea", controllate se è giusto .

ciao.