Migliori ambate e abbinamenti su cicli

[Mike58]

Ciao lottopassion, ho eseguito vari test su questa tipologia di script e da sempre oltre all'ambata anche almeno un ambo con il capogioco.
Speriamo questi pronostici restino validi anche per il futuro.

Sarebbe interessante verificarne gli abbinamenti per terno con la richiesta in inputbox di quanti ne vogliamo trovare
cosi come avviene già nel tuo programma lottogeos2.
In modo che possiamo condurre un test è una statistica + approfondita.

Vedi se ti è possibile crearlo con questa tipologia di metodica.

Ciao

[Mike58]

ciao nelson, in attesa di lottopassion, se usi spaziometria 1.4.33 puoi utilizzare il mio script per verifica esiti.

Codice: Seleziona tutto

Sub Main()
Dim ruote(11)
Dim numeri(90),pres(90)
Dim ncicli
Dim cicli
Dim stringa
Dim ns(10)
Dim r1,r2,es,e1,estr1,estr2,cc,decmax,cadmax,nmax,n,nf,np,ff,scad,sdec,conta,nsp,vett(7),ruota(1),posta(1),poste(5),ambata(1)
cicli = InputBox("Quanti cicli vuoi analizzare ?",,12)
ncicli = InputBox("Di quante estrazioni ?",,12)
r1 = InputBox("Ruota numero 1: (1=Bari 2=Cagliari ...)",,1)
r2 = InputBox("Ruota numero 2: 0=no",,0)
estr1 = EstrazioneFin -(ncicli*(cicli))
Tot = EstrazioneFin - estr1
For cc = 1 To cicli
estr1 = estr1 + ncicli
estr2 = estr1 + ncicli
Erase pres
For es = estr1 To estr2
For e1 = 1 To 5
If pres(Estratto(es,r1,e1)) = 0 Then
numeri(Estratto(es,r1,e1)) = numeri(Estratto(es,r1,e1)) + 1
pres(Estratto(es,r1,e1)) = 1
If numeri(Estratto(es,r1,e1)) > nmax Then nmax = numeri(Estratto(es,r1,e1))
End If
If r2 > 0 Then
If pres(Estratto(es,r2,e1)) = 0 Then
numeri(Estratto(es,r2,e1)) = numeri(Estratto(es,r2,e1)) + 1
pres(Estratto(es,r2,e1)) = 1
If numeri(Estratto(es,r2,e1)) > nmax Then nmax = numeri(Estratto(es,r2,e1))
End If
End If
Next
Next
Next
Scrivi "Cicli..." & cicli,True,False,1,5,4
Scrivi " Per " & Tot & " estrazioni ",True,True,2,4,4
Scrivi
Scrivi "Ruote gioco: " + NomeRuota(r1),True,True,,2,4
If r2 > 0 Then stringa = stringa + " - " + NomeRuota(r2)
Scrivi stringa,True
ff = nmax + 1
conta = 0
Do
ff = ff - 1
If ff = 0 Then Exit Do
For cc = 1 To 90
If numeri(cc) = ff Then
nsp = cc
Exit Do
End If
Next
Loop
Scrivi "Ambata/Capogioco: " + CStr(nsp),True,True,3,0,3
estr1 = EstrazioneFin -(ncicli*(cicli + 1))
Erase numeri
For cc = 1 To cicli
estr1 = estr1 + ncicli
estr2 = estr1 + ncicli
For es = estr1 To estr2
For e1 = 1 To 5
If Estratto(es,r1,e1) = nsp Then
For e2 = 1 To 5
If Estratto(es,r1,e2) <> nsp Then
numeri(Estratto(es,r1,e2)) = numeri(Estratto(es,r1,e2)) + 1
If numeri(Estratto(es,r1,e2)) > nmax Then nmax = numeri(Estratto(es,r1,e2))
End If
Next
End If
If r2 > 0 Then
If Estratto(es,r2,e1) = nsp Then
For e2 = 1 To 5
If Estratto(es,r2,e2) <> nsp Then
numeri(Estratto(es,r2,e2)) = numeri(Estratto(es,r2,e2)) + 1
If numeri(Estratto(es,r2,e2)) > nmax Then nmax = numeri(Estratto(es,r2,e2))
End If
Next
End If
End If
Next
Next
Next
ff = nmax + 1
conta = 0
Do
ff = ff - 1
If ff = 0 Then Exit Do
For cc = 1 To 90
If numeri(cc) = ff Then
conta = conta + 1
ns(conta) = cc
If conta > 6 Then Exit Do
End If
Next
Loop
Call Scrivi("Abbinamenti x ambo: " + CStr(ns(1)) + "." + CStr(ns(2)) + "." + CStr(ns(3)) + "." + CStr(ns(4)),True,True,,1,4)
Scrivi "Cinquina x ambo e terno: " + CStr(nsp) + "." + CStr(ns(1)) + "." + CStr(ns(2)) + "." + CStr(ns(3)) + "." + CStr(ns(4)) + "." + CStr(ns(5)) + "." + CStr(ns(6)),True,True,,2,4
ambata(1) = nsp
vett(1) = nsp
vett(2) = ns(1)
vett(3) = ns(2)
vett(4) = ns(3)
vett(5) = ns(4)
vett(6) = ns(5)
vett(7) = ns(6)
ruota(1) = r1
posta(1) = 5
poste(2) = 3
poste(3) = 1
poste(4) = .5
poste(5) = .5
Scrivi
Scrivi "----------------------------- Verifica esito ultime 20 estrazioni -------------------------------------",1
Scrivi
Call ImpostaGiocata(1,ambata,ruota,posta,20)
Call ImpostaGiocata(2,vett,ruota,poste,20)
Gioca(EstrazioneFin - 20)
End Sub















[PAOLO55]

Volevo chiedere se lo script "MIGLIORI AMBATE E ABBINAMENTI SU CICLI" va bene con il programma LOTTODEK 1.2 Rev. 10 perchè mi da errore a questa riga: Scrivi "Cicli..." & cicli,True,False,1,5,4 .

Eventualmente cosa bisogna sostituire nello scrpt per essere compatibile con il mio programma opppure non potete fare lo script corrispondente. A me serve perchè senz'altro è molto interessante. Ditemi come devo fare per farlo eseguire sul mio programma. Grazie Paolo

[lottopassion]

Caro Paolo55 lo script da te evidenziato e quello fatto da Milke per ottenere le statistiche con il dettaglio degli esiti , mentre quello fatto me per ricavare le migliori ambate e abbinamenti e quello in cima all'argomento.
Saluti.

[alessandro]

Ciaoo atutti, PROBLEMMA : Non riesco a far girare i vostri script usando Spaziometria.DOMANDA:come posso fare. Grazie

[lottopassion]

Spaziometria nel modulo script ti da in automatico quando lo avvii Sub e sotto End sub quando copi e incolli lo script fai in modo che Sub e End sub compaia un volta.
Saluti.

[zagort]

vi volevo chiedere se è possibile modificare il listato, mi interessa cambiare la parte riguardante l'ambata mentre
rimanere invariata la parte riguardante gli abbinamenti
non vorrei sbagliare ma la parte che interessata l'ambata è questa??

Codice: Seleziona tutto

For e1=1 To 5
    If pres(Estratto (es,r1,e1))=0 Then
    numeri(Estratto (es,r1,e1))=numeri(Estratto(es,r1,e1))+1
    pres(Estratto (es,r1,e1))=1
    If numeri(Estratto (es,r1,e1))>nmax Then nmax=numeri(Estratto (es,r1,e1))
    End If
    If r2>0 Then
    If pres(Estratto (es,r2,e1))=0 Then
    numeri(Estratto (es,r2,e1))=numeri(Estratto(es,r2,e1))+1
    pres(Estratto (es,r2,e1))=1
    If numeri(Estratto (es,r2,e1))>nmax Then nmax=numeri(Estratto (es,r2,e1))
    End If
    End If
    Next
    Next
    Next
    stringa= "Ruote gioco: "+NomeRuota (r1)
    If r2>0 Then stringa=stringa+" - "+NomeRuota(r2)
    Scrivi stringa,True
    ff=nmax+1
    conta=0
    Do
    ff=ff-1
    If ff=0 Then Exit Do
    For cc=1 To 90
    If numeri(cc)=ff  Then
    nsp=cc
    Exit Do
    End If
    Next
    Loop


ho cercato di mettere l'ambata a mia scelta in questo modo (togliendo il tutto ma restante solo nsp)
nsp=fuori90(estratto(es,1,3)+15)
ma non funziona,ringrazio anticipatamente per la risposta.

[lottopassion]

Ciao Zagort questa modifica dello script ti permetterà di inserire manualmente il capogioco/ambata ed ottenere solo gli abbinamenti, naturalmente devi inserire un numero fisso non puoi inserire una formula inserendo 0 otterrai il capogioco in automatico.
Saluti.

Codice: Seleziona tutto

                                                                                                                                                                                                                              
Sub main()
Dim ruote(11)
Dim numeri(90),pres(90)
Dim ncicli
Dim cicli
Dim stringa
Dim ns(10)
Dim r1,r2,es,e1,estr1,estr2,cc,decmax,cadmax,nmax,n,nf,np,ff,scad,sdec,conta,nsp,cpg
cicli=CLng(InputBox ("Quanti cicli vuoi analizzare ?"))
ncicli=CLng(InputBox ("Di quante estrazioni ?"))
r1=CLng(InputBox ("Ruota numero 1: (1=Bari 2=Cagliari ...)"))
r2=CLng(InputBox ("Ruota numero 2: 0=no"))
cpg=CLng(InputBox ("Capogioco: 0=automatico"))
estr1=EstrazioneFin -(ncicli*(cicli+1))
For cc =1 To cicli
estr1=estr1+ncicli
estr2=estr1+ncicli
Erase pres
For es=estr1 To estr2
For e1=1 To 5
If pres(Estratto (es,r1,e1))=0 Then
numeri(Estratto (es,r1,e1))=numeri(Estratto(es,r1,e1))+1
pres(Estratto (es,r1,e1))=1
If numeri(Estratto (es,r1,e1))>nmax Then nmax=numeri(Estratto (es,r1,e1))
End If
If r2>0 Then
If pres(Estratto (es,r2,e1))=0 Then
numeri(Estratto (es,r2,e1))=numeri(Estratto(es,r2,e1))+1
pres(Estratto (es,r2,e1))=1
If numeri(Estratto (es,r2,e1))>nmax Then nmax=numeri(Estratto (es,r2,e1))
End If
End If
Next
Next
Next
stringa= "Ruote gioco: "+NomeRuota (r1)
If r2>0 Then stringa=stringa+" - "+NomeRuota(r2)
Scrivi stringa,True
ff=nmax+1
conta=0
Do
ff=ff-1
If ff=0 Then Exit Do
For cc=1 To 90
If numeri(cc)=ff  Then
nsp=cc
Exit Do
End If
Next
Loop
If cpg>0 Then nsp= cpg
Scrivi "Ambata/Capogioco: "+CStr(nsp)
Erase numeri
estr1=EstrazioneFin -(ncicli*(cicli+1))
For cc =1 To cicli
estr1=estr1+ncicli
estr2=estr1+ncicli
For es=estr1 To estr2
For e1=1 To 5
If Estratto (es,r1,e1)=nsp Then
For e2= 1 To 5
If Estratto(es,r1,e2)<>nsp Then
numeri(Estratto (es,r1,e2))=numeri(Estratto(es,r1,e2))+1
If numeri(Estratto (es,r1,e2))>nmax Then nmax=numeri(Estratto (es,r1,e2))
End If
Next
End If
If r2>0 Then
If Estratto (es,r2,e1)=nsp Then
For e2=1 To 5
If Estratto(es,r2,e2)<>nsp Then
numeri(Estratto (es,r2,e2))=numeri(Estratto(es,r2,e2))+1
If numeri(Estratto (es,r2,e2))>nmax Then nmax=numeri(Estratto (es,r2,e2))
End If
Next
End If
End If
Next
Next
Next
ff=nmax+1
conta=0
Do
ff=ff-1
If ff=0 Then Exit Do
For cc=1 To 90
If numeri(cc)=ff  Then
conta=conta+1
ns(conta)=cc
If conta>4 Then Exit Do
End If
Next
Loop
Scrivi "Abbinamenti x ambo: "+CStr(ns(1))+" - "+CStr(ns(2))+" - "+CStr(ns(3))+" - "+CStr(ns(4))
Scrivi "Cinquina x ambo e terno: "+CStr(nsp)+" - "+CStr(ns(1))+" - "+CStr(ns(2))+" - "+CStr(ns(3))+" - "+CStr(ns(4))

End Sub








[zagort]

di nuovo tante grazie per la modifica, son rimasto impressionato per la velocita di calcolo....peccato che non si possono inserire le formule era una bomba
ma i complimenti ti son dovuti tutti.

[lottopassion]

Non appena possibile inserisco la variante per le formule Ciao Zagort!!!