Isocroni continui

[Lady Oscar]

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]

 

[genlotto]

[][]

<center>

</center>

 

[Lady Oscar]

Ciao Genlotto!!! Meno male che ci sei tu!!!! Provo subito e ti faccio sapere!!!

Guarda che ho detto ISOCRONI .... NON SINCRONI!!!

 

[Roby]

Scusate, curiosità, gli ambi isocroni sono gli ambi usciti nella stessa estrazione su ruote diverse?

Blackmore

 

[Lady Oscar]

Si blackmore!!! Esatto

 

[Roby]

Guarda se questo ti può essere utile

Blackmore

 

[Lady Oscar]

Ciao ragazzi e grazie per l'aiuto, ma non ci siamo.

Continuo a chiedere aiuto!!!!! Nessun altro?? [:I]

 

[Lady Oscar]

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!!!

 

[genlotto]

quote:Originally posted by genlotto

[][]

selezione la voce sincronisci e divertiti!!

[]


<center>

</center>

 

[Lady Oscar]

Genlotto... facciamo un esempio pratico... mi aiuti a settare il programma con la funzione che dici tu?

 

[firefox]

ciao tra i tanti che ho scaricato da internet forse questo potrebbe essere un inizio

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:

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

 

[Lady Oscar]

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!!

 

[Lady Oscar]

Up ragazzi!!!!

 

[firefox]

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

 

[Roby]

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

 

[Lady Oscar]

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!!!

 

[imported_n/a]

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

 

[Lady Oscar]

CIao Mike e grazie per il tuo intervento ma come dici tu.. anche implementando lo script ... non dice molto!!!