Per Cipisto

[Roby]

Ciao grande, facciamo un regalo a tutto il forum, aggiungiamo all'ambata del centro massa per ogni sorte il più 5

rodolfo

 

[corrado57]

è qualcosa che hai studiato? pleasssss

ciao a tutti

 

[rudivall]

Si Corrado, negli ultimi casi si è sempre unita ai numeri del metodo

rodolfo

 

[corrado57]

interessante quindi consigli di aggiungere il + 5 agli abbinamenti l'asciando l'ambata (il centro di massa ) invariato?

ciao a tutti

 

[rudivall]

Si Corrado, per esempio ora l'ambata di Firenze è il 27, aggiungere al 27 il 5 quindi il secondo numero è 32, ambate 27 e 32 aggiungere il 32 anche alle sorti di ambo, terno, quaterna e cinquina

rodolfo

 

[corrado57]

[]ok

ciao a tutti

 

[cipisto]

Leggo solo ora. Personalmente dalle previsioni giocabili eliminerei i terni che non danno nulla se non zero.
Invece per il +5 che dice Rodolfo, quindi diventerebbero otto ambi e due cinquine, o facciamo 4 terzine ed una sestina? Fatemi sapere che implemento le modifiche.

Esistono solo due cose infinite: l'universo e la stupidità umana. Sulla prima delle due non ho prove.(A.Einstein)

 

[rudivall]

Ciao Cipisto sarebbe ottimo le due ambate le 4 terzine e la sestina grazie per l'aiuto

rodolfo

 

[cipisto]

Spero di aver interpretato bene cosa volevate. Rodolfo hai visto proprio bene, da risultati migliori con quel +5. Vi posto il listato del centro di massa originale (isotopia solo in terza e senza nazionale) con la doppia ambata, 4 terzine e la sestina, e vi posto le statistiche per l'anno 2006.
Buonanotte a tutti.

Esistono solo due cose infinite: l'universo e la stupidità umana. Sulla prima delle due non ho prove.(A.Einstein)

 

[cipisto]

Sub main()

Dim Ambata(1)
Dim Terzina(3)
Dim Sestina(6)
Dim Ruote(10)
Dim PosteE(10)
Dim PosteT(5)
Dim PosteS(5)
Dim es
Dim iEstrazione
Dim iRuota
Dim iGiocata
Dim iEstratto
Dim E31
Dim E32
Dim E33
Dim bCM
Dim iCM
Dim iNR
Dim sEstratti
Dim bMetodo
Dim iTerzina
Dim iSestina
Dim iAmbata
Dim i

   PosteE(1) = 1
   PosteE(6) = 1
   PosteE(10) = 1
   PosteT(2) = 1
   PosteT(3) = 1
   PosteS(2) = 2
   PosteS(3) = 0.8
   PosteS(4) = 0.15
   PosteS(5) = 0.05

   'Togliere l'apice alla riga qui sotto per avere un report visuale.
   'TabellaGiocate True

   iAmbata = MsgBox("vuoi giocare l'ambata?", 32 + 4, "Il Centro di Massa")
   iTerzina = MsgBox("vuoi giocare le terzine?", 32 + 4, "Il Centro di Massa")
   iSestina = MsgBox("vuoi giocare la Sestina?", 32 + 4, "Il Centro di Massa")

   For es = 6837 To EstrazioniArchivio
      AvanzamentoElab 6837, EstrazioniArchivio, es
      iGiocata = 1
      For iRuota = 1 To 8
         bMetodo = 0
         E31 = Estratto(es, iRuota, 3)
         E32 = Estratto(es, (iRuota + 1), 3)
         E33 = Estratto(es, (iRuota + 2), 3)
         If E31 = E33 Then
            bCM = 0
            For iEstrazione = (es + 1) To (es + 6)
               If bMetodo = 0 And bCM = 0 Then
                  sEstratti = StringaEstratti(iEstrazione, (iRuota + 1))

                  If Len(E31) = 1 Then E31 = "0" & E31
                  If Len(E32) = 1 Then E32 = "0" & E32
                  If Len(E33) = 1 Then E33 = "0" & E33

                  iCM = Instr(1, sEstratti, E32, 1)
                  If iCM <> 0 Then bCM = -1
                  iNR = Instr(1, sEstratti, E31, 1)

                  If iCM = 0 And iNR <> 0 Then
                     bMetodo = -1

                     Scrivi "$====================================================$"
                     Scrivi " Estrazione Rilevamento: " & DataEstrazione(es)
                     Scrivi " M1: |" & SiglaRuota(iRuota) & "| - CM: |" & SiglaRuota((iRuota + 1)) & "| - M2: |" & SiglaRuota((iRuota + 2)) & "|"
                     Scrivi " M1: |" & E31 & "| - CM: |" & E32 & "| - M2: |" & E33 & "|"
                     Scrivi " Estrazione Trovata: " & DataEstrazione(iEstrazione) & " - " & SiglaRuota((iRuota + 1)) & ": " & StringaEstratti(iEstrazione, (iRuota + 1))

                     Ruote(1) = (iRuota + 1)

                     For i = 0 To 5 Step 5
                        Ambata(1) = Fuori90((E32 + i))
                        ImpostaGiocata iGiocata, Ambata, Ruote, PosteE, 7
                        iGiocata = iGiocata + 1
                     Next

                     If iTerzina = 6 Then
                        Terzina(1) = E32
                        Terzina(2) = Fuori90((E32 + 5))
                        Terzina(3) = Fuori90((E31 * 3))
                        ImpostaGiocata iGiocata, Terzina, Ruote, PosteT, 7
                        iGiocata = iGiocata + 1

                        Terzina(1) = E32
                        Terzina(2) = Fuori90((E32 + 5))
                        Terzina(3) = Diametrale((Fuori90((E31 * 3))))
                        ImpostaGiocata iGiocata, Terzina, Ruote, PosteT, 7
                        iGiocata = iGiocata + 1

                        Terzina(1) = E32
                        Terzina(2) = Fuori90((E32 + 5))
                        Terzina(3) = 90 - (DiametraleD((Fuori90((E31 + E32 + E33)))))
                        ImpostaGiocata iGiocata, Terzina, Ruote, PosteT, 7
                        iGiocata = iGiocata + 1

                        Terzina(1) = E32
                        Terzina(2) = Fuori90((E32 + 5))
                        Terzina(3) = Diametrale((90 - (DiametraleD((Fuori90((E31 + E32 + E33)))))))
                        ImpostaGiocata iGiocata, Terzina, Ruote, PosteT, 7
                        iGiocata = iGiocata + 1
                     End If

                     If iSestina = 6 Then
                        Sestina(1) = E32
                        Sestina(2) = Fuori90((E32 + 5))

 

[cipisto]

$====================================================$
 Estrazione Rilevamento: 03.03.2001
 M1: |Ro| - CM: |To| - M2: |Ve|
 M1: |34| - CM: |67| - M2: |34|
 Estrazione Trovata: 07.03.2001 - To: 68.04.34.75.51
mer 07.03.2001  [7000]
  G  1:  MD1D5         67                  To    7/7    
     negativo
  G  2:  MD1D5         72                  To    7/7    
     M  72               su To    3° colpo   [7003/17.03.2001]
     D1 72               su To    3° colpo   [7003/17.03.2001]

  G  3:  AT            67.72.12            To    7/7    
     negativo
  G  4:  AT            67.72.57            To    7/7    
     negativo
  G  5:  AT            67.72.50            To    7/7    
     negativo
  G  6:  AT            67.72.05            To    7/7    
     negativo
  G  7:  ATQC          67.72.12.57.50.05   To    7/7    
     A  57.12            su To    7° colpo   [7007/31.03.2001]

$====================================================$
 Estrazione Rilevamento: 10.03.2001
 M1: |Ro| - CM: |To| - M2: |Ve|
 M1: |35| - CM: |14| - M2: |35|
 Estrazione Trovata: 14.03.2001 - To: 89.35.05.27.63
mer 14.03.2001  [7002]
  G  1:  MD1D5         14                  To    7/7    
     negativo
  G  2:  MD1D5         19                  To    7/7    
     M  19               su To    4° colpo   [7006/28.03.2001]
     D1 19               su To    4° colpo   [7006/28.03.2001]

  G  3:  AT            14.19.15            To    7/7    
     negativo
  G  4:  AT            14.19.60            To    7/7    
     negativo
  G  5:  AT            14.19.01            To    7/7    
     negativo
  G  6:  AT            14.19.46            To    7/7    
     A  19.46            su To    4° colpo   [7006/28.03.2001]

  G  7:  ATQC          14.19.15.60.01.46   To    7/7    
     A  19.46            su To    4° colpo   [7006/28.03.2001]

$====================================================$
 Estrazione Rilevamento: 23.07.2003
 M1: |Fi| - CM: |Ge| - M2: |Mi|
 M1: |83| - CM: |14| - M2: |83|
 Estrazione Trovata: 26.07.2003 - Ge: 29.07.06.20.83
sab 26.07.2003  [7255]
  G  1:  MD1D5         14                  Ge    7/7    
     negativo
  G  2:  MD1D5         19                  Ge    7/7    
     negativo
  G  3:  AT            14.19.69            Ge    7/7    
     negativo
  G  4:  AT            14.19.24            Ge    7/7    
     negativo
  G  5:  AT            14.19.85            Ge    7/7    
     negativo
  G  6:  AT            14.19.40            Ge    7/7    
     negativo
  G  7:  ATQC          14.19.69.24.85.40   Ge    7/7    
     negativo
$====================================================$
 Estrazione Rilevamento: 09.08.2003
 M1: |Ro| - CM: |To| - M2: |Ve|
 M1: |70| - CM: |32| - M2: |70|
 Estrazione Trovata: 23.08.2003 - To: 70.53.27.11.68
sab 23.08.2003  [7263]
  G  1:  MD1D5         32                  To    7/7    
     M  32               su To    6° colpo   [7269/13.09.2003]
     D1 32               su To    6° colpo   [7269/13.09.2003]

  G  2:  MD1D5         37                  To    7/7    
     negativo
  G  3:  AT            32.37.30            To    7/7    
     negativo
  G  4:  AT            32.37.75            To    7/7    
     negativo
  G  5:  AT            32.37.03            To    7/7    
     negativo
  G  6:  AT            32.37.48            To    7/7    
     negativo
  G  7:  ATQC          32.37.30.75.03.48   To    7/7    
     negativo
$====================================================$
 Estrazione Rilevamento: 15.05.2004
 M1: |Fi| - CM: |Ge| - M2: |Mi|
 M1: |84| - CM: |85| - M2: |84|
 Estrazione Trovata: 19.05.2004 - Ge: 03.84.50.15.17
mer 19.05.2004  [7340]
  G  1:  MD1D5         85                  Ge    7/7    
     negativo
  G  2:  MD1D5         90                  Ge    7/7    
     M  90               su Ge    3° colpo   [7343/29.05.2004]
     M  90               su Ge    4° colpo   [7344/03.06.2004]

  G  3:  AT            85.90.72            Ge    7/7    
     negativo
  G  4:  AT            85.9

 

[cipisto]

in caso debba fare altre modifiche fatemi sapere.

Esistono solo due cose infinite: l'universo e la stupidità umana. Sulla prima delle due non ho prove.(A.Einstein)