Richiesta gentilmente di uno script

[janez57]

buona sera a tutti/e

Gentilmente si potrebbe avere uno script con queste caratteristiche:
Vorrei ricercare tre numeri in due ruote (due in una ed un'altro sull'altra).
ed una volta individuati trovare i migliori
cinque numeri che si sono combinati maggiormente per la sorte di ambo.
nei 13 colpi successivi.(i 5 numeri devono andare bene per qualsiasi ruota
dove viene individuato la terzina ricercata).
Per cui:

1)Data inizio ricerca dal 02/01/2010
2)Ricerca numeri (una terzina in due ruote ).
3)per quanti colpi vuoi metterli in gioco.

Resoconto di come si è comportato i numeri individuati.
l'ambata sarà il numero maggiormente trovato
poi la cinquina quanti ambi trovati
oppure terni trovati.

N.B.Se è possibile mettere anche la ricerca di 2 numeri (uno su una ruota e
l'altro su di un'altra) con la ricerca sempre dei 5 migliori numeri
usciti nei 13 colpi successivi sarebbe più completo.

Janez

 

[janez57]

Buona sera a tutti/e

(Porto su)

Spero qualcuno possa esaudire la mia richiesta.(Oppure mi dia una risposta se è fattibile)-
Ringrazio anticipamente.

Janez

 

[claudio8]

Probabilmente chi ti legge ( me compreso) non riesce a capire cosa effettivamente vuoi che faccia lo script.
Se inserisci maggiori informazioni ed un esempio esplicativo, qualcuno potrebbe valutare la fattibilità dello script.
Saluti

 

[janez57]

Buona sera a tutti/e

Grazie Sig.Claudio8 per la risposta.Ora metto un esempio sperando sia comprensibile.

ricerco una formula es:i numeri 13-31-58
vado a vedere dove è uscita e la trovo all'estrazione del 18/2/16 tra
Firenze 58
Roma 13-31
A questo punto vorrei trovare i 5 numeri più frequenti che mi coprono per l'uscita
dell'ambo nei 9 colpi successivi. Tenendo conto che il numero più frequente sarà l'ambata.
e i successivi 4 saranno gli abbinamenti.I 5 numeri saranno fissi e devono andare bene per qualsiasi coppia di ruote.
dove si troverà la formula .

se io metto dei numeri per esempio 70-21-66-48-3 fissi dopo l'uscita dei tre numeri di ricerca 58-13-31
e faccio una statistica dal 07/01/2010 al 03/03/2016
trovo 56 casi utili con 43 casi positivi per cui il 76,79% con controllo di 9 colpi
l'ambata 70 uscita 69 volte (69,70%)
ambi secchi 70-21/70-66/70-48/70-3 usciti 18 (18,18%)
ambi in quartina 21-66-48-34 usciti 12 (12,12)
terni (zero)
quaterne (zero).

In sostanza voglio vedere se i numeri della ricerca attuale fatta dallo script supera il confronto da
quelli messi fissi da me.
La ricerca la faccio anche con solo 2 numeri uno su una ruota e l'altro su di un'altra per cui se si può
mettere anche questa possibilità mi andrebbe meglio.
Spero essere stato esauriente.
Eventualmente sono a disposizione.

Janez

 

[claudio8]

Buona sera a tutti/e

Grazie Sig.Claudio8 per la risposta.Ora metto un esempio sperando sia comprensibile.

ricerco una formula "le spie" es:i numeri 13-31-58 - vuoi ricerca di 2 o 3 numeri a tua scelta ok
vado a vedere dove è uscita e la trovo all'estrazione del 18/2/16 tra ( ruote qualsiasi va bene, non conseguenti, diam, complem.) ok
Firenze 58 Roma 13-31. i 3 e numeri devono essere presenti in maniera indifferente " (due in una ed un'altro sull'altra e viceversa? ).
A questo punto vorrei trovare i "primi" 5 numeri più frequenti "che verifichino" se mi coprono per l'uscita dell'ambo nei 9 colpi successivi.... dico bene?
Tenendo conto che il numero più frequente sarà l'ambata. ok e i successivi 4 saranno gli abbinamenti. ( quindi 4 ambi ) ok
I 5 numeri saranno fissi e devono andare bene per qualsiasi coppia di ruote dove si troverà la formula "le spie"
Una domanda, se si verifica la ripetizione delle 3 spie sulle stesse ruote (cosa abbastanza improbabile, ma possibile) prima che siano passati i ( 9 ) colpi da te decisi, come deve comportarsi lo script, deve considerare l'accavallamento o deve escluderlo?

se io metto dei numeri per esempio 70-21-66-48-3 fissi dopo l'uscita dei tre numeri di ricerca 58-13-31
e faccio una statistica dal 07/01/2010 al 03/03/2016 ( posteresti questo script che magari può essere facilmente adattabile? )
trovo 56 casi utili con 43 casi positivi per cui il 76,79% con controllo di 9 colpi
l'ambata 70 uscita 69 volte (69,70%)
ambi secchi 70-21/70-66/70-48/70-3 usciti 18 (18,18%) direi che hai già buoni risultati con questo metodo empirico, non ti aspettare miracoli con uno script .
ambi in quartina 21-66-48-34 usciti 12 (12,12) ok
terni (zero)
quaterne (zero).

In sostanza voglio vedere se i numeri della ricerca attuale fatta dallo script supera il confronto da quelli messi fissi da me. ok
La ricerca la faccio anche con solo 2 numeri uno su una ruota e l'altro su di un'altra per cui se si può mettere anche questa possibilità mi andrebbe meglio. ho già scritto sopra questa tua richiesta/variante
Spero essere stato esauriente.
Eventualmente sono a disposizione. ..... e te credo ...( scherzo ).

Janez

Speriamo che sia tutto chiaro e da te riconfermato, in attesa che un buono scolaro svolga il compito, ti saluto

 

[janez57]

Grazie Sig.Claudio8 per la risposta.Ora metto un esempio sperando sia comprensibile.

ricerco una formula "le spie" es:i numeri 13-31-58 - vuoi ricerca di 2 o 3 numeri a tua scelta ok
vado a vedere dove è uscita e la trovo all'estrazione del 18/2/16 tra ( ruote qualsiasi va bene, non conseguenti, diam, complem.) ok
Firenze 58 Roma 13-31. i 3 e numeri devono essere presenti in maniera indifferente " (due in una ed un'altro sull'altra e viceversa? ).

(si in maniera indifferente ).

A questo punto vorrei trovare i "primi" 5 numeri più frequenti "che verifichino" se mi coprono per l'uscita dell'ambo nei 9 colpi successivi.... dico bene?
(dici bene)
Tenendo conto che il numero più frequente sarà l'ambata. ok e i successivi 4 saranno gli abbinamenti. ( quindi 4 ambi ) ok
I 5 numeri saranno fissi e devono andare bene per qualsiasi coppia di ruote dove si troverà la formula"le spie"
Una domanda, se si verifica la ripetizione delle 3 spie sulle stesse ruote (cosa abbastanza improbabile, ma possibile) prima che siano passati i ( 9 ) colpi da te decisi, come deve comportarsi lo script, deve considerare l'accavallamento o deve escluderlo?

(Deve calcolarlo come nuovo caso)calcola il primo per 9 colpi ed il successivo per altri 9 colpi e vengono calcolati 2 casi.

se io metto dei numeri per esempio 70-21-66-48-3 fissi dopo l'uscita dei tre numeri di ricerca 58-13-31
e faccio una statistica dal 07/01/2010 al 03/03/2016 ( posteresti questo script che magari può essere facilmente adattabile? )

(Non è uno script altrimenti l'avrei postato,trattasi di un programma che non mi fa quanto richiesto per questo script).

trovo 56 casi utili con 43 casi positivi per cui il 76,79% con controllo di 9 colpi
l'ambata 70 uscita 69 volte (69,70%)
ambi secchi 70-21/70-66/70-48/70-3 usciti 18 (18,18%) direi che hai già buoni risultati con questo metodo empirico, non ti aspettare miracoli con uno script .

(penso solo che con le Venus siano cambiati gli accoppiamenti dei numeri e si possa migliorare la statistica).

ambi in quartina 21-66-48-34 usciti 12 (12,12) ok
terni (zero)
quaterne (zero).

In sostanza voglio vedere se i numeri della ricerca attuale fatta dallo script supera il confronto da quelli messi fissi da me. ok
La ricerca la faccio anche con solo 2 numeri uno su una ruota e l'altro su di un'altra per cui se si può mettere anche questa possibilità mi andrebbe meglio. ho già scritto sopra questa tua richiesta/variante
Spero essere stato esauriente.
Eventualmente sono a disposizione. ..... e te credo ...( scherzo ).
(Grazie mille Sig. Claudio)

Janez

 

[claudio8]

Prova a far ricerca con questo testo su google :"TRE SPIE SU 2RT (a scelta o tutte) Ramco x Forum LottoPatrik 05/11/2009 modificato x sean69 29/09/2010"
mi pare ci sia qualcosa che faccia al caso tuo.

 

[janez57]

Buon giorno a tutti/e

Grazie mille Sig.Claudio-
Peccato non mi scelga il capogioco con 4 abbinamenti
come da me richiesto.é possibile modificarlo?

Janez

 

[claudio8]

Posta lo script che hai trovato completo di autore, chissà che non ci sia qualcuno che ti aiuti.
Ps:senza polemica, solo una constatazione. Mi fa specie che l'interesse sia tuo e che debba essere io a darti indicazioni x la soluzione.

 

[janez57]

Grazie sig. Claudio-
Avevo cercato in rete però non l'avevo scovato.
Ho risolto lo stesso usando i primi 5 numeri che formano gli ambi.
Con buoni risultati.
Grazie mille del suo contributo.

Janez

 

[solare]

Prova questo: Sub Main()
Dim n(4),x(4),nu(6),am(1),ab(5),abb(8),aabb(8),nm(2),nr(4)
Dim vet_ru(),ruote(2),ruo1(1),ruo2(1),ruo3(1),ruota(1),post1(1),post2(2)
ruo3(1) = 11
post1(1) = 1
post2(2) = 1
fin = EstrazioneFin
'-------------------------------------
ts1 = "DATA INIZIO VERIFICA ???" & Chr(13) & Chr(13) & _
"scrivere la data in formato GG.MM.AAAA" & Chr(13) & _
"separati dal *PUNTO*" & Chr(13) & Chr(13) & "Es: 16.06.2009"
a1 = InputBox(ts1,,DataEstrazione(8078)) 'Inizio estrazione se scrivi 1= dal 1871
a1 = "0." & a1
nu1 = Split(a1,".")
data1 = nu1(1) & "/" & nu1(2) & "/" & nu1(3)
ini = PrimaSuccessiva(data1)
Messaggio "dal " & data1
'------------------------------------
ac = "INSERIRE I TRE NUMERI DELLA DATA SPIA" & Chr(13) & Chr(13) & Chr(13) & _
"""DISTANZA 18""" & Chr(13) & _
"IN ORDINE DI DISTANZA (CIOE' 1) DISTANZA 18 (CIOE' 19) E DISTANZA 45 (CIOE' 46) QUINDI 1-19-46 ,,, 2-20-47 , Ect,Ect " & Chr(13) & Chr(13) & Chr(13) & _
"""DISTANZA 27""" & Chr(13) & _
"IN ORDINE DI DISTANZA (CIOE' 1) DISTANZA 27 (CIOE' 28) E DISTANZA 45 (CIOE' 46) QUINDI 1-28-46 ,,, 2-29-47, Ect,Ect" & Chr(13) & Chr(13) & _
"SEPARATI dal *PUNTO**Es: 01.01.01.01"
'----------------------------------------
aa = InputBox(ac,"","1.11.31")
aa = "0." & aa
numeri = Split(aa,".")
For j = 1 To UBound(numeri)
n(j) = CInt(numeri(j))
Next
'-------------------------------------
iruote = InputBox("Quali ruote vuoi analizzare?",,"1.2.3.4.5.6.7.8.9.10")
iruote = "0." & iruote
rrr = Split(iruote,".")
qr =(UBound(rrr))
ReDim vet_ru(qr)
rigru = ""
For j = 1 To qr
vet_ru(j) = CInt(rrr(j))
rigru = rigru & SiglaRuota(vet_ru(j)) & " "
Next
Scrivi "RICERCA EFFETTUATA SULLE RUOTE " & rigru,1
'-------------------------------------
ambt = InputBox("GIOCO L'AMBATA ???" & Chr(13) & Chr(13) & _
"1 = SI" & Chr(13) & "0 = NO",,1)
ambt = CInt(ambt)
'-------------------------------------
ci = 0
ca = 0
For es = ini To fin
Messaggio es
x(1) = n(1)
x(2) = n(2)
x(3) = n(3)
am(1) = Fuori90(x(1) + x(2) + x(3))
ab(1) = Fuori90(am(1) + 9)
ab(2) = Fuori90(am(1) + 81)
nm(1) = am(1)
cu = 0
Erase nr
For ir = 1 To qr '<===== prima ruota
r = vet_ru(ir)
For p = 1 To 4
a = Estratto(es,r,p)
If a = x(1) Or a = x(2) Or a = x(3)Then
For q = p + 1 To 5
b = Estratto(es,r,q)
If b = x(1) Or b = x(2) Or b = x(3) Then
If a = x(1) Or b = x(1) Then x(1) = 0
If a = x(2) Or b = x(2) Then x(2) = 0
If a = x(3) Or b = x(3) Then x(3) = 0
OrdinaMatrice x,- 1
For ir1 = 1 To qr '<===== prima ruota
r1 = vet_ru(ir1)
If r1 <> r And Posizione(es,r1,x(1)) > 0 Then
ruote(1) = r
ruote(2) = r1
ruo1(1) = r
ruo2(1) = r1
nr(1) = a
nr(2) = b
nr(3) = x(1)
nr(4) = x(2)
cu = cu + 1
End If
Next 'chiude ir1
End If 'chiude If b=x(1) Or b=x(2) Or b=x(3)
Next 'chiude for q
End If ' chiude If a=x(1) Or a=x(2) Or a=x(3)
Next 'chiude for p
Next 'chiude ir
If cu = 1 Then
ca = ca + 1
Scrivi "'************************************************ *************************************"
Scrivi FormatSpace(ca,4) & DataEstrazione(es) & " " & _
Left(NomeRuota(ruote(1)),2) & " " & Format2(nr(2)) & " " & Format2(nr(1)) & " " & _
Left(NomeRuota(ruote(2)),2) & " " & Format2(nr(3)),1
ColoreTesto 1
Scrivi "------------------------------------------------"
ColoreTesto 0
Scrivi "15 Estrazioni" 'estrazioni antecedenti ultima estrazione
For xx = 1 To 20
ex = es - xx
ColoreTesto 0
If Posizione(ex,ruote(1),am(1)) > 0 Then
Scrivi Left(NomeRuota(ruote(1)),2) & " " & Format2(am(1)) & _
" già sortito il " & DataEstrazione(ex)
End If
ColoreTesto 2
If Posizione(ex,ruote(2),am(1)) > 0 Then
Scrivi Left(NomeRuota(ruote(2)),2) & " " & Format2(am(1)) & _
" già sortito il " & DataEstrazione(ex)
End If
Next
Scrivi "---------------------------------------------------------------"
Scrivi "Ambo a ruota meno 50 estrazioni" ''cerca ambo in cinquina su ruote
For kk = 1 To 50 'estrazioni antecedenti ultima estrazione
ekk = es - kk
ColoreTesto 0
If SerieFreq(ekk,ekk,ab,ruo1,2) > 0 Then
Scrivi DataEstrazione(ekk) & " " & Left(NomeRuota(ruo1(1)),2) & " Ambo" 'su 1° ruota
End If
ColoreTesto 2
If SerieFreq(ekk,ekk,ab,ruo2,2) > 0 Then
Scrivi DataEstrazione(ekk) & " " & Left(NomeRuota(ruo2(1)),2) & " Ambo" 'su 2° ruota
End If
Next
ColoreTesto 1
Scrivi "--------------------------------------------------------------"
Scrivi "Ambo a tutte meno 20 estrazioni"''cerca ambo in cinquina a tutte
ColoreTesto 1
For k = 1 To 20 'estrazioni antecedenti ultima estrazione
ek = es - k
ColoreTesto 1
If SerieFreq(ek,ek,ab,ruo3,2) > 0 Then
Scrivi DataEstrazione(ek) & " " & Left(NomeRuota(ruo3(1)),2) & " Ambo" 'a tutte
End If
Next
ColoreTesto 1
Scrivi "---------------------------------------------------------------"
'************************************************* **************
co = 1
If ambt = 1 Then
ImpostaGiocata co,am,ruote,post1,18,1
End If
For y = 1 To 4
co = co + 1
nm(2) = ab
ImpostaGiocata co,nm,ruote,post2,18,2
Next
ImpostaGiocata co + 1,ab,ruote,post2,18,2
For y = 2 To 6
For j = 1 To 6
ImpostaInterruzioni j,1,1
ImpostaInterruzioni j,y,2
Next
Next
If ca = 1 Or es >(fin - 18) Then
Gioca es,,True
Else
Gioca es,True
End If
For z = 1 To 6
If eval(z) = False Then
ce = ce + 1
End If
If ce = 6 And es <(fin - 18) Then
ci = ci + 1
ColoreTesto 2
Scrivi String(49," ") & "ESITO NEGATIVO al " & DataEstrazione(es + 18),1
ColoreTesto 0
Scrivi ""
End If
Next
ce = 0
End If 'chiude if cu=1
Next 'chiude es
'-------------------------------
ColoreTesto 1
Scrivi String(90,"=")
ColoreTesto 2
Scrivi "Numeri data " & StringaNumeri,1
Scrivi "Se due numeri della data formeranno un ambo su una ruota" & _
" e il terzo sarà presente su" & Chr(13) & "un'altra ruota qualsiasi," & _
" si giocherà questa previsione sulle ruote di rilevamento:"
If ambt = 1 Then
Scrivi am(1) & " Ambata",1
End If
Scrivi nm(1) & "-" & ab(1) & " Ambo" & Chr(13) & _
nm(1) & "-" & ab(2) & " Ambo" & Chr(13) & _
nm(1) & "-" & ab(3) & " Ambo" & Chr(13) & _
nm(1) & "-" & ab(4) & " Ambo" & Chr(13) & _
ab(1) & "." & ab(2) & "." & ab(3) & "." & ab(4) & "." & ab(5) & " Cinquina",1
ColoreTesto 1
Scrivi String(90,"=")
Scrivi
Scrivi " Eventi presentatisi: " & ca & Chr(13) & _
" Eventi positivi: " & ca - ci & Chr(13) & _
" Eventi negativi: " & ci,1
ScriviResoconto
End Sub

 

[solare]

oppure questo....magari qualcuno di esperto in meteria può modificarlo.
Sub Main()

Dim n(3),x(3),a1(3),xc(3),ru(2),nu1(4005,4),nn(2)
Dim nu2(4005,4),nn1(6),nu3(90,3),nn2(2),nu4(90,3),nx(90)

ab = "Digita Tre numeri distanziati dal punto(.)"
aa = InputBox(ab,"Numeri di Ricerca","22.33.55")
aa = "0." & aa
s = Split(aa,".")

n(1) = CInt(s(1))
n(2) = CInt(s(2))
n(3) = CInt(s(3))

Erase nu1
Erase nu2
Erase nu3
Erase nu4

fin = EstrazioneFin
ini = CInt(InputBox("Da che Estrazione Iniziamo?(3575 dal 1939 ; 6584 doppia estr.; 8200 3^Estr.)","ESTRAZIONE",8200))
'3575 estrazione 1939<----->> 6584 <<inizio doppia estrazione <<< 3° estrazione 7454
ww = CInt(InputBox("Quante Estrazioni successive utilizziamo per il controllo?","SUCCESSIVE",13))
cnt = CInt(InputBox("Nella Visualizzazione quante Formazioni vuoi vedere ?","FORMAZIONI",5))
sru = CInt(InputBox("VUOI CONTROLLARE TUTTE LE RUOTE ? (1=SI ; 2=NO)","SCELTA RUOTE",1))
If sru = 1 Then
casi = 0
For es = ini To fin
Messaggio " Numeri Spia " & StringaNumeri & " Data " & DataEstrazione(es)
For r = 1 To 10 'Qui si cambia per controllare una ruota particolare 10 to 10 VE, o TUTTE 1 to 10
x(1) = n(1)
x(2) = n(2)
x(3) = n(3)
For p = 1 To 4
a = Estratto(es,r,p)
If a = x(1) Or a = x(2) Or a = x(3) Then
For q = p + 1 To 5
b = Estratto(es,r,q)
If b = x(1) Or b = x(2) Or b = x(3) Then
If a = x(1) Or b = x(1) Then x(1) = 0
If a = x(2) Or b = x(2) Then x(2) = 0
If a = x(3) Or b = x(3) Then x(3) = 0
OrdinaMatrice x,- 1
If x(1) = 0 Then ColoreTesto 2 : Call informa(es,r,a,b,0,0)
For r1 = 1 To 10 'Qui si cambia per controllare una ruota particolare 10 to 10 VE, o TUTTE 1 to 10
If r1 <> r Then
pq = Posizione(es,r1,x(1))
If pq > 0 Then
casi = casi + 1
ColoreTesto 0 : Scrivi casi & ")",0 : Call informa(es,r,a,b,r1,x(1))
ess = es + ww
If ess > fin Then ess = fin End If
co = 0
For x1 = 1 To 89
For y1 = x1 + 1 To 90
co = co + 1
nu1(co,1) = co : nu1(co,2) = x1 : nu1(co,3) = y1
nn(1) = x1 : nn(2) = y1 : ru(1) = r : ru(2) = r1
k1 = SerieFreq(es + 1,ess,nn,ru,2)
nu1(co,4) = nu1(co,4) + k1
nu2(co,1) = co : nu2(co,2) = x1 : nu2(co,3) = y1
nn1(1) = x1 : nn1(2) = y1 : ru(1) = r : ru(2) = r1
k2 = SerieFreq(es + 1,ess,nn1,ru,2)
If k2 > 1 Then k2 = 1
nu2(co,4) = nu2(co,4) + k2
Next
Next
co = 0
For xx = 1 To 90
co = co + 1
nu3(co,1) = co : nu3(co,2) = xx
nn2(1) = xx : ru(1) = r : ru(2) = r1
k3 = SerieFreq(es + 1,ess,nn2,ru,1)
If k3 > 1 Then k3 = 1
nu3(co,3) = nu3(co,3) + k3
nu4(co,1) = co : nu4(co,2) = xx
nn2(1) = xx : ru(1) = r : ru(2) = r1
k4 = SerieFreq(es + 1,ess,nn2,ru,1)
nu4(co,3) = nu4(co,3) + k4
Next
End If
End If
Next
End If
Next
End If
Next
Next
Next
Else
If sru = 2 Then
nrt = InputBox("DIGITA LE DUE RUOTE DI RICERCA [1=BA ; 2=CA...](separate dal (.))","RUOTE RICERCA","4.9")
nrt = "0." & nrt
rts = Split(nrt,".")
rq1 = CInt(rts(1))
rq2 = CInt(rts(2))
For es = ini To fin
Messaggio " Numeri Spia " & StringaNumeri & " Data " & DataEstrazione(es)
For r = 1 To 10
If r = rq1 Or r = rq2 Then
x(1) = n(1)
x(2) = n(2)
x(3) = n(3)
For p = 1 To 4
a = Estratto(es,r,p)
If a = x(1) Or a = x(2) Or a = x(3) Then
For q = p + 1 To 5
b = Estratto(es,r,q)
If b = x(1) Or b = x(2) Or b = x(3) Then
If a = x(1) Or b = x(1) Then x(1) = 0
If a = x(2) Or b = x(2) Then x(2) = 0
If a = x(3) Or b = x(3) Then x(3) = 0
OrdinaMatrice x,- 1
If x(1) = 0 Then ColoreTesto 2 : Call informa(es,r,a,b,0,0)
For r1 = 1 To 10
If r1 <> r Then
If r1 = rq1 Or r1 = rq2 Then
pq = Posizione(es,r1,x(1))
If pq > 0 Then
casi = casi + 1
ColoreTesto 0 : Scrivi casi & ")",0 : Call informa(es,r,a,b,r1,x(1))
ess = es + ww
If ess > fin Then ess = fin End If
co = 0
For x1 = 1 To 89
For y1 = x1 + 1 To 90
co = co + 1
nu1(co,1) = co : nu1(co,2) = x1 : nu1(co,3) = y1
nn(1) = x1 : nn(2) = y1 : ru(1) = r : ru(2) = r1
k1 = SerieFreq(es + 1,ess,nn,ru,2)
nu1(co,4) = nu1(co,4) + k1
nu2(co,1) = co : nu2(co,2) = x1 : nu2(co,3) = y1
nn1(1) = x1 : nn1(2) = y1 : ru(1) = r : ru(2) = r1
k2 = SerieFreq(es + 1,ess,nn1,ru,2)
If k2 > 1 Then k2 = 1
nu2(co,4) = nu2(co,4) + k2
Next
Next
co = 0
For xx = 1 To 90
co = co + 1
nu3(co,1) = co : nu3(co,2) = xx
nn2(1) = xx : ru(1) = r : ru(2) = r1
k3 = SerieFreq(es + 1,ess,nn2,ru,1)
If k3 > 1 Then k3 = 1
nu3(co,3) = nu3(co,3) + k3
nu4(co,1) = co : nu4(co,2) = xx
nn2(1) = xx : ru(1) = r : ru(2) = r1
k4 = SerieFreq(es + 1,ess,nn2,ru,1)
nu4(co,3) = nu4(co,3) + k4
Next
End If
End If
End If
Next
End If
Next
End If
Next
End If
Next
Next
End If
End If
OrdinaMatrice nu1,- 1,4
OrdinaMatrice nu2,- 1,4
OrdinaMatrice nu3,- 1,3
OrdinaMatrice nu4,- 1,3

Scrivi : ColoreTesto 2
Scrivi "Formazione Spia Cercata su due ruote " & StringaNumeri & " dal " & DataEstrazione(ini) & " al " & DataEstrazione(fin),1
ColoreTesto 1
Scrivi "Casi riscontrati " & CInt(casi) & " - Analisi effettuata sulle " & ww & " estrazioni sucessive "
ColoreTesto 2
Scrivi "CONTENUTO DELLE COLONNE SOTTOSTANTI ",1
ColoreTesto 1
Scrivi "Ambi+presenti / Ambi+frequenti nei cicli / Estratti+frequenti nei c. / Estratti+presenti "
Scrivi
ColoreTesto 2
Scrivi Space(10) & "Ambi+P. Tot.| Ambo+FxC Tot.| Est.+FxC Tot.| Est.+Pr Tot."
ColoreTesto 0
For wx = 1 To cnt
riga = Format2(nu1(wx,2)) & "-" & Format2(nu1(wx,3)) & Space(4) & Format2(nu1(wx,4)) & Space(4) & _
Format2(nu2(wx,2)) & "-" & Format2(nu2(wx,3)) & Space(4) & Format2(nu2(wx,4)) & Space(5) & _
Format2(nu3(wx,2)) & Space(5) & Format2(nu3(wx,3)) & Space(6) & Format2(nu4(wx,2)) & Space(4) & _
Format2(nu4(wx,3))
Scrivi Space(10) & riga,1
riga = ""
Next
Scrivi String(90,"*")
End Sub

Function informa(es,r,a,b,r1,c)
Scrivi DataEstrazione(es) & " " & Left(NomeRuota(r),2) & " " & _
Format2(a) & "-" & Format2(b) & " " & Left(NomeRuota(r1),2) & " " & Format2(c),1
End Function

 

[janez57]

Buon pomeriggio a tutti/e.

Grazie mille Solare.

Il primo mi da errore .
Il secondo va bene

Janez

 

[solare]

Bene, sono contento per te

 

[janez57]

Buona sera a tutti/e
Avrei bisogno gentilmente di modificare lo script postato da Solare il 7/3/16 ora 13,17
post.12
Con le seguenti modifiche:

Che lavori sempre in 2ruote (con 2 spie una su una e l'altra sull'altra).
anche magari quando esce lo stesso numero es: se trovo vedi estrazione del 3/3/16 fi-ge doppio25
mi analizzi i numeri migliori.
Questa MIGLIORIA se la si può fare anche sulla ricerca tre numeri dello script originale che non lo fa. Se trova un numero
uguale.Infatti se si prova mettere 25-25-32 non mi calcola nulla.

Poi modificarlo che lavori su 2ruote con 4 numeri (uno su una ruota e 3 sull'altra compreso 2 su una
e 2 sull'altra) come chiesto sopra anche con un doppio numero uguale tipo se metto un ambo ripetuto
vedo quali ambi migliori mi trova.Oppure posso ricercare 4 numeri tipo 1-90-1-89 così mi posso
sbizzarire con qualsiasi spia di ricerca e vedere quali sono i numeri migliori.

Infine se è possibile Modificarlo per lavorare su ruota unica con 1 spia oppure 2 spie oppure 3 spie a scelta
così avrei un quadro completo di tutte le mie ricerche.

Grazie mille a chi può soddisfare la mia richiesta.

Janez

 

[janez57]

Buona domenica a tutti/e
Porto su.
Con la speranza che qualcuno mi possa aiutare.

Grazie
Janez