chiedo un listato.

[Antonin]

Ciao a tutti,avrei bisogno di un listato.
prendere ad ogni ultima del mese, oppure la prima del mese su due ruote a piacere.
Esempio:il 1°di bari il 1°di cagliari fare la somma con fuori 90.
mi spiego meglio
Bari 1°estratto 20
Cagliari 1°estratto 31
20+31=51 vertibile del 51=15 e metto in gioco 51 e 15 su bari e cagliari come estratti e ambo,se possibile che mi faccia fare una verifica con i migliori abbinamenti usciti con il 51 e 15 tutte le volte che si presenta questo caso.
Grazie ai grandi dello script.

Antonio1

 

[Antonin]

Scusate non sapevo che era cosi'difficile.

Antonio1

 

[Roby]

Ciao, per le ambate nessun problema, per gli abbinamenti più frequenti, devi chiedere a qualcun altro.....


Scrivi : Scrivi "QUESTO SCRIPT CALCOLA 2 AMBATE SU BARI e CAGLIARI ALLA 1°ESTRAZIONE DEL MESE"

Sub main()
Dim pt(2),rt(2),nn(2),pta(2)
pt(1)=1
pt(2)=1
pta(1)=1
pta(2)=1

clp=10 'colpi di gioco
rt(1)=1 'Ruota di Bari
rt(2)=2 'Ruota di Cagliari

ini=EstrazioneFin -190
fin=EstrazioneFin
co=0
For es=ini To fin
Messaggio (es)
If IndiceMensile (es)=1 Then '1° estrazione del mese
casi=casi+1
Scrivi String(60,"=")&" Caso n° "&casi,1
co=co+1
'<<-- (help)Sintassi Estratto(estrazione, ruota, Posizione,[tipogioco=0])
a=Estratto(es,1,1)'<<--- questo è il 1^estr. di Bari!!!
b=Estratto(es,2,1)'<<--- questo è il 1^estr. di Cagliari!!!
'------------------------------Ambate
nn(1)=Fuori90 (a+b)
nn(2)= Vert(Fuori90(a+b))

ImpostaGiocata 1,nn,rt,pt,clp

Gioca es
End If
Next
Scrivi : Scrivi "Casi Rilevati "& CInt (co)
ScriviResoconto

End Sub


Blackmore

 

[claudio8]

Magari fosse semplice fare quanto chiedi, non ci sarebbero programmi a pagamento.

Ciao



Lo spot che conosciamo dice "Ti Piace vincere facile ? " che tradotto in pratica significa "Ti Piace..rebbe vincere facile !!!"

 

[pfca]

X Antonio1
Ti posterò al più presto un altro listato, in quello precedente c'era un mia errata interpretazione, tu chiedevi i migliori abbinamenti con i due numeri elaborati, io invece ti ho cercato i numeri più frequenti dopo l'uscita dei due. Pertanto ritengo corretto togliere e rifare, se riesco, il listato come da te chiesto.
Scusa la mia errata interpretazione.


Francesco

 

[Antonin]

Grazie di cuore,siete veramente fantastici,solo una cosa ,per impostare anche all'ultima del mese,cosa dovrei fare.
Grazie ancora.

Antonio1

 

[Roby]

quote:Originally posted by antonio1

Grazie di cuore,siete veramente fantastici,solo una cosa ,per impostare anche all'ultima del mese,cosa dovrei fare.
Grazie ancora.

Antonio1

Nel listato di Pfca, nell'inputbox metti 0 (zero)
Nel mio, dopo es metti +1
If IndiceMensile (es+1)=1 Then 'ultima estrazione del mese
Ciao

Blackmore

 

[pfca]

antonio te lo chiede lo script stesso cosa vuoi giocare,
da 0 uguale ultima del mese al numero che vuoi tu.
Puoi anche scegliere le ruote e verificare tutto quello che vuoi.
Non c'è bisogno di modificare il listato.

Francesco

 

[Antonin]

Grazie Blackmore,me ne sono accorto dopo,che potevo scegliere.
Spero di contare ancora su di voi per un listato e ultimo per completare le mie ricerche.
Grazie anche allo staff tecnico,che ha alle spalle gente comprensiva per noi studiosi,che non sappiamo listare,e'vero che abbiamo sempre bisogno degli altri per andare avanti nella vita.

Antonio1

 

[Antonin]

Grazie Francesco,Siete grandi per averlo modificato.
E'proprio quello che cercavo.

Antonio1

 

[pfca]

Ciao antonio, come promesso ti posto il listato modificato.
Aancora non è come richiesto da te, ma ti farà vedere i migliori abbinamenti alle ambate, basati sulla ricerca dei numeri più frequenti, usciti dopo i numeri utilizzati per il rilevamento.
Ho visto che possono andare ugualmente bene.
Fai qualche prova e controlla nelle estrazioni successive il comportamento degli stessi.

'Listato modificato e integrato con la ricerca dei numeri più frequenti
'usciti dopo i numeri utilizzati per elaborare le Ambate.
'Listato del 23-06-2011 modificato da pfca x Antonio1
Sub Main()
Dim pt(2),rt(2),nn(2),pta(2),sp(2)
Dim num(90,2)
Dim uscito(90,2)
pt(1) = 1
pt(2) = 1
pta(1) = 1
pta(2) = 1
rt(1) = InputBox("Scegli la prima ruota di gioco? ",,1)
rt(2) = InputBox("Scegli la seconda ruota di gioco? ",,2)
es = InputBox("Scegli l'estrazione che vuoi analizzare? 0 ultima, 1 prima, 2 seconda ...:",,0)
ini = InputBox("Quante Estrazioni precedenti vuoi controllare? ",,200)
fin = EstrazioneFin
colpi = InputBox("Per quanti colpi vuoi giocare? ",,12)
co = 0
For n = fin - ini To fin
Messaggio
If(((eval(es) = 0)And(n = ultest))Or((IndiceMensile = eval(es)And(eval(es) > 0))Or((IndiceMensile(n + 1) = 1)And(eval(es) = 0)))) Then
casi = casi + 1
Scrivi String(60,"=") & " Caso n° " & casi,1
co = co + 1
a = Estratto(n,rt(1),1)
b = Estratto(n,rt(2),1)
nn(1) = Fuori90(a + b)
nn(2) = Vert(Fuori90(a + b))
ImpostaGiocata 1,nn,rt,pt,colpi,2
Gioca n
End If
Next
sp(1) = a
sp(2) = b
For y = 1 To 2
'For w = 1 To 2
Scrivi " Analisi dal " & DataEstrazione(EstrazioneFin - ini) & " ad oggi"
Scrivi "Primi 10 più frequenti usciti dopo il numero Spia entro i " & colpi & " colpi",1
'sp = 12
Messaggio " Spia: " & sp
For i = 1 To 90
num(i,1) = 0
num(i,2) = 0
Next
co = 0
For es = fin - ini To fin
If Posizione(es,rt,sp) > 0 Then
co = co + 1
ess = es + colpi + 1
If ess > fin Then ess = fin End If
For a = es + 1 To ess
For v = 1 To 90
uscito(v,2) = 0
Next
For e = 1 To 5
n = Estratto(a,rt,e)
num(n,1) = n
num(n,2) = num(n,2) + 1
uscito(n,1) = n
uscito(n,2) = uscito(n,2) + 1
If uscito(n,2) > 1 Then
num(n,2) = num(n,2) - 1
uscito(n,2) = 1
End If
Next
Next
End If
Next
OrdinaMatrice num,- 1,2
per = Int((co/100)*65)
Scrivi "_________________________________________________________________"
Scrivi "Numero spia: " & sp & " su " & FormatSpace(NomeRuota(rt),10) & " casi = " & co & " colpi " & colpi
Scrivi
riga = "Num. "
riga1 = "Freq. "
For i = 1 To 10
riga = riga & FormatSpace(num(i,1),3) & " "
riga1 = riga1 & FormatSpace(Eval(num(i,2)),4) & " "
Next
Scrivi riga,1
ColoreTesto 2
Scrivi riga1
ColoreTesto 0
Scrivi
Scrivi "Casi Rilevati " & CInt(co)
Next
ColoreTesto 1
Scrivi ""
Scrivi " • pfca • ",1
Scrivi ""
ColoreTesto 0
ScriviResoconto
End Sub



Francesco

 

[Roby]

Pfca te ne intendi di script superenalotto?
Se si, ci dai una mano?
http://forum.lottoced.com/topic.asp?TOPIC_ID=134605

Blackmore

 

[Antonin]

Che dire Francesco sei veramente eccezionale.

Come vi avevo detto,se possibile l'ultimo listato per completare le mie ricerche.

Spero di farmi capire ma penso di si.

Le decine naturali: per ambate, 1-10/11-20 fino alla 81-90.

Esempio se a Bari e'uscito un numero della decina 1-10 esempio 5,e voglio sapere l'estratto della decina 1-10 che si e' presentato di piu'nelle estrazioni successive verificando 100 o 1000 estrazioni a ritroso,oppure le coppie o le terzine della decina 1-10.
Cosi per tutte le decine,e'ovvio che se esce il 5 scelgo la decina 1-10,se esce l'11 scelgo la decina 11-20.
Scelta dei colpi 6/9/12/18.
Grazie e spero di essermi espresso bene.

Antonio1

 

[Antonin]

Ciao Francesco,lo so che sei impegnato,ma ti aspetto per completare il mio studio.
Buon Lavoro so attendere.

Antonio1

 

[pfca]

Ciao Antonio,
ti invio listato che dovrebbe fare la ricerca dei numeri appartenenti alla decina degli estratti, della estrazione e della ruota che tu scegli. Io non sono bravo con gli script, cerco di imparare e ragionare,
ma sono proprio all'inizio, per cui valuta e verifica ciò che lo script ti propone.

'Listato modificato e integrato con la ricerca dei numeri più frequenti
'appartenenti alla Decina dell'estratto uscito per la ricerca delle Ambate.
'Listato del 25-06-2011 modificato da pfca x Antonio1
Sub Main()
Dim rt,nn(2),f(5),p1,fs(5)
Dim num(90,2)
Dim uscito(90,2)

rt = InputBox("Scegli la ruota di gioco? ",,1)
es = InputBox("Scegli l'estrazione che vuoi analizzare? 0 ultima, 1 prima, 2 seconda ...:",,0)
ini = InputBox("Quante Estrazioni precedenti vuoi controllare? ",,200)
fin = EstrazioneFin
colpi = InputBox("Per quanti colpi vuoi giocare? ",,12)
co = 0
For n = fin - ini To fin
Messaggio
If(((eval(es) = 0)And(n = ultest))Or((IndiceMensile = eval(es)And(eval(es) > 0))Or((IndiceMensile(n + 1) = 1)And(eval(es) = 0)))) Then

f(1) = DecinaCabalistica(Estratto(n,rt,1))
f(2) = DecinaCabalistica(Estratto(n,rt,2))
f(3) = DecinaCabalistica(Estratto(n,rt,3))
f(4) = DecinaCabalistica(Estratto(n,rt,4))
f(5) = DecinaCabalistica(Estratto(n,rt,5))
fs(1) = Estratto(n,rt,1)
fs(2) = Estratto(n,rt,2)
fs(3) = Estratto(n,rt,3)
fs(4) = Estratto(n,rt,4)
fs(5) = Estratto(n,rt,5)

End If
Next
ColoreTesto 1
Scrivi ""
Scrivi " • Antonio1 • ",1
Scrivi ""
ColoreTesto 0
Scrivi "Analisi dal " & DataEstrazione(EstrazioneFin - ini) & " ad oggi"
Scrivi "I numeri della decina usciti in ordine di frequenza",1
For y = 1 To 5

Messaggio " Spia: " & f
For i = 1 To 90
num(i,1) = 0
num(i,2) = 0
Next
co = 0
For es = fin - ini To fin
If Posizione(es,rt,f) > 0 Then
co = co + 1
ess = es + colpi + 1
If ess > fin Then ess = fin End If
For a = es + 1 To ess
For v =(((f - 1))*10 + 1) To(((f - 1))*10 + 10)
uscito(v,2) = 0
Next
For e = 1 To 5
n = Estratto(a,rt,e)
num(n,1) = n
num(n,2) = num(n,2) + 1
uscito(n,1) = n
uscito(n,2) = uscito(n,2) + 1
If uscito(n,2) > 1 Then
num(n,2) = num(n,2) - 1
uscito(n,2) = 1
End If
Next
Next
End If
Next

OrdinaMatrice num,- 1,2

Scrivi "_________________________________________________________________"
Scrivi y&"°" &" Numero: "& fs &" Decina: " & f - 1 &" su " & FormatSpace(NomeRuota(rt),10) & " colpi " & colpi
Scrivi
riga = "Num. "
riga1 = "Freq. "
For i = 1 To 10
riga = riga & FormatSpace(num(i,1),3) & " "
riga1 = riga1 & FormatSpace(Eval(num(i,2)),4) & " "
Next
Scrivi riga,1
ColoreTesto 2
Scrivi riga1
ColoreTesto 0

Next

End Sub


Ciao


Francesco

 

[Antonin]

Ciao Francesco,mi da' la frequenza delle decine sbagliate.


Analisi dal 28.10.2010 ad oggi
I numeri della decina usciti in ordine di frequenza
_________________________________________________________________
1° Numero: 33 Decina: 2 su Bari colpi 12

Num. 21 24 30 27 26 25 23 28 22 29
Freq. 9 8 7 7 6 5 5 4 3 2
_________________________________________________________________
2° Numero: 82 Decina: 7 su Bari colpi 12

Num. 76 75 79 80 77 73 74 71 21 28
Freq. 9 7 6 4 3 3 2 2 1 1
_________________________________________________________________
3° Numero: 28 Decina: 1 su Bari colpi 12

Num. 15 11 16 20 19 17 18 75 76 79
Freq. 5 5 4 4 2 2 2 1 1 1
_________________________________________________________________
4° Numero: 34 Decina: 2 su Bari colpi 12

Num. 21 24 27 30 26 23 25 28 22 29
Freq. 9 8 7 7 6 5 5 4 3 2
_________________________________________________________________
5° Numero: 69 Decina: 5 su Bari colpi 12

Num. 57 58 51 59 53 52 55 56 25 26
Freq. 7 6 5 5 3 2 2 2 1 1

Come vedi nelle righe mi da'altri numeri delle altre decine,che poi mi dovrebbe dare anche i casi dopo la spia,l'altro lo fa questo no.
Poi ho visto che hai scritto "Decinecabalistica,anziche DecineNaturali"Spero che lo riesci ad aggiustare che cosi va benissimo come ricerca.
Ti volevo dire e se i numeri spia delle decine naturali li scegliessi io.
Spero di non disturbarti troppo. Grazie

Antonio1

 

[pfca]

Ciao nel mio è corretto questo è il risultato:
• Antonio1 •

Analisi dal 16.03.2010 ad oggi
I numeri della decina usciti in ordine di frequenza
_________________________________________________________________
1° Numero: 33 Decina: 3 su Bari colpi 12

Num. 37 33 34 35 32 39 31 40 38 36
Freq. 19 17 13 12 10 10 10 7 6 5
_________________________________________________________________
2° Numero: 82 Decina: 8 su Bari colpi 12

Num. 88 86 84 90 83 81 87 85 82 89
Freq. 14 14 8 6 5 5 5 4 3 2
_________________________________________________________________
3° Numero: 28 Decina: 2 su Bari colpi 12

Num. 21 26 23 22 30 25 27 24 28 29
Freq. 16 16 14 13 12 12 11 10 9 8
_________________________________________________________________
4° Numero: 34 Decina: 3 su Bari colpi 12

Num. 37 33 34 35 31 32 39 40 38 36
Freq. 19 17 13 12 10 10 10 7 6 5
_________________________________________________________________
5° Numero: 69 Decina: 6 su Bari colpi 12

Num. 62 68 70 67 63 65 69 61 66 64
Freq. 10 5 5 4 4 4 3 3 2 2

DIventa difficile capire il motivo della diversa schermata.
non sò prorpio cosa fare.


Francesco

 

[pfca]

Ti posto uno script fatto da Ramco, vedi se ti può aiutare.

'Ramco it Analisi fre-rit-max x Decina in cicli()(x Libero)
'http://ramcolotto.puntoforum.it/ramcolotto-about3335.html
'forum Ramcolotto.it 19/04/2010

Sub Main()
Dim nu(10,4),nn(1),rt(1)
rt(1) = CInt(InputBox("Scegli Ruota (da 1 a 12 escluso 11)","RUOTA",1))
dn = CInt(InputBox("Quale Decina Naturale ?(0...8)","DECINA N.",8))
qt = CInt(InputBox("Quante Estrazioni Esamini ?","ESTRAZIONI",18))
qt = qt - 1
ini = EstrazioneFin - qt
fin = EstrazioneFin

co = 0
For i = 1 To 90
If DecinaNaturale(i) = dn Then
co = co + 1
nu(co,1) = i : nn(1) = i
nu(co,2) = SerieFreq(fin - qt,fin,nn,rt,1)
nu(co,3) = SerieRitardo(fin - qt,fin,nn,rt,1)
ct = 0 : max = 0
For es = ini To fin
If Posizione(es,rt(1),nn(1)) > 0 Then ct = 0 Else ct = ct + 1
If ct > max Then max = ct
Next
If nu(co,2) = 0 Then nu(co,4) = 0 Else nu(co,4) = max
End If
Next
Scrivi "ANALISI SULLA RUOTA di " & NomeRuota(rt(1)),1
Scrivi String(50,"_")
Scrivi "Periodo analizzato in " &(qt + 1) & " Estrazioni" : ColoreTesto 1
Scrivi "Da " & DataEstrazione(ini,1) & " a " & DataEstrazione(fin,1): ColoreTesto 2
Scrivi " Numero-Freq.-R.Att.-Rit.Max nel ciclo",1 : ColoreTesto 0
ScriviMatrice nu

End Sub

Francesco

 

[Antonin]

Ciao Francesco,se pero'metti 100 estrazioni di ricerca la frequenza cambia con altre decine,prova,lo so anch'io che con 200 estrazioni e'giusto,ma prova a cento se poi a te funziona a me no.
Grazie per il listato di Ramco per quello che faccio io serve a poco,era giusto il tuo.
Se non riesci va bene e ti ringrazio lo stesso per il tempo che hai perso per me.

Antonio1

 

[pfca]

Ciao Antonio,
ho provato con 100, 200 e 500, cambiato estrazione da 0 a 1 ed i risultati rispettano la decina. Non sò cosa dirti è inspiegabile.

• Antonio1 •

Analisi dal 15.04.2008 ad oggi
I numeri della decina usciti in ordine di frequenza
_________________________________________________________________
1° Numero: 57 Decina: 5 su Firenze colpi 12

Num. 58 54 57 59 52 60 56 51 53 55
Freq. 22 20 18 18 16 16 15 15 14 12
_________________________________________________________________
2° Numero: 43 Decina: 4 su Firenze colpi 12

Num. 48 45 50 44 42 43 47 41 49 46
Freq. 23 21 21 18 18 18 18 17 15 15
_________________________________________________________________
3° Numero: 35 Decina: 3 su Firenze colpi 12

Num. 33 40 32 39 38 37 31 35 36 34
Freq. 35 20 20 18 18 18 16 15 13 12
_________________________________________________________________
4° Numero: 82 Decina: 8 su Firenze colpi 12

Num. 83 82 81 87 88 86 90 85 89 84
Freq. 27 26 26 23 22 18 17 16 15 12
_________________________________________________________________
5° Numero: 28 Decina: 2 su Firenze colpi 12

Num. 28 25 29 22 27 23 26 24 30 21
Freq. 22 19 18 18 18 14 14 14 12 10
Francesco