Richiesta Script x quelli bravi penso...

[password]

Amici buonasera,dovrei realizzare uno script per il metodo che vado a esporvi,tratto da un'opuscolo di Elisabetta Masi.

Per ricavare la previsione da porre in gioco ci serviremo degli ambi simmetrici,rilevare in una qualunque estrazione un ambo estratto in una qualsiasi ruota.
Il numero non estratto della terzina rilevata ci servira' per determinare la previsione.
Esempio ----->

14-9-1996 nella ruota di PALERMO troviamo l'ambo simmetrico 68-08 il numero mancante è il numero 38.
Con il numero 38 formiamo due ambi secchi abbinando i due numeri rilavati.
Per formare gli altri due ambi sommiamo il fisso 45 quindi : 38+45=83,con il n. 83 formiamo due ambi abbinando i restanti due componenti dell terzina 83.53 - 83.23
La previsone è ultimata con gli ambi 38.68-38.08-83.53-83.23-38.83

Il quinto ambo si ottiene abbinando i due capigioco 38.83
Esito al quarto colpo su Firenze 38.68


Per formare i terni secchi basta fare i seguenti abbinamenti:
ai due ambi con capogioco 38 abbiniamo a rotazione i tre numeri della terzina opposta 23.53.83 formando 6 terni secchi
ai due ambi con capogioco 83 abbiniamo a rotazione i tre numeri della terzina opposta 08.38.68 formando 6 terni secchi
i terni da porre in gioco :
38.68.23 - 38.68.53 - 38.68.83 - 08.38.23 - 08.38.53 - 08.38.83
83.53.08 - 83.53.38 - 83.53.68 - 83.23.08 - 83.23.38 - 83.23.68

Esito : al quarto colpo nella ruota di Firenze 23.68.38

Spero di essere stato chiaro,e mi auguro che veramente dia i risultati tanto decantati nell'opuscolo

 

[Mike58]

Password, lo script non è di difficile costruzione, e solo un pochetto lungo nelle giocate da impostare.
Io ti ho messo il corpo degli ambi simmetrici rilevati ed ho accorpato le previsione dei numeri da ricavare.
Come vedi già cosi perde del 50% , ma non è difficile intiure che con 1 solo terno secco nonché ambi secchi il resoconto rischia di andare in attivo ( specchi per allodole ......... ).

Ciao

Sub Main
	Dim nu(2),manc(1),ru(1)
	Dim n(6),posta(5)
	posta(2) = 1.5
	posta(3) = .5
	est = InputBox("QUANTE ESTRAZIONI CONTROLLO","MIKE58",100)
	Ini = EstrazioneFin - est
	fin = EstrazioneFin
	For es = Ini To fin
	co = co + 1
		For r = 1 To 12
			If r = 11 Then r = 12
			For p1 = 1 To 4
				For p2 = p1 + 1 To 5
					a = Estratto(es,r,p1)
					b = Estratto(es,r,p2)
					If Distanza(a,b) = 30 Then
					nu(1) = a
					nu(2) = b
					min = Minimo(nu(1),nu(2))
					If Differenza(a,b) = 30 Then manc(1) = Fuori90(min + 60)
					If Differenza(a,b) = 60 Then manc(1) = Fuori90(min + 30)
					n(1) = Diametrale(manc(1))
					n(2) = Fuori90(n(1) + 30)
					n(3) = Fuori90(n(2) + 30)
					n(4) = manc(1)
					n(5) = nu(1)
					n(6) = nu(2)
					ru(1) = r
					Scrivi String(150,"="),1
						Scrivi GetInfoEstrazione(es) & "  ",0,0
						Scrivi SiglaRuota(r) & "  ",0,0
						Scrivi StringaEstratti(es,r) & "  ",0,0
						Scrivi StringaNumeri(nu,,1),1,0,7,5,2						
						Scrivi " - Posiz. " & p1 & "/" & p2 & " ",0,0
						Scrivi " Numero Mancante... " & StringaNumeri(manc,,1) & "  ",0,0
						Scrivi " Diametrale... " & Format2(n(1)) & "  ",0,0
						Scrivi " Pronostico... " & StringaNumeri(n,,1) & "  ",1,1,,1,2
						Scrivi String(140,"=") & " Caso n°" & co,1

						Call ImpostaGiocata(1,n,ru,posta,10,3)
						Gioca es,1
					End If
					Messaggio(es) & " . . . . . . . . . A T T E N D E R E . . . . . . . . Mike58 . . .  ."
					Call AvanzamentoElab(Ini,fin,es)
				Next
			Next
		Next
	Next
	ScriviResoconto
End Sub

 

[password]

Ciao Mike,grazie mille,purtroppo quando vado ad aprirlo mi chiede quante estrazioni controllare,dopo mi dà errore linea 7 "est" variabile non definita,che devo fare?

 

[Mike58]

Ciao Password,può darsi che copi e incolli mantenendo attivo option explicit, se cosi è cancellalo perché con questo attivo ogni variabile deve essere dichiarata in Matrice Dim.
Mantieni lo spazioscript in bianco cancellando tutto e ricopia ed incolla e se hai le ultime versioni di Spaziometria deve funzionare.

Ciao

 

[password]

Ok Mike,tutto funzionante,per quanto riguarda i risultati hai ragione,booooh! che dire,alquanto deludenti per quanto mi riguarda