Curiosità sui sistemi virtuali

[Giulio LG]

Rendo disponibile lo script, ad hoc, indirizzato al controllo, del metodo statistico attuale,

che prevede di considerare il Massimo Ritardo Minimo, Multiplo/Determinato,

della Specifica Cinquina Sincrona Virtuale.

Option Explicit
Sub Main()
'Ritardo di Ripetizione in Posizione dei 5 Numeri Virtuali Determinati.
'Script di Fabio60 / Rev By Joe [9062] del 29/09/2015.

Dim Ini,Fin,Es,R,P,X,A,B
Dim Nu(5),Rit(25),D(25),Co(25)
D(1) = 1 : D(2) = 11 : D(3) = 31 : D(4) = 41 : D(5) = 61 : D(6) = 71
D(7) = 13 : D(8) = 23 : D(9) = 43 : D(10) = 53 : D(11) = 73 : D(12) = 83
D(13) = 7 : D(14) = 17 : D(15) = 37 : D(16) = 47 : D(17) = 67 : D(18) = 77
D(19) = 19 : D(20) = 29 : D(21) = 49 : D(22) = 59 : D(23) = 79 : D(24) = 89 : D(25) = 90
'DATI: ..................................................
Fin = EstrazioneFin : Ini = Fin - 1000 : R = FI_ : X = 19
'........................................................
ColoreTesto 2 : Scrivi NomeRuota(R),True,False
Scrivi " Sistema [D" & Format2(D(X)) & "]",True : Scrivi
ColoreTesto 1 : Scrivi "In gioco per l' Estrazione successiva al ",False,False
Scrivi DataEstrazione(Fin) & " : " : ColoreTesto 0 : Scrivi
Scrivi "Pos. ",True,False
Scrivi "Rit.Rip.",True,False
ColoreTesto 1 : Scrivi " Num. ",True,True : ColoreTesto 0
For P = 1 To 5
Co(19) = 0
Scrivi FormatSpace(P,2,True),True,False
For Es = Fin To Ini Step - 1
A = Estratto(Es,R,P)
B = Estratto(Es - 1,R,P)
For X = 19 To 19
If A = Fuori90(B + D(X)) Then
Co(X) = Co(X) + 1
If Co(X) = 1 Then
Rit(X) = Fin - Es
ColoreTesto 2 : Scrivi FormatSpace(Rit(X),8,True),True,False
ColoreTesto 1
Scrivi FormatSpace(Format2(Fuori90(Estratto(Fin,R,P) + D(X))),7,True),True
ColoreTesto 0
End If
End If
Next
Next
Next
End Sub

Ciaooo RE Giorgio > Se voglio apportare una qualsiasi distanza > Per esempio D60 > le modifiche sarebbero ...

 

[Joe91]

Ciao Giulio.

Non credo si possa ... senza apportare prima alcune moifiche.

Poi, prima, prudentemente, si deve considerare la segnalazione di Rodrigo.

Anche se, credo, trattarsi di falso allarme.

Ti farò sapere qui di seguito.

Saluti a tutte/i.

 

[FABIO60]

Altra curiosità: quando nell'archivio reale in una estrazione sortisce un numero che sia di distanza 1 o 7 o 11 etc. dal rispettivo isotopo dell' estrazione precedente, nell'archivio virtuale corrispondente alla distanza si ha la ripetizione isotopa a colpo del numero virtuale corrispondente. C'è una situazione di ritardo riguardo il sistema d 79 ruota di Venezia ripetizione pos.det. 2 su pos. det. 2

Rodrigo se leggi attentamente quanto scritto sopra si può capire quale sia il numero da giocare senza bisogno di script
o conversione. In altre parole il numero di riferimento è sempre quello dell' ultima estrazione a cui si somma la distanza.

Joe grazie per il listato, stavo per chiedertelo, poi lo provo



Ciao

 

[Joe91]

Ciao Ragazzi.

Penso che quanto riferisce Rodrigo, non tiene conto del "quanto" è di questa ricerca.

Ricerca che è ... un pò ... fuori dagli schemi.

In pratica è probabile che ... risultati diversi sottointendano e sottostiano a ricerche diverse.

Qui ... pur essendo praticamente impossibile che vi siano errori ... in risultati identici, nelle 5 posizioni,

e con ritardi assortiti tra Zero e 250 Estrazioni .... ho voluto trovare e provare ... ancora ...

con altra soluzione, oltre la mia precedente e qualla di Fabio.

Questo per avere ulteriore conferma dell'ipotesi appena esposta.

Vi regalo anche questo piccolo script.

I risultati di esso sono visibili come vincite ... calcolate da Spaziometria.

I ritardi sono calcolati un pò alla carlona, ma avvallano i dati gia riportati e che, anche qui, coincidono.

(Pur dovendosi escludere alcune ridondanze e/o ripetizioni di vincite).

Questo script è semplicissimo, ed è facilmente modificabile.

Inoltre esso è già, in grado di fornire ciò che serve, senza modifiche strutturali.

Cordiali saluti.

Option Explicit
Sub Main
Dim Ini,Fin,D,Es,P,E,N(1),R(1),Rit
'DATI: -------------------------------------------------------------
Fin = 9062 : Ini = Fin - 265 : R(1) = FI_ : D = 19
'-------------------------------------------------------------------
For Es = Ini To Fin
Rit = Fin - Es
Scrivi String(100,"=") & Space(3) & Rit,True
For P = 1 To 5
ReDim Po(10) : Po(P + 5) = 1
E = Estratto(Es,R(1),P) : N(1) = Fuori90(E + D)
ImpostaGiocata P,N,R,Po,1
Next
Gioca Es,True

Next
ScriviResoconto
End Sub

 

[FABIO60]

Curiosità : il max storico negli archivi virtuali per estratto determinato

è stato di 1711 estrazioni ( sistema d77)!

 

[FABIO60]

Curiosità: per uk 49 i sistemi vituali sono 48

a due a due complementari al 49

sistema 1 sistema 48

sistema 2 sistema 47
.....

.....

sistema 23 sistema 26

sistema 24 sistema 25

 

[FABIO60]

 'Progressioni possibili con 90 numeri con allineamento al 90

Sub Main()
    Dim n(90)
    For y = 1 To 90
        For x = 1 To 90
            n(x) = Fuori90(x*y)
        Next
        If NumeriRipetuti(n) < 1 Then
            For x = 1 To 90
                If x = 1 Then ColoreTesto 2
                If x = 90 Then ColoreTesto 1
                If x = 45 Then ColoreTesto 3

                rigo = Format2(n(x)) & " "
                Scrivi rigo,0,0
                If x = 90 Then Scrivi
                ColoreTesto 0
            Next
        End If
    Next
End Sub

Curiosità: per uk 49 i sistemi vituali possibili sono 48

'Progressioni possibili con 49 numeri con allineamento al 49

Sub Main()
Dim n(49)
For y = 1 To 49
For x = 1 To 49
n(x) = Fuori49(x*y)
Next
If NumeriRipetuti < 1 Then
For x = 1 To 49
If x = 1 Then ColoreTesto 2
If x = 49 Then ColoreTesto 1
rigo = Format2(n(x)) & " "
Scrivi rigo,0,0
If x = 49 Then Scrivi
ColoreTesto 0
Next
End If
Next
End Sub


Ciao

 

[silop2005]

'Progressioni possibili con 49 numeri con allineamento al 49

Sub Main()
Dim n(49)
For y = 1 To 49
For x = 1 To 49
n(x) = Fuori49(x*y)
Next
If NumeriRipetuti < 1 Then
For x = 1 To 49
If x = 1 Then ColoreTesto 2
If x = 49 Then ColoreTesto 1
rigo = Format2(n(x)) & " "
Scrivi rigo,0,0
If x = 49 Then Scrivi
ColoreTesto 0
Next
End If
Next
End Sub


Ciao

============================================== [TABLE="border: 0, cellpadding: 0, cellspacing: 0, width: 823"]
[TR]
[TD]

[/TD]
[/TR]
[TR]
[TD] [/TD]
[/TR]
[TR]
[TD]Ciao FABIO60,[/TD]
[/TR]
[TR]
[TD]mi permetto farti osservare che [/TD]
[/TR]
[TR]
[TD]i sistemi virtuali per la lotteria estera con 49 numeri[/TD]
[/TR]
[TR]
[TD]non sono 48 ma sono 48 meno 6 uguale a 42 archivi virtuali più l'archivio reale.[/TD]
[/TR]
[TR]
[TD]Le sei sequenze che non ci sono, come giusto che sia,[/TD]
[/TR]
[TR]
[TD]sono il 7 e i suoi multipli quindi non ci sono il 7-14-21-28-35-42 [/TD]
[/TR]
[TR]
[TD]e questa mancanza la si vede anche dal tuo script, i multipli del 7 non ci sono.[/TD]
[/TR]
[TR]
[TD]Per concludere sono in totale 43 archivi di cui 42 archivi virtuali più uno archivio reale.[/TD]
[/TR]
[TR]
[TD]=======================[/TD]
[/TR]
[TR]
[TD]Complimenti per le tue "curiosità".[/TD]
[/TR]
[TR]
[TD]====================== [/TD]
[/TR]
[TR]
[TD]

[/TD]
[/TR]
[TR]
[TD]Buona domenica a tutti.[/TD]
[/TR]
[TR]
[TD]A presto [/TD]
[/TR]
[TR]
[TD]Silop [/TD]
[/TR]
[/TABLE]

 

[FABIO60]

Ciao Silop mi scuso per la svista, avrei dovuto mettere un contatore nello script:

a occhio mi erano sembrate 48 progressioni.

Approfitto per farti i complimenti per la tua bravura e preparazione statistica

che tutti abbiamo avuto modo di apprezzare.

Grazie e Buona serata a tutti

 

[silop2005]

[TABLE="border: 0, cellpadding: 0, cellspacing: 0, width: 823"]
[TR]
[TD]

[/TD]
[/TR]
[TR]
[TD] [/TD]
[/TR]
[TR]
[TD]Ciao FABIO60,[/TD]
[/TR]
[TR]
[TD]Grazie dei complimenti.[/TD]
[/TR]
[TR]
[TD]====================== [/TD]
[/TR]
[TR]
[TD]

[/TD]
[/TR]
[TR]
[TD]Buona domenica a tutti.[/TD]
[/TR]
[TR]
[TD]A presto [/TD]
[/TR]
[TR]
[TD]Silop [/TD]
[/TR]
[/TABLE]

 

[FABIO60]

Curiosità: nel sistema D23 ci sono alcuni ambi a tutte con ritardo

sincrono continuo (numeri già tradotti)


54.82 373
38.69 310
16.40 309
72.79 305
36.79 280
34.48 279
03.68 278
12.16 277
33.65 273
06.66 246

Ciao