listato da fare

[Zetrix]

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 ALLEGATE

 

[Zetrix]

29.10.2013 Milano 83 Venezia 14 AMBATA 07 ,, x MAX-LOTTO l ambo 83.14 si ricollega anche con questa figura

 

[*Max-lotto*]

Ciao zetrix non ho capito bene ma il listato non funziona? perche mi stai mettendo tutte ste immagini?

 

[Zetrix]

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,,

 

[Zetrix]

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

 

[Zetrix]

se si potrebbe fare un listato anche per questa variante di gioco x l estratto e valutare poi le convergenze sarebbe il massimo

 

[Zetrix]

comunque per iniziare va bene il primo listato poi si effettuera la variante di gioco

 

[Zetrix]

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

 

[*Max-lotto*]

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 ..

 

[Zetrix]

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 ..

si e vero pero noi seguiamo in senso orario la chiusura del triangolo

 

[Zetrix]

x Max-lotto stasera vediamo cosa esce poi vedremo se selezionare solo le ruote diam ,,

 

[*Max-lotto*]

Ecco il script della seconda variante vedi come va fammi sapere...

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

 

[Zetrix]

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

 

[Zetrix]

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

 

[Zetrix]

x max-lotto questo e un esempio che dovrebbe fare lo script

 

[*Max-lotto*]

Ciao zetrix grazie per i complimenti ma qui ci sono molto piu bravi dime, ecco il script

'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

 

[avio]

29.10.2013 Milano 83 Venezia 14 AMBATA 07 ,, x MAX-LOTTO l ambo 83.14 si ricollega anche con questa figuraVedi l'allegato 8207

ciao a tutti

questa funzione in questa figura, si trova su spaziometria ho è un' altro programma ?

grazie

 

[*Max-lotto*]

ho fatto una modifica in questo script togliendo l'apice si trovano le figure nel cerchio ciclometrico

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

 

[Zetrix]

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 ,,

 

[Zetrix]

ciao a tutti

questa funzione in questa figura, si trova su spaziometria ho è un' altro programma ?

grazie

no avio nn si trova in spaziometria e un altro programma