Novità

Curiosità sui sistemi virtuali

F

FABIO60

Super member
Ciao a tutti, sperando di non annoiare vorrei proporre alcune "curiosità" sui svp. Prima curiosità: non vi ricordate quali sono i 24 sistemi da affianacare al D90?, lanciate il seguente script: Sub Main() Dim n(90) For y = 1 To 89 For x = 1 To 90 n(x) = Fuori90(x*y) EliminaRipetuti(n) If n(x) > 0 Then C = c + 1 End If Next If c = 90 Then Scrivi Scrivi "svp D >>>>>>>>>> " & Y,1 Scrivi End If c = 0 Next End Sub segue>>>
 
Codice: 
   Sub Main()
    Dim n(90)
    For y = 1 To 89
        For x = 1 To 90
            n(x) = Fuori90(x*y)
            EliminaRipetuti(n)
            If n(x) > 0 Then
                C = c + 1
            End If
        Next
        If c = 90 Then
            For x = 1 To 90
                If x = 1 Then ColoreTesto 2
                rigo = Format2(n(x)) & " "
                Scrivi rigo,0,0
                ColoreTesto 0
            Next
        End If
        c = 0
    Next
End Sub
 
manca
If x = 90 Then Scrivi

Codice: 
 Sub Main()
    Dim n(90)
    For y = 1 To 89
        For x = 1 To 90
            n(x) = Fuori90(x*y)
            EliminaRipetuti(n)
            If n(x) > 0 Then
                C = c + 1
            End If
        Next
        If c = 90 Then
            For x = 1 To 90
                If x = 1 Then ColoreTesto 2
                rigo = Format2(n(x)) & " "
                Scrivi rigo,0,0
                If x = 90 Then Scrivi
                ColoreTesto 0
            Next
        End If
        c = 0
    Next
End Sub
 
Codice: 
  Buona sera a tutti,
La ringrazio Disaronno per essere intervenuto, ho provato il mio script

su Spaziometria e in effetti non funziona ( su L8+ funziona però per 

avere la visione corretta bisogna rimpicciolire l' output: tasto ctrl e rotellina mous)

Con lo script che crea 24 progressioni, volevo evidenziare che oltre l' allineamento di tutti

i 24 sistemi al 90, c'è anche un ulteriore allineamento al 45 (tutti i 24 sistemi virtuali

conterranno i diametrali dei numeri reali)

Inoltre sostituendo a if c=90 

c=45 si ottengono 24 sistemi pseudo virtuali  con allineamento al 90 dopo 45 estrazioni.

Segue >>>
 
Altra curiosità: quando nell'achivio 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
 
progressioni_24.png


output tagliato di L8+ dello script di cui sopra
 
Ciao Fabio, disaronno, buon giorno a tutte/i.

I basic ... sono molto simili ma hanno differenze, a volte, quasi impercettibili.

Chi ha scritto quel programma ha sfruttato al massimo le peculiartà dell'ambiente L8.

Trasferendolo a Spaziometria, emergono delle incompatibilità.

Esso utilizza, per così dire, la dritta che m'ha dato bladerunner.

Cioè, considera valide "le distanze" con cui si possono generare tutti i 90 lottoroni,

idonei a formare, un sistema virtuale "D(x)" completo. Cioè con TUTTI i 90 "numeri".

Con questa premessa, semplificando lo script, che hai proposto, diventa possibile

rendenderlo "compatibile" a Spaziometria, per esempio in questo modo:

Codice: 
Option Explicit
Sub Main()
Dim X,Y,C,T
For Y = 1 To 90
ReDim N(90) : C = 0
For X = 1 To 90
T = Fuori90(X*Y)
If N(T) = "" Then
C = C + 1
N(T) = X
End If
Next
If C = 90 Then
For X = 1 To 90
If X = 1 Then ColoreTesto 2
Scrivi Format2 (N (X)) & " " ,0,0
ColoreTesto 0
Next
Scrivi ""
End If
Next
End Sub

:) Cordiali saluti.
 
Ultima modifica:
Grazie Joe per la spiegazione e per il listato.

Altra curiosità: quando nell'achivio 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
Clicca per espandere...

Riguardo quanto scritto sopra, posto il listato


Codice: 
 Sub Main()
    Dim nu(5),ru(1),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
    p = 2
    r = 10
    ru(1) = r
    ColoreTesto 2
    Scrivi Space(15) & NomeRuota(r),1
    Scrivi" ritardo ripetizione  in pos. " & p
    ColoreTesto 0
    Scrivi
    fin = EstrazioneFin
    ini = fin - 1000
    For es = fin To ini Step - 1
        a = Estratto(es,r,p)
        b = Estratto(es - 1,r,p)
        For x = 1 To 25
            If a = Fuori90(b + d(x)) Then
                co(x) = co(x) + 1
                If co(x) = 1 Then
                    rit(x) = fin - es
                    Scrivi "sistema D " & Format2(d(x)) & "..... " & rit(x)
                End If
            End If
        Next
    Next
End Sub
Ciao
 
Una curiosità e una (per me bellissima ) scoperta: una cinquina sincrona per estratto ha raggiunto il ritardo di 58 estrazioni !

(sistema d83 ruota di MI il 4-6-2003) La bella scoperta riguarda Spaziometra il programma del grande LuigiB: ho scoperto che

copiando un archivio virtuale dalla cartella Archivi Virtuali e incollandolo nella cartella Archivi Filtrati, posso richiamarlo e farci

tutte le statistiche che Spaziometria permette di fare!

Grazie Luigi, grazie Il plugin ancora non l' ho provato, ma già questo mi

basta! Grazie nuovamente
 
Codice: 
 ' Formula empirica di conversione; [B]curiosità:[/B]
'per x=89  Numero virtuale e numero reale coincidono


Sub Main
    
d=..'sistema virtuale
numerovirtuale=..
estrazioni=  ...' ampiezza archivio virtuale
es=EstrazioneFin
x=estrazioni Mod 90 
numeroreale=Fuori90(d*90-(d*(89-x))+numerovirtuale)
Scrivi "numero reale > "&numeroreale&" al "&Dataestrazione(es),1

'Scrivi x'per x=89  Numero virtuale e numero reale coincidono

End Sub

Ciao
 
FABIO60;n1920761 ha scritto:
Altra curiosità: quando nell'achivio 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
Clicca per espandere...

Ciao Fabio,

Con riferimento a quanto hai esposto a questo messaggio ...

Potresti cortesemente controllare e riportare ad ora ...

Il ritardo nelle 5 posizioni (dunque minimo) di Firenze del sistema Virtuale D19 ?

:) Grazie
 
Potresti cortesemente controllare e riportare ad ora ...

Il ritardo nelle 5 posizioni (dunque minimo) di Firenze del sistema Virtuale D19 ?
Clicca per espandere...


Al 29-9

Ruota di Firenze sistema D19

Rip. POS 1^ in 1^ pos rit. 112
Rip. POS 2^ in 2^ pos rit. 117
Rip. POS 3^ in 3^ pos rit. 264
Rip. POS 4^ in 4^ pos rit. 110
Rip. POS 5^ in 5^ pos rit. 133

Ciao
 
Una curiosità (per restare nel tema del post) l' output è stato generato con l' archivio reale o hai istallato l' archivio virtuale D19?
 
FABIO60;n1921846 ha scritto:
Una curiosità (per restare nel tema del post) l' output è stato generato con l' archivio reale o hai istallato l' archivio virtuale D19?
Clicca per espandere...

Ho usato il tuo script (al #10 se ricordo bene) ... come routine,

poi ho creato la tabella ... dei risultati, calcolando li minimi e le somme.

:)
 
FABIO60;n1921211 ha scritto:
Grazie Joe per la spiegazione e per il listato.



Riguardo quanto scritto sopra, posto il listato


Codice: 
 Sub Main()
Dim nu(5),ru(1),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
p = 2
r = 10
ru(1) = r
ColoreTesto 2
Scrivi Space(15) & NomeRuota(r),1
Scrivi" ritardo ripetizione in pos. " & p
ColoreTesto 0
Scrivi
fin = EstrazioneFin
ini = fin - 1000
For es = fin To ini Step - 1
a = Estratto(es,r,p)
b = Estratto(es - 1,r,p)
For x = 1 To 25
If a = Fuori90(b + d(x)) Then
co(x) = co(x) + 1
If co(x) = 1 Then
rit(x) = fin - es
Scrivi "sistema D " & Format2(d(x)) & "..... " & rit(x)
End If
End If
Next
Next
End Sub
Ciao
Clicca per espandere...

Ciao Fabio potresti cortesemente modificare lo script in maniera tale che a fianco al ritardo ci sia il numero virtuale corrispondente?

Grazie


Rodrigo
 
Se intendevi quale sia il numero in gioco, ecco la modifica

Codice: 
  Sub Main()
    Dim nu(5),ru(1),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
    p = 2
    r = 10
    ru(1) = r
    ColoreTesto 2
    Scrivi Space(15) & NomeRuota(r),1
    Scrivi" ritardo ripetizione  in pos. " & p
    ColoreTesto 0
    Scrivi
    fin = EstrazioneFin
    ini = fin - 1000
    For es = fin To ini Step - 1
        a = Estratto(es,r,p)
        b = Estratto(es - 1,r,p)
        For x = 1 To 25
            If a = Fuori90(b + d(x)) Then
                co(x) = co(x) + 1
                If co(x) = 1 Then
                    rit(x) = fin - es
                    Scrivi "sistema D " & Format2(d(x)) & "..... " & rit(x)&_
                        "...Numero in gioco per l'estrazione successiva al "&_
                        dataestrazione(fin)&" > "&fuori90(Estratto(Fin,r,p)+d(x))
                End If
            End If
        Next
    Next
End Sub
 
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.

Codice: 
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

:)
 
Ultima modifica:
FABIO60;n1921927 ha scritto:
Se intendevi quale sia il numero in gioco, ecco la modifica

Codice: 
 Sub Main()
Dim nu(5),ru(1),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
p = 2
r = 10
ru(1) = r
ColoreTesto 2
Scrivi Space(15) & NomeRuota(r),1
Scrivi" ritardo ripetizione in pos. " & p
ColoreTesto 0
Scrivi
fin = EstrazioneFin
ini = fin - 1000
For es = fin To ini Step - 1
a = Estratto(es,r,p)
b = Estratto(es - 1,r,p)
For x = 1 To 25
If a = Fuori90(b + d(x)) Then
co(x) = co(x) + 1
If co(x) = 1 Then
rit(x) = fin - es
Scrivi "sistema D " & Format2(d(x)) & "..... " & rit(x)&_
"...Numero in gioco per l'estrazione successiva al "&_
dataestrazione(fin)&" > "&fuori90(Estratto(Fin,r,p)+d(x))
End If
End If
Next
Next
End Sub
Clicca per espandere...

Ciao Fabio penso ci sia un errore nei numeri che si dovrebbero mettere in gioco poiché lo stesso numero in gioco se non esce va sommato al Sistema D...corrispondente e messo in gioco nell'estrazione seguente, ma nel tuo script sembra non essere così...prova a fare una verifica.
Ciao

Rodrigo
 
Ultima modifica:
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 13 giugno 2025
    Bari
    51
    31
    66
    49
    01
    Cagliari
    64
    05
    11
    31
    84
    Firenze
    61
    56
    04
    64
    45
    Genova
    47
    16
    74
    79
    12
    Milano
    31
    90
    08
    40
    19
    Napoli
    20
    73
    56
    22
    82
    Palermo
    28
    02
    25
    39
    06
    Roma
    53
    38
    88
    45
    74
    Torino
    54
    40
    81
    78
    01
    Venezia
    04
    50
    61
    39
    62
    Nazionale
    67
    43
    87
    38
    54
    Estrazione Simbolotto
    Napoli
    08
    36
    22
    42
    45
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto