Posizione da numeri primi

giorgioantonio · 16 Febbraio 2016

Salve e buona giornata,

Titolo e caratteristiche dello script:
Posizione con numeri primi

su ruota singola;

cosa calcolare:
-se il 2° estratto è un numero PRIMO effettuare la sottrazione col primo estratto;
-se il 3° estratto è un numero PRIMO effettuare la sottrazione col secondo estratto;
-se il 4° estratto è un numero PRIMO effettuare la sottrazione col terzo estratto;
-se il 5° estratto è un numero PRIMO effettuare la sottrazione col quarto estratto;

-dei 2 numeri il più piccolo si sottrae al grande a prescindere la posizione;

dove giocare il numero ottnuto dalla sottrazione:
-se il numero primo è il 2° estratto giocare su 1^ e 2^ posizione;
-se il numero primo è il 3° estratto giocare su 2^ e 3^ posizione;
-se il numero primo è il 4° estratto giocare su 3^ e 4^ posizione;
-se il numero primo è il 5° estratto giocare su 4^ e 5^ posizione;

Per statistica prove a ritroso;

previsione di gioco da scegliere ma per default 12 estrazioni.

Spero che i dettagli siano chiari e sufficienti per lo script.

Saluti e grazie

calcolare il numero trovato da quante estrazioni è in ritardo sulla ruota di ricerca.
ecco i numeri primi: [TABLE="border: 0, cellpadding: 0, cellspacing: 0"]
[TR]
[TD="width: 24, align: right"]2[/TD]
[TD="class: xl65, width: 24, align: right"]3[/TD]
[TD="width: 24, align: right"]5[/TD]
[TD="width: 24, align: right"]7[/TD]
[TD="width: 24, align: right"]11[/TD]
[TD="width: 24, align: right"]13[/TD]
[TD="width: 24, align: right"]17[/TD]
[TD="width: 24, align: right"]19[/TD]
[TD="width: 24, align: right"]23[/TD]
[TD="width: 24, align: right"]29[/TD]
[TD="width: 24, align: right"]31[/TD]
[TD="width: 24, align: right"]37[/TD]
[TD="width: 24, align: right"]41[/TD]
[TD="width: 24, align: right"]43[/TD]
[TD="width: 24, align: right"]47[/TD]
[TD="width: 24, align: right"]53[/TD]
[TD="width: 24, align: right"]59[/TD]
[TD="width: 24, align: right"]61[/TD]
[TD="width: 24, align: right"]67[/TD]
[TD="width: 24, align: right"]71[/TD]
[TD="width: 24, align: right"]73[/TD]
[TD="width: 24, align: right"]79[/TD]
[TD="width: 24, align: right"]83[/TD]
[TD="width: 24, align: right"]89[/TD]
[/TR]
[/TABLE]
Grazie

Mike58 · 16 Febbraio 2016

Ciao Giorgioantonio sembra chiaro.
Eccoti una bozza di script, fai le dovute verifiche.

Codice:

Sub Main

Dim Nu(5),NProno(1),Ru(1),T,V

Ini = EstrazioneFin - 15

fin = EstrazioneFin

r = InputBox("Scelta Ruota",,5)

T = Array(T," Id Data Trovata","Ruota","Estratti","Numero Primo","Posizione","CaLCOLO","Pronostico","Verifica","coplo","id","Ritardo Num Pronostico")

Call InitTabella(T)

For es = Ini To fin

For p = 2 To 5

p1 = p - 1

a = Estratto(es,r,p)

b = Estratto(es,r,p1)

If Primo(a) Then

Nu(1) = a

Nu(2) = b

NProno(1) = Differenza(a,b)

Ru(1) = r

Call VerificaEsito(NProno,Ru,es+1,1,10,,,clp,es1,id)

sf = SerieRitardo(Ini,fin,NProno,Ru,1)

V = Array(V,GetInfoEstrazione(es),SiglaRuota(r),StringaEstratti(es,r),Nu(1),p&"-"&p1,StringaNumeri(Nu),StringaNumeri(NProno),es1,clp,GetInfoEstrazione(id),sf)

Call AddRigaTabella(V)

End If

Next

'Next

Next

CreaTabella

End Sub

giorgioantonio · 16 Febbraio 2016

Salve Mike58 ho fatto alcuni controlli e pare che tutto va bene.
Non credo ma eventualmente posterò il problema.
Ringrazio dello script ma soprattutto per la velocità.
Buon prosieguo di lavoro

giorgioantonio · 17 Febbraio 2016

Salve Mike58,
cortesemente ti chiedo se puoi applicare lo script dei numeri primi al gioco del 10 e lotto con scelta serale o 5' minuti.
Poichè mancano le ruote si deve tenere conto della sola posizione del numero primo adeguando la scelta se il numero
primo è da ritenere sottraendo o maggiore di quello avanti oppure ritenerlo diminuendo al numero di seguito.
Faccio un esempio breve non sui 20 numeri ma su tre:
....25-43-50: se scelgo sottraendo avrò 43-25=18; se scelgo diminuendo avrò 50-43=7.
Ottenuto i numeri considerare la giocata per defualt 10 (possibilmente a scelta),
se si può aggiungere al frequenza e relativo ritardo del singolo numero
Grazie

Mike58 · 17 Febbraio 2016

Ciao giorgioantonio, proprio perché non ho stimoli per questi giochi, penso di non aver capito esattamente cosa vuoi ottenere.
Comunque ho fatto una qualche modifica a quello che mi sembra di aver capito e spero che sia sufficiente.

Codice:

Sub Main

qt = InputBox("Quante Estrazioni Analizzo",,30)

arch = CInt(InputBox("Quale Archivio" & Chr(13) & Chr(13) & "1 = 10 e Lotto Serale " & Chr(13) & "2 = 10 e Lotto 5 Min",,1))

scel = CInt(InputBox("Quale operazione" & Chr(13) & Chr(13) & "1 = Sottrazione" & Chr(13) & "2 = Addizione",,1))

ImpostaArchivio10ELotto(arch)

Dim Nu(5),NProno(1),Ru(1),T,V

Ini = EstrazioneFin - qt

fin = EstrazioneFin

'r = InputBox("Scelta Ruota",,5)

T = Array(T," Id Data Trovata","Estratti","Numero Primo","Posizione","CaLCOLO","Pronostico","Verifica","coplo","id","Ritardo Num Pronostico","freq Num")

Call InitTabella(T,1,,2,5)

For es = Ini To fin

For p = 2 To 5

If scel = 1 Then p1 = p - 1

If scel = 2 Then p1 = p + 1

a = EstrattoDL(es,p)

b = EstrattoDL(es,p1)

If Primo(a) Then

Nu(1) = a

Nu(2) = b

NProno(1) = Differenza(a,b)

Ru(1) = r

Call VerificaEsitoDL(NProno,es + 1,1,10,,clp,es1,id)

sf = SerieRitardoDL(Ini,fin,NProno,1)

sf1 = SerieFreqDL(Ini,fin,NProno,1)

V = Array(V,GetInfoEstrazioneDL(es),StringaEstrattiDL(es),Nu(1),p & "-" & p1,StringaNumeri(Nu),StringaNumeri(NProno),es1,clp,GetInfoEstrazioneDL(id),sf,sf1)

Call AddRigaTabella(V,,,2)

End If

Next

'Next

Next

Call SetTableWidth("100%")

CreaTabella

End Sub

giorgioantonio · 17 Febbraio 2016

Salve Mike,
ammetto subito che sono stato molto impulsivo a chiederti lo script sul 10 e lotto.
Cerco di spiegarmi ora:
nella estrazione in genere si presentano più di un numero primo.
quindi devi estrarre tutti i numeri che si ottengono dai numeri primi quindi la lunghetta
e si chiede di tenerne conto per 10 estrazioni cioè verifica di quanti numeri
escono per ogni estrazione.

Scusami per l'ulteriore lavoro
Ciao

Alien. · 17 Febbraio 2016

lo trovo ottimo

giorgioantonio · 17 Febbraio 2016

Salve Mike58,

per esempio le posizioni poco interessano indicarle.
Ciao

Mike58 · 17 Febbraio 2016

Ciao, giorgioantonio, per stasera la lucidità viene meno, ci penso su, anche se con un esempio reale la cosa potrebbe risultare + chiara ed evitare interpretazioni.

a domani.

giorgioantonio · 18 Febbraio 2016

Salve Mike58,
dalla tua mente prova a cancellare quanto ti ho spiegato o meglio non ti ho spiegato
tranne il concetto di sottrazione e addizione;
Con riferimento al numero primo ed ultimo numero dellestrazione.
Regole:
se in sottrazione se al numero uno dei 20 estratti trovi il numero PRIMO non si deve ottenere
nessun numero e non si ha nessun in gioco;
se in addizione la regola sopra vale solo per lultimo numero.
In quanto entrambi i casi non hanno il secondo numero da sottrarre o addizionare.
Per esempio lultima estrazione cioè 16.02.2016 il 7 ad inizio se in sottrazione non
Produce nessun numero e poiché quella estrazione non presenta altri numeri primi
Va saltata; per addizione lultimo numero fosse 89 anche in questo caso è nullo
ma la estrazione sarà presente perche il sette come numero primo fa numero di gioco.

Chiarito quanto sopra molto semplicemente nella estrazione che si esamina trovare
tutti i numeri primi ed effettuare, a seconda del MENO e del PIU, loperazione.
NB se lestrazione non presenta numeri primi questa va saltata.
Questo è tutto come ricerca.
Lesposizione dei dati:
possibilmente farli apparire su una riga:
a)al primo posto la data inizio gioco; non tanto il numero dellestrazione quanto la data;
b)al secondo posto tutti i numeri ottenuti; in genere il max è di 12-13 ma fai posto per 15;
c)ad ogni concorso quanti numeri sono stati indovinati, se al concorso non si presentano
numeri indovinati (N) di negativo. questo serve per capire quanti concorsi sono passati;

Da quanto hai scritto e si presenta con lo script già compilato elimina

I numeri dellestrazione;
le frequenze dei numeri;
i ritardi

Penso che puoi sistemarli in una riga.
Ultimo dato come esposizione devi tenere conto almeno delle ultime 10 estrazioni
ma per avere una statistica se puoi cnsiderarne una 20^ .
NB potresti far apparire come prima riga a partire dalla ultima estrazione?
Per esempio se in sottrazione quella del 16.02.2016 non sarà presente
ma si inizia da quella del 13.02.2016 e a seguire le altre più vecchie.

Spero sia chiaro ma se cè qualcosa di poco chiaro . Aspetto
Grazie

giorgioantonio · 18 Febbraio 2016

[No message]

giorgioantonio · 18 Febbraio 2016

Salve Mike58,
ti allego questo prototipo di come vorrei in modo semplice la visione del risultato.
Ho riportato solo i numeri che si ottengono e i relativi punteggi oteenuti durante le estrazioni sempre con la stessa lunghetta
ottenuta da ogni estrazione.

Mike58 · 18 Febbraio 2016

Ciao GiorgioAntonio, ho visto il tuo allegato è sembra chiaro, ma io per ora annaspo a trovare le soluzioni conclusive.

per ora sono arrivato a mettere in ordine i numeri da ricavare, poi vedrò in seguito se riesco a metterti i punti ottenuti in colonne per la verifica.

per ora fai una verifica dei dati trovati, poi vedremo in seguito.

Codice:

Sub Main

ImpostaArchivio10ELotto(1)

Dim Nu(90),T,V

Ini = EstrazioniArchivioDL - 10

fin = EstrazioniArchivio

For np = 1 To 90

If Primo(np) Then

kn = kn + 1

Nu(np) = np

End If

Next

Scrivi "Numeri Primi : " & StringaNumeri(Nu) & " ---> " & kn,1

Scrivi

T = Array(T,"Id Data Trovata","Estratti","Numeri Primi","Q,tà","Numeri prec-Primi","Num Prono","Verifica","colpo"," Id data")

Call InitTabella(T,1,,,5)

For es = fin To Ini Step - 1

' ..............calcolo Numeri Primi ...........................................

For p = 2 To 20

n = EstrattoDL(es,p)

If Primo(n) Then

k = k + 1

ReDim Preserve nPrimi(k)

nPrimi(k) = n

'End If

'...................................................................

' ...... calcolo numeri precedenti in posizione ai numeri primi...........

If Primo(n) Then

kk = kk + 1

ReDim Preserve NoPrimiPrec(kk)

NoPrimiPrec(kk) = EstrattoDL(es,p - 1)

'End If

'.........................................................................

' calcolo differenze per pronostico.......................................

If k = kk Then

kkk = kkk + 1

ReDim Preserve nProno(kkk)

nProno(kkk) = Differenza(nPrimi(k),EstrattoDL(es,p - 1))

EliminaRipetuti(nProno)

Call VerificaEsitoDL(nProno,es+1,1,10,,clp,es1,id)

End If

End If

End If

Next

V = Array(V,DataEstrazione(es),StringaEstrattiDL(es),StringaNumeri(nPrimi),k,StringaNumeri(NoPrimiPrec),StringaNumeri(nProno),es1,clp,getinfoestrazione(id))

Call AddRigaTabella(V)

k = 0

kk = 0

kkk = 0

Next

CreaTabella

End Sub

Mike58 · 18 Febbraio 2016

Ciao GiorgioAntonio, per ora non riesco secondo la tua tabella, a volte capita di non mettere il giusto ordine nei codici script.
Penso che puoi ottenere la stessa verifica cosi come ho fatto lo script.
Se trovo soluzioni diverse non mancherò.
Mi spiace ma per questi giochi non riesco a fare meglio.

Codice:

Sub Main

ImpostaArchivio10ELotto(1)

Dim Nu(90),T,V

Ini = EstrazioniArchivioDL - 10

fin = EstrazioniArchivio

For np = 1 To 90

If Primo(np) Then

kn = kn + 1

Nu(np) = np

End If

Next

Scrivi "Numeri Primi : " & StringaNumeri(Nu) & " ---> " & kn,1

Scrivi

T = Array(T,"Id Data Trovata","Estratti","Numeri Primi","Q,tà","Numeri prec-Primi","Num Prono","Verifica","colpo"," Id data")

Call InitTabella(T,1,,,5)

For es = fin To Ini Step - 1

' ..............calcolo Numeri Primi ...........................................

For p = 2 To 20

n = EstrattoDL(es,p)

If Primo(n) Then

k = k + 1

ReDim Preserve nPrimi(k)

nPrimi(k) = n

'End If

'...................................................................

' ...... calcolo numeri precedenti in posizione ai numeri primi...........

If Primo(n) Then

kk = kk + 1

ReDim Preserve NoPrimiPrec(kk)

NoPrimiPrec(kk) = EstrattoDL(es,p - 1)

'End If

'.........................................................................

' calcolo differenze per pronostico.......................................

If k = kk Then

kkk = kkk + 1

ReDim Preserve nProno(kkk)

nProno(kkk) = Differenza(nPrimi(k),EstrattoDL(es,p - 1))

EliminaRipetuti(nProno)

Call VerificaEsitoDL(nProno,es + 1,1,10,,clp,es1,id)

End If

End If

End If

Next

V = Array(V,DataEstrazione(es),StringaEstrattiDL(es),StringaNumeri(nPrimi),k,StringaNumeri(NoPrimiPrec),StringaNumeri(nProno),es1,clp,GetInfoEstrazione(id))

Call AddRigaTabella(V)

ImpostaGiocataDL 1,nProno,1,10

k = 0

kk = 0

kkk = 0

Scrivi String(160,"=")

Call GiocaDL(es)

Next

Call SetTableWidth("100%")

CreaTabella

End Sub

giorgioantonio · 19 Febbraio 2016

Salve Mike non ho effettuato dei controlli sui calcoli ma ho visto l'impostazione.
Ora puoi far funzionaare se in sottrazione o addizione il calcolo? E quindi abilitarlo anche
per il 10 e lotto 5 minuti, poi se ti viene un'idea per migliorarlo buon pro.
Ciao

Mike58 · 19 Febbraio 2016

Per ora ho messo le indicazioni che chiedi e mi sembra anche funzionale cosi, poi se dovessi riuscire a far funzionare con qualche escamotage il codice PuntiSuArray farò le altre modifiche.
Ma ripeto mi sembra funzionale cosi.

Codice:

Sub Main

qt = InputBox("Quante Estrazioni Analizzo",,10)

cl = CInt(InputBox("Quanti colpi in verifica",,10))

arch = CInt(InputBox("Quale Archivio" & Chr(13) & Chr(13) & "1 = 10 e Lotto Serale " & Chr(13) & "2 = 10 e Lotto 5 Min",,1))

scel = CInt(InputBox("Quale operazione" & Chr(13) & Chr(13) & "1 = Sottrazione" & Chr(13) & "2 = Addizione",,1))

ImpostaArchivio10ELotto(arch)

Dim Nu(90),T,V

Ini = EstrazioniArchivioDL - qt

fin = EstrazioniArchivio

For np = 1 To 90

If Primo(np) Then

kn = kn + 1

Nu(np) = np

End If

Next

Scrivi "Numeri Primi : " & StringaNumeri(Nu) & " ---> " & kn,1

Scrivi

T = Array(T,"Id Data Trovata","Estratti","Numeri Primi","Q,tà","Numeri Lato-Primi","Num Prono","Verifica","colpo"," Id data")

Call InitTabella(T,1,,,5)

For es = Ini To fin

' ..............calcolo Numeri Primi ...........................................

If scel = 1 Then

For p = 2 To 20

n = EstrattoDL(es,p)

If Primo(n) Then

k = k + 1

ReDim Preserve nPrimi(k)

nPrimi(k) = n

'End If

'...................................................................

' ...... calcolo numeri precedenti in posizione ai numeri primi...........

If Primo(n) Then

kk = kk + 1

ReDim Preserve NoPrimiPrec(kk)

NoPrimiPrec(kk) = EstrattoDL(es,p - 1)

'End If

'.........................................................................

' calcolo differenze per pronostico.......................................

If k = kk Then

kkk = kkk + 1

ReDim Preserve nProno(kkk)

nProno(kkk) = Differenza(nPrimi(k),EstrattoDL(es,p - 1))

EliminaRipetuti(nProno)

Call VerificaEsitoDL(nProno,es + 1,1,cl,,clp,es1,id)

End If

End If

End If

Next

End If

If scel = 2 Then

For p = 1 To 19

n = EstrattoDL(es,p)

If Primo(n) Then

k = k + 1

ReDim Preserve nPrimi(k)

nPrimi(k) = n

'End If

'...................................................................

' ...... calcolo numeri precedenti in posizione ai numeri primi...........

If Primo(n) Then

kk = kk + 1

ReDim Preserve NoPrimiPrec(kk)

NoPrimiPrec(kk) = EstrattoDL(es,p + 1)

'End If

'.........................................................................

' calcolo differenze per pronostico.......................................

If k = kk Then

kkk = kkk + 1

ReDim Preserve nProno(kkk)

nProno(kkk) = Differenza(nPrimi(k),EstrattoDL(es,p + 1))

EliminaRipetuti(nProno)

Call VerificaEsitoDL(nProno,es + 1,1,cl,,clp,es1,id)

End If

End If

End If

Next

End If

V = Array(V,DataEstrazione(es),StringaEstrattiDL(es),StringaNumeri(nPrimi),k,StringaNumeri(NoPrimiPrec),StringaNumeri(nProno),es1,clp,GetInfoEstrazione(id))

Call AddRigaTabella(V)

ImpostaGiocataDL 1,nProno,1,cl

k = 0

kk = 0

kkk = 0

Scrivi String(160,"=")

Call GiocaDL(es)

Next

Call SetTableWidth("100%")

CreaTabella

ScriviResocontoDL,0

End Sub

giorgioantonio · 19 Febbraio 2016

Salve Mike, per questo ti ho chiesto di completarlo, quindi in attesa dell'arry si può procedere.

Mike spero di non stressarti, purtroppo dico io (noi) vago nel buio per quanto riguarda le statistiche
su un argomento, il motivo è che lavoro di mano con gli appuntiui e quando trovo circ una decina di
casi positivi per me diventa accettabile quel tipo di ragionamento.
Arrivo al punto e siccome siamo sempre in tema di numeri primi vorrei chiederti un ulteriore sforzo.
Se puoi tornare sullo script con numeri in posizione del gioco del lotto.
Semplicemente si tratterebbe di impostare la verifica dei numeri ottenuti dal lotto contarli sui numeri
del 10elotto così come li ottiene dal lotto senza spostare di una virgola lo script.
Quindi i punti che si ottengono al 10 e lotto su 10 estrazioni.
L'unica cosa da spostare è che se 2 o più numeri si ottengono dalla stessa estrazione metterli insieme.
Vedi se puoi inteso in senso di pazienza.
Si perchè manualmente ho visto che si presenta più consistente i numeri in uscita.
Grazie della bontà con cui ti applichi.
Ciao

Mike58 · 19 Febbraio 2016

Ciao GiorgiAntonio, purtroppo (mea culpa) causa tempo nel soffermarmi a leggere non ho capito molto, non so, se trovo la vena e il giusto tempo vedremo.

Proprio per i motivi che hai citato ho voluto imparare questa possibilità di interrogare gli archivi con gli script, almeno tutto quello che passa per la mente si può mettere Nero su bianco e vederne i risultati.

Visto che i codici sono aperti bisognerebbe avere la curiosità di cimentarsi, lo dico da sempre e se ci sono riuscito io con l'età che avanza altri potrebbero avere le stesse soddisfazioni.

Tempo permettendo come ti dicevo, vedrò quello che si può fare.

ciao

Mike58 · 19 Febbraio 2016

GiorgoAntonio, leggendo le tue righe non capisco se vuoi

1 - lo stesso script del 10 e lotto convertito in solo Lotto
2 - lo script del Lotto, convertito in 10 e lotto.

fammi sapere.

giorgioantonio · 19 Febbraio 2016

Salve Mike58,
volevo che lo script del lotto, mettendo insieme tutti i numeri delle dieci ruote, vedere quanti punti fa col 10elotto.
Se non mi sono spiegato fammi sapere.
Ciao
NB riguarda sempre i numeri ottenuti da numeri primi col metodo del lotto.

Posizione da numeri primi

Super Member >PLATINUM<

Advanced Member >PLATINUM PLUS<

Super Member >PLATINUM<

Super Member >PLATINUM<

Advanced Member >PLATINUM PLUS<

Super Member >PLATINUM<

Advanced Premium Member

Super Member >PLATINUM<

Advanced Member >PLATINUM PLUS<

Super Member >PLATINUM<

Super Member >PLATINUM<

Super Member >PLATINUM<

Allegati

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Super Member >PLATINUM<

Advanced Member >PLATINUM PLUS<

Super Member >PLATINUM<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Super Member >PLATINUM<