Novità

Script

Buona serata a tutti,per tanti di voi sarà più semplice di bere un bicchiere di acqua,per me invece ho provato con L8 prime versioni ci sono riuscito,con Spaziometria non riesco.
Si tratterebbe di fare uno script di questo metodino

prima estrazione del mese

primo di NAPOLI +21
primo di NAPOLI +61

I due risultati x ambata,ambo,ambetto su Nazionale

Grazie mille a tutti per l'attenzione,buon fine settimana
 
Non so se Ti può andare bene, ho aggiunto anche Napoli :

Option Explicit
Sub Main
' Script by Pandit per Scarfacetony da una sua idea
Dim es,Ruote(12),Nu(8),Posta(4)
Dim a,b,xa,k,x,x1,Ini,fin,poste(2)
Ruote(1) = 12': Ruote(2) = 12
Posta(1) = 1
Posta(2) = 1
poste(2) = 1
x1 = CInt(InputBox("Quante estrazioni di controllo?",,500))'
x = CInt(InputBox("Quanti colpi di gioco?",,9))'
k = x
Ini = EstrazioneFin - x1
fin = EstrazioneFin
For es = Ini To fin
Messaggio es
If IndiceMensile(es) = 1 Then
a = Fuori90(Estratto(es,6,1) + 21)
b = Fuori90(a + 61)
Nu(1) = a
Nu(2) = b
EliminaRipetuti Nu
ColoreTesto 1:Scrivi String(95,152)
Scrivi DataEstrazione(es) & " - " & SiglaRuota(1) & " - " & StringaEstratti(es,1) & " - " & SiglaRuota(1) & " -> " & CInt(a) & " -> " & CInt(b),1
ColoreTesto 1:Scrivi String(52,152)
ImpostaGiocata xa,Nu,Ruote,Posta,k
Gioca es,1
ColoreTesto 1:Scrivi " ---- AMBETTI ----",1
Scrivi
Nu(1) = a
Nu(2) = Fuori90(b + 1)
xa = xa + 1
ImpostaGiocata xa,Nu,Ruote,poste,k
Nu(1) = a
Nu(2) = Fuori90(90 + b - 1)
xa = xa + 1
ImpostaGiocata xa,Nu,Ruote,poste,k
Nu(1) = Fuori90(a + 1)
Nu(2) = b
xa = xa + 1
ImpostaGiocata xa,Nu,Ruote,poste,k
Nu(1) = Fuori90(90 + a - 1)
Nu(2) = b
xa = xa + 1
ImpostaGiocata xa,Nu,Ruote,poste,k
Gioca es,1
End If
Next
ScriviResoconto
End Sub
 
Ultima modifica:
Non so se Ti può andare bene, ho aggiunto anche Napoli :

Option Explicit
Sub Main
' Script by Pandit per Scarfacetony da una sua idea
Dim es,Ruote(12),Nu(8),Posta(4)
Dim a,b,xa,k,x,x1,Ini,fin,poste(2)
Ruote(1) = 6: Ruote(2) = 12
Posta(1) = 1
Posta(2) = 1
poste(2) = 1
x1 = CInt(InputBox("Quante estrazioni di controllo?",,500))'
x = CInt(InputBox("Quanti colpi di gioco?",,9))'
k = x
Ini = EstrazioneFin - x1
fin = EstrazioneFin
For es = Ini To fin
Messaggio es
If IndiceMensile(es) = 1 Then
a = Fuori90(Estratto(es,6,1) + 21)
b = Fuori90(a + 61)
Nu(1) = a
Nu(2) = b
EliminaRipetuti Nu
ColoreTesto 1:Scrivi String(95,152)
Scrivi DataEstrazione(es) & " - " & SiglaRuota(1) & " - " & StringaEstratti(es,1) & " - " & SiglaRuota(1) & " -> " & CInt(a) & " -> " & CInt(b),1
ColoreTesto 1:Scrivi String(52,152)
ImpostaGiocata xa,Nu,Ruote,Posta,k
Gioca es,1
ColoreTesto 1:Scrivi " ---- AMBETTI ----",1
Scrivi
Nu(1) = a
Nu(2) = Fuori90(b + 1)
xa = xa + 1
ImpostaGiocata xa,Nu,Ruote,poste,k
Nu(1) = a
Nu(2) = Fuori90(90 + b - 1)
xa = xa + 1
ImpostaGiocata xa,Nu,Ruote,poste,k
Nu(1) = Fuori90(a + 1)
Nu(2) = b
xa = xa + 1
ImpostaGiocata xa,Nu,Ruote,poste,k
Nu(1) = Fuori90(90 + a - 1)
Nu(2) = b
xa = xa + 1
ImpostaGiocata xa,Nu,Ruote,poste,k
Gioca es,1
End If
Next
ScriviResoconto
End Sub


ciao a tutti chiedo come modificare l'estrazione non in base al 1° del mese ma ad ogni estrazione
credo che la riga sia questa !

x1 = CInt(InputBox("Quante estrazioni di controllo?",,200))'
x = CInt(InputBox("Quanti colpi di gioco?",,20))'
k = x
Ini = EstrazioneFin - x1
fin = EstrazioneFin
 
devi togliere :
If IndiceMensile(es) = 1 Then
e
End If
alla fine, ma diminuisci le estrazioni di controllo, perchè
altrimenti solo per vederle ci impieghi mezzora.
 
Riscritto l'algoritmo.

Codice:
Option Explicit
Sub Main
     ' Script by Pandit per Scarfacetony da una sua idea
     Dim es,Ruote(12),Nu(8),Posta(4),poste(2)
     Dim a,b,xa,k,x,x1,Ini,fin,i_Mese,r_Ricerca,r_Esito,pos,caso
     Posta(1) = 1  ' Ambata
     Posta(2) = 1  ' ambo
     poste(2) = 0.25  ' ambo da Ambetto
     x1 = CInt(InputBox("Quante estrazioni di controllo?",,500) - 1)'
     x = CInt(InputBox("Quanti colpi di gioco?",,9))'
     i_Mese = CInt(InputBox("Indice Mese?",,1))
     r_Ricerca = InputBox("Ruota di ricerca? BA=1 ...  NZ=12 ",,6)
     pos = InputBox("Posiz estratto di ricerca? 1... 5 ",,1)
     r_Esito = InputBox("Ruota di verifica esito? ",,12)
     k = x
     Ruote(1) = r_Ricerca
     Ruote(2) = r_Esito

     Ini = EstrazioneFin - x1
     fin = EstrazioneFin
     For es = Ini To fin
          Messaggio NomeRuota(r_Ricerca) & " - " & es
          If IndiceMensile(es) = i_Mese Then ' remmare se non si usa IndiceMensile
          caso = caso + 1
               a = Fuori90(Estratto(es,r_Ricerca,pos) + 21) ' 1a ambata
               b = Fuori90(Estratto(es,r_Ricerca,pos) + 61) ' 2a ambata
               Nu(1) = a
               Nu(2) = b
               '' EliminaRipetuti Nu
               ColoreTesto 1 ' ":" evitarne  l'uso per non complicare la lettura altrui
               Scrivi String(95,155) & " caso n° " & caso
               Scrivi DataEstrazione(es) & " - " & SiglaRuota(r_Ricerca) & " - " & StringaEstratti(es,r_Ricerca) & " in gioco -> " & CInt(a) & " -> " & CInt(b),1
               ColoreTesto 1
               Scrivi String(52,152)
               xa = 0
               ImpostaGiocata  xa,Nu,Ruote,Posta,k
               Gioca  es,1,,1
               ColoreTesto 1
               Scrivi " ---- AMBETTI ----",1
               Scrivi
               Nu(1) = a
               Nu(2) = Fuori90(b + 1)
               xa = xa + 1
               ImpostaGiocata xa,Nu,Ruote,poste,k
               Nu(1) = a
               Nu(2) = Fuori90(90 + b - 1)
               xa = xa + 1
               ImpostaGiocata xa,Nu,Ruote,poste,k
               Nu(1) = Fuori90(a + 1)
               Nu(2) = b
               xa = xa + 1
               ImpostaGiocata xa,Nu,Ruote,poste,k
               Nu(1) = Fuori90(90 + a - 1)
               Nu(2) = b
               xa = xa + 1
               ImpostaGiocata xa,Nu,Ruote,poste,k
               Gioca es,1,,1

          End If ' remmare anche questa riga se non si usa IndiceMensile
     Next
     ScriviResoconto
End Sub
 
Non so se Ti può andare bene, ho aggiunto anche Napoli :

Option Explicit
Sub Main
' Script by Pandit per Scarfacetony da una sua idea
Dim es,Ruote(12),Nu(8),Posta(4)
Dim a,b,xa,k,x,x1,Ini,fin,poste(2)
Ruote(1) = 6: Ruote(2) = 12
Posta(1) = 1
Posta(2) = 1
poste(2) = 1
x1 = CInt(InputBox("Quante estrazioni di controllo?",,500))'
x = CInt(InputBox("Quanti colpi di gioco?",,9))'
k = x
Ini = EstrazioneFin - x1
fin = EstrazioneFin
For es = Ini To fin
Messaggio es
If IndiceMensile(es) = 1 Then
a = Fuori90(Estratto(es,6,1) + 21)
b = Fuori90(a + 61)
Nu(1) = a
Nu(2) = b
EliminaRipetuti Nu
ColoreTesto 1:Scrivi String(95,152)
Scrivi DataEstrazione(es) & " - " & SiglaRuota(1) & " - " & StringaEstratti(es,1) & " - " & SiglaRuota(1) & " -> " & CInt(a) & " -> " & CInt(b),1
ColoreTesto 1:Scrivi String(52,152)
ImpostaGiocata xa,Nu,Ruote,Posta,k
Gioca es,1
ColoreTesto 1:Scrivi " ---- AMBETTI ----",1
Scrivi
Nu(1) = a
Nu(2) = Fuori90(b + 1)
xa = xa + 1
ImpostaGiocata xa,Nu,Ruote,poste,k
Nu(1) = a
Nu(2) = Fuori90(90 + b - 1)
xa = xa + 1
ImpostaGiocata xa,Nu,Ruote,poste,k
Nu(1) = Fuori90(a + 1)
Nu(2) = b
xa = xa + 1
ImpostaGiocata xa,Nu,Ruote,poste,k
Nu(1) = Fuori90(90 + a - 1)
Nu(2) = b
xa = xa + 1
ImpostaGiocata xa,Nu,Ruote,poste,k
Gioca es,1
End If
Next
ScriviResoconto
End Sub
Grazie,dovrebbe giocare solo su Nazionale
 
Buona serata a tutti,per tanti di voi sarà più semplice di bere un bicchiere di acqua,per me invece ho provato con L8 prime versioni ci sono riuscito,con Spaziometria non riesco.
Si tratterebbe di fare uno script di questo metodino

prima estrazione del mese

primo di NAPOLI +21
primo di NAPOLI +61

I due risultati x ambata,ambo,ambetto su Nazionale

Grazie mille a tutti per l'attenzione,buon fine settimana

All'interno troverai il foglio scarfacetony, che salvo errori ed orrori, fa quello che chiedi, non solo per le ruote che hai chiesto ma per qualsiasi coppia di ruote.
All'inizio ti chiede la ruota da elaborare per trovare i due numeri, poi la ruota sulla quale fare la ricerca di eventuali ambate, ambi e ambetti, e per finire ti chiede l'estrazione prima, seconda ecc. fino solo alla quinta.

Il risultato è così:
1736942211529.png

Sotto "Ambata" i numeri che vedi 4,9 ecc. rappresentano quante estrazioni sono passate da quando sono stati trovati i due numeri (max 9 estrazioni).
Naturalmente è da controllare se i risultati sono corretti, lo puoi fare con script messi a disposizione da altri
Divertiti
Baciccia
 
Ultima modifica:
M'è parso di leggere o aver sentito dire che siamo nel 2025.

Alcuni "fatti" sembrano smentire queste "notizie" forse create dall' Intelligenza Artificiale!

Codice:
Option Explicit
Sub Main
   'prima estrazione del Mese
   'Primo di NAPOLI +21
   'Primo di NAPOLI +61
   'I due risultati x ambata,ambo (OMESSO: ambetto) su Nazionale
   Dim Es,E,Nu(2),Ru(1),Po(1),Bi(2)
   Ru(1) = NZ_:Po(1) = 1 : Bi(2) = 1
   For Es = 9000 To EstrazioneFin :Messaggio EstrazioneFin - Es 
      If IndiceMensile(Es) = 1 Then
         E = Estratto(Es,NA_,1)
         Nu(1) = Fuori90(E + 21)
         Nu(2) = Fuori90(E + 61)
         Call ImpostaGiocata(1,Nu,Ru,Po,9,1)
         Call ImpostaGiocata(2,Nu,Ru,Bi,20,2)
         Gioca Es,1
      End If
   Next
   ScriviResoconto
End Sub

:) Buona giornata
 
Ultima modifica:
Ho modificato un pochino lo script al messaggio #11.

Per chi vuole seguire queste poche considerazioni e riprodurle sul suo PC.

Riguardo lo script l' "IndiceMensile" (seguito da un numero)

sta ad indicare che si considera "UNA Estrazione", tra le tante possibili.

Questa scelta presuppone l'esistenza di una ragione sottesa e preesistente.

O perché è stata precedentemente svolta, una ricerca statistica e questo indice mensile

serve a SINCRONIZZARE ... i risultati (ottenuti dalla statistica) con le giocate, che si vorrebbero vincenti

Il che è un pò come dire: Giocare come e quando si deve e non a casaccio,

OPPURE serve semplicemente ad eliminare molte delle giocate che si genererebbero.

Perché così le 15 o le 20 Estrazioni presenti ogni mese, diventano ... UNA.

Infatti c'è solo una prima estrazione ogni mese!

ORA ... passiamo al grafico del rendiconto.

Si osserva che l'area è divisa in tante righe e colonne.

Ci sono 10 linee orizzontali che suddividono lo spazio che possiamo considerare in "verticale".

Pertanto sono zero nell'origine e poi 10% - 20% - 30% - 40% ... e cosi via fino al 100% di questo sviluppo verticale.

In orizzontale invece abbiamo delle divisioni che anch'esse partono da Zero e poi di 12 in 12 arrivano ad oggi a 120.

Perciò sono 12 - 24 - 36 - 48 ... fino a 120 dividendo il grafico in altrettante COLONNE.

Descritte molto sommariamente le scale di cui compone il grafico "10 Righe" PER "10 Colonne"

Esse suddividono l'area dell'intero grafico in "100 rettangoli" entro i quali sono disegnate alcune linee di diverso colore.

Immagine.jpg

La Linea Rossa in genere comincia dall'origine (ZERO-ZERO) in basso a sinistra per raggiungere il MASSIMO in alto a destra.

Divide il grafico in 2 PARTI.

Nella metà superiore "si vince" in quella SOTTO SI PERDE.

Va da sé ... che in questo rendiconto è un metodo mediamente perdente. (Tranne che nell'intorno di "A")

Come si vede chiaramente ogni linea è composta di tanti "punti" uniti da dei trattini dello stesso colore.

Questi punti sono allineati verticalmente e sono UNO per ogni caso considerato

Avendo detto che si parla di UNA Estrazione ogni Mese queste estrazioni raggruppate in dozzine cioè come 12 / 24 / 36 mesi

Esse diventano evidentemente 1 / 2 / 3 ... ANNI .. e pertanto il grafico riassume la statistica di circa 10 ANNI.

Il VALORE DI "A" sull'asse orizzontale è 30. Ovvero "A" rappresenta graficamente la giocata del 30° caso o mese.

IL VALORE DI "B" è sull'asse orizzontale è 71. Ovvero "B" rappresenta graficamente la giocata del 71° caso o mese.

E' pertanto evidente che sull'asse orizzontale, delle X o delle Ascisse è graduato in funzione del TEMPO ci sono i tempi.

Sull'asse Verticale (delle Y) abbiamo invece i valori, in Euro, degli andamenti economici rappresentati da linee di diverso colore

La LINEA VERDE rappresenta le VINCITE.

Vediamo che cresce velocemente subito prima di "A" e subito dopo "B" e che è "molto più orizzontale" tra "A" e "B".

Ovvero per 42 giocate comprese tra "A" e "B" ed anche ... per 42 mesi l'ammontare delle vincite è poco! (Cresce di poco).

Nel punto "A" dove la linea VERDE "Sovrasta" la linea ROSSA, si è detto che si sta vincendo.

Dunque in quel momento non si sta perdendo nulla ed il punto della linea FUXIA ... a rappresentare la perdita sarà a ZERO.

Rimane da descrivere la LINEA BLU ... che è presente solo in SPAZIOMETRIA. (Se non è stata opiata da altri)

:)
 
Ultima modifica:
Ringrazio Pandit, Mastrogino e Saturno17

riassumendo brevemente la legenda per i colori ed i valori rappresentati.

In orizzontale il tempo (che cresce verso destra)

In verticale i valori, in Euro (che crescono verso l'alto).

Le 4 linee di diverso colore sono in

Rosso la Spesa
Verde la Vincita
Fucsia la Perdita
Blu una linea di RIFERIMENTO.

RAPPRESENTA il quanto si dovrebbe aver VINTO / PERSO a quel determinato momento.

ORA, CONSIDERIAMO LA LINEA VERDE ed il suo crescere a tratti lineare e con dei gradini di tanto in tanto.

Ci sono 7 gradini dei quali uno è in prossimità del punto "A" in cui come già accennato questo metodo diventa positivo.

Vediamo perché:

Prima del primo gradino la linea verde per 18 mesi cresceva poco ad ogni mese totalizzando poche decine di Euro.

Poi improvvisamente c'è un incremento repentino fino a salire oltre la linea dei 284 Euro.

Sappiamo tutti che è per la vincita di un Ambo che "si vincono" importi di questo tipo.

Dunque a seguire nel tempo "verso destra" ogni alzata di un gradino è un Ambo vinto.

Ogni piccolo aumento invece è la realizzazione di qualche Estratto.

In analisi grafica ogni linea è caratterizzata da un modulo che ne caratterizza la pendenza.

Come abbiamo visto l'Ambo fa schizzare verso l'alto la pendenza della linea.

Che dai pochi gradi dei un angolo quasi piatto (5-10 gradi) diventa quasi verticale (75-80 gradi)

Cosìcché 3 Ambi in un periodo relativamente breve permettono di recuperare le perdite,

ed ottenere una vincita (al solito punto "A" (fine di un periodo buono))

Mentre il gioco di ambata riassunto dai tratti quasi orizzontali e molto "più piatti"

dell'andamento della linea BLU, stanno a rappresentare un vero e proprio errore nel giocare.

Cioè fanno perdere molto più del previsto e del prevedibile.

Le possibili cause sono come sempre, numeri scelti male (e con metodi sommativi),

giocate troppo lunghe ecc. ecc.

La "Sfortuna" recentemente introdotta dalle Venus

è difficile che le preceda e duri 10 anni con impressionante costanza.

Penso che un qualche consiglio e spunto utile si possa ricavare

e come si è dimostrato era facile poterlo ricavare.

:)
 
Grazie grande Joe, certe precisazioni sono molto utili a Tutti, e se posso regalare,
niente di perfetto, ma magari utile a qualche passante del forum...
Option Explicit
Sub Main
'Ci si prova by Pandit
Dim es,Ruote(12),Nu(8),Posta(4):Dim a,b,c,d,poste(10),nm(3),k
Ruote(1) = 8:Ruote(2) = 10
poste(7) = 1
poste(8) = 1
Posta(2) = 1
Posta(3) = 1
For es = 10300 To EstrazioneFin
If IndiceMensile(es) = 1 Then
a = Fuori90(Estratto(es,6,1) + 11)
b = Fuori90(Estratto(es,6,2) + 44)
c = Fuori90(Estratto(es,6,3) + 24)
d = Fuori90(Estratto(es,1,1) + 54)
'***
ColoreTesto 1:Scrivi String(87,152)
Scrivi DataEstrazione(es) & " - " & SiglaRuota(1) & " - " & StringaEstratti(es,1) & " - " & SiglaRuota(1) & " -> " & CInt(d),1
Scrivi DataEstrazione(es) & " - " & SiglaRuota(6) & " - " & StringaEstratti(es,6) & " - " & SiglaRuota(6) & " -> " & CInt(a) & " -> " & CInt(b) & " -> " & CInt(c),1
ColoreTesto 1:Scrivi String(58,152)
'***
k = 13
nm(1) = d
'***
Nu(1) = a
Nu(2) = b
Nu(3) = c
Nu(4) = d
EliminaRipetuti Nu
'***
ImpostaGiocata 1,nm,Ruote,poste,k
ImpostaGiocata 2,Nu,Ruote,Posta,k
Gioca es,1
End If
Next
ScriviResoconto
End Sub
 
Grazie grande Joe, certe precisazioni sono molto utili a Tutti, e se posso regalare,
niente di perfetto, ma magari utile a qualche passante del forum...
Option Explicit
Sub Main
'Ci si prova by Pandit
Dim es,Ruote(12),Nu(8),Posta(4):Dim a,b,c,d,poste(10),nm(3),k
Ruote(1) = 8:Ruote(2) = 10
poste(7) = 1
poste(8) = 1
Posta(2) = 1
Posta(3) = 1
For es = 10300 To EstrazioneFin
If IndiceMensile(es) = 1 Then
a = Fuori90(Estratto(es,6,1) + 11)
b = Fuori90(Estratto(es,6,2) + 44)
c = Fuori90(Estratto(es,6,3) + 24)
d = Fuori90(Estratto(es,1,1) + 54)
'***
ColoreTesto 1:Scrivi String(87,152)
Scrivi DataEstrazione(es) & " - " & SiglaRuota(1) & " - " & StringaEstratti(es,1) & " - " & SiglaRuota(1) & " -> " & CInt(d),1
Scrivi DataEstrazione(es) & " - " & SiglaRuota(6) & " - " & StringaEstratti(es,6) & " - " & SiglaRuota(6) & " -> " & CInt(a) & " -> " & CInt(b) & " -> " & CInt(c),1
ColoreTesto 1:Scrivi String(58,152)
'***
k = 13
nm(1) = d
'***
Nu(1) = a
Nu(2) = b
Nu(3) = c
Nu(4) = d
EliminaRipetuti Nu
'***
ImpostaGiocata 1,nm,Ruote,poste,k
ImpostaGiocata 2,Nu,Ruote,Posta,k
Gioca es,1
End If
Next
ScriviResoconto
End Sub

Ok,

in questo caso, anche eliminando Posta(3) e conseguentemente la vincita del terno presente ...

Le altre giocate hanno realizzato, buone vincite, sia costanti che frequenti

Tali da realizzare una buona vincita ed un rendiconto decisamente positivo.

In questo caso è evidente che c'è stato un precedente studio statistico.

Questo script lo dimostra confermando la presenza dei risultati precedentemente raccolti.

:)
 
Per Pandit e Joe ....
nello script di Pandit esaminato anche da Joe a fronte di queste istruzioni
ImpostaGiocata 1,nm,Ruote,poste,k
ImpostaGiocata 2,Nu,Ruote,Posta,k
il rendiconto mi da queste risultanze:
Spesa 1624,00
Guadagno 2627,86
ecc mentre se cambio così:
ImpostaGiocata 1,nm,Ruote,poste,k,,1,1
ImpostaGiocata 2,Nu,Ruote,Posta,k,,1,1
il rendiconto mi da queste risultanze:
Spesa 856
Guadagno 2083.04
siccome non ho capito bene ImpostaGiocata non capisco cosa ho combinato perchè nel secondo caso la percentuale di rendimento è maggiore? Cioè impostando così è più favorevole?
 

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 17 gennaio 2025
    Bari
    10
    87
    77
    23
    60
    Cagliari
    75
    33
    60
    24
    15
    Firenze
    45
    34
    66
    41
    17
    Genova
    05
    65
    15
    53
    86
    Milano
    20
    84
    74
    76
    01
    Napoli
    90
    29
    38
    52
    68
    Palermo
    33
    36
    02
    20
    68
    Roma
    68
    12
    59
    07
    74
    Torino
    03
    22
    29
    90
    28
    Venezia
    81
    24
    35
    18
    03
    Nazionale
    06
    31
    35
    89
    74
    Estrazione Simbolotto
    Bari
    14
    24
    17
    13
    08
Indietro
Alto