Novità

aiuto per uno script vincente

antoR

Member
Messaggi
80
Punti reazione
4
Punti
8
Chiedo aiuto agli esperti di script per formulare uno script credo complicato. Bisogna rintracciare in terza posizione di una qualsiasi ruota il numero 9 o che dia somma 9. Una volta rintracciato il numero, va sommato col fuori 90, ai primi 12 estratti che si trovano a sx, al numero rintracciato e ai primi 12 estratti che si trovano a dx, si hanno così un max di 25 numeri, eliminare i numeri uguali. Questa lunghetta va giocata sulla ruota dove si è rintracciato il numero 9 o che dia somma 9. Dai test fatti a mano la lunghetta da l'ambo in meno di 5 colpi su ruota. Possibilmente l'imput per il range di estrazione/ricerca deve essere dato di volta in volta. Ringrazio chi può elaborare questo script.
Esempio: rintracciato su roma il 63 6+3=9 i numeri estratti a dx e sx
14 56 22 6 80 42 18 34 52 38 73 61 63 21 15 74 10 72 60 32 27 50 42 38 41
Ogni numero sommato al 63 da questa lunghetta da giocare a roma
77 29 85 69 53 15 81 7 25 11 46 34 36 84 78 47 73 45 33 5 90 23 14
 
Ultima modifica:

Alien.

Advanced Premium Member
Messaggi
20.471
Punti reazione
113
Punti
63
Non ho capito i numeri estratti a dx e sx ..................
 

antoR

Member
Messaggi
80
Punti reazione
4
Punti
8
Alien ho fatto l'esempio. Comunque una volta trovato il 9 o la somma dei numeretti che formano 9 ( 90 = 9+0 =9) 18-81-27-72-36-63-45-54 questi formano tutti il 9 sommandoli. il nove deve essere al centro dell'estrazione su ruota es.
Roma 19-11-2019 sono usciti 73 61 63 21 15 come si vede il 63 (6+3=9) si ha avuto la condizione per poter giocare. adesso mettendo tutte le estrazioni in modo orizzontale si conta a partire dal 63 i 12 numeri che si trovano alla sua sx e 12 alla sua dx e si sommano al 63 ottenendo la lunghetta...

questa lunghetta su Roma ha dato il terno 7 47 73 e su Torino l' altra ruota dove c'era anche la condizione ha dato il l'ambo 14 53 dopo solo il secondo colpo...
 

magia

Super Member >PLATINUM<
Messaggi
493
Punti reazione
16
Punti
18
Buonasera ,
Salutando gli intervenuti .
Postiamo il listato della ricerca .
Abbiamo inziato dalla ruota di FIRENZE , per arrivare alla ruota di ROMA ,
in modo di avere i 10 estratti prima e dopo .

Option Explicit
'aiuto per uno script vincente di antoR
'https://forum.lottoced.com/threads/aiuto-per-uno-script-vincente.2191318/
Sub Main()
Dim Cont : Cont = InputBox("ESTRAZIONI DI CONTROLLO",,100)
Dim aColpi : aColpi = InputBox("COLPI DI CONTROLLO",,5)
Dim nSorte : nSorte = ScegliSorte
Dim Ruo,Pos,aSpia
Dim aNumM10,aNumM05,aNumP05,aNumP10
Dim NU,CONTA
Dim aNumeri(24)
Dim Ini,fin,es,casi : Ini = EstrazioneFin - Cont : fin = EstrazioneFin : casi = 00
For es = Ini To fin : Call Messaggio(es) : Call AvanzamentoElab(Ini,fin,es)
For Ruo = 03 To 08
Pos = 03 : aSpia = Estratto(es,Ruo,Pos)
If aSpia = 09 Or Figura(aSpia) = 09 Then
ReDim aRuota(01) : aRuota(01) = Ruo
Call aGetIntestazione(casi,es,aSpia,Ruo,Pos)
Call aGetNumeriInGioco(es,Ruo,aSpia,aNumeri,aNumM10,aNumM05,aNumP05,aNumP10)
Call ContaNumeriinGioco(aNumeri,NU,CONTA,nSorte)
Call VerificaEsitoNumeri(aNumeri,aRuota,nSorte,es,aColpi,fin)
End If
Next
Next
End Sub
Function ScegliSorte()
Dim aVoci : aVoci = Array(aVoci,"Estratto","Ambo","Terno","Quaterna","Cinquina")
ScegliSorte = ScegliOpzioneMenu(aVoci,02,"Scegli Tipo Sorte")
End Function
Function aGetIntestazione(casi,es,aSpia,Ruo,Pos)
Dim EE,PP : casi = casi + 01 : Call Scrivi(String(125,"-") & " Caso n° " & Format2(casi),True)
Call ColoreTesto(vbBlack) : Call Scrivi("Estrazione n." & Format2(es) & " del " & DataEstrazione(es),True,False)
Call Scrivi(" " & SiglaRuota(Ruo) & " ",True,False)
For PP = 01 To 05 : EE = Estratto(es,Ruo,PP)
If EE = aSpia Then
Call ColoreTesto(vbRed)
Else
Call ColoreTesto(vbBlack)
End If
Call Scrivi(Format2(EE) & " ",True,False) : Call ColoreTesto(vbBlack)
Next
Call Scrivi()
End Function
Function aGetNumeriInGioco(es,Ruo,aSpia,aNumeri,aNumM10,aNumM05,aNumP05,aNumP10)
Call GetArrayNumeriRuota(es,Ruo - 02,aNumM10) : Call GetArrayNumeriRuota(es,Ruo - 01,aNumM05)
Call GetArrayNumeriRuota(es,Ruo + 01,aNumP05) : Call GetArrayNumeriRuota(es,Ruo + 02,aNumP10)
aNumeri(01) = Fuori90(aSpia + aNumM10(01)) : aNumeri(02) = Fuori90(aSpia + aNumM10(02))
aNumeri(03) = Fuori90(aSpia + aNumM10(03)) : aNumeri(04) = Fuori90(aSpia + aNumM10(04))
aNumeri(05) = Fuori90(aSpia + aNumM10(05)) : aNumeri(06) = Fuori90(aSpia + aNumM05(01))
aNumeri(07) = Fuori90(aSpia + aNumM05(02)) : aNumeri(08) = Fuori90(aSpia + aNumM05(03))
aNumeri(09) = Fuori90(aSpia + aNumM05(04)) : aNumeri(10) = Fuori90(aSpia + aNumM05(05))
aNumeri(11) = Fuori90(aSpia + Estratto(es,Ruo - 00,01)) : aNumeri(12) = Fuori90(aSpia + Estratto(es,Ruo - 00,02))
aNumeri(13) = Fuori90(aSpia + Estratto(es,Ruo + 00,04)) : aNumeri(14) = Fuori90(aSpia + Estratto(es,Ruo + 00,05))
aNumeri(15) = Fuori90(aSpia + aNumP05(01)) : aNumeri(16) = Fuori90(aSpia + aNumP05(02))
aNumeri(17) = Fuori90(aSpia + aNumP05(03)) : aNumeri(18) = Fuori90(aSpia + aNumP05(04))
aNumeri(19) = Fuori90(aSpia + aNumP05(05)) : aNumeri(20) = Fuori90(aSpia + aNumP10(01))
aNumeri(21) = Fuori90(aSpia + aNumP10(02)) : aNumeri(22) = Fuori90(aSpia + aNumP10(03))
aNumeri(23) = Fuori90(aSpia + aNumP10(04)) : aNumeri(24) = Fuori90(aSpia + aNumP10(05))
Call EliminaRipetuti(aNumeri)
End Function
Function ContaNumeriinGioco(aNumeri,Nu,CONTA,nSorte)
CONTA = 00 : Nu = Split("00." & StringaNumeri(aNumeri,,True),".")
Dim Num : For Num = 01 To UBound(Nu) : CONTA = CONTA + 01 : Next
Call Scrivi("G 0001 Numeri in gioco : [ " & Format2(CONTA) & " ] " & _
StringaNumeri(aNumeri,,True) & " per " & NomeSorte(nSorte),True)
End Function
Function VerificaEsitoNumeri(aNumeri,aRuota,nSorte,es,aColpi,fin)
Dim klp,xlp,SF : klp = 01 : SF = 00
For xlp = 01 To aColpi : SF = SerieFreqTurbo(es + xlp,es + xlp,aNumeri,aRuota,AMBATA_)
Dim RetEsito,RetColpi,RetEstratti,RetIdEstr
Call VerificaEsitoTurbo(aNumeri,aRuota,es + xlp,nSorte,klp,,RetEsito,RetColpi,RetEstratti,RetIdEstr)
If RetEsito <> "" Then
Call ColoreTesto(02)
Call Scrivi("V N. [" & FormatSpace(StringaNumeri(aNumeri,,True),75) & "] [" & _
RetEstratti & " ] C. " & FormatSpace(xlp,03,True) & " " & FormatSpace(RetEsito,11) & _
"( " & SF & " ) " & FormattaStringa(es + xlp,"00000") & " [" & IndiceAnnuale(es + xlp) & " - " & _
DataEstrazione(es + xlp,,,"/") & "]",True) : Call ColoreTesto(00)
ElseIf RetEsito = "" And RetColpi < klp Then
Call ColoreTesto(00) : Call Scrivi() : Call Scrivi("in corso per altre " & aColpi - xlp + 01 & _
" estrazioni",True) : Call Scrivi() : Call ColoreTesto(00)
Else
RetEsito =(" ") : RetEstratti =(" .. .. .. .. ..")
Call ColoreTesto(00) : Call Scrivi(" N. [" & FormatSpace(StringaNumeri(aNumeri,,True),75) & "] [" & _
RetEstratti & " ] C. " & FormatSpace(xlp,03,True) & " " & FormatSpace(RetEsito,11) & "( " & _
SF & " ) " & FormattaStringa(es + xlp,"00000") & " [" & IndiceAnnuale(es + xlp) & " - " & _
DataEstrazione(es + xlp,,,"/") & "]",True) : Call ColoreTesto(00)
End If
If es + xlp > fin Then Exit For
Next : Call Scrivi()
End Function

Controllare Sempre .
Salvo Errori ed Omissis .
 

Alien.

Advanced Premium Member
Messaggi
20.471
Punti reazione
113
Punti
63
ok ma .......Cavoli ma poi come si mettono in gioco i 21 numeri ?
 

salvo50

Advanced Member >PLATINUM PLUS<
Messaggi
2.044
Punti reazione
53
Punti
48
Ciao a Tutti.



Con 23 numeri si formano 253 ambi, l'ambo paga 235 volte la posta, vuol dire che se punti un euro sull'ambo e se esce al primo colpo vinci 0,928 euro cioè circa 93 centesimi, meno di quello che hai puntato e sempre se riesci a trovare un sistema che contenga tutti 253 ambi che si formano con 23 numeri senza ripetizioni, poi che fai punti solo l'ambo non metti qualcosa anche sul terno, quaterna e cinquina, se escono poi uno ci rimane male ,il terno paga 2,45 euro per ogni euro puntato, la quaterna paga più o meno 13 euro per ogni euro puntato e la cinquina 156 euro per ogni euro puntato.

Quindi pensa se non escono al primo colpo, Le perdite se non esce il terno ci sono anche se esce l'ambo al primo colpo, poi una cosa che non molti sanno, con una quantità di numeri superiore a 20, forse 19 non ricordo bene, se esce un solo terno, cioè che non c'è la quaterna perchè con la quaterna i terni sarebbero 4, ricapitoliamo, nel caso ci sia un solo terno ed abbiamo puntato ad esempio 1 euro sull'ambo ed un euro sul terno, in questo caso l'ambo viene pagato più del terno
e lo dimostro
Sopra ho scritto che con 23 numeri il terno paga 2,45 volte la posta
L'ambo paga 0,92 volte la posta

Ma se esce il terno ambi se ne fanno 3, quindi 0,92 * 3 = 2,76

quindi
rendita dell'ambo euro 2,76 per ogni euro puntato sull'ambo, se esce un terno
rendita del terno euro 2,45 per ogni euro puntato sul terno, se esce un terno

e più sono i numeri e più alto è il rendimento dell'ambo rispetto al terno
 
Ultima modifica:

antoR

Member
Messaggi
80
Punti reazione
4
Punti
8
Salvo, grazie del tuo intervento, le formazioni che scaturiscono da questa implementazione metodica sono vincenti, il problema è ridurle tenendo alte le vincite… ci sto lavorando. Se qualcuno potesse implementare uno script per la ricerca in modo da tagliare i numeri...
 

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 07 dicembre 2019
    Bari
    19
    09
    20
    16
    01
    Cagliari
    76
    60
    80
    06
    47
    Firenze
    43
    88
    78
    73
    83
    Genova
    46
    20
    79
    54
    04
    Milano
    30
    31
    46
    24
    19
    Napoli
    42
    86
    20
    06
    07
    Palermo
    66
    04
    81
    53
    09
    Roma
    55
    81
    32
    25
    13
    Torino
    69
    21
    52
    32
    72
    Venezia
    44
    22
    37
    80
    32
    Nazionale
    19
    88
    32
    60
    90
Alto