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
    giovedì 24 luglio 2025
    Bari
    71
    27
    87
    61
    39
    Cagliari
    69
    17
    79
    09
    04
    Firenze
    32
    13
    25
    58
    22
    Genova
    24
    41
    61
    66
    16
    Milano
    55
    59
    33
    80
    38
    Napoli
    18
    52
    32
    12
    72
    Palermo
    49
    77
    78
    90
    60
    Roma
    35
    04
    30
    02
    44
    Torino
    19
    79
    56
    77
    26
    Venezia
    82
    59
    68
    24
    21
    Nazionale
    81
    32
    19
    60
    38
    Estrazione Simbolotto
    Nazionale
    32
    07
    29
    37
    28

Ultimi Messaggi

Indietro
Alto