aiuto per script complicato

ghio · 13 Settembre 2019

se lascio l archivio indietro di una estrazione elaboro e mi ritrovo quel risultato ,ritrovo tra i numeri quelli con rit zero e ottengo diversi ambi
o sbaglio io?????

Rubino · 13 Settembre 2019

si ma quei numeri sono tutti quelli appena usciti sulle 10 ruote
nel caso di quelli che hai segnalato
69 42
75 63
non sono altro che quelli dell'estraz.9680 del 10/9/2019 o anche quelli 9679 del 7/9/2019

ma il problema è che sono 44 numeri che hanno ritardo 0

e normale trovare ambi/terne/quaterne a colpo

con tutti questi numeri.

solare · 13 Settembre 2019

Ciao Ghio e Rubino. Effettivamente rubino ha ragione su quello che mostra Ghio.
Chiedo e se noi mettessimo in gioco i numeri con rit. 1 sempre a tutte ?

solare · 13 Settembre 2019

sempre troppi numeri…..da mettere in gioco

ghio · 13 Settembre 2019

si ma intendevo per la posizione rubino,quindi se torna quello che penso domani provo a postare una prev,

ghio · 14 Settembre 2019

73-12-29 ba mi na pa
ambo terno con aggiunta 47

ghio · 30 Settembre 2019

nessuno più nulla

Rubino · 1 Ottobre 2019

dando uno sguardo ai vari script fatti, a mio avviso anche se in forma di prova

posso segnalare probabile uscita di almeno 1 ambo a tutte
nelle posizioni 3-5 di NA/pA/rO

quindi ambi 07 26 * 46 41 * 23 45
inoltre nella posizione 2 3 e 2 5 di palermo

si trovano questi 2 ambi 70 41 * 46

riepilogo ambi a TUTTE 07 26 * 46 41 * 23 45 * 70 41 * 70 46

il gioco è un gioco sulla ripetizione in pochi colpi dei 100 ambi usciti ad ogni estrazione.

joe · 2 Ottobre 2019

Ciao Rubino,

in qualche modo è possibile ... rendere compatibili gli script.

Se però questi sono scritti sfruttando le maggiori potenzialità

ed istruzioni caratteristiche di Spaziometria,

il possibile tende velocemente all'impossibile.

Secondo me, il convertirlo, non avvale

l'impegno necessario per renderlo eseguibile.

E' molto più semplice usare Spaziometria.

ghio · 14 Ottobre 2019

Riepilogo delle Migliori posizioni tra i 50 che hanno generato l'ambo
Periodo : da 9644 / 18.06.2019 a 9694 / 12.10.2019
0219 Pres.5
non corrisponde
ho fatto questo pr prova

Sub main()
Dim ruote(1)
Dim numeri1(4)
Dim poste(4)
poste(1)=500
poste(2)=400
ruote(1)=11
k=1
For n=EstrazioneFin-100 To EstrazioneFin
numeri1(1)=Fuori90(Estratto(n,1,2))
numeri1(2)=Fuori90(Estratto(n,4,4))
EliminaRipetuti numeri1
ImpostaGiocata 1,numeri1,ruote,poste,k,2
Gioca n
Next
ScriviResoconto
End Sub
Scrivi

dimmi se sbaglio rubino

Rubino · 15 Ottobre 2019

il secondo di bari
il quarto di genova

perchè il fuori90? non serve, va be

se guardi il riepilogo puoi vedere range = 101, presumo 101 estrazioni

in gioco coppia di estratti 21 63 del 10/10
in gioco coppia di estratti 04 26 del 12/10

questo è lo script che hai postato.

non ti trovi con quale mio script, mi puoi ricordare il nome che ho messo?
così provo a controllarlo.

Rubino · 15 Ottobre 2019

perchè non hai scelto a FIRENZE in quarta posizione c'è il nr.30 che è 5 colpi che non da ripetizione?
che trova convergenza con
ge/2 posizione e to/3 posizione
ma vediamo cosa succede.

Rubino · 15 Ottobre 2019

heheheh il 30 è andato a Roma, una delle due ruote dove mancava la presenza!

questo è ciò che mi aspettavo quando avevo fatto lo script, individuare le ruote mancanti di presenze.
e trovare le convergenze dagli altri prospetti sempre elencati dallo script.
soprattutto quelle posizionali.

Rubino · 16 Ottobre 2019

controllando oggi dopo aver aggiornato le estrazioni di ieri sera

ho visto l'uscita dell'ambo 46 41 a Tutte / è andato a Firenze

7 colpo

Rubino ha scritto:
riepilogo ambi a TUTTE 07 26 * 46 41 * 23 45 * 70 41 * 70 46

ghio · 16 Ottobre 2019

Option Explicit
Sub Main
'''rubino-ghio Evol "
Dim n,r,es,p,nm,rit,ruota,nsorte,retrit,retritmax,Sintesi,h,S,retfre,retesito,retestratti,retidestr,c
Dim bi,kk,jj,Ini,last,xyz,colonne,Scolonna,kw,jw,a,b,esf
Dim art(10),provenrif(10,5,1),ambipos(4950,2)
Scrivi "Rileva i 50 numeri di Estrazione nelle 10 Ruote",1
Scrivi "-- Verifica Numeri Usciti e Ripetuti nelle 10 Ruote",1
Scrivi "-- Verifica Ambi/terni/quaterne/cinquine Uscite e provenienza dalla Ruota e posizione ",1
Scrivi "-- Calcola Ritardo a Tutte ed a Ruota dei singoli Estratti Usciti ",1
''''
nsorte = InputBox("Controlla per sorte 1,2,3,4,5 ",,2)
esf = InputBox("dall Estraz.n.",,EstrazioneFin)
es = esf - 50
Ini = es
For jj = 1 To 10
art(jj) = jj
Next
'''''
For es = es + 1 To EstrazioneFin
S = 0
ReDim nr(90,2),NUMERI(60),anrpo(10)
For n = 1 To 90
rit = EstrattoRitardo(11,n,3950,es)
nr(n,1) = rit
nr(n,2) = n
If rit = 0 Then
S = S + 1
NUMERI(S) = n
End If
Next
'''
Scrivi:ColoreTesto(2)
Scrivi "Rubino-Ghio-Evol Verifica Lunghette nelle Ripetizioni Immediate ",1,,7,5
ColoreTesto(0)
Scrivi "Numeri usciti nell estrazione " & es & " / " & DataEstrazione(es) & " attesa per Ripetizione su varie ruote ",1
Scrivi "Nr." & StringaNumeri(NUMERI,"-") & " Tot.nr " & S,1
ColoreTesto(1)
''''
If es + 1 <= EstrazioneFin Then
Scrivi:Scrivi "Riepilogo Ritardo su Ruota per la sorte " & nsorte & " minima dall estraz. " & es + 1 & " / " & DataEstrazione(es + 1),1
ColoreTesto(0)
ReDim ruote(1)
For h = 1 To 10
ruote(1) = h
c = 0
ReDim anrpo(10)
'''verifica esito al colpo successivo
Call VerificaEsitoTurbo(NUMERI,ruote,es + 1,nsorte,1,,retesito,,retestratti,retidestr)
'''''se negativo prova per più colpi
If retestratti = "" Then
retesito = " Neg.InCorso <<"
Call VerificaEsitoTurbo(NUMERI,ruote,es + 2,nsorte,,,retesito,,retestratti,retidestr)
If retestratti = "" Then
retesito = " Neg.InCorso <<"
retidestr = EstrazioneFin
c = 1
End If
End If
Call StatisticaFormazioneTurbo(NUMERI,ruote,2,retrit,retritmax,,retfre,3950,retidestr)
If retrit > 0 Then ColoreTesto(2) Else ColoreTesto(0) End If
If c = 1 Then ColoreTesto(7)End If
'''''''''''''''''''
If es <= EstrazioneFin Then
last = retidestr
xyz = 0
If retesito <> " Neg.InCorso <<" Then Call Provenienza(es,NUMERI,S,retestratti,last,provenrif,anrpo,xyz)
'''''''''''''''''''
'''sviluppo combinazione delle posizioni
ReDim nm(xyz)
If xyz = 2 Then
nm(1) = anrpo(1)
nm(2) = anrpo(2)
'' Scrivi StringaNumeri(nm,".")
ambipos(Format2(nm(1)) & Format2(nm(2)),1) = ambipos(Format2(nm(1)) & Format2(nm(2)),1) + 1
ambipos(Format2(nm(1)) & Format2(nm(2)),2) = Format2(nm(1)) & Format2(nm(2))
End If
If xyz > 2 Then
colonne = 0
colonne = SviluppoIntegrale(anrpo,2)
For kw = 1 To UBound(colonne)
Scolonna = ""
If ScriptInterrotto Then Exit For
For jw = 1 To 2
Scolonna = Scolonna & Format2(colonne(kw,jw)) & " "
nm(jw) = colonne(kw,jw)
Next
'' Scrivi StringaNumeri(nm,".")
ambipos(Format2(nm(1)) & Format2(nm(2)),1) = ambipos(Format2(nm(1)) & Format2(nm(2)),1) + 1
ambipos(Format2(nm(1)) & Format2(nm(2)),2) = Format2(nm(1)) & Format2(nm(2))
Next
End If
'''''''''''''''''''
Scrivi SiglaRuota(h) & " ..Rc./ Rx." & Format2(retrit) & " / " & Format2(retritmax) & " " & retidestr & " colpo " & retidestr - es & " " & retestratti & " " & retesito & " Key.Pos." & StringaNumeri(anrpo,"-"),1
Call calcolapresenzeposizioni(anrpo,ambipos,xyz)
Scrivi String(90,"*"):Scrivi
End If
Next
Scrivi String(90,"*")
End If
Next
ColoreTesto(0)
Scrivi:Scrivi "Riepilogo delle Migliori posizioni tra i 50 che hanno generato l'ambo",1
Scrivi "Periodo : da " & Ini & " / " & DataEstrazione(Ini) & " a " & esf & " / " & DataEstrazione(esf),1
Call OrdinaMatrice(ambipos,- 1,1)
For a = 1 To 49
For b = a + 1 To 50
If ambipos(Format2(a) & Format2(b),1) > 0 Then
Scrivi ambipos(Format2(a) & Format2(b),2) & " Pres." & ambipos(Format2(a) & Format2(b),1)
End If
Next
Next
Scrivi:Scrivi TempoTrascorso,1
End Sub
Function Provenienza(es,numeri,s,retestratti,last,provenrif,anrpo,xyz)
Dim rr,pp,MatriceEstrRitorno,ff,bi,kk,jj,rittt,ritru,progp
Dim num(5)
bi = 4 : kk = 0
For jj = 1 To 5
If Mid(retestratti,bi,2) <> ".." Then
kk = kk + 1
num(kk) = Mid(retestratti,bi,2)
End If
bi = bi + 3
Next
ColoreTesto(2)
Scrivi "Ricerca Provenienza dei Numeri Estratti Vedi VerificaEsito(Riga in Nero) " & es & " " & StringaNumeri(num,"-"),1
ColoreTesto(0)
'''provenienza estratti
Call GetEstrazioneCompleta(es,MatriceEstrRitorno)
progp = 0 : xyz = 0
For rr = 1 To 10
For pp = 1 To 5
progp = progp + 1
For ff = 1 To kk
If MatriceEstrRitorno(rr,pp) = Int(num(ff)) Then
xyz = xyz + 1
anrpo(xyz) = progp
provenrif(rr,pp,1) = num(ff)
rittt = EstrattoRitardoTurbo(11,num(ff),es - 35,last - 1)
ritru = EstrattoRitardoTurbo(rr,num(ff),es - 300,last - 1)
Scrivi es & "....." & SiglaRuota(rr) & " Pos. " & pp & " = " & Format2(num(ff)) & "== Pos.Prog." & Format2(progp) & " " & Format2(MatriceEstrRitorno(rr,pp)) & " Rit.TT " & rittt & " Rit.Ruota " & ritru,1,,,10
ColoreTesto(0)
End If
Next
Next
Next
End Function
Function calcolapresenzeposizioni(anrpo,ambipos,xyz)
Scrivi "Sviluppo Posizioni " & StringaNumeri(anrpo,"/") & " Tot.P." & xyz
End Function
questo o usato per il conffronto

ghio · 16 Ottobre 2019

Rubino-Ghio-Evol Verifica Lunghette nelle Ripetizioni Immediate
Numeri usciti nell estrazione 9695 / 15.10.2019 attesa per Ripetizione su varie ruote
Nr.4-5-7-9-10-11-13-18-20-21-27-30-33-35-36-37-41-42-46-48-49-50-54-56-62-64-65-66-67-68-70-71-73-78-80-82-83-84-86-87 Tot.nr 40

Riepilogo delle Migliori posizioni tra i 50 che hanno generato l'ambo
Periodo : da 9645 / 20.06.2019 a 9695 / 15.10.2019
1642 Pres.4
1336 Pres.4
o fatto delle prove e non corrispondono

Rubino · 17 Ottobre 2019

ho lanciato lo script che hai postato e si ottiene l'elenco dei numeri dell'ultima estrazione 9695

come da foto che allego

ci sono tutti
credo che questa lunghetta dinamica di n.40 numeri sia la base per calcolare gli ambi

ora riguardo lo script cosa fa, perchè non lo ricordo, e poi ti dico.

a) se l'ambo secco non è a colpo, continua in cerca di rilevare quando è uscito nel periodo esaminato
in altre parole non si ferma alla prima uscita ma calcola nel periodo quante volte le posizioni (x) e

hanno prodotto l' ambo

il 1642 è da intendersi come posizioni, cioè le posizioni 16 42 hanno prodotto 4 ambi nel periodo esaminato
idem per il 1336, sono le posizioni con 4 presenze anche loro.

pos.16 corrisponde il 10 di Genova
pos.42 corrisponde il 21 di Torino

pos.13 corrisponde il 73 di FIRENZE
pos.36 corrisponde il 48 di Roma

cioè non è l'ambo da giocare, ma sono le posizioni dove ricavare l'ambo

provo a modificare lo script

corretto:
1) ho specificato i numeri sequenzialmente nelle 50 posizioni, come da reale estrazione, senza ordinarli
2) ho modificato l'intestazione del riepilogo in fondo, specificando le posizioni e decodificando l'ambo corrispondente

se ci sono altre modifiche da fare, fammi sapere.

Codice:

Option Explicit Sub Main '''rubino-ghio Evol " Dim n,r,es,p,nm,rit,ruota,nsorte,retrit,retritmax,Sintesi,h,S,retfre,retesito,retestratti,retidestr,c Dim bi,kk,jj,Ini,last,xyz,colonne,Scolonna,kw,jw,a,b,esf,ru,po,ctz,lispos,aa,bb Dim art(10),provenrif(10,5,1),ambipos(4950,2),Linea(55) Scrivi "Rileva i 50 numeri di Estrazione nelle 10 Ruote",1 Scrivi "-- Verifica Numeri Usciti e Ripetuti nelle 10 Ruote",1 Scrivi "-- Verifica Ambi/terni/quaterne/cinquine Uscite e provenienza dalla Ruota e posizione ",1 Scrivi "-- Calcola Ritardo a Tutte ed a Ruota dei singoli Estratti Usciti ",1 '''' nsorte = InputBox("Controlla per sorte 1,2,3,4,5 ",,2) esf = InputBox("dall Estraz.n.",,EstrazioneFin) es = esf - 50 Ini = es For jj = 1 To 10 art(jj) = jj Next ''''' '''carica arrays sequenza numeri estratti nell'ultima estrazione For ru = 1 To 10 For po = 1 To 5 ctz = ctz + 1 Linea(ctz) = Format2(Estratto(esf,ru,po)) lispos = lispos & Format2(ctz) & " " Next Next ''''' For es = es + 1 To EstrazioneFin S = 0 ReDim nr(90,2),NUMERI(60),anrpo(10) For n = 1 To 90 rit = EstrattoRitardo(11,n,3950,es) nr(n,1) = rit nr(n,2) = n If rit = 0 Then S = S + 1 NUMERI(S) = n End If Next ''' Scrivi:ColoreTesto(2) Scrivi "Rubino-Ghio-Evol Verifica Lunghette nelle Ripetizioni Immediate ",1,,7,5 ColoreTesto(0) Scrivi "Numeri usciti nell estrazione " & es & " / " & DataEstrazione(es) & " attesa per Ripetizione su varie ruote ",1 Scrivi "Posizioni " & GetTestoHtml(lispos,True,vbBlack,5,1) Scrivi "Nr.Sequenza " & GetTestoHtml(StringaNumeri(Linea," "),True,vbRed,5,1) Scrivi "Nr.Ordinati " & GetTestoHtml(StringaNumeri(NUMERI,"-") & " Tot.nr " & S,,,,1) ColoreTesto(1) '''' If es + 1 <= EstrazioneFin Then Scrivi:Scrivi "Riepilogo Ritardo su Ruota per la sorte " & nsorte & " minima dall estraz. " & es + 1 & " / " & DataEstrazione(es + 1),1 ColoreTesto(0) ReDim ruote(1) For h = 1 To 10 ruote(1) = h c = 0 ReDim anrpo(10) '''verifica esito al colpo successivo Call VerificaEsitoTurbo(NUMERI,ruote,es + 1,nsorte,1,,retesito,,retestratti,retidestr) '''''se negativo prova per più colpi If retestratti = "" Then retesito = " Neg.InCorso <<" Call VerificaEsitoTurbo(NUMERI,ruote,es + 2,nsorte,,,retesito,,retestratti,retidestr) If retestratti = "" Then retesito = " Neg.InCorso <<" retidestr = EstrazioneFin c = 1 End If End If Call StatisticaFormazioneTurbo(NUMERI,ruote,2,retrit,retritmax,,retfre,3950,retidestr) If retrit > 0 Then ColoreTesto(2) Else ColoreTesto(0) End If If c = 1 Then ColoreTesto(7)End If ''''''''''''''''''' If es <= EstrazioneFin Then last = retidestr xyz = 0 If retesito <> " Neg.InCorso <<" Then Call Provenienza(es,NUMERI,S,retestratti,last,provenrif,anrpo,xyz) ''''''''''''''''''' '''sviluppo combinazione delle posizioni ReDim nm(xyz) If xyz = 2 Then nm(1) = anrpo(1) nm(2) = anrpo(2) '' Scrivi StringaNumeri(nm,".") ambipos(Format2(nm(1)) & Format2(nm(2)),1) = ambipos(Format2(nm(1)) & Format2(nm(2)),1) + 1 ambipos(Format2(nm(1)) & Format2(nm(2)),2) = Format2(nm(1)) & Format2(nm(2)) End If If xyz > 2 Then colonne = 0 colonne = SviluppoIntegrale(anrpo,2) For kw = 1 To UBound(colonne) Scolonna = "" If ScriptInterrotto Then Exit For For jw = 1 To 2 Scolonna = Scolonna & Format2(colonne(kw,jw)) & " " nm(jw) = colonne(kw,jw) Next '' Scrivi StringaNumeri(nm,".") ambipos(Format2(nm(1)) & Format2(nm(2)),1) = ambipos(Format2(nm(1)) & Format2(nm(2)),1) + 1 ambipos(Format2(nm(1)) & Format2(nm(2)),2) = Format2(nm(1)) & Format2(nm(2)) Next End If ''''''''''''''''''' Scrivi SiglaRuota(h) & " ..Rc./ Rx." & Format2(retrit) & " / " & Format2(retritmax) & " " & retidestr & " colpo " & retidestr - es & " " & retestratti & " " & retesito & " Key.Pos." & StringaNumeri(anrpo,"-"),1 Call calcolapresenzeposizioni(anrpo,ambipos,xyz) Scrivi String(90,"*"):Scrivi End If Next Scrivi String(90,"*") End If Next ColoreTesto(0) Scrivi:Scrivi "Riepilogo delle Migliori posizioni tra i 50 che hanno generato l'ambo",1 Scrivi "Periodo : da " & Ini & " / " & DataEstrazione(Ini) & " a " & esf & " / " & DataEstrazione(esf),1 Call OrdinaMatrice(ambipos,- 1,1) For a = 1 To 49 For b = a + 1 To 50 If ambipos(Format2(a) & Format2(b),1) > 0 Then aa = Left(ambipos(Format2(a) & Format2(b),2),2) bb = Right(ambipos(Format2(a) & Format2(b),2),2) Scrivi "Pos.rilevate " & ambipos(Format2(a) & Format2(b),2) & " Pres." & ambipos(Format2(a) & Format2(b),1) & " Ambo decod. " & GetTestoHtml(Linea(aa) & " " & Linea(bb),True,vbRed) End If Next Next Scrivi:Scrivi TempoTrascorso,1 End Sub Function Provenienza(es,numeri,s,retestratti,last,provenrif,anrpo,xyz) Dim rr,pp,MatriceEstrRitorno,ff,bi,kk,jj,rittt,ritru,progp Dim num(5) bi = 4 : kk = 0 For jj = 1 To 5 If Mid(retestratti,bi,2) <> ".." Then kk = kk + 1 num(kk) = Mid(retestratti,bi,2) End If bi = bi + 3 Next ColoreTesto(2) Scrivi "Ricerca Provenienza dei Numeri Estratti Vedi VerificaEsito(Riga in Nero) " & es & " " & StringaNumeri(num,"-"),1 ColoreTesto(0) '''provenienza estratti Call GetEstrazioneCompleta(es,MatriceEstrRitorno) progp = 0 : xyz = 0 For rr = 1 To 10 For pp = 1 To 5 progp = progp + 1 For ff = 1 To kk If MatriceEstrRitorno(rr,pp) = Int(num(ff)) Then xyz = xyz + 1 anrpo(xyz) = progp provenrif(rr,pp,1) = num(ff) rittt = EstrattoRitardoTurbo(11,num(ff),es - 35,last - 1) ritru = EstrattoRitardoTurbo(rr,num(ff),es - 300,last - 1) Scrivi es & "....." & SiglaRuota(rr) & " Pos. " & pp & " = " & Format2(num(ff)) & "== Pos.Prog." & Format2(progp) & " " & Format2(MatriceEstrRitorno(rr,pp)) & " Rit.TT " & rittt & " Rit.Ruota " & ritru,1,,,10 ColoreTesto(0) End If Next Next Next End Function Function calcolapresenzeposizioni(anrpo,ambipos,xyz) Scrivi "Sviluppo Posizioni " & StringaNumeri(anrpo,"/") & " Tot.P." & xyz End Function

ghio · 17 Ottobre 2019

rubino grazie ma quello che il 1642 mi era chiaro non era chiaaro ma o capito il fatto del periodo ok

Alien. · 22 Ottobre 2019

Ciao,ottimo si potrebbe inserire l'ID ,grazie. 1°-2°-3° ecc...estrazione del mese ?,grazie.(solo la prima o solo la seconda ecc... estrazione mese)
ed i colpi a scelta da 1 a 10

zagort · 28 Ottobre 2019

ciao, ghio
ti auguro un gran successo,soprattutto anche al tuo alter ego Rubens ,passo la mano( nel gergo "pokeresco"),
avendo gia letto molto nel lontano 2004( forum ramcolotto se non erro script della brava Rosanna),ricalca
argomentazioni di genios,per questo ti ponevo quella domanda.........credo che riuscirete sicuramente a fare
previsioni attendibili e a far felici tutti quelli che seguono il 3d

aiuto per script complicato

Super Member >PLATINUM<

Rubino

Guest

Advanced Member >PLATINUM<

Advanced Member >PLATINUM<

Super Member >PLATINUM<

Super Member >PLATINUM<

Super Member >PLATINUM<

Rubino

Guest

Advanced Member >PLATINUM PLUS<

Super Member >PLATINUM<

Rubino

Guest

Rubino

Guest

Rubino

Guest

Rubino

Guest

Super Member >PLATINUM<

Super Member >PLATINUM<

Rubino

Guest

Super Member >PLATINUM<

Advanced Premium Member

Super Member >PLATINUM<