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
    martedì 17 giugno 2025
    Bari
    50
    69
    29
    20
    42
    Cagliari
    90
    18
    15
    24
    70
    Firenze
    01
    53
    24
    25
    36
    Genova
    89
    49
    67
    05
    30
    Milano
    17
    16
    53
    87
    56
    Napoli
    78
    28
    67
    30
    55
    Palermo
    08
    69
    05
    85
    22
    Roma
    28
    76
    19
    77
    17
    Torino
    71
    56
    03
    15
    09
    Venezia
    57
    82
    76
    52
    62
    Nazionale
    83
    49
    07
    12
    13
    Estrazione Simbolotto
    Napoli
    30
    33
    28
    44
    11
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto