Novità

Se possibile uno script x salvo50 : Metodo " GLI ZERATI" di Zannella Pascquale

Matematico

Advanced Member >PLATINUM<
Se possibile uno script x salvo50 : Metodo " GLI ZERATI" di Zannella Pascquale

Ciao a tutti, questo è un metodo di Zannella Pascquale , non sàò se è già stato fatto il listato ...mi farebbe piacere poterlo testare a vantaggio di tutti i forumini anche :)
Se possibile sarebbe utile un imput box x inserire a scelta gli zerati voluti grazie 1000.
GLI ZERATI





La procedura di che trattasi è applicabile, in una qualsiasi estrazione, ogni qualvolta si rileva in analoga posizione e su due ruote - preferibilmente consecutive - la presenza di due differenti numeri zerati.

Nel caso in cui non si rilevassero due zerati su ruote adiacenti si potranno considerare anche elementi estratti su compartimenti non consecutivi.

Riscontrata la presenza di due elementi aventi le caratteristiche innanzi citate, per formulare la previsione si procederà nel seguente modo:

abbinare, secondo l’ordine di sortita, le figure dei due numeri zerati : otterrete così il pronostico di ambata; il vertibile dello stesso rappresenterà l’eventuale ambata di recupero spesa.

Ricavato il pronostico d’ambata si potrà scommettere anche per l’esito di ambo e terno, procedendo secondo le seguenti modalità:



calcolare la differenza aritmetica intercorrente tra il fisso 91 e lo zerato rilevato sulla prima ruota: otterrete così un primo numero che convenzionalmente definiamo "NUMERO CHIAVE A";



calcolare la differenza aritmetica intercorrente tra il fisso 91 e lo zerato rilevato sulla seconda ruota: otterrete così un secondo numero che convenzionalmente definiamo "NUMERO CHIAVE B";



Per le sorti di ambo e terno si giocherà una quartina costituita dal numero ambata, dal vertibile dello stesso e dai due elementi denominati A e B.

Tale quartina andrà scommessa, con delle appropriate progressioni, sulle due ruote di riferimento e per recupero su tutte.

Al fine di facilitarvi una sollecita comprensione della teoria esposta, passo ad illustrarvi degli esempi pratici reali.



ESTRAZIONE DEL 26/07/2000


SU GENOVA SORTIRONO7969748012
SU MILANO SORTIRONO5358542039





Sui compartimenti sopra indicati, in quarta posizione, si rilevò la presenza degli zerati 80 e 20

Tali estratti, come da spiegazioni, presentavano le caratteristiche idonee per redigere il pronostico.

Quindi:

91 – 80 = 11

91 – 20 = 71

abbinamento figura 8 con quella del 2 = 82 (ambata)



Completate le operazioni sopra evidenziate, scaturì il seguente pronostico:

ambata 82 da giocarsi su Genova e Milano; quartina 82-28-11-71 da scommettere per ambo e terno su Genova Milano e tutte.

L'esito di tale previsione fu il seguente:

al 2° colpo di gioco su Genova sortì l’ambata 82 e l’ambo 82-71 !!





ALTRO ESEMPIO

ESTRAZIONE DEL 02/09/2000


SU FIRENZE SORTIRONO5729776055
SU ROMA SORTIRONO4457184082





Gli elementi rilevati in quarta posizione avevano i requisiti richiesti.

Si procedette, pertanto, operando secondo i criteri già messi in evidenza con il precedente caso giocabile, alla formulazione della previsione.



91 – 60 = 31

91 – 40 = 51

64 * (abbinamento figure del 60 e 40)



Eseguite le operazioni sopra indicate, la previsione risultò essere composta da:

ambata 64 da giocarsi su Firenze e Roma;

quartina 64-46-31-51 da scommettere per l’esito di ambo e terno sulle ruote di riferimento ed a tutte.

L'esito della suddetta previsione fu strepitoso!

Al 1° colpo di gioco, infatti, su Firenze sortì l’ambata 64 mentre su Roma sortì, oltre all’ambata 64, anche l’ambo 64- 31
 

franca46

Advanced Member >PLATINUM PLUS<
ciao Matematico , se può esserti utile ho questo , ma non ruote consecutive

Codice:
'Zerati su 2rt isotopi in due ruote qualsiasi
Sub main()
Dim rt(2),ru(1)
Dim nu(2),nu1(5)
Dim posta(1),poste(3)
posta(1)=1
poste(2)=1 : poste(3)=1
clp=12 'colpi di gioco

ini=EstrazioneFin -100
fin=EstrazioneFin
co=0
For es=ini To fin
 Messaggio es
 For r=1 To 10
    rt(1)=r
    For p=1 To 5
       a=Estratto (es,r,p)
       If Cadenza (a)=0 Then
          For rr=r+1 To 11
          If rr=11 Then rr=12
          rt(2)=rr
          b=Estratto (es,rr,p)
                          If Cadenza (b)=0 Then
             co=co+1
Scrivi String (55,"=")&" Caso n°"& co
Scrivi DataEstrazione (es)&"  "& SiglaRuota (r)&"  "& StringaEstratti (es,r)&"  Zerato "&a&" in pos."&p
Scrivi DataEstrazione (es)&"  "& SiglaRuota (rr)&"  "& StringaEstratti (es,rr)&"  Zerato "&b&" in pos."&p

             nu(1)=Figura(a)&Figura(b)
             nu(2)=Vert (nu(1))
             ImpostaGiocata 1,nu,rt,posta,clp
             nu1(1)=nu(1)
             nu1(2)=nu(2)
             nu1(3)=91-(a)
             nu1(4)=91-(b)

             ImpostaGiocata 2,nu1,rt,poste,clp
             ru(1)=11
             ImpostaGiocata 3,nu1,ru,poste,clp

             Gioca es

                          End If
                       Next
       End If
    Next
 Next
Next
ScriviResoconto
End Sub

buon pomeriggio
 
Ultima modifica:

claudio8

Premium Member
Il listato considera anche le ruote consecutive.

Con questa modifica ( inserire riga in rosso dopo "co = co + 1" )

If Cadenza(b) = 0 Then
co = co + 1
posizione e riga da inserire ---> If r = rr - 1 Or r =10 And rr = 12 Then Scrivi String(55,"=") & " Attenzione... ruote consecutive",,,3,2
Scrivi String(55,"=") & " Caso n°" & co

evidenzierà i casi di ruote adiacenti compreso Ve con Naz.

un saluto
 

cavaleri

Super Member >GOLD<
claudio8;n2138691 ha scritto:
Il listato considera anche le ruote consecutive.

Con questa modifica ( inserire riga in rosso dopo "co = co + 1" )

If Cadenza(b) = 0 Then
co = co + 1
posizione e riga da inserire ---> If r = rr - 1 Or r =10 And rr = 12 Then Scrivi String(55,"=") & " Attenzione... ruote consecutive",,,3,2
Scrivi String(55,"=") & " Caso n°" & co

evidenzierà i casi di ruote adiacenti compreso Ve con Naz.

un saluto

Scusami, possiamo avere il listato completo, fatto da voi; perchè a me dà errore.
Grazie:(:(:(
 

cavaleri

Super Member >GOLD<
claudio8;n2138691 ha scritto:
Il listato considera anche le ruote consecutive.

Con questa modifica ( inserire riga in rosso dopo "co = co + 1" )

If Cadenza(b) = 0 Then
co = co + 1
posizione e riga da inserire ---> If r = rr - 1 Or r =10 And rr = 12 Then Scrivi String(55,"=") & " Attenzione... ruote consecutive",,,3,2
Scrivi String(55,"=") & " Caso n°" & co

evidenzierà i casi di ruote adiacenti compreso Ve con Naz.

un saluto

Scusami, possiamo avere il listato completo, fatto da voi; perchè a me dà errore.
Grazie:(:(:(
 

cavaleri

Super Member >GOLD<
claudio8;n2139433 ha scritto:
Posta pure il listato che vediamo dove ti da errore.
ciao

OK! eccolo:
'Zerati su 2rt isotopi in due ruote qualsiasi
Sub main()
Dim rt(2),ru(1)
Dim nu(2),nu1(5)
Dim posta(1),poste(3)
posta(1)=1
poste(2)=1 : poste(3)=1
clp=12 'colpi di gioco

ini=EstrazioneFin -100
fin=EstrazioneFin
co=0
For es=ini To fin
Messaggio es
For r=1 To 10
rt(1)=r
For p=1 To 5
a=Estratto (es,r,p)
If Cadenza (a)=0 Then
For rr=r+1 To 11
If rr=11 Then rr=12
rt(2)=rr
b=Estratto (es,rr,p)
If Cadenza (b)=0 Then
co=co+1
If r = rr - 1 Or r =10 And rr = 12 Then Scrivi String(55,"=") & "
Attenzione... ruote consecutive",,,3,2
Scrivi String(55,"=") & " Caso n°" & co
Scrivi String (55,"=")&" Caso n°"& co
Scrivi DataEstrazione (es)&" "& SiglaRuota (r)&" "& StringaEstratti (es,r)&" Zerato "&a&" in pos."&p
Scrivi DataEstrazione (es)&" "& SiglaRuota (rr)&" "& StringaEstratti (es,rr)&" Zerato "&b&" in pos."&p

nu(1)=Figura(a)&Figura(b)
nu(2)=Vert (nu(1))
ImpostaGiocata 1,nu,rt,posta,clp
nu1(1)=nu(1)
nu1(2)=nu(2)
nu1(3)=91-(a)
nu1(4)=91-(b)

ImpostaGiocata 2,nu1,rt,poste,clp
ru(1)=11
ImpostaGiocata 3,nu1,ru,poste,clp

Gioca es

End If
Next
End If
Next
Next
Next
ScriviResoconto
End Sub
Errore 1033: Costante String senza terminazione (riga 27)
 

claudio8

Premium Member
x Cavalieri
- La riga in rosso nel mio post di specifica/modifica (#4) va inserita in unica riga, senza dividerla.
If r = rr - 1 Or r =10 And rr = 12 Then Scrivi String(55,"=") & " Attenzione... ruote consecutive",,,3,2
- la riga ---> Scrivi String(55,"=") & " Caso n°" & co <----- è scritta 2 volte e ti uscirà in uotput 2 volte.
ciao, se hai ancora problemi, chiedi.
Claudio
 

cavaleri

Super Member >GOLD<
claudio8;n2139442 ha scritto:
x Cavalieri
- La riga in rosso nel mio post di specifica/modifica (#4) va inserita in unica riga, senza dividerla.
If r = rr - 1 Or r =10 And rr = 12 Then Scrivi String(55,"=") & " Attenzione... ruote consecutive",,,3,2
- la riga ---> Scrivi String(55,"=") & " Caso n°" & co <----- è scritta 2 volte e ti uscirà in uotput 2 volte.
ciao, se hai ancora problemi, chiedi.
Claudio

Fatto! mi dà: "Errore 450: Numero errato di argomenti o assegnazione di proprietà non valida: 'Scrivi' (riga 27) :(:(
 

claudio8

Premium Member
Cavalieri,
probabilmente hai fatto qualche errore nel rifare l'inserimento.
Ho preso il lo script postato date te con l'errore ed ho riportato il testo : Attenzione... ruote consecutive",,,3,2
dopo le virgolette della riga precednte ripristinando l'integrità della riga specificata nel post #4 .
If r = rr - 1 Or r =10 And rr = 12 Then Scrivi String(55," = ") & " Attenzione... ruote consecutive",,,3,2
Funziona correttamente.

eccoti il costrutto con una modifica suiparametri di gioca per poter visionare anche gli estratti delle estrazioni di gioco
Codice:
'Zerati su 2rt isotopi in due ruote qualsiasi
Sub Main()
     Dim rt(2),ru(1)
     Dim nu(2),nu1(5)
     Dim posta(1),poste(3)
     posta(1) = 1
     poste(2) = 1 : poste(3) = 1
     clp = 12 'colpi di gioco
     ini = EstrazioneFin - 20
     fin = EstrazioneFin
     co = 0
     For es = ini To fin
          Messaggio es
          For r = 1 To 10
               rt(1) = r
               For p = 1 To 5
                    a = Estratto(es,r,p)
                    If Cadenza(a) = 0 Then
                         For rr = r + 1 To 11
                              If rr = 11 Then rr = 12
                              rt(2) = rr
                              b = Estratto(es,rr,p)
                              If Cadenza(b) = 0 Then
                                   co = co + 1
                                   If r = rr - 1 Or r =10 And rr = 12 Then Scrivi String(55," = ") & " Attenzione... ruote consecutive",,,3,2
                                   Scrivi String(55,"=") & " Caso n°" & co
                                   Scrivi String(55,"=") & " Caso n°" & co ' questa riga ripete la scrittura
                                   Scrivi DataEstrazione(es) & " " & SiglaRuota(r) & " " & StringaEstratti(es,r) & " Zerato " & a & " in pos." & p
                                   Scrivi DataEstrazione(es) & " " & SiglaRuota(rr) & " " & StringaEstratti(es,rr) & " Zerato " & b & " in pos." & p
                                   nu(1) = Figura(a) & Figura(b)
                                   nu(2) = Vert(nu(1))
                                   ImpostaGiocata 1,nu,rt,posta,clp
                                   nu1(1) = nu(1)
                                   nu1(2) = nu(2)
                                   nu1(3) = 91 -(a)
                                   nu1(4) = 91 -(b)
                                   ImpostaGiocata 2,nu1,rt,poste,clp
                                   ru(1) = 11
                                   ImpostaGiocata 3,nu1,ru,poste,clp
                                   Gioca es, False,False,1
                              End If
                         Next
                    End If
               Next
          Next
     Next
     ScriviResoconto
End Sub

un saluto
 

cavaleri

Super Member >GOLD<
claudio8;n2139547 ha scritto:
Cavalieri,
probabilmente hai fatto qualche errore nel rifare l'inserimento.
Ho preso il lo script postato date te con l'errore ed ho riportato il testo : Attenzione... ruote consecutive",,,3,2
dopo le virgolette della riga precednte ripristinando l'integrità della riga specificata nel post #4 .
If r = rr - 1 Or r =10 And rr = 12 Then Scrivi String(55," = ") & " Attenzione... ruote consecutive",,,3,2
Funziona correttamente.

eccoti il costrutto con una modifica suiparametri di gioca per poter visionare anche gli estratti delle estrazioni di gioco
Codice:
'Zerati su 2rt isotopi in due ruote qualsiasi
Sub Main()
Dim rt(2),ru(1)
Dim nu(2),nu1(5)
Dim posta(1),poste(3)
posta(1) = 1
poste(2) = 1 : poste(3) = 1
clp = 12 'colpi di gioco
ini = EstrazioneFin - 20
fin = EstrazioneFin
co = 0
For es = ini To fin
Messaggio es
For r = 1 To 10
rt(1) = r
For p = 1 To 5
a = Estratto(es,r,p)
If Cadenza(a) = 0 Then
For rr = r + 1 To 11
If rr = 11 Then rr = 12
rt(2) = rr
b = Estratto(es,rr,p)
If Cadenza(b) = 0 Then
co = co + 1
If r = rr - 1 Or r =10 And rr = 12 Then Scrivi String(55," = ") & " Attenzione... ruote consecutive",,,3,2
Scrivi String(55,"=") & " Caso n°" & co
Scrivi String(55,"=") & " Caso n°" & co ' questa riga ripete la scrittura
Scrivi DataEstrazione(es) & " " & SiglaRuota(r) & " " & StringaEstratti(es,r) & " Zerato " & a & " in pos." & p
Scrivi DataEstrazione(es) & " " & SiglaRuota(rr) & " " & StringaEstratti(es,rr) & " Zerato " & b & " in pos." & p
nu(1) = Figura(a) & Figura(b)
nu(2) = Vert(nu(1))
ImpostaGiocata 1,nu,rt,posta,clp
nu1(1) = nu(1)
nu1(2) = nu(2)
nu1(3) = 91 -(a)
nu1(4) = 91 -(b)
ImpostaGiocata 2,nu1,rt,poste,clp
ru(1) = 11
ImpostaGiocata 3,nu1,ru,poste,clp
Gioca es, False,False,1
End If
Next
End If
Next
Next
ScriviResoconto
End Sub

un saluto

Tu sei molto gentile, e mi dispiace farti perdere tempo.....
Ma, mi dà sempre lo stesso errore (che sia dovuto al fatto che uso L8*?), alla stessa riga Errore 450, ecc. ecc.:(:(
 

claudio8

Premium Member
Caro Cavaleri ( stavolta l'ho scritto bene)
mi verrebbe da tirarti ..... scherzo...
Probabilmente è così. Con L8 non posso aiutarti, e non saprei cosa modificare, ma posso dirti che molte funzioni sono diverse da Spaziometria per cui o chiedi aiuto a qualcuno che lo usa o installa Spaziometria.
Ciao
 

cavaleri

Super Member >GOLD<
claudio8;n2139607 ha scritto:
Caro Cavaleri ( stavolta l'ho scritto bene)
mi verrebbe da tirarti ..... scherzo...
Probabilmente è così. Con L8 non posso aiutarti, e non saprei cosa modificare, ma posso dirti che molte funzioni sono diverse da Spaziometria per cui o chiedi aiuto a qualcuno che lo usa o installa Spaziometria.
Ciao

Grazie, comunque, per la tua disponibilità. ;););)
 

joe

Advanced Member >PLATINUM PLUS<
claudio8;n2139607 ha scritto:
Caro Cavaleri ( stavolta l'ho scritto bene)
mi verrebbe da tirarti ..... scherzo...
Probabilmente è così. Con L8 non posso aiutarti, e non saprei cosa modificare, ma posso dirti che molte funzioni sono diverse da Spaziometria per cui o chiedi aiuto a qualcuno che lo usa o installa Spaziometria.
Ciao

Scritto bene ...si

ma ... l'hai incollato male.

Nello script presente al messaggio #13

manca il next a chiudere il ciclo for con cui si esplorano le estrazioni.

Riguardo la compatibilità, le istruzioni che mi pare di vedere

non eseguibili sono lo "Scrivi" e "Gioca"... con le loro "troppe" opzioni ...

che sono comunque facilmente eliminabili.

:)
 

claudio8

Premium Member
joe;n2139724 ha scritto:
Scritto bene ...si

ma ... l'hai incollato male.

Nello script presente al messaggio #13

manca il next a chiudere il ciclo for con cui si esplorano le estrazioni.

Riguardo la compatibilità, le istruzioni che mi pare di vedere

non eseguibili sono lo "Scrivi" e "Gioca"... con le loro "troppe" opzioni ...

che sono comunque facilmente eliminabili.

:)

Joe, stai mandando a me questo messaggio?
 

cavaleri

Super Member >GOLD<
joe;n2139724 ha scritto:
Scritto bene ...si

ma ... l'hai incollato male.

Nello script presente al messaggio #13

manca il next a chiudere il ciclo for con cui si esplorano le estrazioni.

Riguardo la compatibilità, le istruzioni che mi pare di vedere

non eseguibili sono lo "Scrivi" e "Gioca"... con le loro "troppe" opzioni ...

che sono comunque facilmente eliminabili.

:)

Allora, possiamo provare a modificare questo script, in modo che vada bene anche per L8+?
Grazie a tutti ;););)
 

joe

Advanced Member >PLATINUM PLUS<
claudio8;n2139931 ha scritto:
Joe, stai mandando a me questo messaggio?


Si.

questo script, copiato, in questo momento dal messaggio #13

Codice:
'Zerati su 2rt isotopi in due ruote qualsiasi
Sub Main()
Dim rt(2),ru(1)
Dim nu(2),nu1(5)
Dim posta(1),poste(3)
posta(1) = 1
poste(2) = 1 : poste(3) = 1
clp = 12 'colpi di gioco
ini = EstrazioneFin - 20
fin = EstrazioneFin
co = 0
For es = ini To fin
Messaggio es
For r = 1 To 10
rt(1) = r
For p = 1 To 5
a = Estratto(es,r,p)
If Cadenza(a) = 0 Then
For rr = r + 1 To 11
If rr = 11 Then rr = 12
rt(2) = rr
b = Estratto(es,rr,p)
If Cadenza(b) = 0 Then
co = co + 1
If r = rr - 1 Or r =10 And rr = 12 Then Scrivi String(55," = ") & " Attenzione... ruote consecutive",,,3,2
Scrivi String(55,"=") & " Caso n°" & co
Scrivi String(55,"=") & " Caso n°" & co ' questa riga ripete la scrittura
Scrivi DataEstrazione(es) & " " & SiglaRuota(r) & " " & StringaEstratti(es,r) & " Zerato " & a & " in pos." & p
Scrivi DataEstrazione(es) & " " & SiglaRuota(rr) & " " & StringaEstratti(es,rr) & " Zerato " & b & " in pos." & p
nu(1) = Figura(a) & Figura(b)
nu(2) = Vert(nu(1))
ImpostaGiocata 1,nu,rt,posta,clp
nu1(1) = nu(1)
nu1(2) = nu(2)
nu1(3) = 91 -(a)
nu1(4) = 91 -(b)
ImpostaGiocata 2,nu1,rt,poste,clp
ru(1) = 11
ImpostaGiocata 3,nu1,ru,poste,clp
Gioca es, False,False,1
End If
Next
End If
Next
Next
ScriviResoconto
End Sub

Non funziona perchè manca il "Next" a chiudere il ciclo "For es = ini To Fin"

Poi ... per cavaleri ... non funziona in L8 perchè L8 non prevede,

così tanti parametri per l'istruzione "Scrivi" e per l'istruzione "Gioca".

Dunque bisogna eliminare quelli che rendono incompatibile l'esecuzione in L8.

:)
 

cavaleri

Super Member >GOLD<
joe;n2139956 ha scritto:
Si.

questo script, copiato, in questo momento dal messaggio #13

Codice:
'Zerati su 2rt isotopi in due ruote qualsiasi
Sub Main()
Dim rt(2),ru(1)
Dim nu(2),nu1(5)
Dim posta(1),poste(3)
posta(1) = 1
poste(2) = 1 : poste(3) = 1
clp = 12 'colpi di gioco
ini = EstrazioneFin - 20
fin = EstrazioneFin
co = 0
For es = ini To fin
Messaggio es
For r = 1 To 10
rt(1) = r
For p = 1 To 5
a = Estratto(es,r,p)
If Cadenza(a) = 0 Then
For rr = r + 1 To 11
If rr = 11 Then rr = 12
rt(2) = rr
b = Estratto(es,rr,p)
If Cadenza(b) = 0 Then
co = co + 1
If r = rr - 1 Or r =10 And rr = 12 Then Scrivi String(55," = ") & " Attenzione... ruote consecutive",,,3,2
Scrivi String(55,"=") & " Caso n°" & co
Scrivi String(55,"=") & " Caso n°" & co ' questa riga ripete la scrittura
Scrivi DataEstrazione(es) & " " & SiglaRuota(r) & " " & StringaEstratti(es,r) & " Zerato " & a & " in pos." & p
Scrivi DataEstrazione(es) & " " & SiglaRuota(rr) & " " & StringaEstratti(es,rr) & " Zerato " & b & " in pos." & p
nu(1) = Figura(a) & Figura(b)
nu(2) = Vert(nu(1))
ImpostaGiocata 1,nu,rt,posta,clp
nu1(1) = nu(1)
nu1(2) = nu(2)
nu1(3) = 91 -(a)
nu1(4) = 91 -(b)
ImpostaGiocata 2,nu1,rt,poste,clp
ru(1) = 11
ImpostaGiocata 3,nu1,ru,poste,clp
Gioca es, False,False,1
End If
Next
End If
Next
Next
ScriviResoconto
End Sub

Non funziona perchè manca il "Next" a chiudere il ciclo "For es = ini To Fin"

Poi ... per cavaleri ... non funziona in L8 perchè L8 non prevede,

così tanti parametri per l'istruzione "Scrivi" e per l'istruzione "Gioca".

Dunque bisogna eliminare quelli che rendono incompatibile l'esecuzione in L8.

:)

.... e non lo possiamo rendere idoneo per L8+???
Grazie! :(:(:(
 

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 19 aprile 2024
    Bari
    39
    05
    81
    89
    73
    Cagliari
    56
    21
    01
    90
    03
    Firenze
    05
    56
    68
    27
    09
    Genova
    42
    50
    90
    27
    83
    Milano
    16
    71
    29
    85
    04
    Napoli
    29
    19
    23
    63
    50
    Palermo
    35
    54
    33
    57
    61
    Roma
    17
    29
    43
    55
    74
    Torino
    69
    60
    03
    01
    26
    Venezia
    05
    57
    59
    43
    34
    Nazionale
    30
    43
    64
    65
    21
    Estrazione Simbolotto
    Genova
    02
    20
    25
    12
    19

Ultimi Messaggi

Alto