Novità

script statistico

Settenario

Settenario

Super Member >PLATINUM<
Buona sera, è possibile costruire uno script??

dopo che una terzina simmetrica ha dato un 'ambo verificare dopo quanto questa riproduce una dei suoi 3 elementi.
esempio: in data 12-06-2014 su genova esce ambo 60-90, ora verificare quanto ci mette la terzina 30- 60 -90 a sfaldare uno dei suoi 3 elementi, in data 08-07 esce il 30.

grazie infinite

Alberto
 
Codice: 
' SEZIONEA     SEZIONEB    SEZIONEC
'01 31 61      10 40 70    20 50 80
'02 32 62      11 41 71    21 51 81
'03 33 63      12 42 72    22 52 82
'04 34 64      13 43 73    23 53 83
'05 35 65      14 44 74    24 54 84
'06 36 66      15 45 75    25 55 85
'07 37 67      16 46 76    26 56 86
'08 38 68      17 47 77    27 57 87
'09 39 69      18 48 78    28 58 88
'30 60 90      19 49 79    29 59 89
 gioca ambate stessa terzina
'
Sub Main()
	Dim amb(3),n(3)
	Dim ruote(1),posta(1)
	posta(1) = 1
	rs = InputBox("Quante estrazioni vuoi controllare?",,100)
	x = InputBox("Per quanti colpi?",,15)
	fin = EstrazioneFin
	ini = fin - rs
	For es = ini To fin
		Messaggio es
		For r = 1 To 12
		If r=11 Then r=12
			For p = 1 To 4
				For p2 = p+1 To 5
					a = Estratto(es,r,p)
					b = Estratto(es,r,p2)
					d = Distanza(a,b)
					If d = 30 Then
						'Cerca la chiusura della 1a terzina simmetrica.
						amb(1) = a
						amb(2) = Fuori90(a + 30)
						amb(3) = Fuori90(a + 60)
						ruote(1) = r
						cc = cc + 1
						Scrivi String(89,"-") & Chr(10) & DataEstrazione(es,1) & " " & SiglaRuota(r) & " Estratti: " & StringaEstratti(es,r) & _
						" [" & Format2(a) & " " & Format2(b) & "]" & Chr(10) & _
						String(77,"-") & "Giocata n°" & Format2(cc),1
						ImpostaGiocata 1,amb,ruote,posta,x,1
						Gioca es
					End If
				Next
			Next
		Next
	Next
	ScriviResoconto
	ColoreTesto 1 :Scrivi String(75,"*") & "listato da F.F.",1: ColoreTesto 0
End Sub
 
Ultima modifica:
Codice: 
'La ricerca dell'elemento mancante in due coppie simmetriche isotope su 2 ruote
'Il diametrale in figura della somma dei suddetti elementi , sarà l'Ambata per 12 colpi
'Ramco505 for Morenish
Sub Main()
	Dim am1(10)
	Dim ruote(10)
	Dim poste(5)
	poste(1) = 1
	rs = InputBox("Quante estrazioni vuoi controllare?",,50)
	fin = EstrazioneFin
	ini = fin - rs
	For es = ini To fin
		Messaggio DataEstrazione(es)
		For r = 1 To 9
			For i = 1 To 4
				For j = i + 1 To 5
					a = Estratto(es,r,i)
					b = Estratto(es,r,j)
					c = Distanza(a,b)
					For r2 = r + 1 To 10
						aa = Estratto(es,r2,i)
						bb = Estratto(es,r2,j)
						cc = Distanza(aa,bb)
						If c = cc And cc = 30 Then
							If Fuori90(a + 60) <> b Then nw1 = Fuori90(a + 60) Else nw1 = Fuori90(a + 30)
							If Fuori90(aa + 60) <> bb Then nw2 = Fuori90(aa + 60) Else nw2 = Fuori90(aa + 30)
							ColoreTesto 2
							Scrivi "=============================================================================",1
							ColoreTesto 1
							Scrivi " < ambo isotopo - stessa Distanza 30 >",1
							ColoreTesto 0
							Scrivi "-----------------------------------------------------------------------------"
							Scrivi DataEstrazione(es,1)
							Scrivi SiglaRuota(r) & " " & StringaEstratti(es,r) & " " & SiglaRuota(r2) & " " & StringaEstratti(es,r2)
							Scrivi NomeRuota(r) & " " & CInt(a) & " e " & CInt(b) & " = Dist " & CInt(c) & " " & NomeRuota(r2) & " " & CInt(aa) & " e " & CInt(bb) & " = Dist " & CInt(cc)
							Scrivi NomeRuota(r) & " Terzo elem.Simm. " & CInt(nw1) & " " & NomeRuota(r2) & " Terzo elem.Simm. " & CInt(nw2)
							ColoreTesto 2
							Scrivi "-----------------------------------------------------------------------------"
							ruote(1) = r
							ruote(2) = r2
							cou1 = Fuori90(nw1 + nw2)
							am1(1) = Diametrale(cou1)
							ImpostaGiocata 1,am1,ruote,poste,12,1
							Gioca es
						End If
					Next
				Next
			Next
		Next
	Next
	ScriviResoconto
End Sub

Prova anche questo metodo, è + valido, meno dispendioso.
 
Buon giorno Claudio8,grazie per gli script.
Desidero fare alcune domande per quanto riguarda il Primo script sulle terzine simmetriche:
gentilmente è possibile individuare quale dei tre numeri giocare? esiste qualche formula da inserire nello script?
ed eventualmente giocare per posizione determinata uno o al massimo due dei numeri in previsione ,credo che si potrebbe vincere qualche cosa in piu,perchè giocare tre numeri diventa un po dispendioso.
Grazie se mi rispondi
Buona giornata
Saluti
Serpico
 
Serpico 90 ha scritto:
Buon giorno Claudio8,grazie per gli script.
Desidero fare alcune domande per quanto riguarda il Primo script sulle terzine simmetriche:
gentilmente è possibile individuare quale dei tre numeri giocare? esiste qualche formula da inserire nello script?
ed eventualmente giocare per posizione determinata uno o al massimo due dei numeri in previsione ,credo che si potrebbe vincere qualche cosa in piu,perchè giocare tre numeri diventa un po dispendioso.
Grazie se mi rispondi
Buona giornata
Saluti
Serpico
Clicca per espandere...



Vedo che hai una buona vista. Hai visto giusto riguardo agli esiti vincenti, 96% ed oltre se analizzi + estrazioni. Un così elevato e costante livello di esiti positivi, non deve portarti a pensare che sei sulla strada giusta, il problema unico e costante, in tutte le previsioni, è individuare quale dei tre numeri è il migliore.
Solo l'intuizione e la fortuna può darci una mano?
I casi non sono molti, se tu trovi un po di tempo ( magari facendolo a mano) o se qualcuno vuole, potrebbe impostare una matrice per elencarli in maniera + leggibile per poterne trarre una eventuale regola storica di comportamento. devi guardare oltre i numeri e cercare di schematizzarti le sequenze di caduta. Per ora non posso dirti altro, a breve, se qualcuno vorrà affiancarmi, cerchèro di riproporre qualche vecchio metodo di Ambata veloce su 1 o 2 ruote (con qualche abb. ad ambo), che ho visto essere ancora funzionanti.

Ti saluto
Claudio

Ps: gli esiti alti sono nella logica delle cose "matematiche". le basse rese economiche, anche.
 
Ultima modifica:
..per restringere il gioco, possiamo giocare, per estratto, i 2 numeri usciti x ambo su ruota. Visto che parliamo di sincronismo quindi i ritardi saranno contenuti. Bisognerebbe verificare, se claudio8 ha voglia di creare questo script di verifica, vediamo cosa succede.

Alberto
 
kondor13 ha scritto:
..per restringere il gioco, possiamo giocare, per estratto, i 2 numeri usciti x ambo su ruota. Visto che parliamo di sincronismo quindi i ritardi saranno contenuti. Bisognerebbe verificare, se claudio8 ha voglia di creare questo script di verifica, vediamo cosa succede.

Alberto
Clicca per espandere...

Codice: 
' SEZIONEA     SEZIONEB    SEZIONEC
'01 31 61      10 40 70    20 50 80
'02 32 62      11 41 71    21 51 81
'03 33 63      12 42 72    22 52 82
'04 34 64      13 43 73    23 53 83
'05 35 65      14 44 74    24 54 84
'06 36 66      15 45 75    25 55 85
'07 37 67      16 46 76    26 56 86
'08 38 68      17 47 77    27 57 87
'09 39 69      18 48 78    28 58 88
'30 60 90      19 49 79    29 59 89
'Gioca ambate stessa terzina
'
Sub Main()
	Dim amb(3),n(3)
	Dim ruote(1),posta(1)
	posta(1) = 1
	rs = InputBox("Quante estrazioni vuoi controllare?",,100)
	x = InputBox("Per quanti colpi?",,15)
	fin = EstrazioneFin
	ini = fin - rs
	For es = ini To fin
		Messaggio es
		For r = 1 To 12
		If r=11 Then r=12
			For p = 1 To 4
				For p2 = p+1 To 5
					a = Estratto(es,r,p)
					b = Estratto(es,r,p2)
					d = Distanza(a,b)
					If d = 30 Then
						'Cerca la chiusura della 1a terzina simmetrica.
						amb(1) = a
						amb(2) = b ' modifica 
'						amb(2) = Fuori90(a + 30) ' escluso 
'						amb(3) = Fuori90(a + 60) ' escluso 
						ruote(1) = r
						cc = cc + 1
						Scrivi String(89,"-") & Chr(10) & DataEstrazione(es,1) & " " & SiglaRuota(r) & " Estratti: " & StringaEstratti(es,r) & _
						" [" & Format2(a) & " " & Format2(b) & "]" & Chr(10) & _
						String(77,"-") & "Giocata n°" & Format2(cc),1
						ImpostaGiocata  1,amb,ruote,posta,x,1
						Gioca es
					End If
				Next
			Next
		Next
	Next
	ScriviResoconto
	ColoreTesto 1 :Scrivi String(75,"*") & "listato da F.F.",1: ColoreTesto 0
End Sub

Ecccoti accontentato (una leggera modifica: ho solo cambiato i numeri da mettere in gioco) , valutando i due output, con 3 numeri in gioco in definitiva si investe meno e si perde meno.... :D:D:D sembra strano ma è la verità storica.
 
Un metodino etrazione del 21/08/2014 To5° estratto 90 = Ve 3° estratto 90

Ambata= Diametrale(DiametraleD(Estratto(es,9,5))) = 50 esiti a ritroso 2 6 2 5 1 ecc...

per ambo tentiamo il 54 e 12 ( ultimi 4 casi tutti positivi )
 
Ultima modifica:
claudio8 ha scritto:
Un metodino etrazione del 21/08/2014 To5° estratto 90 = Ve 3° estratto 90

Ambata= Diametrale(DiametraleD(Estratto(es,9,5))) = 50 esiti a ritroso 2 6 2 5 1 ecc...

per ambo tentiamo il 54 e 12 ( ultimi 4 casi tutti positivi )
Clicca per espandere...

Codice: 
Sub Main()
Scrivi " 21/08/2014 - UGUALE  To5 = Ve3 metodo .... by claudio8  notate la ruota prevalente...  ",1

	Dim nu1(10)
	Dim ruota(3)
	Dim posta(1)
	posta(1) = 1
	fin = EstrazioneFin
	ini = EstrazioneFin - 2200 'anno 1998 
		For es = ini To fin
		AvanzamentoElab ini,fin,es
		n1 = Estratto(es,9,5)
		n2 = Estratto(es,10,3)'
		If n1 = n2 Then
			casi = casi + 1
			Scrivi String(75,"="),1
			Scrivi DataEstrazione (es,1) & " < " & SiglaRuota(10) &" - " & SiglaRuota(9) & " > Uguali --> " & Format2(n1) & " - " & Format2(n2)
			Scrivi String(65,"-") & " caso n° " &(casi)
			
			k = 12 ' colpi gioco 
			co = 0
			ruota(1) = 9
			ruota(2) = 10
			nu1(1) = Diametrale(DiametraleD(Estratto(es,9,5))) ' ambata
			co = co + 1
			ImpostaGiocata co,nu1,ruota,posta,k,1
			Gioca es,True,,1		
			End If
	Next
ScriviResoconto
Scrivi "========================================UGUALE  To5 = Ve3 notate la ruota prevalente... ",1
Scrivi "================================= da base lavoro by DjNomade",1
Scrivi String(70,"="),1
End Sub
 
Ultima modifica:
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 16 dicembre 2025
    Bari
    78
    53
    62
    77
    16
    Cagliari
    15
    58
    32
    39
    24
    Firenze
    85
    20
    39
    32
    29
    Genova
    17
    60
    15
    33
    43
    Milano
    13
    39
    14
    15
    34
    Napoli
    82
    76
    15
    24
    73
    Palermo
    40
    55
    78
    26
    08
    Roma
    23
    41
    17
    53
    76
    Torino
    52
    20
    70
    59
    65
    Venezia
    43
    58
    19
    08
    09
    Nazionale
    71
    55
    60
    04
    35
    Estrazione Simbolotto
    Venezia
    28
    37
    27
    40
    10
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto