Per MIKE58 Cadenze su 2 Ruote

[jure]

Si potrebbe fare lo script

05/06/2014 FI 62 72
05/06/2014 Ge 82
Verrebbe 62 72 82 mancante 02
02 + fisso 50 = 52
Previsione FI GE 52 Ambata
Cinquina 52 02 62 72 82
es.
19/06/2014 NA 84 04
19/06/2014 TO 14
verrebbe 84 04 14 mancante 24
24+fisso 50 = 74
Previsione Ambata 74
Cinquina 74 24 84 04 14
altro es.
21/06/2014 CA 40
21/06/2014 NA 50 60
verrebbe 40 50 60 num.mancante il 70
70 + il fisso 50 = 70 + 50 = 120 -90 = 30
Previsione degli ultimi 2 il num. più alto
CA NA Ambata 70
Cinquina 70 30 50 60 40

 

[Mike58]

Ciao Jure, sono appena arrivato, ho cercato di concentrarmi sul nuovo script, la ricerca in qualche modo si avvicina ma, non sono sicuro che è tutto giusto.

Ci sono dei correttivi che credo bisogna apportare e da capire dove e come.

Per adesso provalo cosi.

Sub Main()
	'cerca ambi in cadenza uguale
	Dim nu(90),ru(2),ma(10),Num(5),nu1(1),poste(3),posta(1)
	poste(2) = 9
	poste(3) = 1
	posta(1) = 1
	quante = CInt(InputBox("Quante estrazioni vuoi analizzare","Quante estrazioni",10))
	esPr = CInt(InputBox("QUANTE ESTRAZIONI PRECEDENTI RICERCO NUMERO RETROATTIVO",,6))
	Ini = EstrazioneFin - quante
	fin = EstrazioneFin
	colpi = 13
	Scrivi "Metodo Frequenza_Ciclica cadenze   *** forum-lottoced *** Richiesta Jure **** ",1,0
	Scrivi" Ricerca ambo in cadenza  ",0,0
	ColoreTesto 2
	Scrivi " Listed by Mike58 ",1
	ColoreTesto 0
	For es = Ini To fin
		Messaggio "Estrazioni esaminate " & es & "   --->  script by Mike58"
		Call AvanzamentoElab(Ini,fin,es)
		For r1 = 1 To 10
		For r2 = r1 + 1 To 12
		If r2 = 11 Then r2 = 12
			For p = 1 To 4
				For pp = p + 1 To 5
					nu(1) = Estratto(es,r1,p)
					nu(2) = Estratto(es,r1,pp)
					'For ex = es - esPr To es - 1
					For p3 = 1 To 5
					nu1(1) = Estratto(es,r2,p3)
					
					min = Minimo(nu(1),nu(2))
					max = Massimo(nu(1),nu(2))
					If Distanza(nu(1),nu(2)) = 10 And(nu1(1)) = min - 10 Or _
					Distanza(nu(1),nu(2)) = 10 And  nu1(1) = Fuori90(max+10) Then
						co = co + 1
						Scrivi String(130,"=")
						ColoreTesto 1
						Scrivi DataEstrazione(es) & " - " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1),1,0
						ColoreTesto 7
						Scrivi "  ( ambo ambo in cadenza        " & StringaNumeri(nu) & " )",1,0
						ColoreTesto 1
						Scrivi" - Posiz. " & p & "/" & pp,1
						Scrivi DataEstrazione(es) & " - " & SiglaRuota(r2) & " - " & StringaEstratti(es,r2),1,0
						ColoreTesto 7

						Scrivi "  ( Numero in cadenza Estr prec.   " & StringaNumeri(nu1) & " )",1,0
						ColoreTesto 1
						Scrivi" - Posiz. " & p3,1


						ColoreTesto 0
						Scrivi String(120,"=") & " Caso n° " & co
						ru(1) = r1
						ma(1) = Fuori90((max + 10) + 50)
						ambo5 = Array(ma(1),nu(1),nu(2),nu1(1),(max + 10))
						ImpostaGiocata 1,ma,ru,posta,colpi,1
						ImpostaGiocata 2,ambo5,ru,poste,colpi,2
						Gioca es,,,1
						
					End If
					Next
					Next
				Next
			Next
		Next
	Next
	ScriviResoconto
End Sub

 

[jure]

Ciao Mike58 il listato va bene ma necessita di qualche correzione
Questa è una previsione che da il listato.

19.06.2014 - NA - 78.34.84.79.04 ( ambo ambo in cadenza 84.4 ) - Posiz. 3/5
19.06.2014 - TO - 04.12.23.38.14 ( Numero in cadenza Estr prec. 4 ) - Posiz. 1
======================================================================================================================== Caso n° 15
Estrazione generatrice del pronostico 08862 [ 73 - 19/06/2014]
G 0001 Numeri in gioco : 54 su NA per Estratto
N. [54 ] [NA] [.. .. .. .. ..] C. 1 08863 [ 74 - 21/06/2014] [32.50.01.10.60]
N. [54 ] [NA] [.. .. .. .. ..] C. 2 08864 [ 75 - 24/06/2014] [01.50.72.55.06]

In corso per altre 11 estrazioni
G 0002 Numeri in gioco : 54.84.04.04 su NA per Ambo,Terno
N. [54.84.04.04 ] [NA] [.. .. .. .. ..] C. 1 08863 [ 74 - 21/06/2014] [32.50.01.10.60]
N. [54.84.04.04 ] [NA] [.. .. .. .. ..] C. 2 08864 [ 75 - 24/06/2014] [01.50.72.55.06]
Quella regolare è questa.

19/06/2014 NA 84 04
19/06/2014 TO 14
verrebbe 84 04 14 mancante 24
24+fisso 50 = 74
La Previsione su Napoli e Torino Ambata 74
Cinquina 74 24 84 04 14
Dei numeri per fare la previsione dal 05/06/2014 a 24/06/2014
si prendono solo tre numeri consecutivi e le ruote a scendere
es. 05/06/2014 FI GE 62 72 82 mancante il 02 + 50 = 52 Ambata
19/06/2014 NA TO 84 04 14 mancante il 24 + 50 = 74 Ambata
21/06/2014 CA NA 40 50 60 mancante 70 + 50 = 30 Ambata però
si mette il num.più grande che è il 70.
La previsione è composta per 2 Ruote. Dal 05/06 al 24/06 con
questo criterio di scelta sono valide solo queste 3 previsioni.
I numeri devono seguire il percorso nel cerchio ciclometrico.
dopo il 90 prosegue con il n. 01.
es. 24/05/2014 CA 28 38
24/05/2014 FI 18 seguendo il percorso del cerchio ciclometrico
18 28 38 num. mancante 48 + fisso 50 = 08
Previsione Cinquina 48 08 28 38 18 il 17/06 esce il 38 18
I tre numeri sulle due ruote a scendere devono essere estratti
es.fittizio 11 21 31 - 42 52 62 - 33 43 53 - 50 60 70 - 44 54 64
o anche 31 21 11 - 62 52 42 ecc.
Spero di essermi spiegato benino.

 

[Mike58]

Ciao jure, quando mi leggerai avrei bisogno di un chiarimento

1 - l'ambo da cercare è sulla 1^ ruota ?
2 - il numero isolato è sulla ruota consecutiva all'ambo della 1^ ruota ?
3 - il numero isolato è il -10 del minimo dei 2 numeri di ambo , oppure il massimo + 10 ?

una volta stabilito cosa e dove cercare poi il tutto si scripta, perché da tuo esempio 11 21 31 io posso anche trovare 01-11-21

Mi serve capire altrimenti non riesco a determinare le giuste condizioni.

Ciao

 

[jure]

Ciao Mike58 l'ambo va bene sia sulla prima Ruota che sulla Seconda
le tre cadenze trovate devono essere messe nel verso del cerchio ciclometrico.
es 26/04/2014 1° Ruota FI 72
26/04/2014 2° Ruota GE 62 52 questi numeri devono essere messi consecutivamente dal più piccolo al più
grande 52 62 72 chiusura del quadrato + 10 = 82 numero di chiusura a cui viene
sommato il fisso 50 che sarebbe 82 + 50 = 132 - 90 = 42 che sarebbe l'ambata
La cinquina da giocare Su FI GE 42 82 62 52 72

es. 24/05/2014 1° Ruota CA 28 38
24/05/2014 2° Ruota FI 18 che messi consecutivamente danno 18 28 38 + 10 = 48 che è il
numero mancante dei tre numeri che ipoteticamente messi ai vertici di un quadrato sarebbe la chiusura
del 4° vertice.
Al 48 si aggiunge il fisso 50 e sarebbe 48 + 50 = 98 - 90 = 08 che viene messa come Ambate
Previsione CA FI 08 Ambata 08 48 Ambo
Cinquina 08 48 38 28 18
Sulle 2 Ruote si devono trovare tre numeri di qualunque cadenza messi consecutivamente
dal più piccolo al più grande.

 

[Joe91]

Bravo Mike.

Vedo che hai colto (quasi) tutte le criticità in essere, ottenendo una maggior descrizione del metodo.

Buona Giornata a tutte/i.

 

[Mike58]

Ciao, Joe, visto il tuo intervento e la risposta d jure, avrei un po' d difficoltà causa tempo mancante (fino a stasera causa lavoro) e mancanza di concentrazione sul rilevamento delle condizioni OR ambo 1^ ruota or 2^ ruota con conseguente numero isolato, ti chiedo se hai voglia e tempo di darmi una mano.
Purtroppo la fretta tante volte non aiuta la concentrazione.

Grazie se eventualmente risolvi.

Ciao

 

[jure]

Ciao miche58 Io ho un programma che mi fa queste previsioni in automatico ma vorrei vedere
la statistica retroattiva per adesso tutte le previsioni precedenti si sono sfaldate
o in ambata o ambo queste sono le ultime rimaste.
4926 19-06-2014 Na To 74 24 84 04 14 Att. 0003 26-06-2014
4927 21-06-2014 Ca Na 70 30 50 60 40 Att. 0002 26-06-2014
Dati agg. 26-06-2014

Il numero isolato è il numero + 10 delle tre cadenze consecutive
trovate al quale ci devi aggiungere il fisso 50 di cui scaturira' l'ambata
Principale.

 

[Joe91]

Ciao Jure,

Solo pochi, sono in grado di scrivere questo programma, se si può scrivere.

Per me ha ragione Mike, molto dipende dalla descrizione ... che di esso si fa.

Per ora, non sembrano esserci sufficienti vincoli all' inquadrare tutte le condizioni

che si sviluppano nel dedalo dell'evento estrazionale.

Perchè come dice Mike, appena fissi una condizione ... se ne aprono altre, in maggior numero.

Quindi il problema principale non è sviluppare il pronostico

ma individuare correttamente la condizione da cui esso si genera.

Relativamente ai irisultati di quanto hai, andrebbero controllati meglio, ma è altro discorso.

Suppongo ti manchino, tutti i casi in cui è coinvolta la Nazionale, come per esempio :

19.06.2014
CA 39.50.55.53.63
NZ 49.14.43.29.85
43.53.63

Nazionale che forse è nata dopo e forse escludibile ... ma ciò è facile sa farsi.

Per farla breve a mio modesto parere quello che è molto difficile trasferire al Pc il

"colpo d'occhio" di un umano capace di individuare all'istante le cadenze e le decine,

ma ... vedremo se ci saranno risultati.

 

[jure]

BRAVO Disaronno il programma è Perfetto non mi spiego
anch'io CA NA il 70 me lo da il programma che ho, in automatico.
Il 24/05/2014 CA 28 38 FI 18 mi da come previsione.
CA FI 48 08 28 38 18 il metodo è stato
ideato da un mio amico molti anni fa che ho perso di vista
io l'ho interpretato in base alle previsioni , mi piaceva sapere
il comportamento retroattivo perciò ho richiesto uno script.
Che è stato prontamente è gentilmente fatto.
Ringrazio mike58,joe91 e disaronno.

 

[Joe91]

BRAVO Disaronno il programma è Perfetto non mi spiego
anch'io CA NA il 70 me lo da il programma che ho, in automatico.
Il 24/05/2014 CA 28 38 FI 18 mi da come previsione.
CA FI 48 08 28 38 18 il metodo è stato
ideato da un mio amico molti anni fa che ho perso di vista
io l'ho interpretato in base alle previsioni , mi piaceva sapere
il comportamento retroattivo perciò ho richiesto uno script.
Che è stato prontamente è gentilmente fatto.
Ringrazio mike58,joe91 e disaronno.

Si ...

questa è la parte che più mi interessa: amico ... quindi maschio mi esclude Cinzia e Rosanna.

Scuola del Nord ... Ramco, Gam, Danilo, Robyca, Alfe o qualcuno a questo livello

Più a sud, Gaspare ... eppoi recentemente l'immancabile Enplein, se si esclude Luigi.

Chissà se vorrai saziare un pò della mia curiosità?

Comunque sia ... provo ad allegare

per riferimento i risultati di uno script ... dei nostri tempi.

===================================
31.05.2014                        1
BA 28.15.61.18.29 BA 28 18 
CA 76.38.78.70.55 CA 38
===================================
31.05.2014                        2
BA 28.15.61.18.29 BA 28 18 
VE 32.08.07.22.19 VE 08
===================================
31.05.2014                        3
MI 67.49.79.69.75 MI 79 69 
RO 68.34.01.59.03 RO 59
===================================
03.06.2014                        4
NA 60.11.70.47.29 NA 60 70 
NZ 06.84.42.35.50 NZ 50
===================================
05.06.2014                        5
FI 55.08.25.62.72 FI 62 72 
GE 65.41.85.15.82 GE 82
===================================
05.06.2014                        6
PA 03.34.21.13.27 PA 03 13 
BA 20.48.81.23.14 BA 23
===================================
05.06.2014                        7
PA 03.34.21.13.27 PA 03 13 
NA 77.83.45.51.02 NA 83
===================================
05.06.2014                        8
VE 18.10.77.11.90 VE 10 90 
BA 20.48.81.23.14 BA 20
===================================
07.06.2014                        9
PA 47.27.26.80.57 PA 47 57 
NZ 67.25.22.19.33 NZ 67
===================================
07.06.2014                       10
TO 56.63.73.59.62 TO 63 73 
VE 40.33.50.53.75 VE 53
===================================
10.06.2014                       11
CA 62.25.34.72.47 CA 62 72 
TO 64.43.52.44.74 TO 52
===================================
10.06.2014                       12
CA 62.25.34.72.47 CA 62 72 
VE 48.65.82.80.27 VE 82
===================================
10.06.2014                       13
TO 64.43.52.44.74 TO 64 74 
BA 50.21.19.02.54 BA 54
===================================
10.06.2014                       14
TO 64.43.52.44.74 TO 64 74 
GE 88.03.84.10.26 GE 84
===================================
12.06.2014                       15
BA 02.29.51.41.45 BA 51 41 
TO 61.74.57.83.70 TO 61
===================================
12.06.2014                       16
GE 90.75.80.60.57 GE 90 80 
TO 61.74.57.83.70 TO 70
===================================
12.06.2014                       17
RO 32.09.19.53.67 RO 09 19 
BA 02.29.51.41.45 BA 29
===================================
12.06.2014                       18
RO 32.09.19.53.67 RO 09 19 
FI 36.87.80.08.29 FI 29
===================================
12.06.2014                       19
RO 32.09.19.53.67 RO 09 19 
MI 89.84.39.07.20 MI 89
===================================
12.06.2014                       20
RO 32.09.19.53.67 RO 09 19 
PA 89.04.82.64.44 PA 89
===================================
14.06.2014                       21
RO 64.22.04.75.32 RO 22 32 
BA 43.42.59.45.73 BA 42
===================================
14.06.2014                       22
RO 64.22.04.75.32 RO 22 32 
PA 81.41.80.42.16 PA 42
===================================
14.06.2014                       23
RO 64.22.04.75.32 RO 22 32 
NZ 80.50.84.42.33 NZ 42
===================================
17.06.2014                       24
GE 18.03.13.89.07 GE 03 13 
PA 12.80.67.83.07 PA 83
===================================
17.06.2014                       25
NA 49.36.58.31.41 NA 31 41 
MI 59.51.90.63.66 MI 51
===================================
17.06.2014                       26
TO 60.71.05.37.70 TO 60 70 
CA 16.50.38.45.18 CA 50
===================================
17.06.2014                       27
TO 60.71.05.37.70 TO 60 70 
PA 12.80.67.83.07 PA 80
===================================
17.06.2014                       28
TO 60.71.05.37.70 TO 60 70 
NZ 78.39.76.50.52 NZ 50
===================================
19.06.2014                       29
CA 39.50.55.53.63 CA 53 63 
NZ 49.14.43.29.85 NZ 43
===================================
19.06.2014                       30
NA 78.34.84.79.04 NA 84 04 
TO 04.12.23.38.14 TO 14
===================================
19.06.2014                       31
NA 78.34.84.79.04 NA 84 04 
NZ 49.14.43.29.85 NZ 14
===================================
19.06.2014                       32
TO 04.12.23.38.14 TO 04 14 
NA 78.34.84.79.04 NA 84
===================================
19.06.2014                       33
TO 04.12.23.38.14 TO 04 14 
VE 82.88.28.84.23 VE 84
===================================
21.06.2014                       34
NA 32.50.01.10.60 NA 50 60 
CA 67.87.61.39.40 CA 40
===================================
21.06.2014                       35
NA 32.50.01.10.60 NA 50 60 
MI 70.77.24.89.28 MI 70
===================================
21.06.2014                       36
NA 32.50.01.10.60 NA 50 60 
PA 88.56.01.50.70 PA 70
===================================
24.06.2014                       37
BA 75.65.02.12.77 BA 75 65 
NA 01.50.72.55.06 NA 55
===================================

 

[Enplein]

Ciao a Tutti, da quello che sono riuscito a capire bisogna trasformare
una previsione generata da un metodo in script....la cosa sinceramente
non è facile....comunque mi sono cimentato utilizzando lo script di
Mike58, ed ecco la mia soluzione:

Sub Main()
	'cerca ambi in cadenza uguale
	Dim nu(2),ru(2),ma(10),lg(5),nu1(1),poste(3),posta(1)
	poste(2) = 9
	poste(3) = 1
	posta(1) = 1
	quante = CInt(InputBox("Quante estrazioni vuoi analizzare","Quante estrazioni",100))
	esPr = CInt(InputBox("QUANTE ESTRAZIONI PRECEDENTI RICERCO NUMERO RETROATTIVO",,0))
	Ini = EstrazioneFin - quante
	fin = EstrazioneFin
	colpi = 13
	Scrivi "Metodo Frequenza_Ciclica cadenze   *** forum-lottoced *** Richiesta Jure **** ",1,0
	Scrivi" Ricerca ambo in cadenza  ",0,0
	ColoreTesto 2
	Scrivi " Listed by Mike58_Enplein ",1
	ColoreTesto 0
	For es = Ini To fin
		Messaggio "Estrazioni esaminate " & es & "   --->  script by Mike58_Enplein"
		Call AvanzamentoElab(Ini,fin,es)
		For r1 = 1 To 10
			For p = 1 To 4
				For pp = p + 1 To 5
					nu(1) = Estratto(es,r1,p)
					nu(2) = Estratto(es,r1,pp)
					df = Differenza(nu(1),nu(2))
						If df = 10 Or df = 80 Then
						OrdinaMatrice nu,1
							If df = 10 Then
							a = nu(1) : b = nu(2) : c1 = Fuori90((a + 90) - 10) : c2 = Fuori90(b + 10)
							End If
							If df = 80 Then
							a = nu(2) : b = nu(1) : c1 = Fuori90((a + 90) - 10) : c2 = Fuori90(b + 10)
							End If
							For r2 = 1 To 10
							ok = 0 : g = 0
								For x = 0 To esPr
								ex = es - x
								po1 = Posizione(ex,r2,c1) : po2 = Posizione(ex,r2,c2)
									If(po1 > 0 Or po2 > 0)  Then
										If po1 > 0 Then
										g = g + 1 : c = c1 : max = b : q = po1
										End If
									

										If po2 > 0  Then
										g = g + 1 :c = c2 : max = c : q = po2
										End If
										
										ok = 1 : ee = ex
								If ok = 1 Then Exit For
									End If
								Next
					
									If g = 1 Then
									ru(1) = r1 : ru(2) = r2
						ma(1) = Fuori90((max + 10) + 50)
						lg(1) = ma(1):lg(2) = Fuori90(max + 10):lg(3) = a:lg(4) = b:lg(5) = c
						co = co + 1
						Scrivi String(130,"=")
						ColoreTesto 1
						Scrivi DataEstrazione(es) & " - " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1),1,0
						ColoreTesto 7
						Scrivi "  ( ambo ambo in cadenza        " & Format2(nu(1)) & "." & Format2(nu(2)) & " )",1,0
						ColoreTesto 1
						Scrivi" - Posiz. " & p & "/" & pp,1
						Scrivi DataEstrazione(ee) & " - " & SiglaRuota(r2) & " - " & StringaEstratti(ee,r2),1,0
						ColoreTesto 7

						Scrivi "  ( Numero in cadenza Estr prec.   " & Format2(c) & " )",1,0
						ColoreTesto 1
						Scrivi" - Posiz. " & q,1


						ColoreTesto 0
						Scrivi String(120,"=") & " Caso n° " & co
						
					
						ImpostaGiocata 1,ma,ru,posta,colpi,1
						ImpostaGiocata 2,lg,ru,poste,colpi,2
						Gioca es,,,1
						
							
						End If
						Next
					End If
				Next
			Next
		Next
	Next
	ScriviResoconto
End Sub

Ciao, Enplein.

 

[jure]

Ciao joe91 sul Programma che ho da diversi anni
c'è il nome by alfe & Savlomba gli ideatori.

 

[Joe91]

Ciao Franco ...

Mutatis mutandis, le tue correzioni portano ad ottenere i 37 casi ... identici.

Bravo, è anche per te come per Mike e Disaronno.

Grazie Jure per la conferma.

Un saluto con i complimenti a tutti voi ...

 

[Mike58]

Ciao a tutti gli intervenuti in questo post, e anche un grazie per i diversi approcci per arrivare alla meta dell'obiettivo.
Un bravissimo a Disaronno e un grazie a joe e Emplein per i preziosi input per snocciolare il problema in materia scriptica.

Io avevo capito lo script anche in maniera diversa e per questo ho messo un po' di tempo ( disponibile ), avevo capito che bisognava cercare le condizioni su ruote consecutive e quindi trovare l'ambo in cadenza ed alla ruota consecutiva il numero in cadenza isolato, oppure il numero in cadenza ed alla ruota consecutiva l'ambo in cadenza.
Cosa che non vedo negli altri script postati, anche se non è importante la ruota consecutiva, ma invece è importante il rilevamento della condizione invertita sulla 1° ruota il numero isolato e sulla 2° l'ambo in cadenza.

Purtroppo questo mi ha impegnato molto e premetto solo per mio scrupolo e voglia di imparare.

Se avete voglia e tempo magari si può vedere come rilevare la condizione invertita.

P.s. x Emplein capisco la svista c'è un errore nel for delle ruote

for r1 = 1 to 10 -- da correggere con for r1 = 1 to 9
for r2 = 1 to 10 -- da correggere con for r2 = r1 + 1 to 10
correzione per i meno esperti

un saluto a tutti gli intervenuti.

 

[Joe91]

Ciao Mike.

Nel tuo scritto ... c'è domanda e risposta per la soluzione dei tuoi dubbi.

R2 = R1 + 1 '... è come dire HO PREVISTO essere R2 sempre maggiore di R1 ...

ovvero le ruote rappresentate da R2 sono SEMPRE le "RUOTE DOPO" ... "R1"

For R1 = 1 To 10  '= TUTTE e 10
 For R2 = 1 To 10  '= TUTTE e 10 
  .
  .
  .
  .
 Next 
Next

Ovvero PREVEDO che con "R2" si possa cercare ANCHE nelle ruote (eventualmente) "PRIMA di" ... "R1".

 

[Enplein]

Ovvero PREVEDO che con "R2" si possa cercare ANCHE nelle ruote (eventualmente) "PRIMA di" ... "R1".

Giusto Joe,...infatti lo script può cercare anche nelle estrazioni precedenti.

Ciao, Enplein.

 

[Mike58]

Ciao Joe, Emplein è vero, la vostra rettifica, la mia errata valutazione stava nel fatto che vedevo un caso con 2 ruote uguali, anche se a questo si può ovviare con la condizione IF r1 <> r2 then.

Tutto chiaro, grazie e un saluto ad entrambi.




==================================================================================================================================
12.11.2013 - BA - 06.21.41.31.63 ( ambo ambo in cadenza 31.41 ) - Posiz. 3/4
12.11.2013 - BA - 06.21.41.31.63 ( Numero in cadenza Estr prec. 21 ) - Posiz. 2
======================================================================================================================== Caso n° 6

==================================================================================================================================
14.11.2013 - TO - 71.81.18.86.90 ( ambo ambo in cadenza 71.81 ) - Posiz. 1/2
14.11.2013 - BA - 01.64.25.82.60 ( Numero in cadenza Estr prec. 01 ) - Posiz. 1
======================================================================================================================== Caso n° 7

 

[Joe91]

Ciao Mike

Si, è la differenza tra Permutazioni e Combinazioni.

Lottologicamente R1 <> R2 abbassa di 10 il numero di coppie di ruote.

perchè esclude BA_BA_ / CA_CA_ / FI_FI_ GE_GE_ ecc..

con R2 = R1+ 1 .... saranno 45 coppie di ruote.

con R1 = 10 & R2 = 10 ... = 10 * 10 = 100 coppie.

e con .... con R1 <> R2 ... 10 in meno = 100-10 = 90

.... in proporzione speudo casuale, perchè indotta da questa certezza matematica e dal caso ... ci saranno "Casi" & "Risultati".

 

[LuigiB]

ciao ragazzi , sapete che ogni tanto mi diletto in qualche script , ecco la mia versione.
Pero non so se ho capito le condizioni , le ripilogo per come le ho capite

su una ruota un ambo in cadenza a distanza 10
su un 'altra ruota un numero dellla stessa cadenza
Prendere il maggiore dei numeri e sommare 10
al numero ottenuto (detto numero mancante ) sommare 50 e porlo in gioco sulle 2 ruote di rilevamento
formare una cinquina composta dall'ambata piu i 3 numeri rilevati in cadenza + il numero mancante e porla in gioco
sulla ruota dove è presete l'ambo in cadenza non sono presenti altri numeri con la stessa cadenza
sulla ruota dove è presete l'estratto in cadenza non sono presenti altri numeri con la stessa cadenza


lo script ragiona cosi non so se in accordo con le specifiche ... ciao

Option Explicit
Class ClasseCadenza
	Private m_Numero
	Sub Class_Initialize
		' codice
	End Sub
	Sub Class_Terminate
		' codice
	End Sub
	Public Property Get Numero
		Numero = m_Numero
	End Property
	Public Property Let Numero(NewValue)
		m_Numero = NewValue
	End Property
End Class
Class ClasseCadenze
	Private m_Ruota
	Private CollCadenze()
	Sub Class_Initialize
		' codice
		Dim k
		ReDim collcadenze(9)
		For k = 0 To 9
			Set collcadenze(k) = GetNewCollection
		Next
	End Sub
	Sub Class_Terminate
		' codice
	End Sub
	Public Property Get Ruota
		Ruota = m_Ruota
	End Property
	Public Property Let Ruota(NewValue)
		m_Ruota = NewValue
	End Property
	Public Property Get Cadenze(nCadenza)
		Set Cadenze = CollCadenze(nCadenza)
	End Property
	Sub AddNumero(n)
		Dim nCadenza
		Dim clsCad
		nCadenza = Cadenza(n)
		Set clsCad = New ClasseCadenza
		clsCad.Numero = n
		CollCadenze(nCadenza).add(clsCad)
	End Sub
End Class
Sub Main
	Dim idEstr,Ruota,e, k
	Dim Inizio,Fine
	Dim r1,r2
	Dim n , nGiocata , nColpi
	Dim CollCadenzeRuota
	Dim bFound , nNumMancante 
	 
	 
	
	nColpi  = 10
	Inizio = EstrazioneIni
	Fine = EstrazioneFin
	For idEstr = Inizio To Fine
		Call InitCollCadenzeRuota(CollCadenzeRuota)
		For Ruota = 1 To 12
			If Ruota <> 11 Then
				For e = 1 To 5
					Call CollCadenzeRuota(Ruota).AddNumero(Estratto(idEstr,Ruota,e))
				Next
			End If
		Next
		For n = 0 To 9
			For r1 = 1 To 10
				For r2 = r1 + 1 To 12
					If r2 <> 11 Then
						bFound = False
						If CollCadenzeRuota(r1).cadenze(n).count = 2 Then
							If CollCadenzeRuota(r2).cadenze(n).count = 1 Then
								If Distanza(CollCadenzeRuota(r1).cadenze(n).item(1).Numero,CollCadenzeRuota(r1).cadenze(n).item(2).Numero) = 10 Then
									bFound = True
								End If
							End If
						End If
						If CollCadenzeRuota(r1).cadenze(n).count = 1 Then
							If CollCadenzeRuota(r2).cadenze(n).count = 2 Then
								If Distanza(CollCadenzeRuota(r2).cadenze(n).item(1).Numero,CollCadenzeRuota(r2).cadenze(n).item(2).Numero) = 10 Then
									bFound = True
								End If
							End If
						End If
						If bFound Then
							ReDim aNum(0)
							If LeggiNumeri(CollCadenzeRuota(r1).cadenze(n),CollCadenzeRuota(r2).cadenze(n),aNum , nNumMancante ) Then
								Call Scrivi(GetInfoEstrazione(idEstr))
								Call Scrivi(NomeRuota(r1) & ": " & GetStringaHtml(StringaEstratti(idEstr,r1),n))
								Call Scrivi(NomeRuota(r2) & ": " & GetStringaHtml(StringaEstratti(idEstr,r2),n))
								Call Scrivi ("Numero mancante : " & nNumMancante )
								Call DisegnaCerchioCiclometrico(aNum)
								
								
								ReDim aRuoteInG(2)
								aRuoteInG(1) = r1
								aRuoteInG(2) = r2
								
								ReDim aNumInG (1)
								aNumInG(1) = Fuori90(nNumMancante +50)
								
								ReDim aPoste(5)
								aPoste(1)=1
								
								nGiocata = nGiocata +1
								
								Call ImpostaGiocata(nGiocata,aNumInG,aRuoteInG,aPoste ,nColpi ,1)
								
								ReDim aNumInG (5)
								aNumInG(1) = Fuori90(nNumMancante +50)
								For k = 1 To 4
									aNumInG(k+1) = aNum(k)
								Next
								
								Call Gioca (idEstr )
									
								ReDim aPoste(5)
								aPoste(2)=1
								If QuantitaNumInArray(aNumInG) = 5 Then
									nGiocata = nGiocata +1
									
									Call ImpostaGiocata(nGiocata,aNumInG,aRuoteInG,aPoste ,nColpi ,1)
									Call Gioca (idEstr )	
								End If 
								
													
							End If
						End If
					End If
				Next
			Next
		Next
		
		' inserire qui il codice che analizza l'estrazione corrente
		Call AvanzamentoElab(Inizio,Fine,idEstr)
		If ScriptInterrotto Then Exit For
	Next
	
	Call ScriviResoconto
	
End Sub
Sub InitCollCadenzeRuota(CollCadenzeRuota)
	Dim k
	ReDim CollCadenzeRuota(12)
	For k = 1 To 12
		Set CollCadenzeRuota(k) = New ClasseCadenze
		CollCadenzeRuota(k).Ruota = NomeRuota(k)
	Next
End Sub
Function LeggiNumeri(collr1,Collr2,aNum , nRetMancante)
	ReDim aNum(4)
	Dim clsCad
	Dim nTrov
	Dim k
	nTrov = 0
	For Each clsCad In collr1
		nTrov = nTrov + 1
		aNum(nTrov) = Int(clsCad.numero)
	Next
	For Each clsCad In Collr2
		nTrov = nTrov + 1
		aNum(nTrov) = Int(clsCad.numero)
	Next
	nTrov = nTrov + 1
	nRetMancante =Fuori90(MassimoV(aNum) + 10)
	aNum(nTrov) =nRetMancante  
	nTrov = 0
	Call EliminaRipetuti(aNum)
	For k = 1 To UBound(aNum)
		If aNum(k) > 0 Then
			nTrov = nTrov + 1
		End If
	Next
	If nTrov = 4 Then
		LeggiNumeri = True
	End If
End Function
Function GetStringaHtml(sRiga,sNum)
	ReDim aV(0)
	Dim k
	Dim sRet
	Call SplitByChar(sRiga,".",aV)
	For k = 0 To UBound(aV)
		If Cadenza(aV(k)) = Int(sNum) Then
			sRet = sRet & "<font color ='red'>" & aV(k) & "</font>" & "."
		Else
			sRet = sRet & aV(k) & "."
		End If
	Next
	GetStringaHtml = Mid(sRet,1,Len(sRet) - 1)
End Function

Function QuantitaNumInArray(aNum ) 
	Dim nTrov
	Dim k
	nTrov = 0

	Call EliminaRipetuti(aNum)
	For k = 1 To UBound(aNum)
		If aNum(k) > 0 Then
			nTrov = nTrov + 1
		End If
	Next
	QuantitaNumInArray = nTrov  

End Function