scomposizione in cifre

[fillotto]

Vorrei scomporre un intervallo di estrazioni (nella fattispecie 18 estraz.) ogni estrazione verrebbe quindi scomposta da 10 cifre dato per scontato che i numeretti abbiano lo zero davanti . Avrei quindi 180 cifre da inserire in tabella in questa maniera che ho già sviluppato in excel
USCITE REALI USCITE TEORICHE

q.tà cifra percent Diff q.tàT cifraT percentT 27 0 15 5 18 0 10 20 1 11,11 0,5556 19 1 10,55556 16 2 8,889 -1,667 19 2 10,55556 25 3 13,89 3,3333 19 3 10,55556 17 4 9,444 -1,111 19 4 10,55556 17 5 9,444 -1,111 19 5 10,55556 15 6 8,333 -2,222 19 6 10,55556 20 7 11,11 0,5556 19 7 10,55556 15 8 8,333 -2,222 19 8 10,55556 8 9 4,444 -1,111 10 9 5,555556 180 100 180 100

Questa tabella rappresenta un esempio reale e si riferisce alle 18 estrazioni di Bari che terminano con l'estrazione del 15/12/2018
In primis mi viene da invocare il re delle tabelle MIKE58 ma è evidente che tutti gli scripters sono graditi.
I possibili risultati?
Le considerazioni di questo esempio : voglio giocare sulle frequenze? allora prenderò in considerazione la cifra del 3 in ristretto la quartina radicale 3 30 33 39(dove è più concentrata la cifra3) esito ambo al 3° colpo !!
voglio giocare su la sottofrequenza? la cifra 6 e la 8 sono entembe a - 2,222 io le mischio e mi gioco 68 e 86 il massimo riducibile per avere entrambe le cifre ....esito 86 al 4° colpo oppure le quartine radicali del 6 e dell'8 esito 88 e 89 al 6° colpo!
Insomma con la tabella bella in evidenza si possono fare tante considerazioni, se sono riuscito io a farlo su excel non dovrebbero tovare difficoltà Mike&Copany
ps. se si agiungesse anche altre 2 colonne con il rit e freq della quartina radicale considerato che proprio in queste c'è la maggiore concentrazione della relativa cifra

 

[ciccioriccio]

(Untitled)

mi sembra interessante. ma per quanto riguarda i numeri di gioco? su quali numeri possiamo giocare? intendo su previsioni

 

[fillotto]

27 0 15 5 18 0 10 28 1 15,56 5 19 1 10,55556 16 2 8,889 -1,667 19 2 10,55556 20 3 11,11 0,5556 19 3 10,55556 23 4 12,78 2,2222 19 4 10,55556 17 5 9,444 -1,111 19 5 10,55556 16 6 8,889 -1,667 19 6 10,55556 13 7 7,222 -3,333 19 7 10,55556 12 8 6,667 -3,889 19 8 10,55556 8 9 4,444 -1,111 10 9 5,555556 180 100 180 100

Questa è la situazione al 10/1/19 di Bari in sottofrequenza il 7 e 8 quindi ragionando come in precedenza 78 e 87 due x uno quartine radicali del 7 e dell' 8 in super freq. la cifra 1 quindi quart rad. 1 10 11 19

 

[Mike58]

Ciao Fillotto, per quello che ho capito (ma vedremo per il seguito) la mia premura era raccogliere i primi dati.

Ho raccolto quello che per ora mi sembrava + logico, visto che quando mi piace un idea poi finisco per metterci del mio.

Intanto prova lo script (Work in progress) poi vedrò e vedremo insieme cosa estrapolare di significativo.

un caro saluto e un grazie per appellativo esagerato.

Mike

Sub Main
   Dim Nu(1),Ru(1),T,V,VetN,VetQ
   Ini = EstrazioneFin - 17
   fin = EstrazioneFin
   Tot = fin - Ini + 1
   r = 1
   Scrivi "Range Inizio......... " & GetInfoEstrazione(Ini)
   Scrivi "Range Fine........... " & GetInfoEstrazione(fin)
   Scrivi "Totali estrazioni.... " & Tot
   Scrivi "Ruota analizzata..... " & NomeRuota(r)
   Scrivi
   T = Array(T,"Cifra","Numeri Estratti in Cifra","Qtà","Num Ripetuti","Qtà Rip","Presenza Teorica","Attendibilità","Numeri mancanti")
   InitTabella(T)
   For cifre = 0 To 9
      For es = Ini To fin
         For p = 1 To 5
            n = Estratto(es,r,p)
            Nu(1) = n
            Ru(1) = r
            If Decina(n) = cifre Or Cadenza(n) = cifre Then
               k = k + 1
               ReDim Preserve cifra(k)
               cifra(k) = n
               rip = NumeriRipetutiRilevatiV(cifra,VetN,VetQ)
            End If
         Next
      Next
      For x = 1 To 90
         If Decina(x) = cifre Or Cadenza(x) = cifre Then
            kk = kk + 1
            If EstrattoFrequenza(r,x,Ini,fin) = 0 Then
               kkk = kkk + 1
               ReDim Preserve mancanti(kkk)
               mancanti(kkk) = x
            End If
         End If
      Next
      presTeo = kk
      Att2 = Round((Dividi(k,k + presTeo)),3)
      V = Array(V,cifre,StringaNumeri(cifra),k,StringaNumeri(VetN),StringaNumeri(VetQ),kk,Att2,StringaNumeri(mancanti))
      Call AddRigaTabella(V)
      k = 0
      kk = 0
      kkk = 0
   Next
   CreaTabella
   Scrivi "Numeri Estratti In Cifra",1,,,1,3
   Scrivi "Progetto By Fillotto",1,,,1,2
   Scrivi "Script By Mike58",1,,,1,2
   Scrivi "Work In Progress",,,,2
End Sub

 

[fillotto]

Grazie mike per adesso ottime e utili le colonne num ripetuti e numeri mancanti però essendo il totale dei numeri in 18 estrazioni 90 necessariamente le cifre dovranno essere 180 infatti le cifre da 1 a 8 contengono i relativi gemelli e quindi le presenze (delle cifre) teoriche salgono a 19 con la consegueza che 18+19+19+19+19+19+19+19+19+10 = 180 (almeno così la vedo io)
Dicevo delle colonne num ripetuti e numeri mancanti infatti riaggangiandomi alle ultime considerazioni posso rilevare a quanto già detto che la sottofrequenza delle cifra 7 ora rilevo che i numeri 37 47 57 67 non sono presenti nei 90 num presi in esame e quindi degni da essere presi in considerazione

 

[ospite]

Ciao Filotto

perchè lavorare a cifra composta e per giunta a 18 elementi?

si riesce a centrare successo anche a 10 n cui spesso si arriva a esiti più che accetti,
infine se valorizzi intesa con stessa caratteristica e solo se mai per terno quaterna e cinquina credimi gli esiti non mancano anzi ... Nel mio piccolo sperando far cosa gradita Ti riporto un mio piccolo pensiero cui a onor del vero ho modificato da un pensiero mater di Biagio Ciariamiello; prova quindi nell'annotare le varie possibili opzioni che la cifra in se può emanare valutando un minimo di 3 medio 5 max 7 fattori da tale punto optata per uno aggiungendoci varianti a partire dalla chiusura simmetrica di passo 3 o 30 a finire a possibili intese di passo consecutivo magari per me fila liscio come l'olio poi vedi tu. Ciao fa ottime cose e principalmente matura copiose vincite.

Auguri!

 

[fillotto]

Ciao IB63 per risponderti alla prima domanda (18 invece di 10) perchè con 18 si prendono tutte le possibili combinazionii cui una ciascuna cifra si puo disporre (tranne il 9)
Per quanto riguarda il resto , ti ringrazio ma le devo ancora digerire me le studio piano piano

 

[joe]

Buon Giorno ragazzi.

Ieri sera sul tardi ho, dato uno sguardo, a questo argomento,

pur come Mike ... come interessava a me.

Se posso dire, ho delle differenze su quanto postato da Filotto tra gli estratti.

Quindi o c'è una differenza tra i nostri archivi, (ma è "piccola" a questo riguardo)

o nelle formule ricopiate tra le righe e le colonne di excel. (che diverrà ininfluente).

Dunque a grandi linee questi risultati coincidono a tutti noi.

Per quanto riguarda il riferimento alla "Presenza Teorica" invece,

coincide con quella di Filotto ed è dunque differente da quella di Mike.

Ho prodotto questo riferimento scomponendo/dividendo e contando tutte le 180 cifre

che compongono i 90 lottroni rappresentati in doppia cifra.

 

[ospite]

Filotto ti seguo da tempo come apprezzo i valori da te suggeriti sempre pieni di saggezza e coordinati ad un preciso mirare credimi esistono ridotte opzioni cui a mezzo dei valori di esposizione possono regalare amplio evento comunemente definito soddisfazione. Se allora vogliamo dirla tutta forse ti è sfuggito oppure evadi riferimento che la firma di un qualsiasi ambo in cifra va riportata in doppia firma morale è come se tentassimo gioco per il doppio degli ambi e non quanti conosciuti. Chiudo (Spero l'accetto intervento) lasciandoti osservare che nel passato molto fu scritto in merito se le cifre fossero 8 9 o 10 per me ne sono addirittura 11 non per strafare ma per creare armonia simmetrica o consecutive fra le stesse. Ti lascio un piccolissimo riferimento per far si rendere chiaro concetto del mio pensiero poi a seguito valuta te se resti accetto o meno rispetto il tuo. Questa la fase teorica:§
SIA DATO RICONOSCIMENTO DI UNA CIFRA A LETTURA DI INTESA DI UN NUMERO DA 1 A 0 LA STESSA SI RIPORTI A VALORE DI 5 ELEMENTI CUI POSTI IN LINEA PIANA VERRANNO COMPLETATI A VALORI D'INTESA SISTEMISTICA I 15 VALORI IN TESI SARANNO POSTI IN GIOCO PER LA SOLO SORTE DELL'AMBO RITENENENDO I GIOCHI CHIUSI AL RAGGIUNGIMENTO DEL 1° ESITO UTILILE.

SEGUE ANNOTO DEL MESE DE DIC 018

09 49 69 79 89
03 43 63 73 83
06 46 76 66 86

nB: DELLE SOPRA RIPORTATE INDICAZIONI RESTA POSSIBILE RIDURE IL TUTTO A SOLO 10 ELEMENTI PER SPECULI A MAGGIORI RESA MA CHE PER OVVI CONOSCIUTI MOTIVI NON MI VA POSTARE.!

RICORDANDO CHE IN CASO DI AMBO A RUOTA LA RESA E' PARI A UNA VINCITA DI TERNO 3 QUATERNA 6 E CINQUINA 10 TI RICORDO CHE NEL CASO ANDASSSIMO AD OPTARE PER VALORI DI CHIUSURA ORTOGONALE LA RESA DIVENTA PIU' ACCETTA CHE GIOCARE ADDIRITTURA IL CALSSICO SISTEMA 15 N IN 35 TERZINE SE PAZIENTI UN ATTIMO TI DO PROVA.

 

[Mike58]

Raga un saluto a tutti.
Non saprei ma i numeri per ogni cifra a me risultano 18 da 0 a 8 e 10 per la cifra 9

controverifica script con evidenza gemelli.

Sub Main
   Dim sTesto
   For c = 0 To 9
      sTesto = ""
      For n = 1 To 90
         If Decina(n) = c Or Cadenza(n) = c Then
            k = k + 1
            If Gemello(n) Then
               sTesto = sTesto & GetTestoHtml(n,True,2) & " "
            Else
               sTesto = sTesto & Format2(n) & " "
            End If
         End If
      Next
      Scrivi "Cifra " & c & vbTab & " = " & k & vbTab &(sTesto)
      k = 0
   Next
End Sub

ci aggiorniamo

 

[ospite]

1° COLPO

BA 03 73 5° COLPO CHIUSA
CA

03 83 1° COLPO CHIUSA​

FI. 89 83 8° COLPO CHIUSA
GE 46 73 2° COLPO CHIUSA
MI 63 46 6° COLPO CHIUSA
NA 03 46 9° COLPO CHIUSA
PA 89 79 3° COLPO CHIUSA
RO 89 73 7° COLPO CHIUSA
TO 69 43 2° COLPO CHIUSA
VE 03 06 3° COLPO CHIUSA
NZ 09 86 2° COLPO CHIUSA

NOTE E CARATTERISTICHE DI GIOCO
NEL CONTEGGIO CUI SOPRA
sono state evitate eventuali ripetività ottenute nel corso del colpi avvenire
resta possibile racchiudere il tutto in solo tre decine tentando il solo ambo
il rapporto richiesto ad intesa di montante è a triplico

si ricorda nel caso della ruota di Ba PA e Ca con solo 2 numeri si è ottenuta vincita multipla previo il seguente riporto in gioco

03 43 63 73 83 ... 06 46 66 76 86
03 43 63 73 83 ... 09 49 69 79 89
06 46 66 76 86 ... 09 49 69 79 89

Ba Ca ha reso vincita raddoppiata vedasi stinga del 3 stesso dicasi nel caso di PA con 89 79 stringa 9
Conclusioni:
quanto in alluopo dal 1945 emana rendita pari al 119% esiti percentuale oltre il 100 per gli esiti di vincita multipla
Previo personale intesa hanno reso 19 cinquine e restanti vedute per sorti dall'ambo alla quaterna.
Per correttezza di riporto ricordo che trattasi di cifra mista valorizzati dalla tripla 3 6 9 con decorrenza mensile.
per gli amanti della statistica
rit max 9k vedi Na ritardo medio 8° colpo vedi Fi Ritardo min Vedi Ca
Lascio a te la soddisfazione cosa ha reso la ruota di To il 10 dic per chi gioca come me per simili vedute.
In quanto un giocatore serio segue le sue intese fine al realizzo del punto medio del tre e per tutte le ruote (singole) che poi la divina provvidenza provveda al di più amen. Fiducioso che l'indigesto abbia avuto modo a esser smaltito allego un distinto Saluto
Amen

 

[fillotto]

Grazie Joe di essere passato da queste parti . Può essere che l'archivio excel che ho io e da cui prendo le 18 estrazioni non sia giusto.La mia ricerca non ha pretesa di dare indicazioni di gioco ma ,qualora dovessi giocare,farei delle considerazioni come quelle già esposte aiutato da tabelle che è la forma che a me mi si confà di più

 

[joe]

Sub Main
  Dim Cifra(9)
  For n = 1 To 90
    D = Decina(n)
    C = Cadenza(n)
    Cifra(D) = Cifra(D) + 1
    Cifra(C) = Cifra(C) + 1
  Next
  For C = 0 To 9
    Scrivi "Cifra " & C & " = " & Cifra(C) & " presenze"
  Next
End Sub

 

[fillotto]

Sub Main
Dim Cifra(9)
For n = 1 To 90
D = Decina(n)
C = Cadenza(n)
Cifra(D) = Cifra(D) + 1
Cifra(C) = Cifra(C) + 1
Next
For C = 0 To 9
Scrivi "Cifra " & C & " = " & Cifra(C) & " presenze"
Next
End Sub

quello che mi piace di Joe è la stringatezza e la grandezza dei suoi script,li riesco a capire pure io WOW !!!

 

[ospite]

Infatti sig filotto ecco spiegato xkè con le ultime preferisco egoisticamente contro mie solote vedute vincerci da solo condividendo difficilmente mie piu che provati successi
buon anno a tutti salve

 

[joe]

x Mike,

In quello che ha scritto IB63.2 ... leggendo con molta filosofia,

c'è la risposta al problema che si è creato.

In pratica essendo errato "confondere" le decine con le unità ...

il computer "si ribella" restituendo un risultato sbagliato.

Cioè se le cifre sono 2 non si può testarle con un solo "or"

Perché così facendo "una delle 2 cifre sparisce".

Il doppio risultato auspicato ...

diventa il "risultato-unico" di un unico test condizionale.

Questo succede evidentemente nei numeri con 2 cifre uguali.

Cioè nei gemelli.

Cioè scrivendo come hai scritto, una delle 2 evenienze, dei gemelli ... sparisce.

Option Explicit
Sub Main
  Dim C,K,E,T,P(90)
  For C = 0 To 9
    K = 0
    For E = 1 To 90
      If Decina(E) = C  Or Cadenza(E) = C Then 
      'CANCELLARE Or Cadenza (E) = C 
      'E ... abilitare la parte remmata a seguire
        P(E) = P(E) + 1
        K = K + 1
      End If
      'If Cadenza(E) = C Then
      '  P(E) = P(E) + 1
      '  K = K + 1
      'End If
    Next
    T = T + K
  Next

  For E = 1 To 90
    Scrivi Format2(E) & " " & P(E)
  Next
  Scrivi T

End Sub

 

[Mike58]

ok ne prendo atto che bisogna impostare la cifra in questo modo.
Chiaramente adesso Fillotto ha gli elementi per poter procedere.
Per il resto non ho commenti da fare.

 

[fillotto]

ok ne prendo atto che bisogna impostare la cifra in questo modo.
Chiaramente adesso Fillotto ha gli elementi per poter procedere.
Per il resto non ho commenti da fare.

E si ma siamo in una posizione di stallo, perchè io non sono in grado di modificare lo script, tutto quello che sono riuscito a fare è stato quello di mettere 2 imputbox uno per la scelta della ruota e il secondo per poter scegliere il periodo in modo di fare delle prove .
Su Mike , come si dice hai fatto 30 ...fai 31 !! o meglio hai fatto 172 ...fai 180 !!
A beneficio di quelli che finora hanno seguito ecco lo script con i 2 inputbox

 Sub Main
   Dim Nu(1),Ru(1),T,V,VetN,VetQ
   scarto = CInt(InputBox("quante estrazioni prima ti vuoi fermare per controlli"," Laiaut 0",0))
   Ini = EstrazioneFin - 17 - scarto
   fin = EstrazioneFin - scarto
   Tot = fin - Ini + 1
   r = CInt(InputBox("mettere il numero dellaRuota","RUOTA",1))
 ' r=2
   Scrivi "Range Inizio......... " & GetInfoEstrazione(Ini)
   Scrivi "Range Fine........... " & GetInfoEstrazione(fin)
   Scrivi "Totali estrazioni.... " & Tot
   Scrivi "Ruota analizzata..... " & NomeRuota(r)
   Scrivi
   T = Array(T,"Cifra","Numeri Estratti in Cifra","Qtà","Num Ripetuti","Qtà Rip","Presenza Teorica","Attendibilità","Numeri mancanti")
   InitTabella(T)
   For cifre = 0 To 9
      For es = Ini To fin
         For p = 1 To 5
            n = Estratto(es,r,p)
            Nu(1) = n
            Ru(1) = r
            If Decina(n) = cifre Or Cadenza(n) = cifre Then
               k = k + 1
               ReDim Preserve cifra(k)
               cifra(k) = n
               rip = NumeriRipetutiRilevatiV(cifra,VetN,VetQ)
            End If
         Next
      Next
      For x = 1 To 90
         If Decina(x) = cifre Or Cadenza(x) = cifre Then
            kk = kk + 1
            If EstrattoFrequenza(r,x,Ini,fin) = 0 Then
               kkk = kkk + 1
               ReDim Preserve mancanti(kkk)
               mancanti(kkk) = x
            End If
         End If
      Next
      presTeo = kk 'presTeo = kk
      Att2 = Round((Dividi(k,k + presTeo)),3)
      V = Array(V,cifre,StringaNumeri(cifra),k,StringaNumeri(VetN),StringaNumeri(VetQ),kk,Att2,StringaNumeri(mancanti))
      Call AddRigaTabella(V)
      k = 0
      kk = 0
      kkk = 0
   Next
   CreaTabella
   Scrivi "Numeri Estratti In Cifra",1,,,1,3
   Scrivi "Progetto By Fillotto",1,,,1,2
   Scrivi "Script By Mike58",1,,,1,2
   Scrivi "Work In Progress",,,,2
End Sub

 

[joe]

Ciao,

secondo me lo script è fatto e modificarlo è difficile.

Forse sarebbe più veloce e meglio riscriverlo ex-novo

ma penso che questo non piaccia a nessuno,

e nessuno ne abbia voglia.

Se posso, dunque suggerirei un intervento mirato del tipo:

If Gemello (x) Then kk = kk + 1

da inserirsi nel secondo ciclo for quello controllato dalla variabile x

dopo naturalmente If Decina (x) Or ...

Secondo me dovrebbe funzionare anche se per questo controllo

declino il compito di verificare a chi ne ha interesse

ed altri strumenti per confrontare i risultati.

Buona Domenica.

 

[fillotto]

sembra funzionare ma,questo è un problema mio, forse non ho identici archivi spazio/excel ...
no funziona ma mi modificava solo il teorico le quantità rimanevano tali ma è bastato mettere nel primo ciclo for "
If Gemello Then k = k + 1" ed è andato apposto