Novità

Million Day Matrici o Quadrati e Vari Dati

R

Rubino

Guest
Come promesso, ecco la prima previsione Reale in gioco

Cattura.GIF

la condizione che si è verificata che sulla ruota di ROMA-TORINO, di somma 49, preannuncia che c'è in arrivo qualche ambo relativo a tale somma
disposizioni , doppio 46
66 66
44 73



RO-TO e TUTTE

ambi 05 44 * 22 27 * 07 42

6 colpi
 
Ultima modifica di un moderatore:

Serpico 90

Advanced Member
Buona sera Rubino.....sempre forte nel creare nuovi studi sul lotto........
Scusa se mi permetto scrivere qui.......non avendo altro modo....Per cortesia io avevo nel mio vecchio cumputer un tuo lavoro ..che per me era importante nel fare delle ricerche .....si chiama Forecast Ambi non riesco piu a trovarlo per poterlo scaricare.....cortesemente se hai una copia potresti inviarmelo?
se lo puoi fare mi dai cortesemente una gradita risposta e poi vediamo come fare
Grazie ....
 
R

Rubino

Guest
ciao serpico 90

volevo sapere se è questo l'output che ti dava o è un altro?

se è questo nel pomeriggio te lo posto.

Cattura.GIF
 
R

Rubino

Guest
questo è lo script, non dovrebbe essere diverso da quello di vecchia data.
ultima modifica fatta risale febbraio 2018
è possibile scegliere la RUOTA
è necessario impostare RF o TT
scegli solo per classe 2, cioè ambi


le altre possibilità o parametri che chiede, non mi ricordo cosa fanno, e non sono indispensabili
per una ricerca sugli ambi.

fammi sapere se funziona tutto normalmente.


Codice:
'Gaussiana delle Frequenze Ambi Capogioco - Rubino
Sub Main()
   Dim Nu(2),teo(90),teoru(15),Mediacicli(4,90),MINMAX(9999,3)
   Dim N1,N2,Ini,dal,Fin,ambo,q,N,ru,riga,capog,ct,ctz,ctq,retro,riga2,max,des1,rtt,dif,min,medteo,des,deviazione,somma,sommat,I,Inx,gapt,al,det
   Dim Classe,colonne,k,j,scolonna,s,y,v,Ritardo,RitardoMax,IncrRitMax,Frequenza,aRetRitardi,aRetIdEstr,rt1,rt2,svilfre,MEDIA,MEDIAT,Iny,ALTA,BASSA,cicli,ran
   Dim qtateo,es,r,p,Sm,Medfre,systema,solo,rigaout,rigpre,MinimoRITARDO,key,Ord,ca,retestratti,retidestr,ctw,xb,elenco,rita,freqtot,rteomax,tfreq,retfre,qtsr,h
   Dim nm(10),snr(90),Np(90)
   '   teo(1) = 0.0000000  0.00 '   teo(2) = 0.0000003  0.00 '   teo(3) = 0.0000026  0.00 '   teo(4) = 0.0000165  0.00
   '   teo(5) = 0.0000844  0.00 '   teo(6) = 0.0003584  0.02 '   teo(7) = 0.0013031  0.06 '   teo(8) = 0.0041422  0.19
   '   teo(9) = 0.0116917  0.53 '   teo(10) = 0.0296708  1.34 '   teo(11) = 0.0683834  3.08 '   teo(12) = 0.1443260  6.49
   '   teo(13) = 0.2808905  12.64 '   teo(14) = 0.5071134  22.82 '   teo(15) = 0.8536300  38.41 '   teo(16) = 1.3457516  60.56
   '   teo(17) = 1.9947571  89.76 '   teo(18) = 2.7896518  125.53 '   teo(19) = 3.6922139  166.15 '   teo(20) = 4.6377232  208.70
   '   teo(21) = 5.5423069  249.40 '   teo(22) = 6.3158170  284.21 '   teo(23) = 6.8773246  309.48 '   teo(24) = 7.1693834  322.62
   '   teo(25) = 7.1675474  322.54 '   teo(26) = 6.8830481  309.74 '   teo(27) = 6.3585042  286.13 '   teo(28) = 5.6583360  254.63
   '   teo(29) = 4.8566405  218.55 '   teo(30) = 4.0254357  181.14 '   teo(31) = 3.2255360  145.15 '   teo(32) = 2.5012359  112.56
   '   teo(33) = 1.8788627  84.55 '   teo(34) = 1.3684268  61.58 '   teo(35) = 0.9671851  43.52 '   teo(36) = 0.6639164  29.88
   '   teo(37) = 0.4429632  19.93 '   teo(38) = 0.2874679  12.94 '   teo(39) = 0.1815845  8.17 '   teo(40) = 0.1117175  5.03
   '   teo(41) = 0.0669865  3.01 '   teo(42) = 0.0391684  1.76 '   teo(43) = 0.0223466  1.01 '   teo(44) = 0.0124466  0.56
   '   teo(45) = 0.0067713  0.30 '   teo(46) = 0.0036000  0.16 '   teo(47) = 0.0018712  0.08 '   teo(48) = 0.0009514  0.04
   '   teo(49) = 0.0004733  0.02 '   teo(50) = 0.0002306  0.01 '   teo(51) = 0.0001100  0.00 '   teo(52) = 0.0000514  0.00
   '   teo(53) = 0.0000235  0.00 '   teo(54) = 0.0000106  0.00 '   teo(55) = 0.0000047  0.00 '   teo(56) = 0.0000020  0.00
   '   teo(57) = 0.0000009  0.00 '   teo(58) = 0.0000004  0.00 '   teo(59) = 0.0000001  0.00 '   teo(60) = 0.0000001  0.00
   '----------------------------------------------------------------------------------------------------------------------------
   ' formula per calcolo teorico e MEDIA teorica in tot.estrazioni
   ' Nr.estrazioni lunghezza periodo estrazioni Base di calcolo  esempio: 1000 estrazioni
   ' 4005 ambi tot.  su tutte le ruote ne vengono estratti 100 ad ogni estrazione  (4005/100) = 40,05 ciclo teorico estrazioni
   ' calcolo media =  1000estrazioni/40,05  ottengono 24,968789
   '----------------------------------------------------------------------------------------------------------------------------
   ' nr.estrazioni 1000   18 numeri formano 153 ambi   ciclo teorico =  1000/(4005/100)*153   risulta 26,17647059
   ' calcolo media = 1000/26,1764706   =   38,202247
   '----------------------------------------------------------------------------------------------------------------------------
   ''''teorici su ruota fissa in 1000 estrazioni
   teoru(0) = 7.285
   teoru(1) = 8.256
   teoru(2) = 22.851
   teoru(3) = 19.050
   teoru(4) = 11.899
   teoru(5) = 5.940
   teoru(6) = 2.468
   teoru(7) = 0.878
   teoru(8) = 0.273
   teoru(9) = 0.075
   teoru(10) = 0.019
   teoru(11) = 0.004
   teoru(12) = 0.001
   teoru(13) = 0.001
   teoru(14) = 0.001
   teo(1) = 0.0000000
   teo(2) = 0.0000003
   teo(3) = 0.0000026
   teo(4) = 0.0000165
   teo(5) = 0.0000844
   teo(6) = 0.0003584
   teo(7) = 0.0013031
   teo(8) = 0.0041422
   teo(9) = 0.0116917
   teo(10) = 0.0296708
   teo(11) = 0.0683834
   teo(12) = 0.1443260
   teo(13) = 0.2808905
   teo(14) = 0.5071134
   teo(15) = 0.8536300
   teo(16) = 1.3457516
   teo(17) = 1.9947571
   teo(18) = 2.7896518
   teo(19) = 3.6922139
   teo(20) = 4.6377232
   teo(21) = 5.5423069
   teo(22) = 6.3158170
   teo(23) = 6.8773246
   teo(24) = 7.1693834
   teo(25) = 7.1675474
   teo(26) = 6.8830481
   teo(27) = 6.3585042
   teo(28) = 5.6583360
   teo(29) = 4.8566405
   teo(30) = 4.0254357
   teo(31) = 3.2255360
   teo(32) = 2.5012359
   teo(33) = 1.8788627
   teo(34) = 1.3684268
   teo(35) = 0.9671851
   teo(36) = 0.6639164
   teo(37) = 0.4429632
   teo(38) = 0.2874679
   teo(39) = 0.1815845
   teo(40) = 0.1117175
   teo(41) = 0.0669865
   teo(42) = 0.0391684
   teo(43) = 0.0223466
   teo(44) = 0.0124466
   teo(45) = 0.0067713
   teo(46) = 0.0036000
   teo(47) = 0.0018712
   teo(48) = 0.0009514
   teo(49) = 0.0004733
   teo(50) = 0.0002306
   teo(51) = 0.0001100
   teo(52) = 0.0000514
   teo(53) = 0.0000235
   teo(54) = 0.0000106
   teo(55) = 0.0000047
   teo(56) = 0.0000020
   teo(57) = 0.0000009
   teo(58) = 0.0000004
   teo(59) = 0.0000001
   teo(60) = 0.0000001
   ru = CInt(InputBox("Elabora su Ruota ",,1))
   Fin = InputBox("All.estrazione n.",,EstrazioneFin)
   solo = InputBox("Ruota Fissa oppure Tutte? RF/TT ",,"RF")
   capog = CInt(InputBox("Capogioco richiesto ",,1))
   svilfre = CInt(InputBox("Sviluppa ritardi frequenza..",,3))
   Classe = CInt(InputBox("Sviluppo in classe..",,2))
   s = InputBox(" Sorte di 1=Ambata  2=Ambo  3=Terno ",,2)
   retro = CInt(InputBox("Statistica Ultime Estrazioni n.",,1000))
   Ini = Fin - retro
   det = InputBox("Vuoi dettaglio dei cicli? SI/NO",,"NO")
   systema = InputBox("Vuoi sviluppo sistema in classi? SI/NO ",,"NO")
   Ord = InputBox("Ordina colonna riepilogo  1=Freq.Reale   3=RitMINMAX ",,1)
   ran =(Fin - 3950)*10
   If solo = "RF" Then
      s = 2
      Classe = 2
   End If
   If ru = 11 Then
      medteo = Round(1000/(4005/100),6)
      qtateo = Round(medteo*89,2)
      If Classe = 3 Then Medfre = 136.60465/2
      If Classe = 4 Then Medfre = 69.89987/2
      If Classe = 5 Then Medfre = 42.92650/2
   Else
      medteo = Round(1000/(4005/10),6)
      qtateo = Round(medteo * 89,2)
      If Classe = 3 Then Medfre = 136.60465/2
      If Classe = 4 Then Medfre = 69.89987/2
      If Classe = 5 Then Medfre = 42.92650/2
   End If
   '''----------------------------------------------------------------------------------------
   '''Metodo - calcola presenze nei 70 concorsi precedenti dei 90 numeri
   ReDim ar(1)
   ar(1) = r
   dal = Fin - 70
   al = Fin
   For r = 1 To 10 ''''
      For es = dal To al
         For p = 1 To 5 ''' considero gli estratti
            Np(Estratto(es,r,p)) = Np(Estratto(es,r,p)) + 1
         Next
      Next
   Next
   '''----------------------------------------------------------------------------------------
   For capog = 1 To 90
      If ScriptInterrotto Then Exit For
      Call AvanzamentoElab(1,90,capog)
      Messaggio(capog)
      ReDim atitoli2(17),avalori2(17)
      ' preimposto i titoli delle colonne
      atitoli2(1) = " Freq. "
      atitoli2(2) = " "
      atitoli2(3) = " Pres.Teor. "
      atitoli2(4) = " Diff.1°  "
      atitoli2(5) = " 3ciclo pr.  "
      atitoli2(6) = " 2ciclo pr.  "
      atitoli2(7) = " 1ciclo pr.  "
      atitoli2(8) = " Reali pr.Att"
      atitoli2(9) = " Media Centrata"
      atitoli2(10) = " Diff.Reale "
      atitoli2(11) = " E l e n c o   A m b i "
      atitoli2(12) = " SommaR."
      atitoli2(13) = " Med.Rit"
      atitoli2(14) = " Rit.Min"
      atitoli2(15) = " Rifer. "
      atitoli2(16) = " Freq.tot "
      atitoli2(17) = " Rit.Teo.Max"
      ' ' inizializzo la tabella
      SetTableWidth("95%")
      Call InitTabella(atitoli2,2,"center",1.5,5,"Arial")
      '-------------------------------------------------------------------------------
      Ini = Fin -(4*retro) + 1
      For cicli = 1 To 3
         al = Ini + retro - 1
         ct = 0
         ctz = 0
         riga = ""
         riga2 = ""
         min = 0
         max = 0
         ReDim fr(8990,1)
         ''''calcola frequenze reali 3 cicli precedenti
         min = 999
         For N1 = 1 To 89
            Nu(1) = N1
            For N2 = N1 + 1 To 90
               Nu(2) = N2
               If N1 = capog Or N2 = capog Then
                  ambo = Format2(N1) & Format2(N2)
                  rita = AmboRitardo(ru,Nu(1),Nu(2),EstrazioneIni,Fin)
                  If rita > 0 Then
                     fr(ambo,1) = rita
                     fr(ambo,0) = AmboFrequenza(ru,Nu(1),Nu(2),Ini,al)
                     If fr(ambo,0) < min Then
                        min = fr(ambo,0)
                     End If
                     If fr(ambo,0) > max Then
                        max = fr(ambo,0)
                     End If
                  End If
               End If
            Next
         Next
         ''''calcola quanti numeri hanno frequenza breve uguale
         ReDim Nr(90)
         For q = min To max
            riga = ""
            ct = 0
            ctz = 0
            Sm = 0
            For N1 = 1 To 89
               For N2 = N1 + 1 To 90
                  ambo = Format2(N1) & Format2(N2)
                  If fr(ambo,0) = q Then
                     If N1 = capog Or N2 = capog Then
                        riga = riga & Format2(N1) & Format2(N2) & " | "
                        ct = ct + 1
                        ctz = ctz + 1
                     End If
                  End If
               Next
            Next
            ''''per gap di frequenza rigira nelle 2 freq.precedenti
            If ct = 0 And ctz > 0 Or svilfre = q - 1 Then
               riga2 = ""
               For N1 = 1 To 89
                  For N2 = N1 + 1 To 90
                     ambo = Format2(N1) & Format2(N2)
                     If fr(ambo,0) = q - 1 Then
                        If N1 = capog Or N2 = capog Then
                           Nr(N1) = 1
                           Nr(N2) = 1
                        End If
                     End If
                  Next
               Next
               riga2 = riga2 & "   gap prendo 2 freq.prec.  "
            End If
            If ct > 0 Then
               Mediacicli(cicli,q) = ct
            Else
               Mediacicli(cicli,q) = ct
            End If
         Next
         Ini = Ini + retro
      Next
      '-------------------------------------------------------------------------------
      ''''calcola frequenza attuale ultimo ciclo all'estrazione fine
      Ini = Fin - retro + 1
      min = 999
      For N1 = 1 To 89
         Nu(1) = N1
         For N2 = N1 + 1 To 90
            Nu(2) = N2
            If N2 = capog Or N1 = capog Then
               ambo = Format2(N1) & Format2(N2)
               fr(ambo,0) = AmboFrequenza(ru,Nu(1),Nu(2),Ini,Fin)
               If fr(ambo,0) < min Then
                  min = fr(ambo,0)
               End If
               If fr(ambo,0) > max Then
                  max = fr(ambo,0)
               End If
            End If
         Next
      Next
      '''''media A correzione presenze teoriche
      If ru = 11 Then
         Inx = min - 1
         For Inx = Inx + 1 To max
            Iny = Iny + 1
            somma = somma + teo(Inx)
         Next
      Else
         Inx = min - 1
         For Inx = Inx + 1 To max
            Iny = Iny + 1
            somma = somma + teoru(Inx)
         Next
      End If
      sommat = somma / Iny
      ColoreTesto(2)
      Scrivi " Rubino -   Gaussiana Frequenza Ambi sulla ruota di " & NomeRuota(ru),1
      ColoreTesto(1)
      Scrivi " Ambi Aventi Capogioco.." & capog & "              Attenzione colonne Giallo SottoPresenze ( Reale-Centrata ) = diff ",1
      ColoreTesto(2)
      Scrivi " Statistica CICLI Estrazioni n." & retro & "       Attenzione colonne verde  Plus Presenze ( Reale-Centrata ) = diff ",1
      ColoreTesto(1)
      Scrivi " Dall'estrazione n." & Ini & "/" & DataEstrazione(Ini) & " all.estrazione n." & Fin & "/" & DataEstrazione(Fin),1
      Scrivi "----------------------------------------------------------------------------------",1
      ColoreTesto(0)
      Inx = 0 :    MEDIAT = 0
      ''''calcola quanti numeri hanno frequenza breve uguale
      ReDim Nr(90),anr(2),ar(1)
      For q = min To max
         riga = "" : ct = 0 : Sm = 0 : tfreq = 0
         MinimoRITARDO = 99999
         For N1 = 1 To 89
            For N2 = N1 + 1 To 90
               ambo = Format2(N1) & Format2(N2)
               If fr(ambo,0) = q Then
                  If N2 = capog Or N1 = capog Then
                     riga = riga & Format2(N1) & Format2(N2) & " | "
                     ct = ct + 1
                     ctz = ctz + 1
                     Sm = Sm + Int(fr(ambo,1))
                     If Int(fr(ambo,1)) < MinimoRITARDO Then
                        MinimoRITARDO = Int(fr(ambo,1))
                     End If
                  End If
               End If
            Next
         Next
         ''''per gap di frequenza rigira nelle 2 freq.precedenti
         If ct = 0 And ctz > 0 Or svilfre = q - 1 Then
            riga2 = "" : tfreq = 0
            For N1 = 1 To 89
               For N2 = N1 + 1 To 90
                  ambo = Format2(N1) & Format2(N2)
                  If fr(ambo,0) = q - 1 Then
                     If N2 = capog Or N1 = capog Then
                        anr(1) = N1 : anr(2) = N2: ar(1) = ru
                        Call StatisticaFormazioneTurbo(anr,ar,2,,,,retfre,3950,Fin)
                        tfreq = tfreq + retfre
                        riga2 = riga2 & Format2(N1) & Format2(N2) & " | "
                        Nr(N1) = 1
                        Nr(N2) = 1
                     End If
                  End If
               Next
            Next
         End If
         Inx = Inx + 1
         MEDIAT = MEDIAT + Round(ct / 89,6) * 100
         MEDIA = MEDIAT / Inx
         ALTA = MEDIA * 2
         BASSA = Round(MEDIA,6) - Round((deviazione * 2),6)
         If ct = 0 And ctz > 0 Then
            gapt = gapt + 1
            avalori2(1) = Format2(q)
            avalori2(2) = " "
            If Int(ru) = 11 Then avalori2(3) = teo(q)
            If Int(ru) <> 11 Then avalori2(3) = teoru(q)
            avalori2(4) = ct - avalori2(3)
            avalori2(5) = Mediacicli(1,q)
            avalori2(6) = Mediacicli(2,q)
            avalori2(7) = Mediacicli(3,q)
            avalori2(8) = ct
            avalori2(9) = Round((avalori2(5) + avalori2(6) + avalori2(7) + avalori2(8)) / 4,2)
            avalori2(10) = Round(avalori2(8) - avalori2(9),2)
            avalori2(11) = "   gap prendo 2 freq.prec.  "
            avalori2(12) = 0
            avalori2(13) = 0
            avalori2(14) = 0
            avalori2(15) = NomeRuota(ru) & "..." & capog
            '''calcola frequenza totale delle combinazioni include in questa freq.
            tfreq = 0
            ReDim nrambi(90)
            Call SplitByChar(riga," | ",nrambi)
            qtsr = UBound(nrambi)
            For h = 0 To ct
               anr(1) = Left(nrambi(h),2) : anr(2) = Right(nrambi(h),2) :ar(1) = ru
               Call StatisticaFormazioneTurbo(anr,ar,2,,,,retfre,3950,Fin)
               tfreq = tfreq + retfre
               '''''''''''         Scrivi anr(1) & " " & anr(2) & "....." & SiglaRuota(ar(1)) & "........" & retfre
            Next
            avalori2(16) = tfreq
            If tfreq > 0 Then
               avalori2(17) = Round(1 /(tfreq/ran),1)
            Else
               avalori2(17) = 0
            End If
            Call AddRigaTabella(avalori2,Bianco_,"left",1)
            Call SetColoreCella(11,RGB(252,255,193),vbBlack)
            Call SetColoreCella(8,RGB(217,255,179),vbBlack)
            Call SetColoreCella(13,RGB(217,255,179),vbBlack)
            Call SetColoreCella(2,RGB(9,62,242),vbBlack)
            If avalori2(10) > 0 Then
               Call SetColoreCella(10,RGB(72,153,74),vbWhite)
            Else
               Call SetColoreCella(10,RGB(236,206,104),vbBlack)
            End If
            If avalori2(4) > 0 Then
               Call SetColoreCella(4,RGB(72,153,74),vbWhite)
            Else
               Call SetColoreCella(4,RGB(252,254,160),vbBlack)
            End If
            Call SetColoreCella(13,RGB(217,255,179),vbBlack)
            If avalori2(8) = 3 And avalori2(13) >= 175 Then
               Call SetColoreCella(13,RGB(170,170,255),vbBlack)
            End If
            If avalori2(8) >= 4 And avalori2(13) >= 100 Then
               Call SetColoreCella(13,RGB(170,170,255),vbBlack)
            End If
         Else
            If ct > 0 Then
               If Int(ru) = 11 Then dif = ct - teo(q)
               If Int(ru) <> 11 Then dif = ct - teoru(q)
               avalori2(1) = Format2(q)
               avalori2(2) = " "
               If ru = 11 Then    avalori2(3) = teo(q)
               If ru <> 11 Then avalori2(3) = teoru(q)
               avalori2(4) = Round(dif,2)
               avalori2(5) = Mediacicli(1,q)
               avalori2(6) = Mediacicli(2,q)
               avalori2(7) = Mediacicli(3,q)
               avalori2(8) = ct
               avalori2(9) = Round((avalori2(5) + avalori2(6) + avalori2(7) + avalori2(8)) / 4,2)
               avalori2(10) = Round(avalori2(8) - avalori2(9),2)
               avalori2(11) = riga
               avalori2(12) = Sm
               avalori2(14) = MinimoRITARDO
               avalori2(15) = NomeRuota(ru) & "..." & capog
               '''calcola frequenza totale delle combinazioni include in questa freq.
               tfreq = 0
               ReDim nrambi(90)
               Call SplitByChar(riga," | ",nrambi)
               qtsr = UBound(nrambi)
               For h = 0 To ct
                  anr(1) = Left(nrambi(h),2) : anr(2) = Right(nrambi(h),2) :ar(1) = ru
                  Call StatisticaFormazioneTurbo(anr,ar,2,,,,retfre,3950,Fin)
                  tfreq = tfreq + retfre
                  ''''''''''''''         Scrivi anr(1) & " " & anr(2) & "....." & SiglaRuota(ar(1)) & "........" & retfre
               Next
               avalori2(16) = tfreq
               If tfreq > 0 Then
                  avalori2(17) = Round(1 /(tfreq/ran),1)
               Else
                  avalori2(17) = 0
               End If
               If ct > 0 Then avalori2(13) = Round(Sm/Int(ct),2)
               Call AddRigaTabella(avalori2,Bianco_,"left",1)
               Call SetColoreCella(2,RGB(9,62,242),vbBlack)
               Call SetColoreCella(11,RGB(252,255,193),vbBlack)
               Call SetColoreCella(8,RGB(217,255,179),vbBlack)
               If avalori2(10) > 0 Then
                  Call SetColoreCella(10,RGB(72,153,74),vbWhite)
               Else
                  Call SetColoreCella(10,RGB(236,206,104),vbBlack)
               End If
               If avalori2(4) > 0 Then
                  Call SetColoreCella(4,RGB(72,153,74),vbWhite)
               Else
                  Call SetColoreCella(4,RGB(236,206,104),vbBlack)
               End If
               Call SetColoreCella(13,RGB(217,255,179),vbBlack)
               If avalori2(8) = 3 And avalori2(13) >= 175 Then
                  Call SetColoreCella(13,RGB(170,170,255),vbBlack)
               End If
               If avalori2(8) >= 4 And avalori2(13) >= 100 Then
                  Call SetColoreCella(13,RGB(170,170,255),vbBlack)
               End If
               ''''''archiviazione ritardo minmax x fascia
               key = Format2(q) & Format2(ct)
               If MinimoRITARDO > MINMAX(key,1) Then
                  MINMAX(key,0) = Format2(q) & "  |  " & Format2(ct)
                  MINMAX(key,1) = MinimoRITARDO
                  MINMAX(key,2) = Format2(capog) & " " & SiglaRuota(ru)
                  MINMAX(key,3) = avalori2(10)
               End If
               ct = 0
            End If
         End If
      Next
      '''''-----------------------------------------------------------------------------
      CreaTabella
      ''''riepilogo e sviluppo ambi derivanti da metodo gap
      ct = 0
      ReDim atitoli(11),avalori(11)
      ' preimposto i titoli delle colonne
      atitoli(1) = " N u m e r i "
      atitoli(2) = " Ruota "
      atitoli(3) = " R.Cor."
      atitoli(4) = " R.Sto "
      atitoli(5) = " Incr. "
      atitoli(6) = " Frequ "
      atitoli(7) = " U.Rp1 "
      atitoli(8) = " U.Rp2 "
      atitoli(9) = " U.Rp3 "
      atitoli(10) = " R.Tutte "
      atitoli(11) = " Pres.Metodo "
      '   ' inizializzo la tabella
      SetTableWidth("90%")
      Call InitTabella(atitoli,2,"center",1.5,5,"Arial")
      ColoreTesto(0)
      rigaout = ""
      rigpre = ""
      For v = 1 To 90
         If Nr(v) = 1 Then
            snr(v) = Format2(v)
            rigaout = rigaout & Format2(v) & " "
            rigpre = rigpre & Format2(Np(v)) & " "
            ctq = ctq + 1
         End If
      Next
      If s = 1 Then
         des = "Ambata"
      End If
      If s = 2 Then
         des = "Ambo"
      End If
      If s = 3 Then
         des = "Terno "
      End If
      If s = 4 Then
         des = "Quaterna"
      End If
      ColoreTesto(0)
      If ctq < 2 Then
         ColoreTesto(2)
         Scrivi " Nessun Gap in frequenza ",1
         ColoreTesto(0)
         Exit Sub
      End If
      ''''--------------------------------------------------------------------------------------------------------------------
      ''''elaborare sistema sviluppato in classi
      If systema = "SI" Or systema = "si" Then
         Call Messaggio("Sviluppo Combinazione RF solo Ambo -  TT classi Ambo ")
         colonne = SviluppoIntegrale(snr,Classe)
         For k = 1 To UBound(colonne)
            scolonna = ""
            If ScriptInterrotto Then Exit For
            Call AvanzamentoElab(1,UBound(colonne),k)
            For j = 1 To Classe
               scolonna = scolonna & Format2(colonne(k,j)) & " "
               nm(j) = colonne(k,j)
            Next
            'Loop 10 ruote a coppie
            If solo <> "RF" Then
               For rt1 = 1 To 9
                  rt2 = rt1
                  For rt2 = rt2 + 1 To 10
                     If Classe = 2 And Int(nm(1)) = capog Or Classe = 2 And Int(nm(2)) = capog Or Classe = 3 And Int(nm(1)) = capog Or Classe = 3 And Int(nm(2)) = capog Or Classe = 3 And Int(nm(3)) = capog Or    Classe = 4 And Int(nm(1)) = capog Or Classe = 4 And Int(nm(2)) = capog Or Classe = 4 And Int(nm(3)) = capog Or Classe = 4 And Int(nm(4)) = capog Then
                        rtt = AmboRitardo(11,nm(1),nm(2))
                        ReDim ar(2)
                        ar(1) = rt1
                        ar(2) = rt2
                        Call StatisticaFormazione(nm,ar,s,Ritardo,RitardoMax,IncrRitMax,Frequenza)
                        Call ElencoRitardi(nm,ar,s,EstrazioneIni,Fin,aRetRitardi,aRetIdEstr)
                        y = UBound(aRetRitardi)
                        ct = ct + 1
                        avalori(1) = scolonna
                        avalori(2) = SiglaRuota(rt1) & " " & SiglaRuota(rt2)
                        avalori(3) = Ritardo
                        avalori(4) = RitardoMax
                        avalori(5) = IncrRitMax
                        avalori(6) = Frequenza
                        If y >= 2 Then
                           avalori(7) = aRetRitardi(y - 1)
                        Else
                           avalori(7) = 0
                        End If
                        If y >= 3 Then
                           avalori(8) = aRetRitardi(y - 2)
                        Else
                           avalori(8) = 0
                        End If
                        If y >= 4 Then
                           avalori(9) = aRetRitardi(y - 3)
                        Else
                           avalori(9) = 0
                        End If
                        avalori(11) = Format2(Np(nm(1))) & " " & Format2(Np(nm(2))) & " " & Format2(Np(nm(3))) & " " & Format2(Np(nm(4)))
                        avalori(10) = rtt
                        Call AddRigaTabella(avalori,Bianco_,"center",1)
                        Call SetColoreCella(2,RGB(255,255,198),vbBlack)
                        Call SetColoreCella(3,RGB(255,255,198),vbBlack)
                        Call SetColoreCella(10,RGB(255,255,198),vbBlack)
                        If avalori(3) >= avalori(4) Then
                           Call SetColoreCella(3,RGB(179,202,255),vbBlack)
                           Call SetColoreCella(4,RGB(179,202,255),vbBlack)
                        End If
                     End If
                  Next
               Next
            Else
               If ScriptInterrotto Then Exit For
               Call AvanzamentoElab(1,UBound(colonne),k)
               rtt = AmboRitardo(11,nm(1),nm(2))
               ReDim art(1)
               art(1) = ru
               Call StatisticaFormazione(nm,art,s,Ritardo,RitardoMax,IncrRitMax,Frequenza)
               Call ElencoRitardi(nm,art,s,EstrazioneIni,Fin,aRetRitardi,aRetIdEstr)
               y = UBound(aRetRitardi)
               ct = ct + 1
               avalori(1) = scolonna
               avalori(2) = SiglaRuota(ru)
               avalori(3) = Ritardo
               avalori(4) = RitardoMax
               avalori(5) = IncrRitMax
               avalori(6) = Frequenza
               If y >= 2 Then
                  avalori(7) = aRetRitardi(y - 1)
               Else
                  avalori(7) = 0
               End If
               If y >= 3 Then
                  avalori(8) = aRetRitardi(y - 2)
               Else
                  avalori(8) = 0
               End If
               If y >= 4 Then
                  avalori(9) = aRetRitardi(y - 3)
               Else
                  avalori(9) = 0
               End If
               avalori(11) = Format2(Np(nm(1))) & " " & Format2(Np(nm(2)))
               avalori(10) = rtt
               Call AddRigaTabella(avalori,Bianco_,"center",1)
               Call SetColoreCella(2,RGB(255,255,198),vbBlack)
               Call SetColoreCella(3,RGB(255,255,198),vbBlack)
               Call SetColoreCella(10,RGB(255,255,198),vbBlack)
               If avalori(3) >= avalori(4) Then
                  Call SetColoreCella(3,RGB(179,202,255),vbBlack)
                  Call SetColoreCella(4,RGB(179,202,255),vbBlack)
               End If
               If Format2(Np(nm(1))) = Format2(Np(nm(2))) Then
                  Call SetColoreCella(11,RGB(131,203,50),vbBlack)
                  Call SetColoreCella(1,RGB(131,203,50),vbBlack)
               End If
            End If
         Next
         Call Messaggio(" Creazione Tabella e ordinamento :    ATTENDERE  ")
         CreaTabella(3)
         Scrivi " Totale combinazioni elaborate.." & ct,1
      End If
   Next ''''' loop per massa capogioco 01-90
   ''''riepilogo finale frequenza-pres.reali-minmax-ruota
   ReDim atitoli3(7),avalori3(7),an(1),aru(1)
   ' preimposto i titoli delle colonne
   atitoli3(1) = " Freq.|PReal"
   atitoli3(2) = " Rit.MinMax "
   atitoli3(3) = " Capogioco e Ruota "
   atitoli3(4) = " Presenze "
   atitoli3(5) = " Rit.Capog."
   atitoli3(6) = " Diff.Reale"
   atitoli3(7) = " E s i t o "
   SetTableWidth("700px")
   Call InitTabella(atitoli3,2,"center",1.6,5,"Arial")
   For hh = 1 To 9999
      If MINMAX(hh,1) > 0 Then
         ca = Left(MINMAX(hh,2),2)
         avalori3(1) = MINMAX(hh,0)
         avalori3(2) = MINMAX(hh,1)
         avalori3(3) = MINMAX(hh,2)
         avalori3(4) = Np(ca)
         avalori3(5) = EstrattoRitardo(ru,ca)
         avalori3(6) = MINMAX(hh,3)
         an(1) = ca :aru(1) = ru
         Call VerificaEsitoTurbo(an,aru,Fin + 1,1,,,,,retestratti,retidestr)
         If retestratti <> "" Then
            avalori3(7) = retestratti & "    cn." &(retidestr - Fin)
         Else
            avalori3(7) = ""
         End If
         Call AddRigaTabella(avalori3,Bianco_,"center",1)
         If Int(Right(MINMAX(hh,0),2)) > 28 Then
            Call SetColoreCella(1,RGB(91,146,75),vbWhite)
         End If
         xb = 0
         If Int(MINMAX(hh,3)) >= 5 Then
            Call SetColoreCella(6,RGB(0,126,187),vbWhite)
            xb = 1
            If avalori3(2) < 10 Then
               xb = xb + 1
               Call SetColoreCella(2,RGB(0,126,187),vbWhite)
            End If
            If avalori3(5) <= 10 Then
               xb = xb + 1
               Call SetColoreCella(3,RGB(255,255,128),vbBlack)
               Call SetColoreCella(5,RGB(0,126,187),vbWhite)
               Call SetColoreCella(7,RGB(255,255,128),vbBlack)
               ctw = ctw + 1
            End If
            If xb = 3 Then elenco = elenco & avalori3(3) & " - "
         End If
      End If
   Next
   CreaTabella(Ord)
   Scrivi:Scrivi " Formula presenze teoriche ambi con ritardo > 1000 x tutti i capogiochi :  (10ambi*90cap) * (3996/4005)^1000)   risultato è  95 ambi  ",1
   Scrivi " sommando per ogni capogioco gli ambi che superano i 1000 di ritardo si può vedere se il risultato presenze reali è maggiore del teorico..",1
   Scrivi
   ColoreTesto(1)
   Scrivi " Trovate Totale combinazioni in giallo...." & ctw,1
   Scrivi " Selezionare i numeri con 3 colonne colorate in blu.....capogiochi.." & elenco,1
   ColoreTesto(0)
   Scrivi"----------------------------------------------------------------",1
   Scrivi "NB: Prendere 6 numeri capogiochi della fascia 0 : gli ultimi elencati nel riepilogo",1
   Scrivi " Il motivo è che avendo un eccesso di sottopresenze di fascia, generalmente nei 20",1
   Scrivi " concorsi successivi, generano ambi-terni e qualche quaterna a TUTTE.",1
   Scrivi " i 6 numeri selezionati verranno associati ad altri 6+6 numeri derivanti dall'elaborazione",1
   Scrivi " delle ruote fisse BA-CA-NA ",1
   Scrivi " NOTA che nella medesima fascia dove vi sono capogiochi con medesime presenze, sono soggetti",1
   Scrivi " a dare almeno 1 ambata in pochi colpi, a volte anche ambi secchi con presenze uguali",1
End Sub
 
Ultima modifica di un moderatore:

Serpico 90

Advanced Member
Salve ho scaricato lo script funziona abbastanza bene.....decidi tu se lo vuoi lasciare stare .........

Grazie
 
Ultima modifica:
R

Rubino

Guest
Ciao serpico, ho un lavoro lungo sul pc che sta girando, appena finisce, tra oggi o domani massimo ti rispondo.
 
R

Rubino

Guest
questo ambo secco può arrivare in tre-quattro colpi a Tutte

55 84 a TUTTE

QUESTI 2 AMBI su CAGLIARI invece sono validi per una decina di colpi

60 61 * 53 68
 
Ultima modifica di un moderatore:
R

Rubino

Guest
Appunti di matematica, di sistemistica, di realtà, lasciando le balle a chi vuole seguirle, e ne è ancora convinto.

88/90 punteggi 4 punti

18 minuti di script.

ora, devo solo ridurre, consapevolmente.
 
Ultima modifica di un moderatore:

Nikor

Premium Member
D'accordissimo sulle balle! mi permetto di chiederti, quanti numeri al vaglio per circa 90 presenze..?
Forse per una casualità o telepatia , avevo provato a seguire la stessa strada una ventina di estrazioni fa e mi trovavo ( con il vecchio procedimento Nikor ) su questi valori:
24 N°. - circa 80 presenze ( > = 4 )
28 N°. - circa 110 presenze ( > = 4 ) ti sembrano valori da tenere in considerazione o scartare...?
Il gioco è il Million......
Grazie per una tua eventuale risposta, Nikor.
 
R

Rubino

Guest
[IMG2=JSON]{"alt":"Nikor","data-align":"none","data-size":"full","src":"https:\/\/forum.lottoced.com\/core\/image.php?userid=17974&thumb=1&dateline=1504356581"}[/IMG2]
#43.2

Nikor commentata
07-03-2019, 15:03



D'accordissimo sulle balle! mi permetto di chiederti, quanti numeri al vaglio per circa 90 presenze..?
Forse per una casualità o telepatia , avevo provato a seguire la stessa strada una ventina di estrazioni fa e mi trovavo ( con il vecchio procedimento Nikor ) su questi valori:
24 N°. - circa 80 presenze ( > = 4 )
28 N°. - circa 110 presenze ( > = 4 ) ti sembrano valori da tenere in considerazione o scartare...?
Il gioco è il Million......
Grazie per una tua eventuale risposta, Nikor.


ciao Nikor, no è una cosa diversa dal tuo lavoro, sto lavorando su 90 gruppi di cui 88 realizzano sempre diversi 4 punti su 5.

1 solo realizza il 5 punti ma bisogna indovinare qual è.

è come azzeccare l'ambata secca, ed è una cosa difficile.

no non funziona il riduttore, mi cambia i numeri.
i miei sono diversi.
infatti non riesco a trovare un riduttore, che parte e riduce i miei numeri senza cambiarli.
e non ho a disposizione questo programma di riduzione.
i software riduttori dei sistemisti lavorano in modo diverso, pare che non ci siano più i vecchi
sistemi delle formule derivate e che nessuno più li utilizzi.

mi sa che me lo devo costruire nuovamente, come avevo fatto trent'anni fa, per il totocalcio e
per il superenalotto 1x2.
 
Ultima modifica di un moderatore:
R

Rubino

Guest
Il lotto non cambia mai!!!!

selezioni ambi su una ruota ed escono con regolarità da altre parti.

questa sera 2 ambi usciti a Tutte anziché a CAGLIARI dove dovevano arrivare.

60 61 a Roma e 53 68 a TORINO

questo ambo secco può arrivare in tre-quattro colpi a Tutte

55 84 a TUTTE

QUESTI 2 AMBI su CAGLIARI invece sono validi per una decina di colpi

60 61 * 53 68
 

i legend

Premium Member
È un classico , ma fa più male quando escono sulla nazionale e ovviamente hai giocato solo su ruota e tutte .
Ciao rubino.
 

Nikor

Premium Member
Pienamente d'accordo con Rubino e I-Legend , la mia è fresca dell'ultima estrazione:

Proposta in ( Ambetto-Stat ) Firenze/Palermo 54-55-56 ! Ben 2 Ambetti ( 54-57 e 55-57 ) usciti la ruota sotto di Genova, pazienza.......

Rimane il fatto che le indicazioni di Rubino ( come sua abitudine , poche e buone ! ) hanno una grande valenza statistica , poi essendo ristrette qualche Euro a tutte non guasterebbe onde evitare i brutti scherzi che ci riserva la sorte!

Buon proseguimento, Nikor.
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 26 marzo 2024
    Bari
    30
    51
    17
    01
    53
    Cagliari
    13
    70
    25
    68
    47
    Firenze
    28
    30
    54
    70
    88
    Genova
    67
    87
    22
    03
    62
    Milano
    22
    34
    13
    47
    24
    Napoli
    20
    72
    59
    01
    52
    Palermo
    05
    72
    65
    52
    32
    Roma
    28
    43
    75
    54
    87
    Torino
    16
    08
    17
    24
    38
    Venezia
    67
    28
    55
    60
    29
    Nazionale
    15
    69
    22
    63
    39
    Estrazione Simbolotto
    Firenze
    44
    09
    31
    22
    16
Alto