Paki144
Super member
Specificami i colpi di gioco.
Con adesso, intendi l'ultima l'estrazione da cui prelevare le 5 spie.
Saluti
Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
Specificami i colpi di gioco.
Con adesso, intendi l'ultima l'estrazione da cui prelevare le 5 spie.
Saluti
Ciao claudio8, 4/5 colpi di gioco. devi definire se 4 o 5 o se 4 e poi 5 colpi
Si dagli estratti di quest'ultima estrazione di sabato 17-10-2020 ok questi ultimi estratti sarebbero 5 spie
riguardo allo script che hai scaricato a me non da errori, gira regolarmente.poi fare la ricerca delle estrazioni precedenti per esempio 250/400/1000 no; lo script lavorasui casi precedenti. per ogni numero va alla ricerca a ritroso dei casi a sceltauguali x tutti i numeri, non elabora i cicli di estrazione poichè potrebbero esserci differenze di casi x ogni singolo numero.
dei casi e i numeri più frequenti
(probabili) che sono usciti dopo queste 5 spie ( ultimi estratti attuali) nei 4/5/6 colpi successivi.
Grazie claudio8 per tutto questo che mi concedi.
Ciao claudio8 / colpi 5riguardo allo script che hai scaricato a me non da errori, gira regolarmente.
Elaboro il tutto con l'ultimo script e ti invio l'output di Ramco.
saluti
Grazieca spie del 13
ciclo 90 --- 5 colpi
spie 35 62
ciclo 180
spie 31 48 77
ciclo 270
spie 77 82
ciclo 360
spie 02 82
tutti freq , maggiori o vicino al 100%
Grazie claudio8riguardo allo script che hai scaricato a me non da errori, gira regolarmente.
Elaboro il tutto con l'ultimo script e ti invio l'output di Ramco.
saluti
Ciao claudio8 un grande Grazie per tutto quello che hai fatto per me nel rispondermi nel consigliarmi nel cercare lo script, per il tuo tempo che mi hai dedicato e al lavoro che hai svolto e mi hai inviato Grazie!!!Questoè l'output dello script di Ramco
TABELLA RIEPILOGATIVA TOTALE
NU P1 P2 P3 P4 P5 Tot
80 5 8 5 5 5 28
74 5 6 4 7 6 28
82 9 1 4 7 5 26
70 4 4 6 3 6 23
1 5 5 5 4 3 22
73 6 3 7 4 1 21
57 2 6 1 6 6 21
61 1 8 2 3 7 21
49 4 5 4 3 5 21
37 4 1 5 5 6 21
43 6 5 4 3 2 20
51 4 7 4 2 3 20
5 6 3 4 5 2 20
8 5 4 3 2 6 20
12 3 7 3 5 2 20
44 4 3 3 3 7 20
36 7 4 4 1 3 19
29 3 4 4 6 2 19
77 2 6 3 5 3 19
6 4 4 3 6 2 19
86 3 6 4 2 4 19
17 4 3 5 1 6 19
56 3 6 4 3 2 18
39 1 7 4 3 3 18
59 6 4 3 3 2 18
63 3 4 6 2 3 18
83 3 3 5 4 2 17
58 4 2 5 5 1 17
72 7 1 3 3 3 17
41 1 3 6 3 4 17
46 2 4 5 5 1 17
25 3 1 5 4 4 17
7 5 2 2 4 4 17
18 2 4 7 2 1 16
11 3 3 2 4 4 16
78 2 5 5 3 1 16
75 3 2 1 5 5 16
16 1 3 3 4 5 16
65 2 4 3 5 2 16
33 4 2 3 4 3 16
32 1 7 4 1 3 16
68 3 1 1 1 9 15
22 0 5 2 5 3 15
64 3 3 1 5 3 15
15 4 3 3 1 4 15
54 4 1 5 3 2 15
21 4 3 5 1 2 15
48 5 0 4 2 4 15
35 4 2 2 4 3 15
89 2 1 6 3 3 15
42 3 3 4 3 1 14
19 4 3 2 3 2 14
13 1 4 1 3 5 14
34 5 3 2 4 0 14
50 3 5 3 2 1 14
81 1 3 4 4 2 14
76 3 3 3 1 4 14
66 3 0 4 2 5 14
31 4 0 3 4 2 13
9 1 1 4 7 0 13
27 2 3 4 0 4 13
10 2 2 0 4 5 13
84 3 2 2 4 2 13
40 2 3 3 1 4 13
14 4 1 0 2 5 12
88 2 2 2 3 3 12
90 3 5 1 1 2 12
87 5 3 1 1 2 12
24 2 1 2 5 2 12
62 3 1 2 2 4 12
79 1 7 2 1 0 11
53 4 3 1 0 3 11
45 2 1 3 1 4 11
2 1 1 3 2 4 11
60 2 1 3 1 4 11
71 2 2 2 2 3 11
69 0 3 1 3 4 11
20 4 1 1 5 0 11
26 4 2 3 1 0 10
3 1 0 4 3 2 10
85 2 4 0 2 2 10
30 1 3 3 2 1 10
23 1 0 2 2 5 10
52 5 5 0 0 0 10
4 2 1 2 0 5 10
55 1 2 2 4 0 9
38 2 0 3 3 1 9
28 1 0 1 3 3 8
47 1 2 1 2 2 8
67 2 1 0 3 0 6
ho inserito solo i Totali, riordinati in decrescenti in colonna 7 (Tot) l'intero output è nel file allegato, senza le decine
saluti
'DOPO NUMERO SPIA TROVA IL NUMERO PIù FREQUENTE CON % D'USCITA
Sub Main()
Dim ruote(1)
Dim posta(1)
Dim num(90)
ruote(1) = 1
posta(1) = 1
For sp = 1 To 90 'cambiare per considerare il numero che si vuole
Messaggio " Spia: " & sp
r = 1 '---------------> Qui cambiare la ruota da esaminare
ini = 9000
fin = EstrazioneFin
Scrivi "Analisi dal " & DataEstrazione(ini) & " ad oggi"
Erase num
co = 0
For es = ini To fin
If Posizione(es,r,sp) > 0 Then
co = co + 1
For a = es + 1 To es + 6 '<<<<numeri colpiEsempio 5 colpi devi indicare 6For a=es+1 To es+6
If a > fin Then Exit For '<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
For e = 1 To 5
n = Estratto(a,r,e)
num(n) = num(n) + 1
Next
Next
End If
Next
per = Int((co/100)*50)
Scrivi "_________________________________________________________"
Scrivi "Numero spia: " & Format2(sp) & " su " & NomeRuota(r) & " casi = " & co & " colpi 6"
Scrivi
Scrivi "Num. volte. percentuale" & "%"
For i = 1 To 90
If Eval(num(i)) > per Then
Scrivi Format2 (i) & " " & Eval(num(i)) & " " & per
End If
Next
Next
End Sub
Ciao claudio8 ho copiato lo scriptProva di inserimento codice
Codice:'DOPO NUMERO SPIA TROVA IL NUMERO PIù FREQUENTE CON % D'USCITA Sub Main() Dim ruote(1) Dim posta(1) Dim num(90) ruote(1) = 1 posta(1) = 1 For sp = 1 To 90 'cambiare per considerare il numero che si vuole Messaggio " Spia: " & sp r = 1 '---------------> Qui cambiare la ruota da esaminare ini = 9000 fin = EstrazioneFin Scrivi "Analisi dal " & DataEstrazione(ini) & " ad oggi" Erase num co = 0 For es = ini To fin If Posizione(es,r,sp) > 0 Then co = co + 1 For a = es + 1 To es + 6 '<<<<numeri colpiEsempio 5 colpi devi indicare 6For a=es+1 To es+6 If a > fin Then Exit For '<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< For e = 1 To 5 n = Estratto(a,r,e) num(n) = num(n) + 1 Next Next End If Next per = Int((co/100)*50) Scrivi "_________________________________________________________" Scrivi "Numero spia: " & Format2(sp) & " su " & NomeRuota(r) & " casi = " & co & " colpi 6" Scrivi Scrivi "Num. volte. percentuale" & "%" For i = 1 To 90 If Eval(num(i)) > per Then Scrivi Format2 (i) & " " & Eval(num(i)) & " " & per End If Next Next End Sub
Grazie claudio8 Buona serataProva di inserimento codice
Codice:'DOPO NUMERO SPIA TROVA IL NUMERO PIù FREQUENTE CON % D'USCITA Sub Main() Dim ruote(1) Dim posta(1) Dim num(90) ruote(1) = 1 posta(1) = 1 For sp = 1 To 90 'cambiare per considerare il numero che si vuole Messaggio " Spia: " & sp r = 1 '---------------> Qui cambiare la ruota da esaminare ini = 9000 fin = EstrazioneFin Scrivi "Analisi dal " & DataEstrazione(ini) & " ad oggi" Erase num co = 0 For es = ini To fin If Posizione(es,r,sp) > 0 Then co = co + 1 For a = es + 1 To es + 6 '<<<<numeri colpiEsempio 5 colpi devi indicare 6For a=es+1 To es+6 If a > fin Then Exit For '<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< For e = 1 To 5 n = Estratto(a,r,e) num(n) = num(n) + 1 Next Next End If Next per = Int((co/100)*50) Scrivi "_________________________________________________________" Scrivi "Numero spia: " & Format2(sp) & " su " & NomeRuota(r) & " casi = " & co & " colpi 6" Scrivi Scrivi "Num. volte. percentuale" & "%" For i = 1 To 90 If Eval(num(i)) > per Then Scrivi Format2 (i) & " " & Eval(num(i)) & " " & per End If Next Next End Sub
Guarda che è lo script postato da Salvo.Grazie claudio8 Buona serata
Guarda che è lo script postato da Salvo.
Non lo considerare è super obsoleto.
Hai provato quello di Ramco rivisitato da me
Guarda che è lo script postato da Salvo.
Non lo considerare è super obsoleto.
Hai provato quello di Ramco rivisitato da me?Ciao claudio8 ho copiato lo script di Ramco rivisitato da te Claudio8, l'ho eseguito su Spaziometria e gira benissimo con inputbox ďi ogni spia e posizione dal 1° 2° 3° 4° 5° gira e mi da tutta la tabella con specifiche : estrazioni spie in posizione e frequenza numeri dopo spie e percentuale% su ruota scelta. Grazie!!!Guarda che è lo script postato da Salvo.
Non lo considerare è super obsoleto.
Hai provato quello di Ramco rivisitato da me?
Ciao a Tutti.Paki scrivo dal cellulare.
Da qui leggo tutti i miei post compreso gli allegati.
Dal pc non posso vedere niente dopo dopo che ho allegato qualcosa.
Mi viene difficile quindi andare oltre in questo modo.
A questo punto credo che dipenda dal pc o da firefox.
Avrei voluto inserirsi il mio elaborato ...
Non voglio aprire altro tread.
Spero di risolvere