Novità

Isocroni continui

Lady Oscar

Super Member >PLATINUM<
Salve ragazzi, è da un po che mi faccio vedere!!! :(
Ho fatto una ricerca sul forum, ma non ho trovato nulla!!! Volevo sapere se esiste uno script o una funzione su spaziometria che mi consenta di verificare i casi di ambi isocroni continui attuali.

Non ho trovato nulla!!! E fare la ricerca manualmente è impossibile.

Grazie a chi vorra aiutarmi! A presto [:I]
 
2co23vn.jpg

[:p]:)[:p]

<center>
10gmnnd.png
</center>
 
Ciao Genlotto!!! Meno male che ci sei tu!!!! Provo subito e ti faccio sapere!!! ;)

Guarda che ho detto ISOCRONI .... NON SINCRONI!!! :(
 
Scusate, curiosità, gli ambi isocroni sono gli ambi usciti nella stessa estrazione su ruote diverse?

Blackmore
 
Io ho la necessita di individuare questi ambi aventi stesso ritardo ma su ruote diverse.

Non c'è nulla?.... un programma uno script...... o qualunque altraa cosa che mi permetta di fare cio?


Genlottooooooo help me!!!
 
ciao tra i tanti che ho scaricato da internet forse questo potrebbe essere un inizio



Codice:
Sub main()
Dim ruota(2)
Dim a(2)
ini=EstrazioneFin-1000
FIN=EstrazioneFin

For es=ini To Fin
For r1 =1 To 9
For r2=r1+1 To 10
ruota(1)=r1
ruota(2)=r2

For p = 1 To 4
For pp=p+1 To 5
a(1)=Estratto(es,r1,p)
a(2)=Estratto(es,r1,pp)

a3=Estratto(es,r2,6-p)
a4=Estratto(es,r2,6-pp)

If a3=a(1) And a4=a(2) Then

W1=SerieFreq((es+1),fin,A,ruotA,2)
If w1<1 Then

casi=casi+1
rt1=fin-es

ColoreTesto 0

Scrivi "casi "&formatspace(casi,4,1)&" "&DataEstrazione (es),0,0
Scrivi " "&SiglaRuota(r1)&"-"&stringaestratti(es,r1),0,0
ColoreTesto 1
Scrivi " "&SiglaRuota(r2)&"-"&stringaestratti(es,r2),0,0
ColoreTesto 0
Scrivi ".."&stringanumeri(a)&"..",1,0
ColoreTesto 2
Scrivi "RC-> "&formatspace(rt1,4)
End If
End If
Next
Next
Next
Next
Next
End Sub

questo è l'output:
Codice:
casi    1 14.04.2007 Ro-71.74.73.72.24 To-60.44.73.74.72..74.73..RC-> 686 
casi    2 19.06.2010 Ge-50.14.52.51.80 To-80.51.28.39.20..51.80..RC-> 188 
casi    3 22.07.2010 Ro-22.24.03.49.16 To-16.49.14.08.85..49.16..RC-> 174 
casi    4 23.10.2010 Ca-01.23.25.81.65 Na-65.36.70.23.42..23.65..RC-> 134 
casi    5 10.05.2011 Ba-15.21.77.78.08 Ve-08.73.76.25.15..15.08..RC-> 49  
casi    6 25.06.2011 Ge-69.79.82.51.09 To-60.51.21.79.32..79.51..RC-> 29  
casi    7 28.06.2011 Ca-24.29.75.06.23 Fi-23.67.75.72.60..75.23..RC-> 28  
casi    8 30.07.2011 Ca-45.15.44.82.02 Ro-02.66.79.30.45..45.02..RC-> 14  
casi    9 30.07.2011 Fi-10.22.62.45.75 Pa-75.45.72.04.01..45.75..RC-> 14  
casi   10 25.08.2011 Na-12.89.44.56.76 Pa-76.58.61.84.12..12.76..RC-> 3

ciao da Francesco
 
Ciao ragazzi.

X FIREFOX: Ciao caro e grazie per lo script che in effetti fa il lavoro, putroppo non completamente.... ti spiego meglio. Ho verificato l'output dello script e cio che identifica lo script sono i casi di normale isocronismo. Io invece devo cercare i casi di isocronismo continuo.

Putroppo modificare questo script è troppo complicato per me, ma se qualcuno ci da una mano si puo arrivare alla meta.

GENLOTTO è uno di quelli che è sempre stato disponibilissimo in passato nei miei confronti, confido nella sua opera.

Ritornando allo script .. .. ... ho visto che esso idnetifica solo i casi di due ruote, in realtà dovrebbe cercare i casi di isocronismo contiuno, da un minimo di 3, fino ad un massimo di 5 ruote.

COnfido in voi!!! Io posso metterci solo l'idea .. .. .. purtroppo!! :(
 
Ciao e scusami se rispondo in ritardo ma cercavo tra i vari script qualcosa che potesse avvicinarsi alla tua richiesta ma purtroppo nn ho trovato nulla. Se trovo qualcosa ti farò sapere.
Ciao da Francesco
 
Se qualcuno riesce a modificarlo, inserendo i ritardi...


Sub Main()
Dim numeri1(3)
Dim numeri2(3)
Dim ruota(1)
ruota(1)=12

fin=EstrazioneFin
ini=fin-10
For es=ini To fin
AvanzamentoElab ini,fin,es

For r=1 To 10
For p=1 To 4
For q=p+1 To 5
a=Estratto (es,r,p)
b=Estratto (es,r,q)

For r1=r+1 To 12
p1=Posizione (es,r1,a)
q1=Posizione (es,r1,b)
If p1>0 And q1>0 And r1<>11 Then

Scrivi : Scrivi
Scrivi DataEstrazione(es)&" "& Left(NomeRuota(r),2) & " " & Format2(a) &" "& Format2 (b)
Scrivi DataEstrazione(es)&" "& Left(NomeRuota(r1),2) & " "& Format2 (a) &" "& Format2 (b)

End If : Next : Next : Next : Next : Next : End Sub


Blackmore
 
Ciao ragazzi!!!! Grazieeeee per l'aiuto che mi state dando e scusate se non vi ho risposto prima.... ma io lavoro anche la domenica!!!

Speriamo che arrivi qualcuno su questo di script!!! Io sto provando qualche soluzione con excel ma credo che anche riuscendoci..... sarà lentissima l'elaborazione!!!

HELPPPPPP!!! :(
 
Per la richiesta di blackmore ho inserito il ritardo che chiedeva, però penso che non dica molto.
Ho aggiunto gli estratti delle ruote i ritardi e le frequenza degli ambi cercati.

ciao a tutti
Mike58


Sub Main()
Dim numeri1(3)
Dim numeri2(3)
Dim ruota(2)
fin = EstrazioneFin
ini = fin - 100
For es = ini To fin
AvanzamentoElab ini,fin,es
For r = 1 To 10
For p = 1 To 4
For q = p + 1 To 5
a = Estratto(es,r,p)
b = Estratto(es,r,q)
For r1 = r + 1 To 12
p1 = Posizione(es,r1,a)
q1 = Posizione(es,r1,b)
If p1 > 0 And q1 > 0 And r1 <> 11 Then
numeri1(1) = a
numeri1(2) = b
ruota(1) = r
ruota(2) = r1
Scrivi
Scrivi
Scrivi DataEstrazione(es) & " " & Left(NomeRuota(r),3) & " " & StringaEstratti(es,r) & " -> ambi uguali " & Format2(a) & " " & Format2(b),0,0
rt1 = SerieRitardo(EstrazioneIni,EstrazioneFin,numeri1,ruota,2)
fr1 = SerieFreq(EstrazioneFin-100,fin,numeri1,ruota,2)
Scrivi " ---> Ritardo ambo = " & rt1 & " --- Frequenza ambo " & fr1
Scrivi DataEstrazione(es) & " " & Left(NomeRuota(r1),3) & " " & StringaEstratti(es,r1) & " -> ambi uguali " & Format2(a) & " " & Format2(b),0,0
rt2 = SerieRitardo(EstrazioneIni,EstrazioneFin,numeri1,ruota,2)
fr2 = SerieFreq(EstrazioneFin-100,fin,numeri1,ruota,2)
Scrivi " ---> Ritardo ambo = " & rt2 & " --- Frequenza ambo " & fr2

End If
Next
Next
Next
Next
Next
End Sub
 

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 25 luglio 2025
    Bari
    53
    75
    06
    08
    43
    Cagliari
    62
    52
    59
    55
    72
    Firenze
    54
    13
    56
    14
    62
    Genova
    07
    84
    21
    58
    20
    Milano
    27
    28
    62
    61
    04
    Napoli
    16
    43
    31
    68
    50
    Palermo
    72
    34
    60
    40
    66
    Roma
    46
    72
    66
    36
    11
    Torino
    77
    29
    23
    11
    48
    Venezia
    24
    77
    41
    48
    21
    Nazionale
    70
    83
    17
    40
    71
    Estrazione Simbolotto
    Nazionale
    09
    13
    05
    38
    03
Indietro
Alto