Novità

listato da fare

29.10.2013 Milano 83 Venezia 14 AMBATA 07 ,, x MAX-LOTTO HAI PRESENTE QUESTA CONDZ 83.14 POTREBBE CHIUDERE ANCHE CON LA TRIPLA FIG 2.5.8 E COSI HA FATTO,, E USCITO IL 35 A COLPO SU VE,, E QUESTO SPIEGA A VOLTE PERCHE NN ESCE L AMBATA DELLA SOMMA DELLE DUE FIGURE 2+5 UGUALE 7,, VEDASI LE FIGURE ALLEGATEtripla figura.jpgmi-ve 35.JPG
 
29.10.2013 Milano 83 Venezia 14 AMBATA 07 ,, x MAX-LOTTO l ambo 83.14 si ricollega anche con questa figura35 MI-VE.jpg
 
Ciao Max-lotto il listato nn e che nn funziona e solo che potrebbe esserci una variante di gioco per cui nn sempre funziona comunque per iniziare va bene il listato x la ricerca di questi ambi in pos isotopa e si potrebbe provare a giocare l ambata per un solo colpo anche se un ambata su due ruote nn e molto conveniente per cui bisognerebbe trovare l abb x ambo di questo estratto,,
 
per trovare questa variante di gioco bisognerebbe trovare il terzo estratto che chiude il triangolo in armonia distanziale con la tripla figurale , esempio di 83.14.35, perche come tu sai questi ambi appartengono alle triple 1.4.7,, 2.5.8,,,3.6.9 ebbene questi ambi rientrano in queste triple, per questo motivo ti avevo detto che il 30.30 nn e valido come ambo di ricerca
 
Ultima modifica:
se si potrebbe fare un listato anche per questa variante di gioco x l estratto e valutare poi le convergenze sarebbe il massimo
 
31.10.2013 Firenze 14 Napoli 62 AMBATA 76 variante di gioco x estratto 56,, 62.14.56
31.10.2013 Genova 11 Palermo 68 AMBATA 79 variante di gioco x estratto 44,, 68.11.44
31.10.2013 Genova 64 Palermo 13 AMBATA 77 variante di gioco x estratto 52,, 64.13.52
31.10.2013 Napoli 31 Nazionale 28 AMBATA 59
31.10.2013 Torino 31 Nazionale 28 AMBATA 59 variante di gioco x estratto 34 ,, 28.31.34
 
Ultima modifica:
scusa zetrix ma 14 83 distanza 21 ,21+14 =35 ma c'è anche il 62 [ 62<--- +21----83----14--- +21--->35] quindi con questi ambi dovresti ricavare due ambate formando un trapezio ..
 
Ecco il script della seconda variante vedi come va fammi sapere...
Codice: 
Sub Main
 Scrivi " Script per Zetrix , l'ambo Aura by *Max-lotto*",1,,3
 Scrivi"============================================"
 Dim Aambata(1),Aambata2(1),moltper4,Anx,Bnx,x1,x2,n1,n2,c,rs,Ini,fin,es,r1,r2,p1,p2
 Dim ruote(2)
 Dim poste(1)
 rs = InputBox("Quante estrazioni vuoi controllare?",,100)
 fin = EstrazioneFin
 Ini = fin - rs
 For es = Ini To fin
  For r1 = 1 To 10
   For r2 = r1 + 1 To 12
    If r2 = 11 Then r2 = 12
    For p1 = 1 To 5
     For p2 = 1 To 5
      If p1 = p2 Then
       n1 = Estratto(es,r1,p1)
       n2 = Estratto(es,r2,p2)
       If(n2 = 90) = False And(n1 = 90) = False Then
        Anx = Fuori90(n1*2)
        Bnx = Fuori90(n2*2)
        x1 = Fuori90(180 - Anx)
        x2 = Fuori90(180 - Bnx)
        If x1 = n2 Or x2 = n1 Then
         poste(1) = 1
         ruote(1) = r1
         ruote(2) = r2
         moltper4 = Fuori90((n1 + n2)*4)
         Aambata(1) = Fuori90(n1 + n2)
         Aambata2(1) = Abs((moltper4) - 90)
         ImpostaGiocata 1,Aambata,ruote,poste,9,1
         Gioca es
         'Seconda Variante
         ImpostaGiocata 2,Aambata2,ruote,poste,9,1
         Gioca es
         Scrivi DataEstrazione(es) + " " + NomeRuota(r1) + " " + Format2(n1) + " " + NomeRuota(r2) + " " + Format2(n2) + " AMBATA " + Format2(Fuori90(n1 + n2)) + " Ambata seconda variante " + Format2(Aambata2(1)) + " ",1,,,1
        End If
       End If
      End If
     Next
    Next
   Next
  Next
 Next
 ScriviResoconto False,False
End Sub
 
Ultima modifica:
grazie Max ho controllato lo script i risultati al 1colpo di gioco x la variante si sono verificati alcune volte ,,comunque vedo che sei bravo a fare gli script ,, per adesso mettiamolo un po da parte questo script poi vedro se e da fare qualche modifica,,volevo chiederti se mi puoi fare uno script che ricerca tre num disposti a forma quadrato che appartengono alla stessa tripla figurale pero con una condz le ruote devono essere diametrali ,, poi dopo si rileva la possibile chiusura del quadrato in armonia con la tripla figurale e distanziale, per cui due di essi devono essere della stessa figura in modo da completare il quadrato con la figura mancante ,, questo e piu o meno il sunto della ricerca,, lo script dovrebbe solo rilevare questi tre num due di essi in forma isotopa poi il quarto estratto lo rilevo io in chiusura e con eventuali abb x ambo
 
Ultima modifica:
x max-lotto forse sul primo listato sarebbe meglio optare il campo di ricerca solo sulle ruote diam,, perche queste ruote si trovano in sinergia tra loro e anche per restringere il campo delle giocate
 
Ciao zetrix grazie per i complimenti ma qui ci sono molto piu bravi dime, ecco il script :o
Codice: 
'grazie Max ho controllato lo script i risultati al 1colpo di gioco
'x la variante si sono verificati alcune volte ,,comunque vedo che
'sei bravo a fare gli script ,, per adesso mettiamolo un po da parte
'questo script poi vedro se e da fare qualche modifica,,volevo chiederti
'se mi puoi fare uno script che ricerca tre num disposti a forma quadrato
'che appartengono alla stessa tripla figurale pero con una condz le ruote
'devono essere diametrali ,, poi dopo si rileva la possibile chiusura del
'quadrato In armonia con la tripla figurale e distanziale, per cui due di essi
'devono essere della stessa Figura In modo da completare il quadrato con la Figura
' mancante ,, questo e piu o meno il sunto della ricerca,, lo script dovrebbe solo
'rilevare questi tre num due di essi In forma isotopa poi il quarto
' Estratto lo rilevo io In chiusura e con eventuali abb x ambo
Sub Main
 Dim idEstr
 Dim Inizio
 Dim Fine
 Dim nDaFare
 Dim nFatte
 Dim nNum1,nNum2,nNum3
 ' Imposto i limiti del range di analisi
 Inizio = EstrazioneFin - 20 ' 14.09.2013 
 Fine = EstrazioneFin' 31.10.2013 
 ' Calcolo estrazioni da fare
 nDaFare =(Inizio - Fine) - 1
 ' Blocco analisi estrazioni
 For idEstr = Inizio To Fine
  For r1 = 1 To 10
   For r2 = 1 To 10
       If r2 - r1 = 5 Or r1 - r2 = 5 Then
     For p1 = 1 To 5
      For p2 = p1 + 1 To 5
       For p3 = 1 To 5
        If p1 = p3 Or p2 = p3 Then
         nNum1 = Estratto(idEstr,r1,p1)
         nNum2 = Estratto(idEstr,r1,p2)
         nNum3 = Estratto(idEstr,r2,p3)
         u = Figura(nNum1)
         uu = Figura(nNum2)
         If Figura(nNum1) = u And Figura(nNum3) = u Or Figura(nNum2) = uu And Figura(nNum3) = uu Then
          If Distanza(u,Figura(nNum2)) = 3 Or Distanza(u,Figura(nNum2)) = 6 Or Distanza(u,Figura(nNum2)) = 9 Or Distanza(uu,Figura(nNum1)) = 3 Or Distanza(uu,Figura(nNum1)) = 6 Or Distanza(uu,Figura(nNum1)) = 9 Then
           Scrivi DataEstrazione(idEstr) + " " + SiglaRuota(r1) + " " + Format2(nNum1) + " " + Format2(nNum2) + " " + SiglaRuota(r2) + " " + Format2(nNum3)
          End If
         End If
        End If
       Next
      Next
     Next
    End If
   Next
  Next
  Call AvanzamentoElab(Inizio,Fine,idEstr)
  Call Messaggio("Estrazioni elaborate : " & nFatte)
  Scrivi + "==================================================================================================="
  nFatte = nFatte + 1
  ' Gestione interruzione elaborazione
  If ScriptInterrotto Then Exit For
 Next
End Sub
 
Ultima modifica:
ho fatto una modifica in questo script togliendo l'apice si trovano le figure nel cerchio ciclometrico
Codice: 
Sub Main
 Dim idEstr
 Dim Inizio
 Dim Fine
 Dim nDaFare
 Dim nFatte
 Dim nNum1,nNum2,nNum3,aNumeri(3)
 ' Imposto i limiti del range di analisi
 Inizio = EstrazioneFin - 3 ' 14.09.2013
 Fine = EstrazioneFin' 31.10.2013
 ' Calcolo estrazioni da fare
 nDaFare =(Inizio - Fine) - 1
 ' Blocco analisi estrazioni
 For idEstr = Inizio To Fine
  For r1 = 1 To 10
   For r2 = 1 To 10
    If r2 - r1 = 5 Or r1 - r2 = 5 Then
     For p1 = 1 To 5
      For p2 = p1 + 1 To 5
       For p3 = 1 To 5
        If p1 = p3 Or p2 = p3 Then
         nNum1 = Estratto(idEstr,r1,p1)
         nNum2 = Estratto(idEstr,r1,p2)
         nNum3 = Estratto(idEstr,r2,p3)
         u = Figura(nNum1)
         uu = Figura(nNum2)
         If Figura(nNum1) = u And Figura(nNum3) = u Or Figura(nNum2) = uu And Figura(nNum3) = uu Then
          If Distanza(u,Figura(nNum2)) = 3 Or Distanza(u,Figura(nNum2)) = 6 Or Distanza(u,Figura(nNum2)) = 9 Or Distanza(uu,Figura(nNum1)) = 3 Or Distanza(uu,Figura(nNum1)) = 6 Or Distanza(uu,Figura(nNum1)) = 9 Then
           Scrivi DataEstrazione(idEstr) + " " + SiglaRuota(r1) + " " + Format2(nNum1) + " " + Format2(nNum2) + " " + SiglaRuota(r2) + " " + Format2(nNum3)
           '==================================================
           'Togliere l'apice per vedere la figura ciclometrica
           'aNumeri(1) = nNum1
           'aNumeri(2) = nNum2
           'aNumeri(3) = nNum3
           'Call DisegnaCerchioCiclometrico(aNumeri ,True)
           '========================================================
          End If
         End If
        End If
       Next
      Next
     Next
    End If
   Next
  Next
  Call AvanzamentoElab(Inizio,Fine,idEstr)
  Call Messaggio("Estrazioni elaborate : " & nFatte)
  Scrivi + "==================================================================================================="
  nFatte = nFatte + 1
  ' Gestione interruzione elaborazione
  If ScriptInterrotto Then Exit For
 Next
End Sub
 
Ultima modifica:
grazie Max lo script e perfetto nn da nessuno errore bene anche la visualizzazione delle figure nel cerchio ciclom mi e d aiuto su come chiudere le figure ,, ti ringrazio moltissimo per il tempo dedicato a me ,,
 
Ultima modifica:
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 18 gennaio 2025
    Bari
    24
    76
    02
    72
    12
    Cagliari
    21
    08
    77
    04
    17
    Firenze
    74
    84
    07
    12
    72
    Genova
    13
    07
    33
    47
    18
    Milano
    01
    34
    09
    55
    48
    Napoli
    46
    23
    25
    03
    06
    Palermo
    44
    07
    01
    46
    84
    Roma
    88
    78
    64
    74
    04
    Torino
    07
    87
    67
    38
    53
    Venezia
    31
    25
    04
    18
    02
    Nazionale
    49
    82
    59
    65
    67
    Estrazione Simbolotto
    Bari
    03
    13
    31
    23
    35
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto