Novità

Girin-Girando su internet ho trovato...

stupl

Super member
Girin-Girando su internet ho trovato vari metodi per il 10 e lotto serale, ora ci vorrebbe solo un anima pia che ne faccia degli script per verificare l'esito di questi metodi, dato che ne sono 6 non voglio creare confusione mettendoli tutti insieme, quindi inizio a mettere il primo e man mano che lo script e pronto passo ai successivi, ovviamente sempre che lo script si possa creare magari è troppo difficile il metodo e non è possibile programmarlo, questo non saprei sarà l'esperto a dircelo.

Copio e incollo quello che c'era scritto riguardo al procedimento da seguire per questo primo metodo:


Prenderemo una estrazione del martedì, del giovedì o del sabato ed andremo a verificare che, tra i 20 numeri estratti, vi siano almeno 3 coppie di numeri diametrali.
Una volta rintracciate le tre coppie di numeri diametrali ricaveremo, tramite il nostro impianto, tre nuove coppie di numeri che costituiranno la nostra previsione.
Vediamo subito un caso concreto tratto dalla estrazione legata a quella del lotto tenutasi il 2 gennaio 2015.
Essa presentava, tra i 20 estratti, le tre coppie di numeri diametrali 17-62 / 21-66/ 24-69.
Partiamo dalla prima coppia 17-62 ed inseriamo i numeri nel nostro impianto:

Immagine.jpg
Cominceremo con il posizionare nella prima riga i due numeri che formano la prima coppia e riporteremo nelle due colonne Somme e Distanze i relativi valori, (nel nostro caso 17+62 = 79 e 62-17 = 45).

I due numeri della seconda riga saranno costituiti sempre dal numero maggiore della coppia di partenza (62) e dal valore somma della medesima (79).

Immagine1.jpg
Riportati in seconda riga i due numeri calcolati scriveremo nelle relative caselle i loro valori di somma (62+79 = 141-90 = 51) e distanza (79-62 = 17).

Per completare la terza riga occorrerà preliminarmente calcolare le somme tra le somme e le distanze già note:

79+51 = 130 – 90 = 40 45+17 = 62-45 = 17*

* ovviamente 62 è una distanza che non esiste visto che quella massima tra due numeri è pari a 45, per cui si sottrarrà il valore 45 dal risultato ottenuto.

Questo significa che i prossimi due numeri da inserire nell’impianto dovranno avere come somma il valore 40 e come distanza il valore 17. Per ottenerli applicheremo la formula somma+distanza/2.

Chiaramente visto che la somma di 40 e 17 produce 57 numero che non è divisibile per 2 dovremo ricorrere ad un artifizio, ovvero utilizzare il diametrale del valore somma 40 che è 85:

85+17 = 102 102 : 2 = 51

Il primo numero che cerchiamo sarà il 51. Ovviamente il secondo non potrà che essere il numero 34 che, di fatti, sommato a 51 da come risultato 51+34 = 85 e che dista di 17 unità da esso (51-34 = 17).

Immagine2.jpg
Siamo arrivati alla fine. Non ci resta che calcolare gli ultimi due numeri. Faremo la somma delle somme e la somma delle distanze ottenendo i due valori che, mediante la formula somma+distanza/2 ci indicheranno i due numeri finali.

79+51+40 = 170-90 = 80 45+17+17 = 79-45 = 34

La coppia che cerchiamo dovrà avere come somma 80 e come distanza 34:

80+34 = 114:2 = 57 80-57 = 23

Immagine23.jpg
Ripetendo i calcoli con gli altri due ambi diametrali avremo:
Immagine3.jpg
La nostra previsione finale consta di 5 numeri (come vede il 6 è ripetuto due volte). In tali casi si può anche optare per il gioco di soli 5 elementi (con il 3 che paga, in questi casi, 4 euro per ogni euro di giocata), ma noi consigliamo di sostituire il numero ripetuto con il rispettivo diametrale, nel caso in esame 51, cosa che determinava la seguente sestina in gioco: 6-9-23-36-51-57.

Esito: dopo 10 colpi uscirono i numeri 6-23-36 e due estrazioni dopo, ancora i numeri 23-36-57.

Vediamo il successivo caso rilevato, sempre in ordine di estrazione, che si verificò in occasione della estrazione legata a quella del lotto dell’8/1/2015 quando tra i 20 estratti si presentarono le 3 coppie diametrali 16-61 / 18-63 / 20-65.

Ecco la previsione che si sarebbe ricavata:

Immagine4.jpg
La sestina 19-27-30-51-63-80 impiegò solo 4 estrazioni per centrare i 3 numeri 30-51-80.

Potremmo continuare con decine di esempi, molti dei quali ben più clamorosi (siamo arrivati a contare fino a 6 punti sui 20 numeri estratti), ma lasciamo a voi il compito di verificare, anche per impratichirvi nel calcolo.

Ovviamente la cosa più importante diventa la posta da abbinare ai 6 numeri. Tenendo presente che il ciclo di gioco prevede di seguire la puntata per 12 estrazioni occorre una adeguata progressione di puntate che, visto il rapporto di premio 2:1 esistente, tenda per le prime 6-8 estrazioni ad ottenere la vincita netta e per le successive al recupero della posta complessivamente impiegata.

E questo è il primo metodo, sperando che si possa trasformare in script.

Grazie
 

Allegati

  • Immagine1.jpg
    Immagine1.jpg
    6,5 KB · Visite: 0
Ultima modifica:

stupl

Super member
+------------------------------------------------------------------------------------------------+ |
giovedì, ott 12 2017 |
+---------------------------------------------009381---------------------------------------------+
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Oro
--------------------------------------------------------------------------------------------------
16 18 20 25 29 30 33 48 51 53 54 58 63 69 74 75 82 84 86 87 51

Sortito Ambo Diametrale [18 - 63] In [02 - 13] Posizione
Sortito Ambo Diametrale [29 - 74] In [05 - 15] Posizione
Sortito Ambo Diametrale [30 - 75] In [06 - 16] Posizione
--------------------------------------------------------------------------------

Calcoli Primo Ambo [18 - 63]

_________|_S__|_D__|
|_18_|_63_|_81_|_45_|
|_63_|_81_|_54_|_18_|
|_54_|_36_|_45_|_18_|
|_63_|_27_|_90_|_36_|

Calcoli Secondo Ambo [29 - 74]

_________|_S_ |_D__|
|_29_|_74_|_13_|_45_|
|_74_|_13_|_87_|_29_| <---- Qui no
|_42_|_13_|_10_|_29_|
|_16,5_|_4_|_20_|_13_|

Calcoli Secondo Ambo [30 - 75]

_________|_S_ |_D__|
|_30_|_75_|_15_|_45_|
|_75_|_15_|_90_|_30_| <---- e neanche qui
|_45_|_15_|_15_|_30_|
|_22,5_|_8_|_30_|_15_|

Ciao magia ho lanciato lo script ed ho preso in esame questa estrazione del 12/10/17. Nella prima tabella i calcoli sono perfetti dall'inizio alla fine e quindi la riterrei funzionante, mentre nella seconda e terza tabella ho riscontrato un errore nella seconda riga di entrambe le tabelle alla colonna delle distanze e qui mi fermo perchè i calcoli di ogni riga successiva sono riferiti a quella precedente quindi continuare il controllo sarebbe inutile, comunque dandogli un'occhiata anche se errati puoi notare dei valori con virgola che non dovrebbero esserci. Come ho indicato con le freccette, nella seconda tabella la distanza tra 74 e 13 è 61 e no 29
e nella terza tabella la distanza tra 75 e 15 è 60 e no 30.

Grazie
 
Ultima modifica:

stupl

Super member
+------------------------------------------------------------------------------------------------+
| giovedì, ott 12 2017 |
+---------------------------------------------009381------------------------------------------+
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Oro
--------------------------------------------------------------------------------------------------
16 18 20 25 29 30 33 48 51 53 54 58 63 69 74 75 82 84 86 87 51
Sortito Ambo Diametrale [18 - 63] In [02 - 13] Posizione
Sortito Ambo Diametrale [29 - 74] In [05 - 15] Posizione
Sortito Ambo Diametrale [30 - 75] In [06 - 16] Posizione
--------------------------------------------------------------------------------

Calcoli Primo Ambo [18 - 63]

_________|_S__|_D__|
|_18_|_63_|_81_|_45_|
|_63_|_81_|_54_|_18_|
|_54_|_36_|_45_|_18_|
|_63_|_27_|_90_|_36_|

Calcoli Secondo Ambo [29 - 74]

_________|_S_ |_D__|
|_29_|_74_|_13_|_45_|
|_74_|_13_|_87_|_61_|
|_26_|_35_|_10_|_16_|
|_26_|_84_|_20_|_32_|

Calcoli Secondo Ambo [30 - 75]

_________|_S_ |_D__|
|_30_|_75_|_15_|_45_|
|_75_|_15_|_90_|_60_|
|_30_|_30_|_15_|_15_|
|_30_|_90_|_30_|_30_|

Ciao magia ho provato anche quest'altro script che hai postato ed ho incontrato altri errori sempre nella seconda e terza tabella, ma questa volta sulla terza riga:

Seconda tabella - come da metodo 10+16=26/2=13 quindi nella prima colonna della terza riga dovrebbe essere inserito il 13 al posto del 26, mentre nella seconda colonna al posto del 35 ci dovrebbe essere 87 infatti 87+13=100-90=10 che sarebbe la somma dei due numeri, quello che invece non ho capito è la distanza che è 16 e non saprei come ricavarla da queste operazioni ma forse questa anomalia per il metodo non conta, ma sinceramente non saprei.

Terza tabella stesso problema 15+15=30/2=15 quindi nella prima colonna della terza riga, al posto del 30 va messo 15 e nella seconda colonna al posto dell'altro 30 ci dev'essere 90 in modo che la somma sia 15 ma come per la seconda tabella anche qui c'è l'anomalia della distanza.

Grazie
 
Ultima modifica:

Alien.

Advanced Premium Member
magia;n2082201 ha scritto:
Buonasera,
Salutando tutti .
Provi il listato .
Codice:
Option Explicit
'Girin-Girando su internet ho trovato... di stupl
'https://forum.lottoced.com/forum/lottoced/area-download/2081939-girin-girando-su-internet-ho-trovato
'
'10 e Lotto: il gioco speculativo esiste
'http://www.lottoestrazioni.info/10elotto/10-e-lotto-il-gioco-speculativo-esiste/
Sub Main
Call ImpostaArchivio10ELotto(01)
'Dim Ini,FIn,Es : Ini = 8946 : FIn = 8958' EstrazioniArchivioDL

For Es = Ini To FIn : Call Messaggio(Es) : Call AvanzamentoElab(Ini,FIn,Es)
Dim Casi,QT : Casi = 00 : QT = 00
Dim P1,P2,P3,P4,P5,P6
Dim EstA1,EstA2,EstB1,EstB2,EstC1,EstC2
For P1 = 01 To 19 : For P2 = P1 + 01 To 20
EstA1 = EstrattoDL(Es,P1) : EstA2 = EstrattoDL(Es,P2)
If Distanza(EstA1,EstA2) = 45 Then
For P3 = P1 + 01 To 19 : For P4 = P3 + 01 To 20
EstB1 = EstrattoDL(Es,P3) : EstB2 = EstrattoDL(Es,P4)
If Distanza(EstB1,EstB2) = 45 Then
For P5 = P3 + 01 To 19 : For P6 = P5 + 01 To 20
EstC1 = EstrattoDL(Es,P5) : EstC2 = EstrattoDL(Es,P6)
If Distanza(EstC1,EstC2) = 45 Then
QT = QT + 01
If QT = 01 Then
Casi = Casi + 01
Call Informazioni(Casi,Es,EstA1,EstA2,EstB1,EstB2,EstC1,EstC2,P1,P2,P3,P4,P5,P6)
'
Dim Cal01,Cal02,Cal03,Cal04,Cal05,Cal06,Cal07,Cal08,Cal09,Cal10,Nume1,Nume2
Call CalcoloPrimoAmbo(EstA1,EstA2,Cal01,Cal02,Cal03,Cal04,Cal05,Cal06,Cal07,Cal08,Cal09,Cal10,Nume1,Nume2)
Call ScriviCalcoliPrimoAmbo(EstA1,EstA2,Cal01,Cal02,Cal03,Cal04,Cal05,Cal06,Cal07,Cal08,Cal09,Cal10,Nume1,Nume2)
'
Dim Cal11,Cal12,Cal13,Cal14,Cal15,Cal16,Cal17,Cal18,Cal19,Cal20,Nume3,Nume4
Call CalcoloSecondoAmbo(EstB1,EstB2,Cal11,Cal12,Cal13,Cal14,Cal15,Cal16,Cal17,Cal18,Cal19,Cal20,Nume3,Nume4)
Call ScriviCalcoliSecondoAmbo(EstB1,EstB2,Cal11,Cal12,Cal13,Cal14,Cal15,Cal16,Cal17,Cal18,Cal19,Cal20,Nume3,Nume4)
'
Dim Cal21,Cal22,Cal23,Cal24,Cal25,Cal26,Cal27,Cal28,Cal29,Cal30,Nume5,Nume6
Call CalcoloTerzoAmbo(EstC1,EstC2,Cal21,Cal22,Cal23,Cal24,Cal25,Cal26,Cal27,Cal28,Cal29,Cal30,Nume5,Nume6)
Call ScriviCalcoliTerzoAmbo(EstC1,EstC2,Cal21,Cal22,Cal23,Cal24,Cal25,Cal26,Cal27,Cal28,Cal29,Cal30,Nume5,Nume6)
'
Dim aNum : aNum = Array(00,Nume1,Nume2,Nume3,Nume4,Nume5,Nume6) : Call EliminaRipetuti(aNum)
Dim klp : klp = 12 : Call ImpostaGiocataDL(01,aNum,01,klp) : Call GiocaDL(Es)
End If
End If
Next : Next
End If
Next : Next
End If
Next : Next
Next
Call ScriviResocontoDL()
End Sub
Function Informazioni(Casi,Es,EstA1,EstA2,EstB1,EstB2,EstC1,EstC2,P1,P2,P3,P4,P5,P6)
Dim PriAmbo,SecAmbo,TerAmbo : PriAmbo = Array(00,EstA1,EstA2) : SecAmbo = Array(00,EstB1,EstB2) : TerAmbo = Array(00,EstC1,EstC2)
Dim PosPri,PosSec,PosTer : PosPri = Array(00,P1,P2) : PosSec = Array(00,P3,P4) : PosTer = Array(00,P5,P6)
Call Scrivi(String(125,"-") & " Caso n°" & Format2(Casi),True)
Call ScriviEstrazioneDL((Es) & " ",True)
Call Scrivi("Sortito Ambo Diametrale [" & StringaNumeri(PriAmbo," - ",True) & "] In [" & StringaNumeri(PosPri," - ",True) & "] Posizione",True)
Call Scrivi("Sortito Ambo Diametrale [" & StringaNumeri(SecAmbo," - ",True) & "] In [" & StringaNumeri(PosSec," - ",True) & "] Posizione",True)
Call Scrivi("Sortito Ambo Diametrale [" & StringaNumeri(TerAmbo," - ",True) & "] In [" & StringaNumeri(PosTer," - ",True) & "] Posizione",True)
Call Scrivi(String(80,"-"),True)
End Function
Sub CalcoloPrimoAmbo(EstA1,EstA2,Cal01,Cal02,Cal03,Cal04,Cal05,Cal06,Cal07,Cal08,Cal09,Cal10,Nume1,Nume2)
Cal01 = Fuori90(EstA1 + EstA2)
Cal02 = Distanza(EstA1,EstA2)
Cal03 = Fuori90(EstA2 + Cal01)
Cal04 = Differenza(EstA2,Cal01)
Cal05 = Fuori90(Cal01 + Cal03)
Cal06 = Fuori90(Cal02 + Cal04) : If Cal06 > 45 Then Cal06 = Fuori45(Cal02 + Cal04)
Cal07 = Fuori90(Cal05 + Cal06) : If dispari(Cal07) Then Cal07 =(((Diametrale(Cal05)) + Cal06)/02)
Cal08 = Distanza(Cal07,Cal04)
Cal09 = Fuori90(Cal01 + Cal03 + Cal05)
Cal10 = Fuori45(Cal02 + Cal04 + Cal06)
Nume1 =(Cal09 + Cal10)/02 : Nume2 = Fuori90(Cal09 - Nume1)
End Sub
'
Sub ScriviCalcoliPrimoAmbo(EstA1,EstA2,Cal01,Cal02,Cal03,Cal04,Cal05,Cal06,Cal07,Cal08,Cal09,Cal10,Nume1,Nume2)
Call Scrivi("Calcoli Primo Ambo [" & EstA1 & " - " & EstA2 & "]",True)
Call Scrivi(" _________",True)
Call Scrivi("__________|_S_ |_D__|",True)
Call Scrivi("|_" & Format2(EstA1) & "_|_" & Format2(EstA2) & "_|_" & Format2(Cal01) & "_|_" & Format2(Cal02) & "_|",True)
Call Scrivi("|_" & Format2(EstA2) & "_|_" & Format2(Cal01) & "_|_" & Format2(Cal03) & "_|_" & Format2(Cal04) & "_|",True)
Call Scrivi("|_" & Format2(Cal07) & "_|_" & Format2(Cal08) & "_|_" & Format2(Cal05) & "_|_" & Format2(Cal06) & "_|",True)
Call Scrivi("|_" & Format2(Nume1) & "_|_" & Format2(Nume2) & "_|_" & Format2(Cal09) & "_|_" & Format2(Cal10) & "_|",True)
Call Scrivi()
End Sub
Sub CalcoloSecondoAmbo(EstB1,EstB2,Cal11,Cal12,Cal13,Cal14,Cal15,Cal16,Cal17,Cal18,Cal19,Cal20,Nume1,Nume2)
Cal11 = Fuori90(EstB1 + EstB2)
Cal12 = Distanza(EstB1,EstB2)
Cal13 = Fuori90(EstB2 + Cal11)
Cal14 = Differenza(EstB2,Cal11)
Cal15 = Fuori90(Cal11 + Cal13)
Cal16 = Fuori90(Cal12 + Cal14) : If Cal16 > 45 Then Cal16 = Fuori45(Cal12 + Cal14)
Cal17 = Fuori90(Cal15 + Cal16) : If dispari(Cal17) Then Cal17 =(((Diametrale(Cal15)) + Cal16)/02)
Cal18 = Distanza(Cal17,Cal14)
Cal19 = Fuori90(Cal11 + Cal13 + Cal15)
Cal20 = Fuori45(Cal12 + Cal14 + Cal16)
Nume1 =(Cal19 + Cal20)/02 : Nume2 = Fuori90(Cal19 - Nume1)
End Sub
'
Sub ScriviCalcoliSecondoAmbo(EstB1,EstB2,Cal11,Cal12,Cal13,Cal14,Cal15,Cal16,Cal17,Cal18,Cal19,Cal20,Nume3,Nume4)
Call Scrivi("Calcoli Secondo Ambo [" & EstB1 & " - " & EstB2 & "]",True)
Call Scrivi(" _________",True)
Call Scrivi("__________|_S_ |_D__|",True)
Call Scrivi("|_" & Format2(EstB1) & "_|_" & Format2(EstB2) & "_|_" & Format2(Cal11) & "_|_" & Format2(Cal12) & "_|",True)
Call Scrivi("|_" & Format2(EstB2) & "_|_" & Format2(Cal11) & "_|_" & Format2(Cal13) & "_|_" & Format2(Cal14) & "_|",True)
Call Scrivi("|_" & Format2(Cal17) & "_|_" & Format2(Cal18) & "_|_" & Format2(Cal15) & "_|_" & Format2(Cal16) & "_|",True)
Call Scrivi("|_" & Format2(Nume3) & "_|_" & Format2(Nume4) & "_|_" & Format2(Cal19) & "_|_" & Format2(Cal20) & "_|",True)
Call Scrivi()
End Sub
'
Sub CalcoloTerzoAmbo(EstC1,EstC2,Cal21,Cal22,Cal23,Cal24,Cal25,Cal26,Cal27,Cal28,Cal29,Cal30,Nume5,Nume6)
Cal21 = Fuori90(EstC1 + EstC2)
Cal22 = Distanza(EstC1,EstC2)
Cal23 = Fuori90(EstC2 + Cal21)
Cal24 = Differenza(EstC2,Cal21)
Cal25 = Fuori90(Cal21 + Cal23)
Cal26 = Fuori90(Cal22 + Cal24) : If Cal26 > 45 Then Cal26 = Fuori45(Cal22 + Cal24)
Cal27 = Fuori90(Cal25 + Cal26) : If dispari(Cal27) Then Cal27 =(((Diametrale(Cal25)) + Cal26)/02)
Cal28 = Distanza(Cal27,Cal24)
Cal29 = Fuori90(Cal21 + Cal23 + Cal25)
Cal30 = Fuori45(Cal22 + Cal24 + Cal26)
Nume5 =(Cal29 + Cal30)/02 : Nume6 = Fuori90(Cal29 - Nume5)
End Sub
Sub ScriviCalcoliTerzoAmbo(EstC1,EstC2,Cal21,Cal22,Cal23,Cal24,Cal25,Cal26,Cal27,Cal28,Cal29,Cal30,Nume5,Nume6)
Call Scrivi("Calcoli Secondo Ambo [" & EstC1 & " - " & EstC2 & "]",True)
Call Scrivi(" _________",True)
Call Scrivi("__________|_S_ |_D__|",True)
Call Scrivi("|_" & Format2(EstC1) & "_|_" & Format2(EstC2) & "_|_" & Format2(Cal21) & "_|_" & Format2(Cal22) & "_|",True)
Call Scrivi("|_" & Format2(EstC2) & "_|_" & Format2(Cal21) & "_|_" & Format2(Cal23) & "_|_" & Format2(Cal24) & "_|",True)
Call Scrivi("|_" & Format2(Cal27) & "_|_" & Format2(Cal28) & "_|_" & Format2(Cal25) & "_|_" & Format2(Cal26) & "_|",True)
Call Scrivi("|_" & Format2(Nume5) & "_|_" & Format2(Nume6) & "_|_" & Format2(Cal29) & "_|_" & Format2(Cal30) & "_|",True)
Call Scrivi()
End Sub

Controllare Sempre .
Salvo Errori ed Omissis .



Ciao Magia scusa ma mi da errore ,questo da quando ho inserito l'ultima versione di spazio:


For Es = Ini To FIn : Call Messaggio(Es) : Call AvanzamentoElab(Ini,FIn,Es)

grazie.
 

stupl

Super member
Ecco il listato modificato da me, anche se non ci capisco nulla di script, ma comunque funzionante.

Codice:
Option Explicit
' --------------------
' 10eLotto speculativo
' --------------------
Sub Main
Call ImpostaArchivio10ELotto(01)
Dim Ini,Fin,Es
Fin = EstrazioneFinDL
Ini = Fin - 50
Casi = 00
For Es = Ini To Fin : Call Messaggio(Es) : Call AvanzamentoElab(Ini,Fin,Es)
Dim Casi,QT
QT = 00
Dim P1,P2,P3,P4,P5,P6
Dim EstA1,EstA2,EstB1,EstB2,EstC1,EstC2
For P1 = 01 To 19 : For P2 = P1 + 01 To 20
EstA1 = EstrattoDL(Es,P1) : EstA2 = EstrattoDL(Es,P2)
If Distanza(EstA1,EstA2) = 45 Then
For P3 = P1 + 01 To 19 : For P4 = P3 + 01 To 20
EstB1 = EstrattoDL(Es,P3) : EstB2 = EstrattoDL(Es,P4)
If Distanza(EstB1,EstB2) = 45 Then
For P5 = P3 + 01 To 19 : For P6 = P5 + 01 To 20
EstC1 = EstrattoDL(Es,P5) : EstC2 = EstrattoDL(Es,P6)
If Distanza(EstC1,EstC2) = 45 Then
QT = QT + 01
If QT = 01 Then
Casi = Casi + 01
Call Informazioni(Casi,Es,EstA1,EstA2,EstB1,EstB2,EstC1,EstC2,P1,P2,P3,P4,P5,P6)
'
Dim Som1,Som11,Cal01,Cal02,Cal03,Cal04,Cal05,Cal06,Cal07,Cal08,Cal09,Cal10,Nume1,Nume2
Call CalcoloPrimoAmbo(Som1,Som11,EstA1,EstA2,Cal01,Cal02,Cal03,Cal04,Cal05,Cal06,Cal07,Cal08,Cal09,Cal10,Nume1,Nume2)
Call ScriviCalcoliPrimoAmbo(EstA1,EstA2,Cal01,Cal02,Cal03,Cal04,Cal05,Cal06,Cal07,Cal08,Cal09,Cal10,Nume1,Nume2)
'
Dim Som2,Som22,Cal11,Cal12,Cal13,Cal14,Cal15,Cal16,Cal17,Cal18,Cal19,Cal20,Nume3,Nume4
Call CalcoloSecondoAmbo(Som2,Som22,EstB1,EstB2,Cal11,Cal12,Cal13,Cal14,Cal15,Cal16,Cal17,Cal18,Cal19,Cal20,Nume3,Nume4)
Call ScriviCalcoliSecondoAmbo(EstB1,EstB2,Cal11,Cal12,Cal13,Cal14,Cal15,Cal16,Cal17,Cal18,Cal19,Cal20,Num e3,Nume4)
'
Dim Som3,Som33,Cal21,Cal22,Cal23,Cal24,Cal25,Cal26,Cal27,Cal28,Cal29,Cal30,Nume5,Nume6
Call CalcoloTerzoAmbo(Som3,Som33,EstC1,EstC2,Cal21,Cal22,Cal23,Cal24,Cal25,Cal26,Cal27,Cal28,Cal29,Cal30, Nume5,Nume6)
Call ScriviCalcoliTerzoAmbo(EstC1,EstC2,Cal21,Cal22,Cal23,Cal24,Cal25,Cal26,Cal27,Cal28,Cal29,Cal30,Nume5,Nume6)
'
Dim aNum
If Nume1 = Nume2 Or Nume1 = Nume3 Or Nume1 = Nume4 Or Nume1 = Nume5 Or Nume1 = Nume6 Then Nume1 = Diametrale(Nume1)
If Nume2 = Nume3 Or Nume2 = Nume4 Or Nume2 = Nume5 Or Nume2 = Nume6 Then Nume2 = Diametrale(Nume2)
If Nume3 = Nume4 Or Nume3 = Nume5 Or Nume3 = Nume6 Then Nume3 = Diametrale(Nume3)
If Nume4 = Nume5 Or Nume4 = Nume6 Then Nume4 = Diametrale(Nume4)
If Nume5 = Nume6 Then Nume5 = Diametrale(Nume5)
aNum = Array(00,Nume1,Nume2,Nume3,Nume4,Nume5,Nume6): Call EliminaRipetuti(aNum)
Dim klp : klp = 12 : Call ImpostaGiocataDL(01,aNum,01,klp) : Call GiocaDL(Es)
End If
End If
Next : Next
End If
Next : Next
End If
Next : Next
Next
Call ScriviResocontoDL()
End Sub
Function Informazioni(Casi,Es,EstA1,EstA2,EstB1,EstB2,EstC1 ,EstC2,P1,P2,P3,P4,P5,P6)
Dim PriAmbo,SecAmbo,TerAmbo : PriAmbo = Array(00,EstA1,EstA2) : SecAmbo = Array(00,EstB1,EstB2) : TerAmbo = Array(00,EstC1,EstC2)
Dim PosPri,PosSec,PosTer : PosPri = Array(00,P1,P2) : PosSec = Array(00,P3,P4) : PosTer = Array(00,P5,P6)
Call Scrivi(String(100,"-") & " Caso n°" & Format2(Casi),True)
Call ScriviEstrazioneDL((Es) & " ",True)
Call Scrivi("Sortito Ambo Diametrale [" & StringaNumeri(PriAmbo," - ",True) & "] In [" & StringaNumeri(PosPri," - ",True) & "] Posizione",True)
Call Scrivi("Sortito Ambo Diametrale [" & StringaNumeri(SecAmbo," - ",True) & "] In [" & StringaNumeri(PosSec," - ",True) & "] Posizione",True)
Call Scrivi("Sortito Ambo Diametrale [" & StringaNumeri(TerAmbo," - ",True) & "] In [" & StringaNumeri(PosTer," - ",True) & "] Posizione",True)
Call Scrivi(String(56,"-"),True)
End Function
'
Sub CalcoloPrimoAmbo(Som1,Som11,EstA1,EstA2,Cal01,Cal0 2,Cal03,Cal04,Cal05,Cal06,Cal07,Cal08,Cal09,Cal10, Nume1,Nume2)
Cal01 = Fuori90(EstA1 + EstA2)
Cal02 = Distanza(EstA1,EstA2)
Cal03 = Fuori90(EstA2 + Cal01)
Cal04 = Differenza(EstA2,Cal01)
Cal05 = Fuori90(Cal01 + Cal03)
Cal06 = Fuori90(Cal02 + Cal04) : If Cal06 > 45 Then Cal06 = Fuori45(Cal02 + Cal04)
Som1 = Cal05 + Cal06
If dispari(Som1) Then Cal07 =((Diametrale(Cal05) + Cal06)/02) Else Cal07 =(Cal05 + Cal06)/02
If Cal07 >= Cal05 And Cal07 <= Cal06 Then Cal08 =(Cal05 + 90) - Cal07 Else Cal08 = Distanza(Cal07,Cal06)
Cal09 = Fuori90(Cal01 + Cal03 + Cal05)
Cal10 = Fuori45(Cal02 + Cal04 + Cal06)
Som11 = Cal09 + Cal10
If dispari(Som11) Then Nume1 =((Diametrale(Cal09) + Cal10)/02) Else Nume1 =(Cal09 + Cal10)/02
If Nume1 >= Cal09 And Nume1 <= Cal10 Then Nume2 =(Cal09 + 90) - Nume1 Else Nume2 = Fuori90(Cal09 - Nume1)
End Sub
Sub ScriviCalcoliPrimoAmbo(EstA1,EstA2,Cal01,Cal02,Cal 03,Cal04,Cal05,Cal06,Cal07,Cal08,Cal09,Cal10,Nume1 ,Nume2)
Call Scrivi("Calcoli Primo Ambo [" & EstA1 & " - " & EstA2 & "]",True)
Call Scrivi(" _________",True)
Call Scrivi(" _________|_S__|_D__|",True)
Call Scrivi("|_" & Format2(EstA1) & "_|_" & Format2(EstA2) & "_|_" & Format2(Cal01) & "_|_" & Format2(Cal02) & "_|",True)
Call Scrivi("|_" & Format2(EstA2) & "_|_" & Format2(Cal01) & "_|_" & Format2(Cal03) & "_|_" & Format2(Cal04) & "_|",True)
Call Scrivi("|_" & Format2(Cal07) & "_|_" & Format2(Cal08) & "_|_" & Format2(Cal05) & "_|_" & Format2(Cal06) & "_|",True)
Call Scrivi("|_" & Format2(Nume1) & "_|_" & Format2(Nume2) & "_|_" & Format2(Cal09) & "_|_" & Format2(Cal10) & "_|",True)
Call Scrivi()
End Sub
'
Sub CalcoloSecondoAmbo(Som2,Som22,EstB1,EstB2,Cal11,Ca l12,Cal13,Cal14,Cal15,Cal16,Cal17,Cal18,Cal19,Cal2 0,Nume3,Nume4)
Cal11 = Fuori90(EstB1 + EstB2)
Cal12 = Distanza(EstB1,EstB2)
Cal13 = Fuori90(EstB2 + Cal11)
Cal14 = Differenza(EstB2,Cal11)
Cal15 = Fuori90(Cal11 + Cal13)
Cal16 = Fuori90(Cal12 + Cal14) : If Cal16 > 45 Then Cal16 = Fuori45(Cal12 + Cal14)
Som2 = Cal15 + Cal16
If dispari(Som2) Then Cal17 =((Diametrale(Cal15) + Cal16)/02) Else Cal17 =(Cal15 + Cal16)/02
If Cal17 >= Cal15 And Cal17 <= Cal16 Then Cal18 =(Cal15 + 90) - Cal17 Else Cal18 = Distanza(Cal17,Cal16)
Cal19 = Fuori90(Cal11 + Cal13 + Cal15)
Cal20 = Fuori45(Cal12 + Cal14 + Cal16)
Som22 = Cal19 + Cal20
If dispari(Som22) Then Nume3 =((Diametrale(Cal19) + Cal20)/02) Else Nume3 =(Cal19 + Cal20)/02
If Nume3 >= Cal19 And Nume3 <= Cal20 Then Nume4 =(Cal19 + 90) - Nume3 Else Nume4 = Fuori90(Cal19 - Nume3)
End Sub
Sub ScriviCalcoliSecondoAmbo(EstB1,EstB2,Cal11,Cal12,C al13,Cal14,Cal15,Cal16,Cal17,Cal18,Cal19,Cal20,Num e3,Nume4)
Call Scrivi("Calcoli Secondo Ambo [" & EstB1 & " - " & EstB2 & "]",True)
Call Scrivi(" _________",True)
Call Scrivi(" _________|_S__|_D__|",True)
Call Scrivi("|_" & Format2(EstB1) & "_|_" & Format2(EstB2) & "_|_" & Format2(Cal11) & "_|_" & Format2(Cal12) & "_|",True)
Call Scrivi("|_" & Format2(EstB2) & "_|_" & Format2(Cal11) & "_|_" & Format2(Cal13) & "_|_" & Format2(Cal14) & "_|",True)
Call Scrivi("|_" & Format2(Cal17) & "_|_" & Format2(Cal18) & "_|_" & Format2(Cal15) & "_|_" & Format2(Cal16) & "_|",True)
Call Scrivi("|_" & Format2(Nume3) & "_|_" & Format2(Nume4) & "_|_" & Format2(Cal19) & "_|_" & Format2(Cal20) & "_|",True)
Call Scrivi()
End Sub
'
Sub CalcoloTerzoAmbo(Som3,Som33,EstC1,EstC2,Cal21,Cal2 2,Cal23,Cal24,Cal25,Cal26,Cal27,Cal28,Cal29,Cal30, Nume5,Nume6)
Cal21 = Fuori90(EstC1 + EstC2)
Cal22 = Distanza(EstC1,EstC2)
Cal23 = Fuori90(EstC2 + Cal21)
Cal24 = Differenza(EstC2,Cal21)
Cal25 = Fuori90(Cal21 + Cal23)
Cal26 = Fuori90(Cal22 + Cal24) : If Cal26 > 45 Then Cal26 = Fuori45(Cal22 + Cal24)
Som3 = Cal25 + Cal26
If dispari(Som3) Then Cal27 =((Diametrale(Cal25) + Cal26)/02) Else Cal27 =(Cal25 + Cal26)/02
If Cal27 >= Cal25 And Cal27 <= Cal26 Then Cal28 =(Cal25 + 90) - Cal27 Else Cal28 = Distanza(Cal27,Cal26)
Cal29 = Fuori90(Cal21 + Cal23 + Cal25)
Cal30 = Fuori45(Cal22 + Cal24 + Cal26)
Som33 = Cal29 + Cal30
If dispari(Som33) Then Nume5 =((Diametrale(Cal29) + Cal30)/02) Else Nume5 =(Cal29 + Cal30)/02
If Nume5 >= Cal29 And Nume5 <= Cal30 Then Nume6 =(Cal29 + 90) - Nume5 Else Nume6 = Fuori90(Cal29 - Nume5)
End Sub
Sub ScriviCalcoliTerzoAmbo(EstC1,EstC2,Cal21,Cal22,Cal 23,Cal24,Cal25,Cal26,Cal27,Cal28,Cal29,Cal30,Nume5 ,Nume6)
Call Scrivi("Calcoli Secondo Ambo [" & EstC1 & " - " & EstC2 & "]",True)
Call Scrivi(" _________",True)
Call Scrivi(" _________|_S__|_D__|",True)
Call Scrivi("|_" & Format2(EstC1) & "_|_" & Format2(EstC2) & "_|_" & Format2(Cal21) & "_|_" & Format2(Cal22) & "_|",True)
Call Scrivi("|_" & Format2(EstC2) & "_|_" & Format2(Cal21) & "_|_" & Format2(Cal23) & "_|_" & Format2(Cal24) & "_|",True)
Call Scrivi("|_" & Format2(Cal27) & "_|_" & Format2(Cal28) & "_|_" & Format2(Cal25) & "_|_" & Format2(Cal26) & "_|",True)
Call Scrivi("|_" & Format2(Nume5) & "_|_" & Format2(Nume6) & "_|_" & Format2(Cal29) & "_|_" & Format2(Cal30) & "_|",True)
Call Scrivi()
End Sub
 
Ultima modifica:

stupl

Super member
Ora, per favore, chiedo aiuto per quest'altro metodo per il 10 e lotto serale, questo metodo e stato sviluppato tenendo conto della prima estrazione annuale e si gioca per 18/20 colpi però vorrei che lo script chieda anche se farlo su indice mensile.
Il metodo si svolge in questo modo:

Dalla colonna del concorso che abbiamo selezionato per il pronostico effettueremo:
  1. La somma di tutti i gruppi di numeri (che dovranno essere minimo composti da 3 elementi e massimo da sei) che appartengano alla medesima decina;
  2. La somma dei primi 3 estratti e degli ultimi 3 estratti;
  3. La somma degli estratti centrali, ovvero 9°, 10°, 11° e 12° estratto, e di tale somma ricaveremo anche il complemento (differenza) a 90;
  4. La somma degli estremi, vale a dire 1° e 20° estratto, e di tale numero prenderemo i due elementi distanti una unità (ovvero a +1 e -1);
  5. La somma dei simmetrici, vale a dire 1° e 10° estratto ed 11° e 20° estratto; di questi due valori ricavati prenderemo in esame i due numeri distanti 30 unità (simmetrici);
  6. Abbinamento delle figure speculari, ovvero figura del 1° e dell’11° estratto e del 10° e del 20° estratto;
  7. La somma dei medi, cioè il 5° ed il 15° estratto;
  8. La somma degli incroci, ovvero 6° e 15° estratto ed 11° e 16° estratto.
Ecco un esempio sulla prima estrazione dell’anno 2012, quella tenutasi il 3 di gennaio e che ebbe la seguente colonna vincente:

Immagine.jpg

1. SOMMA GRUPPI IN DECINA:

Ne troviamo tre (6-8-9 / 11-14-15-17-18-19 / 73-75-77) ed otteniamo:

6+8+9 = 23 11+14+15+17+18+19 = 94-90 = 4 73+75+77 = 225-90 = 135-90 = 45

2. SOMMA PRIMI 3 ED ULTIMI 3 ESTRATTI:

6+8+9 = 23 77+80+82 = 239-90 = 149-90 = 59

3. SOMMA DEGLI ESTRATTI CENTRALI:

19+23+30+37 = 109 – 90 = 19 complementare a 90: 90-19 = 71

4. SOMMA DEGLI ESTREMI:

6+82 = 88 88+1 = 89 88-1 = 87

5. SOMMA DEI SIMMETRICI:

6+23 = 29 29+30 = 59 29+90 = 119-30 = 89

30+82= 22 22+30 = 52 22+90 = 112-30 = 82

6. ABBINAMENTO FIGURE SPECULARI:

6 figura 6 e 30 figura 3 = 63 23 figura 5 ed 82 figura 1 = 51

7. SOMMA DEI MEDI:

15+55 = 69

8. SOMMA DEGLI INCROCI:

6+73 = 79 15+30 = 45

Abbiamo ottenuto un gruppo di numeri che, tra l’altro, presenta degli elementi ripetuti.
Al netto delle ripetizioni individuiamo il gruppo di 14 numeri che costituisce la previsione in gioco

Immagine.jpg

Tale sequenza va seguita per un periodo di 18-20 concorsi.
----------------------------------------------------------------------------------------------------------------------------------------

Grazie
 
Ultima modifica:

Alien.

Advanced Premium Member
stupl;n2083099 ha scritto:
Ecco il listato modificato da me, anche se non ci capisco nulla di script, ma comunque funzionante.




Perfetto acc....e come hai fatto ? Non ci capisci nulla di script eppure lo hai fatto ma sei un genio è hhaahhaahah ciao.
 

stupl

Super member
Ho fatto solo piccole modifiche semplici che chiunque ci sarebbe riuscito avendo già lo script impostato, ho impiegato un bel po di tempo per farlo quindi altro che genio.
Comunque chiedo sempre aiuto per il secondo metodo che ho inserito sopra,
GRAZIE!!
 
Ultima modifica:

stupl

Super member
adispo2000;n2083340 ha scritto:
Raga perche' mi spunta questo?

Nota lo spazio che c'è tra Cal e 07 i due vanno uniti in Cal07, è un problema che sorge quando si copia e incolla sul forum, gli "a capo" lasciano sempre uno spazio vuoto quando si posta lo script, cmq ho provato a correggere lo script ricopialo di nuovo e se ti capita l'errore nota gli spazi ed eliminali unendo i due estremi.

P.S. Chiedo sempre aiuto per lo script del secondo metodo che ho postato sopra, c'è nessun scripter in giro?
Grazie
 
Ultima modifica:

stupl

Super member
stupl;n2083104 ha scritto:
Ora, per favore, chiedo aiuto per quest'altro metodo per il 10 e lotto serale, questo metodo e stato sviluppato tenendo conto della prima estrazione annuale e si gioca per 18/20 colpi però vorrei che lo script chieda anche se farlo su indice mensile.
Il metodo si svolge in questo modo:

Dalla colonna del concorso che abbiamo selezionato per il pronostico effettueremo:
  1. La somma di tutti i gruppi di numeri (che dovranno essere minimo composti da 3 elementi e massimo da sei) che appartengano alla medesima decina;
  2. La somma dei primi 3 estratti e degli ultimi 3 estratti;
  3. La somma degli estratti centrali, ovvero 9°, 10°, 11° e 12° estratto, e di tale somma ricaveremo anche il complemento (differenza) a 90;
  4. La somma degli estremi, vale a dire 1° e 20° estratto, e di tale numero prenderemo i due elementi distanti una unità (ovvero a +1 e -1);
  5. La somma dei simmetrici, vale a dire 1° e 10° estratto ed 11° e 20° estratto; di questi due valori ricavati prenderemo in esame i due numeri distanti 30 unità (simmetrici);
  6. Abbinamento delle figure speculari, ovvero figura del 1° e dell’11° estratto e del 10° e del 20° estratto;
  7. La somma dei medi, cioè il 5° ed il 15° estratto;
  8. La somma degli incroci, ovvero 6° e 15° estratto ed 11° e 16° estratto.
Ecco un esempio sulla prima estrazione dell’anno 2012, quella tenutasi il 3 di gennaio e che ebbe la seguente colonna vincente:



1. SOMMA GRUPPI IN DECINA:

Ne troviamo tre (6-8-9 / 11-14-15-17-18-19 / 73-75-77) ed otteniamo:

6+8+9 = 23 11+14+15+17+18+19 = 94-90 = 4 73+75+77 = 225-90 = 135-90 = 45

2. SOMMA PRIMI 3 ED ULTIMI 3 ESTRATTI:

6+8+9 = 23 77+80+82 = 239-90 = 149-90 = 59

3. SOMMA DEGLI ESTRATTI CENTRALI:

19+23+30+37 = 109 – 90 = 19 complementare a 90: 90-19 = 71

4. SOMMA DEGLI ESTREMI:

6+82 = 88 88+1 = 89 88-1 = 87

5. SOMMA DEI SIMMETRICI:

6+23 = 29 29+30 = 59 29+90 = 119-30 = 89

30+82= 22 22+30 = 52 22+90 = 112-30 = 82

6. ABBINAMENTO FIGURE SPECULARI:

6 figura 6 e 30 figura 3 = 63 23 figura 5 ed 82 figura 1 = 51

7. SOMMA DEI MEDI:

15+55 = 69

8. SOMMA DEGLI INCROCI:

6+73 = 79 15+30 = 45

Abbiamo ottenuto un gruppo di numeri che, tra l’altro, presenta degli elementi ripetuti.
Al netto delle ripetizioni individuiamo il gruppo di 14 numeri che costituisce la previsione in gioco



Tale sequenza va seguita per un periodo di 18-20 concorsi.
----------------------------------------------------------------------------------------------------------------------------------------

Grazie


Non c'è nessuno che mi può aiutare a fare questo script?
 

stupl

Super member
Grazie magia, ci provo come ho fatto con l'altro, spero di riuscirci, comunque quando ho finito ho un ultimo metodo da postare a cui chiederò sempre aiuto.
Per il "Brava", bhe! sono un uomo, forse hai sbagliato la lettera finale?
Ciao e di nuovo grazie.
 

stupl

Super member
Niente da fare questa parte dello script e quasi impossibile da fare, cioè si potrebbe pure fare ma ci vorrebbero una serie enorme di combinazioni IF che non credo che spaziometria riuscirebbe a reggere, chiedo aiuto agli esperti di spaziometria e chiedo se esiste una funzione adatta a fare questa tipo di operazione che chiede il metodo che ho postato sopra:
La somma di tutti i gruppi di numeri (che dovranno essere Minimo composti da 3 elementi e Massimo da 6) che appartengano alla medesima Decina

Grazie
 
Ultima modifica:

salvo50

Advanced Member >PLATINUM PLUS<
Il 10elotto non mi è mai interessato, però adesso sto cercando di capirci qualcosa e mi sto studiando il secondo script di Magia postato in questo topic, nell'output vedo all'inizio la scritta Oro, ma non riesco a capire da dove la prende quindi

Domanda per chi lo sà

come fa ha scrivere la parola Oro, dato che nel codice non l'ho trovata?
 
Ultima modifica:

stupl

Super member
salvo50;n2083648 ha scritto:
Il 10elotto non mi è mai interessato, però adesso sto cercando di capirci qualcosa e mi sto studiando il secondo script di Magia postato in questo topic, nell'output vedo all'inizio la scritta Oro, ma non riesco a capire da dove la prende quindi

Domanda per chi lo sà

come fa ha scrivere la parola Oro, dato che nel codice non l'ho trovata?

Non saprei ma credo che faccia parte dell'insieme delle EstrazioniArchivioDL anche se dal 1 ottobre di quest'anno hanno introdotto anche il doppio oro, comunque sia per quanto riguarda lo script non ha importanza l'oro, se puoi trovarmi un modo per risolvere il problema che postato mi faresti un grande piacere.
 

salvo50

Advanced Member >PLATINUM PLUS<
Lo sò che non ha importanza, ma io quando cerco di capire qualcosa, voglio capire tutto anche le cose più banali, è nel mio carattere, riguardo a quello che mi chiedi, man mano che vado avanti nello studio dello script arriverò anche a quello, per il momento sto cercando di capire altro, ma con calma, non è mica una gara.
 

stupl

Super member
salvo50;n2083673 ha scritto:
Lo sò che non ha importanza, ma io quando cerco di capire qualcosa, voglio capire tutto anche le cose più banali, è nel mio carattere, riguardo a quello che mi chiedi, man mano che vado avanti nello studio dello script arriverò anche a quello, per il momento sto cercando di capire altro, ma con calma, non è mica una gara.

Non era mia intenzione affrettarti, volevo solo dire che l'oro non è compreso come calcolo perchè l'oro già è un numero dei venti estratti, comunque fai bene come sei, le cose per essere fatte bene bisogna studiarle con calma partendo dalla base.
Grazie per l'aiuto
 

salvo50

Advanced Member >PLATINUM PLUS<
Ciao a Tutti!

Ho cancellato le due risposte, continuo nello studio, non dovrebbe essere difficile trovare l'errore, se c'è errore.
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 16 aprile 2024
    Bari
    49
    10
    76
    62
    26
    Cagliari
    42
    80
    16
    39
    65
    Firenze
    58
    22
    11
    86
    40
    Genova
    79
    14
    36
    51
    44
    Milano
    25
    27
    16
    77
    79
    Napoli
    70
    04
    51
    49
    71
    Palermo
    61
    65
    76
    53
    43
    Roma
    70
    86
    68
    80
    47
    Torino
    17
    71
    64
    72
    40
    Venezia
    22
    42
    39
    72
    30
    Nazionale
    83
    37
    81
    57
    78
    Estrazione Simbolotto
    Genova
    10
    14
    28
    18
    15
Alto