PER MIKE58

[stefanonet35]

Vorrei sapere se è possibile creare uno script prendendo in considerazione soli i numeri che compongono il primo ciclo estrazionale ( da 0 a 18 ) e giocare almeno 5 di essi come numeri casuali. Un grazie anticipato. STEFANONET35

 

[stefanonet35]

Ho dimenticato la ruota...........una qualsiasi

 

[Mike58]

Ciao Stefano, grazie della fiducia, ma non era semplice fare questo tipo di script.
Tuttavia esaminando il nuovo codice colonne casuali ho voluto cimentarmi ed è venuto fuori qualcosa che può essere utile.

Ciao provalo.

Sub Main()
 Dim Nu(1),Ru(1),SF(90)
 estr = InputBox("QUANTE ESTRAZIONI"," MIKE58 ",18)
 Classe = InputBox("QUALE CLASSE DI SVILUPPO",,5)
 comb = InputBox("QUANTE COMBINAZIONI VUOI SVILUPPARE",,1)
 Ini = EstrazioneFin - estr
 Fin = EstrazioneFin
 For R = 1 To 12 : If R = 11 Then::: R = 12
 Scrivi NomeRuota(R) & "  dal " & DataEstrazione(Ini) & " al " & DataEstrazione(Fin),True,True,1,5,2
 Mx = 0 : Ru(1) = R
 For N = 1 To 90 : Nu(1) = N
  SF(N) = SerieFreq(Ini,Fin,Nu,Ru,1)
  If Mx <= SF(N) Then Mx = SF(N)
 Next
 For Q = 0 To MX
  Scrivi"Freq = "& Format2(Q) & " -> ",True,False,2,4,2
  For N = 1 To 90
   If SF(N) = Q Then Scrivi Format2(N) & " ",True,False,4,2,2
  Next : Scrivi : Next
  Dim k
  For k = 1 To comb
   ReDim Num(1)
   Num(1) = n
   Call GetColonnaCasuale(Classe,Num)
   Call VerificaEsito(Num,Ru,EstrazioneFin,1,1,Nothing,esito,colpi,estratti,id)
   Call Scrivi("Combinazione casuale.... " & StringaNumeri(Num,,True),True,False,3,1,3)
   If esito <> "" Then Call Scrivi ("   " & esito & " - " & estratti,True,True,7,0,3)
   If esito = "" Then Scrivi "   Nessun esito   ",True,True,7,0,3
  Next
  Scrivi String(130,"="),1
 Next
End Sub

 

[desperaux]

Ciao Stefanonenet,ciao Mike58

grazie

X Mike58
Potrei approfittare del tuo script x chiederti una sola cosa?

potresti far si che per ogni ruota.solo per i num con "pres 3".lo script mi verifichi nei successivi 18 colpi cosa e' successo?
chiaramente con la possibilita' di simulare a una data xxx e verificare gli esiti di estratto e di ambo?

Ripeto,Mike58 solo sui num con pres 3

grazie

Chiedo scusa a Stefanonenet

ciao

 

[stefanonet35]

Ciao,Mike grazie per la disponibilita' e la pazienza, ma una volta lanciato lo script col programma spaziometria mi da errore . Sinceramente non capisco il per perché. Cortesemente potresti riguardarlo ? Un saluto anche a Desperaux.Stefanonet35

 

[Mike58]

Ciao Stefanonet35, mi dovresti dire dove ti da errore, poi devi avere l'ultima versione di spaziometria altrimenti molte righe di codice con il codice scrivi vanno in errore e non devi avere neanche in funzione option explicit perchè non tutti le righe di codice sono dichiarate in DIM variabile.

Desperaux, la correzione che chiedi non è semplice devo riuscire ad isolare il caso e bloccare la statistica ad un certo numero di estrazione per far fare la verificaesito nelle successive.
Non saprei se ciò è fattibile cerco di fare delle prove,ma non ti assicuro nulla.

Un saluto a voi.

 

[Mike58]

questo è quello che dovresti vedere.



Bari dal 04.05.2013 al 15.06.2013
Freq = 00 -> 02 04 09 10 12 14 15 20 25 26 28 30 36 38 39 40 45 46 54 56 64 65 68 70 71 72 78 82 84 85 86 88
Freq = 01 -> 01 06 11 13 16 17 21 22 27 32 34 35 37 43 44 47 48 49 50 52 53 60 62 66 67 69 73 74 76 80 83
Freq = 02 -> 03 05 07 08 18 19 24 31 33 41 42 51 55 57 58 63 75 77
Freq = 03 -> 23 29 59 61 81 87 89 90
Freq = 04 -> 79
Combinazione casuale.... 02.30.65.83.85 Nessun esito
==================================================================================================================================
Cagliari dal 04.05.2013 al 15.06.2013
Freq = 00 -> 05 09 12 21 25 28 29 32 33 36 40 42 44 46 48 55 57 65 71 72 74 78 83 84 85 87 90
Freq = 01 -> 01 03 07 08 11 13 14 17 22 24 27 30 31 34 35 37 43 50 51 52 53 54 56 58 63 64 66 67 68 75 76 77 79 80 81 86 88 89
Freq = 02 -> 04 10 15 16 18 20 23 26 39 41 45 47 49 59 60 61 62 70 73
Freq = 03 -> 02 06 38 69 82
Freq = 04 -> 19
Combinazione casuale.... 10.13.59.63.68 Nessun esito
==================================================================================================================================
Firenze dal 04.05.2013 al 15.06.2013
Freq = 00 -> 03 07 08 15 18 22 24 25 31 32 37 38 41 43 46 50 51 54 57 62 64 66 68 71 72 73 74 79 84 89
Freq = 01 -> 01 05 09 10 12 16 21 23 26 28 33 34 36 39 42 44 45 47 49 52 53 55 56 65 75 76 77 78 80 81 82 85 86 90
Freq = 02 -> 04 11 13 19 20 27 29 30 35 40 48 58 60 63 69 70 87 88
Freq = 03 -> 02 06 14 17 61 67 83
Freq = 04 -> 59
Combinazione casuale.... 17.41.45.67.77 Ambo - FI .. 17 45 .. ..
==================================================================================================================================
Genova dal 04.05.2013 al 15.06.2013
Freq = 00 -> 09 10 11 14 19 22 23 27 30 35 36 37 39 40 46 49 50 52 53 54 62 64 65 67 71 72 73 74 75 79 80 84 85 87 89 90
Freq = 01 -> 01 02 04 05 06 12 15 16 17 20 21 24 25 28 29 34 43 45 48 55 57 60 69 82 86 88
Freq = 02 -> 03 07 13 18 31 32 33 41 42 44 47 51 56 59 61 63 68 70 81
Freq = 03 -> 08 26 77 78 83
Freq = 04 -> 38 58 66 76
Combinazione casuale.... 03.30.46.53.78 Estratto - GE .. 78 .. .. ..
==================================================================================================================================
Milano dal 04.05.2013 al 15.06.2013
Freq = 00 -> 02 04 05 06 08 10 12 13 14 17 18 21 22 27 28 31 32 41 42 43 45 47 50 57 62 72 74 75 81 83 84 85 88 89
Freq = 01 -> 01 07 11 15 16 19 20 23 24 29 30 39 40 44 46 49 52 55 58 60 61 63 64 66 67 71 73 76 77
Freq = 02 -> 03 09 25 26 34 35 38 53 65 68 69 70 78 79 80 86 87
Freq = 03 -> 33 36 37 48 51 56 59 90
Freq = 04 -> 54 82
Combinazione casuale.... 07.14.16.44.55 Nessun esito
==================================================================================================================================
Napoli dal 04.05.2013 al 15.06.2013
Freq = 00 -> 01 02 04 10 12 14 18 19 21 23 25 28 29 32 34 37 39 49 57 58 59 62 63 66 69 72 73 79 81 86 89
Freq = 01 -> 05 06 07 08 13 15 16 22 24 26 30 33 35 36 40 46 47 48 52 53 55 56 64 67 70 71 75 76 77 78 82 83 85 88 90
Freq = 02 -> 03 27 31 38 41 43 44 54 60 65 74 80
Freq = 03 -> 09 11 17 20 42 45 50 51 61 68 84 87
Combinazione casuale.... 11.36.39.41.57 Nessun esito
==================================================================================================================================
Palermo dal 04.05.2013 al 15.06.2013
Freq = 00 -> 02 07 10 16 19 20 21 22 24 26 32 36 42 43 46 50 58 64 65 66 68 72 73 74 75 76 82
Freq = 01 -> 01 03 04 05 09 12 13 14 15 18 23 25 27 28 29 31 34 37 38 41 48 49 53 56 57 60 61 63 67 71 77 78 80 81 86 87 88 89
Freq = 02 -> 06 08 11 17 35 40 44 45 47 51 52 54 55 59 69 79 83 84 85 90
Freq = 03 -> 33 62 70
Freq = 04 -> 30 39
Combinazione casuale.... 28.42.49.50.90 Nessun esito
==================================================================================================================================
Roma dal 04.05.2013 al 15.06.2013
Freq = 00 -> 07 11 15 16 17 27 28 29 30 32 34 35 40 45 48 49 53 55 56 61 70 71 72 74 75 76 81 82 89
Freq = 01 -> 01 02 03 05 06 08 09 10 12 13 19 20 22 23 26 33 37 41 42 44 47 50 52 54 57 63 64 66 68 77 79 80 84 85 88 90
Freq = 02 -> 04 14 18 21 25 31 38 39 43 46 60 65 67 78 86 87
Freq = 03 -> 24 36 51 58 59 62 69 73 83
Combinazione casuale.... 11.28.64.69.81 Nessun esito
==================================================================================================================================
Torino dal 04.05.2013 al 15.06.2013
Freq = 00 -> 02 04 07 13 15 16 21 23 24 26 27 29 30 32 35 36 37 38 41 47 49 50 51 55 58 60 62 64 65 73 75 80 83 87 89
Freq = 01 -> 01 06 08 11 12 14 18 20 22 34 40 42 43 45 48 52 53 59 61 66 77 78 81 85 86 88 90
Freq = 02 -> 03 10 19 25 28 31 33 39 44 46 54 57 67 68 70 71 72 82
Freq = 03 -> 05 09 17 56 63 74 79 84
Freq = 04 -> 69 76
Combinazione casuale.... 13.21.34.46.76 Nessun esito
==================================================================================================================================
Venezia dal 04.05.2013 al 15.06.2013
Freq = 00 -> 05 07 18 19 22 27 28 29 32 41 44 46 47 48 50 52 55 57 58 60 67 70 71 73 74 78 79 80 85 88 90
Freq = 01 -> 03 04 06 09 10 14 16 17 21 24 25 26 33 35 37 38 39 42 49 59 61 63 64 72 75 76 77 81 82 86 89
Freq = 02 -> 01 08 11 12 15 20 23 30 31 34 36 40 43 45 51 53 54 62 65 66 68 69 83
Freq = 03 -> 02 13 84
Freq = 04 -> 87
Freq = 05 -> 56
Combinazione casuale.... 12.35.36.74.84 Ambo - VE .. 84 .. .. 36
==================================================================================================================================
Nazionale dal 04.05.2013 al 15.06.2013
Freq = 00 -> 01 02 03 06 07 08 16 17 23 24 26 27 28 30 32 35 42 43 45 57 63 67 69 73 78 79 80 89 90
Freq = 01 -> 04 05 09 10 11 12 14 15 18 19 21 25 34 36 37 39 47 48 51 54 55 62 65 66 71 72 74 75 76 77 82 83 84 85 88
Freq = 02 -> 20 22 29 31 33 38 44 46 49 52 53 56 58 60 61 64 68 70 81 86
Freq = 03 -> 13 41 59 87
Freq = 04 -> 40 50
Combinazione casuale.... 22.33.66.71.80 Nessun esito

 

[stefanonet35]

Ciao Mike, sono proprio i codici scrivi che danno errore. Comunque proverò ad installare la nuova versione di Spaziometria,poi ti farò sapere. Quello che ho visto nello sviluppo va benissimo, ma potresti far lavorare lo script estrazione dopo estrazione? Se non è molto complessa la faccenda s'intende. Infine potresti dirmi quale versione installare e come disinstallare quella precedente? Grazie. stefanonet35

 

[stefanonet35]

La versione che utilizzo è la 1.4.6

 

[stefanonet35]

Potresti far lavorare lo script ciclo dopo ciclo su una singola ruota? Scusami se mi ripeto, la modifiche da apporre mi arrivano in mente con ritardo.

 

[Mike58]

La versione che utilizzo è la 1.4.6

ciao stefano l'ultima versione di spaziometria è la 1.4.32 e per installarla devi prima installare la versione 1.4.26 in quanto completa del setup totale e poi sovrascivere la 1.4.32 come spiegato dall'ultimo post da LuigiB.

Tutto si può fare basta capirci bene, intanto è d'obligo avere l'ultima versione altrimenti non sappiamo su cosa dobbiamo intervenire.

Ciao

 

[stefanonet35]

Caro Mike ,tutto OK , ho effettuato tutte le installazioni come mi hai consigliato e tutto funziona alla perfezione . Se non ci fossi stato tu.................ORA SI PUO' far lavorare lo script ciclo dopo ciclo su una singola ruota? Un'altra cosa , REDIM COSA SIGNIFICA NEL CONTESTO DEGLI SCRIPT. Ti chiedo ancora troppo se vicino alle linnee dello script mi inserisci qualche spiegazione? Ti ringrazio fraternamente per l'aiuto che mi hai dato. HO TANTA VOGLIA DI APPRENDERE. CIAO da STEFANONET35

 

[stefanonet35]

Lo scopo di questo lavoro è il seguente : ho notato che in un ciclo di estrazioni , alcuni numeri in ritardo da 0 a 18 ne sortiscono, nella maggior parte dei casi 2 ,3 e a volte anche 4;allora ho pensato che, forse, con questo metodo si sarebbe potuto ricavare qualcosa di buono, lasciando fare naturalmente alla classica dea bendata. E' possibile far lavorare solo questi numeri (da 0 a 18 estrazioni di ritardo) e poi lanciare quelli casuali ? Ho notato che nello sviluppo del listato alcuni numeri superano le 18 estrazioni di ritardo .
Lo si può aggiustare? Grazie ancora. Stefanonet 35

 

[Mike58]

Ciao Stefano, intanto bene che hai installato l'ultima versione di spaziometria almeno si possono leggere tutti i listati.
Poi non ho ben capito quello che devi ottenere, purtroppo con il codice numeri casuali i numeri vengono rilevati in modo casuale nella cerchia dei numeri estrapolati dalla frequenza (script postato x frequenza) e dal ritardo (script x ritardo) e comunque sono sempre e solo casuali.
Se si tratta sempre di casualità resta inteso che di dati statistici non si può parlare e non possono essere attendibili.

Comunque ti posto anche lo stesso script con la funzione ritardi e con sempre la elaborazione combinazioni casuali.

P.s. REDIM è una matrice ridimensionabile ossia una volta svolto il suo compito si può nuovamente dichiarala al contrario della DIM che si può valorizzarla solo una volta.

Il suggerimento migliore che posso darti è leggere riga x riga quello che può fare un listato è cercare di capirne il procedimento poi i codici si memorizzano da soli quello che conta è abituarsi a leggere la guida di spaziometria e avere voglia di imparare.

Sub Main()
Dim Nu(1),Ru(1),SF(90)
estr = InputBox("QUANTE ESTRAZIONI"," MIKE58 ",18)
Classe = InputBox("QUALE CLASSE DI SVILUPPO",,5)
comb = InputBox("QUANTE COMBINAZIONI VUOI SVILUPPARE",,1)
Ini = EstrazioneFin - estr
Fin = EstrazioneFin
For R = 1 To 12 : If R = 11 Then::: R = 12
Scrivi NomeRuota(R) & "  dal " & DataEstrazione(Ini) & " al " & DataEstrazione(Fin),True,True,1,5,2
Mx = 0 : Ru(1) = R
For N = 1 To 90 : Nu(1) = N
SF(N) = SerieRitardo(Ini,Fin,Nu,Ru,1)
If Mx <= SF(N) Then Mx = SF(N)
Next
For Q = 0 To MX
Scrivi"Ritardo = " & Format2(Q) & " -> ",True,False,2,4,2
For N = 1 To 90
If SF(N) = Q Then Scrivi Format2(N) & " ",True,False,4,2,2
Next : Scrivi : Next
Dim k
For k = 1 To comb
ReDim Num(1)
Num(1) = n
Call GetColonnaCasuale(Classe,Num)
Call VerificaEsito(Num,Ru,EstrazioneFin,1,1,Nothing,esito,colpi,estratti,id)
Call Scrivi("Combinazione casuale.... " & StringaNumeri(Num,,True),True,False,3,1,3)
If esito <> "" Then Call Scrivi("   " & esito & " - " & estratti,True,True,7,0,3)
If esito = "" Then Scrivi "   Nessun esito   ",True,True,7,0,3
Next
Scrivi String(130,"="),1
Next
End Sub

 

[stefanonet35]

Ringraziandoti cordialmente ti invio un saluto e un risentirci a presto .Ciao da Stefaonet35.