Per Gli Amanti Dell' Ambata

[Blackmore]

Questo script mette gioco 1 ambata sulla Ruota di Bari alla 1° del mese
ogni mese ha un metodo diverso, quest'ultimo è basato sulle frequenze sommative
Giocate con moderazione...
a presto
Ciao

Sub Main()
	Scrivi String(38," ") & "Un Ambata alla 1°del Mese (Per Ogni Mese) su Bari"
	Scrivi String(38," ") & "Frequenze Sommative: Metodo e Script By Blackmore":Scrivi
	Dim ruota(1)
	Dim n(1)
	Dim posta(1)
	posta(1) = 2
	rta = InputBox("R u o t a _ D i _ G i o c o :","B l a c k m o r e",1)
	klp = InputBox("C o l p i _ D i _ G i o c o :","B l a c k m o r e",9)
	ini = InputBox("I n i z i o _ E s t r a z i o n i :","B l a c k m o r e",7500)
	fin = EstrazioneFin
	For es = ini To fin
		Call AvanzamentoElab(ini,fin,es)
		Messaggio "FREQUENZE SOMMATIVE ... BY BLACKMORE"
		If IndiceMensile(es) = 1 Then
			m = Mese(es)
			Select Case(m)
				Case(01): a = Fuori90(Estratto(es,CA_,1) + Estratto(es,NA_,5) + 01) 'Non ci sono posizioni migliori
				Case(02): a = Fuori90(Estratto(es,VE_,5) + Estratto(es,NZ_,2) + 01) 'Posizioni migliori x l'estratto det. 1° 2°
				Case(03): a = Fuori90(Estratto(es,GE_,4) + Estratto(es,NA_,1) + 03) 'Posizioni migliori x l'estratto det. 1° 4°
				Case(04): a = Fuori90(Estratto(es,NA_,1) + Estratto(es,NZ_,4) + 01) 'Non ci sono posizioni migliori
				Case(05): a = Fuori90(Estratto(es,RO_,1) + Estratto(es,VE_,2) + 02) 'Posizioni migliori x l'estratto det. 2°
				Case(06): a = Fuori90(Estratto(es,BA_,2) + Estratto(es,NZ_,2) + 02) 'Posizioni migliori x l'estratto det. 1° 3°
				Case(07): a = Fuori90(Estratto(es,GE_,1) + Estratto(es,MI_,2) + 01) 'Posizioni migliori x l'estratto det. 3° 5°
				Case(08): a = Fuori90(Estratto(es,BA_,5) + Estratto(es,FI_,2) + 01) 'Posizioni migliori x l'estratto det. 1° 2°
				Case(09): a = Fuori90(Estratto(es,BA_,1) + Estratto(es,BA_,5) + 03) 'Posizioni migliori x l'estratto det. 2° 3°
				Case(10): a = Fuori90(Estratto(es,BA_,3) + Estratto(es,CA_,4) + 01) 'Posizioni migliori x l'estratto det. 1° 3°
				Case(11): a = Fuori90(Estratto(es,GE_,4) + Estratto(es,MI_,4) + 01) 'Posizioni migliori x l'estratto det. 1° 2°
				Case(12): a = Fuori90(Estratto(es,BA_,4) + Estratto(es,MI_,3) + 01) 'Posizioni migliori x l'estratto det. 4° 5°
			End Select
			ruota(1) = rta
			cs = cs + 1
			Scrivi String(106,"¤") & " Caso n°" & Format2(cs),1 :ColoreTesto 1
			Scrivi FormatSpace(DataEstrazione(es),15) & " " & IndiceMensile(es) & "° Del Mese: Un Ambata Su " & NomeRuota(rta) & " Per " & klp & " Colpi Nel Mese di [" & UCase(MeseNome(m)) & "]",1
			ColoreTesto 0
			n(1) = a
			ImpostaGiocata 1,n,ruota,posta,klp
			Gioca es
		End If
		If ScriptInterrotto Then Exit For
	Next
	Scrivi:Scrivi
	Scrivi:ScriviResoconto
End Sub

 

[Mike58]

Bravo Black, voglio essere fra i primi a farti i complimenti sia per il metodo che per il codice select case con la quale fai la selezione degli algoritmi per mese.
La classe quando c'è si vede tutta, e se questo è un ritorno, bentornato carissimo black.

Un salutissimo

Mike

 

[lotto_tom75]

E io il secondo!

E io il secondo!

Bravo Black, voglio essere fra i primi a farti i complementi sia per il metodo che per il codice select case con la quale fai la selezione degli algoritmi per mese.
La classe quando c'è si vede tutta, e se questo è un ritorno, bentornato carissimo black.

Un salutissimo

Mike

Complimenti Blackmore davvero una chicca di script!!!

 

[rabberto]

Ciao Blackmore un grazie anche da parte mia sei il migliore con i metodi sommativi , ciao.

 

[pigi]

Ciao grande black e che dire ....la classe non è acqua.......
COMPLIMENTONI
Giorgio

 

[fata65]

ciao blackmore non sono pratica ma in quale riga bisogna mettere l'apice ciao e grazie

TabellaGiocate 'SE USATE SPAZIOMETRIA METTETE L'APICE (') PRIMA DI TabellaGiocate

 

[DjNomade]

Ciauz
COMPLIMENTI Black

 

[Roby]

02.07.2013  1° Del Mese: Un Ambata Su Bari Per 8 Colpi Nel Mese di [LUGLIO]
Estrazione generatrice del pronostico 08711 [ 79 - 02/07/2013]
G 0001
[COLOR="#FF0000"]Numeri in gioco : 28 su BA per Estratto (Posizioni migliori x l'estratto det. 1° e 5°) 
In corso per altre 8 estrazioni[/COLOR]

 

[feli]

Grazie e auguroni grande Black

 

[tommasog]

GRAZIE BLACK

 

[feli]

Dopo 6 anni cilecca!!! boooohhhhh
su 77 casi 75 positivi gli ultimi 2 negativi


========================================================================================================== Caso n°74
02.05.2013 1° Del Mese: Un Ambata Su Bari Per 8 Colpi Nel Mese di [MAGGIO]
Estrazione generatrice del pronostico 08685 [ 53 - 02/05/2013]
G 0001 Numeri in gioco : 61 su BA per Estratto
V N. [61 ] [BA] [.. .. .. .. 61] C. 6 Estratto 08691 [ 59 - 16/05/2013]
V N. [61 ] [BA] [.. 61 .. .. ..] C. 7 Estratto 08692 [ 60 - 18/05/2013]
V N. [61 ] [BA] [.. .. 61 .. ..] C. 8 Estratto 08693 [ 61 - 21/05/2013]
Interrotta per raggiunta durata

========================================================================================================== Caso n°75
01.06.2013 1° Del Mese: Un Ambata Su Bari Per 8 Colpi Nel Mese di [GIUGNO]
Estrazione generatrice del pronostico 08698 [ 66 - 01/06/2013]
G 0001 Numeri in gioco : 07 su BA per Estratto
V N. [07 ] [BA] [07 .. .. .. ..] C. 4 Estratto 08702 [ 70 - 11/06/2013]
V N. [07 ] [BA] [.. .. 07 .. ..] C. 6 Estratto 08704 [ 72 - 15/06/2013]
V N. [07 ] [BA] [.. .. 07 .. ..] C. 7 Estratto 08705 [ 73 - 18/06/2013]
Interrotta per raggiunta durata

========================================================================================================== Caso n°76
02.07.2013 1° Del Mese: Un Ambata Su Bari Per 8 Colpi Nel Mese di [LUGLIO]
Estrazione generatrice del pronostico 08711 [ 79 - 02/07/2013]
G 0001 Numeri in gioco : 28 su BA per Estratto
Interrotta per raggiunta durata

========================================================================================================== Caso n°77
01.08.2013 1° Del Mese: Un Ambata Su Bari Per 8 Colpi Nel Mese di [AGOSTO]
Estrazione generatrice del pronostico 08724 [ 92 - 01/08/2013]
G 0001 Numeri in gioco : 79 su BA per Estratto
Interrotta per raggiunta durata

 

[Roby]

Ho aggiornato il listato...

Ciao

 

[Lanfranco60]

Scusatemi non resisto, quando vedo un eccellente lavoro è più forte di me

Scusa Blackmore.......

Oltretutto ho imparato qualcos'altro su gli script......

Da quello che leggerete in basso capirete che si tratta di una modifica allo
script già ottimo di Blackmore.

Come si dice, ogni torta ben fatta deve avere la sua ciliegina !!!


Dato che mi trovavo, lo stesso script ha subito 3 modifiche




La prima modifica Quella Ufficiale)

Le altre 2 sono solo varianti di gioco, è ovvio che la prima
modifica sia di molto la più vantaggiosa.

*************************************************************

Abbina alla già ottima ambata, 15 ambi secchi sulla stessa ruota

Il gioco è impostato in modo che si ferma assolutamente alla prima vincita,
sia di ambata che di ambo e ferma il gioco,
(non oso immaginare se impostassimo un adeguata progressione, se ne vedrebbero delle belle).

PS: Alla fine c'è il resonto finale, dategli uno sguardo.......

Sub Main()
    Scrivi String(38," ") & "Un Ambata alla 1°del Mese (Per Ogni Mese) su Bari"
    Scrivi String(38," ") & "Frequenze Sommative: Metodo e Script By Blackmore"
    Scrivi String(38," ") & "1a Modifica By Lanfranco60":Scrivi
    Dim ruota(1)
    Dim n(1)
    Dim ambo1(2),ambo2(2),ambo3(2),ambo4(2),ambo5(2),ambo6(2),ambo7(2),ambo8(2)
    Dim ambo9(2),ambo10(2),ambo11(2),ambo12(2),ambo13(2),ambo14(2),ambo15(2)
    Dim posta(1)
    Dim poste(2)
    posta(1) = 2
    poste(2) = 1
    rta = InputBox("R u o t a _ D i _ G i o c o :","B l a c k m o r e",1)
    klp = InputBox("C o l p i _ D i _ G i o c o :","B l a c k m o r e",9)
    ini = InputBox("I n i z i o _ E s t r a z i o n i :","B l a c k m o r e",7500)
    fin = EstrazioneFin
    For es = ini To fin
        Call AvanzamentoElab(ini,fin,es)
        Messaggio "FREQUENZE SOMMATIVE ... BY BLACKMORE"
        If IndiceMensile(es) = 1 Then
            m = Mese(es)
            Select Case(m)
                Case(01): a = Fuori90(Estratto(es,CA_,1) + Estratto(es,NA_,5) + 01) 'Non ci sono posizioni migliori
                Case(02): a = Fuori90(Estratto(es,VE_,5) + Estratto(es,NZ_,2) + 01) 'Posizioni migliori x l'estratto det. 1° 2°
                Case(03): a = Fuori90(Estratto(es,GE_,4) + Estratto(es,NA_,1) + 03) 'Posizioni migliori x l'estratto det. 1° 4°
                Case(04): a = Fuori90(Estratto(es,NA_,1) + Estratto(es,NZ_,4) + 01) 'Non ci sono posizioni migliori
                Case(05): a = Fuori90(Estratto(es,RO_,1) + Estratto(es,VE_,2) + 02) 'Posizioni migliori x l'estratto det. 2°
                Case(06): a = Fuori90(Estratto(es,BA_,2) + Estratto(es,NZ_,2) + 02) 'Posizioni migliori x l'estratto det. 1° 3°
                Case(07): a = Fuori90(Estratto(es,GE_,1) + Estratto(es,MI_,2) + 01) 'Posizioni migliori x l'estratto det. 3° 5°
                Case(08): a = Fuori90(Estratto(es,BA_,5) + Estratto(es,FI_,2) + 01) 'Posizioni migliori x l'estratto det. 1° 2°
                Case(09): a = Fuori90(Estratto(es,BA_,1) + Estratto(es,BA_,5) + 03) 'Posizioni migliori x l'estratto det. 2° 3°
                Case(10): a = Fuori90(Estratto(es,BA_,3) + Estratto(es,CA_,4) + 01) 'Posizioni migliori x l'estratto det. 1° 3°
                Case(11): a = Fuori90(Estratto(es,GE_,4) + Estratto(es,MI_,4) + 01) 'Posizioni migliori x l'estratto det. 1° 2°
                Case(12): a = Fuori90(Estratto(es,BA_,4) + Estratto(es,MI_,3) + 01) 'Posizioni migliori x l'estratto det. 4° 5°
            End Select
            ruota(1) = rta
            cs = cs + 1
            Scrivi String(106,"¤") & " Caso n°" & Format2(cs),1 :ColoreTesto 1
            Scrivi FormatSpace(DataEstrazione(es),15) & " " & IndiceMensile(es) & "° Del Mese: Un Ambata Su " & NomeRuota(rta) & " Per " & klp & " Colpi Nel Mese di [" & UCase(MeseNome(m)) & "]",1
            ColoreTesto 0
            n(1) = a
            ambo1(1) = n(1)
            ambo1(2) = 34
            ambo2(1) = n(1)
            ambo2(2) = 49
            ambo3(1) = n(1)
            ambo3(2) = 58
            ambo4(1) = n(1)
            ambo4(2) = 85
            ambo5(1) = n(1)
            ambo5(2) = 90
            ambo6(1) = n(1)
            ambo6(2) = 22
            ambo7(1) = n(1)
            ambo7(2) = 43
            ambo8(1) = n(1)
            ambo8(2) = 60
            ambo9(1) = n(1)
            ambo9(2) = 3
            ambo10(1) = n(1)
            ambo10(2) = 6
            ambo11(1) = n(1)
            ambo11(2) = 12
            ambo12(1) = n(1)
            ambo12(2) = 16
            ambo13(1) = n(1)
            ambo13(2) = 38
            ambo14(1) = n(1)
            ambo14(2) = 42
            ambo15(1) = n(1)
            ambo15(2) = 51
            ImpostaGiocata 1,n,ruota,posta,klp,1
            ImpostaGiocata 2,ambo1,ruota,poste,klp,2
            ImpostaGiocata 3,ambo2,ruota,poste,klp,2
            ImpostaGiocata 4,ambo3,ruota,poste,klp,2
            ImpostaGiocata 5,ambo4,ruota,poste,klp,2
            ImpostaGiocata 6,ambo5,ruota,poste,klp,2
            ImpostaGiocata 7,ambo6,ruota,poste,klp,2
            ImpostaGiocata 8,ambo7,ruota,poste,klp,2
            ImpostaGiocata 9,ambo8,ruota,poste,klp,2
            ImpostaGiocata 10,ambo9,ruota,poste,klp,2
            ImpostaGiocata 11,ambo10,ruota,poste,klp,2
            ImpostaGiocata 12,ambo11,ruota,poste,klp,2
            ImpostaGiocata 13,ambo12,ruota,poste,klp,2
            ImpostaGiocata 14,ambo13,ruota,poste,klp,2
            ImpostaGiocata 15,ambo14,ruota,poste,klp,2
            ImpostaGiocata 16,ambo15,ruota,poste,klp,2
            For j = 1 To 16
                For w = 1 To 16
                    ImpostaInterruzioni j,w,1
                    ImpostaInterruzioni w,j,1
                Next
            Next
            Gioca es,1,,1
            Scrivi "Rendiconto parziale       ",1,- 1,6
            Scrivi "Toatale spesa   : " & GetSpesa(True)
            Scrivi "Totale vincite  : " & GetVincita(True)
            Scrivi "Totale guadagno : " & GetGuadagno(True)
            Scrivi "Resoconto progressivo     ",1,- 1,3
            Scrivi "Toatale spesa   : " & GetSpesa(False)
            Scrivi "Totale vincite  : " & GetVincita(False)
            Scrivi "Totale guadagno : " & GetGuadagno(False)
            If GetGuadagno(False) > 0 Then
                Scrivi" ****  ....E VAIIIIIIII  !!!!!! *** ",1,- 1,3
            Else
                Scrivi" ****  ATTENTO STAI ANDANDO IN PERDITA **** ",1,- 1,4
            End If
        End If
        If ScriptInterrotto Then Exit For
    Next
    Scrivi:Scrivi
    Scrivi:ScriviResoconto
End Sub

Resoconto finale 1a modifica

+----------------------------------------+
| Prima Giocata      : 7511              |
| Ultima Giocata     : 8738              |
| Range              : 1228              |
| Casi giocab perc.  : 7,736%            |
+----------------------------------------+ +----------------------------------+ +----------------------------------+ +----------------------------------+ 
|               RESOCONTO                | |       DISTRIBUZIONE ESITI        | | DISTRIBUZIONE ESITI PERCENTUALI  | |        DISTRIBUZIONE CASI        | 
+----------------------------------------+ +----------------------------------+ +----------------------------------+ +----------------------------------+ 
| Casi esaminati     :               95  | | RT | Est | Amb | Ter | Qua | Cin | | RT | Est | Amb | Ter | Qua | Cin | | RT |  Q  |                       | 
| Casi vincenti      :               94  | +----------------------------------+ +----------------------------------+ +----------------------------------+ 
| Percentuale pos.   :          98,95 %  | | BA |   94|  113|     |     |     | | BA |29,38|  100|     |     |     | | BA | 1520|                       | 
| Pronostici totali  :               95  | | CA |     |     |     |     |     | | CA |     |     |     |     |     | | CA |     |                       | 
| Pronostici vinc.   :               94  | | FI |     |     |     |     |     | | FI |     |     |     |     |     | | FI |     |                       | 
| Percentuale pos.   :          98,95 %  | | GE |     |     |     |     |     | | GE |     |     |     |     |     | | GE |     |                       | 
| Giocate in corso   :                0  | | MI |     |     |     |     |     | | MI |     |     |     |     |     | | MI |     |                       | 
| Giocate terminate  :            1.520  | | NA |     |     |     |     |     | | NA |     |     |     |     |     | | NA |     |                       | 
| Bollette giocate   :            6.976  | | PA |     |     |     |     |     | | PA |     |     |     |     |     | | PA |     |                       | 
| Bollette vincenti  :              207  | | RO |     |     |     |     |     | | RO |     |     |     |     |     | | RO |     |                       | 
| Attesa media       :               10  | | TO |     |     |     |     |     | | TO |     |     |     |     |     | | TO |     |                       | 
| Spesa              :       7.412,00 €  | | VE |     |     |     |     |     | | VE |     |     |     |     |     | | VE |     |                       | 
| Vincita            :      28.539,92 €  | | NZ |     |     |     |     |     | | NZ |     |     |     |     |     | | NZ |     |                       | 
| Guadagno           :      21.127,92 €  | | TT |     |     |     |     |     | | TT |     |     |     |     |     | | TT |     |                       | 
| Perc. Rendimento   :         285,05 %  | +----------------------------------+ +----------------------------------+ +----------------------------------+ 
| Mass. Esposizione  :         289,00 €  |    
| Estratto su ruota  :              320  |                                                                                                                
| Ambo su ruota      :              113  |                                                                                                                
|                                        |                                                                                                                
+----------------------------------------+

Seconda modifica

questo ferma il gioco alla prima vincita ottenuta, ma non ci sono interruzioni
può ottenere vincite multiple di ambo.

Sub Main()
    Scrivi String(38," ") & "Un Ambata alla 1°del Mese (Per Ogni Mese) su Bari"
    Scrivi String(38," ") & "Frequenze Sommative: Metodo e Script By Blackmore":Scrivi
    Dim ruota(1)
    Dim n(1)
    Dim ambo1(2),ambo2(2),ambo3(2),ambo4(2),ambo5(2),ambo6(2),ambo7(2),ambo8(2)
    Dim ambo9(2),ambo10(2),ambo11(2),ambo12(2),ambo13(2),ambo14(2),ambo15(2)
    Dim posta(1)
    Dim poste(2)
    posta(1) = 2
    poste(2) = 1
    rta = InputBox("R u o t a _ D i _ G i o c o :","B l a c k m o r e",1)
    klp = InputBox("C o l p i _ D i _ G i o c o :","B l a c k m o r e",9)
    ini = InputBox("I n i z i o _ E s t r a z i o n i :","B l a c k m o r e",7500)
    fin = EstrazioneFin
    For es = ini To fin
        Call AvanzamentoElab(ini,fin,es)
        Messaggio "FREQUENZE SOMMATIVE ... BY BLACKMORE"
        If IndiceMensile(es) = 1 Then
            m = Mese(es)
            Select Case(m)
                Case(01): a = Fuori90(Estratto(es,CA_,1) + Estratto(es,NA_,5) + 01) 'Non ci sono posizioni migliori
                Case(02): a = Fuori90(Estratto(es,VE_,5) + Estratto(es,NZ_,2) + 01) 'Posizioni migliori x l'estratto det. 1° 2°
                Case(03): a = Fuori90(Estratto(es,GE_,4) + Estratto(es,NA_,1) + 03) 'Posizioni migliori x l'estratto det. 1° 4°
                Case(04): a = Fuori90(Estratto(es,NA_,1) + Estratto(es,NZ_,4) + 01) 'Non ci sono posizioni migliori
                Case(05): a = Fuori90(Estratto(es,RO_,1) + Estratto(es,VE_,2) + 02) 'Posizioni migliori x l'estratto det. 2°
                Case(06): a = Fuori90(Estratto(es,BA_,2) + Estratto(es,NZ_,2) + 02) 'Posizioni migliori x l'estratto det. 1° 3°
                Case(07): a = Fuori90(Estratto(es,GE_,1) + Estratto(es,MI_,2) + 01) 'Posizioni migliori x l'estratto det. 3° 5°
                Case(08): a = Fuori90(Estratto(es,BA_,5) + Estratto(es,FI_,2) + 01) 'Posizioni migliori x l'estratto det. 1° 2°
                Case(09): a = Fuori90(Estratto(es,BA_,1) + Estratto(es,BA_,5) + 03) 'Posizioni migliori x l'estratto det. 2° 3°
                Case(10): a = Fuori90(Estratto(es,BA_,3) + Estratto(es,CA_,4) + 01) 'Posizioni migliori x l'estratto det. 1° 3°
                Case(11): a = Fuori90(Estratto(es,GE_,4) + Estratto(es,MI_,4) + 01) 'Posizioni migliori x l'estratto det. 1° 2°
                Case(12): a = Fuori90(Estratto(es,BA_,4) + Estratto(es,MI_,3) + 01) 'Posizioni migliori x l'estratto det. 4° 5°
            End Select
            ruota(1) = rta
            cs = cs + 1
            Scrivi String(106,"¤") & " Caso n°" & Format2(cs),1 :ColoreTesto 1
            Scrivi FormatSpace(DataEstrazione(es),15) & " " & IndiceMensile(es) & "° Del Mese: Un Ambata Su " & NomeRuota(rta) & " Per " & klp & " Colpi Nel Mese di [" & UCase(MeseNome(m)) & "]",1
            ColoreTesto 0
            n(1) = a
            ambo1(1) = n(1)
            ambo1(2) = 34
            ambo2(1) = n(1)
            ambo2(2) = 49
            ambo3(1) = n(1)
            ambo3(2) = 58
            ambo4(1) = n(1)
            ambo4(2) = 85
            ambo5(1) = n(1)
            ambo5(2) = 90
            ambo6(1) = n(1)
            ambo6(2) = 22
            ambo7(1) = n(1)
            ambo7(2) = 43
            ambo8(1) = n(1)
            ambo8(2) = 60
            ambo9(1) = n(1)
            ambo9(2) = 3
            ambo10(1) = n(1)
            ambo10(2) = 6
            ambo11(1) = n(1)
            ambo11(2) = 12
            ambo12(1) = n(1)
            ambo12(2) = 16
            ambo13(1) = n(1)
            ambo13(2) = 38
            ambo14(1) = n(1)
            ambo14(2) = 42
            ambo15(1) = n(1)
            ambo15(2) = 51
            ImpostaGiocata 1,n,ruota,posta,klp,1
            ImpostaGiocata 2,ambo1,ruota,poste,klp,2
            ImpostaGiocata 3,ambo2,ruota,poste,klp,2
            ImpostaGiocata 4,ambo3,ruota,poste,klp,2
            ImpostaGiocata 5,ambo4,ruota,poste,klp,2
            ImpostaGiocata 6,ambo5,ruota,poste,klp,2
            ImpostaGiocata 7,ambo6,ruota,poste,klp,2
            ImpostaGiocata 8,ambo7,ruota,poste,klp,2
            ImpostaGiocata 9,ambo8,ruota,poste,klp,2
            ImpostaGiocata 10,ambo9,ruota,poste,klp,2
            ImpostaGiocata 11,ambo10,ruota,poste,klp,2
            ImpostaGiocata 12,ambo11,ruota,poste,klp,2
            ImpostaGiocata 13,ambo12,ruota,poste,klp,2
            ImpostaGiocata 14,ambo13,ruota,poste,klp,2
            ImpostaGiocata 15,ambo14,ruota,poste,klp,2
            ImpostaGiocata 16,ambo15,ruota,poste,klp,2
            'For j = 1 To 16
            'For w = 1 To 16
            'ImpostaInterruzioni j,w,1
            'ImpostaInterruzioni w,j,1
            'Next
            'Next
            Gioca es,1,,1
            Scrivi "Rendiconto parziale       ",1,- 1,6
            Scrivi "Toatale spesa   : " & GetSpesa(True)
            Scrivi "Totale vincite  : " & GetVincita(True)
            Scrivi "Totale guadagno : " & GetGuadagno(True)
            Scrivi "Resoconto progressivo     ",1,- 1,3
            Scrivi "Toatale spesa   : " & GetSpesa(False)
            Scrivi "Totale vincite  : " & GetVincita(False)
            Scrivi "Totale guadagno : " & GetGuadagno(False)
            If GetGuadagno(False) > 0 Then
                Scrivi" ****  ....E VAIIIIIIII  !!!!!! *** ",1,- 1,3
            Else
                Scrivi" ****  ATTENTO STAI ANDANDO IN PERDITA **** ",1,- 1,4
            End If
        End If
        If ScriptInterrotto Then Exit For
    Next
    Scrivi:Scrivi
    Scrivi:ScriviResoconto
End Sub

Resoconto finale 2a modifica

+----------------------------------------+
| Prima Giocata      : 7511              |
| Ultima Giocata     : 8738              |
| Range              : 1228              |
| Casi giocab perc.  : 7,736%            |
+----------------------------------------+ +----------------------------------+ +----------------------------------+ +----------------------------------+ 
|               RESOCONTO                | |       DISTRIBUZIONE ESITI        | | DISTRIBUZIONE ESITI PERCENTUALI  | |        DISTRIBUZIONE CASI        | 
+----------------------------------------+ +----------------------------------+ +----------------------------------+ +----------------------------------+ 
| Casi esaminati     :               95  | | RT | Est | Amb | Ter | Qua | Cin | | RT | Est | Amb | Ter | Qua | Cin | | RT |  Q  |                       | 
| Casi vincenti      :               94  | +----------------------------------+ +----------------------------------+ +----------------------------------+ 
| Percentuale pos.   :          98,95 %  | | BA |   94|  142|     |     |     | | BA |24,87|  100|     |     |     | | BA | 1520|                       | 
| Pronostici totali  :               95  | | CA |     |     |     |     |     | | CA |     |     |     |     |     | | CA |     |                       | 
| Pronostici vinc.   :               94  | | FI |     |     |     |     |     | | FI |     |     |     |     |     | | FI |     |                       | 
| Percentuale pos.   :          98,95 %  | | GE |     |     |     |     |     | | GE |     |     |     |     |     | | GE |     |                       | 
| Giocate in corso   :               10  | | MI |     |     |     |     |     | | MI |     |     |     |     |     | | MI |     |                       | 
| Giocate terminate  :            1.510  | | NA |     |     |     |     |     | | NA |     |     |     |     |     | | NA |     |                       | 
| Bollette giocate   :           12.635  | | PA |     |     |     |     |     | | PA |     |     |     |     |     | | PA |     |                       | 
| Bollette vincenti  :              236  | | RO |     |     |     |     |     | | RO |     |     |     |     |     | | RO |     |                       | 
| Attesa media       :               12  | | TO |     |     |     |     |     | | TO |     |     |     |     |     | | TO |     |                       | 
| Spesa              :      13.071,00 €  | | VE |     |     |     |     |     | | VE |     |     |     |     |     | | VE |     |                       | 
| Vincita            :      35.354,92 €  | | NZ |     |     |     |     |     | | NZ |     |     |     |     |     | | NZ |     |                       | 
| Guadagno           :      22.283,92 €  | | TT |     |     |     |     |     | | TT |     |     |     |     |     | | TT |     |                       | 
| Perc. Rendimento   :        170,484 %  | +----------------------------------+ +----------------------------------+ +----------------------------------+ 
| Mass. Esposizione  :         303,00 €  |    
| Estratto su ruota  :              378  |                                                                                                                
| Ambo su ruota      :              142  |                                                                                                                
|                                        |                                                                                                                
+----------------------------------------+

la terza modifica


Si gioca la combinazione per tutti gli colpi previsti ( 9 ) non si ferma alla prima vincita,
e non ci sono interruzioni di giocata.

Sub Main()
    Scrivi String(38," ") & "Un Ambata alla 1°del Mese (Per Ogni Mese) su Bari"
    Scrivi String(38," ") & "Frequenze Sommative: Metodo e Script By Blackmore":Scrivi
    Dim ruota(1)
    Dim klp
    Dim n(1)
    Dim ambo1(2),ambo2(2),ambo3(2),ambo4(2),ambo5(2),ambo6(2),ambo7(2),ambo8(2)
    Dim ambo9(2),ambo10(2),ambo11(2),ambo12(2),ambo13(2),ambo14(2),ambo15(2)
    Dim posta(1)
    Dim poste(2)
    posta(1) = 2
    poste(2) = 1
    rta = InputBox("R u o t a _ D i _ G i o c o :","B l a c k m o r e",1)
    klp = InputBox("C o l p i _ D i _ G i o c o :","B l a c k m o r e",9)
    ini = InputBox("I n i z i o _ E s t r a z i o n i :","B l a c k m o r e",7500)
    fin = EstrazioneFin
    For es = ini To fin
        Call AvanzamentoElab(ini,fin,es)
        Messaggio "FREQUENZE SOMMATIVE ... BY BLACKMORE"
        If IndiceMensile(es) = 1 Then
            m = Mese(es)
            Select Case(m)
                Case(01): a = Fuori90(Estratto(es,CA_,1) + Estratto(es,NA_,5) + 01) 'Non ci sono posizioni migliori
                Case(02): a = Fuori90(Estratto(es,VE_,5) + Estratto(es,NZ_,2) + 01) 'Posizioni migliori x l'estratto det. 1° 2°
                Case(03): a = Fuori90(Estratto(es,GE_,4) + Estratto(es,NA_,1) + 03) 'Posizioni migliori x l'estratto det. 1° 4°
                Case(04): a = Fuori90(Estratto(es,NA_,1) + Estratto(es,NZ_,4) + 01) 'Non ci sono posizioni migliori
                Case(05): a = Fuori90(Estratto(es,RO_,1) + Estratto(es,VE_,2) + 02) 'Posizioni migliori x l'estratto det. 2°
                Case(06): a = Fuori90(Estratto(es,BA_,2) + Estratto(es,NZ_,2) + 02) 'Posizioni migliori x l'estratto det. 1° 3°
                Case(07): a = Fuori90(Estratto(es,GE_,1) + Estratto(es,MI_,2) + 01) 'Posizioni migliori x l'estratto det. 3° 5°
                Case(08): a = Fuori90(Estratto(es,BA_,5) + Estratto(es,FI_,2) + 01) 'Posizioni migliori x l'estratto det. 1° 2°
                Case(09): a = Fuori90(Estratto(es,BA_,1) + Estratto(es,BA_,5) + 03) 'Posizioni migliori x l'estratto det. 2° 3°
                Case(10): a = Fuori90(Estratto(es,BA_,3) + Estratto(es,CA_,4) + 01) 'Posizioni migliori x l'estratto det. 1° 3°
                Case(11): a = Fuori90(Estratto(es,GE_,4) + Estratto(es,MI_,4) + 01) 'Posizioni migliori x l'estratto det. 1° 2°
                Case(12): a = Fuori90(Estratto(es,BA_,4) + Estratto(es,MI_,3) + 01) 'Posizioni migliori x l'estratto det. 4° 5°
            End Select
            ruota(1) = rta
            cs = cs + 1
            Scrivi String(106,"¤") & " Caso n°" & Format2(cs),1 :ColoreTesto 1
            Scrivi FormatSpace(DataEstrazione(es),15) & " " & IndiceMensile(es) & "° Del Mese: Un Ambata Su " & NomeRuota(rta) & " Per " & klp & " Colpi Nel Mese di [" & UCase(MeseNome(m)) & "]",1
            ColoreTesto 0
            n(1) = a
            ambo1(1) = n(1)
            ambo1(2) = 34
            ambo2(1) = n(1)
            ambo2(2) = 49
            ambo3(1) = n(1)
            ambo3(2) = 58
            ambo4(1) = n(1)
            ambo4(2) = 85
            ambo5(1) = n(1)
            ambo5(2) = 90
            ambo6(1) = n(1)
            ambo6(2) = 22
            ambo7(1) = n(1)
            ambo7(2) = 43
            ambo8(1) = n(1)
            ambo8(2) = 60
            ambo9(1) = n(1)
            ambo9(2) = 3
            ambo10(1) = n(1)
            ambo10(2) = 6
            ambo11(1) = n(1)
            ambo11(2) = 12
            ambo12(1) = n(1)
            ambo12(2) = 16
            ambo13(1) = n(1)
            ambo13(2) = 38
            ambo14(1) = n(1)
            ambo14(2) = 42
            ambo15(1) = n(1)
            ambo15(2) = 51
            ImpostaGiocata 1,n,ruota,posta,klp
            ImpostaGiocata 2,ambo1,ruota,poste,klp
            ImpostaGiocata 3,ambo2,ruota,poste,klp
            ImpostaGiocata 4,ambo3,ruota,poste,klp
            ImpostaGiocata 5,ambo4,ruota,poste,klp
            ImpostaGiocata 6,ambo5,ruota,poste,klp
            ImpostaGiocata 7,ambo6,ruota,poste,klp
            ImpostaGiocata 8,ambo7,ruota,poste,klp
            ImpostaGiocata 9,ambo8,ruota,poste,klp
            ImpostaGiocata 10,ambo9,ruota,poste,klp
            ImpostaGiocata 11,ambo10,ruota,poste,klp
            ImpostaGiocata 12,ambo11,ruota,poste,klp
            ImpostaGiocata 13,ambo12,ruota,poste,klp
            ImpostaGiocata 14,ambo13,ruota,poste,klp
            ImpostaGiocata 15,ambo14,ruota,poste,klp
            ImpostaGiocata 16,ambo15,ruota,poste,klp
            'For j = 1 To 16
            'For w = 1 To 16
            'ImpostaInterruzioni j,w,1
            'ImpostaInterruzioni w,j,1
            'Next
            'Next
            Gioca es,1,,1
            Scrivi "Rendiconto parziale       ",1,- 1,6
            Scrivi "Toatale spesa   : " & GetSpesa(True)
            Scrivi "Totale vincite  : " & GetVincita(True)
            Scrivi "Totale guadagno : " & GetGuadagno(True)
            Scrivi "Resoconto progressivo     ",1,- 1,3
            Scrivi "Toatale spesa   : " & GetSpesa(False)
            Scrivi "Totale vincite  : " & GetVincita(False)
            Scrivi "Totale guadagno : " & GetGuadagno(False)
            If GetGuadagno(False) > 0 Then
                Scrivi" ****  ....E VAIIIIIIII  !!!!!! *** ",1,- 1,3
            Else
                Scrivi" ****  ATTENTO STAI ANDANDO IN PERDITA **** ",1,- 1,4
            End If
        End If
        If ScriptInterrotto Then Exit For
    Next
    Scrivi:Scrivi
    Scrivi:ScriviResoconto
End Sub

resoconto finale 3a modifica

+----------------------------------------+
| Prima Giocata      : 7511              |
| Ultima Giocata     : 8738              |
| Range              : 1228              |
| Casi giocab perc.  : 7,736%            |
+----------------------------------------+ +----------------------------------+ +----------------------------------+ +----------------------------------+ 
|               RESOCONTO                | |       DISTRIBUZIONE ESITI        | | DISTRIBUZIONE ESITI PERCENTUALI  | |        DISTRIBUZIONE CASI        | 
+----------------------------------------+ +----------------------------------+ +----------------------------------+ +----------------------------------+ 
| Casi esaminati     :               95  | | RT | Est | Amb | Ter | Qua | Cin | | RT | Est | Amb | Ter | Qua | Cin | | RT |  Q  |                       | 
| Casi vincenti      :               94  | +----------------------------------+ +----------------------------------+ +----------------------------------+ 
| Percentuale pos.   :          98,95 %  | | BA |  123|  143|     |     |     | | BA |30,07|  100|     |     |     | | BA | 1520|                       | 
| Pronostici totali  :               95  | | CA |     |     |     |     |     | | CA |     |     |     |     |     | | CA |     |                       | 
| Pronostici vinc.   :               94  | | FI |     |     |     |     |     | | FI |     |     |     |     |     | | FI |     |                       | 
| Percentuale pos.   :          98,95 %  | | GE |     |     |     |     |     | | GE |     |     |     |     |     | | GE |     |                       | 
| Giocate in corso   :               16  | | MI |     |     |     |     |     | | MI |     |     |     |     |     | | MI |     |                       | 
| Giocate terminate  :            1.504  | | NA |     |     |     |     |     | | NA |     |     |     |     |     | | NA |     |                       | 
| Bollette giocate   :           13.616  | | PA |     |     |     |     |     | | PA |     |     |     |     |     | | PA |     |                       | 
| Bollette vincenti  :              266  | | RO |     |     |     |     |     | | RO |     |     |     |     |     | | RO |     |                       | 
| Attesa media       :               12  | | TO |     |     |     |     |     | | TO |     |     |     |     |     | | TO |     |                       | 
| Spesa              :      14.467,00 €  | | VE |     |     |     |     |     | | VE |     |     |     |     |     | | VE |     |                       | 
| Vincita            :      36.202,29 €  | | NZ |     |     |     |     |     | | NZ |     |     |     |     |     | | NZ |     |                       | 
| Guadagno           :      21.735,29 €  | | TT |     |     |     |     |     | | TT |     |     |     |     |     | | TT |     |                       | 
| Perc. Rendimento   :         150,24 %  | +----------------------------------+ +----------------------------------+ +----------------------------------+ 
| Mass. Esposizione  :         306,00 €  |    
| Estratto su ruota  :              409  |                                                                                                                
| Ambo su ruota      :              143  |                                                                                                                
|                                        |                                                                                                                
+----------------------------------------+

Resoconto Differenza tra le 3 modifiche




1a Modifica



| Spesa : 7.412,00 €
| Vincita : 28.539,92 €
| Guadagno : 21.127,92 €



2a Modifica



| Spesa : 13.071,00 €
| Vincita : 35.354,92 €
| Guadagno : 22.283,92 €



3a Modifica


| Spesa : 14.467,00 €
| Vincita : 36.202,29 €
| Guadagno : 21.735,29 €

 

[keeper]

bravo black e ottimo lanfranco60

 

[hettro]

Come vedi è possibile VINCERE AL LOTTO .................................

I tre script dimostrano che è più vantaggioso giocare pochi colpi è fermarsi al 1° evento positivo.

CMQ ho una perplessità.

Da quale estrazione fai i calcoli?

Da quale estrazione inizi il gioco?

Ciao, Hettro

 

[Lanfranco60]

Come vedi è possibile VINCERE AL LOTTO .................................

I tre script dimostrano che è più vantaggioso giocare pochi colpi è fermarsi al 1° evento positivo.

CMQ ho una perplessità.

Da quale estrazione fai i calcoli?

Da quale estrazione inizi il gioco?

Ciao, Hettro

Infatti lo detto che la prima modifica (quella ufficiale) è quella piu vantaggiosa

lo script analizza dall'estrazione n° 7500 originariamente impostate da Blackmore

 

[hettro]

Ho fatto partire lo script così come è (la Tua 1° versione)

unica modifica, sono partito dalla 3950 (archivio senza buchi).



Spesa : 92.956,00 €
Vincita : 87.063,18 €
Guadagno : -5.892,82 €
Perc. Rendimento : -6,339 %
Mass. Esposizione : 1.496,00 €
Estratto su ruota : 1.074
Ambo su ruota : 334


C'è poco da stare allegri ........................

 

[Lanfranco60]

Hettro, sai benissimo che il metodo non è mio, io nemmeno gioco, faccio questo per passatempo...

poi sei tu che sei andato a cambiare i parametri, da quello che ho letto, Blackmore ha fatto partire la ricerca,
all'incirca da quasi fine 2005, e io non ho cambiato nulla in quello, il parametro è rimasto lo stesso.
Poi che senso ha, andare a vedere se nel passato remoto funzionava o meno, ti ricordo che è un sommativo,
e tutti i sommativi devono fare i conti a lungo andare.
Tu cerchi l'infallibilità totale, ma io penso che non esista nessun metodo che si avvicini a questo.
Sopratutto i sommativi che vengono costruiti ad arte e funzionano alla grande solo nel periodo analizzato,
ma nel futuro vanno scemando, e di questo è ovvio anche il perchè.......

 

[hettro]

Hettro, sai benissimo che il metodo non è mio, io nemmeno gioco, faccio questo per passatempo...

poi sei tu che sei andato a cambiare i parametri, da quello che ho letto, Blackmore ha fatto partire la ricerca,
all'incirca da quasi fine 2005, e io non ho cambiato nulla in quello, il parametro è rimasto lo stesso.
Poi che senso ha, andare a vedere se nel passato remoto funzionava o meno, ti ricordo che è un sommativo,
e tutti i sommativi devono fare i conti a lungo andare.
Tu cerchi l'infallibilità totale, ma io penso che non esista nessun metodo che si avvicini a questo.
Sopratutto i sommativi che vengono costruiti ad arte e funzionano alla grande solo nel periodo analizzato,
ma nel futuro vanno scemando, e di questo è ovvio anche il perchè.......

E' proprio questo il problema dei sommativi, sono validi solo per il passato.

Il giocatore di lotto rincorre il "sogno" del metodo unico x sempre.

Un sogno, ma tutti ci studiano sopra.

Ti allego un output di un sommativo con LD,
mi dispiace che Spaziometria non lo faccia.

Resoconto totale giocate
Dettaglio Successi

Giocata  Successi  Colpo  Perc.    Entro  
----------------------------------------
  Tutte        91      1  6,8 %    6,8 %  
  Tutte        98      2  7,3 %   14,1 %  
  Tutte        88      3  6,6 %   20,7 %  
  Tutte        83      4  6,2 %   26,9 %  
  Tutte        59      5  4,4 %   31,3 %  
  Tutte        64      6  4,8 %   36,1 %  
  Tutte        64      7  4,8 %   40,9 %  
  Tutte        55      8  4,1 %   45,0 %  
  Tutte        48      9  3,6 %   48,6 %  
  Tutte        49     10  3,7 %   52,2 %  
  Tutte        42     11  3,1 %   55,4 %  
  Tutte        48     12  3,6 %   59,0 %  
  Tutte        47     13  3,5 %   62,5 %  
  Tutte        35     14  2,6 %   65,1 %  
  Tutte        24     15  1,8 %   66,9 %  
  Tutte        27     16  2,0 %   68,9 %  
  Tutte        35     17  2,6 %   71,5 %  
  Tutte        23     18  1,7 %   73,2 %  
  Tutte        16     19  1,2 %   74,4 %  
  Tutte        22     20  1,6 %   76,1 %  
  Tutte        17     21  1,3 %   77,4 %  
  Tutte        11     22  0,8 %   78,2 %  
  Tutte        26     23  1,9 %   80,1 %  
  Tutte        20     24  1,5 %   81,6 %  
  Tutte        16     25  1,2 %   82,8 %  
  Tutte        15     26  1,1 %   83,9 %  
  Tutte        12     27  0,9 %   84,8 %  
  Tutte        13     28  1,0 %   85,8 %  
  Tutte         8     29  0,6 %   86,4 %  
  Tutte        15     30  1,1 %   87,5 %  
  Tutte        11     31  0,8 %   88,3 %  
  Tutte        10     32  0,7 %   89,1 %  
  Tutte        12     33  0,9 %   90,0 %  
  Tutte         4     34  0,3 %   90,3 %  
  Tutte         8     35  0,6 %   90,9 %  
  Tutte        10     36  0,7 %   91,6 %  
  Tutte         7     37  0,5 %   92,2 %  
  Tutte        10     38  0,7 %   92,9 %  
  Tutte         8     39  0,6 %   93,5 %  
  Tutte         4     40  0,3 %   93,8 %  
  Tutte         8     41  0,6 %   94,4 %  
  Tutte         5     42  0,4 %   94,8 %  
  Tutte         3     43  0,2 %   95,0 %  
  Tutte         5     44  0,4 %   95,4 %  
  Tutte         5     45  0,4 %   95,7 %  
  Tutte         6     46  0,4 %   96,2 %  
  Tutte         3     47  0,2 %   96,4 %  
  Tutte         4     48  0,3 %   96,7 %  
  Tutte         1     49  0,1 %   96,8 %  
  Tutte         4     50  0,3 %   97,1 %  
  Tutte         4     51  0,3 %   97,4 %  
  Tutte         1     52  0,1 %   97,5 %  
  Tutte         5     53  0,4 %   97,8 %  
  Tutte         5     54  0,4 %   98,2 %  
  Tutte         1     57  0,1 %   98,3 %  
  Tutte         1     58  0,1 %   98,4 %  
  Tutte         1     59  0,1 %   98,4 %  
  Tutte         1     61  0,1 %   98,5 %  
  Tutte         1     62  0,1 %   98,6 %  
  Tutte         4     63  0,3 %   98,9 %  
  Tutte         2     64  0,1 %   99,0 %  
  Tutte         2     65  0,1 %   99,2 %  
  Tutte         2     66  0,1 %   99,3 %  
  Tutte         2     67  0,1 %   99,5 %  
  Tutte         1     69  0,1 %   99,6 %  
  Tutte         1     70  0,1 %   99,6 %  
  Tutte         1     72  0,1 %   99,7 %  
  Tutte         1     74  0,1 %   99,8 %  
  Tutte         1     80  0,1 %   99,9 %  
  Tutte         1     81  0,1 %   99,9 %  
  Tutte         1     96  0,1 %  100,0 %

Lo STORICO del metodo è 96, in quale fascia di sfaldamento conviene giocare?

Questo è scontato, STO 96 oltre il BURRONE.

Vediamo quale è lo MTMR (Media Teorica Massimo Ritardo), di solito è pari al 99%.
Il limite in cui sortisce la massima parte degli eventi, nell'esempio è 64 colpi.
qualsiasi evento attuale che si trovasse vicino a quel ritardo è GIOCABILE con
solo 1% di negativo.

Pur trattando di ritardi quello che si dovrebbe scegliere è l'evento che si trova
ad un livello prossimo al 100% tenendo conto del sempre possibile incremento dello
storico precedente.

Questo il motivo per cui analizzo sempre, qualsiasi script, da date molto lontane.

 

[Lanfranco60]

hettro, Qualsiasi script postato sul forum, se lo analizzi per sufficienti estrazioni,
troverai il punto in cui si disintegra la sua operatività.
Di script che analizzano tante estrazioni e che siano pure vincenti
ne ho visti pochissimi sul forum, uno che mi è rimasto impresso per il suo algoritmo
particolare fu uno script di baffoblu che dal 1871 non ha avuto nessun esito negativo.

Ho dato una scorsa veloce sul tuo discorso del'appetabilità,
e quello script ne ha di appetitoso, ma anche se così fosse, dato che io non gioco,non mi interessa più di tanto
mi interessa trovare da solo le vie e scoprire nuovi sentieri da battere, ma per me ripeto è solo un passatempo,
mi diverte fare le cose da me e non fatte da altri se no non sarebbe più un passatempo che è diverso da passione.

Vedo molti appassionati ed alcuni proprio cechi e convinti al massimo, ma sono sempre li in giro a
dimostrare il nulla e alla fine demordono o continuano stoicamente cercandosi di convincere se stessi che il modo c'è.

per quanto riguarda i giochi in generale il mio parere si conforma con il video che ho postato in Off-Topic.
perchè credo che nessuno abbia raggiunto l'infallibilità totale quella vera.
Costruire metodi e magari spacciarli per miracolosi facendo vedere varie statistiche
e resoconti indietro nel tempo mirabolanti è un arte a cui abboccano in molti, ma non ci vuole nulla.

un esempio :

La mia modifica fatta allo script di Blackmore è un abbaglio totale, il suo resoconto sa di miracoloso,
ma di miracoloso non ha un cavolo di niente.

te lo dimostro

ho preso l'ambata di blackmore, ho visto tutte le estrazioni in cui è uscita l'ambata, comprendente tutti i 9 colpi,
in pratica tutti gli esiti positivi.
Ho tolto di volta in volta l'ambata ai 5 estratti sortiti con l'ambata stessa
ho preso i rimanenti 4 estratti con tutti gli altri 4 estratti dei casi positivi.
fatto una statistica veloce di questa massa numerica e ho estrapolato i 15 numeri piu
presenti, che sono diventati i miracolosi abbinamenti all'ambata di turno, quando in realtà lo erano gia di suo.

risultato : esiti a palate,.....e ti credo !

ma questo metodo fra un anno massimo andrà in perdenza, ed è facile capire il perchè.

mi diverto quando sento dire che quel metodo o quell'altro hanno smesso di dare o ripreso a vincere.
è il caso che decide !!!

Questo a dimostrare che parecchia gente deve togliersi le fette di prosciutto dagli occhi,
quando vede o intravede il miracolo dove non c'è, sopratutto con certi metodi confezionati ad arte.
purtoppo vedo sempre più spesso la gente correre appresso ai sommativi,o a chissa che altro
e anche se ogni tanto vincono somme che di sicuro non cambieranno la vita, la realtà rimane una.

La statistica pura invece può aiutare,ma non molto, è solo di indicativa generale, non è una verità assoluta
altrimenti il banco avrebbe chiuso se non cambiato le regole !