Novità

Dove stò sbagliando?

M

Mauro-emme

Member
Sub Main
Dim Nu(2),Ru(2),aN(3),Posta(3),X,pr,nr1,nr2,Y,Z
Posta(1) = 1
Posta(2) = 1
Posta(3) = 1
X = InputBox("Inserire il numero delle estrazioni da controllare: ","Script di Mauro Milanetto per https://ambolotto.forumfree.it/",157)
Ini = EstrazioneFin - X
fin = EstrazioneFin
Scrivi " --------------------------------------------------------------------------------"
Scrivi " | Il metodo consiste nel puntare sulle ambate in posizione |"
Scrivi " | quindi il risultato economico è maggiore di quello cal- |"
Scrivi " | colato da Spaziometria. Per trovare la posizione stò e- |"
Scrivi " | laborando una funzione direttamente nello script, già |"
Scrivi " | testato e funzionante! Si basa sull'esperienza manuale e |"
Scrivi " | sul fatto, incontrovertibile, che i numeri si ripetono! |"
Scrivi " --------------------------------------------------------------------------------"
Scrivi
Scrivi

For es = Ini To fin
For r1 = 1 To 9
For r2 = r1 + 1 To 10
For P = 1 To 5
a = Estratto(es,r1,P)
b = Estratto(es,r2,P)
a1 = Estratto(es,r1,1)
a2 = Estratto(es,r1,2)
a3 = Estratto(es,r1,3)
a4 = Estratto(es,r1,4)
a5 = Estratto(es,r1,5)
b1 = Estratto(es,r2,1)
b2 = Estratto(es,r2,2)
b3 = Estratto(es,r2,3)
b4 = Estratto(es,r2,4)
b5 = Estratto(es,r2,5)

If Cadenza(a) = 0 And Cadenza(b) = 0 Then
If r2 - r1 = 1 Then
k = k + 1
Nu(1) = a
Nu(2) = b
Ru(1) = r1
Ru(2) = r2
aN(1) = Fuori90(a/10 & b/10)
aN(2) = Fuori90(b/10 & a/10)
aN(3) = Fuori90(a/10 + b/10)
Scrivi String(100,"^") & " Caso n. " & k
Scrivi GetInfoEstrazione(es) & vbTab & SiglaRuota(r1) & vbTab & a & " Posiz. " & P
Scrivi GetInfoEstrazione(es) & vbTab & SiglaRuota(r2) & vbTab & b & " Posiz. " & P
Scrivi String(100,"-")
Scrivi a1 & " " & a2 & " " & a3 & " " & a4 & " " & a5
Scrivi b1 & " " & b2 & " " & b3 & " " & b4 & " " & b5
clp = 5
If aN(1) = aN(2) Then aN(2) = Vert(aN(1))
Y = aN(1)
Z = aN(2)
Call NP

ImpostaGiocata 1,aN,Ru,Posta,clp,1

Gioca es,1
End If
End If
Next
Next
Next
Next
ScriviResoconto
End Sub


Function NP
Dim Y,Z


pr = 50

nr1 = CInt(Y)
nr2 = CInt(Z)
fine = EstrazioneFin
ColoreTesto 1
Scrivi "Numeri da cercare " & Format2(nr1) & " e " & Format2(nr2) & " in un ciclo di " & pr & _
" estrazioni con inizio dalla " & ini,1
Scrivi "(prima colonna il 1° numero, seconda colonna il vertibile; in rosso è segnalato l'ambo)"
ColoreTesto 2
Scrivi
Scrivi String(160,"=") & Chr(10)
Scrivi "N_Es" & Space(5) & "BA" & Space(5) & "BA" & Space(5) & "CA" & Space(5) & "CA" & Space(5) & "FI" & Space(5) & "FI" & Space(5) & "GE" & Space(5) & "GE" & _
Space(5) & "MI" & Space(5) & "MI" & Space(5) & "NA" & Space(5) & "NA" & Space(5) & "PA" & Space(5) & "PA" & Space(5) & "RO" & Space(5) & "RO" & Space(5) & "TO" & _
Space(5) & "TO" & Space(5) & "VE" & Space(5) & "VE" & Space(5) & "NZ" & Space(5) & "NZ",1
For j = 0 To pr - 1
ex = ini + j
If ex > fine Then Exit For
Scrivi ex & Space(2),1,0
For r1 = 1 To 11
If r1 = 11 Then r1 = 12
po1 = Posizione(ex,r1,nr1) : po2 = Posizione(ex,r1,nr2)
ColoreTesto 1
If po1 > 0 And po2 = 0 Then Scrivi Space(2) & Format2(nr1) & " " & po1 & "°" & " == ==",1,0
If po2 > 0 And po1 = 0 Then Scrivi Space(2) & "== == " & Format2(nr2) & " " & po2 & "°",1,0
ColoreTesto 2
If po1 > 0 And po2 > 0 Then Scrivi Space(2) & Format2(nr1) & " " & po1 & "°" & Space(2) & Format2(nr2) & " " & po2 & "°",1,0
ColoreTesto 3
If po1 = 0 And po2 = 0 Then Scrivi Space(2) & "== ==" & Space(2) & "== ==",1,0
ColoreTesto 2
Next
Scrivi
Next
Scrivi "N_Es" & Space(5) & "BA" & Space(5) & "BA" & Space(5) & "CA" & Space(5) & "CA" & Space(5) & "FI" & Space(5) & "FI" & Space(5) & "GE" & Space(5) & "GE" & _
Space(5) & "MI" & Space(5) & "MI" & Space(5) & "NA" & Space(5) & "NA" & Space(5) & "PA" & Space(5) & "PA" & Space(5) & "RO" & Space(5) & "RO" & Space(5) & "TO" & _
Space(5) & "TO" & Space(5) & "VE" & Space(5) & "VE" & Space(5) & "NZ" & Space(5) & "NZ",1
Scrivi String(160,"=") & Chr(10)
Scrivi Space(72) & "°°°Verifica°°°",1
ColoreTesto 0





End Function
 
Sinceramente non ho capito perchè non ti quadra il risultato economico di SPTM - spiegati meglio se ti è possibile
Non ho approfondito x svogliatezza la Funzion NP ma penso che si possa riassumere meglio ( conoscendone la costruzione)
Comincia con la lettura di queste modifiche semplici
Codice: 
Sub Main
     Dim Nu(2),Ru(2),aN(3),Posta(3),X,pr,nr1,nr2,Y,Z
     Posta(1) = 1
     Posta(2) = 1
     Posta(3) = 1
     X = InputBox("Inserire il numero delle estrazioni da controllare: ","Script di Mauro Milanetto per https://ambolotto.forumfree.it/",157)
     Ini = EstrazioneFin - X
     fin = EstrazioneFin
     Scrivi " --------------------------------------------------------------------------------"
     Scrivi " | Il metodo consiste nel puntare sulle ambate in posizione |"
     Scrivi " | quindi il risultato economico è maggiore di quello cal- |"
     Scrivi " | colato da Spaziometria. Per trovare la posizione stò e- |"
     Scrivi " | laborando una funzione direttamente nello script, già |"
     Scrivi " | testato e funzionante! Si basa sull'esperienza manuale e |"
     Scrivi " | sul fatto, incontrovertibile, che i numeri si ripetono! |"
     Scrivi " --------------------------------------------------------------------------------"
     Scrivi
     Scrivi
     For es = Ini To fin
          For r1 = 1 To 9
          r2= r1+1  '( sostituisce il ciclo della 2a ruota  che condizioni con 'If r2 - r1 = 1 Then  "solo ruote consecutive"  )

               'For r2 = r1 + 1 To 10
                    For P = 1 To 5
                         a = Estratto(es,r1,P)
                         b = Estratto(es,r2,P)
                         If Cadenza(a) = 0 And Cadenza(b) = 0 Then ' ho spostato la lettura degli estratti dopo la condizione perchè nonì
                         '                                           'ha senso caricarli In memoria se la condizione non si verifica
                              k = k + 1
                              a1 = Estratto(es,r1,1)
                              a2 = Estratto(es,r1,2)
                              a3 = Estratto(es,r1,3)
                              a4 = Estratto(es,r1,4)
                              a5 = Estratto(es,r1,5)
                              '
                              b1 = Estratto(es,r2,1)
                              b2 = Estratto(es,r2,2)
                              b3 = Estratto(es,r2,3)
                              b4 = Estratto(es,r2,4)
                              b5 = Estratto(es,r2,5)
                              'If r2 - r1 = 1 Then
                                   Nu(1) = a ' NUMERO CAD 0
                                   Nu(2) = b ' NUMERO CAD 0
                                   Ru(1) = r1
                                   Ru(2) = r2
                                   aN(1) = Fuori90(a/10 & b/10)
                                   aN(2) = Fuori90(b/10 & a/10)
                                   aN(3) = Fuori90(a/10 + b/10)
                                   Scrivi String(100,"^") & " Caso n. " & k
                                   Scrivi GetInfoEstrazione(es) & vbTab & SiglaRuota(r1) & vbTab & a & " Posiz. " & P
                                   Scrivi GetInfoEstrazione(es) & vbTab & SiglaRuota(r2) & vbTab & b & " Posiz. " & P
                                   Scrivi String(100,"-")
                                   Scrivi a1 & " " & a2 & " " & a3 & " " & a4 & " " & a5
                                   Scrivi b1 & " " & b2 & " " & b3 & " " & b4 & " " & b5
                                   clp = 5
                                   If aN(1) = aN(2) Then aN(2) = Vert(aN(1))
                                   Y = aN(1)
                                   Z = aN(2)
                                   Call NP
                                   ImpostaGiocata 1,aN,Ru,Posta,clp,1
                                   Gioca es,1
                             ' End If
                         End If
                    Next
               'Next
          Next
     Next
     ScriviResoconto
End Sub
Function NP
     Dim Y,Z
     pr = 50
     nr1 = CInt(Y)
     nr2 = CInt(Z)
     fine = EstrazioneFin
     ColoreTesto 1
     Scrivi "Numeri da cercare " & Format2(nr1) & " e " & Format2(nr2) & " in un ciclo di " & pr & _
     " estrazioni con inizio dalla " & ini,1
     Scrivi "(prima colonna il 1° numero, seconda colonna il vertibile; in rosso è segnalato l'ambo)"
     ColoreTesto 2
     Scrivi
     Scrivi String(160,"=") & Chr(10)
     Scrivi "N_Es" & Space(5) & "BA" & Space(5) & "BA" & Space(5) & "CA" & Space(5) & "CA" & Space(5) & "FI" & Space(5) & "FI" & Space(5) & "GE" & Space(5) & "GE" & _
     Space(5) & "MI" & Space(5) & "MI" & Space(5) & "NA" & Space(5) & "NA" & Space(5) & "PA" & Space(5) & "PA" & Space(5) & "RO" & Space(5) & "RO" & Space(5) & "TO" & _
     Space(5) & "TO" & Space(5) & "VE" & Space(5) & "VE" & Space(5) & "NZ" & Space(5) & "NZ",1
     For j = 0 To pr - 1
          ex = ini + j
          If ex > fine Then Exit For
          Scrivi ex & Space(2),1,0
          For r1 = 1 To 11
               If r1 = 11 Then r1 = 12
               po1 = Posizione(ex,r1,nr1) : po2 = Posizione(ex,r1,nr2)
               ColoreTesto 1
               If po1 > 0 And po2 = 0 Then Scrivi Space(2) & Format2(nr1) & " " & po1 & "°" & " == ==",1,0
               If po2 > 0 And po1 = 0 Then Scrivi Space(2) & "== == " & Format2(nr2) & " " & po2 & "°",1,0
               ColoreTesto 2
               If po1 > 0 And po2 > 0 Then Scrivi Space(2) & Format2(nr1) & " " & po1 & "°" & Space(2) & Format2(nr2) & " " & po2 & "°",1,0
               ColoreTesto 3
               If po1 = 0 And po2 = 0 Then Scrivi Space(2) & "== ==" & Space(2) & "== ==",1,0
               ColoreTesto 2
          Next
          Scrivi
     Next
     Scrivi "N_Es" & Space(5) & "BA" & Space(5) & "BA" & Space(5) & "CA" & Space(5) & "CA" & Space(5) & "FI" & Space(5) & "FI" & Space(5) & "GE" & Space(5) & "GE" & _
     Space(5) & "MI" & Space(5) & "MI" & Space(5) & "NA" & Space(5) & "NA" & Space(5) & "PA" & Space(5) & "PA" & Space(5) & "RO" & Space(5) & "RO" & Space(5) & "TO" & _
     Space(5) & "TO" & Space(5) & "VE" & Space(5) & "VE" & Space(5) & "NZ" & Space(5) & "NZ",1
     Scrivi String(160,"=") & Chr(10)
     Scrivi Space(72) & "°°°Verifica°°°",1
     ColoreTesto 0
End Function
 
Ulteriori aggiustamenti
Codice: 
Sub Main
     Dim Nu(2),Ru(2),aN(3),Posta(3),X,pr,nr1,nr2,Y,Z,a,b,es,r1,r2,k
     Posta(1) = 1
     Posta(2) = 1
     Posta(3) = 1
     X = InputBox("Inserire il numero delle estrazioni da controllare: ","Script di Mauro Milanetto per https://ambolotto.forumfree.it/",157)
     Ini = EstrazioneFin - X
     fin = EstrazioneFin
     Scrivi " --------------------------------------------------------------------------------"
     Scrivi " | Il metodo consiste nel puntare sulle ambate in posizione |"
     Scrivi " | quindi il risultato economico è maggiore di quello cal- |"
     Scrivi " | colato da Spaziometria. Per trovare la posizione stò e- |"
     Scrivi " | laborando una funzione direttamente nello script, già |"
     Scrivi " | testato e funzionante! Si basa sull'esperienza manuale e |"
     Scrivi " | sul fatto, incontrovertibile, che i numeri si ripetono! |"
     Scrivi " --------------------------------------------------------------------------------"
     Scrivi
     Scrivi
     For es = Ini To fin
          For r1 = 1 To 9
          r2= r1+1  '( sostituisce il ciclo della 2a che condizioni con 'If r2 - r1 = 1 Then )

               'For r2 = r1 + 1 To 10
                    For P = 1 To 5
                         a = Estratto(es,r1,P)
                         b = Estratto(es,r2,P)
                         If Cadenza(a) = 0 And Cadenza(b) = 0 Then ' ho spostato la lettura degli estratti dopo la condizione perchè nonì
                         '                                           'ha senso caricarli In memoria se la condizione non si verifica anzi
                         '                                           'visto che servono solo a riscriverli in output, li elimino e inserisco
                         '                                           'per la loro scrittura la funzione "StringaEstratti"
                              k = k + 1
                              '' eliminabili
'                              a1 = Estratto(es,r1,1)
'                              a2 = Estratto(es,r1,2)
'                              a3 = Estratto(es,r1,3)
'                              a4 = Estratto(es,r1,4)
'                              a5 = Estratto(es,r1,5)
'                              '
'                              b1 = Estratto(es,r2,1)
'                              b2 = Estratto(es,r2,2)
'                              b3 = Estratto(es,r2,3)
'                              b4 = Estratto(es,r2,4)
'                              b5 = Estratto(es,r2,5)
                              'If r2 - r1 = 1 Then
                                   Nu(1) = a ' NUMERO isotopo  CAD 0
                                   Nu(2) = b ' NUMERO isotopo CAD 0
                                   Ru(1) = r1
                                   Ru(2) = r2
                                   aN(1) = Fuori90(a/10 & b/10)                                   
                                   aN(2) = Fuori90(b/10 & a/10)
                                   aN(3) = Fuori90(a/10 + b/10)
                                   Scrivi String(100,"^") & " Caso n. " & k
                                   Scrivi GetInfoEstrazione(es) & vbTab & SiglaRuota(r1) & vbTab & a & " Posiz. " & P & " "  ,,False
                                   Scrivi StringaEstratti(es,r1," " ) 'a1 & " " & a2 & " " & a3 & " " & a4 & " " & a5
                                   Scrivi GetInfoEstrazione(es) & vbTab & SiglaRuota(r2) & vbTab & b & " Posiz. " & P & "   ",,False
                                   Scrivi StringaEstratti(es,r2," " ) 'b1 & " " & b2 & " " & b3 & " " & b4 & " " & b5
                                   Scrivi String(100,"-")
                                  ' Scrivi StringaEstratti(es,r1," " ) 'a1 & " " & a2 & " " & a3 & " " & a4 & " " & a5
                                  ' Scrivi StringaEstratti(es,r2," " ) 'b1 & " " & b2 & " " & b3 & " " & b4 & " " & b5
                                   clp = 5
                                   If aN(1) = aN(2) Then aN(2) = Vert(aN(1))
                                   Y = aN(1)
                                   Z = aN(2)
                                   Call NP
                                   ImpostaGiocata 1,aN,Ru,Posta,clp,1
                                   Gioca es,1
                             ' End If
                         End If
                    Next
               'Next
          Next
     Next
     ScriviResoconto
End Sub
Function NP
     Dim Y,Z
     pr = 50
     nr1 = CInt(Y)
     nr2 = CInt(Z)
     fine = EstrazioneFin
     ColoreTesto 1
     Scrivi "Numeri da cercare " & Format2(nr1) & " e " & Format2(nr2) & " in un ciclo di " & pr & _
     " estrazioni con inizio dalla " & ini,1
     Scrivi "(prima colonna il 1° numero, seconda colonna il vertibile; in rosso è segnalato l'ambo)"
     ColoreTesto 2
     Scrivi
     Scrivi String(160,"=") & Chr(10)
     Scrivi "N_Es" & Space(5) & "BA" & Space(5) & "BA" & Space(5) & "CA" & Space(5) & "CA" & Space(5) & "FI" & Space(5) & "FI" & Space(5) & "GE" & Space(5) & "GE" & _
     Space(5) & "MI" & Space(5) & "MI" & Space(5) & "NA" & Space(5) & "NA" & Space(5) & "PA" & Space(5) & "PA" & Space(5) & "RO" & Space(5) & "RO" & Space(5) & "TO" & _
     Space(5) & "TO" & Space(5) & "VE" & Space(5) & "VE" & Space(5) & "NZ" & Space(5) & "NZ",1
     For j = 0 To pr - 1
          ex = ini + j
          If ex > fine Then Exit For
          Scrivi ex & Space(2),1,0
          For r1 = 1 To 11
               If r1 = 11 Then r1 = 12
               po1 = Posizione(ex,r1,nr1) : po2 = Posizione(ex,r1,nr2)
               ColoreTesto 1
               If po1 > 0 And po2 = 0 Then Scrivi Space(2) & Format2(nr1) & " " & po1 & "°" & " == ==",1,0
               If po2 > 0 And po1 = 0 Then Scrivi Space(2) & "== == " & Format2(nr2) & " " & po2 & "°",1,0
               ColoreTesto 2
               If po1 > 0 And po2 > 0 Then Scrivi Space(2) & Format2(nr1) & " " & po1 & "°" & Space(2) & Format2(nr2) & " " & po2 & "°",1,0
               ColoreTesto 3
               If po1 = 0 And po2 = 0 Then Scrivi Space(2) & "== ==" & Space(2) & "== ==",1,0
               ColoreTesto 2
          Next
          Scrivi
     Next
     Scrivi "N_Es" & Space(5) & "BA" & Space(5) & "BA" & Space(5) & "CA" & Space(5) & "CA" & Space(5) & "FI" & Space(5) & "FI" & Space(5) & "GE" & Space(5) & "GE" & _
     Space(5) & "MI" & Space(5) & "MI" & Space(5) & "NA" & Space(5) & "NA" & Space(5) & "PA" & Space(5) & "PA" & Space(5) & "RO" & Space(5) & "RO" & Space(5) & "TO" & _
     Space(5) & "TO" & Space(5) & "VE" & Space(5) & "VE" & Space(5) & "NZ" & Space(5) & "NZ",1
     Scrivi String(160,"=") & Chr(10)
     Scrivi Space(72) & "°°°Verifica°°°",1
     ColoreTesto 0
End Function
 
La funzione np non non funziona perché non gli vengono passati i parametri n1,n2
Call np(n1,n2)
Non entro nel merito dei calcoli o del guadagno, ma come scritto da Claudio, lo script è da ottimizzare a livello di codice.
La funzione np a cosa serve?
Nelle ultime 100 estrazioni a me risultano 38 casi con 11 esiti positivi di cui un terno.
Vi torna?
Cosa non funziona nella sub gioca?
Ciao
 
claudio8 ha scritto:
Sinceramente non ho capito perchè non ti quadra il risultato economico di SPTM - spiegati meglio se ti è possibile
Non ho approfondito x svogliatezza la Funzion NP ma penso che si possa riassumere meglio ( conoscendone la costruzione)
Comincia con la lettura di queste modifiche semplici
Codice: 
Sub Main
     Dim Nu(2),Ru(2),aN(3),Posta(3),X,pr,nr1,nr2,Y,Z
     Posta(1) = 1
     Posta(2) = 1
     Posta(3) = 1
     X = InputBox("Inserire il numero delle estrazioni da controllare: ","Script di Mauro Milanetto per https://ambolotto.forumfree.it/",157)
     Ini = EstrazioneFin - X
     fin = EstrazioneFin
     Scrivi " --------------------------------------------------------------------------------"
     Scrivi " | Il metodo consiste nel puntare sulle ambate in posizione |"
     Scrivi " | quindi il risultato economico è maggiore di quello cal- |"
     Scrivi " | colato da Spaziometria. Per trovare la posizione stò e- |"
     Scrivi " | laborando una funzione direttamente nello script, già |"
     Scrivi " | testato e funzionante! Si basa sull'esperienza manuale e |"
     Scrivi " | sul fatto, incontrovertibile, che i numeri si ripetono! |"
     Scrivi " --------------------------------------------------------------------------------"
     Scrivi
     Scrivi
     For es = Ini To fin
          For r1 = 1 To 9
          r2= r1+1  '( sostituisce il ciclo della 2a ruota  che condizioni con 'If r2 - r1 = 1 Then  "solo ruote consecutive"  )

               'For r2 = r1 + 1 To 10
                    For P = 1 To 5
                         a = Estratto(es,r1,P)
                         b = Estratto(es,r2,P)
                         If Cadenza(a) = 0 And Cadenza(b) = 0 Then ' ho spostato la lettura degli estratti dopo la condizione perchè nonì
                         '                                           'ha senso caricarli In memoria se la condizione non si verifica
                              k = k + 1
                              a1 = Estratto(es,r1,1)
                              a2 = Estratto(es,r1,2)
                              a3 = Estratto(es,r1,3)
                              a4 = Estratto(es,r1,4)
                              a5 = Estratto(es,r1,5)
                              '
                              b1 = Estratto(es,r2,1)
                              b2 = Estratto(es,r2,2)
                              b3 = Estratto(es,r2,3)
                              b4 = Estratto(es,r2,4)
                              b5 = Estratto(es,r2,5)
                              'If r2 - r1 = 1 Then
                                   Nu(1) = a ' NUMERO CAD 0
                                   Nu(2) = b ' NUMERO CAD 0
                                   Ru(1) = r1
                                   Ru(2) = r2
                                   aN(1) = Fuori90(a/10 & b/10)
                                   aN(2) = Fuori90(b/10 & a/10)
                                   aN(3) = Fuori90(a/10 + b/10)
                                   Scrivi String(100,"^") & " Caso n. " & k
                                   Scrivi GetInfoEstrazione(es) & vbTab & SiglaRuota(r1) & vbTab & a & " Posiz. " & P
                                   Scrivi GetInfoEstrazione(es) & vbTab & SiglaRuota(r2) & vbTab & b & " Posiz. " & P
                                   Scrivi String(100,"-")
                                   Scrivi a1 & " " & a2 & " " & a3 & " " & a4 & " " & a5
                                   Scrivi b1 & " " & b2 & " " & b3 & " " & b4 & " " & b5
                                   clp = 5
                                   If aN(1) = aN(2) Then aN(2) = Vert(aN(1))
                                   Y = aN(1)
                                   Z = aN(2)
                                   Call NP
                                   ImpostaGiocata 1,aN,Ru,Posta,clp,1
                                   Gioca es,1
                             ' End If
                         End If
                    Next
               'Next
          Next
     Next
     ScriviResoconto
End Sub
Function NP
     Dim Y,Z
     pr = 50
     nr1 = CInt(Y)
     nr2 = CInt(Z)
     fine = EstrazioneFin
     ColoreTesto 1
     Scrivi "Numeri da cercare " & Format2(nr1) & " e " & Format2(nr2) & " in un ciclo di " & pr & _
     " estrazioni con inizio dalla " & ini,1
     Scrivi "(prima colonna il 1° numero, seconda colonna il vertibile; in rosso è segnalato l'ambo)"
     ColoreTesto 2
     Scrivi
     Scrivi String(160,"=") & Chr(10)
     Scrivi "N_Es" & Space(5) & "BA" & Space(5) & "BA" & Space(5) & "CA" & Space(5) & "CA" & Space(5) & "FI" & Space(5) & "FI" & Space(5) & "GE" & Space(5) & "GE" & _
     Space(5) & "MI" & Space(5) & "MI" & Space(5) & "NA" & Space(5) & "NA" & Space(5) & "PA" & Space(5) & "PA" & Space(5) & "RO" & Space(5) & "RO" & Space(5) & "TO" & _
     Space(5) & "TO" & Space(5) & "VE" & Space(5) & "VE" & Space(5) & "NZ" & Space(5) & "NZ",1
     For j = 0 To pr - 1
          ex = ini + j
          If ex > fine Then Exit For
          Scrivi ex & Space(2),1,0
          For r1 = 1 To 11
               If r1 = 11 Then r1 = 12
               po1 = Posizione(ex,r1,nr1) : po2 = Posizione(ex,r1,nr2)
               ColoreTesto 1
               If po1 > 0 And po2 = 0 Then Scrivi Space(2) & Format2(nr1) & " " & po1 & "°" & " == ==",1,0
               If po2 > 0 And po1 = 0 Then Scrivi Space(2) & "== == " & Format2(nr2) & " " & po2 & "°",1,0
               ColoreTesto 2
               If po1 > 0 And po2 > 0 Then Scrivi Space(2) & Format2(nr1) & " " & po1 & "°" & Space(2) & Format2(nr2) & " " & po2 & "°",1,0
               ColoreTesto 3
               If po1 = 0 And po2 = 0 Then Scrivi Space(2) & "== ==" & Space(2) & "== ==",1,0
               ColoreTesto 2
          Next
          Scrivi
     Next
     Scrivi "N_Es" & Space(5) & "BA" & Space(5) & "BA" & Space(5) & "CA" & Space(5) & "CA" & Space(5) & "FI" & Space(5) & "FI" & Space(5) & "GE" & Space(5) & "GE" & _
     Space(5) & "MI" & Space(5) & "MI" & Space(5) & "NA" & Space(5) & "NA" & Space(5) & "PA" & Space(5) & "PA" & Space(5) & "RO" & Space(5) & "RO" & Space(5) & "TO" & _
     Space(5) & "TO" & Space(5) & "VE" & Space(5) & "VE" & Space(5) & "NZ" & Space(5) & "NZ",1
     Scrivi String(160,"=") & Chr(10)
     Scrivi Space(72) & "°°°Verifica°°°",1
     ColoreTesto 0
End Function
Clicca per espandere...
i legend ha scritto:
La funzione np non non funziona perché non gli vengono passati i parametri n1,n2
Call np(n1,n2)
Non entro nel merito dei calcoli o del guadagno, ma come scritto da Claudio, lo script è da ottimizzare a livello di codice.
La funzione np a cosa serve?
Nelle ultime 100 estrazioni a me risultano 38 casi con 11 esiti positivi di cui un terno.
Vi torna?
Cosa non funziona nella sub gioca?
Ciao
Clicca per espandere...
Ciao Claudio8,
la funzione NP è uno script che cerca e trova la posizione delle due ambate. Nello specifico mi consente di stabilire su quali posizioni giocare in modo tale da rendere il gioco dell'ambata 500% più economica di quella semplice calcolata da Spaziometria.
Se il metodo di per se è economico con questa implementazione lo diventa ancora di più.
Quindi quando spiego il metodo nella descrizione dello script non mi riferisco al numero degli eventi positivi ma al contenuto economico che è quello che perseguiamo tutti, credo.
Ho già fatto una funzione che cambia le ruote da principali a diametrali quando il numero da giocare è già presente nell'estrazione. Purtroppo, essendo un neofita stavo cercando, come primo passaggio, di passare i due numeri e poi di modificare lo script allo scopo di cui sopra.
Non ci sono riuscito perchè ho problemi di vista e alla schiena che mi impediscono di stare più di dieci minuti al computer.

claudio8 ha scritto:
Sinceramente non ho capito perchè non ti quadra il risultato economico di SPTM - spiegati meglio se ti è possibile
Non ho approfondito x svogliatezza la Funzion NP ma penso che si possa riassumere meglio ( conoscendone la costruzione)
Comincia con la lettura di queste modifiche semplici
Codice: 
Sub Main
     Dim Nu(2),Ru(2),aN(3),Posta(3),X,pr,nr1,nr2,Y,Z
     Posta(1) = 1
     Posta(2) = 1
     Posta(3) = 1
     X = InputBox("Inserire il numero delle estrazioni da controllare: ","Script di Mauro Milanetto per https://ambolotto.forumfree.it/",157)
     Ini = EstrazioneFin - X
     fin = EstrazioneFin
     Scrivi " --------------------------------------------------------------------------------"
     Scrivi " | Il metodo consiste nel puntare sulle ambate in posizione |"
     Scrivi " | quindi il risultato economico è maggiore di quello cal- |"
     Scrivi " | colato da Spaziometria. Per trovare la posizione stò e- |"
     Scrivi " | laborando una funzione direttamente nello script, già |"
     Scrivi " | testato e funzionante! Si basa sull'esperienza manuale e |"
     Scrivi " | sul fatto, incontrovertibile, che i numeri si ripetono! |"
     Scrivi " --------------------------------------------------------------------------------"
     Scrivi
     Scrivi
     For es = Ini To fin
          For r1 = 1 To 9
          r2= r1+1  '( sostituisce il ciclo della 2a ruota  che condizioni con 'If r2 - r1 = 1 Then  "solo ruote consecutive"  )

               'For r2 = r1 + 1 To 10
                    For P = 1 To 5
                         a = Estratto(es,r1,P)
                         b = Estratto(es,r2,P)
                         If Cadenza(a) = 0 And Cadenza(b) = 0 Then ' ho spostato la lettura degli estratti dopo la condizione perchè nonì
                         '                                           'ha senso caricarli In memoria se la condizione non si verifica
                              k = k + 1
                              a1 = Estratto(es,r1,1)
                              a2 = Estratto(es,r1,2)
                              a3 = Estratto(es,r1,3)
                              a4 = Estratto(es,r1,4)
                              a5 = Estratto(es,r1,5)
                              '
                              b1 = Estratto(es,r2,1)
                              b2 = Estratto(es,r2,2)
                              b3 = Estratto(es,r2,3)
                              b4 = Estratto(es,r2,4)
                              b5 = Estratto(es,r2,5)
                              'If r2 - r1 = 1 Then
                                   Nu(1) = a ' NUMERO CAD 0
                                   Nu(2) = b ' NUMERO CAD 0
                                   Ru(1) = r1
                                   Ru(2) = r2
                                   aN(1) = Fuori90(a/10 & b/10)
                                   aN(2) = Fuori90(b/10 & a/10)
                                   aN(3) = Fuori90(a/10 + b/10)
                                   Scrivi String(100,"^") & " Caso n. " & k
                                   Scrivi GetInfoEstrazione(es) & vbTab & SiglaRuota(r1) & vbTab & a & " Posiz. " & P
                                   Scrivi GetInfoEstrazione(es) & vbTab & SiglaRuota(r2) & vbTab & b & " Posiz. " & P
                                   Scrivi String(100,"-")
                                   Scrivi a1 & " " & a2 & " " & a3 & " " & a4 & " " & a5
                                   Scrivi b1 & " " & b2 & " " & b3 & " " & b4 & " " & b5
                                   clp = 5
                                   If aN(1) = aN(2) Then aN(2) = Vert(aN(1))
                                   Y = aN(1)
                                   Z = aN(2)
                                   Call NP
                                   ImpostaGiocata 1,aN,Ru,Posta,clp,1
                                   Gioca es,1
                             ' End If
                         End If
                    Next
               'Next
          Next
     Next
     ScriviResoconto
End Sub
Function NP
     Dim Y,Z
     pr = 50
     nr1 = CInt(Y)
     nr2 = CInt(Z)
     fine = EstrazioneFin
     ColoreTesto 1
     Scrivi "Numeri da cercare " & Format2(nr1) & " e " & Format2(nr2) & " in un ciclo di " & pr & _
     " estrazioni con inizio dalla " & ini,1
     Scrivi "(prima colonna il 1° numero, seconda colonna il vertibile; in rosso è segnalato l'ambo)"
     ColoreTesto 2
     Scrivi
     Scrivi String(160,"=") & Chr(10)
     Scrivi "N_Es" & Space(5) & "BA" & Space(5) & "BA" & Space(5) & "CA" & Space(5) & "CA" & Space(5) & "FI" & Space(5) & "FI" & Space(5) & "GE" & Space(5) & "GE" & _
     Space(5) & "MI" & Space(5) & "MI" & Space(5) & "NA" & Space(5) & "NA" & Space(5) & "PA" & Space(5) & "PA" & Space(5) & "RO" & Space(5) & "RO" & Space(5) & "TO" & _
     Space(5) & "TO" & Space(5) & "VE" & Space(5) & "VE" & Space(5) & "NZ" & Space(5) & "NZ",1
     For j = 0 To pr - 1
          ex = ini + j
          If ex > fine Then Exit For
          Scrivi ex & Space(2),1,0
          For r1 = 1 To 11
               If r1 = 11 Then r1 = 12
               po1 = Posizione(ex,r1,nr1) : po2 = Posizione(ex,r1,nr2)
               ColoreTesto 1
               If po1 > 0 And po2 = 0 Then Scrivi Space(2) & Format2(nr1) & " " & po1 & "°" & " == ==",1,0
               If po2 > 0 And po1 = 0 Then Scrivi Space(2) & "== == " & Format2(nr2) & " " & po2 & "°",1,0
               ColoreTesto 2
               If po1 > 0 And po2 > 0 Then Scrivi Space(2) & Format2(nr1) & " " & po1 & "°" & Space(2) & Format2(nr2) & " " & po2 & "°",1,0
               ColoreTesto 3
               If po1 = 0 And po2 = 0 Then Scrivi Space(2) & "== ==" & Space(2) & "== ==",1,0
               ColoreTesto 2
          Next
          Scrivi
     Next
     Scrivi "N_Es" & Space(5) & "BA" & Space(5) & "BA" & Space(5) & "CA" & Space(5) & "CA" & Space(5) & "FI" & Space(5) & "FI" & Space(5) & "GE" & Space(5) & "GE" & _
     Space(5) & "MI" & Space(5) & "MI" & Space(5) & "NA" & Space(5) & "NA" & Space(5) & "PA" & Space(5) & "PA" & Space(5) & "RO" & Space(5) & "RO" & Space(5) & "TO" & _
     Space(5) & "TO" & Space(5) & "VE" & Space(5) & "VE" & Space(5) & "NZ" & Space(5) & "NZ",1
     Scrivi String(160,"=") & Chr(10)
     Scrivi Space(72) & "°°°Verifica°°°",1
     ColoreTesto 0
End Function
Clicca per espandere...
Ciao Claudio,
la funzione NP, che per conto suo funziona, serve per ricavare la "posizione" dei numeri in gioco ricavati dallo script.
Giocando le ambate in posizione la rendita del metodo aumenta di molto, l'ambata in posizione la pagano 500% rispetto l'ambata semplice.
Poichè luigiB non l'ha implementata occorre verificare approssimativamente la resa verificando la previsione statistica con quella reale. Mentre altri "lottologi" fanno a caso in questo modo la previsione è più realistica. In gennaio ha reso alle associazioni a cui do il ricavato delle vincite all'incirca 55.000 euro.
Scusa il ritardo con il quale ti rispondo ma in questi giorni i dolori sono insopportabili.
Grazie per il tuo interesse, a presto.
 
i legend ha scritto:
La funzione np non non funziona perché non gli vengono passati i parametri n1,n2
Call np(n1,n2)
Non entro nel merito dei calcoli o del guadagno, ma come scritto da Claudio, lo script è da ottimizzare a livello di codice.
La funzione np a cosa serve?
Nelle ultime 100 estrazioni a me risultano 38 casi con 11 esiti positivi di cui un terno.
Vi torna?
Cosa non funziona nella sub gioca?
Ciao
Clicca per espandere...
Ho risposto a Claudio. Leggi per cortesia queste risposte. ne ho date due perchè mi è sparita la videatae non la trovavo più.
Grazie anche a te per l'interesse dimostrato. Se volete collaborare nella stesura dello script sarò felice di darvi le indicazioni del caso.
Buona serata.
 
Claudio8
i legend

date un'occhiata a questo script! Siete in grado di dirmi perchè non segnala, partendo dall'estrazione del 07 gennaio 2022, un ambo su milano 4-5 e un terno su palermo 4-60-25 sortite nell'estrazione dell'11 gennaio 2022?

Sub Main
Dim ruota(2),pt(5),ruote(6),a1(12)

pt(2) = 1

clp = 5
ini = InputBox("Da quale estrazione vuoi iniziare?:","Ideato e scritto da Milanetto Mauro per LottoCED",EstrazioneFin - 145)
fine = EstrazioneFin
For es = ini To EstrazioneFin
' ------ INIZIO CODICE RILEVAMENTO CONDIZIONE
ruote(1) = 1
ruote(2) = 3
ruote(3) = 5
ruote(4) = 7
ruote(5) = 9


a = Estratto(es,1,1)
b = Estratto(es,3,2)
c = Estratto(es,5,3)
d = Estratto(es,7,4)
e = Estratto(es,9,5)
)
' ------ FINE CODICE RILEVAMENTO CONDIZIONE
a1(1) = a
a1(2) = b
a1(3) = c
a1(4) = d
a1(5) = e

Scrivi "------------------------------------------ semplice per ambo --------------------------------------------------"
ImpostaGiocata 1,a1,ruote,pt,clp,1
Gioca es,1
Scrivi "---------------------------------------------------------------------------------------------------------------"
Scrivi
Next
ScriviResoconto

End Sub
 
Prova così:
Codice: 
Sub Main
   Dim ruota(2),pt(5),ruote(6),a1(12)
   pt(2) = 1
   clp = 5
   ini = InputBox("Da quale estrazione vuoi iniziare?:","Ideato e scritto da Milanetto Mauro per LottoCED",EstrazioneFin - 145)
   fine = EstrazioneFin
   For es = ini To EstrazioneFin
      ' ------ INIZIO CODICE RILEVAMENTO CONDIZIONE
      ruote(1) = 1
      ruote(2) = 3
      ruote(3) = 5
      ruote(4) = 7
      ruote(5) = 9
      a = Estratto(es,1,1)
      b = Estratto(es,3,2)
      c = Estratto(es,5,3)
      d = Estratto(es,7,4)
      e = Estratto(es,9,5)
      ' ------ FINE CODICE RILEVAMENTO CONDIZIONE
      a1(1) = a
      a1(2) = b
      a1(3) = c
      a1(4) = d
      a1(5) = e
      Scrivi "------------------------------------------ semplice per ambo --------------------------------------------------"
      ImpostaGiocata 1,a1,ruote,pt,clp,4
      Gioca es,1
      Scrivi "---------------------------------------------------------------------------------------------------------------"
      Scrivi
   Next
   ScriviResoconto
End Sub
 
Ciao a Tutti.

Devi togliere l'uno finale dalla riga ImpostaGiocata

da così

ImpostaGiocata 1,a1,ruote,pt,clp,1

a così

ImpostaGiocata 1,a1,ruote,pt,clp

quell'uno fa interrompere le ricerche alla prima ambata che esce e quindi se dopo vengono ambi e terni non puoi vederli, infatti si ferma al colpo uno perche escono le ambate a

BA 62
TO 83
 
Ciao nel caso del 91 ( 90 e 10)
Come ti comporti?
N1=1
N2=10
N3= 9+1=10
Avresti 1.10.10
Se invece scambiarsi i numeri avresti 10 90
19 .11.10
Ma non ho verificato la qualità dell operazione, bisognerà controllare quale terzina da più risultati.

Invece la funzione np giochi solo la coppia si vertibili per ambata e cerchi l posizione migliore nei colpi successivi?
Se sortisce esci dal ciclo oppure verifiche ugualmente tutti i colpi ?
Se vuoi provo a fare lo script con il nuovo spaziometria, se riesco.
Ciao
 
i legend ha scritto:
Ciao nel caso del 91 ( 90 e 10)
Come ti comporti?
N1=1
N2=10
N3= 9+1=10
Avresti 1.10.10
Se invece scambiarsi i numeri avresti 10 90
19 .11.10
Ma non ho verificato la qualità dell operazione, bisognerà controllare quale terzina da più risultati.

Invece la funzione np giochi solo la coppia si vertibili per ambata e cerchi l posizione migliore nei colpi successivi?
Se sortisce esci dal ciclo oppure verifiche ugualmente tutti i colpi ?
Se vuoi provo a fare lo script con il nuovo spaziometria, se riesco.
Ciao
Clicca per espandere...

aN(1) = Fuori90(a/10 & b/10)
aN(2) = Fuori90(b/10 & a/10)
aN(3) = Fuori90(a/10 + b/10)

nel primo caso:
fuori90 di 9 & 1 cioè 91 è 1.
1 & 9 é 19
9 + 1 = 10
1 - 19 - 10

nel secondo caso:
19 - 1 - 10

se al posto di
aN(2) = Fuori90(b/10 & a/10)
mettiamo
aN(2) = Vert(aN(1)
non ci dovrebbe essere problema e se non sbaglio si ha un'ambata in più nel resoconto finale.

Per quanto riguarda i numeri ripetuti io ho messo
If aN(1) = aN(2) Then aN(2) = Vert(aN(1))
In altri script ho visto la funzione NumeriRipetuti o qualcosa di simile ma non è alla mia altezza.
Gli stessi autori di quegli script non si sono accorti delle ripetizioni in altri loro script.
Con la funzione NP si cerca la posizione più sortita.
Il ciclo minimo è 20 quello massimo 50, non ci si ferma perchè il valore da trovare è statistico e in base al valore, ad esempio
1° 2° 3° 4° 5°
0 3 1 6 5

si prendono il valori 6 e 5, se poi nella verifica manuale ci sta anche il 3 si usa il range 3-5-6

Ovviamente poichè non riesco a passare i duo numeri principali perchè sono un principiante, non ho nemmeno tentato di passargli le ruote di gioco.

Grazie i legend
 
i legend ha scritto:
Ciao come non detto, finito il tempo che avevo a disposizione.
La schiena e le gambe hanno ripreso a farmi parecchio male.
Ciao :)
Clicca per espandere...
Ti capisco nel 2017 mi hanno centrato due volte con l'auto e oggi ho la schiena con diverse ernie. Il dottore mi ha chiesto se facevo lo scaricatore di porto per il numero di escrescenze che escono dalle vertebre. Non riesco a stare seduto oltre i 15 minuti e quando sono a tavola mi siedo solo su una chiappa. E a causa di questo problema la vista da un occhio è peggiorata per cui non riesco a mettere a fuoco.
Sono in attesa di intrapprendere una terapia del dolore specifica ma non vi pongo molte speranze.
Tanti auguri i legend e grazie per il tuo interessamento.
p.s.: Qual'è la versione nuova di Spaziometria a cui hai accennato?
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 11 gennaio 2025
    Bari
    73
    43
    01
    58
    81
    Cagliari
    69
    60
    18
    02
    10
    Firenze
    25
    32
    18
    55
    54
    Genova
    48
    05
    40
    34
    69
    Milano
    10
    07
    70
    44
    79
    Napoli
    11
    89
    01
    34
    80
    Palermo
    37
    80
    82
    44
    77
    Roma
    78
    04
    38
    39
    56
    Torino
    08
    13
    30
    27
    24
    Venezia
    56
    75
    36
    18
    70
    Nazionale
    63
    83
    19
    31
    80
    Estrazione Simbolotto
    Bari
    35
    34
    12
    23
    20
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto