scrignobianco
Super Member >PLATINUM<
vero... ma erano 2 banconote da 50 euro (100 euro)... vediamo qualche colpoFI 51-9 maledetti laterali.
Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
vero... ma erano 2 banconote da 50 euro (100 euro)... vediamo qualche colpoFI 51-9 maledetti laterali.
Hai mai pensato di mettere sempre i suoi laterali, come faccio io, quando credo ad una previsione, tanto 2€ in piu' cosa cambia.Dico questo che amme' i laterali non mi fregano piu'.vero... ma erano 2 banconote da 50 euro (100 euro)... vediamo qualche colpo
no a dire il vero no perche' quando sogno i numeri.. quelli sono. Il problema è il quando escono a volte presto a volte dopo parecchio... Pero', buona idea grazie, ne terro' contoHai mai pensato di mettere sempre i suoi laterali, come faccio io, quando credo ad una previsione, tanto 2€ in piu' cosa cambia.Dico questo che amme' i laterali non mi fregano piu'.
Da Futuro vi faccio un esempio reale a BARI, Probabilita' : al 100% che non sono ancora usciti sono solo x il 2x1 e ambo secco
Questo e' un resocondo reale del 1° caso a Bari dopo la spia 78 coppia 1.32 con l'uscita del 32 del 8/3/2024 al 2° colpo.Da Futuro vi faccio un esempio reale a BARI, Probabilita' : al 100% che non sono ancora usciti sono solo x il 2x1 e ambo secco:
Se osservate bene il n° 1 ha 3 conferme e il n° 47 ne ha 4 di conferme.
La base 2x1 e' 1-47 a giro con 10-29-30-49 oppure la lunghetta per sorti 1-47-10-29-30-49 superiori x 9 colpi!!!
Con moderazione!!!
Vedi l'allegato 2280314
Ottimo lavoro Codice Grazie mi ci voleva proprio. 216 estrOra vi faccio un regalo....Batters studialo bene,ha' tutti i titoli per entrare in "FUTURO",x TOON, e' possibile allineare la prima tabella ,dove ci sono in blu le posizioni e sotto gli esiti in rosso?
Il listato prende in esame il numero di estrazioni desiderato e
restituisce quante volte ogni estratto di ogni ruota si è ripetuto
nella prima estrazione successiva, vi dice inoltre, su quali ruote
sono avvenute le ripetizioni e in quali posizioni.
Ritengo sia uno degli script piu belli e utili fatti negli anni da un
vero artista nella compilazione di listati.
Io nell'imputbox ho scelto 216 estrazioni,ma si puo' cambiare...il valore 216 ,a mio avviso ha' il suo perche'...fate le vostre prove.....script di Jesy.
Sub main()
Dim dati(10,5)
Dim dati2(10,5,10)
es = InputBox ("Quante estrazioni vuoi controllare ?",,100)
es = CInt (es)
inizio = EstrazioneFin - es
For ru = 1 To 10
For p = 1 To 5
For ru2 = 1 To 10
dati2(ru,p,ru2) = 0
Next
Next
Next
ColoreTesto 2
Scrivi Date &_
Chr (32) & Chr (98)& Chr (121)& Chr (32) & Chr (106) & Chr (101) & Chr ( 115) & Chr (121)
Scrivi String (2,Chr(11)): ColoreTesto 1
Scrivi "Tabella 1"
Scrivi "La tabella indica la presenza di ogni singolo estratto nell'estrazione successiva."
Scrivi "Esempio: E1 = 45 indica che il primo estratto su Bari è sortito 45 volte nelle "
Scrivi "estrazioni successive."
ColoreTesto 2
Scrivi String (2,Chr(11)): ColoreTesto 1
For i= inizio To EstrazioneFin
AvanzamentoElab inizio,EstrazioneFin ,i
Messaggio "Stò elaborando l'estrazione del " & DataEstrazione (i)
If i = EstrazioneFin Then Exit For
For ru = 1 To 10
For p = 1 To 5
es1 = Estratto (i,ru,p)
For ru2 = 1 To 10
For p2 = 1 To 5
es2 = Estratto (i+1,ru2,p2)
If es1 = es2 Then
dati(ru,p) = dati(ru,p) + 1
dati2(ru,p,ru2) = dati2(ru,p,ru2) + 1
End If
Next
Next
Next
Next
Next
ColoreTesto 1
Scrivi
Scrivi Space (20) & "Tabella 1 Resoconto Complessivo"
Scrivi
Scrivi " E1 E2 E3 E4 E5"
ColoreTesto 2
ScriviMatrice dati,,4
Scrivi String (2,Chr(11)): ColoreTesto 1
Scrivi "Tabella 2"
Scrivi "Questa tabella indica, in maniera dettagliata, quante volte l'estratto"
Scrivi "in una determinata posizione, si ripete in ogni ruota. Esempio:"
Scrivi "(Ba Pos1 3 0 1) indica che il 1° estratto su Bari si è ripetuto 3 volte a"
Scrivi "Bari, 0 volte a Cagliari e 1 volta a Firenze."
ColoreTesto 2
Scrivi String (2,Chr(11)): ColoreTesto 1
Scrivi
Scrivi Space (20) & "Tabella 2 Resoconto Dettagliato"
Scrivi
For ru = 1 To 10
Scrivi Space (15) & "Ba" & Space (3) & "Ca"& Space (3) & "Fi"& Space (3) & "Ge"&_
Space (3) & "Mi"& Space (3) & "Na"& Space (3) & "Pa"& Space (3) & "Ro"&_
Space (3) & "To"& Space (3) & "Ve"
For p = 1 To 5
Scrivi FormatSpace (Left(NomeRuota (ru),2),5)+FormatSpace ("Pos",4)+FormatSpace (p,6)+_
FormatSpace (dati2(ru,p,1),5)+_
FormatSpace (dati2(ru,p,2),5)+FormatSpace (dati2(ru,p,3),5)+_
FormatSpace (dati2(ru,p,4),5)+FormatSpace (dati2(ru,p,5),5)+_
FormatSpace (dati2(ru,p,6),5)+FormatSpace (dati2(ru,p,7),5)+_
FormatSpace (dati2(ru,p,8),5)+FormatSpace (dati2(ru,p,9),5)+_
FormatSpace (dati2(ru,p,10),5)
Next
Scrivi String (2,"-")
Next
End Sub
Allora ti dico il mio ragionamento.....se andiamo a vedere i ritardi max di un lottrone,abbiamo il 53 a venezia ,vado a memoria...253 estrazioni...sono ritardi di PRESENZA...in realta se vai a calcolare la max di presenza(media) di un ritardatario e' 216 ,pochissime volte si hanno ritardi sopra questa cifra....ed e' per questo che qui,su questo 3d,ho detto,visto e proposto i 2 ritardatari di Ba (presi,e giocati...è bene pure)....ora,la formula del ripetuto su ruota proposto dal listato,NON puo prescindere da questa tesi... (mio parere) liberissimi di fare le Vostre prove.Ottimo lavoro Codice Grazie mi ci voleva proprio. 216 estr
Tipo come questo,ha 20 anni l'ho' tirato fuori da un cd,ancora funzionante.Allora ti dico il mio ragionamento.....se andiamo a vedere i ritardi max di un lottrone,abbiamo il 53 a venezia ,vado a memoria...253 estrazioni...sono ritardi di PRESENZA...in realta se vai a calcolare la max di presenza(media) di un ritardatario e' 216 ,pochissime volte si hanno ritardi sopra questa cifra....ed e' per questo che qui,su questo 3d,ho detto,visto e proposto i 2 ritardatari di Ba (presi,e giocati...è bene pure)....ora,la formula del ripetuto su ruota proposto dal listato,NON puo prescindere da questa tesi... (mio parere) liberissimi di fare le Vostre prove.
Questo e' fenomenale Grazie ancora Codicebinario. Viene calcolato dalla prima estrazione?Un altro utilissimo listato che, dopo averci chiesto
di quale numero vogliamo sapere tutto sui ritardi in
posizione, ci restituisce per ogni posizione e su ogni ruota
il ritardo attuale e, a fianco quello storico.
Bellissimo e utilissimo.
Sub main()
Dim numero
Dim ritardi(5,10)
Dim storici(5,10)
numero=InputBox("Inserisci il numero per la ricerca.")
If numero="" Then
MsgBox "Programma terminato, non e' stato inserito nessun numero"
Exit Sub
End If
For r= 1 To 10
For i= 1 To 5
ritardi(i,r)=EstrazioneIni
Next
Next
For n=EstrazioneIni To EstrazioneFin
For r= 1 To 10
p=Posizione(n,r,numero)
If p>0 Then
If n-ritardi(p,r) > storici(p,r) Then storici(p,r)=n-ritardi(p,r)
ritardi(p,r)=n
End If
Next
Next
Scrivi ""
Scrivi String(40,"=")
Scrivi "Ritardi nelle 5 posizioni del numero " & CStr(numero)
Scrivi String(40,"=")
Scrivi ""
For r=1 To 10
Scrivi NomeRuota(r)
Scrivi " Rit Sto"
For p= 1 To 5
Scrivi "Posizione " & CStr(p) & ": " & FormatSpace(EstrazioneFin - ritardi(p,r),6) & CStr(storici(p,r))
Next
Scrivi "-----------------------------"
Next
End Sub
Ora basta regali...voglio ricordare a tutti gli abitanti del 3d,che questi listati sono utilissimi se a priori ci sta'una base di ricerca seria....e "FUTURO" di Batters lo e'...questi listati presi a se' NON fanno vincere una cippa'....anzi vi rimbabiscono ancor di piu' nel "mare" dei numeri....avvisati e mezzi salvati....
convergenza 1 ..10 ba, da sogno non mio, che sto giocandoDa Futuro vi faccio un esempio reale a BARI, Probabilita' : al 100% che non sono ancora usciti sono solo x il 2x1 e ambo secco:
Se osservate bene il n° 1 ha 3 conferme e il n° 47 ne ha 4 di conferme.
La base 2x1 e' 1-47 a giro con 10-29-30-49 oppure la lunghetta per sorti 1-47-10-29-30-49 superiori x 9 colpi!!!
Con moderazione!!!
Vedi l'allegato 2280314
Ma vuoi vedere che da questo sogno anche se non tuo ci si beccaconvergenza 1 ..10 ba, da sogno non mio, che sto giocando
Esce anche il 73 a Napoli caso chiusoEsce il 71 al 1° colpo a Palermo tanto per...
Esce il 5 a Bari caso chiuso .Bene io ho il 2x1 5-6 a Bari