| Vi propongo due script, quello originale di Sean e una piccola modifica che esclude il terno e aggiunge un ambo in quartina (che paga 39.17x). Che ha una statistica piu' anziana e copre alcuni buchi dove l'ambo in terzina fallisce. Insieme insomma dovrebbero aiutarsi.
Script Originale (ambo e terno):
Option Explicit
Sub Main()
Dim a,ruota,pos, ruota1, pos1 Dim num1,num2, proga Dim numeri(2),tot,tot1 Dim est,r,ambo(3),ambo1(2) Dim ambata(1),quat(4) Metodo.Init "Sommativo 31-37-58 su CA (Sean69)",csCasisticaFULL Metodo.Ripetuti=csElimina
progA=Metodo.Progressione(1,0)
For a = Estrazione.Inizio("2008") To Estrazione.Fine
If Estrazione.Mensile(a)=1 then'prima mensile
num1=Estratti.Numero(a,csCA,1)
ambo(1)=num1+31 ambo(2)=num1+37 ambo(3)=num1+58
quat(1)=num1+25 quat(2)=num1+42 quat(3)=num1+61 quat(4)=num1+69
Metodo.GiocaPronostico 1,a+1,13,progA,ambo,csAmbo,csCA Metodo.GiocaPronostico 2,a+1,16,progA,ambo,csTerno,csCA 'Metodo.GiocaPronostico 3,a+1,13,progA,quat,csAmbo,csCA End If Next Metodo.Report
End Sub
Script 2 con quartina (ho tolto il terno) questo somma alla prima di cagliari i numeri proposti da Sean e inoltre 25.42.61.69
Option Explicit
Sub Main()
Dim a,ruota,pos, ruota1, pos1 Dim num1,num2, proga Dim numeri(2),tot,tot1 Dim est,r,ambo(3),ambo1(2) Dim ambata(1),quat(4) Metodo.Init "Sommativo 31-37-58 su CA (Sean69)",csCasisticaFULL Metodo.Ripetuti=csElimina
progA=Metodo.Progressione(1,0)
For a = Estrazione.Inizio("2008") To Estrazione.Fine
If Estrazione.Mensile(a)=1 then'prima mensile
num1=Estratti.Numero(a,csCA,1)
ambo(1)=num1+31 ambo(2)=num1+37 ambo(3)=num1+58
quat(1)=num1+25 quat(2)=num1+42 quat(3)=num1+61 quat(4)=num1+69
Metodo.GiocaPronostico 1,a+1,13,progA,ambo,csAmbo,csCA 'Metodo.GiocaPronostico 2,a+1,13,progA,ambo,csTerno,csCA Metodo.GiocaPronostico 3,a+1,13,progA,quat,csAmbo,csCA End If Next Metodo.Report
End Sub
REPORT Sommativo 31-37-58 su CA (Sean69) ŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻ
Casi Totali : 17 Casi In Corso : 1
Totale Vincite : 626,67 Totale Spesa : 380,00 Utile Netto : 246,67
PRONOSTICI IN GIOCO ŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻ ID Sorte Numeri Ruote Colpi Utile% Casi Positivi Casi Nulli 01 A 3 1 13 PostaFissa 8 (44,4%) 0 02 T 3 1 13 PostaFissa 0 (0%) 0
RIEPILOGO DETTAGLIATO CASISTICA ŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻ CASI DATA COND. NP PREVISIONE IN GIOCO ESITI ŻŻŻŻ ŻŻŻŻŻŻŻŻŻŻŻ ŻŻ ŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻ ŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻ
0001 03 Gen 2008 01 CA NEGATIVO 43 49 70 (A)
0001 03 Gen 2008 02 CA NEGATIVO 43 49 70 (T)
0002 05 Feb 2008 01 CA NEGATIVO 75 81 12 (A)
0002 05 Feb 2008 02 CA NEGATIVO 75 81 12 (T)
0003 04 Mar 2008 01 CA NEGATIVO 22 28 49 (A)
0003 04 Mar 2008 02 CA NEGATIVO 22 28 49 (T)
0004 03 Apr 2008 01 CA 7° COLPO (17 Apr 2008) 26 32 53 (A) CA: 26 32
0004 03 Apr 2008 02 CA NEGATIVO 26 32 53 (T)
0005 03 Mag 2008 01 CA NEGATIVO 32 38 59 (A)
0005 03 Mag 2008 02 CA NEGATIVO 32 38 59 (T)
0006 05 Giu 2008 01 CA NEGATIVO 88 04 25 (A)
0006 05 Giu 2008 02 CA NEGATIVO 88 04 25 (T)
0007 03 Lug 2008 01 CA NEGATIVO 78 84 15 (A)
0007 03 Lug 2008 02 CA NEGATIVO 78 84 15 (T)
0008 05 Ago 2008 01 CA NEGATIVO 64 70 01 (A)
0008 05 Ago 2008 02 CA NEGATIVO 64 70 01 (T)
0009 04 Set 2008 01 CA NEGATIVO 13 19 40 (A)
0009 04 Set 2008 02 CA NEGATIVO 13 19 40 (T)
0010 04 Ott 2008 01 CA NEGATIVO 20 26 47 (A)
0010 04 Ott 2008 02 CA NEGATIVO 20 26 47 (T)
0011 04 Nov 2008 01 CA 6° COLPO (15 Nov 2008) 74 80 11 (A) CA: 74 80
0011 04 Nov 2008 02 CA NEGATIVO 74 80 11 (T)
0012 04 Dic 2008 01 CA 3° COLPO (09 Dic 2008) 49 55 76 (A) CA: 49 76
0012 04 Dic 2008 02 CA NEGATIVO 49 55 76 (T)
0013 03 Gen 2009 01 CA 1° COLPO (03 Gen 2009) 67 73 04 (A) CA: 67 04
0013 03 Gen 2009 02 CA NEGATIVO 67 73 04 (T)
0014 05 Feb 2009 01 CA 7° COLPO (19 Feb 2009) 54 60 81 (A) CA: 81 54
0014 05 Feb 2009 02 CA NEGATIVO 54 60 81 (T)
0015 05 Mar 2009 01 CA 4° COLPO (12 Mar 2009) 44 50 71 (A) CA: 71 44
0015 05 Mar 2009 02 CA NEGATIVO 44 50 71 (T)
0016 04 Apr 2009 01 CA 7° COLPO (18 Apr 2009) 77 83 14 (A) CA: 77 83
0016 04 Apr 2009 02 CA NEGATIVO 77 83 14 (T)
0017 05 Mag 2009 01 CA 7° COLPO (19 Mag 2009) 58 64 85 (A) CA: 58 64
0017 05 Mag 2009 02 CA NEGATIVO 58 64 85 (T)
0018 04 Giu 2009 01 CA IN CORSO 31 37 58 (A) (8/13)
0018 04 Giu 2009 02 CA IN CORSO 31 37 58 (T) (8/13)
REPORT Sommativo 31-37-58 su CA (Sean69)+(greg71) ŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻ
Casi Totali : 17 Casi In Corso : 1
Totale Vincite : 1.214,17 Totale Spesa : 285,00 Utile Netto : 929,17
PRONOSTICI IN GIOCO ŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻ ID Sorte Numeri Ruote Colpi Utile% Casi Positivi Casi Nulli 01 A 3 1 13 PostaFissa 8 (44,4%) 0 03 A 4 1 13 PostaFissa 13 (72,2%) 0
RIEPILOGO DETTAGLIATO CASISTICA ŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻ CASI DATA COND. NP PREVISIONE IN GIOCO ESITI ŻŻŻŻ ŻŻŻŻŻŻŻŻŻŻŻ ŻŻ ŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻ ŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻ
0001 03 Gen 2008 01 CA NEGATIVO 43 49 70 (A)
0001 03 Gen 2008 03 CA 9° COLPO (22 Gen 2008) 37 54 73 81 (A) CA: 54 81
0002 05 Feb 2008 01 CA NEGATIVO 75 81 12 (A)
0002 05 Feb 2008 03 CA 2° COLPO (07 Feb 2008) 69 86 15 23 (A) CA: 69 15
0003 04 Mar 2008 01 CA NEGATIVO 22 28 49 (A)
0003 04 Mar 2008 03 CA 1° COLPO (04 Mar 2008) 16 33 52 60 (A) CA: 52 16
0004 03 Apr 2008 01 CA 7° COLPO (17 Apr 2008) 26 32 53 (A) CA: 26 32
0004 03 Apr 2008 03 CA 6° COLPO (15 Apr 2008) 20 37 56 64 (A) CA: 37 64
0005 03 Mag 2008 01 CA NEGATIVO 32 38 59 (A)
0005 03 Mag 2008 03 CA 2° COLPO (06 Mag 2008) 26 43 62 70 (A) CA: 26 62
0006 05 Giu 2008 01 CA NEGATIVO 88 04 25 (A)
0006 05 Giu 2008 03 CA 5° COLPO (14 Giu 2008) 82 09 28 36 (A) CA: 82 09
0007 03 Lug 2008 01 CA NEGATIVO 78 84 15 (A)
0007 03 Lug 2008 03 CA 6° COLPO (15 Lug 2008) 72 89 18 26 (A) CA: 26 18
0008 05 Ago 2008 01 CA NEGATIVO 64 70 01 (A)
0008 05 Ago 2008 03 CA NEGATIVO 58 75 04 12 (A)
0009 04 Set 2008 01 CA NEGATIVO 13 19 40 (A)
0009 04 Set 2008 03 CA NEGATIVO 07 24 43 51 (A)
0010 04 Ott 2008 01 CA NEGATIVO 20 26 47 (A)
0010 04 Ott 2008 03 CA NEGATIVO 14 31 50 58 (A)
0011 04 Nov 2008 01 CA 6° COLPO (15 Nov 2008) 74 80 11 (A) CA: 74 80
0011 04 Nov 2008 03 CA 13° COLPO (02 Dic 2008) 68 85 14 22 (A) CA: 85 22
0012 04 Dic 2008 01 CA 3° COLPO (09 Dic 2008) 49 55 76 (A) CA: 49 76
0012 04 Dic 2008 03 CA 6° COLPO (16 Dic 2008) 43 60 79 87 (A) CA: 60 43
0013 03 Gen 2009 01 CA 1° COLPO (03 Gen 2009) 67 73 04 (A) CA: 67 04
0013 03 Gen 2009 03 CA NEGATIVO 61 78 07 15 (A)
0014 05 Feb 2009 01 CA 7° COLPO (19 Feb 2009) 54 60 81 (A) CA: 81 54
0014 05 Feb 2009 03 CA 6° COLPO (17 Feb 2009) 48 65 84 02 (A) CA: 65 48
0015 05 Mar 2009 01 CA 4° COLPO (12 Mar 2009) 44 50 71 (A) CA: 71 44
0015 05 Mar 2009 03 CA 9° COLPO (24 Mar 2009) 38 55 74 82 (A) CA: 38 74
0016 04 Apr 2009 01 CA 7° COLPO (18 Apr 2009) 77 83 14 (A) CA: 77 83
0016 04 Apr 2009 03 CA 5° COLPO (14 Apr 2009) 71 88 17 25 (A) CA: 25 71 17
0017 05 Mag 2009 01 CA 7° COLPO (19 Mag 2009) 58 64 85 (A) CA: 58 64
0017 05 Mag 2009 03 CA 4° COLPO (12 Mag 2009) 52 69 88 06 (A) CA: 88 06
0018 04 Giu 2009 01 CA IN CORSO 31 37 58 (A) (8/13)
0018 04 Giu 2009 03 CA IN CORSO 25 42 61 69 (A) (8/13)
|