Per Mike-la ricerca del 3°

[antonio65]

Ciao Mike la notte porta consigli...così come dici tu...io te ne porto uno sperando di stimolare le tue capacità intellettive a tal proposito.
Si tratta di una tecnica "sottrattiva/sommativa/divisoria/" io non ho fatto nessuna ricerca perchè il modo operandi manualmente richiede molto tempo.
Con uno script tutto diventa più comodo ed intuito....se ne vale la pena allora si prosegue viceversa ci abbiamo provato....veniamo al dunque...
La tecnica consiste in questo.... prendiamo in considerazione le ultime 2 estrazioni sulla ruota di Bari
40-35-30-9-74 ultima estrazione 38- 74-2-62-52 Bene adesso per comodità e per velocizzare e semplificare il tutto facciamo la pratica con i primi 2 estratti di ciascuna delle ultime 2 estrazioni sulla ruota di Bari.Supponiamo di voler giocare la distanza 36(che è di seguito all'estrazione successiva con 38-74) non sappiamo quale somma esce ma solo la distanza quindi abbiamo 54 possibilità
perchè la distanza 36 ha 54 combinazioni.
Quindi si somma la distanza 36 alla coppia 40-35 distanza 5 ed otteniamo: sommare 36+5=41 sottrarre 36-5=31 risultato 41e31

sottrazione in verticale nei diagonali da 3 numeri di cui 2 sono 41/31(molto elementare,e naturale) però ovviamente da uno stesso numero uguale per entrambi i diagonali cioè 37.
a questo punto sommare 37 alla somma 75 quindi otteniamo 112...la distante che abbiamo scelto è la "36" di cui segue l'operazione finale:
112+36=148:2=74
112-36= 76:2=38
Quindi 38 74 somma 112.
Con uno script si possono fare delle statistiche...se ritieni opportuna questa tecnica puoi stimolarti con lo script...se non la ritieni stimolante aspettiamo nuove idee.


40-35

******37
2- 3
34-39
37********
38-74

 

[Mike58]

Ciao Mike la notte porta consigli...così come dici tu...io te ne porto uno sperando di stimolare le tue capacità intellettive a tal proposito.
Si tratta di una tecnica "sottrattiva/sommativa/divisoria/" io non ho fatto nessuna ricerca perchè il modo operandi manualmente richiede molto tempo.
Con uno script tutto diventa più comodo ed intuito....se ne vale la pena allora si prosegue viceversa ci abbiamo provato....veniamo al dunque...
La tecnica consiste in questo.... prendiamo in considerazione le ultime 2 estrazioni sulla ruota di Bari
40-35-30-9-74 ultima estrazione 38- 74-2-62-52 Bene adesso per comodità e per velocizzare e semplificare il tutto facciamo la pratica con i primi 2 estratti di ciascuna delle ultime 2 estrazioni sulla ruota di Bari.Supponiamo di voler giocare la distanza 36(che è di seguito all'estrazione successiva con 38-74) non sappiamo quale somma esce ma solo la distanza quindi abbiamo 54 possibilità
perchè la distanza 36 ha 54 combinazioni.
Quindi si somma la distanza 36 alla coppia 40-35 distanza 5 ed otteniamo: sommare 36+5=41 sottrarre 36-5=31 risultato 41e31

sottrazione in verticale nei diagonali da 3 numeri di cui 2 sono 41/31(molto elementare,e naturale) però ovviamente da uno stesso numero uguale per entrambi i diagonali cioè 37.
a questo punto sommare 37 alla somma 75 quindi otteniamo 112...la distante che abbiamo scelto è la "36" di cui segue l'operazione finale:
112+36=148:2=74
112-36= 76:2=38
Quindi 38 74 somma 112.
Con uno script si possono fare delle statistiche...se ritieni opportuna questa tecnica puoi stimolarti con lo script...se non la ritieni stimolante aspettiamo nuove idee.


40-35

******37
2- 3
34-39
37********
38-74

questa parte non mi è chiara nei calcoli, comunque ti ho fatto la 1° parte dello script, potresti anche continuare nei calcoli, avendo quasi tutti gli elementi.

script parziale di ricerca.

Sub Main
 Dim Nu(2),Nn(2),Num(2),Ru(1),T,V
 Ini = EstrazioneFin - 500
 fin = EstrazioneFin
 r = 1
 T = Array(T,"Data Info Estraz ","Ruota","Estratti Es","Dist 1","Estratti Es-1","Dist 2","Num Calc")
 Call InitTabella(T)
 For es = Ini To fin
  p1 = 1
  p2 = 2
  a = Estratto(es,r,p1)
  b = Estratto(es,r,p2)
  c = Estratto(es - 1,r,p1)
  d = Estratto(es - 1,r,p2)
  aa = Distanza(a,b)
  bb = Distanza(c,d)
  If aa = 36 Then
   Nu(1) = a
   Nu(2) = b
   Nn(1) = c
   Nn(2) = d
   Ru(1) = r
   Num(1) = Fuori90 (aa + bb)
   Num(2) = Fuori90 (aa - bb)
   V = Array(V,GetInfoEstrazione(es),SiglaRuota(r),StringaNumeri(Nu,,1),aa,StringaNumeri(Nn,,1),bb,StringaNumeri(Num))
   Call AddRigaTabella(V)
  End If
 Next
 CreaTabella
End Sub

 

[antonio65]

Sarebbero sottrazioni scritte in verticale a quadrato esempio 40-38=2 40-74=34 35–38=3 35-74=39
anziche scritte come ti ho appena mostrato scritte in verticali solo sottrazioni ovviamente utilizzando abs
operando così nei lati obliqui da in questo caso il 37 che è sempre uguale in modalità obliqua.....quindi il 37 è la differenza di somma che tra 75 e 112....75 firmato dalla coppia 40/35 e 112 dalla coppia in estrazione successiva 38/74 ....quindi il calcolo finisce con la somma/sottrazione/divisoria del numero obliquo 37 più la coppia 40/35 quindi 75+37=112 che è la somma della coppia successiva 38/74 con distanza 36...quindi 112+36=148:2=74 112-36=76:2=38....finito.ovviamente questo calcolo lo sappiamo...sara lo script ad agire in questo modo per trovare l’ambo secco a ruota.

 

[Mike58]

Non lo so Antonio seguendo i tuoi calcoli io trovo solo il tuo esempio come True (vero)
sei sicuro che tutte le operazioni portano allo stesso valore in diagonale ? oppure dobbiamo procedere in altro modo magari solo con le somme ?

smanettaci anche tu.

tanto lo script è di semplice costruzione.

Sub Main
 Dim Nu(2),Nn(2),Num(2),dg(4),Ru(1),T,V
 Ini = EstrazioneFin - 500
 fin = EstrazioneFin
 r = 1
 T = Array(T,"Data Info Estraz ","Ruota","Estratti Es","Dist 1","Estratti Es-1","Dist 2","Num Calc","op1","op2","op3","op4","Sv1","Sv2")
 Call InitTabella(T)
 For es = Ini To fin
  p1 = 1
  p2 = 2
  a = Estratto(es,r,p1)
  b = Estratto(es,r,p2)
  c = Estratto(es - 1,r,p1)
  d = Estratto(es - 1,r,p2)
  aa = Distanza(a,b)
  bb = Distanza(c,d)
  If aa = 36 Then
   Nu(1) = a
   Nu(2) = b
   Nn(1) = c
   Nn(2) = d
   Ru(1) = r
   Num(1) = Fuori90 (aa + bb)
   Num(2) = Fuori90 (aa - bb)
   dg(1) = Abs(a-c)
   dg(2) = Abs(a-d)
   dg(3) = Abs(b-c)
   dg(4) = Abs(b-d)
   'dg(1) = Differenza(a,c)
   'dg(2) = Differenza(a,d)
   'dg(3) = Differenza(b,c)
   'dg(4) = Differenza(b,d)
   Call OrdinaMatrice(dg,1,1)

   sv1 = Abs(dg(1)-dg(4))
   sv2 = Abs(dg(2)+dg(3))
   'sv1 = Differenza(dg(1),dg(4))
   'sv2 = (dg(2)+dg(3))

   V = Array(V,GetInfoEstrazione(es),SiglaRuota(r),StringaNumeri(Nu,,1),aa,StringaNumeri(Nn,,1),bb,StringaNumeri(Num),dg(1),dg(2),dg(3),dg(4),sv1,sv2)
   Call AddRigaTabella(V)
   For x = 1 To 13
   If sv1 = sv2 Then Call SetColoreCella((x),3,1)
   Next
  End If
 Next
 CreaTabella
End Sub

 

[Mike58]

Forse sono andato fuori strada e anche oltre, simulando quello che ho capito mi è venuto cosi.

solo prova in attesa di dettagli da Antonio.

Sub Main
 Dim Nu(2),Nn(2),Num(2),dg(4),AF(2),Ru(1),rt(1),T,V
 Ini = EstrazioneFin - 1500
 fin = EstrazioneFin
 r = 1
 T = Array(T,"k","Data Info Estraz ","Ruota","Estratti Es","Dist 1","Estratti Es-1","Dist 2","Num Calc"_
 ,"op1","op2","op3","op4","Sv1","Sv2","diffSM","Ambo Futuro","Verifica Sorita","colpo")
 Call InitTabella(T)
 For es = Ini To fin
  p1 = 1
  p2 = 2
  a = Estratto(es,r,p1)
  b = Estratto(es,r,p2)
  c = Estratto(es - 1,r,p1)
  d = Estratto(es - 1,r,p2)
  aa = Distanza(a,b)
  bb = Distanza(c,d)
  If aa = 36 Then
   Nu(1) = a
   Nu(2) = b
   Nn(1) = c
   Nn(2) = d
   Ru(1) = r
   rt(1) = 11
   Num(1) = Fuori90 (aa + bb)
   Num(2) = Fuori90 (aa - bb)
   sm1 = a+b
   sm2 = c+d
   dg(1) = Abs(a-c)
   dg(2) = Abs(a-d)
   dg(3) = Abs(b-c)
   dg(4) = Abs(b-d)
   'dg(1) = Differenza(a,c)
   'dg(2) = Differenza(a,d)
   'dg(3) = Differenza(b,c)
   'dg(4) = Differenza(b,d)
   Call OrdinaMatrice(dg,1,1)

   sv1 = Abs(dg(1)-dg(4))
   sv2 = Abs(dg(2)+dg(3))
   'sv1 = Differenza(dg(1),dg(4))
   'sv2 = (dg(2)+dg(3))
   diffSm = Differenza(sm1,sm2)
   If sv1 = sv2 And sv1 = diffSm Then
   If sm2+sv2 = sm1 Then
   AF(1) = (sm1+36)/2
   AF(2) = (sm1-36)/2
   k = k + 1
   Call VerificaEsito(AF,rt,es+1,2,25,,,clp,es1,id)


   V = Array(V,k,GetInfoEstrazione(es),SiglaRuota(r),StringaNumeri(Nu,,1),aa,StringaNumeri(Nn,,1),bb,StringaNumeri(Num)_
   ,dg(1),dg(2),dg(3),dg(4),sv1,sv2,diffsm,StringaNumeri(AF),es1,clp)
   Call AddRigaTabella(V)
   End If
   End If
   'For x = 1 To 13
   'If sv1 = sv2 Then Call SetColoreCella((x),3,1)
   'Next
  End If
 Next
 CreaTabella
End Sub

 

[antonio65]

Si Mike, sono sicuro al 100000000%10000000 bisogna solo azzeccare la distanza e la frequenza più probabile del numero obliquo(come ti ho fatto da esempio)ad esempio ho notato molte volte il 54 come numero obliquo(troppo forte) per renderti conto tu stesso quando lanci lo script cosi come me lo hai postato...analizza bene la precedente estrazione prima del verde che evidenzia l'ultima ossia quella che ti ho spiegato il calcolo....abbiamo estratti 27/14 a seguire 42/78 numero obliquo 79 quindi 27+14=41 41+79=120 infatti la coppia che è uscita è 42-78 distanza 36....se altri casi non corrispondono perchè mi sono accorto che ad esempio nella prima estrazione abbiamo 81-27 che lo script lo da come distanza 36 invece è distanza 54...capito...il ti ho fatto l'esempio con la distanza 36 ma è uguale per tutte le distanze....quindi puoi correggere lo script dicendo che (perchè tu parli con gli script) ahahahahha le distanze che trova purchè siano corrette....inoltre accanto alla griglia estratti es ed estratti es- puoi scrivere le rispettive somme....e bisogna togliere il fuori 90...dopo di ciò abbiamo fatto bingo....

 

[antonio65]

Buongiorno Mike hai riposato bene? spero di si...Io fatto qualcosa e mi sono accorto che quando la coppia di ambo successiva che troviamo è più piccola (come somma) bisogna sottrarre...Ho dovuto aggiungere diverse combinazioni di "Sv" ed ho aggiunto la differenza di somma(Somm) tra le coppie lasciandola "senza colore " per confrontare con i vari Sv...Dai una controllatina...(se puoi) tuttavia quando cerchiamo una distanza...alcune distanze non sono uguali in base alla distanza scelta...

Sub Main
Dim Nu(2),Nn(2),Num(2),dg(4),Ru(1),T,V,Som(2)
Ini = EstrazioneFin - 500
fin = EstrazioneFin
r = 1
T = Array(T,"Data Info Estraz ","Ruota","Somma1","Estratti Es"," Dist 1","Somma2","Estratti Es-1","Dist 2","Num Calc","op1","op2","op3","op4","Sv1","Sv2","Sv3","Sv4","Sv5","Sv6","Sv7","Sv8","Sott")
Call InitTabella(T)
For es = Ini To fin
p1 = 1
p2 = 2
a = Estratto(es,r,p1)'''''1°estratto
b = Estratto(es,r,p2)'''''2°estratto
c = Estratto(es - 1,r,p1)''''1°estratto precedente
d = Estratto(es - 1,r,p2)'''2°estratto precedente
aa = Distanza(a,b)''''distanza tra il 1°estratto ed il 2°estratto
bb = Distanza(c,d)'''distanza tra il 1°estratto precedente ed il 2°estratto precedente
If aa = 36 Then'''se esce la distanza
Nu(1) = a
Nu(2) = b
Nn(1) = c
Nn(2) = d
Ru(1) = r
Num(1) =(aa + bb)'1°anello
Num(2) =(aa - bb)'2°anello
dg(1) = Abs(a - c)'''sottrazioni in verticale
dg(2) = Abs(a - d)'''sottrazioni in verticale
dg(3) = Abs(b - c)'''sottazioni in verticale
dg(4) = Abs(b - d)'''sottrazioni in verticale
E =(a + b)'''Somma 1
F =(c + d)'''Somma 2
Som(1) = E
Som(2) = F
K = Abs(E - F)
'dg(1) = Differenza(a,c)
'dg(2) = Differenza(a,d)
'dg(3) = Differenza(b,c)
'dg(4) = Differenza(b,d)
Call OrdinaMatrice(dg,1,1)

sv1 = Abs(dg(1) - dg(4))
sv2 = Abs(dg(3) + dg(2))

sv3 = Abs(dg(1) - dg(3))
sv4 = Abs(dg(1) - dg(4))

sv5 = Abs(dg(1) - dg(2))
sv6 = Abs(dg(3) - dg(4))

sv7=Abs(dg(1) + dg(3))
sv8=Abs(dg(1) - dg(4))

V = Array(V,GetInfoEstrazione(es),SiglaRuota(r),Som(1),StringaNumeri(Nu,,1),aa,Som(2),StringaNumeri(Nn,,1),bb,StringaNumeri(Num),dg(1),dg(2),dg(3),dg(4),sv1,sv2,sv3,sv4,sv5,sv6,sv7,sv8,K)
Call AddRigaTabella(V)
For x = 1 To 21
If sv1 = sv2 Then Call SetColoreCella((x),3,1)
If sv1 = sv3 Then Call SetColoreCella((x),3,1)
If sv5 = sv6 Then Call SetColoreCella((x),3,1)
If sv7 = sv8 Then Call SetColoreCella((x),3,1)
Next
End If
Next
CreaTabella
End Sub

 

[antonio65]

Ciao Mike, lo script inizia a prendere forma...c'è un qualcosa da mettere a posto poi sono molto soddisfatto...
Io ci smanetto ma ovviamente non passo fare il passo più grande della gamba...Dipende quale distanza utilizzo sbaglia i calcoli ....però quando metto lo stesso nelle voci (2 script inviato)
If aa = 32 Then
AF(1) =(sm1 + 32)/2
AF(2) =(sm1 - 32)/2
i calcoli sono corretti.....alcune distanze però le sbaglia ti invio una griglia...


[TABLE="border: 1, cellpadding: 0, cellspacing: 0"]
[TR]
[TD="bgcolor: #ffffff, align: center"]k [/TD]
[TD="bgcolor: #ffffff, align: center"]Data Info Estraz [/TD]
[TD="bgcolor: #ffffff, align: center"]Ruota [/TD]
[TD="bgcolor: #ffffff, align: center"]Estratti Es [/TD]
[TD="bgcolor: #ffffff, align: center"]Dist 1 [/TD]
[TD="bgcolor: #ffffff, align: center"]Estratti Es-1 [/TD]
[TD="bgcolor: #ffffff, align: center"]Dist 2 [/TD]
[TD="bgcolor: #ffffff, align: center"]Num Calc [/TD]
[TD="bgcolor: #ffffff, align: center"]op1 [/TD]
[TD="bgcolor: #ffffff, align: center"]op2 [/TD]
[TD="bgcolor: #ffffff, align: center"]op3 [/TD]
[TD="bgcolor: #ffffff, align: center"]op4 [/TD]
[TD="bgcolor: #ffffff, align: center"]Sv1 [/TD]
[TD="bgcolor: #ffffff, align: center"]Sv2 [/TD]
[TD="bgcolor: #ffffff, align: center"]diffSM [/TD]
[TD="bgcolor: #ffffff, align: center"]Ambo Futuro [/TD]
[TD="bgcolor: #ffffff, align: center"]Verifica Sorita [/TD]
[TD="bgcolor: #ffffff, align: center"]colpo [/TD]
[/TR]
[TR]
[TD="bgcolor: #ffffff, align: center"]1 [/TD]
[TD="bgcolor: #ffffff, align: center"][08159] [153] 22.12.2009 [/TD]
[TD="bgcolor: #ffffff, align: center"]RO [/TD]
[TD="bgcolor: #ffffff, align: center"]25.83 [/TD]
[TD="bgcolor: #ffffff, align: center"]32 [/TD]
[TD="bgcolor: #ffffff, align: center"]25.03 [/TD]
[TD="bgcolor: #ffffff, align: center"]22 [/TD]
[TD="bgcolor: #ffffff, align: center"]54.10 [/TD]
[TD="bgcolor: #ffffff, align: center"]0 [/TD]
[TD="bgcolor: #ffffff, align: center"]22 [/TD]
[TD="bgcolor: #ffffff, align: center"]58 [/TD]
[TD="bgcolor: #ffffff, align: center"]80 [/TD]
[TD="bgcolor: #ffffff, align: center"]80 [/TD]
[TD="bgcolor: #ffffff, align: center"]80 [/TD]
[TD="bgcolor: #ffffff, align: center"]80 [/TD]
[TD="bgcolor: #ffffff, align: center"]70.38 [/TD]
[TD="bgcolor: #ffffff, align: center"]MI 38 .. .. 70 .. [/TD]
[TD="bgcolor: #ffffff, align: center"]4 [/TD]
[/TR]
[TR]
[TD="bgcolor: #ffffff, align: center"]2 [/TD]
[TD="bgcolor: #ffffff, align: center"][08171] [ 8 ] 19.01.2010 [/TD]
[TD="bgcolor: #ffffff, align: center"]RO [/TD]
[TD="bgcolor: #ffffff, align: center"]85.53 [/TD]
[TD="bgcolor: #ffffff, align: center"]32 [/TD]
[TD="bgcolor: #ffffff, align: center"]57.32 [/TD]
[TD="bgcolor: #ffffff, align: center"]25 [/TD]
[TD="bgcolor: #ffffff, align: center"]57.7 [/TD]
[TD="bgcolor: #ffffff, align: center"]4 [/TD]
[TD="bgcolor: #ffffff, align: center"]21 [/TD]
[TD="bgcolor: #ffffff, align: center"]28 [/TD]
[TD="bgcolor: #ffffff, align: center"]53 [/TD]
[TD="bgcolor: #ffffff, align: center"]49 [/TD]
[TD="bgcolor: #ffffff, align: center"]49 [/TD]
[TD="bgcolor: #ffffff, align: center"]49 [/TD]
[TD="bgcolor: #ffffff, align: center"]85.53 [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"]25 [/TD]
[/TR]
[TR]
[TD="bgcolor: #ffffff, align: center"]3 [/TD]
[TD="bgcolor: #ffffff, align: center"][08274] [111] 16.09.2010 [/TD]
[TD="bgcolor: #ffffff, align: center"]RO [/TD]
[TD="bgcolor: #ffffff, align: center"]55.23 [/TD]
[TD="bgcolor: #ffffff, align: center"]32 [/TD]
[TD="bgcolor: #ffffff, align: center"]19.26 [/TD]
[TD="bgcolor: #ffffff, align: center"]7 [/TD]
[TD="bgcolor: #ffffff, align: center"]39.25 [/TD]
[TD="bgcolor: #ffffff, align: center"]3 [/TD]
[TD="bgcolor: #ffffff, align: center"]4 [/TD]
[TD="bgcolor: #ffffff, align: center"]29 [/TD]
[TD="bgcolor: #ffffff, align: center"]36 [/TD]
[TD="bgcolor: #ffffff, align: center"]33 [/TD]
[TD="bgcolor: #ffffff, align: center"]33 [/TD]
[TD="bgcolor: #ffffff, align: center"]33 [/TD]
[TD="bgcolor: #ffffff, align: center"]55.23 [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"]25 [/TD]
[/TR]
[TR]
[TD="bgcolor: #ffffff, align: center"]4 [/TD]
[TD="bgcolor: #ffffff, align: center"][09025] [ 80] 04.07.2015 [/TD]
[TD="bgcolor: #ffffff, align: center"]RO [/TD]
[TD="bgcolor: #ffffff, align: center"]53.85 [/TD]
[TD="bgcolor: #ffffff, align: center"]32 [/TD]
[TD="bgcolor: #ffffff, align: center"]60.34 [/TD]
[TD="bgcolor: #ffffff, align: center"]26 [/TD]
[TD="bgcolor: #ffffff, align: center"]58.6 [/TD]
[TD="bgcolor: #ffffff, align: center"]7 [/TD]
[TD="bgcolor: #ffffff, align: center"]19 [/TD]
[TD="bgcolor: #ffffff, align: center"]25 [/TD]
[TD="bgcolor: #ffffff, align: center"]51 [/TD]
[TD="bgcolor: #ffffff, align: center"]44 [/TD]
[TD="bgcolor: #ffffff, align: center"]44 [/TD]
[TD="bgcolor: #ffffff, align: center"]44 [/TD]
[TD="bgcolor: #ffffff, align: center"]85.53 [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"]25 [/TD]
[/TR]
[/TABLE]

[TABLE="border: 1, cellpadding: 0, cellspacing: 0"]
[TR]
[TD="bgcolor: #ffffff, align: center"]k [/TD]
[TD="bgcolor: #ffffff, align: center"]Data Info Estraz [/TD]
[TD="bgcolor: #ffffff, align: center"]Ruota [/TD]
[TD="bgcolor: #ffffff, align: center"]Estratti Es [/TD]
[TD="bgcolor: #ffffff, align: center"]Dist 1 [/TD]
[TD="bgcolor: #ffffff, align: center"]Estratti Es-1 [/TD]
[TD="bgcolor: #ffffff, align: center"]Dist 2 [/TD]
[TD="bgcolor: #ffffff, align: center"]Num Calc [/TD]
[TD="bgcolor: #ffffff, align: center"]op1 [/TD]
[TD="bgcolor: #ffffff, align: center"]op2 [/TD]
[TD="bgcolor: #ffffff, align: center"]op3 [/TD]
[TD="bgcolor: #ffffff, align: center"]op4 [/TD]
[TD="bgcolor: #ffffff, align: center"]Sv1 [/TD]
[TD="bgcolor: #ffffff, align: center"]Sv2 [/TD]
[TD="bgcolor: #ffffff, align: center"]diffSM [/TD]
[TD="bgcolor: #ffffff, align: center"]Ambo Futuro [/TD]
[TD="bgcolor: #ffffff, align: center"]Verifica Sorita [/TD]
[TD="bgcolor: #ffffff, align: center"]colpo [/TD]
[/TR]
[TR]
[TD="bgcolor: #ffffff, align: center"]1 [/TD]
[TD="bgcolor: #ffffff, align: center"][08160] [154] 24.12.2009 [/TD]
[TD="bgcolor: #ffffff, align: center"]BA [/TD]
[TD="bgcolor: #ffffff, align: center"]47.79 [/TD]
[TD="bgcolor: #ffffff, align: center"]32 [/TD]
[TD="bgcolor: #ffffff, align: center"]58.26 [/TD]
[TD="bgcolor: #ffffff, align: center"]32 [/TD]
[TD="bgcolor: #ffffff, align: center"]64.90 [/TD]
[TD="bgcolor: #ffffff, align: center"]11 [/TD]
[TD="bgcolor: #ffffff, align: center"]21 [/TD]
[TD="bgcolor: #ffffff, align: center"]21 [/TD]
[TD="bgcolor: #ffffff, align: center"]53 [/TD]
[TD="bgcolor: #ffffff, align: center"]42 [/TD]
[TD="bgcolor: #ffffff, align: center"]42 [/TD]
[TD="bgcolor: #ffffff, align: center"]42 [/TD]
[TD="bgcolor: #ffffff, align: center"]79.47 [/TD]
[TD="bgcolor: #ffffff, align: center"]PA 47 .. .. .. 79 [/TD]
[TD="bgcolor: #ffffff, align: center"]6 [/TD]
[/TR]
[TR]
[TD="bgcolor: #ffffff, align: center"]2 [/TD]
[TD="bgcolor: #ffffff, align: center"][08467] [148] 10.12.2011 [/TD]
[TD="bgcolor: #ffffff, align: center"]BA [/TD]
[TD="bgcolor: #ffffff, align: center"]89.31 [/TD]
[TD="bgcolor: #ffffff, align: center"]32 [/TD]
[TD="bgcolor: #ffffff, align: center"]46.12 [/TD]
[TD="bgcolor: #ffffff, align: center"]34 [/TD]
[TD="bgcolor: #ffffff, align: center"]66.88 [/TD]
[TD="bgcolor: #ffffff, align: center"]15 [/TD]
[TD="bgcolor: #ffffff, align: center"]19 [/TD]
[TD="bgcolor: #ffffff, align: center"]43 [/TD]
[TD="bgcolor: #ffffff, align: center"]77 [/TD]
[TD="bgcolor: #ffffff, align: center"]62 [/TD]
[TD="bgcolor: #ffffff, align: center"]62 [/TD]
[TD="bgcolor: #ffffff, align: center"]62 [/TD]
[TD="bgcolor: #ffffff, align: center"]76.44 [/TD]
[TD="bgcolor: #ffffff, align: center"]TO 76 .. 44 .. .. [/TD]
[TD="bgcolor: #ffffff, align: center"]17 [/TD]
[/TR]
[/TABLE]

 

[Mike58]

Ciao Antonio, non ho molto tempo in questo periodo,e da cosa leggo sono contento che stai iniziando questo percorso del far da se e realizzare quelle che possono essere dei progetti da portare in script.

Anche tu sei un vulcano di idee e rispondere a tutto non è sempre immediato.

Attenzione !!! devi capire meglio i codici e soprattutto la nomenclatura lottologica

Distanza è la distanza ciclometrica ossia 89-31 = 32 >>> 89 a 90 = 1 + 31 = 32 leggi come si calcola magari con ricerca su Google.
differenza fa la differenza dei 2 numeri infatti tra 89-31 = 58
abs = a differenza

vedi piccolo script

Sub Main
 a = 89
 b = 31
 Scrivi "Ambo : " & a & "." & b,1
 Scrivi
 aa = Distanza(a,b)
 bb = Differenza(a,b)
 cc = Abs(a - b)
 Scrivi aa
 Scrivi".............distanza"
 Scrivi bb
 Scrivi".............differenze"
 Scrivi cc
 Scrivi".............Abs"
End Sub

Ciao continua cosi è vedrai che la soddisfazione piena dei tuoi sforzi.

Quando vuoi chiedi come solito, ma per ora ti lascio fare.

 

[antonio65]

Ciao Mike, ho capito il concetto ad esempio 80-26=36 80-90=10+26=36......solo che non so come impostare per il momento
vado per la via più spiccia(per il momento) tolgo distanza e
aa =Abs(a-b)
bb = Abs(c-d)

 

[Mike58]

Ciao Antonio, come da script se vuoi la differenza tra i 2 numeri usa il codice Differenza è uguale ad abs.
Abs sottrae il numero A-B e se negativo lo riporta Positivo.
Il tuo caso è la Differenza.
Se altri calcoli che non siano quelli bisogna ingegnarsi ad oc.

 

[antonio65]

Sicuramente Mike...ci vuole pazienza...direi che adesso lo script rispetta la mia idea(tecnica) per fare ricerche penso che andrà bene...il problema sorge quando dovrei giocare le previsioni come si fa? Se quando puoi (io ci proverò) anche se puoi aggiungere la funzione For
cosi cerca lui il miglior numero obliquo ...Per capirci quante volte ad esempio sulle distanze da 1-45 è il più frequente...Si può? caffè assicurato magari la cena....A proposito di dove sei?

 

[Mike58]

Ciao Antonio,cosa devo dirti sul tuo quesito,hai una tecnica che trova una determinata condizione e da quella attraverso un tuo calcolo estrapoli dei numeri a tuo parere pronti per essere giocati.
La previsione di questi si dovrebbe giocare dal momento in cui trovi la condizione ossia ES e per i colpi stabiliti e gli script servono a questo a vedere quante volte all'uscita della condizione hanno dato esito.
Poi se questi hanno una certa valaenza è solo il conteggio fatto che te lo dice, tenendo sempre presente che il tutto è stato svolto al passato ossia sui numeri usciti, ma non vorrà necessariamente dire che sono certi in futuro.

Puoi fare questo o giocando con Gioca Es prima impostando le giocate oppure con il VerificaEsito oppure ma questo è più difficile conteggiando la tale condizione.

Tutto dipende da quello che si vuol vedere.

P.s. purtroppo oggi domenica si lavora e tempo per il forum poco.

sulla curiosità di dove sono , sono in Lombardia (Mi prov) e sicuramente sarai anche più giovane di me quindi sei ancora in tempo per imparare a sperimentare le tue idde.

Ciao
Mike

 

[antonio65]

Ciao Mike,ieri mi ero collegato ma poi la bambina con la febbre...Cmq devo dirti sempre grazie...Io sono Siciliano ...appena ritorno in Svizzera ti invito a Locarno...Non è che sia tanto giovane sono del 65