Ultima del mese 2 ambate su Bari

[Marco-elle]

X chi desidera continuare il mese di Dicembre.....

Sub Main() ColoreTesto 2
   Scrivi
   Scrivi " BARI ALLA 1^ DEL MESE ",1
   Scrivi " 2 AMBATE + 3 ABBINAMENTI "
   Scrivi
   Scrivi " METODO E LIST BY  Marco",1
   Scrivi
   ColoreTesto 0
   Dim ruote(2)
   Dim t1(5): Dim t2(3) : Dim t3(3) : Dim t4(3) : Dim t5(3): Dim t6(3): Dim poste(5)
   poste(2) = 1
   klp = 10
   ini = 9860
   fin = EstrazioneFin
   co = 0
   For es = ini To fin
      If IndiceMensile(es) = 1 Then
         ruote(1) = 1
         casi = casi + 1
         co = co + 1
         ColoreTesto 7:Scrivi String(100,"°") & " Caso n° " & casi,1
         ColoreTesto 1:Scrivi DataEstrazione(es) & "--->" & IndiceMensile(es) & "° Estrazione Mensile"
         ColoreTesto 7:Scrivi String(100,"°")
         ColoreTesto 0
         t1(1) = Fuori90(Estratto(es,1,5) + Estratto(es,6,4) + 20)
         t1(2) = Fuori90(Estratto(es,3,3) + Estratto(es,7,3) + 55)
         ImpostaGiocata 1,t1,ruote,poste,klp
         t2(1) = Fuori90(Estratto(es,1,5) + Estratto(es,6,4) + 20)
         t2(2) = Fuori90(Estratto(es,7,5) + Estratto(es,8,3) + 30)
         ImpostaGiocata 2,t2,ruote,poste,klp
         t3(1) = Fuori90(Estratto(es,1,5) + Estratto(es,6,4) + 20)
         t3(2) = Fuori90(90 +(Estratto(es,6,4)) - Estratto(es,5,1) + 46)
         ImpostaGiocata 3,t3,ruote,poste,klp
         t4(1) = Fuori90(Estratto(es,1,1) + Estratto(es,2,1) + 1)
         t4(2) = Fuori90(Estratto(es,3,3) + Estratto(es,7,3) + 55)
         ImpostaGiocata 4,t4,ruote,poste,klp
         t5(1) = Fuori90(Estratto(es,1,1) + Estratto(es,2,1) + 1)
         t5(2) = Fuori90(Estratto(es,7,5) + Estratto(es,8,3) + 30)
         ImpostaGiocata 5,t5,ruote,poste,klp
         t6(1) = Fuori90(Estratto(es,1,1) + Estratto(es,2,1) + 1)
         t6(2) = Fuori90(90 +(Estratto(es,6,4)) - Estratto(es,5,1) + 46)
         ImpostaGiocata 6,t6,ruote,poste,klp
         Gioca es,1
      End If
   Next
   Scrivi:Scrivi:Scrivi:Scrivi:Scrivi "Casi Rilevati " & CInt(co)
   ScriviResoconto
End Sub

 

[Marco-elle]

 

[Alien.]

Solo statistica rischiando un po............direi.......................ma..................

66	76--
90	11

Grazie Marco per lo script.

 

[PORTAFORTUNA]

PF, il tuo metodo mi è piaciuto!!
Ho fatto delle verifiche da gennaio 2021 a novembre 2022: su 23 casi 22 positivi (96%) ed 1 negativo. Nei casi positivi devo annoverare un vertibile e una previsione + vertibile.
Se qualcuno non ha voglia di effettuare i semplici calcoli, può scaricare il file excel qui https://www.mediafire.com/file/p9jejy9l3crujwc/BA-VE%28b%29.xls/file

Grazie mille, sto lavorando su metodi singola ruota per pochi colpi,il problema è trovare gli abbinamenti visto che perdo spesso gli ambi secchi per -+1

 

[PORTAFORTUNA]

Buongiorno e buon anno a tutti
Le ambate di gennaio sono 64 e 27

 

[RIAN]

Buongiorno e buon anno a tutti
Le ambate di gennaio sono 64 e 27

Molto bene "Portafortuna"!
Facendo riferimento alla tua previsione, mi sono accorto che il foglio excel che avevo allegato contiene un errore. Ho provveduto alla correzione e, rifatti i calcoli, ho ottenuto questo:
- anno di verifica 2022
- casi considerati 11
- esiti positivi 11
- esiti negativi 0
- dei casi positivi:
6 sono le previsioni assolute
5 sono + e - 1
- su BA 9 positivi
- su VE 1 positivo
- 4 sortiti alla 1° estrazione, 4 alla 2°, 2 alla 3°, 1 alla 4°.

Questo se non ho sbagliato i conteggi

Visto i risultati scaturiti, il gioco può essere fatto solo sulla ruota di BA con sei numeri. Esempio: previsione per gennaio 63-64-65 26-27-28.
Per chi volesse, posso inviare il nuovo link per il foglio excel corretto.

 

[RIAN]

................. comunque, questo è il link per scaricare il foglio riveduto e corretto

BA-VE(b)

MediaFire is a simple to use free service that lets you put all your photos, documents, music, and video in a single place so you can access them anywhere and share them everywhere.

www.mediafire.com