Novità

aiuto script!

herat

Advanced Member
Caro i legend, ti ringrazio.

Riportando la tua formula su PC il risultato è errato perchè se la coppia AB è pari col diametrale ci fornisce una C dispari.

Io il punto medio di stessa cadenza l'ho ricavato pure con questa formula

SE A<B
C=(((B-A)*2)+B)*2+(90-B) - col fuori 90



SE A>B
C=(((A-B)*2)+A)*2+(90-A) - col fuori 90
 
Ultima modifica:

i legend

Premium Member
Ciao a tutti, purtroppo non avendo il PC a portata non riesco a controllare ma le tue formule ora tolgono qualsiasi dubbio.
buon lavoro a tutti :)
Un complimento a salvo per i suoi script e miglioramenti
un saluto a Joe un maestro.
 

herat

Advanced Member
La formula che ho testato poco fa in uno script per trovare il punto medio di stessa cadenza è il seguente

Fuori90((a-b)+(a-b)+a+(a-b)+(a-b)+a+(90-a))
 
Ultima modifica:

joe

Advanced Member >PLATINUM PLUS<
Ok. Ringrazio.

Non ho visto quanto scritto da Ilegend.

Dunque non posso rispondere compiutamente.

Dirò che quanto ho scritto io (al confronto) è (era) molto più complicato.

Sfruttando ciclometria e il diametrale ottiene quelli che, paiono essere

gli stessi risultati. (Ma ... vorrò controllare anche con altri numeri)

Tutto ciò premesso ... si deve scegliere la via, più semplice.

Cioè quella indicata.

ovvero la via vecchia ... e conosciuta.

Con il suo applicativo che ho già descritto e non mi ripeto.

Codice:
Option Explicit
Sub Main
	' [CALCOLO] Punto Medio. 
	' Function x Herat
	' Script By Joe
	Dim A,B,C
	Dim N,X,PM
	Dim Bi(11)
	Bi(1) = "05-85-45"
	Bi(2) = "02-82-42"
	Bi(3) = "84-04-44"
	Bi(4) = "73-63-23"
	Bi(5) = "78-88-38"
	Bi(6) = "12-22-62"
	Bi(7) = "35-45-85"
	Bi(8) = "88-08-48"
	Bi(9) = "30-40-80"
	Bi(10) = "62-72-22"
	Bi(11) = "35-45-85"
	For X = 1 To UBound(Bi)
		N = Split("0-" & Bi(X),"-")
		A = N(1) : B = N(2) : C = N(3)
		PM = PuntoMedio(A,B)
		Scrivi StringaNumeri(N,"-",True) & " [" & PM & "]" '& " " & PuntoMedio1 (A,B)
	Next
End Sub
Function PuntoMedio(A,B)
	PuntoMedio = False
	If Cadenza(A) = Cadenza(B) Then
		If A < B Then
			PuntoMedio = Fuori90((((B - A)*2) + B)*2 +(90 - B))
		Else
			PuntoMedio = Fuori90((((A - B)*2) + A)*2 +(90 - A))
		End If
	End If
End Function

:)
 

i legend

Premium Member
Ciao scusate forse non ho capito cosa sitende per punto medio
Guardate questa funzione non ho verificato se funziona con tutte le distanze, spero possa andare per quella che serve a voi..
Codice:
Option Explicit
'Verificare il corretto funzionamento
'salvo errori ed omissis
Sub Main
    Dim aN(3)
    aN(1)=55
    aN(2)=65
    If Distanza(aN(1),aN(2))=10 Then
        aN(3)=Fuori90(aN(1)+aN(2))/2
        If Cadenza(aN(3))<>Cadenza(aN(1)) Then aN(3)=Diametrale (aN(3))
    Call DisegnaCerchioCiclometrico(aN,True)
    End If
End Sub
 

herat

Advanced Member
siete spettacolari!
entrambi gli script (joe e i legend) calcolano il "punto medio con stessa cadenza" in maniera perfetta!
 

salvo50

Advanced Member >PLATINUM PLUS<
Ciao a Tutti!



Ho finito lo script, però l'ho fatto con la ricerca solo in verticale, non incrociati, per quelli incrociati faccio un altro script praticamente gemello di questo ma con le somme solo incrociate, perche non riesco a fare le due cose insieme, per il calcolo del punto medio ho usato la tua formula.
la ricerca dei risultati l'ho fatto per un colpo, comunque puoi cambiarlo

L'ho modificato in data 13-08-17

Codice:
  Option Explicit
Sub Main
    Dim Es,Es1,r1,r2,r3,r4,Fin,Ini,caso,clp
    Dim a,b,c,d,e,f,p,dia1,dia2,pg,ul1,ul2
    Dim s1,s2,s3,s4,s5,s6,cpg1,cpg2,rcpg1,rcpg2
    Dim amb1(2),amb2(2),amb3(2),amb4(2),amb5(2),amb6(2)
    Dim qua1(4),qua2(4),tris1,tris2,amb7(2),amb8(2),amb9(2)
    Dim ruote(4),posta(2),poste(4)
    Fin = EstrazioneFin - 2
    Ini = EstrazioneFin - 108
    clp = 10
    For Es = Ini To Fin
        AvanzamentoElab Ini,Fin,Es
        Es1 = Es + 1
        For p = 1 To 5
            For r1 = 1 To 10
                For    r2 = r1 + 1 To 11
                If r2 = 11 Then r2 = 12
                For r3 = 1 To 11
                    If r3 = 11 Then r3 = 12
                    a = Estratto(Es,r1,p)
                    b = Estratto(Es,r2,p)
                    e = Estratto(Es,r3,p)
                    c = Estratto(Es1,r1,p)
                    d = Estratto(Es1,r2,p)
                    f = Estratto(Es1,r3,p)
                    s1 = Fuori90(a + b)
                    s2 = Fuori90(c + d)
                    dia1 = Fuori90(a + d)
                    dia2 = Fuori90(b + c)
                    If Distanza(a,c) = 10 And Distanza(b,d) = 10 Then  
                        If r3 <> r2 And r3 <> r1 Then
                            If e = s1 Or e = s2 Or e = dia1 Or e = dia2 Or f = s1 Or f = s2 Or f = dia1 Or f = dia2 Then
                                If e = s1 And s1 <> s2 Or e = s2 And s1 <> s2 Or e = dia1 And dia1 <> dia2 Or e = dia2 And dia1 <> dia2 _
                                    Or f = s1 And s1 <> s2 Or f = s2 And s1 <> s2 Or f = dia1 And dia1 <> dia2 Or f = dia2 And dia1 <> dia2 Then
                                    'CALCOLI PUNTO MEDIO
                                    s4 = Fuori90(a + c)/2
                                    If Cadenza(s4) <> Cadenza(a) Then s4 = Diametrale(s4)
                                    '-----------------------------------------------
                                    s6 = Fuori90(b + d)/2
                                    If Cadenza(s6) <> Cadenza(b) Then s6 = Diametrale(s6)
                                    'FINE CALCOLI PUNTO MEDIO---------------------------
                                    If e = s1 Then cpg1 = a : cpg2 = b : rcpg1 = c : rcpg2 = d
                                    If e = s2 Then cpg1 = c : cpg2 = d : rcpg1 = a : rcpg2 = b
                                    If e = dia1 Then cpg1 = a : cpg2 = d : rcpg1 = b : rcpg2 = c
                                    If e = dia2 Then cpg1 = b : cpg2 = c : rcpg1 = a : rcpg2 = d
                                    '--------------------------------------------
                                    If f = s1 Then cpg1 = a : cpg2 = b : rcpg1 = c : rcpg2 = d
                                    If f = s2 Then cpg1 = c : cpg2 = d : rcpg1 = a : rcpg2 = b
                                    If f = dia1 Then cpg1 = a : cpg2 = d : rcpg1 = b : rcpg2 = c
                                    If f = dia2 Then cpg1 = b : cpg2 = c : rcpg1 = a : rcpg2 = d
                                    If e = s1 Or e = s2 Or e = dia1 Or e = dia2 Then pg = e Else pg = f
                                    tris1 = Fuori90(cpg1 * 3)
                                    tris2 = Fuori90(cpg2 * 3)
                                    ul1 = Fuori90(90 +(pg - tris1))
                                    ul2 = Fuori90(90 +(pg - tris2))
                                    caso = caso + 1
                                    Scrivi String(100,("*")) & " Caso " & Format2(caso)
                                    Scrivi("Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),0,0
                                    Scrivi "  " & SiglaRuota(r1) & " " & StringaEstratti(Es,r1),2
                                    Scrivi("Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),0,0
                                    Scrivi "  " & SiglaRuota(r2) & " " & StringaEstratti(Es,r2),2
                                    Scrivi
                                    Scrivi("Estrazione n." & Format2(Es1) & " del " & DataEstrazione(Es1)),0,0
                                    Scrivi "  " & SiglaRuota(r1) & " " & StringaEstratti(Es1,r1),2
                                    Scrivi("Estrazione n." & Format2(Es1) & " del " & DataEstrazione(Es1)),0,0
                                    Scrivi "  " & SiglaRuota(r2) & " " & StringaEstratti(Es1,r2),2
                                    Scrivi
                                    If e = s1 Or e = s2 Or e = dia1 Or e = dia2 Then
                                        Scrivi("Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),0,0
                                        Scrivi "  " & SiglaRuota(r3) & " " & StringaEstratti(Es,r3),2
                                    Else
                                        Scrivi("Estrazione n." & Format2(Es1) & " del " & DataEstrazione(Es1)),0,0
                                        Scrivi "  " & SiglaRuota(r3) & " " & StringaEstratti(Es1,r3),2
                                    End If
                                    Scrivi
                                    Scrivi SiglaRuota(r1) & " " & Format2(a) & " [ Posizione " & Format2(p) & " ] ",0,0
                                    Scrivi SiglaRuota(r2) & " " & Format2(b) & " [ Posizione " & Format2(p) & " ] "
                                    Scrivi SiglaRuota(r1) & " " & Format2(c) & " [ Posizione " & Format2(p) & " ] ",0,0
                                    Scrivi SiglaRuota(r2) & " " & Format2(d) & " [ Posizione " & Format2(p) & " ] "
                                    Scrivi
                                    Scrivi "Coppie Vert. " & Space(6) & " Somme Oriz" & Space(10) & " Somme diagon."
                                    Scrivi "  " & Format2(a) & Space(1) & Format2(b) & Space(16) & Format2(s1) & Space(19) & Format2(dia1)
                                    Scrivi "  " & Format2(c) & Space(1) & Format2(d) & Space(16) & Format2(s2) & Space(19) & Format2(dia2)
                                    Scrivi
                                    Scrivi " Coppia che ha generato la somma " & Format2(pg) & " --> " & Format2(cpg1) & " " & Format2(cpg2)
                                    Scrivi " Punto medio tra  " & Format2(a) & " e " & Format2(c) & " = " & Format2(s4)
                                    Scrivi " Punto medio tra  " & Format2(b) & " e " & Format2(d) & " = " & Format2(s6)
                                    Scrivi
                                    Scrivi
                                    ruote(1) = r1
                                    ruote(2) = r2
                                    ruote(3) = r3
                                    posta(2) = 1
                                    amb1(1) = s4 : amb1(2) = a : amb2(1) = s4 : amb2(2) = c
                                    amb3(1) = s6 : amb3(2) = b : amb4(1) = s6 : amb4(2) = d
                                    amb5(1) = a : amb5(2) = c : amb6(1) = b : amb6(2) = d
                                    qua1(1) = s4 : qua1(2) = s6 : qua1(3) = cpg1 : qua1(4) = cpg2
                                    qua2(1) = s4 : qua2(2) = s6 : qua2(3) = rcpg1 : qua2(4) = rcpg2
                                    amb7(1) = tris1 : amb7(2) = tris2
                                    amb8(1) = tris1 : amb8(2) = ul1
                                    amb9(1) = tris2 : amb9(2) = ul2
                                    ImpostaGiocata 1,amb1,ruote,posta,clp
                                    ImpostaGiocata 2,amb2,ruote,posta,clp
                                    ImpostaGiocata 3,amb3,ruote,posta,clp
                                    ImpostaGiocata 4,amb4,ruote,posta,clp
                                    ImpostaGiocata 5,amb5,ruote,posta,clp
                                    ImpostaGiocata 6,amb6,ruote,posta,clp
                                    ImpostaGiocata 7,qua1,ruote,posta,clp
                                    ImpostaGiocata 8,qua2,ruote,posta,clp
                                    ImpostaGiocata 9,amb7,ruote,posta,clp
                                    ImpostaGiocata 10,amb8,ruote,posta,clp
                                    ImpostaGiocata 11,amb9,ruote,posta,clp
                                    Gioca(Es + 2)
                                End If
                            End If
                        End If
                    End If
                    'End If
                    'End If
                Next
            Next
        Next
    Next
    If ScriptInterrotto Then Exit For
Next
ScriviResoconto
End Sub
 
Ultima modifica:

herat

Advanced Member
salvo50;n2074166 ha scritto:
Ciao a Tutti!



Ho finito lo script, però l'ho fatto con la ricerca solo in verticale, non incrociati, per quelli incrociati faccio un altro script praticamente gemello di questo ma con le somme solo incrociate, perche non riesco a fare le due cose insieme, per il calcolo del punto medio ho usato la tua formula.
la ricerca dei risultati l'ho fatto per un colpo, comunque puoi cambiarlo

Codice:
Option Explicit
Sub Main
Dim Es,Es1,r1,r2,r3,r4,Fin,Ini,caso,clp
Dim a,b,c,d,e,f,p,dia1,dia2,pg,ul1,ul2
Dim s1,s2,s3,s4,s5,s6,cpg1,cpg2,rcpg1,rcpg2
Dim amb1(2),amb2(2),amb3(2),amb4(2),amb5(2),amb6(2)
Dim qua1(4),qua2(4),tris1,tris2,amb7(2),amb8(2),amb9(2)
Dim ruote(4),posta(2),poste(4)
Fin = EstrazioneFin
Ini = EstrazioneFin - 100
clp = 1
For Es = Ini To Fin
AvanzamentoElab Ini,Fin,Es
Es1 = Es + 1
For p = 1 To 5
For r1 = 1 To 9
For r2 = r1 + 1 To 10
For r3 = 1 To 11
If r3 = 11 Then r3 = 12
a = Estratto(Es,r1,p)
b = Estratto(Es,r2,p)
e = Estratto(Es,r3,p)
c = Estratto(Es1,r1,p)
d = Estratto(Es1,r2,p)
f = Estratto(Es1,r3,p)
s1 = Fuori90(a + b)
s2 = Fuori90(c + d)
dia1 = Fuori90(a + d)
dia2 = Fuori90(b + c)
If Distanza(a,c) = 10 And Distanza(b,d) = 10 Then 'Xor Distanza(a,d) = 10 And Distanza(b,c) = 10 Then
If e = s1 Or e = s2 Or e = dia1 Or e = dia2 Or f = s1 Or f = s2 Or f = dia1 Or f = dia2 Then
If a <> s1 And a <> s2 And a <> dia1 And a <> dia2 And b <> s1 And b <> s2 And b <> dia1 And b <> dia2 Then
If c <> s1 And c <> s2 And c <> dia1 And c <> dia2 And d <> s1 And d <> s2 And d <> dia1 And d <> dia2 Then
'CALCOLI PUNTO MEDIO
s3 = Fuori90(a + c)
s4 = s3 / 2
If Cadenza(s4) = Cadenza(a) Then
Else
s4 =(s3 + 90)/2
End If
If Cadenza(s4) = Cadenza(a) Then
'-----------------------------------------------
s5 = Fuori90(b + d)
s6 = s5 /2
If Cadenza(s6) = Cadenza(b) Then
Else
s6 =(s5 + 90)/2
End If
If Cadenza(s6) = Cadenza(b) Then
'-------------------------------------------------
If e = s1 Then cpg1 = a : cpg2 = b : rcpg1 = c : rcpg2 = d
If e = s2 Then cpg1 = c : cpg2 = d : rcpg1 = a : rcpg2 = b
If e = dia1 Then cpg1 = a : cpg2 = d : rcpg1 = b : rcpg2 = c
If e = dia2 Then cpg1 = b : cpg2 = c : rcpg1 = a : rcpg2 = d
'--------------------------------------------
If f = s1 Then cpg1 = a : cpg2 = b : rcpg1 = c : rcpg2 = d
If f = s2 Then cpg1 = c : cpg2 = d : rcpg1 = a : rcpg2 = b
If f = dia1 Then cpg1 = a : cpg2 = d : rcpg1 = b : rcpg2 = c
If f = dia2 Then cpg1 = b : cpg2 = c : rcpg1 = a : rcpg2 = d
If e = s1 Or e = s2 Or e = dia1 Or e = dia2 Then pg = e Else pg = f
tris1 = Fuori90(cpg1 * 3)
tris2 = Fuori90(cpg2 * 3)
ul1 = Fuori90(90 +(pg - tris1))
ul2 = Fuori90(90 +(pg - tris2))
caso = caso + 1
Scrivi String(100,("*")) & " Caso " & Format2(caso)
Scrivi("Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),0,0
Scrivi " " & SiglaRuota(r1) & " " & StringaEstratti(Es,r1),2
Scrivi("Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),0,0
Scrivi " " & SiglaRuota(r2) & " " & StringaEstratti(Es,r2),2
Scrivi
Scrivi("Estrazione n." & Format2(Es1) & " del " & DataEstrazione(Es1)),0,0
Scrivi " " & SiglaRuota(r1) & " " & StringaEstratti(Es1,r1),2
Scrivi("Estrazione n." & Format2(Es1) & " del " & DataEstrazione(Es1)),0,0
Scrivi " " & SiglaRuota(r2) & " " & StringaEstratti(Es1,r2),2
Scrivi
If e = s1 Or e = s2 Or e = dia1 Or e = dia2 Then
Scrivi("Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),0,0
Scrivi " " & SiglaRuota(r3) & " " & StringaEstratti(Es,r3),2
Else
Scrivi("Estrazione n." & Format2(Es1) & " del " & DataEstrazione(Es1)),0,0
Scrivi " " & SiglaRuota(r3) & " " & StringaEstratti(Es1,r3),2
End If
Scrivi
Scrivi SiglaRuota(r1) & " " & Format2(a) & " [ Posizione " & Format2(p) & " ] ",0,0
Scrivi SiglaRuota(r2) & " " & Format2(b) & " [ Posizione " & Format2(p) & " ] "
Scrivi SiglaRuota(r1) & " " & Format2(c) & " [ Posizione " & Format2(p) & " ] ",0,0
Scrivi SiglaRuota(r2) & " " & Format2(d) & " [ Posizione " & Format2(p) & " ] "
Scrivi
Scrivi "Coppie Vert. " & Space(6) & " Somme Oriz" & Space(10) & " Somme diagon."
Scrivi " " & Format2(a) & Space(1) & Format2(b) & Space(16) & Format2(s1) & Space(19) & Format2(dia1)
Scrivi " " & Format2(c) & Space(1) & Format2(d) & Space(16) & Format2(s2) & Space(19) & Format2(dia2)
Scrivi
Scrivi " Coppia che ha generato la somma " & Format2(pg) & " --> " & Format2(cpg1) & " " & Format2(cpg2)
Scrivi " Punto medio tra " & Format2(a) & " e " & Format2(c) & " = " & Format2(s4)
Scrivi " Punto medio tra " & Format2(b) & " e " & Format2(d) & " = " & Format2(s6)
Scrivi
Scrivi
ruote(1) = r1
ruote(2) = r2
ruote(3) = r3
posta(2) = 1
amb1(1) = s4 : amb1(2) = a : amb2(1) = s4 : amb2(2) = c
amb3(1) = s6 : amb3(2) = b : amb4(1) = s6 : amb4(2) = d
amb5(1) = a : amb5(2) = c : amb6(1) = b : amb6(2) = d
qua1(1) = s4 : qua1(2) = s6 : qua1(3) = cpg1 : qua1(4) = cpg2
qua2(1) = s4 : qua2(2) = s6 : qua2(3) = rcpg1 : qua2(4) = rcpg2
amb7(1) = tris1 : amb7(2) = tris2
amb8(1) = tris1 : amb8(2) = ul1
amb9(1) = tris2 : amb9(2) = ul2
ImpostaGiocata 1,amb1,ruote,posta,clp
ImpostaGiocata 2,amb2,ruote,posta,clp
ImpostaGiocata 3,amb3,ruote,posta,clp
ImpostaGiocata 4,amb4,ruote,posta,clp
ImpostaGiocata 5,amb5,ruote,posta,clp
ImpostaGiocata 6,amb6,ruote,posta,clp
ImpostaGiocata 7,qua1,ruote,posta,clp
ImpostaGiocata 8,qua2,ruote,posta,clp
ImpostaGiocata 9,amb7,ruote,posta,clp
ImpostaGiocata 10,amb8,ruote,posta,clp
ImpostaGiocata 11,amb9,ruote,posta,clp
Gioca Es
End If
End If
End If
End If
End If
End If
Next
Next
Next
Next
If ScriptInterrotto Then Exit For
Next
ScriviResoconto
End Sub
Ti ringrazio infinitamente!

Unica cosa: il resoconto inizia dalla seconda estrazione di rilevamento, come posso farla iniziare dal colpo successivo?

Grazie;)
 

salvo50

Advanced Member >PLATINUM PLUS<
Sinceramente non lo sò, vediamo se lo sà Joe o I Leggend, ti posto l'altro script quello del punto medio incrociato, lo fatto per lo stesso periodo dell'altro e qui ci sono 7 casi.

L'ho tolto perchè la distanza incrociata non è menzionata da Herat
 
Ultima modifica:

joe

Advanced Member >PLATINUM PLUS<
herat;n2074172 ha scritto:
Ti ringrazio infinitamente!

Unica cosa: il resoconto inizia dalla seconda estrazione di rilevamento, come posso farla iniziare dal colpo successivo?

Grazie;)


Effettivamente, così è sbagliato.

Perchè si dà per sconosciuta "es+1" ... scrivendo "gioca es".

Mentre per contro "es+1" la si è già utilizzata per i calcoli.

Si può provare ... settando ad "Es-1" l' estrazione_derivata.

Dovrebbe funzionare ma al momento non posso verificarlo.

:)
 
Ultima modifica:

salvo50

Advanced Member >PLATINUM PLUS<
joe;n2074199 ha scritto:
Effettivamente, così è sbagliato.

Perchè si dà per sconosciuta "es+1" ... scrivendo "gioca es".

Mentre per contro "es+1" la si è già utilizzata per i calcoli.

Si può provare ... settando ad "Es-1" l' estrazione_derivata.

Dovrebbe funzionare ma al momento non posso verificarlo.

:)

Ciao Joe, è come hai detto, adesso correggo i due script, grazie.
 

i legend

Premium Member
Ciao a tutti
ho provato a impostare lo script per la solo ricerca dei casi senza considerare i calcoli della previsione
nello script ho eliminato quelli su medesima colonna
ma come fare ad eliminare i casi multipli nella stessa estrazione?
posto un esempio magari ho interpretato male la ricerca.
il terzo elemento sulla ruota d appoggio è ricercato solo nella seconda estrazione utile della condizione.
ecco l immagine di un esempio. in 100 estrazioni ho trovato 45 casi perchè ve ne possono essere piu d uno nella medesima estrazione
Test1.png
Sarei curioso di capire quanti riscontri ha Joe
Ciao a tutti:)
P.S: probabilmente ho sbagliato qualcosa perché ho fatto tutto dopo cena e particolarmente stanco :)
 

joe

Advanced Member >PLATINUM PLUS<
Ciao,

ho 15 casi nelle ultime 100 Estrazioni.

Nel messaggio precedente ...

Ho provato a postare l'output dello script, ma è sparito.

:)
 

joe

Advanced Member >PLATINUM PLUS<
HTML:
------------------------------------------------------------    1
17.12.2016  BA 12  GE 16  28
20.12.2016  BA 02  GE 26  28
Somma Diag.    38     18
18
28  RIPETUTA
38

------------------------------------------------------------    2
17.12.2016  BA 12  NZ 80  02
20.12.2016  BA 02  NZ 90  02
Somma Diag.    12     82
2  RIPETUTA
12
82

------------------------------------------------------------    3
17.12.2016  GE 16  NZ 80  06
20.12.2016  GE 26  NZ 90  26
Somma Diag.    16     16
6
16  RIPETUTA
26

------------------------------------------------------------    4
24.12.2016  GE 34  NA 19  53
27.12.2016  GE 24  NA 09  33
Somma Diag.    43     43
33
43  RIPETUTA
53

------------------------------------------------------------    5
07.01.2017  GE 79  NA 61  50
10.01.2017  GE 69  NA 51  30
Somma Diag.    40     40
30
40  RIPETUTA
50

------------------------------------------------------------    6
02.02.2017  NA 44  VE 61  15
04.02.2017  NA 54  VE 71  35
Somma Diag.    25     25
15
25  RIPETUTA
35

------------------------------------------------------------    7
14.03.2017  BA 77  GE 82  69
16.03.2017  BA 67  GE 02  69
Somma Diag.    79     59
59
69  RIPETUTA
79

------------------------------------------------------------    8
30.03.2017  GE 86  VE 66  62
01.04.2017  GE 06  VE 76  82
Somma Diag.    72     72
62
72  RIPETUTA
82

------------------------------------------------------------    9
04.04.2017  PA 05  NZ 82  87
06.04.2017  PA 85  NZ 02  87
Somma Diag.    07     77
7
77
87  RIPETUTA

------------------------------------------------------------   10
08.04.2017  BA 70  VE 89  69
11.04.2017  BA 60  VE 09  69
Somma Diag.    79     59
59
69  RIPETUTA
79

------------------------------------------------------------   11
02.05.2017  MI 16  VE 71  87
04.05.2017  MI 06  VE 61  67
Somma Diag.    77     77
67
77  RIPETUTA
87

------------------------------------------------------------   12
04.05.2017  RO 39  NZ 40  79
06.05.2017  RO 29  NZ 30  59
Somma Diag.    69     69
59
69  RIPETUTA
79

------------------------------------------------------------   13
06.05.2017  CA 45  GE 72  27
09.05.2017  CA 35  GE 62  07
Somma Diag.    17     17
7
17  RIPETUTA
27

------------------------------------------------------------   14
13.05.2017  FI 88  PA 40  38
16.05.2017  FI 08  PA 30  38
Somma Diag.    28     48
28
38  RIPETUTA
48

------------------------------------------------------------   15
18.05.2017  RO 04  NZ 38  42
20.05.2017  RO 84  NZ 28  22
Somma Diag.    32     32
22
32  RIPETUTA
42
 

i legend

Premium Member
Ciao Joe grazie
se ho capito bene tu hai preso in considerazione solo la ricerca della somma ripetuta .
ok provo filtrare e vedere se giungiamo alle stesse conclusioni
Ciao a tutti.
oggi ho avuto piu problemi del solito a collegarmi al sito
a Stasera :)
 

salvo50

Advanced Member >PLATINUM PLUS<
Ciao I Leggend!

Io ho 11 riscontri e in questi riscontri una delle somme, o verticale o incrociata è sempre ripetuta, praticamente nei miei una delle 2 somme è sempre ripetuta, non sò se a voi succede la stessa cosa, a riguardo della ricerca della somma ripetuta, ti stai sbagliando, è al contrario, Herat a pagina 7 lo spiega, lei vorrebbe (se è possibile) che si usasse solo una delle 2 somme non uguali, ti riporto quello che ha scritto Herat, forse ho capito male io
-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Ultima cosa: ho notato che i casi ottimali sono quelli nei quali la somma Isotopa non è la Somma uguale: nel caso inventato che ho esposto la somma comune era 57 mentre le due somme diverse sono 47-67, il caso è ottimale perché nella terza posizione doveva esserci una delle due somme diverse 47 o 67.
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
ho solo corretto gli errori di battitura
 

i legend

Premium Member
Ciao sto impazzendo con un bug
non so se i calcoli siano corretti
posto 2 esempi:
esempio 1:
bTest1.png
esempio 2:
bTest2.png
se risolvo posto lo script altrimenti aspettiamo quello di joe
ho impostato i colpi a 18
 

joe

Advanced Member >PLATINUM PLUS<
Ciao, I legend.

Non so se può esserti d'aiuto, comunque sia,

provo con questo approccio:

Normalmente non ci sono indicazioni e si procede per tentativi.

Qui, c'erano esempi sin dal primo post.

Ma, anche gli esempi a volte non sono sufficienti.

Quindi che, ci sia, una posizione o una somma ripetuta,

può essere sia un caso, che una indicazione.

Se è indicazione ... può essere ... quanto richiesto.

Senza che sia noto si può essere indirizzati ad "una soluzione" o ad una "altra".

Essendo esse differenti, una delle 2, può essere errata.

In sintesi sembra che tu abbia cercato in posizioni-generiche ottenendo

un maggior numero di risultati.

Quello che è statisticamente strano è che in 3 "casi" su 3,

si sia stati ingannati, dal "tranello" che non c'è.

:)
 
Ultima modifica:

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 28 marzo 2024
    Bari
    49
    73
    67
    86
    19
    Cagliari
    64
    36
    37
    02
    04
    Firenze
    66
    27
    44
    90
    17
    Genova
    09
    44
    78
    85
    19
    Milano
    70
    14
    47
    38
    27
    Napoli
    80
    29
    28
    45
    39
    Palermo
    54
    59
    78
    47
    62
    Roma
    17
    22
    49
    52
    88
    Torino
    71
    35
    75
    74
    60
    Venezia
    40
    84
    02
    63
    29
    Nazionale
    08
    13
    44
    69
    85
    Estrazione Simbolotto
    Firenze
    06
    35
    16
    18
    05
Alto