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
    martedì 14 ottobre 2025
    Bari
    48
    72
    06
    17
    82
    Cagliari
    28
    15
    25
    20
    34
    Firenze
    07
    17
    49
    62
    04
    Genova
    49
    09
    84
    14
    71
    Milano
    66
    57
    78
    07
    33
    Napoli
    17
    27
    25
    21
    66
    Palermo
    24
    34
    19
    29
    53
    Roma
    82
    53
    47
    25
    55
    Torino
    66
    58
    13
    07
    29
    Venezia
    68
    82
    10
    31
    01
    Nazionale
    19
    76
    15
    45
    26
    Estrazione Simbolotto
    26
    02
    15
    45
    40
Indietro
Alto