CHIEDO AIUTO PER UN SCRIPT METODO BARI CAGLIARI

[mpisticchia]

Ciao a tutti gli scriptomani di LottoCed, ormai è già da qualche mese che ho iniziato per curiosità e diletto a smanettare con gli script (presi dal forum) per personalizzarli su mie vedute di gioco e a livello virtuale con qualche bella soddisfazione.
C'è un metodo però, che è il primo metodo che ho scoperto qui su LottoCed e che ho iniziato a seguire, che non riesco a scriptare, forse non parto da una base coerente con quello che mi serve, non so, ma so che anche se ho letto e riletto le varie guide gentilmente offerte da quanti di Voi spiegano chiaramente come procedere su uno script, non riesco proprio, sarà che non posso dedicare tempo continuato a questo hobby (gli script per il lotto) e quindi non riesco a seguire il filo logico, comunque dopo attenta riflessione provo a chiedere a chi avesse tempo e voglia per aiutarmi.
Metodo BaCa distanza 0 distanza 1
Estrazione del 3/614
Bari 37 xx 28 xx xx
Cagliari 39 xx xx 30 xx
Condizione:
37-28=9
39-30=9
stessa distanza (matematica) considero distanza 0 (cioè uguale su entrambe le ruote altrimenti sarebbe stata "distanza 1") ricaveremo 1 Ambata e 2 abbinamenti per le ruote in questione (con la distanza 1 si ricavano 2 ambate e 2 abbinamenti).
Ricavo i futuri estraendi:
1) Al più grande (mettendo i 4 numeri coinvolti in un quadrato come sopra) sottraggo il numero sopra (o sotto); 39-37 = 2
2) Al più grande dei 4 numeri sottraggo il numero a fianco del numero sopra (o sotto);39-28 = 11
3) Al numero a fianco del più grande sottraggo il numero sopra (o sotto); 30-37 = 7
4) Al numero a fianco del più grande sottraggo il numero a fianco del numero sopra (o sotto); 30-28 = 2
sono sempre differenze (matematiche) e non distanze (ciclometriche)

Ricaverò due numeri uguali > Ambata ed altri due numeri per abbinamento per Ambo e Terno.
Ambata 2 (20 il vertibile lo metto sempre) abbinamenti 7 - 11
Al primo colpo estratto il 20 in prima a Bari (poca roba direte ma a me interessa verificare anche le posizioni di uscita dell'ambata per focalizzare il determinato e nel caso di ritardo dell'ambata l'abbinamento tra le differenti ambate per sorti maggiori e/o abbinamenti ad altri metodi e carta e penna proprio non li uso per questi controlli....)

Spero che lo svolgimento con Esempio sia abbastanza chiaro, credo di si.

Se il metodo è già scriptato potete semplicemente segnalarmi il link (io non l'ho trovato nel mare dell'archivio Download) altrimenti sarei ben lieto di essere guidato nel costruirmelo, sarebbe anche una soddisfazione.

Grazie mille a chi vorrà

Una buona giornata di Estrazioni a tutti

 

[Mike58]

Se il metodo è già scriptato potete semplicemente segnalarmi il link (io non l'ho trovato nel mare dell'archivio Download) altrimenti sarei ben lieto di essere guidato nel costruirmelo, sarebbe anche una soddisfazione.

Ciao mpisticchia, visto che dici che qualcosa sai fare,e che vuoi qualche dritta, io ti metto un esempio di come dovresti procedere con i calcoli.

Se sei in grado di rintracciare gli ambi con la stessa distanza, poi non ti resta che metterli in un Vettore e ordinarli dal + grande al + piccolo e fare le opportune differenze matematiche.

Se sei in grado penso che cosi ti possa servire, invece se non dovessi riuscire non c'è problema nel darti una mano.

Sub Main
	Dim n(4)
	n(1) = 10
	n(2) = 20
	n(3) = 30
	n(4) = 55
	Scrivi "Numeri del Vettore " & StringaNumeri(n),1,1,,1,2
	Call OrdinaMatrice(n,-1)
	
	Scrivi "Numeri ordinati dal + Grande al + Piccolo " &  StringaNumeri(n),1
	a = Differenza(n(1),n(2))
	b = Differenza(n(1),n(3))
	Scrivi "Diff 1-2 " & n(1) & "-" & n(2) & "=" & a
	Scrivi "Diff 1-3 " & n(1) & "-" & n(3) & "=" & b
	Scrivi "Vertibile della prima differenza " & Vert(a),1

End Sub

 

[mpisticchia]

Ciao Mike58, grazie dell'interessamento.
mi è utile quanto da te inserito (anche per altre cose) ma fino ad un certo punto.
inserisco il codice che ho "creato" fino ad ora

Sub Main()
	Scrivi " Distanza 0 Distanza 1 su Ba Ca di mpisticchia ",1
	Dim n(4),posta(2),ruote(2)
	posta(1) = 1
	posta(2) = 2
	k = CInt(InputBox("Per quanti colpi di gioco ?","COLPI",3))
	ini = EstrazioneFin - 20
	fin = EstrazioneFin
	For es = ini To fin
		Messaggio es
		AvanzamentoElab Ini,fin,es
		For r1 = 1 To 1
			For p = 1 To 5
				a = Estratto(es,r1,p)
				a1 = Estratto(es,r1,p+1)
				r2 = r1 + 1
				If r2 = 11 Then r2 = 12
				b = Estratto(es,r2,p)
				b1 = Estratto(es,r2,p+1)
				diff1 = a - a1
				diff2 = b - b1
				ruote(1) = r1
				ruote(2) = r2
				ok = 0
				If diff1 - diff2 = 0 Or diff1 - diff2 = 1 Then n(1) = a1 : n(2) = a2: n(3) = b1 : n(4) = b2: ok = 1
				If ok = 1 Then
					co = co + 1
					Scrivi String(106,"=") & " Caso n°" & CInt(co),1
					Scrivi"Quadrato di calcolo"
					Scrivi Format2(a) & "  " & Format2(a1)
					Scrivi Format2(b) & "  " & Format2(b1)
					Call OrdinaMatrice(n,- 1)
					Scrivi "Numeri ordinati dal + Grande al + Piccolo " & StringaNumeri(n),1
					x = Differenza(n(1),n(2))
					y = Differenza(n(1),n(3))
					Scrivi "Diff 1-2 " & n(1) & "-" & n(2) & "=" & a
					Scrivi "Diff 1-3 " & n(1) & "-" & n(3) & "=" & b
					Scrivi "Vertibile della prima differenza " & Vert(a),1
					Scrivi DataEstrazione(es) & " - " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & " [" & Format2(a) & "] In " & Format2(p) & "°  Posizione ",1
					Scrivi DataEstrazione(es) & " - " & SiglaRuota(r2) & " - " & StringaEstratti(es,r2) & " [" & Format2(b) & "] in " & Format2(p) & "°  Posizione ",1
					Scrivi " Trovata differenza estratti = " & Format2(diff1),1,1,3
					Scrivi
					ImpostaGiocata 1,n,ruote,posta,k
					Gioca es,True,,1
				End If
			Next
		Next
	Next
End Sub

Sulle bestialità ti chiedo di non farci caso, il problema è questo
Non posso Dim ensionare i n finchè non verifico se ci sono coppie che soddisfano i requisiti...
e le coppie possono essere I e II di Ba con III e V di Ca oppure una qualsiasi delle altre combinazioni di 10 ambi per ogni ruota che devono avere una distanza uguale o differente di 1...
mmmm....

 

[Mike58]

ciao, infatti non hai assegnato i numeri trovati ai numeri vettori

esempio
n(1) = a
oppure
n(2) = diff1

adesso devo scappare
riprova ci aggiorniamo stasera

 

[mpisticchia]

ciao, non lo faccio qui? If diff1 - diff2 = 0 Or diff1 - diff2 = 1 Then n(1) = a1 : n(2) = a2: n(3) = b1 : n(4) = b2: ok = 1
non preoccuparti, anche io ho tempi ed orari un po' strani
ciao

 

[Mike58]

Non preoccuparti ho ancora domani di Riposo gli do un occhio.

ciao

 

[mpisticchia]

Guarda Mike non volgio che perdi tempo a farmi un corso, se ti è più semplice farlo, fallo, poi me lo studio però vorrei solo che il metodo fosse chiaro se non lo conosci (spero di averlo spiegato in modo semplice).
La condizione va cercata, non sempre ci sono ambi su Bari che hanno la stessa "distanza" di altri ambi su Cagliari quindi non posso prima dichiarare i numeri su cui operare... se c'è la condizione allora li posso trattare, il quadrato che avevo immaginato (se lo vedi nel mio script) è proprio per visualizzarli per come li voglio trattare.
basta non mi dilungo oltre dimmi tu quando e come puoi, per ora di nuovo grazie

 

[Mike58]

Ciao, mpisticchia, ti ho preparato il corpo script della ricerca ambi con le differenza 0 e 1.
Ho ordinato i numeri ricavati dal + grande al + piccolo e fatto una sorte di pronostico Numeri.
Di questi non ne sono sicuro circa l'esattezza.
Puoi intanto proseguire e correggere il pronostico se errato.

Adesso la lucidità comincia a mancare.

Ciao a domani

Sub Main()
	Scrivi " Distanza 0 Distanza 1 su Ba Ca di mpisticchia ",1
	Dim n1(2),n2(2),nu(4),num(4),posta(2),ruote(2)
	posta(1) = 1
	posta(2) = 2
	kk = CInt(InputBox("Per quanti colpi di gioco ?","COLPI",3))
	ini = EstrazioneFin - 20
	fin = EstrazioneFin
	For es = ini To fin
		Messaggio es
		AvanzamentoElab Ini,fin,es
		r1 = 1
		For p1 = 1 To 4
			For p2 = p1 + 1 To 5
				a = Estratto(es,r1,p1)
				a1 = Estratto(es,r1,p2)
				r2 = r1 + 1
				For p3 = 1 To 4
					For p4 = p3 + 1 To 5
						b = Estratto(es,r2,p3)
						b1 = Estratto(es,r2,p4)
						diff1 = Differenza(a,a1)
						diff2 = Differenza(b,b1)
						diff3 = Differenza(diff1,diff2)
						If diff3 = 90 Then diff3 = 0
						If diff1 = diff2 Or diff1 = diff2 + 1 Or diff2 = diff1 + 1 Then
							k = k + 1
							ruote(1) = r1
							ruote(2) = r2
							n1(1) = a
							n1(2) = a1
							n2(1) = b
							n2(2) = b1
							'---------------------------------
							nu(1) = a
							nu(2) = a1
							nu(3) = b
							nu(4) = b1
							Call OrdinaMatrice(nu,- 1,1)
							'------ gioca numeri ------------------------
							num(1) = nu(1) - nu(2)
							num(2) = nu(1) - nu(4)
							num(3) = nu(1) - nu(3)
							num(4) = nu(3) - nu(4)
							EliminaRipetuti(num)
							co = co + 1
							Scrivi String(100,"=") & " Caso N." & k,1
							ColoreTesto 1
							Scrivi GetInfoEstrazione(es) & "  ",0,0
							Scrivi SiglaRuota(r1) & "  ",0,0
							Scrivi StringaEstratti(es,r1) & "  ",0,0
							Scrivi StringaNumeri(n1,,1),0,0
							Scrivi " - Diff " & diff1
							Scrivi GetInfoEstrazione(es) & "  ",0,0
							Scrivi SiglaRuota(r2) & "  ",0,0
							Scrivi StringaEstratti(es,r2) & "  ",0,0
							Scrivi StringaNumeri(n2,,1),0,0
							Scrivi " - Diff " & diff2
							ColoreTesto 2
							Scrivi "Differenza Trovata... " & diff3,1
							ColoreTesto 0
							Scrivi "Numeri ordinati dal + Grande al + Piccolo " & StringaNumeri(nu),1
							Scrivi
							Scrivi "Numeri ricavati in Gioco..." & StringaNumeri(num),1,1,,7,3
							Scrivi
							ImpostaGiocata 1,num,ruote,posta,kk
							Gioca es,True,,1
						End If
					Next
				Next
			Next
		Next
	Next
	ScriviResoconto
End Sub

 

[mpisticchia]

Ciao Mike, ti ringrazio del lavorone e vista l'ora in cui l'hai fatto altro che lucidità, io non lo faccio neanche in pieno giorno
Comunque in effetti il conteggio non è quello che vorrei fare, nonostante i risultati mi sembrano interessanti (magari posso verificare delle lunghette per sorti maggiori...).
Il problema di ordinare i numeri per grandezza fa si che trattiamo i 4 numeri separatamente mentre in realtà dobbiamo lavorare sugli ambi...
E cioè mettendo il risultato dello script attuale abbiamo:
[08858] [ 69] 10.06.2014 BA 50.21.19.02.54 50.21 - Diff 29
[08858] [ 69] 10.06.2014 CA 62.25.34.72.47 62.34 - Diff 28
Differenza Trovata... 1
Numeri ordinati dal + Grande al + Piccolo 62.50.34.21
Numeri ricavati in Gioco...12.13.28.41

Mentre quello che vorrei avere io è:
BA 50.21.19.02.54 50.21 - Diff 29
CA 62.25.34.72.47 62.34 - Diff 28
Differenza Trovata... 1
Ambi ordinati dal + Grande al + Piccolo 62.34.50.21 (a,b,c,d)
Numeri ricavati in Gioco...12.41.16.13 (a-c,a-d,b-c,b-d semplificando con il - la differenza)

In effetti il risultato è uguale per 3 elementi su 4 perchè non sempre i due numeri che compongono l'ambo in cui si trova il numero più grande è composto dai due numeri più grandi...

Non vorrei creare più confusione

Dimmi tu

 

[Mike58]

Ciao mpisticchia, purtroppo con questi calcoli incrociati si va solo in confusione, questi quadrati non li ho mai digeriti.

Comunque ho cercato di estrapolare i tuoi calcoli e mi sembra che ci siamo.
Altrimenti puoi tu intervenire a secondo la necessità con il tuo ragionamento.

Ho disinserito il codice eliminaripetuti per far scrivere i dati cosi come sono stati calcolati.
dopo se sono ok riabilitalo e cosi verranno eliminati i numeri doppi e la scrittura sarà ordinata dal piccolo al grande.

Sub Main()
	Scrivi " Distanza 0 Distanza 1 su Ba Ca di mpisticchia ",1
	Dim n1(2),n2(2),nu(4),num(4),posta(2),ruote(2)
	posta(1) = 1
	posta(2) = 2
	kk = CInt(InputBox("Per quanti colpi di gioco ?","COLPI",3))
	ini = EstrazioneFin - 20
	fin = EstrazioneFin
	For es = ini To fin
		Messaggio es
		AvanzamentoElab Ini,fin,es
		r1 = 1
		For p1 = 1 To 4
			For p2 = p1 + 1 To 5
				a = Estratto(es,r1,p1)
				a1 = Estratto(es,r1,p2)
				r2 = r1 + 1
				For p3 = 1 To 4
					For p4 = p3 + 1 To 5
						b = Estratto(es,r2,p3)
						b1 = Estratto(es,r2,p4)
						diff1 = Differenza(a,a1)
						diff2 = Differenza(b,b1)
						diff3 = Differenza(diff1,diff2)
						If diff3 = 90 Then diff3 = 0
						If diff1 = diff2 Or diff1 = diff2 + 1 Or diff2 = diff1 + 1 Then
							k = k + 1
							ruote(1) = r1
							ruote(2) = r2
							n1(1) = a
							n1(2) = a1
							Call OrdinaMatrice(n1,-1,1)
							n2(1) = b
							n2(2) = b1
							Call OrdinaMatrice(n2,-1,1)
							'---------------------------------
							nu(1) = n1(1)
							nu(2) = n1(2)
							nu(3) = n2(1)
							nu(4) = n2(2)
							'Call OrdinaMatrice(nu,- 1,1)
							'------ gioca numeri ------------------------
							num(1) = Differenza(n1(1),n2(1))' grande1-grande2
							num(2) = Differenza(n2(1),n1(2))' grande2-piccolo1
							num(3) = Differenza(n2(2),n1(1))' piccolo2-grande1
							num(4) = Differenza(n2(2),n1(2))' piccolo2-piccolo2
							'EliminaRipetuti(num)
							co = co + 1
							Scrivi String(100,"=") & " Caso N." & k,1
							ColoreTesto 1
							Scrivi GetInfoEstrazione(es) & "  ",0,0
							Scrivi SiglaRuota(r1) & "  ",0,0
							Scrivi StringaEstratti(es,r1) & "  ",0,0
							Scrivi StringaNumeri(n1,,1),0,0
							Scrivi " - Diff " & diff1
							Scrivi GetInfoEstrazione(es) & "  ",0,0
							Scrivi SiglaRuota(r2) & "  ",0,0
							Scrivi StringaEstratti(es,r2) & "  ",0,0
							Scrivi StringaNumeri(n2,,1),0,0
							Scrivi " - Diff " & diff2
							ColoreTesto 2
							Scrivi "Differenza Trovata... " & diff3,1
							ColoreTesto 0
							Scrivi "Numeri ordinati dal + Grande al + Piccolo " & StringaNumeri(nu),1
							Scrivi
							Scrivi "Numeri ricavati in Gioco..." & StringaNumeri(num),1,1,,7,3
							Scrivi
							ImpostaGiocata 1,num,ruote,posta,kk
							Gioca es,True,,1
						End If
					Next
				Next
			Next
		Next
	Next
	ScriviResoconto
End Sub

 

[mpisticchia]

Ok grazie, oggi non riesco ma domani lo testo con carta e penna e poi ti dico, grazie 1000

 

[mpisticchia]

Ciao, l'ho provato ed ora mi sembra che i calcoli sono come li volevo, grazie mille.
Ho anche notato che con i tuoi calcoli i risultati sono anche migliori....
Ti ringrazio molto per l'interessamento, ho già in mente un ulteriore step, proverò in seguito a chiedere ancora
A presto

 

[Mike58]

Ciao se hai bisogno nel limite del possibile, chiedi pure.

 

[mpisticchia]

Ciao Mike58 l'idea che mi ronza già da un po' è questa: per i diversi metodi che ho per ambata (e che hanno una discreta percentuale) ho notato (a occhio) che spesso si combinano le uscite delle ambate scaturite da diverse estrazioni in ambi (e anche qualche ternetto) ma è estremamente complicato e laborioso sia studiare il fenomeno che poterlo "sfruttare" quindi mi chiedevo ma con qualche magheggio potessimo chiedergli di controllare se NON esce l'ambata prevista di rimetterla in un'altra giocata combinata (anche in lunghetta) con le altre "previsioni in gioco"... non so se mi spiego, se non sono stato chiaro dimmelo. Nel limite del possibile ti ringrazio se non è possibile, pazienza ma su uno script che ho in casa vedo che è stato inserito un cilco in loop che lavora al contrario (non genera nuove giocate finchè O esce l'ambata prevista O finiscono i colpi indicati) quindi pensavo si potesse anche ribaltare il concetto...
Grazie fin d'ora per la tua attenzione
Buona giornata

 

[Mike58]

Ciao mpisticchia, si ho capito, e non lo so come si potrebbe fare, poi di quei loop while, non ho molta padronanza e non li ho sperimentati.
magari posta questo listato e vediamo se è possibile copiarne l'escamotage.

ciao

 

[mpisticchia]

Ciao, riporto solo la parte centrale, prima ci sono gli inputbox e una prograssione per giocare l'ambata, lo Script è di Blackmore

'-----------------------------------------------analisi archivio e giocate
Do Until es = fin
Messaggio "Estraz. in esame: " & es
a = Estratto(es,r1,pos1) : b = Estratto(es,r2,pos2)
numero = Vert(Fuori90(a + b))
ruote(1) = r1
co = co + 1
Scrivi String(80,"=") & " Caso n° " & Format2(co),1
Scrivi DataEstrazione(es) & " " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & " -> " & Format2(a) & " [" & pos1 & "°Posizione ]"
Scrivi DataEstrazione(es) & " " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & " -> " & Format2(b) & " [" & pos2 & "°Posizione ]"
Scrivi
ambata(1) = numero
ImpostaGiocata 1,ambata,ruote,posta,k,1
Call ImpostaProgressione(1,progress)
Gioca es

If VerificaEsitoTurbo(ambata,ruote,es + 1,1,k,,RetEsito,,retestratti,retIDEstr,aRetRuote) Then
co = co + 1
esf = RetIdEstr
a = Estratto(esf,r1,pos1) : b = Estratto(esf,r2,pos2)
numero = Vert(Fuori90(a + b))
ambata(1) = numero
Scrivi String(80,"=") & " Caso n° " & Format2(co),1
Scrivi DataEstrazione(esf) & " " & SiglaRuota(r1) & " " & StringaEstratti(esf,r1) & " -> " & Format2(a) & " [" & pos1 & "°Posizione ]"
Scrivi DataEstrazione(esf) & " " & SiglaRuota(r2) & " " & StringaEstratti(esf,r2) & " -> " & Format2(b) & " [" & pos2 & "°Posizione ]"
Scrivi
ImpostaGiocata 1,ambata,ruote,posta,k,1
Call ImpostaProgressione(1,progress)
Gioca esf
ElseIf es + k <= Fin Then
co = co + 1
esf = es + k
a = Estratto(esf,r1,pos1) : b = Estratto(esf,r2,pos2)
numero = Vert(Fuori90(a + b))
ambata(1) = numero
Scrivi String(80,"=") & " Caso n° " & Format2(co),1
Scrivi DataEstrazione(esf) & " " & SiglaRuota(r1) & " " & StringaEstratti(esf,r1) & " -> " & Format2(a) & " [" & pos1 & "°Posizione ]"
Scrivi DataEstrazione(esf) & " " & SiglaRuota(r2) & " " & StringaEstratti(esf,r2) & " -> " & Format2(b) & " [" & pos2 & "°Posizione ]"
Scrivi
ImpostaGiocata 1,ambata,ruote,posta,k,1
Call ImpostaProgressione(1,progress)
Gioca esf
Else
Exit Do 'se la primissima estrazione è in corso a fine archivio esci
End If
If VerificaEsitoTurbo(ambata,ruote,esf + 1,1,k,,RetEsito,,retestratti,retIDEstr,aRetRuote) Then es = RetIdEstr Else es = esf + k
If es > fin Then Exit Do
If ScriptInterrotto Then Exit Do
Loop


Lo stavo riguardando e mi sa che non è come pensavo, mi era rimasto in mente quel Loop finale ma è impostato diversamente, anche se...

 

[Mike58]

Ciao mpisticchia, è sempre meglio mettere tutto lo script per eseguirlo e vederne i risultati prodotti, per valutarne esattamente il comportamento.
Poi da una prima lettura mi sembra che possa fare quello che chiedi, anche se mi sembra che porti avanti una giocata se non uscita e ne produce una altra diversa alla condizione prevista ma non mi pare la integri nella nuova ambata.

per ora non so !!! è stato sicuramente di aiuto ma forse è meglio in futuro descrivere il problema e cimentarsi attraverso la propria conoscenza.

Ciao

 

[mpisticchia]

Ciao Mike58 lo script lo avevo scaricato qui: Script per ricalcolare l'ambata dopo la sortita oppure dopo 10 colpi, chi mi aiuta? e stavo cercando all'epoca come impostare una progressione per un mio metodino di ambata.
Ti dicevo infatti che in realtà andava al contrario ma le mie conoscenze non mi consentono partendo da quello di arrivare a quello che vorrei.
L'applicazione sta sempre in quello script che mi sono modellato piano piano per un'ambata con progressione e vorrei, prima di regalare soldi al banco, poter verificare se combinando le ambate non ancora estratte ci scappa anche qualche ambo, comunque grazie ancora per l'interessamento, magari uno di questi giorni mi viene un lampo di genio...
Buona giornata

PS una cosa al volo: puoi indicarmi cosa controllare su uno script che mi duplica i casi?... meglio che apro un'altra discussione completa o sai darmi una dritta la volo e poi ci perdo tempo? sto uscendo pazzo