Novità

Ma il pronostico?

giandy

Member
Salve a tutti ,risolto il problema di script installando spaziometria, ringraziando chi mi ha aiutato volevo chiedere una cosa...

Ho trovato questo script in giro e che ora vi darò ma immagino che voi tutti già avrete

Questo script dice (o almeno mi pare di capire ) che calcola l'uscita dell'ambata su ruota .

Ora la percentuale di successo sembrerebbe essere pari al 100% alla prima uscita utitle, quindi ogni previsione azzeccata.

Ma dov'è la previsione per la prossima estrazione??

ecco la script


Option Explicit
Sub Main()
Dim n1,n2
Dim am(10)
Dim ruota(10)
Dim posta(5)
Dim Ini,n,r,p,t,a,b


posta(1) = 1
Ini = EstrazioneIni '3861 (05/01/1945 1a estrazione a 10 ruote)
For n = Ini To EstrazioneFin
Messaggio DataEstrazione(n)
For r = 1 To 10
For p = 1 To 5

a = Estratto(n,r,p)


b = Estratto(n + 1,r,p)

If a = b Then

Scrivi "**************************************************************"
ColoreTesto 2
Scrivi " Estrazione positiva rilevata del " & DataEstrazione(n) & " num. " & b & " in gioco su " & SiglaRuota(r)
Scrivi
ColoreTesto 0
ruota(1) = r
am(1) = a
ImpostaGiocata 1,am,ruota,posta,3,1
Gioca n
End If
Next
If ScriptInterrotto Then Exit Sub
Next
Next
TestoInBandaPassante "SENSAZIONALE SCOPERTA - AMBATA MICIDIALE TROVATA CON SPAZIOMETRIA di LuigiB analizzando la famosa TAVOLA REALE - (funziona dal 1939 anno di sua invenzione) - non facciamoco burlare dai venditori di fumo - TENETEVI PRONTI E'IN CORSO LO STUDIO DElL'AMBO STRATOSFERICO ",1,3,0
ScriviResoconto
End Sub
Function RAD10(estrazione,tentativo,ruota,numero1,numero2)

Dim trovati,r,i,j
trovati = 0
For r = 1 To 10
For i = 1 To 4
For j = i + 1 To 5
a = Estratto(estrazione,r,i)
b = Estratto(estrazione,r,j)
If Distanza(a,b) = 30 Then
trovati = trovati + 1
If trovati = tentativo Then
numero1 = Estratto(estrazione,r,i)
numero2 = Estratto(estrazione,r,j)
ruota = r
RAD10 = True
Exit Function
End If
End If
Next
Next
Next
RAD10 = False
End Function
Function RAD20(estrazione,tentativo,byref ruota,byref numero1,byref numero2)
Dim trovati,r,i,j,a,b
trovati = 0

For r = 1 To 10
For i = 1 To 4
For j = i + 1 To 5
a = Estratto(estrazione,r,i)
b = Estratto(estrazione,r,j)
If Distanza(a,b) = 30 Then
trovati = trovati + 1
If trovati = tentativo Then
Scrivi "trovato"
numero1 = Estratto(estrazione,r,i)
numero2 = Estratto(estrazione,r,j)
ruota = r
RAD20 = True
Exit Function
End If
End If
Next
Next
Next
RAD20 = False
End Function
Function RAD30(estrazione,tentativo,byref ruota,byref numero1,byref numero2)
Dim trovati,r,i,j,a,b

trovati = 0
For r = 1 To 10
For i = 1 To 4
For j = i + 1 To 5
a = Estratto(estrazione,r,i)
b = Estratto(estrazione,r,j)
If Distanza(a,b) = 30 Then
trovati = trovati + 1
If trovati = tentativo Then
Scrivi "30trovato"

numero1 = Estratto(estrazione,r,i)
numero2 = Estratto(estrazione,r,j)
ruota = r
RAD30 = True
Exit Function
End If
End If
Next
Next
Next
RAD30 = False
End Function
Function RAD40(estrazione,tentativo,byref ruota,byref numero1,byref numero2)
Dim trovati,r,i,j
trovati = 0
For r = 1 To 10
For i = 1 To 4
For j = i + 1 To 5
a = Estratto(estrazione,r,i)
b = Estratto(estrazione,r,j)
If Distanza(a,b) = 30 Then
trovati = trovati + 1
If trovati = tentativo Then
Scrivi "trovato40"

numero1 = Estratto(estrazione,r,i)
numero2 = Estratto(estrazione,r,j)
ruota = r
RAD40 = True
Exit Function
End If
End If
Next
Next
Next
RAD40 = False
End Function
Function RAD50(estrazione,tentativo,byref ruota,byref numero1,byref numero2)
Dim trovati,r,i,j
trovati = 0
For r = 1 To 10
For i = 1 T
 
perchè non vedo nessuna previsione

Uno script del genere che offre la statistica del numero uscito e non della previsione altro non può essere... per logica dovrebbe lanciare una previsione per l'estrazione successiva


Giandy
 
quote:Originally posted by claudio8

quote:Originally posted by giandy

Quindi sarebbe uno script che genera un numero casule ad estrazione avvenuta? ovvio che sarà sempre il 100%:(

Giandy

Perchè dici questo, da dove lo deduci che genera un numero casuale?
Ti do la risposta altrimenti andremo avanti sino a stasera.

Lo script... ( non scopriamo l'arcano ).
 
Uhm ....ok tronchiamola qui
credevo solo che questo script previsionasse qualcosa di buono ma mi sono imbattuto in una cosa inutile....peccato

grazie comunque per il tempo spesomi

Saluti

Giandy
 
In quel tread da me aperto ESELOTTO scrisse:

quote:Originally posted by esselotto

E IL CLASSICO METODO DI DUE NUMERI RIPETUTI ISOTOPI.
TUTTE QUELLE FUNCTION NON SERVONO

QUESTA E LA RIGA CHE VI FARA' CAPIRE LO SCHERZO
b = Estratto(n+1,r,p)

VADO N+1 E CONTROLLO DA N+1

IERI 12
OGGI 12
IMPOSTO GIOCATA A PARTIRE DA OGGI E CHIARO CHE AVRO' SEMPRE PRESO UN'AMBATA AL 1° COLPO.


:D:D:D:D:D:D:D:D:D:D:D:D

E' per questo motivo che ti avevo scritto inizialmente;

NON COPIARE GLI SCRIPT SENZA LEGGERE TUTTO IL tread,</u> POTRESTI INCAPPARE IN UNO SCRIPT CHE PRODUCE VIRUS .[8D][8D]
 

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 26 luglio 2025
    Bari
    81
    09
    05
    54
    10
    Cagliari
    56
    07
    45
    69
    64
    Firenze
    39
    16
    56
    29
    09
    Genova
    67
    12
    55
    74
    04
    Milano
    40
    30
    44
    63
    27
    Napoli
    63
    07
    74
    86
    81
    Palermo
    80
    34
    16
    27
    53
    Roma
    08
    78
    43
    03
    52
    Torino
    38
    84
    47
    57
    20
    Venezia
    88
    70
    85
    65
    24
    Nazionale
    36
    09
    43
    55
    10
    Estrazione Simbolotto
    Nazionale
    25
    23
    13
    40
    35

Ultimi Messaggi

Indietro
Alto