Novità

Aiuto per script

G

genios

Advanced Member >PLATINUM<
Mi servirebbe aiuto per uno script che calcoli quale sia stato il ritardo storico per la sorte di ambo per ciascuna ruota dei 10 numeri in ritardo dalla posizione 1 a 10 dalla posizione 11 a 20 dalla posizione 11 a 30 e cosi via fino alla posizione 81 a 90 . Inoltre dovrebbe restituire anche i ritardi attuali .

Ciao Eugenio
 
Chiedo aiuto . 1 ° passo In un ciclo for next di 150 estrazioni usando la funzione NumeroPosRit e se ho capito bene abbinata alla funzione Posizione vorrei in out tutti i numeri ordinati per ritardo per ciascuna delle 90 posizioni .

Ciao Eugenio
 
genios;n2100497 ha scritto:
Chiedo aiuto . 1 ° passo In un ciclo for next di 150 estrazioni usando la funzione NumeroPosRit e se ho capito bene abbinata alla funzione Posizione vorrei in out tutti i numeri ordinati per ritardo per ciascuna delle 90 posizioni .

Ciao Eugenio
Clicca per espandere...

Se non ho capito male, questo script dovrebbe fare in parte al caso tuo, vai al link sotto.
https://forum.lottoced.com/forum/lot...28#post2097428

ciao
 
Ultima modifica:
Grazie claudio8 dell' indicazioni del post sopra . Ma non è quello che voglio fare . Ti posto lo script che mi fece il grande Joe. Tale script in out da il ritardo dei primi 10 numeri piu' ritardati cioe' nei primi 10 posti del tabellone analitico per la sorte d'ambo. Quello che lo script dovrebbe fare è: come scritto nella richiesta che calcoli quale sia stato il ritardo storico per la sorte di ambo per ciascuna ruota dei 10 numeri in ritardo dalla posizione 1 a 10 dalla posizione 11 a 20 dalla posizione 11 a 30 e cosi via fino alla posizione 81 a 90 . Inoltre dovrebbe restituire anche i ritardi attuali . Questa mia richiesta mi occorre per vedere: dato che la probabilità teorica di un numero è sempre la stessa e quella di 45 ambi anche ( anche se non è sempre cosi' ) se piu' o meno i max ritardi sono stati omogenei nelle 9 sezioni di 10 numeri . Naturalmente ci sono altri sviluppi poi da fare .

Ciao Eugenio


Codice: 
'Eu-Ri-Din_10 By Joe
Sub Main
Dim R,K,P,Es,Ini,fin,tmp,GR
Dim Ru(1) : DN = "1.2.3.4.5.6.7.8.9.10" : Nu = Split("0." & DN,".") : SO = 2
Ini = EstrazioneFin - 100: fin = EstrazioneFin
For R = 1 To 11
If R = 11 Then
R = R + 1
End If
Ru(1) = R : Messaggio NomeRuota(R)
K = 0 : Scrivi FormatSpace(NomeRuota(Ru(1)),11),1,0
For P = 1 To UBound(Nu) : Scrivi FormatSpace(P & "°",3),1,0 : Next : Scrivi " PdR",1
For Es = Ini To fin : AvanzamentoElab Ini,fin,Es
K = K + 1
If SerieFreqTurbo(Es,Es,Nu,Ru,1,,,1) >= SO Then
Scrivi DataEstrazione(Es) & " ",1,0
For P = 1 To UBound(Nu)
tmp = NumeroPosRit((Es - 1),Ru(1),P)
If Posizione(Es,Ru(1),tmp) > 0 Then ColoreTesto 2 : GR = 1
Scrivi Format2(tmp) & " ",GR,0 : ColoreTesto 0 : GR = 0
Next
Scrivi " Rit" & FormatSpace(K,4,1),1 : K = 0
End If
Next
Scrivi DataEstrazione(fin) & " ",1,0
For P = 1 To UBound(Nu)
Scrivi Format2(NumeroPosRit(fin,Ru(1),P)) & " ",1,0
Next : Scrivi " Rc " & FormatSpace(K,4,1),1
Scrivi String(49,"="),1
Next

End Sub
 
Quindi non sapendo leggere lo script, che significa questo output, me lo spiegheresti?
Vuol dire che riesci a definire una decina di numeri giocabili ad ambo.

Codice: 
Bari       1° 2° 3° 4° 5° 6° 7° 8° 9° 10° PdR
01.07.2017 21 02 04 85 28 35 76 24 54 33  Rit  22
25.07.2017 21 04 85 24 54 49 72 12 51 67  Rit  10
30.09.2017 24 54 30 20 64 36 22 41 52 87  Rit  29
10.10.2017 24 30 20 36 22 41 87 13 08 11  Rit   4
26.10.2017 24 30 20 36 41 08 11 71 80 66  Rit   7
02.01.2018 20 66 88 70 12 19 02 01 07 57  Rc   29
=================================================
Cagliari   1° 2° 3° 4° 5° 6° 7° 8° 9° 10° PdR
03.06.2017 76 85 36 06 54 21 65 50 43 67  Rit  10
29.06.2017 76 85 36 54 21 65 67 20 83 49  Rit  11
13.07.2017 76 36 65 67 20 83 49 88 70 87  Rit   6
18.07.2017 76 36 65 67 20 83 88 87 02 10  Rit   2
20.07.2017 76 36 67 20 83 88 02 10 19 58  Rit   1
27.07.2017 76 67 20 02 10 19 58 15 69 28  Rit   3
23.09.2017 76 67 20 02 19 38 55 48 72 47  Rit  25
28.09.2017 76 67 20 02 38 55 72 47 40 22  Rit   2
07.10.2017 76 67 20 02 47 40 77 85 32 56  Rit   4
14.10.2017 76 67 47 40 77 85 32 56 06 49  Rit   3
26.10.2017 76 47 85 32 56 49 26 43 34 52  Rit   5
02.01.2018 76 85 32 49 46 57 21 87 79 55  Rc   29
=================================================
Firenze    1° 2° 3° 4° 5° 6° 7° 8° 9° 10° PdR
16.05.2017 51 32 85 68 12 81 60 52 86 02  Rit   2
23.05.2017 51 85 68 12 81 60 86 02 79 56  Rit   3
25.07.2017 86 56 13 41 24 57 70 62 84 36  Rit  27
12.08.2017 56 41 24 57 70 84 31 46 39 71  Rit   8
09.09.2017 56 24 84 31 03 18 08 89 80 88  Rit  12
30.09.2017 84 31 03 08 89 80 88 55 16 76  Rit   9
12.10.2017 84 31 03 08 89 80 76 07 53 75  Rit   5
02.01.2018 22 32 82 19 05 74 66 21 27 45  Rc   35
=================================================
Genova     1° 2° 3° 4° 5° 6° 7° 8° 9° 10° PdR
17.06.2017 68 12 77 73 09 18 17 08 40 29  Rit  16
29.06.2017 68 12 77 73 18 17 08 29 26 81  Rit   5
27.07.2017 68 73 08 26 81 02 42 46 59 87  Rit  12
23.09.2017 68 08 26 02 42 24 05 44 15 36  Rit  25
17.10.2017 68 42 05 44 15 04 40 17 32 85  Rit  10
21.10.2017 68 42 05 44 04 17 85 33 54 41  Rit   2
02.01.2018 23 07 12 56 82 75 66 03 33 65  Rc   31
=================================================
Milano     1° 2° 3° 4° 5° 6° 7° 8° 9° 10° PdR
03.06.2017 50 22 87 08 84 33 78 90 49 36  Rit  10
10.06.2017 22 87 08 84 33 78 90 49 57 89  Rit   3
01.07.2017 08 84 78 90 49 54 05 82 31 11  Rit   9
06.07.2017 08 78 90 54 05 82 11 40 14 80  Rit   2
17.08.2017 08 90 82 11 42 18 13 48 06 26  Rit  18
02.01.2018 69 60 61 37 36 67 17 03 18 72  Rc   59
=================================================
Napoli     1° 2° 3° 4° 5° 6° 7° 8° 9° 10° PdR
25.05.2017 66 17 30 46 36 37 85 63 44 72  Rit   6
20.06.2017 66 17 36 37 44 70 48 38 83 79  Rit  11
29.06.2017 17 36 37 44 70 38 83 57 90 32  Rit   4
29.07.2017 36 44 38 83 23 03 40 88 67 06  Rit  13
01.08.2017 36 44 38 83 03 40 88 06 16 78  Rit   1
10.08.2017 44 83 03 88 06 16 78 61 50 68  Rit   4
12.08.2017 44 83 03 88 06 16 78 50 02 21  Rit   1
19.09.2017 03 88 16 21 14 65 04 26 63 39  Rit  16
26.09.2017 88 21 65 04 26 63 12 49 59 90  Rit   3
03.10.2017 21 65 26 63 12 49 59 90 62 33  Rit   3
02.01.2018 63 71 74 44 77 32 48 03 53 86  Rc   39
=================================================
Palermo    1° 2° 3° 4° 5° 6° 7° 8° 9° 10° PdR
11.07.2017 82 54 17 24 88 76 11 46 39 59  Rit  26
03.08.2017 82 24 88 11 46 52 31 47 22 01  Rit  10
17.08.2017 82 24 46 31 47 22 28 70 20 09  Rit   6
21.10.2017 14 83 35 84 64 06 08 73 89 36  Rit  28
26.10.2017 14 83 64 06 73 89 36 17 05 43  Rit   2
02.01.2018 36 11 45 52 24 61 40 80 47 88  Rc   29
=================================================
Roma       1° 2° 3° 4° 5° 6° 7° 8° 9° 10° PdR
13.05.2017 21 10 58 27 71 68 08 38 81 37  Rit   1
10.08.2017 71 08 22 90 67 28 12 39 80 82  Rit  38
17.08.2017 08 22 90 67 12 39 80 82 48 77  Rit   3
24.08.2017 08 90 67 39 80 48 77 57 13 62  Rit   3
26.08.2017 08 90 39 80 48 77 13 62 14 33  Rit   1
02.09.2017 08 90 39 48 77 13 14 33 01 43  Rit   3
23.09.2017 08 90 77 14 33 43 61 81 73 36  Rit   9
14.10.2017 08 90 77 14 61 73 36 88 41 25  Rit   9
17.10.2017 08 90 77 14 61 73 36 41 65 58  Rit   1
19.10.2017 08 90 77 14 36 41 65 58 21 66  Rit   1
02.01.2018 05 79 54 46 57 30 82 72 52 60  Rc   32
=================================================
Torino     1° 2° 3° 4° 5° 6° 7° 8° 9° 10° PdR
06.07.2017 14 78 27 12 50 58 39 81 74 73  Rit  24
08.07.2017 78 27 12 50 58 39 74 73 19 80  Rit   1
22.07.2017 12 50 58 39 74 73 26 04 46 35  Rit   6
29.07.2017 50 58 74 73 26 04 35 55 03 44  Rit   3
03.08.2017 58 74 73 26 04 35 03 90 43 67  Rit   2
12.09.2017 58 67 52 72 42 16 36 65 02 10  Rit  17
23.09.2017 58 67 72 42 16 65 85 23 69 32  Rit   5
12.10.2017 16 65 23 69 32 14 40 54 06 50  Rit   8
02.01.2018 16 65 14 44 87 09 27 02 81 42  Rc   35
=================================================
Venezia    1° 2° 3° 4° 5° 6° 7° 8° 9° 10° PdR
16.05.2017 49 01 42 28 77 31 58 52 82 05  Rit   2
01.06.2017 49 42 28 52 05 79 08 69 17 38  Rit   7
27.06.2017 28 52 05 79 69 33 85 74 73 83  Rit  11
22.07.2017 28 52 05 79 69 33 74 73 07 60  Rit  11
22.08.2017 79 33 74 73 07 90 55 44 45 86  Rit  13
24.08.2017 74 73 07 90 55 45 86 34 02 71  Rit   1
07.09.2017 90 45 34 71 56 39 31 65 38 80  Rit   6
02.01.2018 13 47 20 36 19 71 15 35 26 58  Rc   50
=================================================
Nazionale  1° 2° 3° 4° 5° 6° 7° 8° 9° 10° PdR
30.05.2017 68 08 65 34 22 29 69 15 45 06  Rit   8
24.06.2017 08 29 15 45 06 49 19 26 88 63  Rit  11
11.07.2017 08 29 45 06 49 26 88 63 74 04  Rit   7
22.07.2017 08 45 06 49 88 63 04 66 80 56  Rit   5
05.09.2017 49 88 18 86 57 14 30 03 64 71  Rit  19
07.09.2017 49 88 18 86 14 30 64 71 65 60  Rit   1
14.09.2017 88 18 86 14 30 71 65 85 39 43  Rit   3
19.09.2017 88 18 86 14 30 39 43 33 32 58  Rit   2
23.09.2017 18 86 14 30 43 33 32 58 89 37  Rit   2
03.10.2017 18 14 30 33 58 89 37 01 74 20  Rit   4
02.01.2018 58 63 57 67 87 43 17 60 35 25  Rc   39
=================================================
Grazie
 
Vuol dire che riesci a definire una decina di numeri giocabili ad ambo.]
Clicca per espandere...

Magari claudi8 .

In pratica facendo una ricerca visuale e impostando le ultime 6000 estrazioni con ultima intendo la 9430 del 03 02 2018 i rit. Max raggiunti da queste decine dinamiche sono i seguenti :
Codice: 
BA 63
CA 76
FI 68
GE 62
MI 69
NA 69
PA 62
RO 61
TO 70
VE 64
NZ 40

Come puoi vedere queste decine dinamiche formate dai primi 10 ritardatari ( dinamiche perché' il gruppo che forma tale decine può' cambiare da estrazione ad estrazione per il motivo che se esce un numero dei primi 10 ritardatari la decina di numeri cambia come puoi vedere dall out delle script che ti ho postato ) hanno raggiunto ritardi max molto bassi rispetto ad altre decine e forse anche tra tutte le miliardi di decine che si possono formare con i 90 numeri .

Con Rc viene indicato il ritardo attuale della decina dinamica dei primi 10 ritardatari per la sorte d' ambo ( Cioè i numeri che vanno nel tabellone dinamico dalla posizione 81 a 90 ).

Ora come scrivevo dato che la probabilità teorica di estrazione di un numero e sempre la stessa anche la decina di numeri che si trovano nella posizione da 71 a 80 dovrebbero avere pressapoco gli stessi ritardi max per la sorte d' ambo e cosi via per le posizioni 61 70 - 51 60 - fino alla posizione 1-10 . questo il primo step . Se la mia tesi è confutata questi ritardi max possono essere abbattuti del 30 % e forse anche di più .

Forse dovrei chiedere aiuto al grande Joe Che ha fatto lo script postato sopra .

Non so neanche se divulgare ulteriori indiscrezioni non per non condividerlo con il Forum ma per il motivo che come da più parti si mormora L8magica monitora i Forum.

Sotto le decine nelle varie posizioni sulla ruota di BA come puoi vedere dal tabellone analitico di spaziometria alla 9430 del 03 02 2018


Posizione 01-10 decina 59 03 86 30 71 62 55 45 80 74
Posizione 11-20 decina 24 02 20 11 84 85 37 26 38 52
Posizione 21-30 decina 40 35 09 31 53 06 56 51 01 04
Posizione 31-40 decina 50 76 34 60 75 36 67 43 23 32
Posizione 41-50 decina 77 87 47 19 07 21 64 41 08 54
Posizione 51-60 decina 81 79 44 17 49 58 25 14 73 33
Posizione 61-70 decina 42 48 39 72 65 82 78 27 28 15
Posizione 71-80 decina 61 29 63 05 13 46 83 69 16 90
Posizione 81-90 decina 68 22 10 18 89 57 12 70 88 66



Spero di essere stato chiaro .

Ciao Eugenio
 
Ultima modifica:
Secondo te quale riga dello script o variabile indica quale posizione dei numeri considerare non riesco a interpretare .
 
Ho provato a modificare la riga :

Codice: 
[B]Dim[/B] [B]Ru[/B](1) : [B]DN[/B] [B]=[/B] "1.2.3.4.5.6.7.8.9.10.11.12.13.14.15.16.17.18.19.20" : [B]Nu[/B] [B]=[/B] [B]Split[/B]("0." [B]&[/B] [B]DN[/B],".") : [B]SO[/B] [B]=[/B] 2

in out ho :

Codice: 
 [B]Bari       1° 2° 3° 4° 5° 6° 7° 8° 9° 10°11°12°13°14°15°16°17°18°19°20° PdR[/B]  
 [B]10.10.2017 [/B]24 30 20 36 [B]22 [/B]41 [B]87 [/B]13 08 11 33 40 71 80 66 88 21 14 49 28 [B] Rit   1[/B]  
 [B]12.10.2017 [/B]24 30 20 36 41 13 08 11 33 [B]40 [/B]71 80 66 88 21 14 49 28 78 [B]51 [/B][B] Rit   1[/B]  
 [B]21.10.2017 [/B]24 30 20 36 41 [B]13 [/B]08 11 33 71 80 66 88 21 14 [B]28 [/B]78 60 45 90 [B] Rit   4[/B]  
 [B]26.10.2017 [/B]24 30 20 36 41 [B]08 11 [/B]71 80 66 88 21 [B]14 [/B]78 60 45 90 77 43 34 [B] Rit   2[/B]  
 [B]28.10.2017 [/B]24 30 20 36 [B]41 [/B]71 80 66 88 21 78 60 45 90 77 43 34 [B]32 [/B]39 70 [B] Rit   1[/B]  
 [B]31.10.2017 [/B]24 30 20 36 71 80 66 88 21 [B]78 [/B]60 45 [B]90 [/B]77 43 34 39 70 86 83 [B] Rit   1[/B]  
 [B]02.11.2017 [/B][B]24 [/B]30 20 36 71 80 66 88 21 60 45 77 43 [B]34 [/B]39 70 86 83 04 12 [B] Rit   1[/B]  
 [B]11.11.2017 [/B]30 20 [B]36 [/B]71 [B]80 [/B]66 88 21 60 77 43 39 70 86 83 04 12 23 19 73 [B] Rit   4[/B]  
 [B]14.11.2017 [/B][B]30 [/B]20 71 66 88 21 [B]60 [/B]77 43 39 70 86 [B]83 [/B]04 12 23 19 73 81 02 [B] Rit   1[/B]  
 [B]16.11.2017 [/B]20 71 66 88 21 77 43 39 70 86 [B]04 [/B]12 23 19 73 [B]81 [/B]02 01 29 15 [B] Rit   1[/B]  
 [B]18.11.2017 [/B]20 71 66 88 21 77 43 39 70 [B]86 [/B]12 23 19 73 02 01 29 15 [B]84 [/B]61 [B] Rit   1[/B]  
 [B]23.11.2017 [/B]20 [B]71 [/B]66 88 21 77 43 39 70 12 23 19 73 02 01 [B]29 [/B]15 61 07 57 [B] Rit   2[/B]  
 [B]25.11.2017 [/B]20 66 88 [B]21 [/B]77 43 39 70 12 23 19 73 02 01 15 [B]61 [/B]07 57 52 64 [B] Rit   1[/B]  
 [B]02.12.2017 [/B]20 66 88 77 [B]43 39 [/B]70 12 23 19 73 02 01 07 57 52 64 67 89 54 [B] Rit   3[/B]  
 [B]09.12.2017 [/B]20 66 88 [B]77 [/B]70 12 23 19 02 01 07 57 52 64 67 89 54 [B]82 [/B]18 87 [B] Rit   3[/B]  
 [B]04.01.2018 [/B]20 66 88 70 12 [B]19 [/B]02 01 [B]07 [/B]57 [B]64 [/B]89 18 62 10 35 06 22 68 90 [B] Rit  11[/B]  
 [B]23.01.2018 [/B]20 66 88 70 12 02 57 89 18 62 10 [B]35 [/B]22 68 90 16 [B]09 [/B]69 46 83 [B] Rit   8[/B]  
 [B]25.01.2018 [/B]20 66 88 70 12 [B]02 [/B]57 89 18 [B]62 [/B]10 22 68 90 16 69 46 83 86 13 [B] Rit   1[/B]  
 [B]03.02.2018 66 88 70 12 57 89 18 10 22 68 90 16 69 46 83 13 05 29 63 61  Rc    4[/B]

se invece digito solo

Codice: 
[B]Dim[/B] [B]Ru[/B](1) : [B]DN[/B] [B]=[/B] "11.12.13.14.15.16.17.18.19.20" : [B]Nu[/B] [B]=[/B] [B]Split[/B]("0." [B]&[/B] [B]DN[/B],".") : [B]SO[/B] [B]=[/B] 2

in out mi da sempre i dieci numeri delle prime 10 posizioni.

Poi non riesco ad interpretare la Variabile P in due posti diversi .
 
Primo passo :

ordinamento dei 90 numeri per posizione di ritardo nell' ultima estrazione in archivio .

Codice: 
Option Explicit
Sub Main
    Dim es,numero,Posizionenumero,numerorestituito,ruota
    ruota = 1
    es = EstrazioneFin
    Scrivi DataEstrazione(es)
    Scrivi
    For Posizionenumero = 1 To 90
        numerorestituito = NumeroPosRit(es,BA_,Posizionenumero)
        Scrivi numerorestituito
    Next
End Sub

in out i 90 numeri ordinati per posizione di ritardo.

Però se non ricordo male Spaziometria dovrebbe avere già un archivio ordinato per posizione di ritardo . Chiedo lumi.

Ciao Eugenio
 
...volevo chiedere se lo script pubblicato è valido anche per combinazioni di numeri inferiori, nel tal caso se c' è qualcuno che ha i dati dei ritardi storici finora raggiunti delle va rie combinazioni?

e sopratutto "perla delle perle" se c'è qualcuno che potrebbe modificare lo script con una funzione interessantissima ovvero dare la possibilità di trovare i i dati di cui sopra per un numero maggiore di ruote determinate, ad esempio attualmente mi piacerebbe poter confrontare i risultati degli ultimi 4 ritardatari dinamici delle ruote di NA RM e VE 79 66 08 69 per confrontare il ritardo attuale in atto con il suo storico sopratutto perchè al suo interno vi è la coppia per ambo 66 08 attualmente in ritardo su tutte ..oltre le 400 estr.ni.....
 
Ultima modifica:
Facendo i più sentiti complimenti a genios per la straordinaria intuizione e al grandissimo Joe per lo spettacolarissimo script relativo sono a chiedervi come e se sia possibile sostituire "l'analisi dei 90" con un gruppo numerico di base desiderato immesso magari da salvifica... tabella colorata :D

Io ho provato per adesso così ma non funzia...

Codice: 
'Eu-Ri-Din_10 By Joe
Sub Main
Dim R,K,P,Es,Ini,fin,tmp,GR


[I]'PROVA IMPLEMENTAZIONE TABELLA PER IMMISSIONE NUMERI DESIDERATI

'Nu

Dim quantitaNumeriscelti

ReDim anum(0)
quantitaNumeriscelti = ScegliNumeri([B]anum[/B])


'FINE PROVA TABELLA[/I]


Dim Ru(1) : DN = "1.2.3.4.5.6.7.8.9.10" : [B]anum [/B]= Split("0." & DN,".") :  SO = 2

'Nu = anum

Ini = EstrazioneFin - 100: fin = EstrazioneFin
For R = 1 To 11
If R = 11 Then
R = R + 1
End If
Ru(1) = R : Messaggio NomeRuota(R)
K = 0 : Scrivi FormatSpace(NomeRuota(Ru(1)),11),1,0



For P = 1 To UBound([B]anum[/B]) : Scrivi FormatSpace(P & "°",3),1,0 : Next : Scrivi " PdR",1
For Es = Ini To fin : AvanzamentoElab Ini,fin,Es
K = K + 1

If SerieFreqTurbo(Es,Es,[B]anum[/B],Ru,1,,,1) >= SO Then


Scrivi DataEstrazione(Es) & " ",1,0
For P = 1 To UBound([B]anum[/B])
tmp = NumeroPosRit((Es - 1),Ru(1),P)
If Posizione(Es,Ru(1),tmp) > 0 Then ColoreTesto 2 : GR = 1
Scrivi Format2(tmp) & " ",GR,0 : ColoreTesto 0 : GR = 0
Next
Scrivi " Rit" & FormatSpace(K,4,1),1 : K = 0
End If
Next
Scrivi DataEstrazione(fin) & " ",1,0
For P = 1 To UBound([B]anum[/B])
Scrivi Format2(NumeroPosRit(fin,Ru(1),P)) & " ",1,0
Next : Scrivi " Rc " & FormatSpace(K,4,1),1
Scrivi String(49,"="),1
Next

End Sub

Se può servire... mi dice tipo non corrispondente alla riga:

anum = Split("0." & DN,".") : SO = 2

Un saluto a tutti e grazie e complimenti ancora a genios e Joe :)
 
Ultima modifica:
Risolto il primo arcano

sostituire i caretteri nella stringa DN "1.2.3.4.5.6.7.8.9.10" con "11.12.13.14.15.16.17.18.19.20" e cosi' via fino alle posizioni " 81.82.83.84.85.86.87.88.89.90 "
Codice: 
 Dim Ru(1) : DN = "1.2.3.4.5.6.7.8.9.10" : Nu = Split("0." & DN,".") : SO = 2


Cambiare i valori dei cicli for next

Codice: 
 For P = 1 To UBound(Nu)

con For p = 11 To 20

Una cosa pero' non ho capito per quale motivo si sia usato la funzione Ubound dato che la stringa è sempre di lunghezza 10 ?

Ora pero' mi ritrovo con 9 script uno per ciascuna delle 10 posizioni .

E quello che vorrei fare è analizzare le 9 stringhe per ciascuna ruota in un solo script.

Ciao Eugenio
 
Ciao Eugenio,

Ti rispondo, in sardo, con le parole dei Tazenda:

"Arcanos libros in domo mea
parem paraulas tuas"


Codice: 
Option Explicit
Sub Main
Dim DN,R,N,S
R = BA_ : DN = "0" : S = 2
For N = 1 To 90
DN = DN & "." & N
If Cadenza(N) = 0 Then EuRiDin DN,R,S : DN = "0"
Next
End Sub
Sub EuRiDin(DN,R,S)
Dim K,P,Es,Ini,Fin,Tmp,GR,Nu
Dim Ru(1) : Ru(1) = R
Nu = Split( DN,".")
Ini = EstrazioneFin - 100 : Fin = EstrazioneFin
Messaggio " Decina Naturale " & DecinaNaturale(Nu(2))
K = 0 : Scrivi FormatSpace(NomeRuota(Ru(1)),11),1,0
For P = 1 To UBound(Nu) : Scrivi FormatSpace(Nu(P) & "°",3),1,0 : Next : Scrivi " PdR",1
For Es = Ini To Fin : AvanzamentoElab Ini,Fin,Es
K = K + 1
If SerieFreqTurbo(Es,Es,Nu,Ru,1,,,1) >= S Then
Scrivi DataEstrazione(Es) & " ",1,0
For P = 1 To UBound(Nu)
Tmp = NumeroPosRit((Es - 1),Ru(1),Nu(P))
If Posizione(Es,Ru(1),Tmp) > 0 Then ColoreTesto 2 : GR = 1
Scrivi Format2(Tmp) & " ",GR,0 : ColoreTesto 0 : GR = 0
Next
Scrivi " Rit" & FormatSpace(K,4,1),1 : K = 0
End If
Next
Scrivi DataEstrazione(Fin) & " ",1,0
For P = 1 To UBound(Nu)
Scrivi Format2(NumeroPosRit(Fin,Ru(1),Nu(P))) & " ",1,0
Next : Scrivi " Rc " & FormatSpace(K,4,1),1
Scrivi String(49,"="),1
End Sub

Dunque i numeri sono sempre 10 per uno che crede che il lotto sia fatto di decine (naturali) ...

... altri hanno altri limiti ... che non ho imposto allo script, che così risulta più versatile.

TUTTAVIA, E' DA VERIFICARE MOLTO ACCURATAMENTE. (Perchè io non l'ho fatto).


:) Buona Giornata a tutte/i.
 
Ultima modifica:
Grazie Joe dello script . Anche se avrei voluto che non usassi la funzione cadenza e decina . In modo da poter adattare lo script a 9 numeri o a 8 o a 7 .o a 5 e cosi' via .


"Arcanos libros in domo mea
parem paraulas tuas"
Clicca per espandere...

Joe fammi la traduzione perche' non conosco il sardo anche se è una lingua ma g--gle traslate ancora non fa le traduzioni :)

Dunque i numeri sono sempre 10 per uno che crede che il lotto sia fatto di decine (naturali) ...
Clicca per espandere...

Che cosa centrano le decine naturali con le 90 posizioni del tabellone analitico non so.

Comunque sarebbe comodo sapere se tra tutte le miliardi di decine che si formano con 90 numeri vi siano decine che abbiano raggiunto ritardi max inferiori a quelle su la ruota di bari . Che anche se visualmente ho riscontrato .
[Ritardi max sulla ruota di BA ultime 6000 estrazioni

Posizione 1-10 max ritardo 63
Posizione 11-20 max ritardo 68
Posizione 21-30 max ritardo 68
Posizione 31-40 max ritardo 68
Posizione 41-50 max ritardo 77
Posizione 51-60 max ritardo 58
Posizione 61-70 max ritardo 69
Posizione 71-80 max ritardo 58
Posizione 81-90 max ritardo 69/QUOTE]

Come vedi nelle varie posizioni i ritardi max sono piuttosto uniformi .

Questi sono solo i primi passi per eventuali sviluppi futuri.

Ciao Eugenio
Clicca per espandere...
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 17 gennaio 2025
    Bari
    10
    87
    77
    23
    60
    Cagliari
    75
    33
    60
    24
    15
    Firenze
    45
    34
    66
    41
    17
    Genova
    05
    65
    15
    53
    86
    Milano
    20
    84
    74
    76
    01
    Napoli
    90
    29
    38
    52
    68
    Palermo
    33
    36
    02
    20
    68
    Roma
    68
    12
    59
    07
    74
    Torino
    03
    22
    29
    90
    28
    Venezia
    81
    24
    35
    18
    03
    Nazionale
    06
    31
    35
    89
    74
    Estrazione Simbolotto
    Bari
    14
    24
    17
    13
    08
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto