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
    martedì 22 luglio 2025
    Bari
    29
    03
    79
    27
    86
    Cagliari
    22
    54
    55
    50
    29
    Firenze
    52
    38
    30
    29
    83
    Genova
    08
    62
    20
    69
    26
    Milano
    17
    45
    55
    67
    73
    Napoli
    64
    39
    35
    62
    02
    Palermo
    84
    33
    60
    43
    28
    Roma
    33
    79
    27
    41
    81
    Torino
    35
    58
    38
    70
    56
    Venezia
    64
    11
    07
    57
    27
    Nazionale
    53
    15
    38
    52
    66
    Estrazione Simbolotto
    Nazionale
    18
    24
    03
    21
    15

Ultimi Messaggi

Indietro
Alto