Novità

Vari Sistemini da condizione statistica

B

Beppignello

Guest
1° sviluppo 24-06-02-04 al 100% col.9 ..... 2 punti
04 05 06 13 14 15
01 02 03 07 08 09
01 02 03 16 17 18
01 02 03 22 23 24
04 05 06 19 20 21
07 08 09 16 17 18
07 08 09 22 23 24
10 11 12 19 20 21
16 17 18 22 23 24


2° sviluppo 24-06-02-04 al 100% col.8 .... 2 punti
04 05 06 13 14 15
01 02 03 07 08 09
01 02 03 16 17 18
01 02 03 22 23 24
07 08 09 16 17 18
07 08 09 22 23 24
10 11 12 19 20 21
16 17 18 22 23 24
 
Ultima modifica di un moderatore:

edesimone

Advanced Member >PLATINUM<
Grazie Beppignello nel tardo pomeriggio sviluppo i due sistemi con i numeri primi, li salvo su spaziometria
e verifico gli eventi, nel post #95 parli di uno script ma non lo vedo se puoi mandarmelo mi fai un piacere.
Se ti capita di trovare altre soluzioni su i 24 primi sia 10elotto che lotto,con esempi o con script puoi
mandarli, naturalmente senza interferire con altri tuoi lavori.
grazie edesimone
 
B

Beppignello

Guest
Cattura2.JPG questo è un altro sistemino
elaborato su 22 numeri, in sestina, garanzia 22-06-03-07 col.11

è un sistema che ho elaborato in modo abbastanza veloce, al quale è possibile aggiungere ai 22 numeri del sistema
2 fisse (23,24) che saranno 2 numeri primi che si prevedere almeno 1 in uscita in breve tempo.

quindi il sistema è adattabile, nel senso che chi vuole giocare le sestine ha la garanzia di 3 punti con 7 numeri giusti al 10 e lotto
chi vuole giocare in settine dovrà aggiungere 1 fisso oppure in ottine con 2 fisse

naturalmente ai 3 punti garantiti potrà nel caso 1° fare 4 punti se la fissa sarà giusta anch'essa
oppure sarà anche di 5 punti se le 2 fisse saranno giuste.


se si vuole risparmia anche le 2 colonne in più di questo sistema da me fatto, c'è sempre il primato
che con 9 colonne copre 3 punti sui 22 e si può aggiungere eventualmente le 2 fisse come accennato sopra
.
 
Ultima modifica di un moderatore:

edesimone

Advanced Member >PLATINUM<
Beppignello puoi verificare questo sviluppo, mi sono ricordato solo ora
che nel pc vecchio avevo questo verificatore sistemi, così sono arrivato
alle colonne che trovi nella foto.
 

Allegati

  • photo15724.jpg
    photo15724.jpg
    65,6 KB · Visite: 0
B

Beppignello

Guest
il sistemino esposto è al 100% esatto e copre tutte le colonne del sistema integrale di 24 nr. in sestina a garanzia del terno con 7 numeri esatti


il primato è 9 colonne per questo sistema, e queste 9 colonne coprono anch'esse il 100%
 

edesimone

Advanced Member >PLATINUM<
Sono partito come base se vedi foto mettendo le ultime quattro sestine, quelle sono riferite al sistema
cruciverba 8 numeri 4 sestine con garanzia del tre con tre estratti
 
B

Beppignello

Guest
FIRENZE x Ambo/Terno (dinamico) ogni colpo cambiano i numeri

01.03.07.08.10.
11.13.15.16.18.19.20
22.23.24.25.29
31.32.33.34.36.38.39.

41.44.45.46.47.48.49.50.
51.52.54.56.57.58.60
62.64.66.70
71.72.73.74.75.76.77.

81.82.84.86.90
 
Ultima modifica di un moderatore:

edesimone

Advanced Member >PLATINUM<
Buona sera Beppignello
volevo chiederti se mi puoi sviluppare i 24 numeri primi in 3 ottine più frequenti garanzia terno,
naturalmente le ottine non si devono ripetere,esempio prima 1 2 3 4 5 6 7 8 mettiamo che questa è la frequente,
la seconda 9 10 11 12 13 14 15 16 la terza 17 18 19 20 21 22 23 24, come vedi nessun numero si ripete nelle ottine,
lo sviluppo vedi te se deve esser fatto uno per 10elotto e l'altro lotto, e se puoi evidenziare in rosso per ogni ottina 4 nuneri
più probabili diciamo come capogioco.
Grazie edesimone
 
B

Beppignello

Guest
ciao ho preso la ruota di Torino come base, perché è quella che ha prodotto terni sulle ottine

03 07 23 29 43 53 61 83 freq.34
02 13 19 37 47 59 73 79 freq.27
05 11 17 31 41 67 71 89 freq.16

quelle senza ripetizione di numeri.


sulla ruota di cagliari 29 43 61 83 per almeno 1 estratto capogiochi
 
Ultima modifica di un moderatore:

edesimone

Advanced Member >PLATINUM<
Grazie Beppignello
Queste ottine possono essere adoperate anche al 10elotto?
eventualmente con lo stesso criterio di non ripetere i numeri,puoi svilupparle ( ricordati per ogni ottina di evidenziare i 4 capogiochi)
grazie edesimone
 

edesimone

Advanced Member >PLATINUM<
Altro favore Beppignello se puoi nel tuo tempo libero
Mi servirebbe uno script che mi salva l'archivio lotto in formato txt con queste caratteristiche:
Ti metto solo due ruote per farti capire come devono essere salvate sul foglio,
L'importante è che la data e le ruote (compresa nazionale) devono essere distanti 1 o 2 spazi,
i numeri delle ruote ci deve essere il punto, ultima cosa la prima estrazione in alto deve essere sempre
l'ultima estratta, se è fattibile scegliere l'anno da scaricare esempio solo 2017 oppure dal 2000 al 2017,
o totale partendo dalla data 14/09/1946

Data Bari Cagliari
18 Marzo 2017 69.37.70.81.22 74.12.88.77.70
16 Marzo 2017 07.76.44.24.67 08.19.38.46.74
14 Marzo 2017 59.74.55.12.77 82.39.49.05.71
grazie edesimone
 
Ultima modifica:
B

Beppignello

Guest
al 10 e lotto

dalle ottine più frequenti con 5 punti

05 13 23 41 43 59 73 89 F163
03 11 19 37 53 67 71 79 F115
02 07 17 29 31 47 61 83 F090
 
B

Beppignello

Guest
script come richiesto per Archivio Lotto.txt
il file si trova nella cartella C:\Temp


da provare e controllare se gli spazi sono quelli desiderati.



[codice]

Option Explicit
Sub Main
''''''''''crea da spaziometria archivio lotto su file txt, e stampa a video
''''''''''che a sua volta può essere copia "EdesimoneArchivioLotto"
Dim dal,al,filename,records,riga,r,n,dataEstr,y
Dim estrazione(99999,2)
dal = InputBox("Dall'estrazione n.",,3949)
al = InputBox("All'estrazione n.",,EstrazioneFin)
filename = "C:\temp\ArchivioLotto.txt"
records = riga
''''''''''''''''''''''''''''''''''''''''''''''
For dal = dal + 1 To al
records = ""
Messaggio("Elaboro estraz.n. " & dal)
ReDim MatriceEstrRitorno(55)
Call GetEstrazioneCompleta(dal,MatriceEstrRitorno)
dataEstr = DataEstrazione(dal)
riga = dataEstr & " "
For r = 1 To 11
If r <> 11 Then
For n = 1 To 5
riga = riga & Format2(MatriceEstrRitorno(r,n))
If n <= 4 Then riga = riga & "."
Next
riga = riga & " "
End If
Next
records = riga
estrazione(dal,1) = dal
estrazione(dal,2) = records
Scrivi estrazione(dal,1) & " " & records
Next
'''''''scrivi file ordinamento l'ultima estrazione sarà la prima in alto, la più vecchia è in fondo
Call OrdinaMatrice(estrazione,- 1,1)
For y = 1 To al
If estrazione(y,1) > 0 Then
records = estrazione(y,1)
records = records & " " & estrazione(y,2)
Call ScriviFile(filename,records)
End If
Next
End Sub

[/codice]
 

edesimone

Advanced Member >PLATINUM<
Grazie Beppignello
dovresti fare delle correzioni, sul foglio txt è tutto attaccato, deve essere come lo vedi
su output con quelli spazi, i puntini per ogni numero devono essere così solo 4 per ogni estrazione
68.22.78.60.58 18.71.04.05.66 altra cosa le date deve essere 18 Marzo 2017 e non 18.09.2017 tutto quello prima della data presumi il contatore lo possiamo eliminare, se trovi difficoltà nelle date le possiamo eliminare, e partire solo con l'estrazioni, rimane tutto invariato per il resto del programma. Se nello script mi puoi evidenziare per aumentare o diminuire gli spazi così posso intervenire senza disturbarti. Mi sono dimenticato quando viene salvato
cartella C:\Temp
e voglio fare rilanciare lo script puoi fare che sovrascrive il file vecchio?
grazie edesimone
 
Ultima modifica:
B

Beppignello

Guest
non so, forse non ho capito qualcosa.

se apro il file con notepad ho messo

nr.estr seguita con 1 spazio e la data, che spaziometria ha nel formato gg/mm/anno seguito da 1 spazio iniziano le 11 ruote
dove ogni numero dei 5 estratti è separato con 1 punto mentre tra una ruota e l'altra vi sono 2 spazi vuoti, così fino alla ruota nazionale
che è l'ultima di destra.


per la data se proprio serve provo a mettere il mese in lettere, ma però cosa cambia? sicuramente l'incolonnamento in fase di lettura
perché MARZO è più corte di SETTEMBRE, a meno di mettere il mese in lettere tagliato a 3 byte, quindi alla vista appare tutto disordinato.



per cancellare il file devi aggiungere questa riga, dopo quella di Filename
Filename= "c:\temp\ArchivioLotto.txt"


Call EliminaFile(Filename) ' cancella eventualmente il file se gia esiste




to, ho controllato e c'è un errore, manca la nazionale?
devo ricontrollarlo!
a più tardi
 
Ultima modifica di un moderatore:
B

Beppignello

Guest
sul file ho tolto il nr.estraz.e la data estraz.

tra i 5 numeri di una ruota e l'altra successiva ci sono 2 spazi

tra i 5 numeri ci sono naturalmente 4 punti

c'è la nazionale

l'ultima estraz.più recente è la prima in alto, la più vecchia è in fondo al file

c'è la cancellazione del file prima di iniziare a crearne uno nuovo
------------------------------

l'output a video prodotto dallo script, invece
c'è bisogno del nr.estraz. oltre ai numeri perché serve come caricamento della arrays per ordinare le estrazioni dalla più recente a quelle
più vecchie.
questo output, se da fastidio, si può remmare la riga di stampa a video Scrivi estrazione(dal,1) & " " & records, basta mettere un
apice prima della parola scrivi

prova a controllare




[codice]

Option Explicit
Sub Main
''''''''''crea da spaziometria archivio lotto su file txt, e stampa a video
''''''''''che a sua volta può essere copia "EdesimoneArchivioLotto"
Dim dal,al,filename,records,riga,r,n,dataEstr,y
Dim estrazione(99999,2)
dal = InputBox("Dall'estrazione n.",,3949)
al = InputBox("All'estrazione n.",,EstrazioneFin)
filename = "C:\temp\ArchivioLotto.txt"
Call EliminaFile(filename)
records = riga
''''''''''''''''''''''''''''''''''''''''''''''
For dal = dal + 1 To al
records = "" : riga = ""
Messaggio("Elaboro estraz.n. " & dal)
ReDim MatriceEstrRitorno(55)
Call GetEstrazioneCompleta(dal,MatriceEstrRitorno)
For r = 1 To 11
For n = 1 To 5
riga = riga & Format2(MatriceEstrRitorno(r,n))
If n <= 4 Then riga = riga & "."
Next
If r < 11 Then riga = riga & " "
Next
records = riga
estrazione(dal,1) = dal
estrazione(dal,2) = records
Scrivi estrazione(dal,1) & " " & records
Next
'''''''scrivi file ordinamento l'ultima estrazione sarà la prima in alto, la più vecchia è in fondo
Call OrdinaMatrice(estrazione,- 1,1)
For y = 1 To al
records = ""
If estrazione(y,1) > 0 Then
records = records & estrazione(y,2)
Call ScriviFile(filename,records)
End If
Next
End Sub
[/codice]
 
Ultima modifica di un moderatore:
B

Beppignello

Guest
12-06-2017, 11:48
FIRENZE x Ambo/Terno (dinamico) ogni colpo cambiano i numeri

01.03.07.08.10.
11.13.15.16.18.19.20
22.23.24.25.29
31.32.33.34.36.38.39.

41.44.45.46.47.48.49.50.
51.52.54.56.57.58.60
62.64.66.70
71.72.73.74.75.76.77.

81.82.84.86.90


a colpo 2 ambi
01 07 e 11 15

utile ambo in cinquina 161%
utile ambo in settina 24%
 
Ultima modifica di un moderatore:
B

Beppignello

Guest
ciao ho preso la ruota di Torino come base, perché è quella che ha prodotto terni sulle ottine

03 07 23 29 43 53 61 83 freq.34
02 13 19 37 47 59 73 79 freq.27
05 11 17 31 41 67 71 89 freq.16

quelle senza ripetizione di numeri.


sulla ruota di cagliari 29 43 61 83 per almeno 1 estratto capogiochi

a torino esco separatamente 17 47 senza produrre l'ambo

a cagliari esce l'ambo in quartina 61 29 a colpo
 
Ultima modifica di un moderatore:

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