RICHIESTA LISTATO "METODO PROGRESSIONE CONSECUTIVA"

[cybercesare]

Saluti a tutti.
Chiedo agli esperti di listati se è possibile elaborare uno script per il seguente metodo che ho rinvenuto nelle mie scartoffie che, tra il 1990 e il 1997 aveva una percentuale di affidabilità dell' 88%.
(versione modificata)

ITER TEORICO:
Si rintracci, in qualsiasi ruota, ad esclusione di (BA-CA-TO-VE) [in origine le ruote di rintraccio erano BA-CA-GE-RO-TO], un ambo con distanza ciclometrica 6 (in origine era matematica).
Dopodichè seguire l'esempio qui riportato.

Estrazione del 16.12.1995
A BARI furono estratti: 4.37.22.9.31

L'ambo che ci interess con distanza 6 è: 37.31
Sommare il fisso uno ad entrambi ottenendo le due ambate:
37+1= 38 (ambata n.1)
31+1= 32 (ambata n.2)

Somma ambo base: 31+37=68
Ambi secchi a TUTTE: 38.68 / 32.68

Ora calcoliamo gli ambi secchi da giocare solo sulla ruota di calcolo.
Sommare ora ciascuna ambata con il rispettivo numero dell'ambo base che l'ha generata.
37+38= 75
31+32= 63
primo ambo secco su BARI: 75.63
Diametrali del primo ambo:
75+45=120-90= 30
63+45=108-90= 18
secondo ambo secco su BARI: 30.18
Sommare al primo ambo il fisso 30:
75+30=105-90= 15
63+30=93-90= 3
Terzo ambo secco a BARI: 15.3
Raddoppiare il primo ambo:
75x2=150-90= 60
62x2=126-90= 36
Quarto ambo secco su BARI 60.36
Integrazione al fisso 90 del primo ambo:
90-75= 15
90-63= 27
Quinto ambo secco su BARI 15.27

ESITO DELLA PREVISIONE: ambo secco 15.3 su BARI al terzo colpo di gioco

NOTE TECNICHE:
1) GIOCO VALIDO PER 12 COLPI
2) GIOCO NON VALIDO SE UNA DELLE AMBATE E' PRESENTE SULL'ESTRAZIONE DI CALCOLO O IN QUELLA PRECEDENTE
NESSUN CONTROLLO PRECEDENTE PER GLI AMBI
3) INTERROMPERE IL GIOCO ALLA PRIMA VINCITA

Ringrazio anticipatamente chiunque voglia aiutarmi.
Siete fantastici!

 

[Joe91]

Ciao Cesare,

non ho sviluppato appieno la parte relativa al punto 3 delle note tecniche,

preferndo, anche, raggruppare le giocate per "data".

Per mancanza di tempo, non intendo apportare modifiche a quanto ho redatto sino ad ora,

che rilascio in esguibile, sottolineando che è una soluzione, al quesito proposto, ed un lavoro incompleto,

da intendersi ed utilizzarsi, "as-is" per quello che è, così come è, se si ritiene possa essere utile nel calcolo dei pronostici.

Buona Giornata a tutte/i.

 

[arcor]

ciao joe91 come si fa a d eseguirlo sul programma di luigi devo copiarlo in qualche directory

 

[Joe91]

Ciao Arcor.

È un programma che una volta scompattato,

dovrebbe potersi lanciare con il classico doppio-click, su di esso.

 

[cybercesare]

Ciao, grazie per l'iteressamento.
Non riesco ad aprirlo, mi esce "errore di runtime 430".
Ma non puoi pubblicare qua il listato?
Saluti.

 

[LuigiB]

confermo che il programma fatto da joe funziona perfettamente ed è conforme a tutti gli eseguibili prodotti da script ,
è ovvio che deve essere installata e funzionante l'ultima versione del programma

 

[LuigiB]

per fare in modo che il programmino possa essere lanciato da un menu del programma creare una sottocartella in questo percorso
ew incollare li il file scompattato. Riaprire spaziometria e il programma si potra lanciare dal menu plugin

 

[cybercesare]

Ci sono riuscito, grazie LuigiB e grazie a Joe91.

 

[Joe91]

Ringrazio anch'io Luigi,

per il controllo sul programma e per aver ripetuto le istruzioni sul come eseguirlo.

Una piccola nota:

Lo script esegue dapprima una giocata di controllo (con il numero Zero in colore rosso) alla data dell'esempio dato ...

eppoi, simula le giocate nelle "ultime" 155 estrazioni. (Circa 1 anno alle attuali "tre" estrazioni settimanali)

"Ultime" è relativo ... ed è coincidente al valore letto dalla barra di controllo dei limiti dell'archivio.

Quindi, alla cosiddetta "barra rossa" ed in particolare il "valore finale" di essa.

Modificando esso, si potrà controllare "l'anno" (ed ogni anno) con le sue estrazioni precedenti a tale data.

 

[cybercesare]

Mi sono cimentato a modificare e ad osservare altri listati presenti in questo sito, sono un pò arruginito ma un bel pò di anni fà programmavo in PASCAL e GWBASIC e forse sono riuscito a realizzare il listato.
Eccovelo, però verificate prima le previsioni, non vorrei avere sbagliato qualcosa.


Sub Main()
Scrivi "Metodo di cybercesare 'La progressione consecutiva' ",1,,2,4,4
Dim ruota(10), ruote(11)
Dim am(2),cinquina1(5),cinquina2(5), ambo1(2), ambo2(2), ambo3(2), ambo4(2),ambo5(2), ambo6(2)
Dim posta(1),poste(5)
posta(1) = 1
poste(2) = 2
ruote(1)=11
KK = InputBox("Quante estrazioni vuoi verificare? ",,200)
dis = 6
k = InputBox("Colpi di Gioco",,12)
fin = EstrazioneFin
For es = fin-kk To fin
Messaggio DataEstrazione(es,True) & " 'LA PROGRESSIONE CONSECUTIVA' DI CYBERCESARE'"
Call AvanzamentoElab(ini,fin,es)
For r = 1 To 10
For p = 1 To 4
For q = p + 1 To 5
n1 = Estratto(es,r,p) : n2 = Estratto(es,r,q)
If Distanza(n1,n2)=dis And((r<>1)And(r<>2)And(r<>9)And(r<>10)) Then
ruota(1) = r
co = co + 1
'Calcoli x Ambate
n4 = Fuori90(n1+1) '1 Ambata
n5 = Fuori90(n2+1) '2 Ambata
Scrivi String(106,"=") & " Caso n°" & Format2(co),1
Scrivi DataEstrazione(es) & " - " & SiglaRuota(r) & " - " & StringaEstratti(es,r) & " Ambo Dis.33 = " & Format2(n1) & "." & Format2(n2),1,,,1,2
am(1) = n4
am(2) = n5
ritn4 = EstrattoRitardo(r,n4,Ini,es)
ritn5 = EstrattoRitardo(r,n5,Ini,es)
If ritn4 > 1 Then
If ritn5 > 1 Then
Scrivi "I relativi Ritardi delle AMBATE allo stato della ricerca giocata " & n4 & "." & n5 & " sono " & ritn4 & " - " & ritn5,True,True,,7,3
If ritn4 <= 1 Or ritn5 <= 1 Then Scrivi "" Else Scrivi "PREVISIONE VALIDA",1,,1,5,3
ImpostaGiocata 1,am,ruota,posta,k,2
somma = Fuori90 (n1+n2)
ambo1(1)= am(1)
ambo1(2)= somma
ambo2(1)= am(2)
ambo2(2)= somma
ambo3(1)=Fuori90(am(1)+n1)
ambo3(2)=Fuori90(am(2)+n2)
ambo4(1)=Diametrale(ambo3(1))
ambo4(2)=Diametrale(ambo3(2))
ambo5(1)=Fuori90 (ambo3(1)*2)
ambo5(2)=Fuori90 (ambo3(2)*2)
ambo6(1)=90-ambo3(1)
ambo6(2)=90-ambo3(2)
ImpostaGiocata 2,ambo1,ruote,poste,k,2
ImpostaGiocata 3,ambo2,ruote,poste,k,2
ImpostaGiocata 4,ambo3,ruota,poste,k,2
ImpostaGiocata 5,ambo4,ruota,poste,k,2
ImpostaGiocata 6,ambo5,ruota,poste,k,2
ImpostaGiocata 7,ambo6,ruota,poste,k,2
Gioca es,1
End If
End If
End If
Next
Next
Next
If ScriptInterrotto Then Exit For
Next
Scrivi:Scrivi "*******************************************", 1
ScriviResoconto
End Sub

 

[Joe91]

Ciao Cesare.

Si, funziona meglio, (non ho controllato, ma mi fido) perchè è un altro metodo, differente nel DNA da quello che avevi descritto.

Ovvero :

"Si rintracci, solo ed esclusivamente su una delle seguenti ruote BA-CA-GE-RO-TO, un ambo con distanza matematica (non ciclometrica) 6."

Se le ruote diventano "TUTTE" ... E ...

la distanza diventa CICLOMETRICA,

[Vedi: Distanza(n1,n2) ... che dovrebbe essere Abs (n1-n2)]

ecco che questa, diventa una ricerca molto diversa dall'originale, perchè, riguarda (parzialmente) altre distanze in altre ruote.

E, se, essa ben funzionava allora ... a seguito dei i tuoi studi, oggi, funziona MENO della media,

recuperando, nell'ultimo anno, appena il 50% di vincite sul giocato a fronte di un 58% teorico.

Essa, ben dimostra come e quanto, tanto più si è bravi frequentisti ... tanti meno risultati si otterranno in futuro.

Grazie, per le preziose indicazioni, che hai permesso di osservare e trarre al riguardo.

Buona Giornata a tutte/i.

 

[cybercesare]

Joe91, Grazie per le tue osservazioni.
Ho ancora modificato, ho escluso dal calcolo le ruote di BA-CA-TO-VE, per ridurre i casi giocabili (troppi).

 

[Joe91]

Come dicevo :

'Ruote = Array(BA_,CA_,GE_,RO_,TO_) REM SEL_RUOTE BY JOE
'For  N = 0 To UBound (Ruote)
'Scrivi NomeRuota(Ruote(N))
'Next
'Stessa Distanza_Ciclometrica Gioca Stesso_Metodo CON Altre_Ruote in Altro_Periodo)
Sub Main()
	Scrivi "Metodo di cybercesare 'La progressione consecutiva' ",1,,2,4,4
	Dim ruota(10),ruote(11)
	Dim am(2),cinquina1(5),cinquina2(5),ambo1(2),ambo2(2),ambo3(2),ambo4(2),ambo5(2),ambo6(2)
	Dim posta(1),poste(5)
	posta(1) = 1
	poste(2) = 2
	ruote(1) = 11
	KK = InputBox("Quante estrazioni vuoi verificare? ",,100)
	dis = CInt(InputBox("Inserisci la distanza (Ciclometrica)",,6))
	k = InputBox("Colpi di Gioco",,12)
	fin = EstrazioneFin - 12
	For es = fin - kk To fin
		Messaggio   " 'LA PROGRESSIONE CONSECUTIVA' DI CYBERCESARE'  " & DataEstrazione(es)
		Call AvanzamentoElab(fin - kk,fin,es)
		For r = 1 To 10
			If (r = FI_) And (r = MI_) Or (r = NA_) Or (r = PA_) Or (r = VE_) Then
			For p = 1 To 4
				For q = p + 1 To 5
					n1 = Estratto(es,r,p) : n2 = Estratto(es,r,q)
					If (Distanza (n1 , n2) = dis) Then
						ruota(1) = r
						co = co + 1
						'Calcoli x Ambate
						n4 = Fuori90(n1 + 1) '1 Ambata
						n5 = Fuori90(n2 + 1) '2 Ambata
						Scrivi String(106,"=") & " Caso n°" & Format2(co),1
						Scrivi DataEstrazione(es) & " - " & SiglaRuota(r) & " - " & StringaEstratti(es,r) & " Ambo Dis.33 = " & Format2(n1) & "." & Format2(n2),1,,,1,2
						am(1) = n4
						am(2) = n5
						ritn4 = EstrattoRitardo(r,n4,Ini,es)
						ritn5 = EstrattoRitardo(r,n5,Ini,es)
						If ritn4 > 1 Then
							If ritn5 > 1 Then
								Scrivi "I relativi Ritardi delle AMBATE allo stato della ricerca giocata " & n4 & "." & n5 & " sono " & ritn4 & " - " & ritn5,True,True,,7,3
								If ritn4 <= 1 Or ritn5 <= 1 Then Scrivi "?!?!?!?!?!?! ESCLUSA !?!?!?!?!?!?" Else Scrivi "PREVISIONE VALIDA",1,,1,5,3 'IF ...  inutile 
								ImpostaGiocata 1,am,ruota,posta,k,2
								somma = Fuori90(n1 + n2)
								ambo1(1) = am(1)
								ambo1(2) = somma
								ambo2(1) = am(2)
								ambo2(2) = somma
								ambo3(1) = Fuori90(am(1) + n1)
								ambo3(2) = Fuori90(am(2) + n2)
								ambo4(1) = Diametrale(ambo3(1))
								ambo4(2) = Diametrale(ambo3(2))
								ambo5(1) = Fuori90(ambo3(1)*2)
								ambo5(2) = Fuori90(ambo3(2)*2)
								ambo6(1) = 90 - ambo3(1)
								ambo6(2) = 90 - ambo3(2)
								ImpostaGiocata 2,ambo1,ruote,poste,k,2
								ImpostaGiocata 3,ambo2,ruote,poste,k,2
								ImpostaGiocata 4,ambo3,ruota,poste,k,2
								ImpostaGiocata 5,ambo4,ruota,poste,k,2
								ImpostaGiocata 6,ambo5,ruota,poste,k,2
								ImpostaGiocata 7,ambo6,ruota,poste,k,2
								Gioca es,1
							End If ' Rit n5
						End If ' Rit n4
					End If ' Distanze
				Next ' "° Posiz (q)
			Next ' 1° Posiz (p)
		End If ' Selezione Ruote
	Next ' Ruote
	If ScriptInterrotto Then Exit For
Next ' Es
ColoreTesto 1 : Scrivi String (90,"*") & " Rev. By Joe.",1 : ColoreTesto 0 : Scrivi 
ScriviResoconto
End Sub

 

[cybercesare]

Immensamente grato.
Sto' imparando a smanettare tra i listati.
Scusa la domanda, ma il grafico da tenere presente sull'andamento è quello spesa-perdita-vincita?
In pratica la curva della vincita (verde) dovrebbe superare quello della spesa (rossa)?

 

[Joe91]

Si ... magari fosse possibile.

Ma, quello appena proposto è un risultato ... già eccezionale.

Va detto.

 

[LuigiB]

certo il grafico è quello ..
da un'osservazione condotta nell'ultimo periodo con lo script di joe sembrerebbe che la tecnica
per andare in attivo consista nell'aspettare un primo colpo positivo , poi giocare subito dopo
alla prima vincita sospendere e riaspettare un primo caso positivo er ipetere il giro ...
ciao

 

[cybercesare]

Tutto chiaro. grazie.
Stò imparando veramente tanto su questo forum.

 

[Joe91]

Ciao Luigi.

Buona sera a tutte/i.

Si Luigi, sono in pieno accordo su tutto quanto hai scritto.

Al riguardo mi sono permesso di definire "già eccezionali" codesti risultati.

Con la premessa che si parla di cifre enormi e tempi parecchio lunghi (10 Mila Euro in un 1 anno)

per le regole del lotto ed il funzionamento dei grafici di Spaziometria quando la "linea VERDE" è sopra quella rossa,

si è in fase di vincita ... mentre se è al disotto di essa, si è in perdita.

Tutto questo però inteso come differenza di valori assoluti in Euro tra spesa e vincita.

Tuttavia, le regole del lotto stabiliscono che mediamente il giocatore sia in perdita rispetto a questa "linea rossa"

alias dirsi, al rispetto del banco, quindi mantenersi quasi, "alla pari" ... è già un risultato ottimo. Difficilmente raggiungibile.

Ora, per confronto come ho precedentemente accennato comparando i grafici prodotti dal "vecchio metodo" e da ... "questo ultimo"

... dal tuo grafico, si nota che, ora, per il vecchio metodo la linea della vincita e quella della spesa proseguono con una pendenza simile.

Quindi relativamente al totale del 100% della spesa, una al paragone con l'altra sono "pari".

50% una ... 50% l'altra.

Mediamente invece dovrebbero essere un 60% di vincita sul totale del 100% speso e quindi la perdita "rosa" per differenza dovrebbe essere al 40%.

E ... in un caso come questo la perdita prevista dovrebbe essere di oltre 4000 €.

Mentre qui ... risulta essere "solo" di 1800 Euro.

Con un evidente vantaggio del giocatore sull'iniquità delle regole.

Pur ancora in perdita .... nonostante tutto.

 

[LuigiB]

si si ho notato e confermo in qualche modo il metodo controbilancia l'iniquita del giioco , empiricamente ineffetti e cosi se per ipotesi uno avesse giocato il metodo solo i ndetermianti periodi sarebbe andato in vincita ...
ciao

 

[cybercesare]

Se nei primi 3 colpi di gioco esce o l'ambata o l'ambo, il software considera non giocabile quella giocata?
Oppure prosegue lo stesso a verificarne la vincita?