Aiuto per script o file excel metodo di 5 ambi

[nicotina]

AIUTO PER SCRIPT O FILE EXCEL METODO DI 5 AMBI SU' DUE RUOTE
1) SI RICERCA PER OGNI ESTRAZIONE AMBI SIMMETRICI DISTANZA 30 O 60.
2) TROVATI GLI AMBI SI GUaRDA L'ESTRAZIONE ANTECEDENTE E SI PRENDONO IN CONSIDERAZIONE SOLO GLI AMBI CHE SONO CONSECUTIVI ISOTOPI CIOE' NELLA STESSA POSIZIONE.A QUESTO PUNTO ANDIAMO A VEDERE NELL'ESTRAZIONE PRECEDENTE SE TROVIAMO UN AMBO NELLE STESSE POSIZIONI CON DISTANZA 30 O 60 . SE NON SI TROVA ASPETTIAMO LA SUCCESSIVA.
FACCIAMO UN ESEMPIO A CASO PER ELABORARE ITER OPERATIVO TROVO SU':
CAGLIARI ( AMBO 7. 37) IL NUMERO MANCANTE E' 67
NELL'ESTRAZIONE PRECEDENTE TROVO SU':
TORINO ( AMBO 18. 78) IL MUNERO MANCANTE E' 48
A QUESTO PUNTO SI PUO' ESEGUIRE LA PREVISIONE.
FACCIAMO LA SOTTRAZIONE FRA I NUMERETTI MANCANTI ( 67 - 48 = 19 SARA' L'AMBATA PRINCIPALE DA GIOCARE X 9 COLPI ) POI SOMMIAMO GLI AMBI TROVATI CON IL NUMERO MANCANTE :
7+37+67=111-90= 21
18+78+48= 54
A QUESTI NUMERETTI FACCIAMO IL DIAMETRALE :
21+45= 66
54-45=9
DA QUESTI QUATTRO NEMERETTI PRENDIAMO I PIU' GRANDI E FACCIAMO LA SOTTRAZIONE :
66-54= 12
I 5 AMBI DA GIOCARE SU CAGLIARI E TORINO SONO:
19. 21
19. 54
19.66
19.09
19.12
A presto Nicotina.

 

[nicotina]

salve a tutti voi
vedo che non mi aiuta nessuno con questo benedetto script o file excel questo a scelta di chi può darmi una mano per computerizzare. Fare sempre tutti i calcoli è molto dispendioso di tempo e tantissime volte si arriva al giorno dell'estrazione con un sacco di convergenze ancora da eseguire e non si riesce a concludere nulla.
A presto Nicotina

 

[Gian_Attila]

Ciao nicotina, se mi dai un po' di tempo posso provare a darti una mano

 

[nicotina]

Ciao Gian_Attila,
seresti molto gentile, sai io non ci capisco proprio NIENTE in script o fogli Excel, fatico tante volte a collegarmi figurati.
Attendo Cortesemente un tuo AIUTO, GRAZIE di CUORE
Nicotina

 

[Gian_Attila]

Puoi farmi un esempio reale con data e ruote e i numeri che ti risultano? Grazie

 

[nicotina]

CIAO Gian_Attila, Grazie per esserti messo ad aiutarmi, ricordati che per eseguire questo metodo dobbiamo trovare le Ternine Simmetriche distanza 30 o 60, la ricerca deve e essere fatta isotopa e consecutiva, cioè se troviamo l'ambo oggi 30 Marzo 2013 possiamo guardare l'estrazione prima o pure aspettiamo quella successiva, mai sulla stessa ruota ma con ruote diverse, penso di essere stato chiaro fino a qui.
Ora ti posto quello che ho elaborato io questo mese, non è facile ma con un pò di concentrazione viene molto bene :
RINTRACCIATO L'AMBO IN DISTANZA 30 = 57 87 SU' GENOVA DEL 05 MARZO 2013 ED UNO SU' BARI DEL 07 MARZO 2013, 14 74 DISTANZA 60. CON DISTANZA 60 ISOTOPI ( CIOE' NELLA STESSA POSIZIONE 2° E 4° ). SI POTEVA TROVARE ANCHE DI 30 ANDAVA BENE UGUALE, SEMPRE ISOTOPI E' REGOLA, LE RUOTE DI RICERCA SONO TUTTE. ESTRAZIONE DEL 05 MARZO 2013
GENOVA 39 57 80 87 48 (57 E 87) DISTANZA 30
ESTRAZIONE DEL 07 MARZO 2013
BARI 18 14 50 74 11( 14 E 74) DISTANZA 60
SI PROCEDE CON L'ANALISI CABALISTICO MATEMATICA.
GLI AMBI SONO:
GE 57 87 ELEMENTO MANCANTE 27
BA 14 74 ELEMENTO MANCANTE 44
ORA SI PROCEDE CON LA SOTTRAZIONE DEI 2 VALORI 27 E 44 RINTRACCIATI CIOE':
44 - 27 = 17 CAPOGIOCO PER AMBATA X 9 ESTRAZIONI
ORA CALCOLO GLI ABBINAMENTI AMBI SECONDARI SOMMANDO IL NUMERO MANCANTE ALLA SOMMA DELL'AMBO DELLA TERZINA, CIOE':
BA 14 + 74 = 88 + 44 = 132 - 90 = 42
GE 57 + 87 = 144- 90 = 54 + 27 = 81
NUMERI RICAVATI SONO: 42 E 81
ORA DEVO TROVARE IL DIAMETRALE 45, SE SUPERIORE A 45 SOTTRAGGO SE INFERIORE A 45 ADDIZIONO.
42 + 45 = 87
81 - 45 = 36
RIEPILOGANDO I 4 VALORI NUMERICI SONO: 42 81 87 36 PRENDENDO IN CONSIDERAZIONE I VALORI PIU' ALTI 81 E 87 DA ABBINARE ALLA NOSTRA AMBATA PRINCIPALE 17
IL QUINTO ABBINAMENTO VERRA' CALCOLATO DALLA SOTTRAZIONE DEI PRIMI DUE ABBINAMENTI E CIOE' :
81 - 42 = 39 QUINTO ABBINAMENTO AL 17 CAPOGIOCO.
COSI' I 5 ABBINAMENTI AL 17 SONO : 39. 36. 87. 81. 42

SPERO DI ESSERE STATO CHIARO SAI QUANDO SI CERCA DI FAR CAPIRE UNA PROCEDURA TANTISSIME VOLTE SI SCRIVE TANTO PER RICAVARE POCO.
DI NUOVO GRAZIE PER IL TUO IMPEGNO Nicotina

 

[sospetto]

Scusate l'intromissione ,ma vedo solo ora.
Senza nulla toglire alla buona volonta di Gian_Attila ho fatto lo script del metodo, Prima di postare commenti in merito ai risultati vorrei che verificassi più esiti.


Sub Main()
Dim am(2),am1(6)
Dim ruote(2)
Dim ruot(1)
Dim posta(5)
Dim poste(5)
posta(1) = 1
poste(2) = 1
poste(3) = 1

casi = 0
fin = EstrazioneFin
ini = EstrazioneIni + 8550
For es = ini To fin
AvanzamentoElab ini,fin,es
For r = 1 To 10
For p = 1 To 4
For p1 = p + 1 To 5
For r1 = 1 To 10
For p2 = 1 To 4
For p3 = p2 + 1 To 5
a = Estratto(es,r,p)
b = Estratto(es,r,p1)
c = Estratto(es-1,r1,p2)
d = Estratto(es-1,r1,p3)
If Distanza(a,b) = 30 Or Distanza(a,b) = 60 Then
If Distanza(c,d) = 30 Or Distanza(c,d) = 60 Then
If r <> r1 Then
If p = p2 Or p = p3 Then
If p1 = p2 Or p1 = p3 Then

ColoreTesto 1
Scrivi "-----------------------------------------------------------------------------------"
Scrivi DataEstrazione(es) & " " & Left(NomeRuota(r),2) & " " & StringaEstratti(es,r) & " ---> " & Format2(a) & " " & Format2(b)
ColoreTesto 2
Scrivi DataEstrazione(es-1) & " " & Left(NomeRuota(r1),2) & " " & StringaEstratti(es-1,r1) & " ---> " & Format2(c) & " " & Format2(d)

ruote(1) = r
ruote(2) = r1
ColoreTesto 0

el1 = Fuori90(a+30)
el2 = Fuori90(a+60)
em1 = el1
If el1 = b Then
em1 = el2
End If
el3 = Fuori90(c+30)
el4 = Fuori90(c+60)
em2 = el3
If el3 = d Then
em2 = el4
End If

am(1) = Differenza(em1,em2)
ImpostaGiocata 1,am,ruote,posta,12,1
am1(1) = am(1)
am1(2) = Fuori90(a+el1+el2)
am1(3) = Fuori90(c+el3+el4)
am1(4) = Diametrale(am1(2))
am1(5) = Diametrale(am1(3))
am1(6) = Differenza(am1(2),am1(3))
ImpostaGiocata 2,am1,ruote,poste,12,2
Gioca es
casi = casi + 1
If ScriptInterrotto Then Exit Sub
End If
End If
End If
End If
End If
Next
Next
Next
Next
Next
Next
Next
Scrivi
Scrivi
Scrivi "Numero Totale casi analizzati: " & CInt(casi)
ScriviResoconto
End Sub