Novità

Curiosità sui sistemi virtuali

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

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

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 ?


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?

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

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

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:

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 12 giugno 2025
    Bari
    26
    16
    67
    08
    12
    Cagliari
    67
    31
    37
    76
    80
    Firenze
    03
    63
    28
    09
    43
    Genova
    68
    38
    53
    86
    85
    Milano
    66
    41
    88
    07
    53
    Napoli
    11
    32
    09
    24
    79
    Palermo
    07
    44
    76
    30
    35
    Roma
    03
    64
    30
    65
    29
    Torino
    40
    46
    31
    32
    39
    Venezia
    88
    67
    46
    04
    51
    Nazionale
    76
    67
    49
    34
    56
    Estrazione Simbolotto
    Napoli
    23
    03
    04
    17
    02
Indietro
Alto