Novità

terno metodo camaleonte

Ciao a tutti ho provato a fare lo script ,
ma dovete verificare che i calcoli e i dati riportati sono corretti
nell input box di default vengono indicate tutte le ruote, ma si possono selezionare anche 1 o piu ruote l importante
è che siano separate dal punto
le x rappresentano dove si è verificato un caso di isotopiaconsecutiva
verificate e fatemi sapere
Salvo errori ed omissis
Ciao :)
Codice: 
Option Explicit
' Controllare se lo script Fa quanto richiesto
' controllare se i dati riportati sono corretti
' Salvo errori ed omissis

Sub Main
   Dim aRuSpia,nRuSpia
   nRuSpia = Specchietto(aRuSpia)
   If nRuSpia = False Then
      Call MsgBox("Hai inserito una o piu ruote non valide",4,"Errore Ruota")
      Exit Sub
   End If
   Dim Ini,Fin
   Call ScegliRange(Ini,Fin,3950,EstrazioneFin)
   Dim nClp:nClp = CInt(InputBox("Scegli numero compreso tra 1 e 30","Seleziona Colpi di gioco",18)) + 1
   Dim IdEstr,R,p,pp,ps
   Dim E1p,E1,Eps,Es,v1,v2
   Dim nCasiTro,nCasiSin,nCasiDes
   Dim aAmbD,aAmbS,aTern1S,aTern2S,aTern1D,aTern2D
   Dim aRuVer(1),aRt(1)
   Dim FrzAsinRuota,FrezAsinTutte,FrzAsinRuotaTotale,FrezAsinTutteTotale
   Dim FrzADesRuota,FrzAdesTutte,FrzADesRuotaTotale,FrzAdesTutteTotale
   Dim FrzTern1SinRuota,FrzTern1SinTutte,FrzTern1SinRuotaTotale,FrzTern1SinTutteTotale
   Dim FrzTern2SinRuota,FrzTern2SinTutte,FrzTern2SinRuotaTotale,FrzTern2SinTutteTotale
   Dim FrzTern1DesRuota,FrzTern1DesTutte,FrzTern1DesRuotaTotale,FrzTern1DesTutteTotale
   Dim FrzTern2DesRuota,FrzTern2DesTutte,FrzTern2DesRuotaTotale,FrzTern2DesTutteTotale
   Dim sSep:sSep = "  |  "
   Dim LineaStitSup:LineaStitSup = "  _________ ________________ ____________________________ __________________ ______ _____________ ____________ ___________ "
   Dim LineaStitSup1:LineaStitSup1 = " |         |                |                            |                  |      |             |            |    Ambo   |"
   Dim sTit:sTit = " |   nCaso |  Ruota         |   Info Estrazione          |    Estrazione    | nRpt |  Laterali   | Formazioni |RSpia|Tutte|"
   Dim LineasTit:LineasTit = " |_________|________________|____________________________|__________________|______|_____________|____________|_____|_____|"
  
      aRt(1) = 11
   nCasiTro = 0
   nCasiSin = 0
   nCasiDes = 0
  
   Call SetColorSezione(RGB(0,0,0))
   For IdEstr = Ini To Fin
      For R = 1 To UBound(aRuSpia)
         aRuVer(1) = aRuSpia(R)
         If Estratto(IdEstr - 1,aRuVer(1),1) Then
            For p = 1 To 5
               E1p = Estratto(IdEstr - 1,aRuVer(1),p)
               E1 = Estratto(IdEstr,aRuVer(1),p)
               If E1p = E1 Then
                  Scrivi LineaStitSup,,,,vbCyan
                  Scrivi LineaStitSup1,,,,vbCyan
                  Scrivi sTit,,,,vbCyan
                  Scrivi LineasTit,,,,vbCyan
                  nCasiTro = nCasiTro + 1
                  pp = FuoriX(p - 1,5) ' estratto a sinistra
                  ps = FuoriX(p + 1,5) ' estratto a destra
                  ' prendo gli estratti a sinistra
                  Eps = Estratto(IdEstr - 1,aRuVer(1),pp) ' estratto a sinistra estrazione precedente
                  Es = Estratto(IdEstr,aRuVer(1),pp) ' estratto asinistra estrazionein corso
                  v1 = pari(Eps)
                  v2 = pari(Es)
                  
                  If v1 = v2 Then
                  
                     nCasiSin = nCasiSin + 1
                     Call Calcola(E1p,E1,Eps,Es,aAmbS,aTern1S,aTern2S)
                     ' Calcolo la frequenza dell ambo a sinistra su ruota di verifica
                     FrzAsinRuota = SerieFreqTurbo(IdEstr + 1,IdEstr + nClp,aAmbS,aRuVer,2)
                     'calcolo la frequenza totale dell ambo a sinistra su ruota
                     FrzAsinRuotaTotale = FrzAsinRuotaTotale + FrzAsinRuota
                     ' calcolo la frequenza dell ambo a sinistra su tutte
                     FrezAsinTutte = SerieFreqTurbo(IdEstr + 1,IdEstr + nClp,aAmbS,aRt,2)
                     ' calcolo la frequenza  totale dell ambo a sinistra su tutte
                     FrezAsinTutteTotale = FrezAsinTutteTotale + FrezAsinTutte
                     ' Terzina 1
                     ' -------------------------------------------------------------------
                     ' calcolo la frequenza della prima terzina a sinistra a ruota
                     FrzTern1SinRuota = SerieFreqTurbo(IdEstr + 1,IdEstr + nClp,aTern1S,aRuVer,2)
                     'calcolo la frequenza totale della prima terzina a sinistra a ruota
                     FrzTern1SinRuotaTotale = FrzTern1SinRuotaTotale + FrzTern1SinRuota
                     ' Calcolo la frequenza della prima terzina a sinistra a tutte
                     FrzTern1SinTutte = SerieFreqTurbo(IdEstr + 1,IdEstr + nClp,aTern1S,aRt,2)
                     'calcolo la frequenza totale della prima terzina a sinistra a tutte
                     FrzTern1SinTutteTotale = FrzTern1SinTutteTotale + FrzTern1SinTutte
                     ' Terzina 2
                     ' --------------------------------------------------------------------
                     ' calcolo la frequenza della seconda terzina a sinistra a ruota
                     FrzTern2SinRuota = SerieFreqTurbo(IdEstr + 1,IdEstr + nClp,aTern2S,aRuVer,2)
                     'calcolo la frequenza totale della prima terzina a sinistra a ruota
                     FrzTern2SinRuotaTotale = FrzTern2SinRuotaTotale + FrzTern2SinRuota
                     ' Calcolo la frequenza della prima terzina a sinistra a tutte
                     FrzTern2SinTutte = SerieFreqTurbo(IdEstr + 1,IdEstr + nClp,aTern2S,aRt,2)
                     'calcolo la frequenza totale della prima terzina a sinistra a tutte
                     FrzTern2SinTutteTotale = FrzTern2SinTutteTotale + FrzTern2SinTutte
                     '
                     Rem comincio a preparare l output
                     ' Rigo 1
                     Scrivi " |   " & FormatSpace("",4) & sSep & FormatSpace("",12) & sSep & Space(24) & sSep & Space(14) & sSep & _
                     FormatSpace("",2) & sSep & FormatSpace("",9) & sSep & FormatSpace(StringaNumeri(aAmbS,,True),8) & sSep & _
                     FrzAsinRuota & sSep & FrezAsinTutte & sSep,,,,vbCyan
                     ' rigo 2
                     Scrivi " |   " & FormatSpace("",4) & sSep & FormatSpace("",12) & sSep & Space(24) & sSep & Space(14) & sSep & FormatSpace("",2) & sSep,,0,,vbCyan
                     Scrivi "S ( " & FormatSpace(Eps,2) & " ) ",1,0,,vbCyan
                     Scrivi sSep,,0,,vbCyan
                     Scrivi FormatSpace(StringaNumeri(aTern1S,,True),8),,0,,vbCyan
                     Scrivi sSep,,0,,vbCyan
                     Scrivi FrzTern1SinRuota,,0,,vbCyan
                     Scrivi sSep,,0,,vbCyan
                     Scrivi FrzTern1SinTutte,,0,,vbCyan
                     Scrivi sSep,,,,vbCyan
                     Rem rigo 3
                     Scrivi " |   " & FormatSpace(nCasiTro,4,1) & sSep & FormatSpace(NomeRuota(aRuVer(1)),12) & sSep & GetInfoEstrazione(IdEstr - 1) & sSep & StringaEstratti(IdEstr - 1,aRuVer(1)) & sSep & FormatSpace(E1p,2) & sSep,,0,,vbCyan
                     Scrivi "S ( " & FormatSpace(Es,2) & " ) ",1,0,,vbCyan
                     Scrivi sSep,,0,,vbCyan
                     Scrivi FormatSpace(StringaNumeri(aTern2S,,True),8),,0,,vbCyan
                     Scrivi sSep,,0,,vbCyan
                     Scrivi FrzTern2SinRuota,,0,,vbCyan
                     Scrivi sSep,,0,,vbCyan
                     Scrivi FrzTern2SinTutte,,0,,vbCyan
                     Scrivi sSep,,,,vbCyan
                  Else
                     Rem Rigo 1
                    
                     Scrivi " |   " & FormatSpace("",4) & sSep & FormatSpace("",12) & sSep & Space(24) & sSep & Space(14) & sSep & _
                     FormatSpace("",2) & sSep & FormatSpace("",9) & sSep,,0,,vbCyan
                     Scrivi String(8,"-"),,0,,vbRed
                     Scrivi sSep,,0,,vbCyan
                     Scrivi "-",,0,,vbRed
                     Scrivi sSep,,0,,vbCyan
                     Scrivi "-",,0,,vbRed
                     Scrivi sSep,,,,vbCyan
                     Rem  Rigo 2
                     Scrivi " |   " & FormatSpace("",4) & sSep & FormatSpace("",12) & sSep & Space(24) & sSep & Space(14) & sSep & FormatSpace("",2) & sSep,,0,,vbCyan
                     Scrivi "S ( " & FormatSpace(Eps,2) & " ) ",1,0,,vbRed
                     Scrivi sSep,,0,,vbCyan
                     Scrivi String(8,"-"),,0,,vbRed
                     Scrivi sSep,,0,,vbCyan
                     Scrivi "-",,0,,vbRed
                     Scrivi sSep,,0,,vbCyan
                     Scrivi "-",,0,,vbRed
                     Scrivi sSep,,,,vbCyan
                     Rem rigo 3
                     Scrivi " |   " & FormatSpace(nCasiTro,4,1) & sSep & FormatSpace(NomeRuota(aRuVer(1)),12) & sSep & GetInfoEstrazione(IdEstr - 1) & sSep & StringaEstratti(IdEstr - 1,aRuVer(1)) & sSep & FormatSpace(E1p,2) & sSep,,0,,vbCyan
                     Scrivi "S ( " & FormatSpace(Es,2) & " ) ",1,0,,vbRed
                     Scrivi sSep,,0,,vbCyan
                     Scrivi String(8,"-"),,0,,vbRed
                     Scrivi sSep,,0,,vbCyan
                     Scrivi "-",,0,,vbRed
                     Scrivi sSep,,0,,vbCyan
                     Scrivi "-",,0,,vbRed
                     Scrivi sSep,,,,vbCyan
                    '
                  End If ' qui controllo se entrambi gli estratti sono pari o dispari
                  Eps = Estratto(IdEstr - 1,aRuVer(1),ps) ' estratto a Destra estrazione precedente
                  Es = Estratto(IdEstr,aRuVer(1),ps) ' estratto a Destra estrazionein corso
                  v1 = pari(Eps)
                  v2 = pari(Es)
                
                  If v1 = v2 Then
                  
                     nCasiDes = nCasiDes + 1
                     Call Calcola(E1p,E1,Eps,Es,aAmbD,aTern1D,aTern2D)
                     ' Calcolo la frequenza dell ambo a sinistra su ruota di verifica
                     FrzADesRuota = SerieFreqTurbo(IdEstr + 1,IdEstr + nClp,aAmbD,aRuVer,2)
                     'calcolo la frequenza totale dell ambo a sinistra su ruota
                     FrzADesRuotaTotale = FrzADesRuotaTotale + FrzADesRuota
                     ' calcolo la frequenza dell ambo a sinistra su tutte
                     FrzAdesTutte = SerieFreqTurbo(IdEstr + 1,IdEstr + nClp,aAmbD,aRt,2)
                     ' calcolo la frequenza  totale dell ambo a sinistra su tutte
                     FrzAdesTutteTotale = FrzAdesTutteTotale + FrzAdesTutte
                     ' Terzina 1
                     ' -------------------------------------------------------------------
                     ' calcolo la frequenza della prima terzina a sinistra a ruota
                     FrzTern1DesRuota = SerieFreqTurbo(IdEstr + 1,IdEstr + nClp,aTern1D,aRuVer,2)
                     'calcolo la frequenza totale della prima terzina a sinistra a ruota
                     FrzTern1DesRuotaTotale = FrzTern1DesRuotaTotale + FrzTern1DesRuota
                     ' Calcolo la frequenza della prima terzina a sinistra a tutte
                     FrzTern1DesTutte = SerieFreqTurbo(IdEstr + 1,IdEstr + nClp,aTern1D,aRt,2)
                     'calcolo la frequenza totale della prima terzina a sinistra a tutte
                     FrzTern1DesTutteTotale = FrzTern1DesTutteTotale + FrzTern1DesTutte
                     ' Terzina 2
                     ' --------------------------------------------------------------------
                     ' calcolo la frequenza della seconda terzina a sinistra a ruota
                     FrzTern2DesRuota = SerieFreqTurbo(IdEstr + 1,IdEstr + nClp,aTern2D,aRuVer,2)
                     'calcolo la frequenza totale della prima terzina a sinistra a ruota
                     FrzTern2DesRuotaTotale = FrzTern2DesRuotaTotale + FrzTern2DesRuota
                     ' Calcolo la frequenza della prima terzina a sinistra a tutte
                     FrzTern2DesTutte = SerieFreqTurbo(IdEstr + 1,IdEstr + nClp,aTern2D,aRt,2)
                     'calcolo la frequenza totale della prima terzina a sinistra a tutte
                     FrzTern2DesTutteTotale = FrzTern2DesTutteTotale + FrzTern2DesTutte
                     '
                     Rem comincio a preparare l output
                     ' Rigo 1
                     Scrivi " |   " & FormatSpace(" ",4) & sSep & FormatSpace(" ",12) & sSep & GetInfoEstrazione(IdEstr) & sSep & StringaEstratti(IdEstr,aRuVer(1)) & sSep & _
                     FormatSpace("",2) & sSep,,0,,vbCyan
                     Scrivi "D ( " & FormatSpace(Eps,2) & " ) ",,0,,vbCyan
                     Scrivi sSep,,0,,vbCyan
                     Scrivi FormatSpace(StringaNumeri(aAmbD,,True),8),,0,,vbCyan
                     Scrivi sSep,,0,,vbCyan
                     Scrivi FrzADesRuota & sSep & FrzAdesTutte & sSep,,,,vbCyan
                     Rem  Rigo 2
                     Scrivi " |   " & FormatSpace("",4) & sSep & FormatSpace("",12) & sSep & Space(24) & sSep & Space(14) & sSep & FormatSpace("",2) & sSep,,0,,vbCyan
                     Scrivi "D ( " & FormatSpace(Es,2) & " ) ",,0,,vbCyan
                     Scrivi sSep,,0,,vbCyan
                     Scrivi FormatSpace(StringaNumeri(aTern1D,,True),8),,0,,vbCyan
                     Scrivi sSep,,0,,vbCyan
                     Scrivi FrzTern1DesRuota & sSep & FrzTern1DesTutte & sSep,,,,vbCyan
                     Rem rigo 3
                     Scrivi " |   " & FormatSpace("",4) & sSep & FormatSpace("",12) & sSep & Space(24) & sSep & Space(14) & sSep & Space(2) & sSep & _
                     Space(9) & sSep & FormatSpace(StringaNumeri(aTern2D,,True),8) & sSep & _
                     FrzTern2DesRuota & sSep & FrzTern2DesTutte & sSep,,,,vbCyan
                     Rem rigo 4
                     Scrivi LineasTit,,,,vbCyan
                                      Else
                  
                     Scrivi " |   " & FormatSpace(" ",4) & sSep & FormatSpace(" ",12) & sSep & GetInfoEstrazione(IdEstr) & sSep & StringaEstratti(IdEstr,aRuVer(1)) & sSep & _
                     FormatSpace("",2) & sSep,,0,,vbCyan
                     Scrivi "D ( " & FormatSpace(Eps,2) & " ) ",1,0,,vbRed
                     Scrivi sSep,,0,,vbCyan
                     Scrivi String(8,"-"),,0,,vbRed
                     Scrivi sSep,,0,,vbCyan
                     Scrivi "-",,0,,vbRed
                     Scrivi sSep,,0,,vbCyan
                     Scrivi "-",,0,,vbRed
                     Scrivi sSep,,,,vbCyan
                     Rem  Rigo 2
                     Scrivi " |   " & FormatSpace("",4) & sSep & FormatSpace("",12) & sSep & Space(24) & sSep & Space(14) & sSep & FormatSpace("",2) & sSep,,0,,vbCyan
                     Scrivi "D ( " & FormatSpace(Es,2) & " ) ",1,0,,vbRed
                     Scrivi sSep,,0,,vbCyan
                     Scrivi String(8,"-"),,0,,vbRed
                     Scrivi sSep,,0,,vbCyan
                     Scrivi "-",,0,,vbRed
                     Scrivi sSep,,0,,vbCyan
                     Scrivi "-",,0,,vbRed
                     Scrivi sSep,,,,vbCyan
                     Rem rigo 3
                     Scrivi " |   " & FormatSpace("",4) & sSep & FormatSpace("",12) & sSep & Space(24) & sSep & Space(14) & sSep & Space(2) & sSep & _
                     Space(9) & sSep,,0,,vbCyan
                     Scrivi String(8,"-"),,0,,vbRed
                     Scrivi sSep,,0,,vbCyan
                     Scrivi "-",,0,,vbRed
                     Scrivi sSep,,0,,vbCyan
                     Scrivi "-",,0,,vbRed
                     Scrivi sSep,,,,vbCyan
                     Rem rigo 4
                     Scrivi LineasTit,,,,vbCyan
                                       End If ' controllo se sono entrambi pari o dispari
                  Scrivi
                                End If ' Verifico che esistano gli estratti isotopi
               If ScriptInterrotto Then Exit For
            Next ' p
            If ScriptInterrotto Then Exit For
         End If ' verifico se l estrazione esiste
      Next ' R
      If ScriptInterrotto Then Exit For
      Call AvanzamentoElab(Ini,Fin,IdEstr)
   Next ' idestr
   Scrivi : Scrivi
   Scrivi " ",,0
   Scrivi "                                                                ",,,vbCyan
   Scrivi " ",,0
   Scrivi "                        RESOCONTO                               ",,,vbCyan
   Scrivi
   Scrivi "  Range Concorsi analizzati:               |  "& Ini&" - "&Fin,,,,vbCyan
   Scrivi "  --------------------------------------------------------------",,,,vbCyan
   Scrivi "  Numero Casi Totali:                      |  " & nCasiTro,,,,vbCyan
   Scrivi "  --------------------------------------------------------------",,,,vbCyan
   Scrivi "  Numero casi Giocabili a sinistra:        |  " & nCasiSin,,,,vbCyan
   Scrivi "  --------------------------------------------------------------",,,,vbCyan
   Scrivi "  Ambi a Ruota a Sinistra:                 |  " & FrzAsinRuotaTotale,,,,vbCyan
   Scrivi "  Ambi a Tutte a Sinistra:                 |  " & FrezAsinTutteTotale,,,,vbCyan
   Scrivi "  Ambi In Terzina 1 a Ruota a Sinistra:    |  " & FrzTern1SinRuotaTotale,,,,vbCyan
   Scrivi "  Ambi In Terzina 1 a Tutte a Sinistra:    |  " & FrzTern1SinTutteTotale,,,,vbCyan
   Scrivi "  Ambi In Terzina 2 a Ruota a Sinistra:    |  " & FrzTern2SinRuotaTotale,,,,vbCyan
   Scrivi "  Ambi In Terzina 2 a Tutte a Sinistra:    |  " & FrzTern2SinTutteTotale,,,,vbCyan
   Scrivi "  --------------------------------------------------------------",,,,vbCyan
   Scrivi "  Numero casi Giocabili a Destra:          |  " & nCasiDes,,,,vbCyan
   Scrivi "  ------------------------------------------ -------------------",,,,vbCyan
   Scrivi "  Ambi a Ruota a Destra:                   |  " & FrzADesRuotaTotale,,,,vbCyan
   Scrivi "  Ambi a Tutte a Destra:                   |  " & FrzAdesTutteTotale,,,,vbCyan
   Scrivi "  Ambi In Terzina 1 a Ruota a Destra:      |  " & FrzTern1DesRuotaTotale,,,,vbCyan
   Scrivi "  Ambi In Terzina 1 a Tutte a Destra:      |  " & FrzTern1DesTutteTotale,,,,vbCyan
   Scrivi "  Ambi In Terzina 2 a Ruota a Destra:      |  " & FrzTern2DesRuotaTotale,,,,vbCyan
   Scrivi "  Ambi In Terzina 2 a Tutte a Destra:      |  " & FrzTern2DesTutteTotale,,,,vbCyan
   Scrivi "  ---------------------------------------------------------------",,,,vbCyan
  
End Sub
Function Specchietto(aV)
   Dim R,s,s1,IdEstr,bRet,p,idR
   s = ""
   For R = 1 To 12
      If R = 11 Then R = 12
      s = s & Format2(R) & " )  " & SiglaRuota(R) & "... "
      s1 = ""
      For IdEstr = EstrazioneFin To EstrazioneFin - 9 Step - 1
         bRet = False
         For p = 1 To 5
            If Estratto(IdEstr,R,p) = Estratto(IdEstr - 1,R,p) Then bRet = True :Exit For
         Next 'p
         If bRet Then s1 = s1 & " x ":Else s1 = s1 & " 0 "
      Next 'idestr
      s = s & s1 & vbCrLf
   Next 'R
   idR = InputBox(s,"Seleziona Numero/i Ruota di Ricerca,separati da punto","1.2.3.4.5.6.7.8.9.10.12")
   If idR = "" Then Specchietto = False :Exit Function
   aV = Split("0." & idR,".")
   For p = 1 To UBound(aV)
      If isRuotaValidaLotto(aV(p)) And aV(p) <> 11 Then
         Specchietto = True
      Else
         Specchietto = False
         Exit For
      End If
   Next
End Function
Sub Calcola(E1p,E1S,E0p,E0s,aAmb,aTern1,aTern2)
   Dim op1:op1 = E1p + E1S
   Dim op2:op2 = Differenza(E0p,E0s)
   Dim op3:op3 = Fuori90((op1 + op2)/2)
   Dim op4:op4 = Fuori90(Differenza(op1,op3))
   Dim op5:op5 = Fuori90(op1 + 1)
   Dim op6:op6 = Fuori90(op1 + 2)
   aAmb = Array(0,op3,op4)
   aTern1 = Array(0,op3,op4,op5)
   aTern2 = Array(0,op3,op4,op6)
End Sub
Ciao a tutti :)
 
vi rimetto la descrizione questo metodo non è mio. vedere l'allegato e fate caso a quanto scritto in rosso
Inter operativo
rintracciare su una qualsiasi ruota un numero ripetuto per due estrazioni consecutive nella stessa posizione
i numeri che saranno alla sua destra o sinistra devono essere ho tutti e

2 pari o dispari
esempio 17 32 40 num. sin, disp.dx pari
20 32 12 num. Sin pari dx pari
in questo esempio noterai che i numeri di sinistra uno è dispari e l’altro pari invece rispettano la condizione i numeri di destra 40 12 che sono

tutti e due pari
a condizione rispettata si opera ne seguente modo
facendo riferimento all’esempio
si prenderanno i numeri in verticale
40 12 abbiamo una somma 52 e distanza 28
32 32 abbiamo una somma 64 e distanza 0
si prende la somma del numero ripetuto somma 64 e si addiziona la distanza 28 (ambo a destra)
in questo caso avremmo 64 +28=92
92 :2=46
64-46=18
ambo unico 46 18
tentativo di terno secco
alla somma dell’ambo secco dobbiamo aggiungere +1 e +2
46+18=64
64 +1=65
64+2=66
così nasce la previsione ambo secco 46 18 terni 46 18 65 - 46 18 66



un unico ambo secco e due terni secchi attenti alla previsione che ne esce
il 60 ripetuto noi abbiamo elaborato con i numeri di destra in orizzontale ora li elaboriamo in verticale
60 piu 60 abbiamo somma 120 distanza 0
33 piu 75 abbiamo somma 108 distanza 42
adesso andremmo a inserire la distanza 42 nella somma 120
120 piu 42 avremmo 162 dividendo x2 il risultato e 81
120 meno 81 e 39
ambo secco a bari e tutte e 81 39
per il tentativo di terno secco bisogna sommare lambo e avremmo
81+39 =120 fuori 90 =30
al n°30 sommeremo semplicemente +1
al n°30 sommeremo+2
ok BARI
AMBO 81-39
TERNO
81-39-31
81-39-32
 
i legend ha scritto:
Ciao a tutti ho provato a fare lo script ,
ma dovete verificare che i calcoli e i dati riportati sono corretti
nell input box di default vengono indicate tutte le ruote, ma si possono selezionare anche 1 o piu ruote l importante
è che siano separate dal punto
le x rappresentano dove si è verificato un caso di isotopiaconsecutiva
verificate e fatemi sapere
Salvo errori ed omissis
Ciao :)
Codice: 
Option Explicit
' Controllare se lo script Fa quanto richiesto
' controllare se i dati riportati sono corretti
' Salvo errori ed omissis

Sub Main
   Dim aRuSpia,nRuSpia
   nRuSpia = Specchietto(aRuSpia)
   If nRuSpia = False Then
      Call MsgBox("Hai inserito una o piu ruote non valide",4,"Errore Ruota")
      Exit Sub
   End If
   Dim Ini,Fin
   Call ScegliRange(Ini,Fin,3950,EstrazioneFin)
   Dim nClp:nClp = CInt(InputBox("Scegli numero compreso tra 1 e 30","Seleziona Colpi di gioco",18)) + 1
   Dim IdEstr,R,p,pp,ps
   Dim E1p,E1,Eps,Es,v1,v2
   Dim nCasiTro,nCasiSin,nCasiDes
   Dim aAmbD,aAmbS,aTern1S,aTern2S,aTern1D,aTern2D
   Dim aRuVer(1),aRt(1)
   Dim FrzAsinRuota,FrezAsinTutte,FrzAsinRuotaTotale,FrezAsinTutteTotale
   Dim FrzADesRuota,FrzAdesTutte,FrzADesRuotaTotale,FrzAdesTutteTotale
   Dim FrzTern1SinRuota,FrzTern1SinTutte,FrzTern1SinRuotaTotale,FrzTern1SinTutteTotale
   Dim FrzTern2SinRuota,FrzTern2SinTutte,FrzTern2SinRuotaTotale,FrzTern2SinTutteTotale
   Dim FrzTern1DesRuota,FrzTern1DesTutte,FrzTern1DesRuotaTotale,FrzTern1DesTutteTotale
   Dim FrzTern2DesRuota,FrzTern2DesTutte,FrzTern2DesRuotaTotale,FrzTern2DesTutteTotale
   Dim sSep:sSep = "  |  "
   Dim LineaStitSup:LineaStitSup = "  _________ ________________ ____________________________ __________________ ______ _____________ ____________ ___________ "
   Dim LineaStitSup1:LineaStitSup1 = " |         |                |                            |                  |      |             |            |    Ambo   |"
   Dim sTit:sTit = " |   nCaso |  Ruota         |   Info Estrazione          |    Estrazione    | nRpt |  Laterali   | Formazioni |RSpia|Tutte|"
   Dim LineasTit:LineasTit = " |_________|________________|____________________________|__________________|______|_____________|____________|_____|_____|"
 
      aRt(1) = 11
   nCasiTro = 0
   nCasiSin = 0
   nCasiDes = 0
 
   Call SetColorSezione(RGB(0,0,0))
   For IdEstr = Ini To Fin
      For R = 1 To UBound(aRuSpia)
         aRuVer(1) = aRuSpia(R)
         If Estratto(IdEstr - 1,aRuVer(1),1) Then
            For p = 1 To 5
               E1p = Estratto(IdEstr - 1,aRuVer(1),p)
               E1 = Estratto(IdEstr,aRuVer(1),p)
               If E1p = E1 Then
                  Scrivi LineaStitSup,,,,vbCyan
                  Scrivi LineaStitSup1,,,,vbCyan
                  Scrivi sTit,,,,vbCyan
                  Scrivi LineasTit,,,,vbCyan
                  nCasiTro = nCasiTro + 1
                  pp = FuoriX(p - 1,5) ' estratto a sinistra
                  ps = FuoriX(p + 1,5) ' estratto a destra
                  ' prendo gli estratti a sinistra
                  Eps = Estratto(IdEstr - 1,aRuVer(1),pp) ' estratto a sinistra estrazione precedente
                  Es = Estratto(IdEstr,aRuVer(1),pp) ' estratto asinistra estrazionein corso
                  v1 = pari(Eps)
                  v2 = pari(Es)
                 
                  If v1 = v2 Then
                 
                     nCasiSin = nCasiSin + 1
                     Call Calcola(E1p,E1,Eps,Es,aAmbS,aTern1S,aTern2S)
                     ' Calcolo la frequenza dell ambo a sinistra su ruota di verifica
                     FrzAsinRuota = SerieFreqTurbo(IdEstr + 1,IdEstr + nClp,aAmbS,aRuVer,2)
                     'calcolo la frequenza totale dell ambo a sinistra su ruota
                     FrzAsinRuotaTotale = FrzAsinRuotaTotale + FrzAsinRuota
                     ' calcolo la frequenza dell ambo a sinistra su tutte
                     FrezAsinTutte = SerieFreqTurbo(IdEstr + 1,IdEstr + nClp,aAmbS,aRt,2)
                     ' calcolo la frequenza  totale dell ambo a sinistra su tutte
                     FrezAsinTutteTotale = FrezAsinTutteTotale + FrezAsinTutte
                     ' Terzina 1
                     ' -------------------------------------------------------------------
                     ' calcolo la frequenza della prima terzina a sinistra a ruota
                     FrzTern1SinRuota = SerieFreqTurbo(IdEstr + 1,IdEstr + nClp,aTern1S,aRuVer,2)
                     'calcolo la frequenza totale della prima terzina a sinistra a ruota
                     FrzTern1SinRuotaTotale = FrzTern1SinRuotaTotale + FrzTern1SinRuota
                     ' Calcolo la frequenza della prima terzina a sinistra a tutte
                     FrzTern1SinTutte = SerieFreqTurbo(IdEstr + 1,IdEstr + nClp,aTern1S,aRt,2)
                     'calcolo la frequenza totale della prima terzina a sinistra a tutte
                     FrzTern1SinTutteTotale = FrzTern1SinTutteTotale + FrzTern1SinTutte
                     ' Terzina 2
                     ' --------------------------------------------------------------------
                     ' calcolo la frequenza della seconda terzina a sinistra a ruota
                     FrzTern2SinRuota = SerieFreqTurbo(IdEstr + 1,IdEstr + nClp,aTern2S,aRuVer,2)
                     'calcolo la frequenza totale della prima terzina a sinistra a ruota
                     FrzTern2SinRuotaTotale = FrzTern2SinRuotaTotale + FrzTern2SinRuota
                     ' Calcolo la frequenza della prima terzina a sinistra a tutte
                     FrzTern2SinTutte = SerieFreqTurbo(IdEstr + 1,IdEstr + nClp,aTern2S,aRt,2)
                     'calcolo la frequenza totale della prima terzina a sinistra a tutte
                     FrzTern2SinTutteTotale = FrzTern2SinTutteTotale + FrzTern2SinTutte
                     '
                     Rem comincio a preparare l output
                     ' Rigo 1
                     Scrivi " |   " & FormatSpace("",4) & sSep & FormatSpace("",12) & sSep & Space(24) & sSep & Space(14) & sSep & _
                     FormatSpace("",2) & sSep & FormatSpace("",9) & sSep & FormatSpace(StringaNumeri(aAmbS,,True),8) & sSep & _
                     FrzAsinRuota & sSep & FrezAsinTutte & sSep,,,,vbCyan
                     ' rigo 2
                     Scrivi " |   " & FormatSpace("",4) & sSep & FormatSpace("",12) & sSep & Space(24) & sSep & Space(14) & sSep & FormatSpace("",2) & sSep,,0,,vbCyan
                     Scrivi "S ( " & FormatSpace(Eps,2) & " ) ",1,0,,vbCyan
                     Scrivi sSep,,0,,vbCyan
                     Scrivi FormatSpace(StringaNumeri(aTern1S,,True),8),,0,,vbCyan
                     Scrivi sSep,,0,,vbCyan
                     Scrivi FrzTern1SinRuota,,0,,vbCyan
                     Scrivi sSep,,0,,vbCyan
                     Scrivi FrzTern1SinTutte,,0,,vbCyan
                     Scrivi sSep,,,,vbCyan
                     Rem rigo 3
                     Scrivi " |   " & FormatSpace(nCasiTro,4,1) & sSep & FormatSpace(NomeRuota(aRuVer(1)),12) & sSep & GetInfoEstrazione(IdEstr - 1) & sSep & StringaEstratti(IdEstr - 1,aRuVer(1)) & sSep & FormatSpace(E1p,2) & sSep,,0,,vbCyan
                     Scrivi "S ( " & FormatSpace(Es,2) & " ) ",1,0,,vbCyan
                     Scrivi sSep,,0,,vbCyan
                     Scrivi FormatSpace(StringaNumeri(aTern2S,,True),8),,0,,vbCyan
                     Scrivi sSep,,0,,vbCyan
                     Scrivi FrzTern2SinRuota,,0,,vbCyan
                     Scrivi sSep,,0,,vbCyan
                     Scrivi FrzTern2SinTutte,,0,,vbCyan
                     Scrivi sSep,,,,vbCyan
                  Else
                     Rem Rigo 1
                   
                     Scrivi " |   " & FormatSpace("",4) & sSep & FormatSpace("",12) & sSep & Space(24) & sSep & Space(14) & sSep & _
                     FormatSpace("",2) & sSep & FormatSpace("",9) & sSep,,0,,vbCyan
                     Scrivi String(8,"-"),,0,,vbRed
                     Scrivi sSep,,0,,vbCyan
                     Scrivi "-",,0,,vbRed
                     Scrivi sSep,,0,,vbCyan
                     Scrivi "-",,0,,vbRed
                     Scrivi sSep,,,,vbCyan
                     Rem  Rigo 2
                     Scrivi " |   " & FormatSpace("",4) & sSep & FormatSpace("",12) & sSep & Space(24) & sSep & Space(14) & sSep & FormatSpace("",2) & sSep,,0,,vbCyan
                     Scrivi "S ( " & FormatSpace(Eps,2) & " ) ",1,0,,vbRed
                     Scrivi sSep,,0,,vbCyan
                     Scrivi String(8,"-"),,0,,vbRed
                     Scrivi sSep,,0,,vbCyan
                     Scrivi "-",,0,,vbRed
                     Scrivi sSep,,0,,vbCyan
                     Scrivi "-",,0,,vbRed
                     Scrivi sSep,,,,vbCyan
                     Rem rigo 3
                     Scrivi " |   " & FormatSpace(nCasiTro,4,1) & sSep & FormatSpace(NomeRuota(aRuVer(1)),12) & sSep & GetInfoEstrazione(IdEstr - 1) & sSep & StringaEstratti(IdEstr - 1,aRuVer(1)) & sSep & FormatSpace(E1p,2) & sSep,,0,,vbCyan
                     Scrivi "S ( " & FormatSpace(Es,2) & " ) ",1,0,,vbRed
                     Scrivi sSep,,0,,vbCyan
                     Scrivi String(8,"-"),,0,,vbRed
                     Scrivi sSep,,0,,vbCyan
                     Scrivi "-",,0,,vbRed
                     Scrivi sSep,,0,,vbCyan
                     Scrivi "-",,0,,vbRed
                     Scrivi sSep,,,,vbCyan
                    '
                  End If ' qui controllo se entrambi gli estratti sono pari o dispari
                  Eps = Estratto(IdEstr - 1,aRuVer(1),ps) ' estratto a Destra estrazione precedente
                  Es = Estratto(IdEstr,aRuVer(1),ps) ' estratto a Destra estrazionein corso
                  v1 = pari(Eps)
                  v2 = pari(Es)
               
                  If v1 = v2 Then
                 
                     nCasiDes = nCasiDes + 1
                     Call Calcola(E1p,E1,Eps,Es,aAmbD,aTern1D,aTern2D)
                     ' Calcolo la frequenza dell ambo a sinistra su ruota di verifica
                     FrzADesRuota = SerieFreqTurbo(IdEstr + 1,IdEstr + nClp,aAmbD,aRuVer,2)
                     'calcolo la frequenza totale dell ambo a sinistra su ruota
                     FrzADesRuotaTotale = FrzADesRuotaTotale + FrzADesRuota
                     ' calcolo la frequenza dell ambo a sinistra su tutte
                     FrzAdesTutte = SerieFreqTurbo(IdEstr + 1,IdEstr + nClp,aAmbD,aRt,2)
                     ' calcolo la frequenza  totale dell ambo a sinistra su tutte
                     FrzAdesTutteTotale = FrzAdesTutteTotale + FrzAdesTutte
                     ' Terzina 1
                     ' -------------------------------------------------------------------
                     ' calcolo la frequenza della prima terzina a sinistra a ruota
                     FrzTern1DesRuota = SerieFreqTurbo(IdEstr + 1,IdEstr + nClp,aTern1D,aRuVer,2)
                     'calcolo la frequenza totale della prima terzina a sinistra a ruota
                     FrzTern1DesRuotaTotale = FrzTern1DesRuotaTotale + FrzTern1DesRuota
                     ' Calcolo la frequenza della prima terzina a sinistra a tutte
                     FrzTern1DesTutte = SerieFreqTurbo(IdEstr + 1,IdEstr + nClp,aTern1D,aRt,2)
                     'calcolo la frequenza totale della prima terzina a sinistra a tutte
                     FrzTern1DesTutteTotale = FrzTern1DesTutteTotale + FrzTern1DesTutte
                     ' Terzina 2
                     ' --------------------------------------------------------------------
                     ' calcolo la frequenza della seconda terzina a sinistra a ruota
                     FrzTern2DesRuota = SerieFreqTurbo(IdEstr + 1,IdEstr + nClp,aTern2D,aRuVer,2)
                     'calcolo la frequenza totale della prima terzina a sinistra a ruota
                     FrzTern2DesRuotaTotale = FrzTern2DesRuotaTotale + FrzTern2DesRuota
                     ' Calcolo la frequenza della prima terzina a sinistra a tutte
                     FrzTern2DesTutte = SerieFreqTurbo(IdEstr + 1,IdEstr + nClp,aTern2D,aRt,2)
                     'calcolo la frequenza totale della prima terzina a sinistra a tutte
                     FrzTern2DesTutteTotale = FrzTern2DesTutteTotale + FrzTern2DesTutte
                     '
                     Rem comincio a preparare l output
                     ' Rigo 1
                     Scrivi " |   " & FormatSpace(" ",4) & sSep & FormatSpace(" ",12) & sSep & GetInfoEstrazione(IdEstr) & sSep & StringaEstratti(IdEstr,aRuVer(1)) & sSep & _
                     FormatSpace("",2) & sSep,,0,,vbCyan
                     Scrivi "D ( " & FormatSpace(Eps,2) & " ) ",,0,,vbCyan
                     Scrivi sSep,,0,,vbCyan
                     Scrivi FormatSpace(StringaNumeri(aAmbD,,True),8),,0,,vbCyan
                     Scrivi sSep,,0,,vbCyan
                     Scrivi FrzADesRuota & sSep & FrzAdesTutte & sSep,,,,vbCyan
                     Rem  Rigo 2
                     Scrivi " |   " & FormatSpace("",4) & sSep & FormatSpace("",12) & sSep & Space(24) & sSep & Space(14) & sSep & FormatSpace("",2) & sSep,,0,,vbCyan
                     Scrivi "D ( " & FormatSpace(Es,2) & " ) ",,0,,vbCyan
                     Scrivi sSep,,0,,vbCyan
                     Scrivi FormatSpace(StringaNumeri(aTern1D,,True),8),,0,,vbCyan
                     Scrivi sSep,,0,,vbCyan
                     Scrivi FrzTern1DesRuota & sSep & FrzTern1DesTutte & sSep,,,,vbCyan
                     Rem rigo 3
                     Scrivi " |   " & FormatSpace("",4) & sSep & FormatSpace("",12) & sSep & Space(24) & sSep & Space(14) & sSep & Space(2) & sSep & _
                     Space(9) & sSep & FormatSpace(StringaNumeri(aTern2D,,True),8) & sSep & _
                     FrzTern2DesRuota & sSep & FrzTern2DesTutte & sSep,,,,vbCyan
                     Rem rigo 4
                     Scrivi LineasTit,,,,vbCyan
                                      Else
                 
                     Scrivi " |   " & FormatSpace(" ",4) & sSep & FormatSpace(" ",12) & sSep & GetInfoEstrazione(IdEstr) & sSep & StringaEstratti(IdEstr,aRuVer(1)) & sSep & _
                     FormatSpace("",2) & sSep,,0,,vbCyan
                     Scrivi "D ( " & FormatSpace(Eps,2) & " ) ",1,0,,vbRed
                     Scrivi sSep,,0,,vbCyan
                     Scrivi String(8,"-"),,0,,vbRed
                     Scrivi sSep,,0,,vbCyan
                     Scrivi "-",,0,,vbRed
                     Scrivi sSep,,0,,vbCyan
                     Scrivi "-",,0,,vbRed
                     Scrivi sSep,,,,vbCyan
                     Rem  Rigo 2
                     Scrivi " |   " & FormatSpace("",4) & sSep & FormatSpace("",12) & sSep & Space(24) & sSep & Space(14) & sSep & FormatSpace("",2) & sSep,,0,,vbCyan
                     Scrivi "D ( " & FormatSpace(Es,2) & " ) ",1,0,,vbRed
                     Scrivi sSep,,0,,vbCyan
                     Scrivi String(8,"-"),,0,,vbRed
                     Scrivi sSep,,0,,vbCyan
                     Scrivi "-",,0,,vbRed
                     Scrivi sSep,,0,,vbCyan
                     Scrivi "-",,0,,vbRed
                     Scrivi sSep,,,,vbCyan
                     Rem rigo 3
                     Scrivi " |   " & FormatSpace("",4) & sSep & FormatSpace("",12) & sSep & Space(24) & sSep & Space(14) & sSep & Space(2) & sSep & _
                     Space(9) & sSep,,0,,vbCyan
                     Scrivi String(8,"-"),,0,,vbRed
                     Scrivi sSep,,0,,vbCyan
                     Scrivi "-",,0,,vbRed
                     Scrivi sSep,,0,,vbCyan
                     Scrivi "-",,0,,vbRed
                     Scrivi sSep,,,,vbCyan
                     Rem rigo 4
                     Scrivi LineasTit,,,,vbCyan
                                       End If ' controllo se sono entrambi pari o dispari
                  Scrivi
                                End If ' Verifico che esistano gli estratti isotopi
               If ScriptInterrotto Then Exit For
            Next ' p
            If ScriptInterrotto Then Exit For
         End If ' verifico se l estrazione esiste
      Next ' R
      If ScriptInterrotto Then Exit For
      Call AvanzamentoElab(Ini,Fin,IdEstr)
   Next ' idestr
   Scrivi : Scrivi
   Scrivi " ",,0
   Scrivi "                                                                ",,,vbCyan
   Scrivi " ",,0
   Scrivi "                        RESOCONTO                               ",,,vbCyan
   Scrivi
   Scrivi "  Range Concorsi analizzati:               |  "& Ini&" - "&Fin,,,,vbCyan
   Scrivi "  --------------------------------------------------------------",,,,vbCyan
   Scrivi "  Numero Casi Totali:                      |  " & nCasiTro,,,,vbCyan
   Scrivi "  --------------------------------------------------------------",,,,vbCyan
   Scrivi "  Numero casi Giocabili a sinistra:        |  " & nCasiSin,,,,vbCyan
   Scrivi "  --------------------------------------------------------------",,,,vbCyan
   Scrivi "  Ambi a Ruota a Sinistra:                 |  " & FrzAsinRuotaTotale,,,,vbCyan
   Scrivi "  Ambi a Tutte a Sinistra:                 |  " & FrezAsinTutteTotale,,,,vbCyan
   Scrivi "  Ambi In Terzina 1 a Ruota a Sinistra:    |  " & FrzTern1SinRuotaTotale,,,,vbCyan
   Scrivi "  Ambi In Terzina 1 a Tutte a Sinistra:    |  " & FrzTern1SinTutteTotale,,,,vbCyan
   Scrivi "  Ambi In Terzina 2 a Ruota a Sinistra:    |  " & FrzTern2SinRuotaTotale,,,,vbCyan
   Scrivi "  Ambi In Terzina 2 a Tutte a Sinistra:    |  " & FrzTern2SinTutteTotale,,,,vbCyan
   Scrivi "  --------------------------------------------------------------",,,,vbCyan
   Scrivi "  Numero casi Giocabili a Destra:          |  " & nCasiDes,,,,vbCyan
   Scrivi "  ------------------------------------------ -------------------",,,,vbCyan
   Scrivi "  Ambi a Ruota a Destra:                   |  " & FrzADesRuotaTotale,,,,vbCyan
   Scrivi "  Ambi a Tutte a Destra:                   |  " & FrzAdesTutteTotale,,,,vbCyan
   Scrivi "  Ambi In Terzina 1 a Ruota a Destra:      |  " & FrzTern1DesRuotaTotale,,,,vbCyan
   Scrivi "  Ambi In Terzina 1 a Tutte a Destra:      |  " & FrzTern1DesTutteTotale,,,,vbCyan
   Scrivi "  Ambi In Terzina 2 a Ruota a Destra:      |  " & FrzTern2DesRuotaTotale,,,,vbCyan
   Scrivi "  Ambi In Terzina 2 a Tutte a Destra:      |  " & FrzTern2DesTutteTotale,,,,vbCyan
   Scrivi "  ---------------------------------------------------------------",,,,vbCyan
 
End Sub
Function Specchietto(aV)
   Dim R,s,s1,IdEstr,bRet,p,idR
   s = ""
   For R = 1 To 12
      If R = 11 Then R = 12
      s = s & Format2(R) & " )  " & SiglaRuota(R) & "... "
      s1 = ""
      For IdEstr = EstrazioneFin To EstrazioneFin - 9 Step - 1
         bRet = False
         For p = 1 To 5
            If Estratto(IdEstr,R,p) = Estratto(IdEstr - 1,R,p) Then bRet = True :Exit For
         Next 'p
         If bRet Then s1 = s1 & " x ":Else s1 = s1 & " 0 "
      Next 'idestr
      s = s & s1 & vbCrLf
   Next 'R
   idR = InputBox(s,"Seleziona Numero/i Ruota di Ricerca,separati da punto","1.2.3.4.5.6.7.8.9.10.12")
   If idR = "" Then Specchietto = False :Exit Function
   aV = Split("0." & idR,".")
   For p = 1 To UBound(aV)
      If isRuotaValidaLotto(aV(p)) And aV(p) <> 11 Then
         Specchietto = True
      Else
         Specchietto = False
         Exit For
      End If
   Next
End Function
Sub Calcola(E1p,E1S,E0p,E0s,aAmb,aTern1,aTern2)
   Dim op1:op1 = E1p + E1S
   Dim op2:op2 = Differenza(E0p,E0s)
   Dim op3:op3 = Fuori90((op1 + op2)/2)
   Dim op4:op4 = Fuori90(Differenza(op1,op3))
   Dim op5:op5 = Fuori90(op1 + 1)
   Dim op6:op6 = Fuori90(op1 + 2)
   aAmb = Array(0,op3,op4)
   aTern1 = Array(0,op3,op4,op5)
   aTern2 = Array(0,op3,op4,op6)
End Sub

il colore di fondo rispetto al colore dei numeri da un pò fastidio, il programma è ok manca eventuale ricerca del terno,  grazie. 
volvo chiederti se io lo volessi far giraare su excelvba e non su spaziometria, quale istruzione dovrei cambiare per la ricerca dell'rchivio? grazie.
Ciao a tutti :)
Clicca per espandere...
 
Hanno partecipato attivamente alla discussione una decina di persone , ovviamente non mi aspettavo un grazie per il tempo dedicato allo script,( nessuno me l ha chiesto e l ho fatto volentieri) ma almeno una risposta alla domanda : fatemi sapere se va bene, quello si .
Non mi piace rilasciare lavori non funzionanti .
Cordialmente i legend.
 
i legend ha scritto:
Hanno partecipato attivamente alla discussione una decina di persone , ovviamente non mi aspettavo un grazie per il tempo dedicato allo script,( nessuno me l ha chiesto e l ho fatto volentieri) ma almeno una risposta alla domanda : fatemi sapere se va bene, quello si .
Non mi piace rilasciare lavori non funzionanti .
Cordialmente i legend.
Clicca per espandere...
ciao io ho risposto al tuo script vedi sottoil listato, funziona solo che non so se nel listato sono previsti solo ambi e anche terni. grazie
 
Ciao .
Lo script calcola gli ambi in terzina ,quindi se viene estratto un terno vengono calcolati 3 ambi.
Se nelle estrazioni di verifica sortiscono 2 ambi vengono conteggiati.
Non vengono conteggiati i casi positivi, non era nella descrizione che avete dato del metodo.
Ciao .
 
Ciao allego immagine
con le voci casi coperti , la multifrequenza in un caso viene considerata 1 a copertura
resocontoTestScript1.png
Non so se la statistica che ho ottenuto sia esatta . fate voi le vostre verifiche con altre fonti
Ciao
 
Ciao legend, non prendertela troppo. Se leggi i post dietro ti renderai conto che neanche io ho mai avuto conferma sul funzionamento dello script anzi io stesso mi accorgevo degli errori commessi e lo riproponevo e, come detto, io non sono un esperto, ciò che tu sei in grado di fare in mezz'ora a me implica un paio di giorni.
Con stima Giovanni.
 
Ciao vengio,
Fa sempre piacere vedere qualcuno che si diletta a fare i listati.
La velocità viene con l esercizio .:)
Grazie e buona serata.
Se lo script fa i calcoli esatti sono contento :)
 
Buonasera a tutti ho notato un altro evento con l'ultima estrazione con il 55 isotopo su Bari e Cagliari sapreste fornire una previsione?
 
ciccioriccio ha scritto:
Capisco ma ora cosa si può giocare?
Clicca per espandere...
26.11.2019 BA 88.26.64.43.61 BA 61 in 5° Posizione
28.11.2019 BA 72.29.46.75.61 BA 61 in 5° Posizione(Ripetuto in estrazione consecutiva)
53 69 33 34 Posizione destra 88 e 72
**************************************************************************************************************
Estrazione generatrice del pronostico 09714 [143 - 28/11/2019]
G 0004 Numeri in gioco : 53.69 su BA TT per Ambo,Terno
In corso per altre 11 estrazioni
G 0005 Numeri in gioco : 53.69.33 su BA TT per Ambo,Terno
In corso per altre 11 estrazioni
G 0006 Numeri in gioco : 53.69.34 su BA TT per Ambo,Terno
In corso per altre 11 estrazioni
26.11.2019 BA 88.26.64.43.61 BA 61 in 5° Posizione
28.11.2019 BA 72.29.46.75.61 BA 61 in 5° Posizione(Ripetuto in estrazione consecutiva)
77 45 33 34 Posizione sinistra 43 e 75
**************************************************************************************************************
Estrazione generatrice del pronostico 09714 [143 - 28/11/2019]
G 0001 Numeri in gioco : 77.45 su BA TT per Ambo,Terno
In corso per altre 11 estrazioni
G 0002 Numeri in gioco : 77.45.33 su BA TT per Ambo,Terno
In corso per altre 11 estrazioni
G 0003 Numeri in gioco : 77.45.34 su BA TT per Ambo,Terno
In corso per altre 11 estrazioni
Queste non si sono ancora sfaldate
 
vengio ha scritto:
Ciao legend, non prendertela troppo. Se leggi i post dietro ti renderai conto che neanche io ho mai avuto conferma sul funzionamento dello script anzi io stesso mi accorgevo degli errori commessi e lo riproponevo e, come detto, io non sono un esperto, ciò che tu sei in grado di fare in mezz'ora a me implica un paio di giorni.
Con stima Giovanni.
Clicca per espandere...
ho sempre risposta ai tuoi listati grazie comunque
 
Alberto Anderlini ha scritto:
ho sempre risposta ai tuoi listati grazie comunque
Clicca per espandere...
Mi riferivo solo alla conferma dell'esattezza dei calcoli, quella effettivamente non c' mai stata, infatti come scritto i stesso mi accorgevo dei problemi degli script. Comunque non era una polemica ma per quietare i legend che tra gli scripter è sul serio una leggenda. Se ti ho offeso chiedo scusa.
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 23 gennaio 2025
    Bari
    86
    50
    83
    38
    78
    Cagliari
    11
    36
    52
    31
    74
    Firenze
    56
    59
    86
    27
    84
    Genova
    03
    61
    53
    11
    38
    Milano
    13
    14
    79
    87
    47
    Napoli
    21
    90
    48
    55
    37
    Palermo
    56
    46
    59
    02
    53
    Roma
    74
    13
    07
    38
    77
    Torino
    27
    54
    62
    36
    81
    Venezia
    09
    14
    69
    28
    62
    Nazionale
    32
    73
    27
    11
    51
    Estrazione Simbolotto
    Bari
    36
    27
    19
    08
    24
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto