script lotto

[Roby]

x rubino
Un saluto, vedendo dei lavori fatti da Te, vorrei chiederti se puoi fare uno script avendo queste caratteristiche.
2 ambate fisse a mia scelta su due ruote sempre a mia scelta,il programma mi deve abbinare le 2 fisse + 6 numeri a garanzia dell'ambo più frequenti su due ruote.
Se possibile evidenziare al massimo le prime 5 ottine più frequenti, mettere vicino freq. rit.attuale,rit.storico.
Un saluto
edesimone

 

[Roby]

solo un'info per chiarire meglio ciò che chiedi:

se metti 2 fisse + (6numeri + frequenti su quelle 2 ruote)
2+6= ottina

perchè chiedi a garanzia dell'ambo?

forse intendi 1+6 su di 1 ruota e 1+6 su 2 ruota
quindi potrebbero essere 2ambate + 12 numeri abbinamento?????
14 numeri totali???

a questo punto sviluppo in ottine e vuoi sapere i ritardi sulle ottine delle 2 ruote?????

oppure

che tipo di sviluppo vorresti
cinquina-quartina o non ho capito io qualcosa?

--------------------------------------------------------

io ti faccio anche lo script, ma penso che il programma spaziometria di luigiB assolve tranquillamente quello che tu stai chiedendo.

---------------------------------------------------------

ti faccio un esempio:

pigia

statistica
numeri spia

immagino che tu sappia la ruota e l'ambata</u>quindi devi
selezionare ruota</u> e
selezionare formazione spia</u> e
entro 3 o 6 colpi
ordina per [presenze]</u>
punti minimi [estratto]

ottieni i più frequenti insieme e dopo l'uscita dell'ambata su quella ruota.
hai le percentuali dei numeri più frequenti per quella combinazione e ruota


ora ripeti il tutto con la seconda ruota.

ok??

----------------------------------------------------------------

a questo punto hai 2 ambate - 2 ruote - 12 abbinamenti max

ora si tratta di capire quale sviluppo vuoi mettere in gioco.


attendo tue notizie.


[?]




-----------------------------
hobby e passatempo, il bello dello studio e della ricerca

Non giocare i miei numeri, sono derivanti da studi teorici e sperimentazioni.

 

[Roby]

_____________________________________________________________________________
 2 ruote 2 ambate e 6 più frequenti                                            
 By Rubino   Metodologia di EdeSimone
 Parametri richiesti:
 Estrazioni Range dal....al.....3579 05.08.1939 / 8330 22.01.2011
 Richiesti quantità frequenti uguale a....6
 1° Ambata... 81   1° Ruota   Bari
 2° Ambata... 40   2° Ruota   Cagliari
_____________________________________________________________________________
Nr. freq. su ruota Bari
48 310
85 300
40 296
78 296
22 293
04 289
In gioco ambata e abbinamenti...81 / 48 85 40 78 22 4 

---------------------------------
Nr. freq. su ruota Cagliari
80 301
88 297
84 292
87 288
78 286
77 286
In gioco ambata e abbinamenti...40 / 80 88 84 87 78 77

cosa devo aggiungere?????




-----------------------------
hobby e passatempo, il bello dello studio e della ricerca

Non giocare i miei numeri, sono derivanti da studi teorici e sperimentazioni.

 

[Roby]

statistica
combinazioni frequenti
tendina combinazione = ambo
inserire capogioco o ambata
in basso selezionare la ruota che interessa
pigiare calcola
ottieni tutti gli ambi più frequenti con l'ambata o capogioco richiesto


idem per la seconda ruota.


selezionare i primi 6 come desiderato!




questo è l'altro modo corretto utilizzando il programma di LuigiB

se no che ha lavorato a fa!!!!!




-----------------------------
hobby e passatempo, il bello dello studio e della ricerca

Non giocare i miei numeri, sono derivanti da studi teorici e sperimentazioni.

 

[edesimone]

grazie Rubino per aver risposto alla mia richiesta,
il programma spaziometria mi fa selezionare solo una ruota,
quello che mi serve è che le calcoli con due ruote unite,
come ripeto le fisse le metto io come le due ruote,il programma deve
darmi 2+6= ottina.
Sviluppare in ottine con prevalenza frequenza, ritardi e ritmax sulle ottine delle 2 ruote unite.
freq. rit. ritmax
Esempio: 27 72 1 2 3 4 5 6 bari roma 646 2 64
Esempio: 27 72 81 82 83 84 85 86 bari roma 706 2 56
Questo è quello che deve fare il programma con 2 fisse +6=ottina su due ruote unite trovare ottina più frequente per ambo.
Un saluto
edesimone
ps.
avevo fatto una richiesta per il 10elotto, se puoi dirmi se si può fare.
Grazie vi seguo sempre nel forum, da voi tutti c'è sempre da imparare.

 

[edesimone]

quote:Originally posted by rubino

_____________________________________________________________________________
 2 ruote 2 ambate e 6 più frequenti                                            
 By Rubino   Metodologia di EdeSimone
 Parametri richiesti:
 Estrazioni Range dal....al.....3579 05.08.1939 / 8330 22.01.2011
 Richiesti quantità frequenti uguale a....6
 1° Ambata... 81   1° Ruota   Bari
 2° Ambata... 40   2° Ruota   Cagliari
_____________________________________________________________________________
Nr. freq. su ruota Bari
48 310
85 300
40 296
78 296
22 293
04 289
In gioco ambata e abbinamenti...81 / 48 85 40 78 22 4 

---------------------------------
Nr. freq. su ruota Cagliari
80 301
88 297
84 292
87 288
78 286
77 286
In gioco ambata e abbinamenti...40 / 80 88 84 87 78 77

cosa devo aggiungere?????




-----------------------------
hobby e passatempo, il bello dello studio e della ricerca

Non giocare i miei numeri, sono derivanti da studi teorici e sperimentazioni.

Così non va bene, unisci le 2 ambate 81 40 unisci le due ruote
bari cagliari, adesso trova i 6 numeri. Le ambate devono lavorare insieme alle 2 ruote e non separate.
Scusa se non riesco nel farmi capire.
grazie
edesimone
edesimone

 

[Roby]

allora io ho fatto lo script, però c'è qualcosa che non va bene

la serieritardo non mi calcola correttamente il ritardo dell'ottina sulle 2 ruote.

in verita ha dato l'ambo 2 estrazioni fa a cagliari 40 81
mentre il calcolo del ritardo, ottengo (4), ed è sbagliato.

questo è lo script ha questo punto, se qualcuno può dare un'occhio diverso dal mio, troverà in pochi secondi l'errore che ho fatto.
e che non riesco a trovare.

Sub Main()
	Dim freq1(90,2)
	Dim anum(8)
	Dim aRuote(2)
	r1 = CInt(InputBox("1° Ruota",,1))
	ambata1 = InputBox("Ambata 1° Ruota",,1)
	r2 = InputBox("2° Ruota",,2)
	ambata2 = InputBox("Ambata 2° Ruota",,2)
	qtfre = InputBox("quanti frequenti vuoi...",,6)
	Iniz = EstrazioneIni
	fine = EstrazioneFin
	aRuote(1) = r1
	aRuote(2) = r2
	ColoreTesto 0:Scrivi "_____________________________________________________________________________"
	Scrivi " 2 ruote 2 ambate e 6 più frequenti                                            "
	Scrivi " By Rubino   Metodologia di EdeSimone"
	Scrivi " Parametri richiesti:"
	Scrivi " Estrazioni Range dal....al....." & Iniz & " " & DataEstrazione(Iniz) & " / " & fine & " " & DataEstrazione(fine)
	Scrivi " Richiesti quantità frequenti uguale a...." & qtfre
	ColoreTesto 1:Scrivi " 1° Ambata... " & ambata1 & "   1° Ruota   " & NomeRuota(r1)
	ColoreTesto 1:Scrivi " 2° Ambata... " & ambata2 & "   2° Ruota   " & NomeRuota(r2)
	ColoreTesto 0:Scrivi "_____________________________________________________________________________"
	Scrivi "Nr. freq. su ruota " & NomeRuota(r1)
	''''calcola più frequenti sulle 2 ruote
	For x = 1 To 90
		fre1 = EstrattoFrequenza(r1,x,Iniz,fine)
		fre2 = EstrattoFrequenza(r2,x,Iniz,fine)
		freq1(x,0) = x
		freq1(x,1) = freq1(x,1) + fre1
		freq1(x,1) = freq1(x,1) + fre2
	Next
	'''''''''' 1°ruota ordina per più frequenti e scrivi
	OrdinaMatrice freq1,- 1,1
	anum(1) = ambata1
	anum(2) = ambata2
	f = 2
	For y = 1 To qtfre
		f = f + 1
		anum(f) = freq1(y,0)
		abbinamenti = abbinamenti & freq1(y,0) & " "
		Scrivi Format2(freq1(y,0)) & " " & freq1(y,1)
	Next
	EliminaRipetuti anum
	For t = 1 To 8
		riga = riga & Format2(anum(t)) & "-"
	Next
	ColoreTesto 2:Scrivi "In gioco 2 ambate e abbinamenti..." & Format2(ambata1) & " - " & Format2(ambata2) & "   /   " & abbinamenti
	ColoreTesto 0:Scrivi
	ColoreTesto 1:Scrivi "Situazione riepilogativa a garanzia ambo"
	ColoreTesto 1:Scrivi "----------------------------------------"
	ColoreTesto 1:Scrivi "combinazione..senza ripetuti." & riga 
	stofre = SerieFreq(Iniz,fine,anum,aRuote,2)
	storit = SerieRitardo(Iniz,fine,anum,aRuote,2)
	stosto = SerieStorico(Iniz,fine,anum,aRuote,2)
	Scrivi " ottina frequenza..." & stofre
	Scrivi " ottina ritardo....." & storit
	Scrivi " ottina storico....." & stosto
End Sub

sarà una solita svista stupida, che anche se ce l'hai li dinnanzi in verità non la vedi.




-----------------------------
hobby e passatempo, il bello dello studio e della ricerca

Non giocare i miei numeri, sono derivanti da studi teorici e sperimentazioni.

 

[Roby]

 2 ruote 2 ambate e 6 più frequenti                                            
 By Rubino   Metodologia di EdeSimone
 Parametri richiesti:
 Estrazioni Range dal....al.....3579 05.08.1939 / 8330 22.01.2011
 Richiesti quantità frequenti uguale a....6
 1° Ambata... 81   1° Ruota   Bari
 2° Ambata... 40   2° Ruota   Cagliari
_____________________________________________________________________________
Nr. freq. su ruota Bari
85 583
78 582
84 575
88 574
87 572
81 568
In gioco 2 ambate e abbinamenti...81 - 40   /   85 78 84 88 87 81 

Situazione riepilogativa a garanzia ambo
----------------------------------------
combinazione..senza ripetuti.40-78-81-84-85-87-88-00-
 ottina frequenza...457
 ottina ritardo.....4
 ottina storico.....116

-----------------------------
hobby e passatempo, il bello dello studio e della ricerca

Non giocare i miei numeri, sono derivanti da studi teorici e sperimentazioni.

 

[Roby]

okey corretto
ho usato ritardo combinazione, anzichè serieritardo, mi pare che usi solo 1 ruota, anche se c'è scritto, RUOTE lasciando intendere plurale.

Sub Main()
	Dim freq1(90,2)
	Dim anum(8)
	Dim aRuote(2)
	r1 = CInt(InputBox("1° Ruota",,1))
	ambata1 = InputBox("Ambata 1° Ruota",,1)
	r2 = InputBox("2° Ruota",,2)
	ambata2 = InputBox("Ambata 2° Ruota",,2)
	qtfre = InputBox("quanti frequenti vuoi...",,6)
	Iniz = EstrazioneIni
	fine = EstrazioneFin
	aRuote(1) = r1
	aRuote(2) = r2
	ColoreTesto 0:Scrivi "_____________________________________________________________________________"
	Scrivi " 2 ruote 2 ambate e 6 più frequenti                                            "
	Scrivi " By Rubino   Metodologia di EdeSimone"
	Scrivi " Parametri richiesti:"
	Scrivi " Estrazioni Range dal....al....." & Iniz & " " & DataEstrazione(Iniz) & " / " & fine & " " & DataEstrazione(fine)
	Scrivi " Richiesti quantità frequenti uguale a...." & qtfre
	ColoreTesto 1:Scrivi " 1° Ambata... " & ambata1 & "   1° Ruota   " & NomeRuota(r1)
	ColoreTesto 1:Scrivi " 2° Ambata... " & ambata2 & "   2° Ruota   " & NomeRuota(r2)
	ColoreTesto 0:Scrivi "_____________________________________________________________________________"
	Scrivi "Nr. freq. su ruota " & NomeRuota(r1)
	''''calcola più frequenti sulle 2 ruote
	For x = 1 To 90
		fre1 = EstrattoFrequenza(r1,x,Iniz,fine)
		fre2 = EstrattoFrequenza(r2,x,Iniz,fine)
		freq1(x,0) = x
		freq1(x,1) = freq1(x,1) + fre1
		freq1(x,1) = freq1(x,1) + fre2
	Next
	'''''''''' 1°ruota ordina per più frequenti e scrivi
	OrdinaMatrice freq1,- 1,1
	anum(1) = ambata1
	anum(2) = ambata2
	f = 2
	For y = 1 To qtfre
		f = f + 1
		anum(f) = freq1(y,0)
		abbinamenti = abbinamenti & freq1(y,0) & " "
		Scrivi Format2(freq1(y,0)) & " " & freq1(y,1)
	Next
	EliminaRipetuti anum
	For t = 1 To 8
		riga = riga & Format2(anum(t)) & "-"
	Next
	ColoreTesto 2:Scrivi "In gioco 2 ambate e abbinamenti..." & Format2(ambata1) & " - " & Format2(ambata2) & "   /   " & abbinamenti
	ColoreTesto 0:Scrivi
	ColoreTesto 1:Scrivi "Situazione riepilogativa a garanzia ambo"
	ColoreTesto 1:Scrivi "----------------------------------------"
	ColoreTesto 1:Scrivi "combinazione..senza ripetuti." & riga 
	stofre = SerieFreq(Iniz,fine,anum,aRuote,2)
	storit = RitardoCombinazione(aRuote,anum,2)
	stosto = SerieStorico(Iniz,fine,anum,aRuote,2)
	Scrivi " ottina frequenza..." & stofre
	Scrivi " ottina ritardo....." & storit
	Scrivi " ottina storico....." & stosto
End Sub

e il risultato è questo:

_____________________________________________________________________________
 2 ruote 2 ambate e 6 più frequenti                                            
 By Rubino   Metodologia di EdeSimone
 Parametri richiesti:
 Estrazioni Range dal....al.....3579 05.08.1939 / 8330 22.01.2011
 Richiesti quantità frequenti uguale a....6
 1° Ambata... 40   1° Ruota   Bari
 2° Ambata... 81   2° Ruota   Cagliari
_____________________________________________________________________________
Nr. freq. su ruota Bari
85 583
78 582
84 575
88 574
87 572
81 568
In gioco 2 ambate e abbinamenti...40 - 81   /   85 78 84 88 87 81 

Situazione riepilogativa a garanzia ambo
----------------------------------------
combinazione..senza ripetuti.40-78-81-84-85-87-88-00-
 ottina frequenza...457
 ottina ritardo.....2
 ottina storico.....116

-----------------------------
hobby e passatempo, il bello dello studio e della ricerca

Non giocare i miei numeri, sono derivanti da studi teorici e sperimentazioni.

 

[edesimone]

Grazie Rubino
potrebbe andare bene,
si può modificare quando mi chiede di inserire la ruota è possibile inserirle insieme,esempio 1,2 uguale le ambate 81,40 senza fare 4 passaggi.
Ok per il ritardo 2, per il ritmax 108 è sbagliato a me da 51
Ti ringrazio, quando vuoi e se puoi fare queste piccole modifiche.
grazie
edesimone

 

[Roby]

purtroppo non so quale funzione si possa usare per calcolare
il ritardo storico di una combinazione su più ruote.

bisogna chiedere a ESSELOTTO o LUigiB

mi spiace, ma ho ancora limiti evidenti di utilizzo degli script.

Sub Main()
	Dim freq1(90,2)
	Dim anum(8)
	Dim aRuote(2)
	ruo = InputBox(" inserire 2 Ruote",,"1-2")
	ambate = InputBox(" inserire 2 Ambate",,"10-16")
	r1 = Left(ruo,1)
	r2 = Right(ruo,1)
	ambata1 = Left(ambate,2)
	ambata2 = Right(ambate,2)
	qtfre = InputBox("quanti frequenti vuoi...",,6)
	Iniz = EstrazioneIni
	fine = EstrazioneFin
	aRuote(1) = r1
	aRuote(2) = r2
	ColoreTesto 0:Scrivi "_____________________________________________________________________________"
	Scrivi " 2 ruote 2 ambate e 6 più frequenti                                            "
	Scrivi " By Rubino   Metodologia di EdeSimone"
	Scrivi " Parametri richiesti:"
	Scrivi " Estrazioni Range dal....al....." & Iniz & " " & DataEstrazione(Iniz) & " / " & fine & " " & DataEstrazione(fine)
	Scrivi " Richiesti quantità frequenti uguale a...." & qtfre
	ColoreTesto 1:Scrivi " 1° Ambata... " & ambata1 & "   1° Ruota   " & NomeRuota(r1)
	ColoreTesto 1:Scrivi " 2° Ambata... " & ambata2 & "   2° Ruota   " & NomeRuota(r2)
	ColoreTesto 0:Scrivi "_____________________________________________________________________________"
	Scrivi "Nr. freq. su ruota " & NomeRuota(r1)
	''''calcola più frequenti sulle 2 ruote
	For x = 1 To 90
		fre1 = EstrattoFrequenza(r1,x,Iniz,fine)
		fre2 = EstrattoFrequenza(r2,x,Iniz,fine)
		freq1(x,0) = x
		freq1(x,1) = freq1(x,1) + fre1
		freq1(x,1) = freq1(x,1) + fre2
	Next
	'''''''''' 1°ruota ordina per più frequenti e scrivi
	OrdinaMatrice freq1,- 1,1
	anum(1) = ambata1
	anum(2) = ambata2
	f = 2
	For y = 1 To qtfre
		f = f + 1
		anum(f) = freq1(y,0)
		abbinamenti = abbinamenti & freq1(y,0) & " "
		Scrivi Format2(freq1(y,0)) & " " & freq1(y,1)
	Next
	EliminaRipetuti anum
	For t = 1 To 8
		riga = riga & Format2(anum(t)) & "-"
	Next
	ColoreTesto 2:Scrivi "In gioco 2 ambate e abbinamenti..." & Format2(ambata1) & " - " & Format2(ambata2) & "   /   " & abbinamenti
	ColoreTesto 0:Scrivi
	ColoreTesto 1:Scrivi "Situazione riepilogativa a garanzia ambo"
	ColoreTesto 1:Scrivi "----------------------------------------"
	ColoreTesto 1:Scrivi "combinazione..senza ripetuti." & riga
	stofre = SerieFreq(Iniz,fine,anum,aRuote,2)
	storit = RitardoCombinazione(aRuote,anum,2)
	ReDim ruote(1)
	ruote(1) = r1
	stosto1 = SerieStorico(Iniz,fine,anum,ruote,2)
	ruote(1) = r2
	stosto2 = SerieStorico(Iniz,fine,anum,ruote,2)
	If stosto1 < stosto2 Then
	stormin = stosto1
	Else 
	sormin = stosto2
	End If
	
		
	Scrivi " ottina frequenza..." & stofre
	Scrivi " ottina ritardo....." & storit
	Scrivi " ottina storico....." & stormin
End Sub

-----------------------------
hobby e passatempo, il bello dello studio e della ricerca

Non giocare i miei numeri, sono derivanti da studi teorici e sperimentazioni.

 

[edesimone]

Rubino grazie,aspetterò qualcuno del forum per il rit.max.
Ci sentiamo presto, farò delle prove con il tuo listato.
Grazie e buon lavoro
edesimone

 

[edesimone]

Buona giornata Rubino
Volevo dirti che nel programma qualcosa non risulta nelle sestine,
esempio: 2 ambate 47 74 Ba Rm sestine 5 84 48 86 66 81,se io cambio le 2 ambate iniziali con 33 39 mi da sempre la stessa sestina, vediamo se posso spiegarmi meglio, le due ambate ci sono, adesso bisogna sviluppare i rimanenti 88 numeri a sestine, da queste sestine integrali sicuramente 47 74 trovera la sua sestina con maggiore frequenza x ambo,
33 39 sicuramente ne trovera una diversa e così via.
Credo che sia difficile.
Tutto questo si può chiedere a Luigib, inserendo nel programma spaziometria, statistiche,numeri spia,formazione spia dove si può inserire più ruote unite dare 2 numeri spia e dire al programma di cercare l'ottina (compresa dei numeri spia già messi 2+6) la più frequente a garanzia ambo,o terno ecc...
Sicuramente Luigib troverà una soluzione(spero).
Grazie per la Tua disponibilità

 

[LuigiB]

Ciao Rubino , oggni volta che si ha qualche dubbio su una funzione
conviene sempre consultare l'help dello script ( tra l'altro è l'unico Help presente nel programma)
Sia nel caso di serieRitardo sia nel caso
di RitardoCombinazione , le ruote si passano attraverso un array , quindi puoi passare una sola ruota come anche 2 o 3 o quante ne desideri.
Pero quello che chiede Edesimone non lo vedo fattibile ... basta pensare a quante sestine si ottengono con 88 numeri ...

 

[edesimone]

Grazie LuigiB, ero sicuro per sviluppare 88 sestine non è il caso,
cambierei sviluppando 90 nuneri in ambi così sono 4005, poi rimane la parte più difficile per me, far capire allo script di Rubino stesso principio io metto i 2 fissi su 2 ruote unite lui mi deve trovare l'ambo più frequente insieme alle 2 ambate totale deve uscire 1 quartina con maggior frequenza di uscita garanzia ambo,naturalmente la quartina trovata mi deve dire freq. rit. ritmax.
Credi possa andare così.
Grazie
edesimone

 

[Roby]

non so se è giusto o meno, ma l'ho modificato così per un'ipotesi di fattibilità

è comunque incompleto, per quanto riguarda il ritardo e lo storico

se qualcuno vuole continuare e completarlo??

mancano controlli iniziale, con msgbox di digitazione fuori range o errate
mancano i ritardi delle quartine per ambo
mancano i ritardi storici delle quartine per ambo

non so se è su 2 ruote, o se serieritardo va solo su unica ruota.

Sub Main()
	Dim freq1(8990,2)
	Dim anum(8)
	Dim aRuote(2)
	ruo = InputBox(" inserire 2 Ruote",,"1-2")
	ambate = InputBox(" inserire 2 Ambate",,"10-16")
	r1 = Left(ruo,1)
	r2 = Right(ruo,1)
	ambata1 = Left(Ambate,2)
	ambata2 = Right(Ambate,2)
	qtfre = InputBox(" Quanti ambi più frequenti vuoi...",,4)
	Iniz = EstrazioneIni
	fine = EstrazioneFin
	aRuote(1) = r1
	aRuote(2) = r2
	ColoreTesto 0:Scrivi "_____________________________________________________________________________"
	Scrivi " 2 ruote 2 ambate e 6 più frequenti                                            "
	Scrivi " By Rubino   Metodologia di EdeSimone"
	Scrivi " Parametri richiesti:"
	Scrivi " Estrazioni Range dal....al....." & Iniz & " " & DataEstrazione(Iniz) & " / " & fine & " " & DataEstrazione(fine)
	Scrivi " Richiesti quantità frequenti uguale a...." & qtfre
	ColoreTesto 1:Scrivi " 1° Ambata... " & ambata1 & "   1° Ruota   " & NomeRuota(r1)
	ColoreTesto 1:Scrivi " 2° Ambata... " & ambata2 & "   2° Ruota   " & NomeRuota(r2)
	ColoreTesto 0:Scrivi "_____________________________________________________________________________"
	Scrivi "Nr. freq. su ruota " & NomeRuota(r1)
	''''calcola ambi più frequenti sulle 2 ruote
	For x = 1 To 89
		For y = x + 1 To 90
		Call Messaggio("quartina con " & ambata1 & "-" & ambata2 & " ed ambo " & Format2(x) & "-" & Format2(y))

			If x <> Int(ambata1) Or x <> Int(ambata2) Then
				If y <> Int(ambata2) Or y <> Int(ambata2) Then
					anum(1) = ambata1
					anum(2) = ambata2
					anum(3) = Format2(x)
					anum(4) = Format2(y)
					stofre = SerieFreq(Iniz,fine,anum,aRuote,2)
					ambo=""
					ambo = Format2(x) & Format2(y)
					freq1(ambo,0) = ambo
					freq1(ambo,1) = stofre
				
				End If
			End If
			
		Next
	Next
		'''''''''' 1° ordina per ambi più frequenti o quartine per ambo più frequenti e scrivi
		OrdinaMatrice freq1,- 1,1
		anum(1) = ambata1
		anum(2) = ambata2
		For yz = 1 To qtfre
			abbinamenti = abbinamenti & freq1(yz,0) & " - "
			Scrivi freq1(yz,0) & " " & freq1(yz,1)
		Next
		ColoreTesto 2:Scrivi "In gioco 2 ambate e (x) ambi + frequenti..." & Format2(ambata1) & " - " & Format2(ambata2) & "   /   " & abbinamenti
		ColoreTesto 0:Scrivi "la frequenza è relativa alla quartina per ambo composta da 2 ambate e ambo tra i 4005"
		ColoreTesto 1:Scrivi "Situazione riepilogativa a garanzia ambo"
		ColoreTesto 1:Scrivi "----------------------------------------"
		ColoreTesto 1:Scrivi "combinazione..senza ripetuti." & riga
End Sub

 

[edesimone]

Grande Rubino, questo listato va benissimo,la serie ritardi va su 2 ruote unite, il resto rit. ritmax aspettiamo un piccolo aiuto da qualcuno.
Puoi farmi queste modifiche? Il finale deve venire così.

2 ruote 2 ambate e 6 più frequenti
By Rubino Metodologia di EdeSimone
Parametri richiesti:
Estrazioni Range dal....al.....1 07.01.1871 / 8330 22.01.2011
Richiesti quantità frequenti uguale a....4
1°2° Ambata... 27 72 Ruote Bari Roma

_____________________________________________________________________________
Nr. freq. su ruota Bari Roma
6881 283
8186 276
3086 273
3081 273
In gioco 2 ambate e (x) ambi + frequenti...27 - 72 / 6881 - 8186 - 3086 - 3081 -
la frequenza è relativa alla quartina per ambo composta da 2 ambate e ambo tra i 4005
Situazione riepilogativa a garanzia ambo
----------------------------------------
combinazione..senza ripetuti.
vorrei sapere se 6881 283, significa ambo 68 81 283, se è così si può distanziare i 2 numeri?
Grazie per la Tua pazienza e disponibilità.
un saluto
edesimone

 

[claudio8]

X edesimone

Esatto, la quartina 27-72-68-81 ha frequenza 283 per ambo.
IL comando "SerieFreq" Analizza una determinata combinazione ( le 2 ambate + tutti i 4005 ambi realzzabili) per una data sorte (2= ambo) entro un certo range di estrazioni su una data ruota e restituisce il valore di frequenza per la sorte specificata.




claudio

 

[Roby]

per il ritardo non so se è giusto
comunque siamo a questo punto.

prova e controlla e fammi sapere.

Sub Main()
	Dim freq1(8990,2)
	Dim anum(8)
	Dim aRuote(2)
	ruo = InputBox(" inserire 2 Ruote",,"1-8")
	ambate = InputBox(" inserire 2 Ambate",,"27-72")
	r1 = Left(ruo,1)
	r2 = Right(ruo,1)
	ambata1 = Left(Ambate,2)
	ambata2 = Right(Ambate,2)
	qtfre = InputBox(" Quanti ambi più frequenti vuoi...",,4)
	Iniz = EstrazioneIni
	fine = EstrazioneFin
	aRuote(1) = r1
	aRuote(2) = r2
	ColoreTesto 0:Scrivi "_____________________________________________________________________________"
	Scrivi " 2 ruote 2 ambate e 6 più frequenti                                            "
	Scrivi " By Rubino   Metodologia di EdeSimone"
	Scrivi " Parametri richiesti:"
	Scrivi " Estrazioni Range dal....al....." & Iniz & " " & DataEstrazione(Iniz) & " / " & fine & " " & DataEstrazione(fine)
	Scrivi " Richiesti quantità frequenti uguale a...." & qtfre
	ColoreTesto 1:Scrivi " 1° Ambata... " & ambata1 & "   1° Ruota   " & NomeRuota(r1)
	ColoreTesto 1:Scrivi " 2° Ambata... " & ambata2 & "   2° Ruota   " & NomeRuota(r2)
	ColoreTesto 0:Scrivi "_____________________________________________________________________________"
	Scrivi "Nr.    freq.     RAquart    RXquart " & NomeRuota(r1) & "/" & NomeRuota(r2)
	''''calcola ambi più frequenti sulle 2 ruote
	For x = 1 To 89
		For y = x + 1 To 90
		Call Messaggio("quartina con " & ambata1 & "-" & ambata2 & " ed ambo " & Format2(x) & "-" & Format2(y))

			If x <> Int(ambata1) Or x <> Int(ambata2) Then
				If y <> Int(ambata2) Or y <> Int(ambata2) Then
					anum(1) = ambata1
					anum(2) = ambata2
					anum(3) = Format2(x)
					anum(4) = Format2(y)
					stofre = SerieFreq(Iniz,fine,anum,aRuote,2)
					ambo = ""
					ambo = Format2(x) & Format2(y)
					freq1(ambo,0) = ambo
					freq1(ambo,1) = stofre
				
				End If
			End If
			
		Next
	Next
		'''''''''' 1° ordina per ambi più frequenti o quartine per ambo più frequenti e scrivi
		OrdinaMatrice freq1,- 1,1
		anum(1) = ambata1
		anum(2) = ambata2
		For yz = 1 To qtfre
			anum(3) = Left(freq1(yz,0),2) 
			anum(4) = Right(freq1(yz,0),2)
			RAquart = RitardoCombinazione(aRuote,anum,2)
			RXquart = SerieStorico(iniz,fine,anum,aRuote,2)
		
			abbinamenti = abbinamenti & Left(freq1(yz,0),2) & " " & Right(freq1(yz,0),2) & " - "
			Scrivi Left(freq1(yz,0),2) & " " & Right(freq1(yz,0),2) & "  freq." & freq1(yz,1) & "   RA." & RAquart & "     RX." & RXquart
		
		Next
		ColoreTesto 2:Scrivi "In gioco 2 ambate e (x) ambi + frequenti..." & Format2(ambata1) & " - " & Format2(ambata2) & "   /   " & abbinamenti
		ColoreTesto 0:Scrivi "la frequenza è relativa alla quartina per ambo composta da 2 ambate e ambo tra i 4005"

		
End Sub

-----------------------------
hobby e passatempo, il bello dello studio e della ricerca

Non giocare i miei numeri, sono derivanti da studi teorici e sperimentazioni.

 

[Roby]

 2 ruote 2 ambate e  Ambi più frequenti                                            
 By Rubino   Metodologia di EdeSimone
 Parametri richiesti:
 Estrazioni Range dal....al.....1 07.01.1871 / 8330 22.01.2011
 Richiesti quantità Ambi frequenti uguale a....4
  Ambate... 27 - 72    Ruote   Bari / Roma
_____________________________________________________________________________
Nr.    freq.     RAquart    RXquart              Bari/Roma
68 81  freq.283   RA.16     RX.386
81 86  freq.276   RA.16     RX.334
30 86  freq.273   RA.3     RX.424
30 81  freq.273   RA.16     RX.342
In gioco 2 ambate e (x) ambi + frequenti...27 - 72   /   68 81 - 81 86 - 30 86 - 30 81 - 
la frequenza è relativa alla quartina per ambo composta da 2 ambate e ambo tra i 4005

Sub Main()
	Dim freq1(8990,2)
	Dim anum(8)
	Dim aRuote(2)
	ruo = InputBox(" inserire 2 Ruote",,"1-8")
	ambate = InputBox(" inserire 2 Ambate",,"27-72")
	r1 = Left(ruo,1)
	r2 = Right(ruo,1)
	ambata1 = Left(Ambate,2)
	ambata2 = Right(Ambate,2)
	qtfre = InputBox(" Quanti ambi più frequenti vuoi...",,4)
	Iniz = EstrazioneIni
	fine = EstrazioneFin
	aRuote(1) = r1
	aRuote(2) = r2
	ColoreTesto 0:Scrivi "_____________________________________________________________________________"
	Scrivi " 2 ruote 2 ambate e  Ambi più frequenti                                            "
	Scrivi " By Rubino   Metodologia di EdeSimone"
	Scrivi " Parametri richiesti:"
	Scrivi " Estrazioni Range dal....al....." & Iniz & " " & DataEstrazione(Iniz) & " / " & fine & " " & DataEstrazione(fine)
	Scrivi " Richiesti quantità Ambi frequenti uguale a...." & qtfre
	ColoreTesto 1:Scrivi "  Ambate... " & ambata1 & " - " & ambata2 & "    Ruote   " & NomeRuota(r1) & " / " & NomeRuota(r2)
	ColoreTesto 0:Scrivi "_____________________________________________________________________________"
	Scrivi "Nr.    freq.     RAquart    RXquart              " & NomeRuota(r1) & "/" & NomeRuota(r2)
	''''calcola ambi più frequenti sulle 2 ruote
	For x = 1 To 89
		For y = x + 1 To 90
		Call Messaggio("quartina con " & ambata1 & "-" & ambata2 & " ed ambo " & Format2(x) & "-" & Format2(y))

			If x <> Int(ambata1) Or x <> Int(ambata2) Then
				If y <> Int(ambata2) Or y <> Int(ambata2) Then
					anum(1) = ambata1
					anum(2) = ambata2
					anum(3) = Format2(x)
					anum(4) = Format2(y)
					stofre = SerieFreq(Iniz,fine,anum,aRuote,2)
					ambo = ""
					ambo = Format2(x) & Format2(y)
					freq1(ambo,0) = ambo
					freq1(ambo,1) = stofre
				
				End If
			End If
			
		Next
	Next
		'''''''''' 1° ordina per ambi più frequenti o quartine per ambo più frequenti e scrivi
		OrdinaMatrice freq1,- 1,1
		anum(1) = ambata1
		anum(2) = ambata2
		For yz = 1 To qtfre
			anum(3) = Left(freq1(yz,0),2)
			anum(4) = Right(freq1(yz,0),2)
			RAquart = RitardoCombinazione(aRuote,anum,2)
			RXquart = SerieStorico(iniz,fine,anum,aRuote,2)
		
			abbinamenti = abbinamenti & Left(freq1(yz,0),2) & " " & Right(freq1(yz,0),2) & " - "
			Scrivi Left(freq1(yz,0),2) & " " & Right(freq1(yz,0),2) & "  freq." & freq1(yz,1) & "   RA." & RAquart & "     RX." & RXquart
		
		Next
		ColoreTesto 2:Scrivi "In gioco 2 ambate e (x) ambi + frequenti..." & Format2(ambata1) & " - " & Format2(ambata2) & "   /   " & abbinamenti
		ColoreTesto 0:Scrivi "la frequenza è relativa alla quartina per ambo composta da 2 ambate e ambo tra i 4005"

		
End Sub

-----------------------------
hobby e passatempo, il bello dello studio e della ricerca

Non giocare i miei numeri, sono derivanti da studi teorici e sperimentazioni.