SCRIPT PER TERNI E QUATERNE PIU FREQUENTI

[herat]

Buongiorno
Chiedo , cortesemente, se é possibile creare script per trovare i terni secchi e le quaterne secche più frequenti per terno (i terni) e quaterna (le quaterne) su TUTTE dal 1871
Vi ringrazio anticipatamente ❤

 

[Cinzia27]

Ciao, Herat.
Ecco gli script

Option Explicit
'Terni più frequenti ( Cinzia27)

Sub Main()
Dim n(3),ru(1),a,b,c,fr,cc,r,pa,i,rt
r=11
ru(1)=r
For a=90 To 3 Step -1
For b=a-1 To 2 Step -1
For c=b-1 To 1 Step -1

n(1)=a
n(2)=b
n(3)=c

'If SerieFreq(EstrazioneFin,EstrazioneFin,n,ru,3)>0 Then
fr=SerieFreqTurbo(1,EstrazioneFin-1,n,ru,3)
If fr>18 Then

rt=SerieRitardoTurbo(1,EstrazioneFin-1,n,ru,3)
'If rt>2000 And rt<4000 Then

cc=cc+1
Messaggio FormatSpace(cc,4,1)&") "&SiglaRuota(r)&" "&StringaNumeri(n)
Scrivi FormatSpace(cc,4,1)&")"&StringaNumeri(n)&" "&FormatSpace(fr,4,1)&" rt "&FormatSpace(rt,4,1)  &" ",0,0
If SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n,ru,3)>0 Then ColoreTesto 2:Scrivi " sortito " Else Scrivi
ColoreTesto 0
End If
'End If
Next
Next
Next

End Sub

Sub Main()
'Quaterne più frequenti ( Cinzia27)

Dim quaterne(4)

Dim ruote(1)
r = 11
ruote(1) = r

For i = 1 To 87
quaterne(1) = i

For j = i + 1 To 88
quaterne(2) = j

For k = j + 1 To 89
quaterne(3) = k

For h = k + 1 To 90
quaterne(4) = h


fr = SerieFreqTurbo(1,EstrazioneFin,quaterne,ruote,4)
If fr > 3 Then
c=c+1
rt = SerieRitardoTurbo(1,EstrazioneFin - 1,quaterne,ruote,3)
Messaggio FormatSpace(c,4,1)& ") " &SiglaRuota(r) & " " & StringaNumeri(quaterne) & "   fr " & fr & " rt " & FormatSpace(rt,4,1)
Scrivi FormatSpace(c,4,1)& ") " &SiglaRuota(r) & " " & StringaNumeri(quaterne) & "   fr " & fr & " rt " & FormatSpace(rt,4,1)
End If

Next:Next:Next:Next

End Sub

 

[herat]

Grazie infinite gentilissima Cinzia27 !

 

[Alien.]

Ciao,Cinzia.è sarebbe più proficuo se fossero su ruota,si può fare ,grazie.

 

[Cinzia27]

Ciao, Alien.
r=11 E' sufficiente sostituire 11 con la ruota che vuoi ( 1 Ba,2 Ca, ecc.)

Ovviamente va adattato anche
If fr > .......... Then
che su ruota fissa è inferiore

 

[Alien.]

è,grazie,ci provo:

If fr>18 The = if fr< 18 then così ? per il terno e la quaterna?

Ma lo sai che sei un po"birichina"


Ovviamente va adattato anche
If fr > .......... Then
che su ruota fissa è inferiore

If fr > 3 The è e qui ? dovrebbe darmi i numeri superiori al terno ovvio

Scusa e grazie.

 

[Alien.]

gasp mi ha dato 117.480 terni su bari

 

[Cinzia27]

Se metti frequenza inferiore a 18 su ruota certo che te li da tutti.
Ad esempio su BA un terno è uscito al massimo sette volte.

Prova questo.

Option Explicit
'Su ruota
Sub Main()
Dim n(3),ru(1),a,b,c,fr,cc,r,pa,i,rt
r=1
ru(1) = r
For a = 90 To 3 Step - 1
For b = a - 1 To 2 Step - 1
For c = b - 1 To 1 Step - 1

n(1) = a
n(2) = b
n(3) = c

'If SerieFreq(EstrazioneFin,EstrazioneFin,n,ru,3)>0 Then
fr = SerieFreqTurbo(1,EstrazioneFin - 1,n,ru,3)
If fr > 5 Then

rt = SerieRitardoTurbo(1,EstrazioneFin - 1,n,ru,3)
'If rt>2000 And rt<4000 Then

cc = cc + 1
Messaggio FormatSpace(cc,4,1) & ") " & SiglaRuota(r) & " " & StringaNumeri(n)
Scrivi FormatSpace(cc,4,1) & ")" & SiglaRuota(r) & " " & StringaNumeri(n) & " fr " & FormatSpace(fr,4,1) & " rt " & FormatSpace(rt,4,1) & " ",0,0
If SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n,ru,3) > 0 Then ColoreTesto 2:Scrivi " sortito " Else Scrivi
ColoreTesto 0
End If

Next
Next
Next

End Sub

 

[Alien.]

é NON MALE ,senti se hai ancora un po di pazienza e per la quaterna e magari cinquina cosa devo cambiare,grazie.

 

[Serpico 90]

Buon giorno Cinzia ,complimenti per gli script..........
gentilmente posso chiederti se potresti far fare allo script la ricerca su TRENTA NUMERI e non su tutti i 90 ?
se hai del tempo e pazienza come scrive Alien.....ti posso indicare i 30 numeri e anche alcuni accorgimenti per la ricerca.
In attesa di una gradita risposta .......
auguro una serena giornata
Saluti
Serpico

 

[Cinzia27]

Per Alien, vedo cosa posso fare.
Per Serpico 90: prova ad esporre la ricerca.

 

[Serpico 90]

Salve,grazie per aver risposto....
spero di essere chiaro nell'esposizione per la ricerca .
i 30 numeri da ricercare per terno
per quaterna in maggiore frequenza:
03---04---13---14----23---24---30---31---32---35---36---37---38--39--40--41--42--45--46--47---48---49---53---54----63---64---73---74---83---84-------

per trovare in quale ruota giocare eventuali terni o quaterne più frequenti segnalo due condizioni .

Prima condizione aspettare l'uscita del n. 88 in una qualsiasi ruota .... . e dall'estrazione successiva scommettere se
ci sono terni o quaterne più frequenti nella ruota in cui è stato estratto il n.88......

Seconda condizione (se sarà possibile effettuarla) sommare i cinque estratti di ogni ruota e appena la somma dei cinque estratti
è da 300 in poi ......iniziare a scommettere in quella ruota i terni o le quaterne (se ci saranno) più frequenti in quella ruota.

Spero di essere stato chiaro nell'esposizione.....

N.B. i 30 numeri saranno sempre gli stessi per le due ricerche e per tutte le ricerche in ogni ruota dove appariranno le due condizioni
alcune volte potrà capitare che nella stessa estrazione in ruote diverse e anche nella stessa ruota ci potranno essere le due condizioni .
PER QUANTO RIGUARDA I COLPI DI GIOCO LO DECIDEREMO DOPO AVER VISIONATO I RISULTATI DELLA RICERCA.

Grazie se potrai costruire questo script.
Buon lavoro
Saluti
Serpico

 

[Alien.]

é.....io avrei il 77 con quali numeri si unisce di più ed ogni quanto esce il 77 e dove

 

[Serpico 90]

Buon giorno ...
.ieri ho dimenticato a chiedere scusa ad Herat ,perchè ho invaso il suo tread ,,,, spero di non ave creato confusione.
Buon giorno Cinzia .....cosa ne pensi della mia richiesta???? se non sono stato chiaro nell'esposizione eventualmente potrei chiarire meglio .
Spero in un tuo accenno in merito .
Buona giornata
Saluti
Serpico

 

[Serpico 90]

Buon giorno ...
.ieri ho dimenticato a chiedere scusa ad Herat ,perchè ho invaso il suo argomento ,,,, spero di non ave creato confusione.
Buon giorno Cinzia .....cosa ne pensi della mia richiesta???? se non sono stato chiaro nell'esposizione eventualmente potrei chiarire meglio .
Spero in un tuo accenno in merito .
Buona giornata
Saluti
Serpico

 

[Cinzia27]

Ciao, Serpico. Finora mi è abbastanza chiaro, se ho dubbi ti chiedo. Mi occorre solo un pò di tempo per elaborare la soluzione. Poi risponderò ad Alien. A Herat ho già risposto e se ha ulteriori richieste sono qui.
Buon fine settimana a tutti

Cinzia

 

[herat]

Carissimo, figurati! è un piacere

Buon giorno ...
.ieri ho dimenticato a chiedere scusa ad Herat ,perchè ho invaso il suo tread ,,,, spero di non ave creato confusione.
Buon giorno Cinzia .....cosa ne pensi della mia richiesta???? se non sono stato chiaro nell'esposizione eventualmente potrei chiarire meglio .
Spero in un tuo accenno in merito .
Buona giornata
Saluti
Serpico

 

[joe]

Con i compimenti per le risposte e le soluzioni che Cinzia ha saputo dare,

l'elenco di numeri in cui cercare, è complicato da tanti troppi separatori diversi.

Pertanto diventa difficile utilizzarlo senza prima di averlo ripulito.

Option Explicit
Sub Main
  Dim S,I,M,R,X,K
  S = "03---04---13---14----23---24---30---31---32---35---36---37---38--39--40--41--42--45--46--47---48---49---53---54----63---64---73---74---83---84-------"
  M = "-"
  For I = 1 To Len(S)
    If Mid(S,I,1) <> "-" Then R = R &(Mid(S,I,1))
  Next
  For X = 1 To Len(R) Step 2
    K = K + 1
    ReDim Preserve N(K)
    N(K) = Mid(R,X,2)
  Next
  Scrivi StringaNumeri(N)
End Sub

 

[Cinzia27]

Ciao, Serpico.
Poiché i terni o le quaterne sono pochi o inesistenti, credo che sia meglio considerare ambi e ambate.
L' ho controllato impostato a 1 colpo, sembra corretto. Ma qualche verifica in più non guasta.
Ringrazio Joe per i complimenti e per i suo intervento che ravviva questo topic.

' Serpico : ambi e ambate più frequenti più frequenti dopo la sortita di un numero spia ( Cinzia)
Sub main()
Dim ru(1),nu(4005,4),n(90,3),nu1(2),n1(2)
ee=CInt(InputBox("Estrazioni da esaminare:ultime",,1000))
If ee="" Then Exit Sub
sp=CInt(InputBox("Numero spia",,88))
If sp="" Then Exit Sub
cl=CInt(InputBox("colpi",,9))
If cl="" Then Exit Sub
qq=CInt(InputBox("quanti ambi ed estratti più frequenti vuoi visualizzare",,7))
If qq="" Then Exit Sub
numeri=Array(89,88,87,86,85,84,83,82,81,80)'Inserire i numeri che si vogliono considerare
w=UBound(numeri)
For r=1 To 11
If r=11 Then r=12
ru(1)=r
casi=0
For s=1 To 4005
nu(s,1)=0
nu(s,2)=0
nu(s,3)=0
nu(s,4)=0
Next
For ss=1 To 90
n(ss,1)=0
n(ss,2)=0
n(ss,3)=0
Next
co=0
fin=EstrazioneFin
ini=fin-ee
            For es=ini To fin
Messaggio  " Data "& DataEstrazione(es)
ess=es+cl
If ess>fin Then ess=fin
 
For p=1 To 5
If Estratto(es,r,p)=sp  Then
casi=casi+1
co=0
     For x1=0 To w
         For y1=x1+1 To w
         co=co+1
         nu(co,1)=co:nu(co,2)=numeri(x1):nu(co,3)=numeri(y1)
         nu1(1)=numeri(x1):nu1(2)=numeri(y1)
         k=SerieFreq (es+1,ess,nu1,ru,2)
         nu(co,4)=nu(co,4)+ k
         Next
         Next
co=0
     For xx=1 To w
     co=co+1
     n(co,1)=co:n(co,2)=numeri(xx)
     n1(1)=numeri(xx) 
     k1=SerieFreq (es+1,ess,n1,ru,1)
     n(co,3)=n(co,3)+ k1
     Next
     End If
     Next
     Next
OrdinaMatrice nu,-1,4
OrdinaMatrice n,-1,3
Scrivi " numero spia "&sp
Scrivi  NomeRuota (r)&" dal "& _
DataEstrazione(ini)&" al "& DataEstrazione(fin),1,1
ColoreTesto 1
Scrivi "Casi riscontrati "& CInt(casi) &" - Analisi effettuata sulle "&cl&_
" estrazioni successive "
ColoreTesto 2
Scrivi " CONTENUTO DELLE COLONNE SOTTOSTANTI "
ColoreTesto 1
Scrivi Space(3)&qq&" Ambi+frequenti /Estratti+frequenti "
Scrivi
ColoreTesto 2
Scrivi Space(4)&"Ambi+Fr.    Tot.   Est.+Fr.  Tot."
ColoreTesto 0
For wx=1 To qq ' se vuoi variare il numero di ambi e estratti
ColoreTesto  1:scrivi Space(5)& Format2(nu(wx,2))&"-"& Format2(nu(wx,3))&" ",1,0
ColoreTesto  0:scrivi Space(5)&Format2(nu(wx,4))&" ",0,0
ColoreTesto  1:scrivi Space(5)&Format2(n(wx,2))&" ",1,0
ColoreTesto  0:scrivi Space(5)&Format2 (n(wx,3))&" "
Next
Scrivi String(90,"*")
Next

End Sub

 

[Serpico 90]

Ciao Cinzia ,grazie,
Cortesemente mi spieghi cosa significa quando scrivi "impostato 1 Colpo" dovrei cambiare qualcosa ?
e poi ho notato che non c'è
la somma dei cinque estratti per individuare altra ruota , se non e possibile non problem mi va bene così.
Cinzia molte grazie per il tuo lavoro ,mi auguro di poter avere il piacere di indovinare qualche ambata
e con un po di fortuna anche qualche ambo .

Buona domenica
Saluti
Serpico