| Ciao a tutti.
Ho questo
script ma non vede tutte le distanza 30 e anche su 1 sola ruota,come mai?
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.
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
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.
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.
Grazie mille.
Statemi bene.
|
