-
.
Questo Listato trova ,dopo la sortita di un Ambo Spia,gli Ambi piu' frequenti su 1 Ruota ( che puo' essere quella dove e' uscita la ruota oppure una diversa,questo lo decidiamo noi)
In quest'esempio il Listato trova,dopo la sortita dell'ambo Spia 9-90 a Cagliari,gli ambi piu' Frequenti sortiti a Tutte
Ecco il Listato:CODICESub main()
Dim mt(4005,5),n(2),ru(1)
r=2'ruota della spia
a=9 'spia 1
b=90 'spia 2
cl=10'colpi
rr=11''ruota di rilevamento o altra ruota, basta sostituire r con un numero diverso
ru(1)=rr
ini=6500 'estrazione di partenza
fin=EstrazioneFin 'estrazione finale
cc=0
For es=ini To fin
If Posizione(es,r,a)>0 And Posizione(es,r,b)>0 Then
cc=cc+1
co=0
For i=1 To 89
n(1)=i
For j=i+1 To 90
n(2)=j
co=co+1
mt(co,1)=co
mt(co,2)=n(1)
mt(co,3)=n(2)
mt(co,4)=NomeRuota(rr)
fr=SerieFreq(es+1,es+cl,n,ru,2)
mt(co,5)=mt(co,5)+fr
Next
Next
'togli apice nell' area tratteggiata per visualizzare le estrazioni dei cicli
'----------------------------------------------------
'ColoreTesto 2
'Scrivi es&" "&NomeRuota(r)&" "& StringaEstratti (es,r)
'For z=es+1 To es+cl
'ColoreTesto 1
'Scrivi z&" "&NomeRuota(rr)&" "& StringaEstratti (z,rr)
'next
'----------------------------------------------------
ColoreTesto 0
End If
Next
OrdinaMatrice mt,-1,5
Scrivi "AMBO SPIA "& Format2(a)&"-"& Format2(b)&" sulla ruota di "& NomeRuota(r)
Scrivi "Uscito "&cc&" volte da "& DataEstrazione(ini)&" a "& DataEstrazione (fin)
For xx=1 To 5
Scrivi Format2(mt(xx,2))&" "& Format2(mt(xx,3))&" "&mt(xx,4)&" "&mt(xx,5)
Next
End Sub
Sono graditi i vostri voti per aiutare questo Forum a crescere.Grazie!
Invece questo Listato trova ,dopo la sortita di un Ambo Spia,gli Ambi piu' frequenti su 2 Ruote ( a nostra scelta):
Ecco il Listato:CODICESub main()
Dim mt(4005,6),n(2),ru(2)
r=1'ruota della spia
a=57 'spia
b=13 '2a spia
cl=10'colpi
rr=7'1° ruota
rr1=8'2° ruota
ru(1)=rr
ru(2)=rr1
scrivi
For es=6000 To EstrazioneFin-cl' 8000 è l' estrazione di partenza
If Posizione(es,r,a)>0 and Posizione(es,r,b)>0 Then
co=0
For i=1 To 89
n(1)=i
For j=i+1 To 90
n(2)=j
co=co+1
mt(co,1)=co
mt(co,2)=n(1)
mt(co,3)=n(2)
mt(co,4)=SiglaRuota(rr)
mt(co,5)=SiglaRuota(rr1)
fr=SerieFreq(es+1,es+cl,n,ru,2)
mt(co,6)=mt(co,6)+fr
Next
Next
'togli apice nell' area tratteggiata per visualizzare le estrazioni dei cicli
'----------------------------------------------------
'ColoreTesto 2
'Scrivi es&" "&SiglaRuota(r)&" "& StringaEstratti (es,r)
'For z=es+1 To es+cl
'ColoreTesto 1
'Scrivi z&" "&SiglaRuota(rr)&" "& StringaEstratti (z,rr)&" "&SiglaRuota(rr1)&" "& StringaEstratti (z,rr1)
'next
'----------------------------------------------------
ColoreTesto 0
End if
Next
OrdinaMatrice mt,-1,6
Scrivi "AMBO SPIA "& Format2(a)&"-"& Format2(b)&" sulla ruota di "& NomeRuota(r)
For xx=1 To 8
Scrivi Format2(mt(xx,2))&" "&Format2(mt(xx,3))&" "&mt(xx,4)&" "&mt(xx,5)&" "&Formatspace(mt(xx,6),4,1)
next
End Sub
Esiste anche un Listato che alla sortita di un Terno Spia,ci da' gli Ambi piu' frequenti su 1 Ruota ( che puo' essere quella dove e' uscita la ruota oppure una diversa,questo lo decidiamo noi)
In quest'esempio il Listato trova,dopo la sortita del Terno Spia 11-25-33 a Cagliari,gli ambi piu' Frequenti sortiti a Cagliari
Ecco il Listato:CODICESub main()
Dim mt(4005,5),n(2),ru(1)
r=2'ruota della spia
a=11 'spia 1
b=25 'spia 2
c=33 'spia 3
cl=10'colpi
rr=r''ruota di rilevamento o altra ruota, basta sostituire r con un numero diverso
ru(1)=rr
ini=4500 'estrazione di partenza
fin=EstrazioneFin 'estrazione finale
cc=0
For es=ini To fin
If Posizione(es,r,a)>0 And Posizione(es,r,b)>0 And Posizione(es,r,c)>0 Then
cc=cc+1
co=0
For i=1 To 89
n(1)=i
For j=i+1 To 90
n(2)=j
co=co+1
mt(co,1)=co
mt(co,2)=n(1)
mt(co,3)=n(2)
mt(co,4)=NomeRuota(rr)
fr=SerieFreq(es+1,es+cl,n,ru,2)
mt(co,5)=mt(co,5)+fr
Next
Next
'togli apice nell' area tratteggiata per visualizzare le estrazioni dei cicli
'----------------------------------------------------
'ColoreTesto 2
'Scrivi es&" "&NomeRuota(r)&" "& StringaEstratti (es,r)
'For z=es+1 To es+cl
'ColoreTesto 1
'Scrivi z&" "&NomeRuota(rr)&" "& StringaEstratti (z,rr)
'next
'----------------------------------------------------
ColoreTesto 0
End If
Next
OrdinaMatrice mt,-1,5
Scrivi "TERNO SPIA "& Format2(a)&"-"& Format2(b)&"-"& Format2 (c)&" sulla ruota di "& NomeRuota(r)
Scrivi "Uscito "&cc&" volte da "& DataEstrazione(ini)&" a "& DataEstrazione (fin)
For xx=1 To 5
Scrivi Format2(mt(xx,2))&" "& Format2(mt(xx,3))&" "&mt(xx,4)&" "&mt(xx,5)
Next
End Sub
N.B=I Listati potrebbero bloccarsi durante l'esecuzione,premere sempre quando richiesto "CONTINUE" fino alla fine..
Sono graditi i vostri voti per aiutare questo Forum a crescere.Grazie!
Saluti,Sean69!!
Edited by sean69 - 20/9/2010, 17:51
. -
mrmamau.
User deleted
ciao sean , hai un listato da poter metter in gioco il terno spia......
ciao leo. -
.ciao sean , hai un listato da poter metter in gioco il terno spia......
ciao leo
bungiorno,e' il listato appena sopra..se hai difficolta',sono qui'..ciao
Edited by sean69 - 30/12/2010, 22:58. -
giacomone66.
User deleted
ciao, mi dici il numeretto dietro la ruota che cosa indica ??? I colpi da quando si è verificato l'evento ?
Grazie. -
.ciao, mi dici il numeretto dietro la ruota che cosa indica ??? I colpi da quando si è verificato l'evento ?
Grazie
ciao,quale intendi?quello nella schermata del risultato del listato oppure nel listato stesso??. -
giacomone66.
User deleted
ciao nello screenshoot qui sopra proprio dopo Cagliari 2 (<-- numeretto) . -
.
ciao,in quell'esempio e' il numero delle volte che e' sortito l'ambo 9-60 ( oppure 67-81) a cagliari dopo l'uscita del terno spia 11-25-33..in pratica i numeretti dicono quante volte e' uscito quell'ambo dopo la sortita del terno spia..spero di essere stato abbastanza eloquente,se hai ancora dubbi,sono qui'..ciao e grazie.. . -
giacomone66.
User deleted
Quindi gli ambi + probabili da poter giocare, (quelli con il numeretto + alto come per esempio l'ambo 9.60). Ma allora non capisco, se quella formazione (in particolare) di terno spia è uscito solo una volta, come mai lo script segnala numerosi ambi (a + uscite), il numero delle sortite dopo l'evento TERNO ? Spero di essermi spiegato bene . -
.Quindi gli ambi + probabili da poter giocare, (quelli con il numeretto + alto come per esempio l'ambo 9.60). Ma allora non capisco, se quella formazione (in particolare) di terno spia è uscito solo una volta, come mai lo script segnala numerosi ambi (a + uscite), il numero delle sortite dopo l'evento TERNO ? Spero di essermi spiegato bene
ciao ,quello era solo un esempio per spiegare cosa fa' il listato:in quel caso,il listato,ha trovato,anche solo dopo 1 sortita di quel terno spia,la sortita di ben 2 volte di quegli ambi..i terni spia sono poco frequenti,poi su ruota..prova a fare una tua ricerca,su un determinato terno spia su ruota,calcolando un maggiore intervallo di tempo..io di solito nelle mie ricerche(soprattutto negli ambi spia) considero almeno 6-7 sortite(nei terni spia,su ruota ci devi lavorare molto per trovarne 6 o 7 uscite,ma e' possibile..),perche' danno(almeno credo)risultati piu' affidabili... -
giacomone66.
User deleted
Ora è chiarissimo sean il funzionamento in pratica lo script segnala le uscite a ripetizione di quell'ambo.
Magari avessi un terno spia, lo userei immediatamente.
Piuttosto io è da poco che mi cimento in script ma vorrei chiederti una cortesia, supponiamo che ad un certo numero corrispondono almeno cinque altri numeri Es.
Estr. di Martedì scorso
Bari 90 45 84 69 8
Al 90 corrisponde 23.45.78.87.12
quindi io vorrei uno script che inseriti appunto in altrettante variabili appunto i 5 abbinamenti, (in totale 6 numeri 90+ .......) mi dia un compendio statistico.
Meglio se potessi inserire all'interno dello script 90*5 valori (Tot. 450) ed a ciascuno di essi far corrispondere i numeri da 1 a 90.
Non so se sono stato chiaro
. -
.
ciao,sinceramente credo non sia fattibile realizzare un listato del genere(almeno per me..):mi dispiace,ma non posso aiutarti.. . -
giacomone66.
User deleted
Ok allora lascio li il post poi se qualcuno potrà e vorra aiutarmi gli ne saro' grato .
Quando esce Ambo Spia su Ruota! |
Offline
Web