RUBINO

[trivellatomariotretre33]

CIAO BUONGIORNO SE POSSIBILE AVERE UN LISTATO CHE MI TROVI I PIU FREQUENTI SU 2 RUOTE A SCELTA CON ID MENSILE E CHE MI EVIDENZIA RISULTATI TROVATI GRAZIE.

 

[Rubino]

mi manca qualche informazione

come ricavo i frequenti visto la richiesta per indice mensile, mi spiego
se ipotizziamo di analizzare la prima del mese (x)
- i frequenti sono i numeri successivi dopo o prima della prima del mese?
- dalla prima del mese di gennaio alla prima del mese di febbraio sono passati generalmente 13 concorsi
i frequenti che vuoi riguardano i 13 concorsi o meno concorsi nel mese?
- quanti frequenti dovrei trovare 5-8-10-15?
- una volta trovata una lunghetta di frequenti, vuoi avere un verifica esito, di quanti colpi?
- il verifica esito, solo per i frequenti ultimi o per tutti i mesi elaborati?
- e per ultimo, quanti mesi si dovrebbero analizzare? 12-10-20



attendo nel frattempo questi dettagli o precisazioni

 

[Rubino]

salvo errori o diverse indicazioni da definire

frequenti successivi all'indice mensile
quindi il verifica esito è relativo al mese successivo a quello esaminato e si ferma la primo esito riscontrato

Option Explicit
Sub Main
   Dim r1,r2,mm,ix,fine,ini,retestratti,retesito,retidestr
   Dim es,p,n1,n2,esciclo,i,e
   r1 = InputBox("Ruota 1",,1)
   r2 = InputBox("Ruota 2",,2)
   mm = CInt(InputBox("Quanti mesi",,10))
   ix = CInt(InputBox("Indice Mensile",,1))
   fine = InputBox("Estraz.n.",,EstrazioneFin)
   '''''
   ini = fine -(mm*13)
   Scrivi "Trivellato-Rubino",1
   Scrivi "Rileva Frequenti nel periodo sulle due Ruote ",1
   Scrivi
   ColoreTesto(1)
   Scrivi "Ruota 1 : " & NomeRuota(r1),1
   Scrivi "Ruota 2 : " & NomeRuota(r2),1
   Scrivi "Indice Mensile " & ix,1
   ColoreTesto(1)
   Scrivi "Periodo estrazionale " & ini & "/" & DataEstrazione(ini) & "  :   " & fine & "/" & DataEstrazione(fine),1
   ColoreTesto(0)
   Scrivi
   '''loop
   For es = ini To fine
      If ix = IndiceMensile(es) Then
      Scrivi
         ReDim nm(90,2)
         For i = 1 To 12
            esciclo = es + i
            For p = 1 To 5
               n1 = Estratto(esciclo,r1,p)
               n2 = Estratto(esciclo,r2,p)
               nm(n1,1) = nm(n1,1) + 1
               nm(n1,2) = Format2(n1)
               nm(n2,1) = nm(n2,1) + 1
               nm(n2,2) = Format2(n2)
            Next
         Next
         '''ordina uscite numeri frequenti
         Call OrdinaMatrice(nm,-1,1)
         ReDim an(10),pr(10),ar(2)
         For e = 1 To 10
         an(e) = nm(e,2)
         pr(e) = nm(e,1)
         Next
         ar(1) = r1
         ar(2) = r2
         Scrivi "Freq.Successivi 12 conc. " & es & " / " & DataEstrazione(es) & " Ind.Mens. " & ix & "    Comb.Fr. " & StringaNumeri(an,"-") & "    Pres." & StringaNumeri(pr,".")
         '''esiti verifica
         Call VerificaEsito(an,ar,esciclo+1,1,13,,retesito,,retestratti,retidestr)
         If retestratti <> "" Then
         ColoreTesto(2)
         Scrivi "----> Esiti " & retidestr & " n.colpo " & retidestr-esciclo+1 & "   " & retestratti  & "   " & retesito,1
         ColoreTesto(0)  
         End If
      End If
   Next
End Sub

 

[trivellatomariotretre33]

CIAO GRAZIE DI CUORE RUBINO SEI STATO FANTASTICO A REALIZZARLO , TI INVIO UNA STRETTA DI MANO CHILOMETRICA E ANCORA BRAVO .

 

[chicco3]

Ciao Trivellato e Rubino non capisco questo script se lavora con l'indice mensile mettendo 13 estrazione quella del 29.8.19 calcolando 10 mesi indietro non da previsioni? Allora quale bisogna prendere quella del mese di luglio x agosto o cosa. Grazie Trivellato ottima induizione e bravo Rubino come sempre.Buona giornata a tutti e due

 

[Rubino]

ciao chicco3

questo script, non avendo indicazioni precise che avevo richiesto,l'ho abbozzato in questo modo.

se richiedi la situazione di fine luglio, in agosto controllerò i frequenti usciti sulle 2 ruote richieste,
che saranno da porre in gioco nel mese di settembre.

cioè, è come se all'indice mensile richiesto, i 10 numeri estratti delle 2 ruote, fungono da numeri spia
e una volta trovati nel mese successivo i numeri più frequenti usciti, li porremo in gioco dopo i 13 colpi che sono serviti per
calcolare i frequenti.

alla tua domanda ma dal 29.8.19 perchè non da previsioni in gioco?
perchè per il mese di settembre, cè in gioco quella rilevata di fine Luglio, valida dal 31 agosto per i 12 colpi di settembre.

lo so che non l'ottimale, ma se qualcuno risponde alle mie domanda posta precedentemente, magari si può definire meglio
il tutto.

anche avere un solo esito e poi fermarsi, non credo possa servire a tanto, magari è meglio vedere tutto il mese come è andate il metodo

poi quanti numeri devono essere rilevati come frequenti? 3-5-10???
anche questo dato è importante come sarebbe importante sapere se lo script serve principalmente per la sorte di estratto o di ambo e di sorti alte, perchè da li dipende molto la quantità di numeri da rilevare.

attendo notizie, di cosa si può eventualmente sviluppare, tenendo anche conto che di questi script, ne esistono molti e forse più funzionali
fatti da altri e nelle librerie script di spaziometria, già fatti e a disposizione di tutti.

ho voluto rispondere io a trivellato, perchè era un po che aveva fatto richiesta, ma nessuno ha dato risposta.

 

[Rubino]

ajajajajaj questa è bella, il forum taglia anche delle frasi che sono state scritte, non presentando a video parte di quanto realmente scritto.

"""" anche questo dato è importante, come è importante sapere se serve principalmente per giocare solo gli estratti
o avere una lunghetta per ambo e terno.
perchè da questo dato, si devono rilevare o pochi numeri o tanti per raggiungere l'idea giusta di cosa di vuole.

 

[trivellatomariotretre33]

GRAZIE RUBINO CONCORDO PIENAMENTE LA RISPOSTA DATA A CHICCO3 AVREI FATTO LO STESSO , POI COME AI DETTO, AI FATTO UN ABBOZZA AL MIO CHIEDERE DEL LISTATO, A ME MI TORNA UTILE SOPRATUTTO PER LA SCELTA DI COMANDO CHE SI DA' DA ESEGUIRE , TI RINGRAZIO ANCORA E TI INVIO UN CORDIALE SALUTO .

 

[chicco3]

Ciao Trivellato e Rubino ok capito, elaborato fine luglio x Settembre vediamo cosa fa. Grazie a tutti e due saluto