Richiesta script metodo per terno

[fatina76]

Buongiorno,
riguardando una vecchia rivista del lotto,ho trovato questa tecnica per la sorte di un terno attraverso la ricerca di una coppia di distanza 30,rilevate su due ruote negli stessi posti estrazionali,e che verticalmente hanno la stessa distanza ciclometrica.
Non sò se, passati parecchi anni funzionerà ancora,però con il vostro aiuto volevo verificarlo.
Quindi vi chiedo,con calma e se avrete tempo,se potreste realizzarmi questo script.
Questa è la procedura:
Esempio pratico:estrazione del 25/02/2004
ruota di genova 79-19-12-30-15
ruota di torino 01-31-85-87-23
La nostra condizione è rispettata.
Per il calcolo dell'ambata,sommiamo prima tutte e 4 le distanze: 30+30+12+12=84
L'ambata è data dal diametrale in decina dell'ultimo numero ricavato:
Diametrale in decina di 84= 89
Le terzine si formano così:consideriamo la distanza verticale,in questo caso 12,e sommiamo le distanze fisse:
Distanza verticale 12+25(distanza fissa) = 37
Distanza verticale 12+47(distanza fissa) = 59
1° terzina : 89-37-59

Distanza verticale 12+44(distanza fissa) = 56
Distanza verticale 12+78(distanza fissa) = 90
2° terzina : 89-56-90

Distanza verticale 12+46(distanza fissa) = 58
Distanza verticale 12+75(distanza fissa) = 87
3° terzina : 89-58-87

Distanza verticale 12+49(distanza fissa) = 61
Distanza verticale 12+78(distanza fissa) = 90
4° terzina : 89-61-90

Distanza verticale 12+32(distanza fissa) = 44
Distanza verticale 12+46(distanza fissa) = 58
5° terzina : 89-44-58

Distanza verticale 12+14(distanza fissa) = 26
Distanza verticale 12+39(distanza fissa) = 51
6° terzina : 89-26-51

Previsione Genova-Torino ambata 89
Terzine x ambo e terno secco: 89.37.59 / 89.56.90 / 89.58.87 / 89.61.90 / 89.44.58 / 89.26.51.
Esito : al 1° colpo sulla ruota di Genova ambata 89 e terno secco 89.58.87.


Grazie mille a tutti .

 

[Joe91]

Ciao Fatina.

Ho codificato il metodo secondo le tue richieste.

L' esempio che hai fornito è reale e ben esposto, quindi,

ho potuto mettere a confronto il risultato dello script il citato esempio.

Nella redigere il codice e nel debug di esso, sono emersi alcuni casi particolari,

che vorrei provare ad includere/escludere (nel rispetto della descrizione e degli esempi),

per verficare se, in tale modo, è possibile fargli migliorare il rendiconto economico.

In sostanza, variando l'influenza, che questi casi particolari, esercitano, se e quando sono presenti.

Terminate queste verifche spero di poter allegare il codice dello script.

Intanto, volevo chiederti, se conosci il nome dell'autore del metodo,

così da poterlo agiungere al codice, in ossequio al dovuto rispetto.

Grazie.

Buona Giorno a Tutte/i.

 

[fatina76]

Grazie mille per questo enorme lavoro che stai svolgendo x me.
L'autore è : Sergio Mastrapasqua.

Grazie ancora e ti auguro una splendida giornata.
Fatina

 

[Joe91]

Grazie mille per questo enorme lavoro che stai svolgendo x me.
L'autore è : Sergio Mastrapasqua.

Grazie ancora e ti auguro una splendida giornata.
Fatina

Ok ...

Ringrazio anch'io Disaronno, per la possibilità offerta e mai da dare per scontata

che deriva dalla possibilità di un doppio-controllo.

Esso, nella interpretazione, nell'approccio, nell'individuazione dell'algoritmo,

e poi... nei risultati, mi sembra soluzione sostanzialmente sovrapponibile.

Quindi a piena, vicendevole, reciproca, conferma.

Ecco il codice di quanto avevo scritto:

Sub Main
'Dalla Distanza Simmetrica, Adattatori Sommativi in Metodo per Terno.
'Richiesto da Fatina76
'http://forum.lottoced.com/f12/richiesta-script-metodo-per-terno-110224/#post1241320
'Autore:Sergio Mastrapasqua.
'Joe'Script V.3.0 del 10/01/2014.
	Dim E(4),Ns(1),Nu(3),Ru(2),Po(3),Ps(1) : Po(2) = 1 : Po(3) = 1 : Co = 9 : Ps(1) = 1 : Cs = 4 : I = 2
	Ini = 7316 : Fin = EstrazioneFin
	For Es = Ini To Fin : AvanzamentoElab Ini,Fin,Es
		For R1 = 1 To 9 : Ru(1) = R1
			For R2 = R1 + 1 To 10 : Ru(2) = R2
				For P1 = 1 To 4
					For P2 = P1 + 1 To 5
						E(1) = Estratto(Es,R1,P1) : E(2) = Estratto(Es,R1,P2) : E(3) = Estratto(Es,R2,P1) : E(4) = Estratto(Es,R2,P2) 'Quadrato Isotopo
						If Distanza(E(1),E(2)) = 30 And Distanza(E(3),E(4)) = 30 Then 'Doppia Dist. Simm. Orizz.
						 	If(Distanza(E(2),E(4)) = Distanza(E(1),E(3))) Then 'Doppia Dist. Vert.
							D = Distanza(E(2),E(4)) 'Dist. Comune.
							K = K + 1 : Scrivi "Dist 30 Isotopa & Adattatori Sommativi By Joe " & String(60,"=") & FormatSpace(K,6,1) & Chr(13),1
							Nu(1) = DiametraleD(Fuori90(Distanza(E(1),E(3)) + Distanza(E(2),E(4)) + Distanza(E(1),E(2)) + Distanza(E(3),E(4)))) 'Somma 4 Dist
							Nu(2) = Fuori90(D + 25) : Nu(3) = Fuori90(D + 47) : ImpostaGiocata 1,Nu,Ru,Po,Co,I
							Nu(2) = Fuori90(D + 44) : Nu(3) = Fuori90(D + 78) : ImpostaGiocata 2,Nu,Ru,Po,Co,I
							Nu(2) = Fuori90(D + 46) : Nu(3) = Fuori90(D + 75) : ImpostaGiocata 3,Nu,Ru,Po,Co,I
							Nu(2) = Fuori90(D + 49) : Nu(3) = Fuori90(D + 78) : ImpostaGiocata 4,Nu,Ru,Po,Co,I
							Nu(2) = Fuori90(D + 32) : Nu(3) = Fuori90(D + 46) : ImpostaGiocata 5,Nu,Ru,Po,Co,I
							Nu(2) = Fuori90(D + 14) : Nu(3) = Fuori90(D + 39) : ImpostaGiocata 6,Nu,Ru,Po,Co,I
							Ns(1) = Nu(1) : ImpostaGiocata 7,Ns,Ru,Ps,Cs,1
							Gioca Es,True : G = False
							End If
						End If
					Next
				Next
			Next
		Next
	Next
	ScriviResoconto
End Sub

Buona Domenica a tutte/i.

 

[fatina76]

Che dire....grazie grazie di cuore a entrambi.
Persone come voi,si trovano raramente. Persone che mettono a disposizione il loro tempo e il loro sapere,in modo del tutto altruistico.
Vi ringrazio ancora e spero che quello che voi donate a noi, torni a voi il doppio in bene e salute.
Grazie e buona giornata.
Fatina

 

[fatina76]

Buonasera,
stò cercando di capire i vari comandi degli script,ma non riesco a capire come si costruisce questa riga in rosso:

K = K + 1 : Scrivi "Dist 30 Isotopa & Adattatori Sommativi By Joe " & String(60,"=") & FormatSpace(K,6,1) & Chr(13),1

Per cortesia me lo spieghereste? vedo sempre nei listati questo "string" seguito da un numero che cambia sempre,ma da dove si prende?
Grazie a tutti e scusate il disturbo.
Fatina

 

[Joe91]

Ciao Fatina.

Per spiegarti provo a dirti:

Quando trovi una linea con su scritto Scrivi .....

... la puoi inserire in un semplicissimo programma fatto da quella sola linea.

Sub Main

K = K + 1 : Scrivi "Dist 30 Isotopa & Adattatori Sommativi By Joe " & String(60,"=") & FormatSpace(K,6,1) & Chr(13),1

End Sub

K supponendo valga Zero ... varrà 1 dopo che gli si è aggiunto 1. Ed è, la prima parte della linea di codice.

Poi, Scrivi " ... è autoesplicativo ... ".

Gli & sono concatenatori delle varie parti del testo ovvero delle STRINGhe che si vanno a sciverere.

Poi ... eseguendo questo script, vedrai (60) caratteri "=" uno appresso l'altro.

Questo è il risultato del comando Scrivi String(60,"=").

60 dunque, è scelto da me, con lo scopo di completare/riempire la linea.

Poi vedrai "1" preceduto da alcuni spazi vuoti ... perciò allineato a destra in un contenitore vuoto di 6 spazi.

In sintesi: 1 è il valore che la variabile K ha in quell'istante. L' "1" di cui s'è detto, poc'anzi.

Il (.... , .... ,1) come parametro di FormatSpace sta appunto a specificare "a destra".

Chr(13) è il 13° carattere "ascii", quello che, sulla tastiera è il tasto "a capo".

E' equivalente a: Scrivi "".

L'ultimo ",1" in fondo alla linea, significa: "in grassetto" ed è il primo parametro dell'istruzione Scrivi.

K=K+1 ... fa aumentare di 1 il valore di k ... "ad ogni passaggio" sicchè è usato come contatore.

Spero sia tutto chiaro.

Buona serata.

 

[fatina76]

Wow....grazie mille ,ottima spiegazione e anche veloce...grazie mille e buona serata.
Fatina

 

[stella_alpina]

Scusate, come mai su l8+ non riesco più afare copia e incolla degli script? Grazie

 

[Joe91]

E' tutta colpa della prima mela!

Scherzo.

Alcuni Browser e/o Forum e pagine web incorporano codici che non "piacciono" ... al PC.

Devi incollare lo script appena copiato dal forum in un word processor.

Anche in uno semplice come il blocconote, il wordpad, va bene. Come con i professionali tipo Word.

Poi ri-copiarlo dal wordprocessor ... dopo che esso è stato automaticante ripulito,

e .... una volta incollato in L8, dovrebbe funzionare.

Naturalmente nello script, non devono essere presenti le istruzioni, più nuove,

che rendono "più potente" Spaziometria.

In questo caso occorrono le correzioni per la compatibilità ... del codice.