Novità

Metodo Firoto

foxrex

foxrex

Banned
Ciao A tutti piu' Che Un metodo e' Un Sommativo.
Sto' cercando di crearmi un Foglio in Excell, prima o poi ci riusciro'molti di voi potranno farci uno script
-----------------------------------------------------------------
Iter Operativo ( Vi posto un Esempio molto Piu' pratico )
----------------------------------------------------------------
30-12-10-Firenze 50-67-15-86-04-Min (04) Max (86) 04+86=90 + Vertibile 09
30-12-10-Roma 41-26-05-34-22-Min (05) Max (41) 05+41=46 + Vertibile 64
30-12-10-Torino 52-04-42-49-28 Min (04) Max ( 52 ) 04+52=56 * Vertibile 65
----------------------------------------------------------------------------
02° Colpo 04-01-11 Firenze 90
02° Colpo 04-01-11 Roma 46
05° Colpo 11-01-11 Firenze 90
05° Colpo 11-01-11 Roma 64
06° Colpo 13-01-11 Firenze 09
07° Colpo 15-01-11 Roma 46
08° Colpo 18-01-11 Torino 65
10°Colpo 22-01-11 Roma 64
--------------------------------------------------------------------------
Con Il Foglio excel sto cercando anche la % di uscita, i migliori Abbinamenti Max 2 , e li cerco in Base alle uscite dei numeri le quartine che le affiancano.
Certo con uno script sarebbe Molto piu' semplice.
Io x la statistica da mostrarvi mi sono fermato solo alla 1° estrazione da quando ho cominciato pero' lo sto' finendo con excel ed e' molto redditizio.
Poi lascio a voi i giudizi di critiche e suggerimenti.
Ringrazio chiunque voglia intervenire nel bene e nel Male.:)
---------------------------------------------------------------------------
Statistiche Firenze dal 30-12-10 al 31-12-13
Casi Esaminati 36
uscite 1° Ambata 37
uscite 2° Ambata 23
Posizione Ambata 2° 3°
Previsione del 31-12-2013
1° Ambata 77
2° Ambata 79
2 Abbinamenti 68-18
Esito ^ 7° Colpo 79 in 4° Posizione
----------------------------------------------------------------------------
 
Ultima modifica:
ciao foxrex da un primo controllo sembra ottimo come metodo mi pare che funzioni abbastanza bene anche per le rimanenti 8 ruote è ovvio che ognuno si sceglie la ruota preferita con le 2 ate in gioco . per la statistica completa occorre lo script o un foglio exe.:)
 
arcor ha scritto:
ciao foxrex da un primo controllo sembra ottimo come metodo mi pare che funzioni abbastanza bene anche per le rimanenti 8 ruote è ovvio che ognuno si sceglie la ruota preferita con le 2 ate in gioco . per la statistica completa occorre lo script o un foglio exe.:)
Clicca per espandere...

Infatti da risultati in tutte le 11 ruote con ambi e terni con gli accoppiamenti che sto' sviluppando.
Poi in effetti ognuno sceglie la ruota che preferisce.
Io quello volevo dire.
Ciao
 
ciao mi sono permesso di fare questo script ( non sono esperto )
Codice: 
[CODE]Sub Main()
Scrivi 
ColoreTesto 2
Scrivi " listato da gamberorosso  x foxrex 28.01.2014",1
Scrivi 
ColoreTesto 0
Dim n(5),bb(3)
Dim ambata(5)
Dim ruota(1)
Dim posta(1)
posta(1) = 1
x = InputBox("ruota da controllare ?",,1)
ruota(1) = x
fin= EstrazioneFin
ini=fin -100
For es=ini To fin
AvanzamentoElab ini,fin,es
a=Estratto(es,x,1)
b=Estratto(es,x,2)
c=Estratto(es,x,3)
d=Estratto(es,x,4)
e=Estratto(es,x,5)
Scrivi 
ColoreTesto 0
Scrivi DataEstrazione (es)&" "& SiglaRuota(x)&" "& StringaEstratti(es,x)
n(1)=a: n(2)=b:n(3)=c: n(4)=d: n(5)=e
OrdinaMatrice n,1
If n(1) <> n(3) And n(1) <> n(4)And n(1) <> n(5) And n(2) <> n(1) And n(3) <> n(4) And n(4) <> n(5)  Then
Scrivi
ColoreTesto 2
Scrivi " Numeri dal + grande al + piccolo ",1
Scrivi n(1)&":"& n(2) &":"& n(3) &":"& n(4)&":"& n(5),1
Scrivi 
ColoreTesto 3
Scrivi"                                   xxxxx somme + piccolo + grande xxxxx ",1
Scrivi 
ColoreTesto 0

bb(1)=Fuori90(n(1)+ n(5))
bb(2)=Vert (bb(1))
ambata(1) = bb(1)
ambata(2) = bb(2)


ImpostaGiocata 1,ambata,ruota,posta,15 
Gioca es,1
ColoreTesto 1
End If
Next
scriviResoconto
Scrivi
ColoreTesto 2
Scrivi " listato da gamberorosso x  foxrex 28.01.2014",1
End Sub
[/CODE]
 
Ultima modifica:
Grazie ti posso chiedere un favore?
Funziona Benissimo.
Il conteggio va fatto Solo Ogni ultima Estrazione mensile, e nn tutte Grazie.
E poi e possibile abbinare 2 numeri maggiormente usciti.
Es ambate 02 20 se esce 02 15 81 18 47 i 4 numeri vanno aggiunti ogni fine mese i due + sortiti vanno giocati X la sorte di ambo.
Poi se e' ti chiedo altro.
Pero' devo dire bravo e grazie
 
Buon Giorno a tutti.

Il mio Bravo a Gamberorosso.

Mi sono permesso di apportare alcune piccole modifiche che, a parere mio migliorano,

la comprensione dei calcoli svolti e del metodo analizzato.

Se poi ... sarà necessario, proverò ad aggiungere il mio modesto contributo,

all'individuazione di un algoritmo per completarlo secondo le richieste.

:)

Codice: 
Sub Main()
	Scrivi
	ColoreTesto 2
	Scrivi " listato da gamberorosso  x foxrex 28.01.2014",1
	Scrivi
	ColoreTesto 0
	Dim n(5),bb(3)
	Dim ambata(5)
	Dim ruota(1)
	Dim posta(1)
	posta(1) = 1
	x = InputBox("ruota da controllare ?",,1)
	ruota(1) = x
	fin = EstrazioneFin
	ini = fin - 155
	For es = ini To fin
		If IsUltimaDelMese(Es) Then
			AvanzamentoElab ini,fin,es
			n(1) = Estratto(es,x,1) : n(2) = Estratto(es,x,2) : n(3) = Estratto(es,x,3) : n(4) = Estratto(es,x,4) : n(5) = Estratto(es,x,5)
			Scrivi
			ColoreTesto 0
			Scrivi DataEstrazione(es) & " " & SiglaRuota(x) & " " & StringaEstratti(es,x) & "  >>  ",1,0
			'n(1)=a: n(2)=b:n(3)=c: n(4)=d: n(5)=e
			OrdinaMatrice n,1
			'If n(1) <> n(3) And n(1) <> n(4)And n(1) <> n(5) And n(2) <> n(1) And n(3) <> n(4) And n(4) <> n(5)  Then
			'Scrivi
			ColoreTesto 2
			'Scrivi " Numeri dal + grande al + piccolo ",1
			'Scrivi n(1) & ":" & n(2) & ":" & n(3) & ":" & n(4) & ":" & n(5),1
			'Scrivi
			ColoreTesto 4
			Scrivi"Minimo  = " & Format2(n(1)) & " ",1,0
			Scrivi"Massimo = " & Format2(n(5)) & " ",1,0
			ColoreTesto 1
			bb(1) = Fuori90(n(1) + n(5))
			Scrivi "   SOMMA = " & Format2(bb(1)) & " ",1,0
			bb(2) = Vert(bb(1))
			Scrivi "VERTIBILE = " & Format2(bb(2)) & " ",1
			ambata(1) = bb(1)
			ambata(2) = bb(2)
			ImpostaGiocata 1,ambata,ruota,posta,15
			Gioca es,1
			ColoreTesto 1
		End If
	Next
	ScriviResoconto
	Scrivi
	ColoreTesto 2
	Scrivi " listato da gamberorosso x  foxrex 28.01.2014",1
              Scrivi " Rev By Joe 28.01.2014",1

End Sub
 
Joe91 ha scritto:
Buon Giorno a tutti.

Il mio Bravo a Gamberorosso.

Mi sono permesso di apportare alcune piccole modifiche che, a parere mio migliorano,

la comprensione dei calcoli svolti e del metodo analizzato.

Se poi ... sarà necessario, proverò ad aggiungere il mio modesto contributo,

all'individuazione di un algoritmo per completarlo secondo le richieste.

:)

Codice: 
Sub Main()
	Scrivi
	ColoreTesto 2
	Scrivi " listato da gamberorosso  x foxrex 28.01.2014",1
	Scrivi
	ColoreTesto 0
	Dim n(5),bb(3)
	Dim ambata(5)
	Dim ruota(1)
	Dim posta(1)
	posta(1) = 1
	x = InputBox("ruota da controllare ?",,1)
	ruota(1) = x
	fin = EstrazioneFin
	ini = fin - 155
	For es = ini To fin
		If IsUltimaDelMese(Es) Then
			AvanzamentoElab ini,fin,es
			n(1) = Estratto(es,x,1) : n(2) = Estratto(es,x,2) : n(3) = Estratto(es,x,3) : n(4) = Estratto(es,x,4) : n(5) = Estratto(es,x,5)
			Scrivi
			ColoreTesto 0
			Scrivi DataEstrazione(es) & " " & SiglaRuota(x) & " " & StringaEstratti(es,x) & "  >>  ",1,0
			'n(1)=a: n(2)=b:n(3)=c: n(4)=d: n(5)=e
			OrdinaMatrice n,1
			'If n(1) <> n(3) And n(1) <> n(4)And n(1) <> n(5) And n(2) <> n(1) And n(3) <> n(4) And n(4) <> n(5)  Then
			'Scrivi
			ColoreTesto 2
			'Scrivi " Numeri dal + grande al + piccolo ",1
			'Scrivi n(1) & ":" & n(2) & ":" & n(3) & ":" & n(4) & ":" & n(5),1
			'Scrivi
			ColoreTesto 4
			Scrivi"Minimo  = " & Format2(n(1)) & " ",1,0
			Scrivi"Massimo = " & Format2(n(5)) & " ",1,0
			ColoreTesto 1
			bb(1) = Fuori90(n(1) + n(5))
			Scrivi "   SOMMA = " & Format2(bb(1)) & " ",1,0
			bb(2) = Vert(bb(1))
			Scrivi "VERTIBILE = " & Format2(bb(2)) & " ",1
			ambata(1) = bb(1)
			ambata(2) = bb(2)
			ImpostaGiocata 1,ambata,ruota,posta,15
			Gioca es,1
			ColoreTesto 1
		End If
	Next
	ScriviResoconto
	Scrivi
	ColoreTesto 2
	Scrivi " listato da gamberorosso x  foxrex 28.01.2014",1
              Scrivi " Rev By Joe 28.01.2014",1

End Sub
Clicca per espandere...

ciao joe 91 + siamo meglio e'
penso che gamberorosso non si offende affatto del tuo operato, anzi penso possa trarne vantaggio ( Mio modesto parere )
 
Scusa Gamberorosso se mi sono Permesso ;)
Per joe91,
Richiesta che ho fatto a Gamberorosso e possibile farlo cosi' il programma sarebbe quasi completo.
Modifiche: Io sono Partito con ricercare le Ambate da ini = fin - 485 Ovvero 30-12-10
ora chiedo se e' possibile facendo la ricerca delle ambate sommare man mano i numeri sortiti assieme alle uscite X estrapolare ogni mese i due con maggior Abbinamento?
Mi spiego con un Esempio
Bari Ambate del 30-12-10 58-85
1° Colpo 58-12-26-85-81= Questi Numeri Andranno a far parte del Nostro Archivio , ogni mese Aggiungiamo la somma .
Oppure se pensi qualcosa di meglio sono fiducioso.
Grazie
 
foxrex ha scritto:
Grazie ti posso chiedere un favore?
Funziona Benissimo.
Il conteggio va fatto Solo Ogni ultima Estrazione mensile, e nn tutte Grazie.
E poi e possibile abbinare 2 numeri maggiormente usciti.
Es ambate 02 20 se esce 02 15 81 18 47 i 4 numeri vanno aggiunti ogni fine mese i due + sortiti vanno giocati X la sorte di ambo.
Poi se e' ti chiedo altro.
Pero' devo dire bravo e grazie
Clicca per espandere...


CIAO FOXREX DICI;E poi e possibile abbinare 2 numeri maggiormente usciti.cIOè,QUELLI DI OGNI SINGOLA RUOTA?
 
Alien. ha scritto:
CIAO FOXREX DICI;E poi e possibile abbinare 2 numeri maggiormente usciti.cIOè,QUELLI DI OGNI SINGOLA RUOTA?
Clicca per espandere...
Ciao Alien
Puoi Chiamarmi Renzo
Foxrex Solo perche' nessun Nik Disponibile infatti nn riesco a cambiarlo
Ti ringrazio dell'intervento, per farmi capire faccio degli esempi che andranno apportati a singola ruota giocata.
Non sapendo assolutamente fare script , sto facendo il programma con excel come lo vorrei io , e mi da soddisfazioni, e vero sono 11 ruote pero' ognuno sceglie la ruota desiderata.
Come dicevo anche a joe91 e gamberorosso vorrei questo
Es:
29-01-13 bari ambate 09-90
05 02-13 27-58-02-90-11
28-02-13 bari ambate 11-19
15-02-13 11-27-54-25-61
N° 11-27-58-02-90-67-54-25-61
U- 02-02-01-01-01-01-01-01-01
E cosi' a proseguire x le altre estrazioni fino ad arrivare all'estrazione di dicambre 2013 dove avremmo un numero consistente di uscite
Grazie
ho fatto Questa modifica
Scrivi " listato da gamberorosso x foxrex 28.01.2014 Partenza estrazione 485 del30-12-10",1
Non Ridete :D
non so assolutamente di script
pero' questa partenza la scelgo per tutti i sistemi o sommativi che faccio in modo da avere 2 3 anni di statistica,
Domanda con excel come faccio a trovare un ritardo storico.
 
Ultima modifica:
Foxrex ...

hai scritto : "Io sono Partito con ricercare le Ambate da " .... Ini = Fin - 485.

Va bene ... ma è relativo a Fin. Entro poche estrazioni ... il primo mese ... non sarà più calcolato.

Quindi per ini occorrerebbe "IL" numero fisso che si può (e si dovrebbe) ricavarecon lo script ...

o attraverso una tabella di conversione Data/IdEstrazione o ... suggerito da qualcuno o,

trovato con i cursori e le finestrelle con cui si delimita l'archivio.

Per il resto, come probabilmente Gamberorosso, anch'io pensavo fosse una richiesta più complicata ...

... quella necessaria per completare lo script.

Per cui, lascio che siano gli autori a completarlo, anche per evitare che si creino inutili

incomprensioni e confusioni.

:) Buona Giornata a tutte/i.
 
Ultima modifica:
No.

Pensavo che volessi abbinare frequenti calcolati diversamente

o altrove ... cosa che, come ricerca statistica è a tutti gli effetti

un altro script che si interfaccia a questo complicandolo molto.

Se invece i numeri sono già disponibili il tutto è più facile.
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 18 gennaio 2025
    Bari
    24
    76
    02
    72
    12
    Cagliari
    21
    08
    77
    04
    17
    Firenze
    74
    84
    07
    12
    72
    Genova
    13
    07
    33
    47
    18
    Milano
    01
    34
    09
    55
    48
    Napoli
    46
    23
    25
    03
    06
    Palermo
    44
    07
    01
    46
    84
    Roma
    88
    78
    64
    74
    04
    Torino
    07
    87
    67
    38
    53
    Venezia
    31
    25
    04
    18
    02
    Nazionale
    49
    82
    59
    65
    67
    Estrazione Simbolotto
    Bari
    03
    13
    31
    23
    35
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto