Per chi ha voglia e tempo..

[Baffoblu]

Analizzato anche l'ultimo script di mike58 :

dal 1995 al 2000 (metto solo il primo e l'ultimo caso)

====================================================================================================
14.01.1995  TO - 32.64.76.53.78 num isotopo ->  64 - Posiz. 2 - somma cifra estratto : 10
14.01.1995  VE - 70.82.29.05.66 num isotopo ->  82 - Posiz. 2 - somma cifra estratto : 10
---------------------------------------------------------------------------------------------------- Caso n° 1
64-82 differenza estratti sulle 2 ruote consecutive  ---> 18

 somma 1° estratto + somma cifra   = 74
 somma 2° estratto + somma cifra   = 2
 somma dei 2 numeri ricavati       = 76
 vertibile della somma             = 67
----------------------------------------------------------------------------------------------------
Estrazione generatrice del pronostico 06472 [  2 - 14/01/1995]
G 0001
Numeri in gioco : 74.02.76.67 su TO VE per Ambo,Terno

ultimo caso nel 2000 :

====================================================================================================
18.10.2000  CA - 52.13.27.44.07 num isotopo ->  13 - Posiz. 2 - somma cifra estratto : 4
18.10.2000  FI - 33.31.40.15.59 num isotopo ->  31 - Posiz. 2 - somma cifra estratto : 4
---------------------------------------------------------------------------------------------------- Caso n° 212
13-31 differenza estratti sulle 2 ruote consecutive  ---> 18

 somma 1° estratto + somma cifra   = 17
 somma 2° estratto + somma cifra   = 35
 somma dei 2 numeri ricavati       = 52
 vertibile della somma             = 25
----------------------------------------------------------------------------------------------------
Estrazione generatrice del pronostico 06961 [ 84 - 18/10/2000]
G 0001
Numeri in gioco : 17.35.52.25 su CA FI per Ambo,Terno

Questo è il resoconto di quel periodo :

+-------------------------------------+ +----------------------------------+ +----------------------------------+ +----------------------------------+ 
|              RESOCONTO              | |       DISTRIBUZIONE ESITI        | | DISTRIBUZIONE ESITI PERCENTUALI  | |        DISTRIBUZIONE CASI        | 
+-------------------------------------+ +----------------------------------+ +----------------------------------+ +----------------------------------+ 
| Casi esaminati     :           212  | | RT | Est | Amb | Ter | Qua | Cin | | RT | Est | Amb | Ter | Qua | Cin | | RT |  Q  |                       | 
| Casi vincenti      :            50  | +----------------------------------+ +----------------------------------+ +----------------------------------+ 
| Percentuale pos.   :       23,58 %  | | BA |     |    4|     |     |     | | BA |     | 7,41|     |     |     | | BA |   24|                       | 
| Giocate in corso   :             0  | | CA |     |    3|     |     |     | | CA |     | 5,56|     |     |     | | CA |   55|                       | 
| Giocate terminate  :           212  | | FI |     |   10|    1|     |     | | FI |     |18,52|   50|     |     | | FI |   56|                       | 
| Bollette giocate   :         3.774  | | GE |     |     |     |     |     | | GE |     |     |     |     |     | | GE |   47|                       | 
| Bollette vincenti  :            50  | | MI |     |    7|     |     |     | | MI |     |12,96|     |     |     | | MI |   38|                       | 
| Attesa media       :             5  | | NA |     |    5|    1|     |     | | NA |     | 9,26|   50|     |     | | NA |   38|                       | 
| Spesa              :    7.548,00 €  | | PA |     |    9|     |     |     | | PA |     |16,67|     |     |     | | PA |   48|                       | 
| Vincita            :    4.226,62 €  | | RM |     |    6|     |     |     | | RM |     |11,11|     |     |     | | RM |   53|                       | 
| Guadagno           :

 

[jobby73]

Io dallo script di Antelao ho trovato questo:


25.11.2010 RM - 53.03.52.46.24 num isotopo -> 03 - Posiz. 2 - Figura estratto : 3
25.11.2010 TO - 11.25.19.48.52 num isotopo -> 25 - Posiz. 2 - figura estratto : 5
---------------------------------------------------------------------------------------------------- Caso n° 694
3-25 differenza estratti sulle 2 ruote consecutive ---> 22

somma 1° estratto + figura = 6
somma 2° estratto + figura = 30
somma dei 2 numeri ricavati = 36
vertibile della somma = 63
----------------------------------------------------------------------------------------------------
Estrazione generatrice del pronostico 08305 [141 - 25/11/2010]
G 0001
Numeri in gioco : 06.30.36.63 su RM TO per Ambo,Terno,Quaterna
N. [06.30.36.63 ] [RM] [.. .. .. .. ..] C. 1 08306 [142 - 27/11/2010] [62.61.12.14.53]
N. [06.30.36.63 ] [TO] [.. .. .. .. ..] C. 1 08306 [142 - 27/11/2010] [37.87.78.58.38]
N. [06.30.36.63 ] [RM] [.. .. .. .. ..] C. 2 08307 [143 - 30/11/2010] [23.45.78.46.24]
V N. [06.30.36.63 ] [TO] [63 06 36 30 ..] C. 2 Quaterna 08307 [143 - 30/11/2010] [63.06.36.30.68]
Interrotta per esito verificato

A meno che non era uno scherzo di Antelao... che ha giocherellato con lo script.. non ci sto capendo più niente ci sentiamo lunedì.. è meglio.. se non risolvo il dilemma vi chiedo scusa!!

Monica

 

[Baffoblu]

quote:Originally posted by antelao

X baffo,
se guardi un po più sù,ho giocherellato con lo script
ottenendo la quaterna.Ma se modifichi il range a 5000
estrazioni,otterrai la stessa quaterna.Purtroppo con
questo tipo di metodi,puoi trovare molteplici condizioni
a volte difficili da scegliere e portare avanti.
Personalmente io,preferisco il tuo modo di elaborare
le previsioni (un esempio può essere la spia 11 si FI)
senza dubbio più semplici da seguire e forse più vincenti

Scusa ma non vedo nessun post (modificato da antelao ecc..)

Ho gia analizzato 5000 estrazioni e il resoconto parla chiaro, nessuna quaterna !



Ma a quale script ti riferisci, perchè qua si stanno ormai accavallando a vista d'occhio


e a questo punto mi interessa solo la quaterna "ORIGINALE" con i calcoli esatti detti all'inizio.

 

[Mike58]

A conferma di quello che dice Baffo anche su di un range di 5000 estrazioni la quaterna non si vede.

24-42 differenza estratti sulle 2 ruote consecutive  ---> 18

 somma 1° estratto + somma cifra   = 30
 somma 2° estratto + somma cifra   = 48
 somma dei 2 numeri ricavati       = 78
 vertibile della somma             = 87
----------------------------------------------------------------------------------------------------
Estrazione generatrice del pronostico 08461 [141 - 24/11/2011]
G 0001
Numeri in gioco : 30.48.78.87 su CA FI per Ambo,Terno
  N. [30.48.78.87                   ] [CA]     [.. .. .. .. ..] C.   1            08462 [142 - 26/11/2011] [28.66.17.07.44]
  N. [30.48.78.87                   ] [FI]     [.. .. .. .. ..] C.   1            08462 [142 - 26/11/2011] [31.23.20.77.25]

In corso per altre 9 estrazioni
+-------------------------------------+ +----------------------------------+ +----------------------------------+ +----------------------------------+ 
|              RESOCONTO              | |       DISTRIBUZIONE ESITI        | | DISTRIBUZIONE ESITI PERCENTUALI  | |        DISTRIBUZIONE CASI        | 
+-------------------------------------+ +----------------------------------+ +----------------------------------+ +----------------------------------+ 
| Casi esaminati     :         1.944  | | RT | Est | Amb | Ter | Qua | Cin | | RT | Est | Amb | Ter | Qua | Cin | | RT |  Q  |                       | 
| Casi vincenti      :           437  | +----------------------------------+ +----------------------------------+ +----------------------------------+ 
| Percentuale pos.   :       22,48 %  | | BA |     |   31|     |     |     | | BA |     | 6,71|     |     |     | | BA |  223|                       | 
| Giocate in corso   :             3  | | CA |     |   37|     |     |     | | CA |     | 8,01|     |     |     | | CA |  441|                       | 
| Giocate terminate  :         1.941  | | FI |     |   52|    2|     |     | | FI |     |11,26|   20|     |     | | FI |  433|                       | 
| Bollette giocate   :        34.734  | | GE |     |   52|    2|     |     | | GE |     |11,26|   20|     |     | | GE |  433|                       | 
| Bollette vincenti  :           442  | | MI |     |   49|     |     |     | | MI |     |10,61|     |     |     | | MI |  417|                       | 
| Attesa media       :             5  | | NA |     |   61|    1|     |     | | NA |     | 13,2|   10|     |     | | NA |  418|                       | 
| Spesa              :   69.468,00 €  | | PA |     |   52|    2|     |     | | PA |     |11,26|   20|     |     | | PA |  438|                       | 
| Vincita            :   28.641,05 €  | | RM |     |   52|    1|     |     | | RM |     |11,26|   10|     |     | | RM |  456|                       | 
| Guadagno           :  -40.826,95 €  | | TO |     |   44|     |     |     | | TO |     | 9,52|     |     |     | | TO |  433|                       | 
| Perc. Rendimento   :     -58,771 %  | | VE |     |   32|    2|     |     | | VE |     | 6,93|   20|     |     | | VE |  196|                       | 
| Mass. Esposizione  :    1.348,00 €  | | NZ |     |     |     |     |     | | NZ |     |     |     |     |     | | NZ |     |                       | 
| Estratto su ruota  :           894  | | TT |     |     |     |     |     | | TT |     |     |     |     |     | | TT |     |                       | 
| Ambo su ruota      :           462  | +----------------------------------+ +----------------------------------+ +----------------------------------+ 
| Terno su ruota     :            10  |    
|                                     |                                                                                                                
+-------------------------------------+

 

[morena59]

[8D][8D][8D]
+-------------------------------------+ +----------------------------------+ +----------------------------------+ +----------------------------------+
| RESOCONTO | | DISTRIBUZIONE ESITI | | DISTRIBUZIONE ESITI PERCENTUALI | | DISTRIBUZIONE CASI |
+-------------------------------------+ +----------------------------------+ +----------------------------------+ +----------------------------------+
| Casi esaminati : 63 | | RT | Est | Amb | Ter | Qua | Cin | | RT | Est | Amb | Ter | Qua | Cin | | RT | Q | |
| Casi vincenti : 21 | +----------------------------------+ +----------------------------------+ +----------------------------------+
| Percentuale pos. : 33,33 % | | BA | | 1| | | | | BA | | 3,45| | | | | BA | 4| |
| Giocate in corso : 3 | | CA | | 2| | | | | CA | | 6,9| | | | | CA | 12| |
| Giocate terminate : 60 | | FI | | 1| | | | | FI | | 3,45| | | | | FI | 16| |
| Bollette giocate : 984 | | GE | | 2| | | | | GE | | 6,9| | | | | GE | 14| |
| Bollette vincenti : 22 | | MI | | 5| | | | | MI | |17,24| | | | | MI | 13| |
| Attesa media : 4 | | NA | | 6| 1| | | | NA | |20,69| 20| | | | NA | 15| |
| Spesa : 2.952,00 € | | PA | | | | | | | PA | | | | | | | PA | 15| |
| Vincita : 119.221,52 € | | RM | | 1| | | | | RM | | 3,45| | | | | RM | 17| |
| Guadagno : 116.269,52 € | | TO | | 9| 4| 1| | | TO | |31,03| 80| 100| | | TO | 15| |
| Perc. Rendimento : 3938,669 % | | VE | | 2| | | | | VE | | 6,9| | | | | VE | 5| |
| Mass. Esposizione : 564,00 € | | NZ | | | | | | | NZ | | | | | | | NZ | | |
| Estratto su ruota : 47 | | TT | | | | | | | TT | | | | | | | TT | | |
| Ambo su ruota : 29 | +----------------------------------+ +----------------------------------+ +----------------------------------+
| Terno su ruota : 5 |
| Quaterna su ruota : 1 |
| |
+-------------------------------------+

 

[Baffoblu]

Qua si sta parlano di script diversi con calcoli diversi


Io voglio vedere quella benedetta quaterna del 1998 !!!

 

[morena59]

quote:Originally posted by jobby73

quote:Originally posted by antelao

Ecco la quaterna


Sub Main()
Dim poste(5),ruote(2),ambi(4)
poste(2) = 1
poste(3) = 1
poste(4) = 1
Qes = InputBox("Su quante estrazioni?","Mike58",500)
fin = EstrazioneFin
ini = fin - Qes
co = 0
For es = ini To fin
For r = 1 To 10
rr = r + 1 ' ruote consecutive
For p = 1 To 5
Messaggio (" Elaborazioni estrazione " & es)
Call AvanzamentoElab(Ini,fin,es)

a = Estratto(es,r,p)
b = Estratto(es,rr,p)
If a < b Then
If Differenza(a,b) = 22 Then

a1 = Cadenza(a)
a3 = Fuori90(a1 + a)
b1 = Cadenza(b)
b3 = Fuori90(b1 + b)
c = Differenza(a,b)
d = Fuori90(a3 + b3)
e = Vert(d)
ambi(1) = a3 ' estratto + figura 1 ruota
ambi(2) = b3 ' estratto + figura 2 ruota

ambi(3) = d ' somma trovata
ambi(4) = e ' vertibile somma
ruote(1) = r
ruote(2) = rr
co = co + 1
Scrivi String(100,"="),1
'Scrivi
ColoreTesto 1
Scrivi DataEstrazione(es) & " " & SiglaRuota(r) & " - " & StringaEstratti(es,r) & " num isotopo -> " & Format2(a) & " - Posiz. " & p,0,0
Scrivi " - Figura estratto : " & a1
Scrivi DataEstrazione(es) & " " & SiglaRuota(rr) & " - " & StringaEstratti(es,rr) & " num isotopo -> " & Format2(b) & " - Posiz. " & p,0,0
Scrivi " - figura estratto : " & b1
ColoreTesto 0
Scrivi String(100,"-") & " Caso n° " & co
Scrivi a & "-" & b & " differenza estratti sulle 2 ruote consecutive ---> " & c
Scrivi
Scrivi " somma 1° estratto + figura = " & ambi(1)
Scrivi " somma 2° estratto + figura = " & ambi(2)
Scrivi " somma dei 2 numeri ricavati = " & ambi(3)
Scrivi " vertibile della somma = " & ambi(4)

Scrivi String(100,"-")

ImpostaGiocata 1,ambi,ruote,poste,10,2
Gioca es,,,1
End If
End If

Next
Next
Next
ScriviResoconto
Scrivi "Listed By Mike58",1,- 1,6
End Sub

Beh Antelao sembra promettere bene anche sommando la figura!!
Proviamo ad osservarlo non sommando la figura ma sommando il semplice numero ottenuto dalla somma delle cifre dell'estratto?
grazie e poi a voi la scelta e a voi un consiglio sul migliore a questo punto!!

Monica

La quaterna si trova qui ma....
ho modificato la distanza degli estratti e le somme avvegono
con le rispettive cadenze.Cmq come dicevo prima,troppe condizioni e esiti(gira e rigira) vicini al 25%

 

[jobby73]

quote:Originally posted by antelao

[8D][8D][8D]
+-------------------------------------+ +----------------------------------+ +----------------------------------+ +----------------------------------+
| RESOCONTO | | DISTRIBUZIONE ESITI | | DISTRIBUZIONE ESITI PERCENTUALI | | DISTRIBUZIONE CASI |
+-------------------------------------+ +----------------------------------+ +----------------------------------+ +----------------------------------+
| Casi esaminati : 63 | | RT | Est | Amb | Ter | Qua | Cin | | RT | Est | Amb | Ter | Qua | Cin | | RT | Q | |
| Casi vincenti : 21 | +----------------------------------+ +----------------------------------+ +----------------------------------+
| Percentuale pos. : 33,33 % | | BA | | 1| | | | | BA | | 3,45| | | | | BA | 4| |
| Giocate in corso : 3 | | CA | | 2| | | | | CA | | 6,9| | | | | CA | 12| |
| Giocate terminate : 60 | | FI | | 1| | | | | FI | | 3,45| | | | | FI | 16| |
| Bollette giocate : 984 | | GE | | 2| | | | | GE | | 6,9| | | | | GE | 14| |
| Bollette vincenti : 22 | | MI | | 5| | | | | MI | |17,24| | | | | MI | 13| |
| Attesa media : 4 | | NA | | 6| 1| | | | NA | |20,69| 20| | | | NA | 15| |
| Spesa : 2.952,00 € | | PA | | | | | | | PA | | | | | | | PA | 15| |
| Vincita : 119.221,52 € | | RM | | 1| | | | | RM | | 3,45| | | | | RM | 17| |
| Guadagno : 116.269,52 € | | TO | | 9| 4| 1| | | TO | |31,03| 80| 100| | | TO | 15| |
| Perc. Rendimento : 3938,669 % | | VE | | 2| | | | | VE | | 6,9| | | | | VE | 5| |
| Mass. Esposizione : 564,00 € | | NZ | | | | | | | NZ | | | | | | | NZ | | |
| Estratto su ruota : 47 | | TT | | | | | | | TT | | | | | | | TT | | |
| Ambo su ruota : 29 | +----------------------------------+ +----------------------------------+ +----------------------------------+
| Terno su ruota : 5 |
| Quaterna su ruota : 1 |
| |
+-------------------------------------+

Ah NON era uno scherzo vero Antelao??? E' tutto vero???
BRAVO!!
Io nn posso ricordarmi di questa quaterne come il botto della mia vita perchè avevo ridotto al minimo le poste (per non lasciarlo proprio perdere del tutto.. dopo averci dato dentro alla grande) ed avevo giocato solo ambo e terno di questa quartina... la quaterna me la sono ritrovata,
mai più pensavo che uscisse ... ed invece.. mi sono mangiata le mani!!(poi mi sono sposata e non l'ho più seguito il metodo)( ora ho divorziato e vorrei riprenderlo in considerazione !! )

Monica

 

[Mike58]

Giusto per chiarezza di chi segue lo script di Antaleo esamina la diffrenza 22 e non 18 come chiesto da jobby ed inoltre somma all'estratto la sua relativa cadenza.
In Questo modo viene fuori la quaterna voluta.

Riallego lo script corretto con distanza 22 + cadenza.

Sub Main()
	Dim poste(5),ruote(2),ambi(4)
	poste(2) = 1
	poste(3) = 1
	poste(4) = 1
	Qes = InputBox("Su quante estrazioni?","Mike58",500)
	fin = EstrazioneFin
	ini = fin - Qes
	co = 0
	For es = ini To fin
		For r = 1 To 9
			rr = r + 1 ' ruote consecutive
			For p = 1 To 5
				Messaggio(" Elaborazioni estrazione " & es)
				Call AvanzamentoElab(Ini,fin,es)
				a = Estratto(es,r,p)
				b = Estratto(es,rr,p)
				If b - a = 22 Then
					
					a1 = Cadenza(a)
					a3 = Fuori90(a1 + a)
					b1 = Cadenza(b)
					b3 = Fuori90(b1 + b)
					c = Differenza(a,b)
					d = Fuori90(a3 + b3)
					e = Vert(d)
					ambi(1) = a3 
					ambi(2) = b3 
					ambi(3) = d 
					ambi(4) = e 
					ruote(1) = r
					ruote(2) = rr
					co = co + 1
					Scrivi String(100,"="),1
					
					ColoreTesto 1
					Scrivi DataEstrazione(es) & " " & SiglaRuota(r) & " - " & StringaEstratti(es,r) & " num isotopo -> " & Format2(a) & " - Posiz. " & p,0,0
					Scrivi " - cadenza estratto : " & a1
					Scrivi DataEstrazione(es) & " " & SiglaRuota(rr) & " - " & StringaEstratti(es,rr) & " num isotopo -> " & Format2(b) & " - Posiz. " & p,0,0
					Scrivi " - cadenza estratto : " & b1
					ColoreTesto 0
					Scrivi String(100,"-") & " Caso n° " & co
					Scrivi a & "-" & b & " differenza estratti sulle 2 ruote consecutive ---> " & c
					Scrivi
					Scrivi " somma 1° estratto + cadenza = " & ambi(1)
					Scrivi " somma 2° estratto + cadenza = " & ambi(2)
					Scrivi " somma dei 2 numeri ricavati = " & ambi(3)
					Scrivi " vertibile della somma       = " & ambi(4)
					Scrivi String(100,"-")
					ImpostaGiocata 1,ambi,ruote,poste,10,2
					Gioca es,,,1
					'End If
				End If
			Next
		Next
	Next
	ScriviResoconto
	Scrivi "Listed By Antaleo-Mike58-Baffoblu-Claudio8-jobby73",1,- 1,3
End Sub

+-------------------------------------+ +----------------------------------+ +----------------------------------+ +----------------------------------+ 
|              RESOCONTO              | |       DISTRIBUZIONE ESITI        | | DISTRIBUZIONE ESITI PERCENTUALI  | |        DISTRIBUZIONE CASI        | 
+-------------------------------------+ +----------------------------------+ +----------------------------------+ +----------------------------------+ 
| Casi esaminati     :           179  | | RT | Est | Amb | Ter | Qua | Cin | | RT | Est | Amb | Ter | Qua | Cin | | RT |  Q  |                       | 
| Casi vincenti      :            41  | +----------------------------------+ +----------------------------------+ +----------------------------------+ 
| Percentuale pos.   :        22,9 %  | | BA |     |    2|     |     |     | | BA |     | 4,08|     |     |     | | BA |   19|                       | 
| Giocate in corso   :             3  | | CA |     |    6|     |     |     | | CA |     |12,24|     |     |     | | CA |   40|                       | 
| Giocate terminate  :           176  | | FI |     |    3|     |     |     | | FI |     | 6,12|     |     |     | | FI |   42|                       | 
| Bollette giocate   :         3.144  | | GE |     |    5|     |     |     | | GE |     | 10,2|     |     |     | | GE |   39|                       | 
| Bollette vincenti  :            42  | | MI |     |    7|     |     |     | | MI |     |14,29|     |     |     | | MI |   35|                       | 
| Attesa media       :             5  | | NA |     |    8|    1|     |     | | NA |     |16,33|   20|     |     | | NA |   37|                       | 
| Spesa              :    9.432,00 €  | | PA |     |    1|     |     |     | | PA |     | 2,04|     |     |     | | PA |   42|                       | 
| Vincita            :  120.003,60 €  | | RM |     |    3|     |     |     | | RM |     | 6,12|     |     |     | | RM |

 

[jobby73]

Pensavo che il sito fosse in manutenzione e non accessibile.. solo dopo una ricerca su google ho visto che ce n'era uno tutto nuovo.. ci sarebbe voluto un avviso e-mail... comunque.. arzigolato anche il metodo di risposta.. la risposta veloce non funziona vediamo dopo questo msg cosa ne viene fuori..
Tornando a noi:
Allora.. ho giocato pochi soldi in quel gioco perchè probabilmente ne giocavo tanti altri, xk non ci ha messo per niente tanto ad uscire.. ma è uscita a TUTTE !! Condizione rilevata al -17 giugno 1998 - MI/NA estratti isotopi 17,35 in terza posizione. Numeri in gioco (17+8=25 ; 35+8=43)(in questo caso abbiamo a che fare con dei numeretti)(ma non sono da ridurre a figura). ( ho un sacco di vecchi calcoli fatti e non ho mai sommato fino a raggiungere la figura)
Quindi 25-43-68-86 usciti a ROMA- il 1 luglio 1998-...
Alla luce di ciò potremmo avere uno script ultimo e definitivo (senza tanta confusione di mille script)(xk se no io vado in tilt, non ci capisco più niente) in cui venga rilevata la distanza 18,di due numeri isotopi su ruote continue, con somma delle cifre ( senza raggiungere la figura) e valutare anche l'uscita a tutte ? ovvio sempre la possibilità di un contollo a ritroso nel tempo e nella possibilità di avere le previsioni future? Sarebbe bello potesse funzionare ancora.. Anche se è una quaterna a tutte a me va bene lo stesso... Antelao però un occhio al tuo script lo darò lo stesso (anche se è tutto un'altra cosa) .. quanto mi piacerebbe poter trafficare come voi.. GRAZIE a tutti di nuovo.. ora vado a nanna.

 

[Baffoblu]

Ecco le quaterne ! (sono 2, nel 1998)

Ecco le quaterne ! (sono 2, nel 1998)

Questo è l'ultimo script di mike58, con la piccola modifica per tutte le ruote
ha preso 2 quaterne nel 1998, non ho analizzato altri anni perchè ci vuole troppo tempo.

Sub Main()
	Dim ruota(1)
	Dim poste(5),ruote(2),ambi(4)
	poste(2) = 1
	poste(3) = 1
	ruota(1) = 11
	Qes = InputBox("Su quante estrazioni?","Mike58",150)
	fin = EstrazioneFin - 1600
	ini = fin - Qes
	co = 0
	For es = ini To fin
		For r = 1 To 9
			rr = r + 1 ' ruote consecutive
			For p = 1 To 5
				Messaggio(" Elaborazioni estrazione " & es)
				Call AvanzamentoElab(Ini,fin,es)
				a = Estratto(es,r,p)
				b = Estratto(es,rr,p)
				If b - a = 18 Then
					a1 = Decina(a)
					a2 = Cadenza(a)
					a3 = a1 + a2 ' somma estratto A
					a4 = Fuori90(a + a3) ' somma estratto + relativa somma
					b1 = Decina(b)
					b2 = Cadenza(b)
					b3 = b1 + b2 ' somma estratto B
					b4 = Fuori90(b + b3) ' somma estratto + relativa somma
					c = Differenza(a,b)
					ambi(1) = a4
					ambi(2) = b4
					ambi(3) = Fuori90(ambi(1) + ambi(2)) ' somma trovata
					ambi(4) = Vert(ambi(3))' vertibile somma
					ruote(1) = r
					ruote(2) = rr
					co = co + 1
					Scrivi String(100,"="),1
					ColoreTesto 1
					Scrivi DataEstrazione(es) & "  " & SiglaRuota(r) & " - " & StringaEstratti(es,r) & " num isotopo ->  " & Format2(a) & " - Posiz. " & p,0,0
					Scrivi " - somma cifra estratto : " & a3
					Scrivi DataEstrazione(es) & "  " & SiglaRuota(rr) & " - " & StringaEstratti(es,rr) & " num isotopo ->  " & Format2(b) & " - Posiz. " & p,0,0
					Scrivi " - somma cifra estratto : " & b3
					ColoreTesto 0
					Scrivi String(100,"-") & " Caso n° " & co
					Scrivi a & "-" & b & " differenza estratti sulle 2 ruote consecutive  ---> " & c
					Scrivi
					Scrivi " somma 1° estratto + somma cifra   = " & ambi(1)
					Scrivi " somma 2° estratto + somma cifra   = " & ambi(2)
					Scrivi " somma dei 2 numeri ricavati       = " & ambi(3)
					Scrivi " vertibile della somma             = " & ambi(4)
					Scrivi String(100,"-")
					ImpostaGiocata 1,ambi,ruota,poste,10,2
					Gioca es,,,1
				End If
			Next
		Next
	Next
	ScriviResoconto
	Scrivi "Listed By Mike58",1,- 1,6
End Sub

============================================================================
17.06.1998  MI - 35.49.17.41.04 num isotopo ->  17 - Posiz. 3 - somma cifra estratto : 8
17.06.1998  NA - 16.57.35.75.85 num isotopo ->  35 - Posiz. 3 - somma cifra estratto : 8
-------------------------------------------------------------------------------------- Caso n° 4
17-35 differenza estratti sulle 2 ruote consecutive  ---> 18

 somma 1° estratto + somma cifra   = 25
 somma 2° estratto + somma cifra   = 43
 somma dei 2 numeri ricavati       = 68
 vertibile della somma             = 86
--------------------------------------------------------
Estrazione generatrice del pronostico 06717 [ 48 - 17/06/1998]
G 0001
Numeri in gioco : 25.43.68.86 su TT per Ambo,Terno
  N. [25.43.68.86                   ] [TT] [CA][.. .. .. 68 ..] C.   1 Estratto   06718 [ 49 - 20/06/1998] [00]
  N. [25.43.68.86                   ] [TT] [BA][43 .. .. .. ..] C.   2 Estratto   06719 [ 50 - 24/06/1998] [00]
  N. [25.43.68.86                   ] [TT] [CA][.. .. 86 .. ..] C.   3 Estratto   06720 [ 51 - 27/06/1998] [00]
V N. [25.43.68.86                   ] [TT] [RM][25 68 .. 86 43] C.   4 Quaterna   06721 [ 52 - 01/07/1998] [25.68.84.86.43]
Interrotta per esito verificato

===========================================================================

===========================================================================
23.12.1998  BA - 03.25.49.38.10 num isotopo ->  38 - Posiz. 4 - somma cifra estratto : 11
23.12.1998  CA - 51.90.88.56.79 num isotopo ->  56 - Posiz. 4 - somma cifra estratto : 11
------------------------------------------------------------------------------------- Caso n° 30
38-56 differenza estratti sulle 2 ruote consecutive  ---> 18

 somma 1° estratto + somma cifra   = 49
 somma 2° estratto + somma cifra   = 67
 somma dei 2 numeri ricavati       = 26
 vertibile della somma             = 62
--------------------------------------------------------
Estrazione generatrice del pronostico 06771 [102 - 23/12/1998]
G 0001
Numeri in gioco : 49.67.26.62 su TT per Ambo,Terno
  N. [49.67.26.62                   ] [TT] [CA][.. 26 .. .. ..] C.   1 Estratto   06772 [103 - 28/12/1998] [00]
  N. [49.67.26.62                   ] [TT] [BA][49 .. .. .. ..] C.   2 Estratto   06773 [104 - 30/12/1998] [00]
  N. [49.67.26.62                   ] [TT] [  ][.. .. .. .. ..] C.   3            06774 [  1 - 02/01/1999] [00]
V N. [49.67.26.62                   ] [TT] [TO][67 26 62 .. 49] C.   4 Quaterna   06775 [  2 - 07/01/1999] [67.26.62.90.49]
Interrotta per esito verificato

============================================================================

 

[jobby73]

Bene Baffoblu.. abbiamo trovato la/le quaterne... del 1998.. ora manca solo lo script in questione... quello di mike58 finisce il 3/11/1999 , non trova risultati fino ad oggi....e porta solo i risultati a tutte.. io gradirei sia a ruote in questione che a tutte tanto per avere un quadro completo di come si comporta ... Aspetto vostra disponibilità grazie a tutti

 

[Baffoblu]

Script a ruote fisse e script a tutte

Script a ruote fisse e script a tutte

Bene Baffoblu.. abbiamo trovato la/le quaterne... del 1998.. ora manca solo lo script in questione... quello di mike58 finisce il 3/11/1999 , non trova risultati fino ad oggi....e porta solo i risultati a tutte.. io gradirei sia a ruote in questione che a tutte tanto per avere un quadro completo di come si comporta ... Aspetto vostra disponibilità grazie a tutti

Ti inserisco gli script a ruote fisse e quello per tutte, ricorda che analizza solo 500 estrazioni, dall'ultima in archivio a ritroso.

Questo è lo script a ruote fisse :

Sub Main()
	Dim poste(5),ruote(2),ambi(4)
	poste(2) = 1
	poste(3) = 1
	Qes = InputBox("Su quante estrazioni?","Mike58",500)
	fin = EstrazioneFin
	ini = fin - Qes
	co = 0
	For es = ini To fin
		For r = 1 To 9
			rr = r + 1 ' ruote consecutive
			For p = 1 To 5
				Messaggio(" Elaborazioni estrazione " & es)
				Call AvanzamentoElab(Ini,fin,es)
				a = Estratto(es,r,p)
				b = Estratto(es,rr,p)
				If b - a = 18 Then
					a1 = Decina(a)
					a2 = Cadenza(a)
					a3 = a1 + a2 ' somma estratto A
					a4 = Fuori90(a + a3) ' somma estratto + relativa somma
					b1 = Decina(b)
					b2 = Cadenza(b)
					b3 = b1 + b2 ' somma estratto B
					b4 = Fuori90(b + b3) ' somma estratto + relativa somma
					c = Differenza(a,b)
					ambi(1) = a4
					ambi(2) = b4
					ambi(3) = Fuori90(ambi(1) + ambi(2)) ' somma trovata
					ambi(4) = Vert(ambi(3))' vertibile somma
					ruote(1) = r
					ruote(2) = rr
					co = co + 1
					Scrivi String(100,"="),1
					ColoreTesto 1
					Scrivi DataEstrazione(es) & "  " & SiglaRuota(r) & " - " & StringaEstratti(es,r) & " num isotopo ->  " & Format2(a) & " - Posiz. " & p,0,0
					Scrivi " - somma cifra estratto : " & a3
					Scrivi DataEstrazione(es) & "  " & SiglaRuota(rr) & " - " & StringaEstratti(es,rr) & " num isotopo ->  " & Format2(b) & " - Posiz. " & p,0,0
					Scrivi " - somma cifra estratto : " & b3
					ColoreTesto 0
					Scrivi String(100,"-") & " Caso n° " & co
					Scrivi a & "-" & b & " differenza estratti sulle 2 ruote consecutive  ---> " & c
					Scrivi
					Scrivi " somma 1° estratto + somma cifra   = " & ambi(1)
					Scrivi " somma 2° estratto + somma cifra   = " & ambi(2)
					Scrivi " somma dei 2 numeri ricavati       = " & ambi(3)
					Scrivi " vertibile della somma             = " & ambi(4)
					Scrivi String(100,"-")
					ImpostaGiocata 1,ambi,ruote,poste,10,2
					Gioca es,,,1
				End If
			Next
		Next
	Next
	ScriviResoconto
	Scrivi "Listed By Mike58",1,- 1,6
End Sub

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

Questo è per tutte le ruote :

Sub Main()
	Dim ruota(1)
	Dim poste(5),ruote(2),ambi(4)
	poste(2) = 1
	poste(3) = 1
	ruota(1) = 11
	Qes = InputBox("Su quante estrazioni?","Mike58",500)
	fin = EstrazioneFin
	ini = fin - Qes
	co = 0
	For es = ini To fin
		For r = 1 To 9
			rr = r + 1 ' ruote consecutive
			For p = 1 To 5
				Messaggio(" Elaborazioni estrazione " & es)
				Call AvanzamentoElab(Ini,fin,es)
				a = Estratto(es,r,p)
				b = Estratto(es,rr,p)
				If b - a = 18 Then
					a1 = Decina(a)
					a2 = Cadenza(a)
					a3 = a1 + a2 ' somma estratto A
					a4 = Fuori90(a + a3) ' somma estratto + relativa somma
					b1 = Decina(b)
					b2 = Cadenza(b)
					b3 = b1 + b2 ' somma estratto B
					b4 = Fuori90(b + b3) ' somma estratto + relativa somma
					c = Differenza(a,b)
					ambi(1) = a4
					ambi(2) = b4
					ambi(3) = Fuori90(ambi(1) + ambi(2)) ' somma trovata
					ambi(4) = Vert(ambi(3))' vertibile somma
					ruote(1) = r
					ruote(2) = rr
					co = co + 1
					Scrivi String(100,"="),1
					ColoreTesto 1
					Scrivi DataEstrazione(es) & "  " & SiglaRuota(r) & " - " & StringaEstratti(es,r) & " num isotopo ->  " & Format2(a) & " - Posiz. " & p,0,0
					Scrivi " - somma cifra estratto : " & a3
					Scrivi DataEstrazione(es) & "  " & SiglaRuota(rr) & " - " & StringaEstratti(es,rr) & " num isotopo ->  " & Format2(b) & " - Posiz. " & p,0,0
					Scrivi " - somma cifra estratto : " & b3
					ColoreTesto 0
					Scrivi String(100,"-") & " Caso n° " & co
					Scrivi a & "-" & b & " differenza estratti sulle 2 ruote consecutive  ---> " & c
					Scrivi
					Scrivi " somma 1° estratto + somma cifra   = " & ambi(1)
					Scrivi " somma 2° estratto + somma cifra   = " & ambi(2)
					Scrivi " somma dei 2 numeri ricavati       = " & ambi(3)
					Scrivi " vertibile della somma             = " & ambi(4)
					Scrivi String(100,"-")
					ImpostaGiocata 1,ambi,ruota,poste,10,2
					Gioca es,,,1
				End If
			Next
		Next
	Next
	ScriviResoconto
	Scrivi "Listed By Mike58",1,- 1,6
End Sub

 

[jobby73]

Aiuto

Aiuto

grazie baffoblu .. sei stato gentilissimo.. DI quaterne a tutte non se ne sono più viste però.. Chissà cosa sarà successo nel 1998.. era il mio anno fortunato!! Adesso però ho un problema con spaziometria.. dopo aver visionato e salvato gli script.. in una mia cartella creata in spaziometria, la mia cartella risulta dimezzata di script e il software mi da "errore di run time 62" Imput oltre la fine del file---- che cosa significa ? che ho salvato troppi script nella cartella? non credo!!
Ti sarei grata anche x questo ultimo aiutino!! ho spaziometria 1.3.1 non volevo stare sempre lì ad aggiornarlo tanto lo uso solo per visionare gli script.. ciao e buona giornata

 

[Baffoblu]

errrore spaziometria

errrore spaziometria

X jobby73

Ti consiglio di chiedere a LuigiB per gli errori, è lui che ha fatto il programma.
Comunque potrebbe dipendere da molti fattori, per primo le condizioni del tuo pc.

Ad ogni modo, avere l'ultima versione di spaziometria, ti mette al riparo da eventuali piccoli bug,
che Luigi elimina mano a mano che li individua.

Anche se chiedi a Luigi ti dirà la stessa cosa, quindi ti conviene aggiornare.

ciao

PS : non ti scordare di cliccare la stellina in basso a sinistra per darmi punti. grazie