Novità

In questo script non riesco ad impostare le presenze

herat

Member
Messaggi
83
Punti reazione
1
Punti
8
Buongiorno a tutto lo splendido gruppo, ieri mi volevo cimentare , copiando qui e li, a creare uno script per gli ambetti piu presenti dopo la sortita di un ambetto determinato, pero purtroppo, essendo un po imbranata in materia, non riesco perchè la funzione "m(co,12) = m(co,12) + rt(1)" mi restituisce le presenze del solo primo ambo dei 5 che formano l'ambetto.

è possibile impostare lo script in maniera da evidenziare la presenza , per ogni condizione, di un determinato ambetto ?
vorrei che lo script mi restituisse un risultato simile


DOPO LA SORTITA DELLA SPIA X SULLA POSIZIONE Y
AMBETTI PIU PRESENTI NEI CICLI DI 12 ESTRAZIONI: (I DATI CHE SEGUONO SONO UN SEMPLICE ESEMPIO)

04-09...04-08...04-10...09-03...09-05... 7 PRESENZE SU 7 CASI
24-75...24-74...24-76...75-23...75-25... 6 PRESENZE SU 7 CASI
78-43...78-42...78-44...43-77...43-79... 6 PRESENZE SU 7 CASI





Codice:
Sub Main()
Dim n(2),n1(2),n2(2),n3(2),n4(2),m(8010,12),ru(2),rt(5),nu(10),n5(2),ru1(12)
fin = EstrazioneFin
ini = 9500
For es = ini To fin
For r = 12 To 12
For p = 3 To 3
a = Estratto(es,r,p)
If a = 89 And r <> TT_ Then
ru(1) = r
nu(1) = a
'ru(2)=r2
Scrivi DataEstrazione(es) & " " & Left(NomeRuota(ru(1)),2) & " " & _
Format2(nu(1)) & "-->> SPIA 1 " & rt1,1
Scrivi String(34,"-")
co = 0
es2 = es + 12
If es2 > fin Then es2 = fin End If
If es2 <> es Then
For i = 1 To 90
For j = 1 To 90
n(1) = i
n(2) = j
n1(1) = i
n1(2) = j - 1
n2(1) = i
n2(2) = j + 1
n3(1) = j
n3(2) = i - 1
n4(1) = j
n4(2) = i + 1

If n(2) > 0 Then
If n(2) < 91 Then
If n1(2) > 0 Then
If n1(2) < 91 Then
If n2(2) > 0 Then
If n2(2) < 91 Then
If n3(2) > 0 Then
If n3(2) < 91 Then
If n4(2) > 0 Then
If n4(2) < 91 Then

If n(1) <> n(2)Then
If n1(1) <> n1(2)Then
If n2(1) <> n2(2)Then
If n3(1) <> n3(2)Then
If n4(1) <> n4(2)Then

ru1(1) = NZ_
rt(1) = SerieFreq(es + 1,es + 12,n,ru1,2)
rt(2) = SerieFreq(es + 1,es + 12,n1,ru1,2)
rt(3) = SerieFreq(es + 1,es + 12,n2,ru1,2)
rt(4) = SerieFreq(es + 1,es + 12,n3,ru1,2)
rt(5) = SerieFreq(es + 1,es + 12,n4,ru1,2)
If rt(1) <= 1 And rt(2) <= 1 And rt(3) <= 1 And rt(4) <= 1 And rt(5) <= 1 Then

'OrdinaMatrice rt,- 1
'Messaggio(StringaNumeri(n) & " " & StringaNumeri(n1) & " " & StringaNumeri(n2) & " " & StringaNumeri(n3) & " " & StringaNumeri(n4))

co = co + 1
m(co,1) = co
m(co,2) = n(1)
m(co,3) = n(2)
m(co,4) = n1(1)
m(co,5) = n1(2)
m(co,6) = n2(1)
m(co,7) = n2(2)
m(co,8) = n3(1)
m(co,9) = n3(2)
m(co,10) = n4(1)
m(co,11) = n4(2)
m(co,12) = m(co,12) + rt(1)
     
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
Next
Next
End If
End If
Next
Next
Next
OrdinaMatrice m,- 1,12
For w = 1 To 10'modificare  per visualizzare una diversa quantità di ambi
Scrivi Format2(m(w,2)) & "-" & Format2(m(w,3)) & "..." & Format2(m(w,4)) & "-" & Format2(m(w,5)) & "..." & _
Format2(m(w,6)) & "-" & Format2(m(w,7)) & "..." & Format2(m(w,8)) & "-" & Format2(m(w,9)) & "..." & _
Format2(m(w,10)) & "-" & Format2(m(w,11)) & "..." & FormatSpace(m(w,12),4,1)

Next

End Sub
 
Ultima modifica:

claudio8

Advanced Member >PLATINUM PLUS<
Messaggi
3.254
Punti reazione
140
Punti
63
Buon giorno Herat
Premesso che lo script che hai postato ha una serie di if che non servono, se nel calcolare l'ambetto con il+1e -1 utilizzi il fuori 90 e se esegui correttamente la costruzione degli ambi nei 2 cicli for iniziali.

es: n2(2) = j + 1, se trasformato in n2(2) =fuori90( j + 1) ti rende inutile la
If n2(2) > 0 Then
If n2(2) < 91 Then
e così via per le altre somme poichè il loro risultato è sempre un numero tra 1 e 90
similarmente la cosa va applicata alle sottrazioni, con la sola differenza che devi usare un + 90 all'interno della differenza
es: n1(2) = j - 1, se trasformato in n1(2) =fuori90( 90+ j 1- 1) ti rende inutile la
If n1(2) > 0 Then
If n1(2) < 91 Then
---------------------------
per la costruzione ambi
For i = 1 To 90 va sostituito con i = 1 To 89
For j = 1 To 90 va sostituito con j = i+1 To 90,
se ti soffermi sul significato di queste 2 righe ti renderai conto che non potranno formarsi ambi con gli stessi numeri.

Chiarisci bene cosa vuoi estrapolare dalla tua ricerca.

Gli ambetti che si formano partendo da 1 ambobase sono 4 e non 5, se i numeri sono consecutivi gli ambetti sono 2 .
Quindi dicci se vuoi conteggiare i più presenti dei soli 2 o 4 ambetti o anche l'ambo base.
inoltre, se nel ciclo dei 12 colpi della singola giocata, vuoi escludere dal conteggio la ripetizione dello stesso ambo o ambetto.

Vediamo se riesco a indirizzarti su una soluzione meno arzigogolata e + mirata al tuo obbiettivo.

In spazioscript esiste la funzione VerificaAmbetto, prova a leggere nell'help a cosa serve, ed ad ipotizzarne l'eventuale l'uso nel tuo costrutto.
saluti
Claudio8
 

herat

Member
Messaggi
83
Punti reazione
1
Punti
8
Claudio8 ti ringrazio davvero per la cortesia e gentilezza :love:

1) Dopo la sortita della spia vorrei conteggiare le presenze dei 5 o 3 ambi compreso l'ambo l'ambo base (4 ambetti generati + ambo base se i numeri non sono consecutivi, 2 ambetti generati se i numeri sono consecutivi)

2) nel ciclo di 12 estrazioni lo script deve conteggiare le presenze nei casi, quindi per ogni ambo base e rispettivi ambetti generati deve verificare se c'è almeno un esito .
 

claudio8

Advanced Member >PLATINUM PLUS<
Messaggi
3.254
Punti reazione
140
Punti
63
Claudio8 ti ringrazio davvero per la cortesia e gentilezza :love:

1) Dopo la sortita della spia vorrei conteggiare le presenze dei 5 o 3 ambi compreso l'ambo l'ambo base (4 ambetti generati + ambo base se i numeri non sono consecutivi, 2 ambetti generati se i numeri sono consecutivi)

2) nel ciclo di 12 estrazioni lo script deve conteggiare le presenze nei casi, quindi per ogni ambo base e rispettivi ambetti generati deve verificare se c'è almeno un esito .
Perfetto per ora fai le modifiche che ti ho indicato per le if e per il ciclo costruzuione ambi e posta lo script modificato.

Ciao
 

herat

Member
Messaggi
83
Punti reazione
1
Punti
8
Ciao caro Claudio8, ecco lo script con le correzioni, spero di essere stata all'altezza di poterlo correggere bene ;)
P.S in questo script ho eliminato le combinazioni aventi distanza 1 e 2 per avere 4 ambetti generati dall'ambo base

Codice:
Sub Main()
Dim n(2),n1(2),n2(2),n3(2),n4(2),m(4005,17),ru(2),rt(5),nu(10),n5(2),ru1(12)
fin = EstrazioneFin
ini = 9500
For es = ini To fin
For r = 12 To 12
For p = 3 To 3
a = Estratto(es,r,p)
If a = 89 And r <> TT_ Then
ru(1) = r
nu(1) = a
'ru(2)=r2
Scrivi DataEstrazione(es) & " " & Left(NomeRuota(ru(1)),2) & " " & _
Format2(nu(1)) & "-->> SPIA 1 " & rt1,1
Scrivi String(34,"-")
co = 0
es2 = es + 12
If es2 > fin Then es2 = fin End If
If es2 <> es Then
For i = 1 To 89
For j = i + 1 To 90
n(1) = i
n(2) = j
n1(1) = i
n1(2) = Fuori90(90 + j - 1)
n2(1) = i
n2(2) = Fuori90(90 + j + 1)
n3(1) = j
n3(2) = Fuori90(90 + i - 1)
n4(1) = j
n4(2) = Fuori90(90 + i + 1)
If n(2) - n(1) > 2 Then

ru1(1) = NZ_
rt(1) = SerieFreq(es + 1,es2,n,ru1,2)
rt(2) = SerieFreq(es + 1,es2,n1,ru1,2)
rt(3) = SerieFreq(es + 1,es2,n2,ru1,2)
rt(4) = SerieFreq(es + 1,es2,n3,ru1,2)
rt(5) = SerieFreq(es + 1,es2,n4,ru1,2)
If rt(1) <= 1 And rt(2) <= 1 And rt(3) <= 1 And rt(4) <= 1 And rt(5) <= 1 Then

'OrdinaMatrice rt,- 1
'Messaggio(StringaNumeri(n) & " " & StringaNumeri(n1) & " " & StringaNumeri(n2) & " " & StringaNumeri(n3) & " " & StringaNumeri(n4))

co = co + 1
m(co,1) = co
m(co,2) = n(1)
m(co,3) = n(2)
m(co,4) = n1(1)
m(co,5) = n1(2)
m(co,6) = n2(1)
m(co,7) = n2(2)
m(co,8) = n3(1)
m(co,9) = n3(2)
m(co,10) = n4(1)
m(co,11) = n4(2)
m(co,12) = m(co,12) + rt(1)
    
End If
End If
Next
Next
End If
End If
Next
Next
Next
OrdinaMatrice m,- 1,12
For w = 1 To 10'modificare per visualizzare una diversa quantità di ambi
Scrivi Format2(m(w,2)) & "-" & Format2(m(w,3)) & "..." & Format2(m(w,4)) & "-" & Format2(m(w,5)) & "..." & _
Format2(m(w,6)) & "-" & Format2(m(w,7)) & "..." & Format2(m(w,8)) & "-" & Format2(m(w,9)) & "..." & _
Format2(m(w,10)) & "-" & Format2(m(w,11)) & "..." & FormatSpace(m(w,17),4,1)
Next
End Sub
 

claudio8

Advanced Member >PLATINUM PLUS<
Messaggi
3.254
Punti reazione
140
Punti
63
Ti consiglio di usare quale nome delle variabili testi o lettere che facciano riferimento a ciò che stai elaborando:
es: per rt(1) usa come nome della variabile freq_n, per indicare i frequenti dell'ambo costituito dai numeri aventi variabile denominata n e cioe n(1) e n(2)
per rt(2) usa come nome della variabile freq_n1 riferendosi ai numeri n1(1) e n1(2)
e così via.
If n(2) - n(1) > 2 Then ... è errato , dovrebbe essre If n(2) - n(1) > 1 Then però questa condizione non contempla l'ambo consecutivo 1-90
per risolvere la questione devi usare la funzione Distanza ( vedi Help)
If Distanza(n(2) - n(1)) > 1 Then
ti lascio per la cena, riprenderò con ,
If rt(1) <= 1 And rt(2) <= 1 And rt(3) <= 1 And rt(4) <= 1 And rt(5) <= 1 Then che mi sembra errato.
a dopo
 

herat

Member
Messaggi
83
Punti reazione
1
Punti
8
Ecco lo script con le correzioni, non so se non stata precisa

Codice:
Sub Main()
Dim n(2),n1(2),n2(2),n3(2),n4(2),m(4005,17),ru(2),frq_n(2), frq_n1(2), frq_n2(2), frq_n3(2), frq_n4(2), frq_n5(2) ,nu(10),n5(2),ru1(12)
fin = EstrazioneFin
ini = 9500
For es = ini To fin
For r = 12 To 12
For p = 3 To 3
a = Estratto(es,r,p)
If a = 89 And r <> TT_ Then
ru(1) = r
nu(1) = a
'ru(2)=r2
Scrivi DataEstrazione(es) & " " & Left(NomeRuota(ru(1)),2) & " " & _
Format2(nu(1)) & "-->> SPIA 1 " & rt1,1
Scrivi String(34,"-")
co = 0
es2 = es + 12
If es2 > fin Then es2 = fin End If
If es2 <> es Then
For i = 1 To 89
For j = i + 1 To 90
n(1) = i
n(2) = j
n1(1) = i
n1(2) = Fuori90(90 + j - 1)
n2(1) = i
n2(2) = Fuori90(90 + j + 1)
n3(1) = j
n3(2) = Fuori90(90 + i - 1)
n4(1) = j
n4(2) = Fuori90(90 + i + 1)
If Distanza(n(2) - n(1)) > 1 Then

ru1(1) = NZ_
frq_n(1) = SerieFreq(es + 1,es2,n,ru1,2)
frq_n1(1) = SerieFreq(es + 1,es2,n1,ru1,2)
frq_n2(1) = SerieFreq(es + 1,es2,n2,ru1,2)
frq_n3(1) = SerieFreq(es + 1,es2,n3,ru1,2)
frq_n4(1) = SerieFreq(es + 1,es2,n4,ru1,2)
If frq_n(1) <= 1 And frq_n1(1) <= 1 And frq_n3(1) <= 1 And frq_n3(1) <= 1 And frq_n4(1) <= 1 Then

'OrdinaMatrice rt,- 1
'Messaggio(StringaNumeri(n) & " " & StringaNumeri(n1) & " " & StringaNumeri(n2) & " " & StringaNumeri(n3) & " " & StringaNumeri(n4))

co = co + 1
m(co,1) = co
m(co,2) = n(1)
m(co,3) = n(2)
m(co,4) = n1(1)
m(co,5) = n1(2)
m(co,6) = n2(1)
m(co,7) = n2(2)
m(co,8) = n3(1)
m(co,9) = n3(2)
m(co,10) = n4(1)
m(co,11) = n4(2)
m(co,12) = m(co,12) + frq_n(1)

    
End If
End If
Next
Next
End If
End If
Next
Next
Next
OrdinaMatrice m,- 1,12
For w = 1 To 10'modificare  per visualizzare una diversa quantità di ambi
Scrivi Format2(m(w,2)) & "-" & Format2(m(w,3)) & "..." & Format2(m(w,4)) & "-" & Format2(m(w,5)) & "..." & _
Format2(m(w,6)) & "-" & Format2(m(w,7)) & "..." & Format2(m(w,8)) & "-" & Format2(m(w,9)) & "..." & _
Format2(m(w,10)) & "-" & Format2(m(w,11)) & "..." & FormatSpace(m(w,17),4,1)
Next
End Sub
 

claudio8

Advanced Member >PLATINUM PLUS<
Messaggi
3.254
Punti reazione
140
Punti
63
Ciao herat
non sei stata precisa.... rimedierai con l'esperienza

Le variabili che contano la freq nei range colpi ( frq_n(1), frq_n1(2) ecc ) non hanno bisogno di indice perche esso è unico
quindi vanno eliminate tutte le parentesi e l'indice inserito. ( frq_n, frq_n1 ecc )

Quindi nel tuo script scriveresti:
If frq_n <= 1 And frq_n1 <= 1 And frq_n2 <= 1 And frq_n3 <= 1 And frq_n4 <= 1 Then
che tradotto significa:
Se freq_n = 0 o 1 e frq_n1= 0 o 1 e frq_n2= 0 o 1 e frq_n3= 0 o 1 e frq_n4 = 0 o 1 allora ........
questa riga non contempla la possibilità che un ambo dei 5 si possa presentare + di 1 volta, devi quindi correggere con
If frq_n > 0 Or frq_n1 > 0 Or frq_n2 > 0 Or frq_n3>0 Or frq_n4 <= 1 Then
che tradotto significa :
Se
freq_n > 0 O frq_n1> 0 O frq_n2 > 0 O frq_n3 > 0 O frq_n3 > 0 allora ...... cioè se qualcuno di questi ambi ha freq > di 0 allora
freq_tot = 1 perchè anche se si verificano + ambi o ambetti nella stessa giocata, non possiamo che contarne solo 1 a spia cioè il 1° che ci farebbe vincere
e quindi
co = co + 1 ' incrementiamo il contatore della matrice m e la alimentiamo con gli ambi e la frequenza rintracciata
.... ......
m(co,12) = m(co,12) + freq_tot

per ora terminiamo ma ci sarebbe ancora l'esigenza di gestire la sovrapposizione dell'uscita spia entro i colpi impostati, ma questo è altro argomento da perfezionisti
Ciao

ps: ti inserisco lo script, prova a controllare gli esiti restringendo i colpi di gioco.

Codice:
Sub Main()
    Dim n(2),n1(2),n2(2),n3(2),n4(2),m(4005,17),ru(2),rt(5),nu(10),n5(2),ru1(12)
    Dim frq_n,frq_n1,frq_n2,frq_n3,frq_n4,freq_tot,casi
    casi = 0
    fin = EstrazioneFin
    ini = 9500
    For es = ini To fin
        For r = 12 To 12
            For p = 3 To 3
                a = Estratto(es,r,p)
                If a = 89 Then
                    casi = casi + 1
                    ru(1) = r
                    nu(1) = a
                    'ru(2)=r2
                    Scrivi DataEstrazione(es) & " " & SiglaRuota(ru(1)) & "-->> SPIA " & Format2(nu(1)) & " caso " & casi,1
                    Scrivi String(34,"-")
                    co = 0
                    es2 = es + 12
                    If es2 > fin Then es2 = fin End If
                    If es2 <> es Then
                        For i = 1 To 89
                            For j = i + 1 To 90
                                n(1) = i
                                n(2) = j
                                n1(1) = i
                                n1(2) = Fuori90(90 + j - 1)
                                n2(1) = i
                                n2(2) = Fuori90(90 + j + 1)
                                n3(1) = j
                                n3(2) = Fuori90(90 + i - 1)
                                n4(1) = j
                                n4(2) = Fuori90(90 + i + 1)
                                If Distanza(n(2),n(1)) > 1 Then
                                    ru1(1) = NZ_
                                    frq_n = SerieFreq(es + 1,es2,n,ru1,2)
                                    frq_n1 = SerieFreq(es + 1,es2,n1,ru1,2)
                                    frq_n2 = SerieFreq(es + 1,es2,n2,ru1,2)
                                    frq_n3 = SerieFreq(es + 1,es2,n3,ru1,2)
                                    frq_n4 = SerieFreq(es + 1,es2,n4,ru1,2)
                                    If frq_n > 0 Or frq_n1 > 0 Or frq_n2 > 0 Or frq_n3 > 0 Or frq_n4 > 0 Then
                                        freq_tot = 1
                        Else
                        freq_tot = 0
                        End If 
                                      'Messaggio(StringaNumeri(n) & " " & StringaNumeri(n1) & " " & StringaNumeri(n2) & " " & StringaNumeri(n3) & " " & StringaNumeri(n4))
                                        co = co + 1
                                        m(co,1) = co
                                        m(co,2) = n(1)
                                        m(co,3) = n(2)
                                        m(co,4) = n1(1)
                                        m(co,5) = n1(2)
                                        m(co,6) = n2(1)
                                        m(co,7) = n2(2)
                                        m(co,8) = n3(1)
                                        m(co,9) = n3(2)
                                        m(co,10) = n4(1)
                                        m(co,11) = n4(2)
                                        '-----------
                                        m(co,12) = m(co,12) + freq_tot
                               End If
                            Next
                        Next
                    End If
                End If
            Next
        Next
    Next
    OrdinaMatrice m,- 1,12
    Scrivi "AmboBase " & " Aetto1 " & " Aetto2 " & " Aetto3 " & " Aetto4 " & "   Freq. "
    For w = 1 To 500 'modificare per visualizzare una diversa quantità di ambi
        Scrivi Format2(m(w,2)) & "-" & Format2(m(w,3)) & "......" & Format2(m(w,4)) & "-" & Format2(m(w,5)) & "..." & _
        Format2(m(w,6)) & "-" & Format2(m(w,7)) & "..." & Format2(m(w,8)) & "-" & Format2(m(w,9)) & "..." & _
        Format2(m(w,10)) & "-" & Format2(m(w,11)) & "..." & FormatSpace(m(w,12),4,1)
    Next
End Sub
End Sub
 
Ultima modifica:

herat

Member
Messaggi
83
Punti reazione
1
Punti
8
Ciao Claudio8! Grazie mille per le bellissime spiegazioni.
Ho provato lo script e viene fuori questo output

27.09.2018 NZ-->> SPIA 89 caso 1

----------------------------------
25.10.2018 NZ-->> SPIA 89 caso 2
----------------------------------
04.04.2019 NZ-->> SPIA 89 caso 3
----------------------------------
11.05.2019 NZ-->> SPIA 89 caso 4
----------------------------------
17.03.2020 NZ-->> SPIA 89 caso 5
----------------------------------
21.03.2020 NZ-->> SPIA 89 caso 6
----------------------------------
04.06.2020 NZ-->> SPIA 89 caso 7
----------------------------------
AmboBase Aetto1 Aetto2 Aetto3 Aetto4 Freq.
31-69......31-68...31-70...69-30...69-32... 7
31-78......31-77...31-79...78-30...78-32... 7
31-68......31-67...31-69...68-30...68-32... 7
31-61......31-60...31-62...61-30...61-32... 7

-------------------------------------------------------------------------------
Andando a fare delle verifiche con uno script nel quale inserisco la spia 89 in terza posizione su Nazionale e l'ambo 31-69 mi fornisce come risultato un solo caso positivo su 7.
Ho provato anche con gli altri ambi ma lo script non da come risultato gli ambi e relativi ambetti piu presenti
Quindi lo script , purtroppo, fornisce un risultato errato
Per fare i controlli ho utilizzato questo script.


Codice:
Sub Main()
Dim ru(1),nu1(90),nu2(15),nu3(10),nu4(10),nu5(10)
Dim ruote(11),ruota(11)
Dim poste(5),posta(5)
poste(1) = 1
posta(2) = 1
fin = EstrazioneFin
ini = fin - 285
For es = ini To fin
AvanzamentoElab ini,fin,es
For r1 = 12 To 12
For p1 = 3 To 3
n1 = Estratto(es,r1,p1)
If n1 = 89 Then
Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & _
" > Numero Spia < " & Format2(n1) & " . "
ruote(1) = NZ_
k = 12:co = o
x1 = 31
x2 = 69
nu1(1) = x1
nu1(2) = x2
co = co + 1
ImpostaGiocata co,nu1,ruote,posta,k
nu2(1) = x1
nu2(2) = Fuori90(x2 - 1)
co = co + 1
ImpostaGiocata co,nu2,ruote,posta,k
nu3(1) = x1
nu3(2) = Fuori90(x2 + 1)
co = co + 1
ImpostaGiocata co,nu3,ruote,posta,k
nu4(1) = x2
nu4(2) = Fuori90(x1 - 1)
co = co + 1
ImpostaGiocata co,nu4,ruote,posta,k
nu5(1) = x2
nu5(2) = Fuori90(x1 + 1)
co = co + 1
ImpostaGiocata co,nu5,ruote,posta,k
Gioca es
End If
Next
Next
Next
ScriviResoconto
End Sub
 

herat

Member
Messaggi
83
Punti reazione
1
Punti
8
Claudio8, scusa la domanda da inesperta.
è possibile aggiungere allo script una funzione attraverso la quale scegliendo 1 o 2 o 3 o 4 o 5 ruote ci segnala quali sono quelle ruote in cui un determinato ambo con i relativi ambetti ha segnato maggiori presenze dopo la spia?

Esempio non reale:
Dopo la spia 89 in terza posizione su Nz lo script come risultato fornisce

31-69......31-68...31-70...69-30...69-32... 7 ....MI-NA-PA-RO-NZ
31-78......31-77...31-79...78-30...78-32... 7..... FI-GE-MI-TO-VE
31-68......31-67...31-69...68-30...68-32... 7.... BA-CA-NA-PA-RO
 

claudio8

Advanced Member >PLATINUM PLUS<
Messaggi
3.254
Punti reazione
140
Punti
63
Qualsiasi ricerca e reggruppamenti dati è fattibile, ma ha bisogno di essere analizzata nei minimi dettagli per ottenere dati veritieri.
Quanto chiedi dovrebbe essere stimolo per te ad imparare la programmazione in spaziosctipt.
Se vuoi iniziare prova con il costruire la logica delle sequenze operative che dovrebbe fare il programma.
Ciao
 

herat

Member
Messaggi
83
Punti reazione
1
Punti
8
Grazie mille Claudio...ci provo ma le probabilita che io ci riesca sono molto basse :D
 

claudio8

Advanced Member >PLATINUM PLUS<
Messaggi
3.254
Punti reazione
140
Punti
63
Se non ti approcci con la logica del processo che intendi seguire diventa difficoltoso predisporre il costrutto script.
Comincia con l'esporre il tuo processo. Vediamo come ragioni.
Ciao
 

herat

Member
Messaggi
83
Punti reazione
1
Punti
8
Grazie mille caro Claudio8

Allora, il ragionamento è questo; dopo la sortita di una spia su posizione determinata lo script mi dovrebbe restituire gli ambi base + rispettivi ambetti piu presenti su due , massimo 5 ruote non a scelta ma generate dallo script.
Se allo script chiedo di restituirmi l'ambetto piu presente su 5 ruote esso deve evidenziare quale è l'ambetto che ha fornito piu presenze nei casi su 5 ruote qualsiasi entro 12 colpi
 

claudio8

Advanced Member >PLATINUM PLUS<
Messaggi
3.254
Punti reazione
140
Punti
63
Bene hai definito la partenza della ricerca ( la spia) e l'obbiettivo (ambetti e ruote ).
Quello che sta in mezzo tra la partenza e l'obbiettivo è quanto devi descrivere quale processo operativo.
Immagina di farlo con carta e penna e trascrivilo in operazioni sequenziali da fare.
Prova.
Ciao
 

herat

Member
Messaggi
83
Punti reazione
1
Punti
8
Allora, il mio ragionamento è questo.
Definiti i due numeri della coppia I e J e i rispettivi quattro ambetti, prima della formula che calcola la frrquenza (Seriefreq) si dovrebbe stabilire la ricerca a "n" ruote .
Quindi:
Definire la coppia I-J e rispettivi ambetti
Definire la quantita di ruote
Calcolare le frequenze (che poi sono state definite come presenze)
Ordinare i dati
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 09 luglio 2020
    Bari
    14
    87
    01
    29
    50
    Cagliari
    09
    81
    57
    28
    36
    Firenze
    26
    46
    59
    33
    17
    Genova
    06
    02
    77
    17
    71
    Milano
    22
    07
    21
    76
    19
    Napoli
    07
    03
    69
    17
    54
    Palermo
    52
    08
    42
    26
    12
    Roma
    68
    09
    47
    69
    26
    Torino
    73
    53
    13
    54
    04
    Venezia
    90
    74
    87
    45
    88
    Nazionale
    79
    12
    62
    72
    56
Alto