METODO DUCALE RICHIESTA SCRIPT

[vinci]

"NAVIGANDO" ho trovato questo metodo che credo dovrebbe essere attribuito a Fabio Bubù. Non so se sarà stato interessante dopo
la data dell'agosto 2001, data di fine statistica.
Per vedere come si è comportato dopo quel periodo BISOGNEREBBE
FARE UNO SRIPT.....


METODO DUCALE

Questo metodo nasce da l’idea di trovare una tecnica che faccia guadagnare e che duri nel tempo.
Il metodo come al solito va elaborato nel mese precedente al gioco. Esempio: nel mese di Agosto ’01 elaboriamo le previsione da giocare nel mese di Settembre ’01.
Questa tecnica ricava due ambate sei ambi secchi ed due quartine da giocare su Venezia per 9 colpi.
Ricordo effettuare il meno 90 dove sia necessario.




ambata A = Seconda estrazione (Firenze Quinto)+73
ambata B = Seconda estrazione (Genova Quarto)+ 27
A1 = Prima estrazione (Cagliari Terzo)+ 42
A2 = Seconda estrazione (Venezia Primo)+ 35
A3 = Terza estrazione (Milano Primo)+ 14
B1 = Seconda estrazione (Bari Quinto)+ 58
B2 = Terza estrazione (Palermo Terzo)+ 57
B3 = Quarta estrazione (Genova Secondo)+ 65
C = Prima estrazione (Genova Primo)+ 64
D = Secondaestrazione (Palermo Terzo)+ 40
C2 = Prima estrazione (Genova Quinto)+ 51
D2 = Quarta estrazione (Torino Quarto)+ 9

Per formare gli ambi secchi abbinare le ambate A con A1, A2, A3 e B con B1, B2, B3 cosi formiamo 6 ambi secchi. Per elaborare la quartina giocare insieme le ambate con C D, per una seconda quartina giocare sempre le ambate insieme con C2, D2. Il gioco va seguito nel mese successivo al calcolo su Venezia per 9 colpi.


Esempio: per elaborare la previsione del mese di Giugno ’01 abbiamo bisogno dei seguenti estratti appartenenti al mese di Maggio ’01:
Prima estr. del mese: 3° estr. Ca= 52; 1° estr. Ge= 31;
Seconda estr. del mese: 5° estr. Ba =40 ; 5° estr. Fi =64; 4° estr. Ge =90;
3° estr. Pa =79; 1° estr. Ve =36;
Terza estr. del mese: 1° estr. Mi=83; 3° estr. Pa = 15
Quarta estr. del mese: 2° estr. Ge=31;

Ambata A=64+ fisso 73 =137-90=47;
Ambata B=90+ fisso 27=117-90=27;
A1= 52+ fisso 42=94-90=4;
A2= 36+ fisso 35=71;
A3=83 + fisso 14=97-90=7;
B1= 40+ fisso 58 =98-90=8;
B2=15 + fisso 57 =72;
B3= 31 + fisso 65 = 96-90=6;
C=31 + fisso 64 =95-90=5;
D= 79 + fisso 40=119-90=29;

Ora giochiamo nel mese di Giugno ’01 su Venezia le ambate 47-27 gli ambi secchi 47-4; 47-71; 47-7; 27-8; 27-72; 27-6 e la quartina 47-27-5-29 il tutto per 9 colpi.
Esito al 4° colpo su Venezia uscì l’ambata 27 e l’ambo secco 27-72, al 5° colpo uscì l’altra ambata 47 con l’ambo secco 47-4 ed infine al 7° colpo usc’ l’ambo in quartina 5-29.




COMPENDIO STATISTICO
DA GENNAIO DEL 1950 AD AGOSTO DEL 2001
Casi giocabili: 620
Esiti positivi: 465
Esiti negativi:155
Ambate vinte: 723 (vincite ripetute)
Ambi secchi vinti: 174
Ambi in quartina: 123
Vincita del metodo al 75% in 9 colpi


Come potete osservare, dalla statistica del metodo, l’ambo scaturisce circa ogni 2/3 mesi, quindi nel futuro per giocare l’ambo bisognerebbe attendere 3 mesi negativi e poi giocare. Anche se durante l’anno vi sono solo 3 ambi noi avremmo giocato 4/5 mesi quindi c’e’ sempre un buon guadagno.
Poiché il metodo ha una statistica di 620 casi nel futuro può essere seguito per ancora 350 casi circa 29 anni.
Spero di essere stato abbastanza chiaro, comunque per chiarimento potete telefonare al numero sopra elencato, grazie.
(Fabio Bubù)




Vinci

 

[vinci]

Tiro su questo post per riproporre la richiesta.

Se gentilmente fosse possibile,anticipatamente ringrazio



Vinci

 

[Mike58]

Ciao Vinci, il metodo richiesto Lo avevo nel mio archivio script.
Te lo posto con nome dell'autore vedi se corrisponde.

Mike58

Sub Main()
	Dim ruote(1),nu1(2),nu2(2),nu3(4),posta(1),poste(2),post(4)
	posta(1) = 1
	poste(2) = 1
	post(2) = 1
	post(3) = 1
	post(4) = 1
	ce = InputBox("da quale estrazione vuoi controllare? ","estrazione",8163)
	k = InputBox("per quanti colpi?","colpi di gioco",9)
	ini = ce
	fin = EstrazioneFin
	Scrivi "Resoconto da " & DataEstrazione(ini,1) & " a " & DataEstrazione(fin,1) & " (" &(fin - ce) & " estr.)",1
	For n = ini To EstrazioneFin
		If IndiceMensile(n) = 1 Or n = 7810 Then
			x = PrimaMesePrec(n)
			Messaggio "elab. estr. [" &(n) & "] di " & DataEstrazione(n,1)
			casi = casi + 1
			Scrivi String(57,"=") & " by maxma62",1
			Scrivi "metodo ducale di f. bubù ( calcolo del mese di " & monthname(Mese(x)) & " " & Anno(x) & " )"
			Scrivi String(68,"-")
			Scrivi " 5° Estratto su Fi della 2^ mese prec. " & DataEstrazione(x + 1) & " [ " & Estratto(x + 1,3,5) & " ] + 73 / A " 'ambata
			Scrivi " 4° Estratto su Ge della 2^ mese prec. " & DataEstrazione(x + 1) & " [ " & Estratto(x + 1,4,4) & " ] + 27 / B " 'ambata
			Scrivi " 3° Estratto su Ca della 1^ mese prec. " & DataEstrazione(x) & " [ " & Estratto(x,2,3) & " ] + 42 / A1 "
			Scrivi " 1° Estratto su Ve della 2^ mese prec. " & DataEstrazione(x + 1) & " [ " & Estratto(x + 1,10,1) & " ] + 35 / A2 "
			Scrivi " 1° Estratto su Mi della 3^ mese prec. " & DataEstrazione(x + 2) & " [ " & Estratto(x + 2,5,1) & " ] + 14 / A3 "
			Scrivi " 5° Estratto su Ba della 2^ mese prec. " & DataEstrazione(x + 1) & " [ " & Estratto(x + 1,1,5) & " ] + 58 / B1 "
			Scrivi " 3° Estratto su Pa della 3^ mese prec. " & DataEstrazione(x + 2) & " [ " & Estratto(x + 2,7,3) & " ] + 57 / B2 "
			Scrivi " 2° Estratto su Ge della 4^ mese prec. " & DataEstrazione(x + 3) & " [ " & Estratto(x + 3,4,2) & " ] + 65 / B3 "
			Scrivi " 1° Estratto su Ge della 1^ mese prec. " & DataEstrazione(x) & " [ " & Estratto(x,4,1) & " ] + 64 / C "
			Scrivi " 3° Estratto su Pa della 2^ mese prec. " & DataEstrazione(x + 1) & " [ " & Estratto(x + 1,7,3) & " ] + 40 / D "
			Scrivi " 5° Estratto su Ge della 1^ mese prec. " & DataEstrazione(x) & " [ " & Estratto(x,4,5) & " ] + 51 / C2 "
			Scrivi " 4° Estratto su To della 4^ mese prec. " & DataEstrazione(x + 3) & " [ " & Estratto(x + 3,9,4) & " ] + 9 / D2 "
			Scrivi String(56,"-") & " caso n° " &(casi)
			ruote(1) = 10
			co = 0
			nA = Fuori90(Estratto(x + 1,3,5) + 73)
			nB = Fuori90(Estratto(x + 1,4,4) + 27)
			nA1 = Fuori90(Estratto(x,2,3) + 42)
			nA2 = Fuori90(Estratto(x + 1,10,1) + 35)
			nA3 = Fuori90(Estratto(x + 2,5,1) + 14)
			nB1 = Fuori90(Estratto(x + 1,1,5) + 58)
			nB2 = Fuori90(Estratto(x + 2,7,3) + 57)
			nB3 = Fuori90(Estratto(x + 3,4,2) + 65)
			nC = Fuori90(Estratto(x,4,1) + 64)
			nD = Fuori90(Estratto(x + 1,7,3) + 40)
			nC2 = Fuori90(Estratto(x,4,5) + 51)
			nD2 = Fuori90(Estratto(x + 3,9,4) + 9)
			nu1(1) = nA
			nu1(2) = nB
			co = co + 1
			ImpostaGiocata co,nu1,ruote,posta,k
			nu2(1) = nA
			nu2(2) = nB
			co = co + 1
			ImpostaGiocata co,nu2,ruote,poste,k
			nu2(2) = nA1
			co = co + 1
			ImpostaGiocata co,nu2,ruote,poste,k
			nu2(2) = nA2
			co = co + 1
			ImpostaGiocata co,nu2,ruote,poste,k
			nu2(2) = nA3
			co = co + 1
			ImpostaGiocata co,nu2,ruote,poste,k
			nu2(1) = nB
			nu2(2) = nB1
			co = co + 1
			ImpostaGiocata co,nu2,ruote,poste,k
			nu2(2) = nB2
			co = co + 1
			ImpostaGiocata co,nu2,ruote,poste,k
			nu2(2) = nB3
			co = co + 1
			ImpostaGiocata co,nu2,ruote,poste,k
			nu3(1) = nA
			nu3(2) = nB
			nu3(3) = nC
			nu3(4) = nD
			co = co + 1
			ImpostaGiocata co,nu3,ruote,post,k
			nu3(1) = nA
			nu3(2) = nB
			nu3(3) = nC2
			nu3(4) = nD2
			co = co + 1
			ImpostaGiocata co,nu3,ruote,post,k
			Gioca n
		End If
	Next
	ScriviResoconto
End Sub
'----------------------------------------------
Function PrimaMesePrec(n)
	For x = n To n - 35 Step - 1
		If Cadenza(Distanza(Mese(n),Mese(x))) = 1 And IndiceMens

 

[vinci]

Grande Mike è proprio lui e corrisponde!!!!
Grazie,adesso provo a vedere come si è comportato
negli ultimi anni
Un saluto e ancora grazie per la gentilezza



Vinci