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
    giovedì 24 luglio 2025
    Bari
    71
    27
    87
    61
    39
    Cagliari
    69
    17
    79
    09
    04
    Firenze
    32
    13
    25
    58
    22
    Genova
    24
    41
    61
    66
    16
    Milano
    55
    59
    33
    80
    38
    Napoli
    18
    52
    32
    12
    72
    Palermo
    49
    77
    78
    90
    60
    Roma
    35
    04
    30
    02
    44
    Torino
    19
    79
    56
    77
    26
    Venezia
    82
    59
    68
    24
    21
    Nazionale
    81
    32
    19
    60
    38
    Estrazione Simbolotto
    Nazionale
    32
    07
    29
    37
    28

Ultimi Messaggi

Indietro
Alto