Come vedo una distanza 15 o 30 in diagonale,verticale e orizzon anche su 1- 2 ruote?

[Juri]

Ciao a tutti.

Con spaziometria non riesco a vedere ad es su ve 3-4° 23-40 e poi sempre 3-4° es 70-83 ad es.Come posso fare?Sono 6 numeri della sestina esagonale o anche solo distanza 30.Es 32-3 e 62-33.

70-83
23-40

distanza 30 in diagonale,mi sono spiegato?

Oppure

17-2
32-47

uguale in diagonale.

Oppure

17-60
77-30

in verticale.


C'è un modo più veloce che farlo a mano?MI sono spiegato bene?Possono essere sia su una ruota che 2 ruote anche in 7-8 estrazioni precedenti.


Grazie mille.

Statemi bene.

 

[claudio8]

Ti riferisci a Spaziometria con l'evdenzia numeri ,all'Editor di o agli script o cos'altro?
con questi numeri, "ve 3-4° 23-40 e poi sempre 3-4° es 70-83"
a che estrazioni ti riferisci?
Cerca di essere più esplicativo nella richiesta.

Percorso menu Spaziometria --> Elenco estrazioni --> tasto123 ( evidenzia numeri,)
all'apertira della tabella dei numeri puoi sceglierli e dopo anche salvarli con none.
es: sestina esagonale del.... evidenzia i 6 numeri e salva.
Ti consiglio di farlo singolarmente per tutti i gruppi di sestine, terzine, quartine ecc che ti interessano altrimenti quando devi fare le ricerche ti verranno evidenziati ttutti i numeri.



Editor strutture spaziometriche, è molto lungo da spiegare e sinceramente non lo ricordo a menadito quindi scarica e vediti il o i video postato da Rabberto qui: VIDEOSPIEGAZIONE SPAZIOMETRIA :
https://forum.lottoced.com/forum/lot...38#post2104038

Per gli scrpt invece dovresti richiedere volta per volta le tipologie di ricerche da fare, o fare un elenco ben dettagliato ed attenedere che qualcuno si renda disponibile, tempo permettendo.
Ps: se hai voglia di imparare a scrivere script, nello stesso post trovi il link dei video di SPAZIOSCRIPT.

Ciao

 

[Juri]

Esempio:il 20 febbraio su ge 2 e 4° 32-77 e il 24 febbraio 47-62 venezia.Ambi distanza 30 in diagonale.

Il 27 febbraio su na 6-39 in 1 e 3°.Poi su naz 84-51 1 e 3°.Sono ambi distanza 45 in diagonale.

Mi sono spiegato?Senza un software ciclometrico o che li fa si fa fatica a vederli.In spaziomatria il programma di Luigi non li fa.

Grazie mille.

 

[Juri]

Un programma ciclometrico preciso lo può fare ma vorrei vedere se riesco con meno.

Mi sono spiegato stavolta?

Sui giornali ci sono dei metodi ricercati con i programmi altrimenti a mano su 6-8 numeri è quasi impossibile da fare.

Grazie.

 

[Rubino]

ho reperito questa bozza di script di qualche anno fa, se qualcuno vuole lavorarci sopra faccia pure, perché io non ho tempo da seguirlo.
questo calcola le distanze non ciclometriche, ma le distanze normali di n1 e n2

oppure se mike58 o qualcuno ha qualche script più definito sulle distanze ciclometriche di ogni estrazione
forse è meglio.

ciao

Option Explicit
Sub Main
 Dim d,a,b,ct,r1,r2,n1,n2,es,di
 es = InputBox("Estraz.n.",,EstrazioneFin)
 di = CInt(InputBox("Distanza",,30))
 For r1 = 1 To 9
  For r2 = r1 + 1 To 10
   For a = 1 To 5
    n1 = Estratto(es,r1,a)
    For b = 1 To 5
     n2 = Estratto(es,r2,b)
     If Distanza(n1,n2) = di Then
      Scrivi "Distanza   " & di & "     " & SiglaRuota(r1) & "." & Format2(n1) & "  |  " & SiglaRuota(r2) & "." & Format2(n2)
      ct = ct + 1
     End If
    Next
   Next
  Next
 Next
  Scrivi "Totale " & ct
End Sub

 

[Juri]

Grazie forse riesco a combinare.
Statemi bene.

 

[Nikor]

Grazie forse riesco a combinare.
Statemi bene.

Ciao,io non programmo in VBa ma ho trovato questo:

Sub Main()
Dim am(2),ab(3),ruote(3),ruota(4),posta(1),poste(2),post(3)
posta(1) = 1 : poste(2) = 1 : post(2) = 1 : post(3) = 1

quante = CInt(InputBox("QUANTE ESTRAZIONI VUOI CONTROLLARE ?","•damper•",300))
If quante = False Then Exit Sub

For es =(EstrazioneFin - quante) To EstrazioneFin
Messaggio "[" & es & "]ª"

For r1 = 1 To 10
For p1 = 1 To 4
For p2 = p1 + 1 To 5
a = Estratto(es,r1,p1)
b = Estratto(es,r1,p2)

For r2 = r1 + 1 To 11
c = Estratto(es,r2,p1)
d = Estratto(es,r2,p2)
If r2 = 11 Then r2 = 12

If Distanza(a,c) = 30 And Distanza(b,d) = 30 Then

cont = cont + 1 : Scrivi
ColoreTesto 2 : Scrivi String(41,32) & " Caso n° " & cont & "",1 : ColoreTesto 0 : Scrivi

Scrivi DataEstrazione(es,1) & "" & Space(2) & "[" & es & "]ª" & Space(7) & "" & Left(NomeRuota(r1),3) & "." & Space(5) & _
"" & StringaEstratti(es,r1) & "" & Space(5) & "" & Left(NomeRuota(r1),3) & "." & Space(3) & "" & Format2(a) & _
"" & Space(1) & "" & Format2(b) & "" & Space(6) & "(" & p1 & "-" & p2 & ")",1
Scrivi DataEstrazione(es,1) & "" & Space(2) & "[" & es & "]ª" & Space(7) & "" & Left(NomeRuota(r2),3) & "." & Space(5) & _
"" & StringaEstratti(es,r2) & "" & Space(5) & "" & Left(NomeRuota(r2),3) & "." & Space(3) & "" & Format2(c) & _
"" & Space(1) & "" & Format2(d) & "" & Space(6) & "(" & p1 & "-" & p2 & ")",1 : Scrivi

Gioca es
Scrivi String(58,151)

End If
'End If :
Next :
Next :
Next :
Next :
Next
'ScriviResoconto
ColoreTesto 2
End Sub

Trova le distanze 30 in verticale, per modificare in diagonale basta variare questa riga di codice:

If Distanza(a,c) = 30 And Distanza(b,d) = 30 Then

Sostituire (a,c) con (a,d) / Sostituire (b,d) con (b,c)

C'è un'altra cosa da modificare l'incongruenza con la ruta Nazionale che da errore, ma credo che qualche scrippter ti potrà dare una mano....

Ciao.

 

[Mike58]

Prova cosi

Sub Main()
 Dim am(2),ab(3),ruote(3),ruota(4),posta(1),poste(2),post(3)
 posta(1) = 1 : poste(2) = 1 : post(2) = 1 : post(3) = 1
 quante = CInt(InputBox("QUANTE ESTRAZIONI VUOI CONTROLLARE ?","•damper•",30))
 If quante = False Then Exit Sub
 Scrivi "Ambo stessa Posizione 2 Ruote e con Distanza Diagonale = 30 ",1,,,,3,,1
 Scrivi
 For es =(EstrazioneFin - quante) To EstrazioneFin
  Messaggio "[" & es & "]ª"
  For r1 = 1 To 10
   For p1 = 1 To 4
    For p2 = p1 + 1 To 5
     a = Estratto(es,r1,p1)
     b = Estratto(es,r1,p2)
     For r2 = r1 + 1 To 12
      If r2 = 11 Then r2 = 12
      c = Estratto(es,r2,p1)
      d = Estratto(es,r2,p2)
      If r2 = 11 Then r2 = 12
      If Distanza(a,d) = 30 And Distanza(b,c) = 30 Then
       cont = cont + 1 : Scrivi
       ColoreTesto 2 : Scrivi String(41,32) & " Caso n° " & cont & "",1 : ColoreTesto 0 : Scrivi
       Scrivi DataEstrazione(es,1) & "" & Space(2) & "[" & es & "]ª" & Space(7) & "" & Left(NomeRuota(r1),3) & "." & Space(5) & _
       "" & StringaEstratti(es,r1) & "" & Space(5) & "" & Left(NomeRuota(r1),3) & "." & Space(3) & " " & Format2(a) & _
       "" & Space(1) & " " & Format2(b) & "" & Space(6) & "(" & p1 & "-" & p2 & ")",1
       Scrivi Space(73) & "><"
       Scrivi DataEstrazione(es,1) & "" & Space(2) & "[" & es & "]ª" & Space(7) & "" & Left(NomeRuota(r2),3) & "." & Space(5) & _
       "" & StringaEstratti(es,r2) & "" & Space(5) & "" & Left(NomeRuota(r2),3) & "." & Space(3) & " " & Format2(c) & _
       "" & Space(1) & " " & Format2(d) & "" & Space(6) & "(" & p1 & "-" & p2 & ")",1 : Scrivi
       'Gioca es
       Scrivi String(90,"=")
      End If
      'End If :
     Next :
    Next :
   Next :
  Next :
 Next
 'ScriviResoconto
 ColoreTesto 2
End Sub

 

[Nikor]

Ciao Mike58 grazie che hai risolto, in effetti avevo postato tutto frettolosamente senza fare verifiche ed oltre all’errore della Nazionale si era anche sformattato il listato in questa linea:

po st(3) si era creato uno spazio nel copia incolla.

Ti ringrazio a nome di Juri che adesso potrà spaziare con le sue distanze variando il valore 30 con il 15 nella riga di codice.

Nikor.

 

[Mike58]

Mettiamoci l'inputBox per scelta distanza

Sub Main()
 Dim n1(2),n2(2),ruote(3),ruota(4),posta(1),poste(2),post(3)
 posta(1) = 1 : poste(2) = 1 : post(2) = 1 : post(3) = 1
 quante = CInt(InputBox("QUANTE ESTRAZIONI VUOI CONTROLLARE ?","•damper•",30))
 If quante = False Then Exit Sub
 dist = CInt(InputBox("Quale Distanza",,30))
 Scrivi "Ambo stessa Posizione 2 Ruote e con Distanza Diagonale = " & Dist,1,,,,3,,1
 Scrivi
 For es =(EstrazioneFin - quante) To EstrazioneFin
  Messaggio "[" & es & "]ª"
  For r1 = 1 To 10
   For p1 = 1 To 4
    For p2 = p1 + 1 To 5
     a = Estratto(es,r1,p1)
     b = Estratto(es,r1,p2)
     For r2 = r1 + 1 To 12
      If r2 = 11 Then r2 = 12
      c = Estratto(es,r2,p1)
      d = Estratto(es,r2,p2)
      If r2 = 11 Then r2 = 12
      If Distanza(a,d) = dist And Distanza(b,c) = dist Then
       n1(1) = a
       n1(2) = b
       n2(1) = c
       n2(2) = d
       cont = cont + 1 : Scrivi
       ColoreTesto 2 : Scrivi String(41,32) & " Caso n° " & cont & "",1 : ColoreTesto 0 : Scrivi
       Scrivi GetInfoEstrazione(es) & vbTab & SiglaRuota(r1) & vbTab & StringaEstratti(es,r1) & Space(10) & StringaNumeri(n1,,1) & vbTab & "(" & p1 & "-" & p2 & ")",1
       Scrivi Space(73) & "><" & " Distanza Diagonale " & dist
       Scrivi GetInfoEstrazione(es) & vbTab & SiglaRuota(r2) & vbTab & StringaEstratti(es,r2) & Space(10) & StringaNumeri(n2,,1) & vbTab & "(" & p1 & "-" & p2 & ")",1
       'Gioca es
       Scrivi String(90,"=")
      End If
      'End If :
     Next :
    Next :
   Next :
  Next :
 Next
 'ScriviResoconto
 ColoreTesto 2
End Sub

 

[Juri]

Lavoro eccezionale!Grazie mille.

Riesci per caso a farlo uguale anche con più estrazioni su una ruota o 2?Su max 5 estrazioni indietro va bene.Es trovare l'incrocio su bari e bari o bari e milano 5 estrazioni prima.Mi sono spiegato?

Grazie mille.

 

[Juri]

Si riesce a fare anche con la distanza 15?Poi con la distanza 45.

Grazie mille.

 

[Mike58]

Lavoro eccezionale!Grazie mille.​

Riesci per caso a farlo uguale anche con più estrazioni su una ruota o 2?Su max 5 estrazioni indietro va bene.Es trovare l'incrocio su bari e bari o bari e milano 5 estrazioni prima.Mi sono spiegato?​

Grazie mille​

Quello che ultimamente dico sempre quando si fa uno script viene creato un certo costrutto o iter operativo per raggiungere uno scopo
poi ricambiare ed aggiungere modifiche diventa complicato

Io ti aggiungo quello che chiedi per estrapolare i dati che ti interessano ma poi per via dei tanti cicli for ed end if
la velocità di elaborazione ne risente parecchio.

Sarebbe utile se ti interessa vedere poche estrazioni di ricerca.
di più non posso fare anche perché sono impegnato in altro.

Sub Main()
 Dim n1(2),n2(2),ruote(3),ruota(4),posta(1),poste(2),post(3),ru(1)
 posta(1) = 1 : poste(2) = 1 : post(2) = 1 : post(3) = 1
 quante = CInt(InputBox("QUANTE ESTRAZIONI VUOI CONTROLLARE ?","•damper•",30))
 If quante = False Then Exit Sub
 dist = CInt(InputBox("Quale Distanza",,30))
rit = InputBox("Quale Ritardo ruota2 ricercare",,10)
 Scrivi "Ambo stessa Posizione 2 Ruote e con Distanza Diagonale = " & Dist,1,,,,3,,1
 Scrivi
Ini = EstrazioneFin-quante
fin = EstrazioneFin
 For es = Ini To fin
  Messaggio "[" & es & "]ª"
  For r1 = 1 To 10
   For p1 = 1 To 4
    For p2 = p1 + 1 To 5
     a = Estratto(es,r1,p1)
     b = Estratto(es,r1,p2)
For ex = es-10 To es-1
     For r2 = 1 To 12
      If r2 = 11 Then r2 = 12
For p3 = 1 To 4
For p4 = p3 + 1 To 5
      c = Estratto(ex,r2,p3)
      d = Estratto(ex,r2,p4)

      If r2 = 11 Then r2 = 12
      If Distanza(a,d) = dist And Distanza(b,c) = dist Then
       n1(1) = a
       n1(2) = b
       n2(1) = c
       n2(2) = d
 ru(1) = r2
sf = SerieRitardo(Ini,es,n2,ru,2)
If sf < rit Then
       cont = cont + 1 : Scrivi
       ColoreTesto 2 : Scrivi String(41,32) & " Caso n° " & cont & "",1 : ColoreTesto 0 : Scrivi
       Scrivi GetInfoEstrazione(es) & vbTab & SiglaRuota(r1) & vbTab & StringaEstratti(es,r1) & Space(10) & StringaNumeri(n1,,1) & vbTab & "(" & p1 & "-" & p2 & ")",1
       Scrivi Space(74) & "X" & " Distanza Diagonale " & dist
       Scrivi GetInfoEstrazione(ex) & vbTab & SiglaRuota(r2) & vbTab & StringaEstratti(ex,r2) & Space(10) & StringaNumeri(n2,,1) & vbTab & "(" & p3 & "-" & p4 & ")" & vbTab & sf,1
       'Gioca es
       Scrivi String(90,"=")
      End If
      End If :
     Next :
    Next :
   Next :
  Next :
 Next
Next
Next
Next
 'ScriviResoconto
 ColoreTesto 2
End Sub

 

[Juri]

Grazie mille.

Cosa mi consigli di fare?Poi non so se funziona.Per ricerche brevi va bene ma almeno 2 mesi o 3.Tu intendevi questo?

 

[Mike58]

Juri lo script c'è fai le tue giuste valutazioni.

Ciao

 

[Juri]

Grazie,stammi bene.

 

[Juri]

Come mai nel programma fatto da Mike non vedo il 3 marzo su bari 4-54 in 3 e 4° e poi il 10 marzo 84-64 su torino in 4 e 5° posizione?Sono distanza 30 in diagonale.
Anche un altro programma non vede questa unita.

Non mi dà neanche quella del 20 febbraio su ge 2 e 4° estr 32-77 e poi il 24 febbraio su ve 47-62 in 2 e 4° posizione.

Non vede neanche su ve il 10 febbraio in 1 e 3° 88-42 ve e poi il 3 febbraio 72-58 ve.


Grazie ancora.

 

[Mike58]

Perché quel tipo di ricerca lo script non la fa,se vedi la raccolta lo script è impostato per trovare solo gli ambi con stessa distanza diagonale su 2 ruote stessa estrazione.

L'altra ricerca o script non c'è ed è più complicato fare questo script.

Ciao

 

[Juri]

Perché quel tipo di ricerca lo script non la fa,se vedi la raccolta lo script è impostato per trovare solo gli ambi con stessa distanza diagonale su 2 ruote stessa estrazione.

L'altra ricerca o script non c'è ed è più complicato fare questo script.

Ciao

Lo script le cerco ma le salta qualcuna.Non le trova solo in questa estrazione.Parlo dell'ultimo script fatto.
Mi chiede che distanza voglio controllare e metto 30 ma anche 45 o 15 va.

Dov'è l'inghippo?E' un problema del software?

Grazie mille.


[09448] [ 33] 17.03.2018 MI 28.18.55.29.73 28.73 (1-5) X Distanza Diagonale 30 [09439] [ 24] 24.02.2018 RO 13.21.71.73.58 13.58 (1-5)


[09448] [ 33] 17.03.2018 MI 28.18.55.29.73 55.29 (3-4) X Distanza Diagonale 30 [09445] [ 30] 10.03.2018 TO 31.59.83.89.25 59.25 (2-5) 3

 

[Mike58]

Mi spiace non ricordavo neanche che avevo postato quel tipo di script, forse devi giocare con le estrazioni.
Visto l'elaborazione impegnativa ho messo da default poche estrazioni (30) con un ritardo precedente di Ricerca a ritroso = 10.

Forse è qui che devi operare al meglio.
per il resto non saprei lo script visto la lunga elaborazione non mi permette di fare verifiche.

Ciao