Ma il pronostico?

[giandy]

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
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 & " 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

 

[claudio8]

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

 

[giandy]

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

Giandy

 

[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?

 

[giandy]

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

 

[claudio8]

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 ).

 

[giandy]

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

 

[claudio8]

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.

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]

 

[giandy]

[}][}] grazie

Giandy