Novità

scomposizione in cifre

fillotto

fillotto

Advanced Member >PLATINUM<
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 [TABLE="border: 1, cellpadding: 1"]
[TR]
[TD] [TABLE="border: 0, cellpadding: 0, cellspacing: 0, width: 231"]
[TR]
[TD="class: xl66, width: 40"]q.tà[/TD]
[TD="class: xl64, width: 33"]cifra[/TD]
[TD="class: xl67, width: 45"]percent[/TD]
[TD="width: 50"]Diff[/TD]
[TD="class: xl65, width: 36"]q.tàT[/TD]
[TD="class: xl65, width: 39"]cifraT[/TD]
[TD="class: xl65, width: 64"]percentT[/TD]
[/TR]
[TR]
[TD="align: right"]27[/TD]
[TD="align: right"]0[/TD]
[TD="align: right"]15[/TD]
[TD="align: right"]5[/TD]
[TD="align: right"]18[/TD]
[TD="align: right"]0[/TD]
[TD="align: right"]10[/TD]
[/TR]
[TR]
[TD="align: right"]20[/TD]
[TD="align: right"]1[/TD]
[TD="align: right"]11,11[/TD]
[TD="align: right"]0,5556[/TD]
[TD="align: right"]19[/TD]
[TD="align: right"]1[/TD]
[TD="align: right"]10,55556[/TD]
[/TR]
[TR]
[TD="align: right"]16[/TD]
[TD="align: right"]2[/TD]
[TD="align: right"]8,889[/TD]
[TD="align: right"]-1,667[/TD]
[TD="align: right"]19[/TD]
[TD="align: right"]2[/TD]
[TD="align: right"]10,55556[/TD]
[/TR]
[TR]
[TD="align: right"]25[/TD]
[TD="align: right"]3[/TD]
[TD="align: right"]13,89[/TD]
[TD="align: right"]3,3333[/TD]
[TD="align: right"]19[/TD]
[TD="align: right"]3[/TD]
[TD="align: right"]10,55556[/TD]
[/TR]
[TR]
[TD="align: right"]17[/TD]
[TD="align: right"]4[/TD]
[TD="align: right"]9,444[/TD]
[TD="align: right"]-1,111[/TD]
[TD="align: right"]19[/TD]
[TD="align: right"]4[/TD]
[TD="align: right"]10,55556[/TD]
[/TR]
[TR]
[TD="align: right"]17[/TD]
[TD="align: right"]5[/TD]
[TD="align: right"]9,444[/TD]
[TD="align: right"]-1,111[/TD]
[TD="align: right"]19[/TD]
[TD="align: right"]5[/TD]
[TD="align: right"]10,55556[/TD]
[/TR]
[TR]
[TD="align: right"]15[/TD]
[TD="align: right"]6[/TD]
[TD="align: right"]8,333[/TD]
[TD="align: right"]-2,222[/TD]
[TD="align: right"]19[/TD]
[TD="align: right"]6[/TD]
[TD="align: right"]10,55556[/TD]
[/TR]
[TR]
[TD="align: right"]20[/TD]
[TD="align: right"]7[/TD]
[TD="align: right"]11,11[/TD]
[TD="align: right"]0,5556[/TD]
[TD="align: right"]19[/TD]
[TD="align: right"]7[/TD]
[TD="align: right"]10,55556[/TD]
[/TR]
[TR]
[TD="align: right"]15[/TD]
[TD="align: right"]8[/TD]
[TD="align: right"]8,333[/TD]
[TD="align: right"]-2,222[/TD]
[TD="align: right"]19[/TD]
[TD="align: right"]8[/TD]
[TD="align: right"]10,55556[/TD]
[/TR]
[TR]
[TD="align: right"]8[/TD]
[TD="align: right"]9[/TD]
[TD="align: right"]4,444[/TD]
[TD="align: right"]-1,111[/TD]
[TD="align: right"]10[/TD]
[TD="align: right"]9[/TD]
[TD="align: right"]5,555556[/TD]
[/TR]
[TR]
[TD="align: right"]180[/TD]
[TD] [/TD]
[TD="align: right"]100[/TD]
[TD] [/TD]
[TD="align: right"]180[/TD]
[TD] [/TD]
[TD="align: right"]100[/TD]
[/TR]
[/TABLE]
[/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[/TABLE]
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
 
Ultima modifica:
(Untitled)

mi sembra interessante. ma per quanto riguarda i numeri di gioco? su quali numeri possiamo giocare? intendo su previsioni
 
[TABLE="border: 1, cellpadding: 1, width: 500"]
[TR]
[TD] [TABLE="border: 0, cellpadding: 0, cellspacing: 0, width: 231"]
[TR]
[TD="width: 40, align: right"]27[/TD]
[TD="width: 33, align: right"]0[/TD]
[TD="width: 45, align: right"]15[/TD]
[TD="width: 50, align: right"]5[/TD]
[TD="width: 36, align: right"]18[/TD]
[TD="width: 39, align: right"]0[/TD]
[TD="width: 64, align: right"]10[/TD]
[/TR]
[TR]
[TD="align: right"]28[/TD]
[TD="align: right"]1[/TD]
[TD="align: right"]15,56[/TD]
[TD="align: right"]5[/TD]
[TD="align: right"]19[/TD]
[TD="align: right"]1[/TD]
[TD="align: right"]10,55556[/TD]
[/TR]
[TR]
[TD="align: right"]16[/TD]
[TD="align: right"]2[/TD]
[TD="align: right"]8,889[/TD]
[TD="align: right"]-1,667[/TD]
[TD="align: right"]19[/TD]
[TD="align: right"]2[/TD]
[TD="align: right"]10,55556[/TD]
[/TR]
[TR]
[TD="align: right"]20[/TD]
[TD="align: right"]3[/TD]
[TD="align: right"]11,11[/TD]
[TD="align: right"]0,5556[/TD]
[TD="align: right"]19[/TD]
[TD="align: right"]3[/TD]
[TD="align: right"]10,55556[/TD]
[/TR]
[TR]
[TD="align: right"]23[/TD]
[TD="align: right"]4[/TD]
[TD="align: right"]12,78[/TD]
[TD="align: right"]2,2222[/TD]
[TD="align: right"]19[/TD]
[TD="align: right"]4[/TD]
[TD="align: right"]10,55556[/TD]
[/TR]
[TR]
[TD="align: right"]17[/TD]
[TD="align: right"]5[/TD]
[TD="align: right"]9,444[/TD]
[TD="align: right"]-1,111[/TD]
[TD="align: right"]19[/TD]
[TD="align: right"]5[/TD]
[TD="align: right"]10,55556[/TD]
[/TR]
[TR]
[TD="align: right"]16[/TD]
[TD="align: right"]6[/TD]
[TD="align: right"]8,889[/TD]
[TD="align: right"]-1,667[/TD]
[TD="align: right"]19[/TD]
[TD="align: right"]6[/TD]
[TD="align: right"]10,55556[/TD]
[/TR]
[TR]
[TD="align: right"]13[/TD]
[TD="align: right"]7[/TD]
[TD="align: right"]7,222[/TD]
[TD="align: right"]-3,333[/TD]
[TD="align: right"]19[/TD]
[TD="align: right"]7[/TD]
[TD="align: right"]10,55556[/TD]
[/TR]
[TR]
[TD="align: right"]12[/TD]
[TD="align: right"]8[/TD]
[TD="align: right"]6,667[/TD]
[TD="align: right"]-3,889[/TD]
[TD="align: right"]19[/TD]
[TD="align: right"]8[/TD]
[TD="align: right"]10,55556[/TD]
[/TR]
[TR]
[TD="align: right"]8[/TD]
[TD="align: right"]9[/TD]
[TD="align: right"]4,444[/TD]
[TD="align: right"]-1,111[/TD]
[TD="align: right"]10[/TD]
[TD="align: right"]9[/TD]
[TD="align: right"]5,555556[/TD]
[/TR]
[TR]
[TD="align: right"]180[/TD]
[TD] [/TD]
[TD="align: right"]100[/TD]
[TD] [/TD]
[TD="align: right"]180[/TD]
[TD] [/TD]
[TD="align: right"]100[/TD]
[/TR]
[/TABLE]
[/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[/TABLE]
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
 
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

Codice: 
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
 
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
 
Ultima modifica:
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!
 
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:confused: me le studio piano piano
 
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.

:)
 
Ultima modifica:
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.
 
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.

Codice: 
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
 
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
 
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ù
 
Codice: 
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
 
Ultima modifica:
joe;n2148649 ha scritto:
Codice: 
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
Clicca per espandere...

quello che mi piace di Joe è la stringatezza e la grandezza dei suoi script,li riesco a capire pure io:):):) WOW !!!
 
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
 
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.

Codice: 
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

:)
 
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.
 
Mike58;n2148917 ha scritto:
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.
Clicca per espandere...

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
Codice: 
 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
 
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.
 
Ultima modifica:
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 (n) Then k = k + 1" ed è andato apposto
 
Ultima modifica:
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 16 gennaio 2025
    Bari
    47
    33
    54
    51
    58
    Cagliari
    58
    88
    03
    30
    65
    Firenze
    76
    56
    16
    73
    29
    Genova
    78
    58
    71
    18
    26
    Milano
    09
    74
    15
    26
    57
    Napoli
    75
    81
    35
    59
    17
    Palermo
    17
    39
    46
    54
    08
    Roma
    28
    75
    76
    02
    23
    Torino
    24
    36
    80
    87
    89
    Venezia
    86
    70
    37
    23
    45
    Nazionale
    09
    65
    30
    06
    07
    Estrazione Simbolotto
    Bari
    21
    43
    01
    02
    19
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto