BUONA DOMENICA ....DOMANDA AGLI ESPERTI

[mastrogino]

DA UN MIO METODO HO NOTATO CHE UN TIPO DI NUMERI HANNO UNA SEGUENZA DI USCITA
CIOEEE ESCONO POI A DISTANZA SI RIPRESENTANO ....... LA MIA DOMANDA E QUESTA
HANNO UN ALGORITMO???
DI SEGUITO HO POSTATO QUELLO CHE MI DA IL LISTATO

 

[mastrogino]

QUESTO E UN ESEMPIO
-------------------------------------------------------------------Giocata n°01
Estrazione generatrice del pronostico 09211 [109 - 10/09/2016]
G 0001 Numeri in gioco : 86.50 su VE NZ per Estratto,Ambo
V N. [86.50 ] [VE] [.. .. .. .. 86] C. 3 Estratto 09214 [112 - 17/09/2016]
V N. [86.50 ] [VE] [.. .. 50 .. ..] C. 13 Estratto 09224 [122 - 11/10/2016]
Interrotta per raggiunta durata

G 0002 Numeri in gioco : 86.50 su TT per Ambo
Interrotta per raggiunta durata


DOPO I 13/15 COLPI SI RIPRESENTA L'AMBO


-------------------------------------------------------------------Giocata n°15
Estrazione generatrice del pronostico 09225 [123 - 13/10/2016]
G 0001 Numeri in gioco : 86.50 su VE NZ per Estratto,Ambo
V N. [86.50 ] [NZ] [50 .. .. .. ..] C. 4 Estratto 09229 [127 - 22/10/2016]
V N. [86.50 ] [VE] [.. .. 50 .. ..] C. 6 Estratto 09231 [129 - 27/10/2016]
V N. [86.50 ] [NZ] [86 .. .. .. ..] C. 10 Estratto 09235 [133 - 05/11/2016]
Interrotta per raggiunta durata

G 0002 Numeri in gioco : 86.50 su TT per Ambo
V N. [86.50 ] [TT] [PA][50 86 .. .. ..] C. 13 Ambo 09238 [136 - 12/11/2016]
Interrotta per raggiunta durata
Interrotta per esito verificato

DOPO ALLA FINE DEI COLPI SI RIPRESENTA L'AMBO

-------------------------------------------------------------------Giocata n°30
Estrazione generatrice del pronostico 09240 [138 - 17/11/2016]
G 0001 Numeri in gioco : 86.50 su VE NZ per Estratto,Ambo
Interrotta per raggiunta durata

G 0002 Numeri in gioco : 86.50 su TT per Ambo
V N. [86.50 ] [TT] [CA][.. 86 .. 50 ..] C. 13 Ambo 09253 [151 - 17/12/2016]
Interrotta per raggiunta durata
Interrotta per esito verificato

ECCO ALLA FINE DEI COLPI SI RIPRESENTANO LE AMBATE


-------------------------------------------------------------------Giocata n°43
Estrazione generatrice del pronostico 09253 [151 - 17/12/2016]
G 0001 Numeri in gioco : 86.50 su VE NZ per Estratto,Ambo
V N. [86.50 ] [NZ] [.. .. 50 .. ..] C. 5 Estratto 09258 [156 - 29/12/2016]
V N. [86.50 ] [NZ] [.. .. 86 .. ..] C. 9 Estratto 09262 [ 3 - 07/01/2017]
Interrotta per raggiunta durata

G 0002 Numeri in gioco : 86.50 su TT per Ambo
Interrotta per raggiunta durata

 

[salvo50]

Ciao!

Cos'è un algoritmo.

---------------------------------------------------------------------------------------------------------------------------

Algoritmo

al·go·rìt·mo
s.m.
1. TS st.mat. nel Medioevo, sistema di calcolo con cifre arabe
2a. TS mat. insieme di regole per la risoluzione di un calcolo numerico; gener., procedimento matematico | TS inform. insieme di regole che forniscono una sequenza di operazioni atte a risolvere un particolare problema
2b. CO estens., metodo o procedimento sistematico per risolvere un problema

Dal dizionario - De Mauro
---------------------------------------------------------------------------------------------------------------------------

Un algoritmo è una qualsiasi formula matematica.

 

[antonio65]

Ciao, prova questo script forse può essere di aiuto...


Sub Main()
Scrivi: Scrivi String(25," ") & "ABBINAMENTI + FREQUENTI CON IL CAPOGIOCO BY BLACKMORE * FORUM LOTTOPASSION *"
Scrivi
Dim mt(90,3),n(1),ru(2)
r1 = CInt(InputBox("RUOTA DI RICERCA N° 1 ?","Blackmore",1))
r2 = CInt(InputBox("RUOTA DI RICERCA N° 2 ?","Blackmore",2))
a = CInt(InputBox("CAPOGIOCO ? ","Blackmore",90))
tot = CInt(InputBox("QUANTI ABBINAMENTI VUOI VEDERE ? " + Chr(13) + "METTERE 89 PER VEDERE TUTTI I NUMERI","Blackmore",10))
cont = CInt(InputBox("QUANTI CASI VUOI CONTROLLARE ? ","Blackmore",10))
ru(1) = r1
ru(2) = r2
caso = 0
fin = EstrazioneFin
ini = EstrazioneFin - cont
For es = EstrazioneFin To 1 Step - 1
If caso < cont Then
If Posizione(es,r1,a) > 0 And Posizione(es,r2,a) > 0 Then
caso = caso + 1
co = 0
For x = 1 To 90
n(1) = x
If n(1) <> a Then
co = co + 1
mt(co,1) = co
mt(co,2) = n(1)
fr = SerieFreq(es,es,n,ru,1)
mt(co,3) = mt(co,3) + fr
End If
Next
ColoreTesto 1
Scrivi "[N°" & es & "] " & FormatSpace(DataEstrazione(es),13) & " " & SiglaRuota(r1) & " " & FormatSpace(StringaEstratti(es,r1),18) & " " & SiglaRuota(r2) & " " & StringaEstratti(es,r2)
ColoreTesto 0
End If
End If
Next
OrdinaMatrice mt,- 1,3
Scrivi:Scrivi
Scrivi "RUOTA DI RICERCA/RILEVAMENTO: " & UCase(NomeRuota(r1)) & "-" & UCase(NomeRuota(r2))
Scrivi "CAPOGIOCO: " & Format2(a)
Scrivi "CASI ESAMINATI: " & Format2(caso)
Scrivi "ABBINAMENTI + FREQUENTI CON IL CAPOGIOCO:":Scrivi
Scrivi String(59,"="),1
For co = 1 To tot
Scrivi "Il n° " & Format2(mt(co,2)) & " si è abbinato " & Format2(mt(co,3)) & " volte " & " su " & Format2(caso) & " casi [" & Format2(a) & "-" & Format2(mt(co,2)) & "]"
Next
Scrivi String(59,"="),1
End Sub

 

[mastrogino]

Grazie Antonio65 lo strumento e ottimo , si è utile x accoppiare un altro numero che in effetti da dei bei risultati
comunque la mia domanda era in sintesi
se i numeri in cui faccio i calcoli avessero un algoritmo come l'esempio sopra citato ,
se noti la prev. d in gioco esce entro i 13 colpi, ma anche se esce in colpi anticipati
nel breve tempo riescono senza niente 2 max 3 colpi eccolo che si mette in grana la prev. ed entro i colpi
prestabiliti eccoli di nuovo in uscita anche a forma di ambo secco
tutto qui
grazie di nuovo

 

[salvo50]

Ciao!

Allora non hai letto il mio post, un algoritmo è il procedimento per ottenere un risultato,

NON IL RISULTATO