Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
Armonia Quadratica - di Fabarri
- Creatore Discussione salvo50
- Data di inizio
salvo50
Advanced Member >PLATINUM PLUS<
Ciao a Tutti!
Ho applicato l'algoritmo scoperto da Enplein, ed ho inserito anche le combinazioni dove la differenza diversa viene in orizzontale ed in verticale, prima (negli script già postati )avevo inserito solo le combinazioni dove la differenza errata veniva solo nei calcoli incrociati (o diagonali). Però in ogni combinazione vengono quasi sempre 2 numeri uguali e questo avviene perche nei calcoli fatti a mano per far venire le tre differenze tutte uguali, a volte si fa la differenza ed anche la distanza assieme, lo script o fa la differenza oppure fa la distanza, si potrebbe fare in modo di fargli fare le due combinazioni distanza e differenza insieme finche non trova la combinazione giusta, però non ho idea di come farlo. Ecco lo script
Ho applicato l'algoritmo scoperto da Enplein, ed ho inserito anche le combinazioni dove la differenza diversa viene in orizzontale ed in verticale, prima (negli script già postati )avevo inserito solo le combinazioni dove la differenza errata veniva solo nei calcoli incrociati (o diagonali). Però in ogni combinazione vengono quasi sempre 2 numeri uguali e questo avviene perche nei calcoli fatti a mano per far venire le tre differenze tutte uguali, a volte si fa la differenza ed anche la distanza assieme, lo script o fa la differenza oppure fa la distanza, si potrebbe fare in modo di fargli fare le due combinazioni distanza e differenza insieme finche non trova la combinazione giusta, però non ho idea di come farlo. Ecco lo script
Codice:
'Progetto - ARMONIA QUADRATICA - by FABARRI
'Script - by Salvo50 con la collaborazione di Enplein
Option Explicit
Dim r1,p1,p2,es,r2,clp,esq,caso
Dim fin,Ini,ru(2),poste(5)
Dim idestr,col,esqcol,nn1(2),nn2(2)
Dim dist12ve,dist34ve,dist13or,dist24or,dist14in,dist32in
Dim estr1,estr2,estr3,estr4,findiffor,findiffve,findiffin
Dim pestr1,mestr1,pestr2,mestr2,pestr3,mestr3,pestr4,mestr4
Sub Main
Scrivi
Scrivi
'poste(1) = 1
poste(2) = 1
fin = EstrazioneFin
esq = InputBox("Inserisci l'estrazione che vuoi iniziare",idestr,9160)
clp = CInt(InputBox("Per quanti colpi vuoi fare la ricerca",,3))
col = CInt(InputBox(" Quante estrazioni vuoi controllare ",,150))
caso = 0
esqcol = esq + col
If esqcol > fin Then esqcol = fin
For es = esq To esqcol
AvanzamentoElab esq,esqcol,es
For r1 = 1 To 10
For r2 = r1 + 1 To 11
If r2 = 11 Then r2 = 12
For p1 = 1 To 4
For p2 = p1 + 1 To 5
estr1 = Estratto(es,r1,p1)
estr2 = Estratto(es,r1,p2)
estr3 = Estratto(es,r2,p1)
estr4 = Estratto(es,r2,p2)
ru(1) = r1
ru(2) = r2
If Differenza(estr1,estr4) = 45 Then
If estr1 <> estr2 And estr1 <> estr3 And estr1 <> estr4 Then
If estr2 <> estr3 And estr2 <> estr4 And estr3 <> estr4 Then
If Differenza(estr2,estr3) <> 45 Then
armoni ' calcoli per differenze
If findiffor = findiffve And findiffor <> findiffin Or findiffor = findiffin And findiffor <> findiffve Or findiffve = findiffin And findiffve <> findiffor Then
pestr3 = Fuori90((estr1) + dist13or)
mestr3 = Fuori90((estr1) - dist13or)
If pestr3 = estr3 Then estr3 = mestr3
Else
estr3 = pestr3
End If
pestr2 = Fuori90((estr4) + dist24or)
mestr2 = Fuori90((estr4) - dist24or)
If pestr2 = estr2 Then estr2 = mestr2
Else
estr2 = pestr2
End If
End If
End If
End If
armoni ' calcoli per differenze
If findiffor = findiffve And findiffor = findiffin And findiffve = findiffin Then
If Differenza(estr1,estr4) = 45 Then
scriv
nn1(1) = estr1
nn1(2) = estr3
ImpostaGiocata 1,nn1,ru,poste,clp
nn2(1) = estr2
nn2(2) = estr4
ImpostaGiocata 2,nn2,ru,poste,clp
End If
End If
If Differenza(estr2,estr3) = 45 Then
If estr1 <> estr2 And estr1 <> estr3 And estr1 <> estr4 Then
If estr2 <> estr3 And estr2 <> estr4 And estr3 <> estr4 Then
If Differenza(estr1,estr4) <> 45 Then
armoni ' calcoli per differenze
If findiffor = findiffve And findiffor <> findiffin Or findiffor = findiffin And findiffor <> findiffve Or findiffve = findiffin And findiffve <> findiffor Then
pestr1 = Fuori90((estr3) + dist13or)
mestr1 = Fuori90((estr3) - dist13or)
If pestr1 = estr1 Then estr1 = mestr1
Else
estr1 = pestr1
End If
pestr4 = Fuori90((estr2) + dist24or)
mestr4 = Fuori90((estr2) - dist24or)
If pestr4 = estr4 Then estr4 = mestr4
Else
estr4 = pestr4
End If
End If
End If
End If
armoni ' calcoli per differenze
If findiffor = findiffve And findiffor = findiffin And findiffve = findiffin Then
If Differenza(estr2,estr3) = 45 Then
scriv
nn1(1) = estr1
nn1(2) = estr3
ImpostaGiocata 3,nn1,ru,poste,clp
nn2(1) = estr2
nn2(2) = estr4
ImpostaGiocata 4,nn2,ru,poste,clp
End If
Gioca es
End If
Next
Next
Next
Next
Next
ScriviResoconto
End Sub
Function armoni
'distanze orizzontali tra i due ambi
dist13or = Differenza(estr1,estr3)
dist24or = Differenza(estr2,estr4)
'distanze verticali tra i due ambi
dist12ve = Differenza(estr1,estr2)
dist34ve = Differenza(estr3,estr4)
'distanze incrociate tra i due ambi
dist14in = Differenza(estr1,estr4)
dist32in = Differenza(estr3,estr2)
'differenze finali
findiffor = Differenza(dist13or,dist24or)
findiffve = Differenza(dist12ve,dist34ve)
findiffin = Differenza(dist14in,dist32in)
End Function
Function scriv
Scrivi(" Estrazione n." & Format2(es) & " del " & DataEstrazione(es)),0,0
Scrivi " " & Left(NomeRuota(r1),2) & " " & StringaEstratti(es,r1) & " Seconda Ruota " & Left(NomeRuota(r2),2) & " " & StringaEstratti(es,r2),1
Scrivi " Ambi comp. " & Space(6) & " Diff. Oriz" & Space(10) & " Diff. Vert." & Space(10) & "Diff. incr. "
Scrivi " " & Format2(estr1) & Space(1) & Format2(estr3) & Space(16) & Format2(dist13or) & Space(19) & Format2(dist12ve) & Space(19) & Format2(dist14in)
Scrivi " " & Format2(estr2) & Space(1) & Format2(estr4) & Space(16) & Format2(dist24or) & Space(19) & Format2(dist34ve) & Space(19) & Format2(dist32in)
caso = caso + 1
Scrivi "---------------------------------------------------------------------------------------" & caso
Scrivi "Armonia Quadratica " & Format2(findiffor) & Space(19) & Format2(findiffve) & Space(19) & Format2(findiffin)
ColoreTesto 1
Scrivi "***************************************************************************************"
ColoreTesto 0
End Function
Ultima modifica:
vincenzo4221
Advanced Member >PLATINUM<
Ciao a tutti gli amici dei numeri , ieri è stata estratta su NA e PA una struttura ciclometrica.... chiedo un aiuto per defiinire nire eventuale proposta di pronostico...coppia con distanza orizontale 45 oltre alla presenza dl n.ro 4 in comune ed un isotopia con i numeri in terzina simmetrica 07 e 37 ...quindi NA 56 11 04 67 e PA 08 53 04 07...
Si può utilizzare , qualcuno deigli script , di cui sopra?
Si auspica partecipazione. vista l'allettante opportunità di sviluppo.
Si può utilizzare , qualcuno deigli script , di cui sopra?
Si auspica partecipazione. vista l'allettante opportunità di sviluppo.
salvo50
Advanced Member >PLATINUM PLUS<
vincenzo4221;n2060300 ha scritto:
Nell'Armonia Quadratica la distanza 45 è tra le due ruote, però (secondo me) se uno vuole farlo con la stessa ruota può farlo, non applicando gli script di cui sopra, perchè per come sono strutturati se non trovano distanza 45 tra le due ruote, quella combinazione trovata da te, gli script la scartano, ma lo script si può modificare, adesso lo faccio e vediamo cosa pronostica per stasera.
Ciao!
Ultima modifica:
salvo50
Advanced Member >PLATINUM PLUS<
Dopo molti tentativi sono arrivato ad una conclusione, lo script l'avevo modificato bene, anche perchè non c'è molto da modificare, non uscivano i casi giocabili perchè non c'erano casi giocabili, con la differenza 45 in una o l'altra ruota o tutte due, ho appurato che l'Armonia Quadratica non si verifica spesso, dovrebbe essere la stessa cosa ma non è così, per rendermi conto di questo lo script lo rivoltato come un calzino, alla fine ho fatto i calcoli a mano con carta e penna e mi sono reso conto di quello che ho scritto sopra, così ho aggiornato fino alla 9308, l'ultima estrazione, lanciato lo script ripetendo tutte le volte un'estrazione in meno finchè all'estrazione 9295 si è presentato un caso con Armonia Quadratica nelle ruote di Cagliari Palermo, con la differenza 45 nella ruota di Cagliari.
Non ho messo lo script perchè voglio modificarlo in modo da poter decidere se fare la ricerca con la differenza 45 su due ruote o su una sola ruota.
Non ho messo lo script perchè voglio modificarlo in modo da poter decidere se fare la ricerca con la differenza 45 su due ruote o su una sola ruota.
Enplein
Super Member >PLATINUM<
vincenzo4221;n2060300 ha scritto:
Ciao a Tutti, volendo la metodica si può applicare anche su ruota, l'importante
è che la differenza delle distanze oriz. e vert. siano identiche; infatti la quartina di
PA 08.53.04.07 si dimostra idonea per l'armonia quadratica.
......................................Or.Vr.Dg.
08 04.............................04 01 45
07.53.............................44 41 03
--------------------------------------------
......................................40 40 42
[12] (+04) 08 (-04) 04 1° Ambo armonizzato 12.08
07 (+44) 53 (-44) [09] 2° Ambo armonizzato 53.09
Previsione :
Ambi 12.08 / 53.09 su TU+NZ
Ambo 12.08.53.09 su PA
E' semplicemente un mia personale considerazione.
Ciao, Enplein.
salvo50
Advanced Member >PLATINUM PLUS<
Ciao!
Vincenzo4221 mi aveva chiesto se si potevano utilizzare gli script che ho postato, ed io ho risposto di no, perchè gli script fanno i calcoli con la differenza, cioè il più alto meno il più piccolo, perche avevamo visto con Joe che il Fabarri parla di differenza nell'articolo, poi Vincenzo4221 mi aveva detto di combinare i numeri di Napoli con quelli di Palermo, quindi io non ci ho proprio pensato di usare i numeri di una sola ruota, comunque dopo che si sono trovati i numeri con l'algoritmo, bisogna vedere se con quei numeri trovati si raggiunge l'armonia quadratica, quindo copio ed incollo quello che hai scritto
.....................................Or.Vr.Dg.
08 04.............................04 01 45
07.53.............................44 41 03
--------------------------------------------
......................................40 40 42
[12] (+04) 08 (-04) 04 1° Ambo armonizzato 12.08
07 (+44) 53 (-44) [09] 2° Ambo armonizzato 53.09
scusa ho sbagliato ed è partito il post, prima di finire il discorso,
continuo con un'altro post
Vincenzo4221 mi aveva chiesto se si potevano utilizzare gli script che ho postato, ed io ho risposto di no, perchè gli script fanno i calcoli con la differenza, cioè il più alto meno il più piccolo, perche avevamo visto con Joe che il Fabarri parla di differenza nell'articolo, poi Vincenzo4221 mi aveva detto di combinare i numeri di Napoli con quelli di Palermo, quindi io non ci ho proprio pensato di usare i numeri di una sola ruota, comunque dopo che si sono trovati i numeri con l'algoritmo, bisogna vedere se con quei numeri trovati si raggiunge l'armonia quadratica, quindo copio ed incollo quello che hai scritto
.....................................Or.Vr.Dg.
08 04.............................04 01 45
07.53.............................44 41 03
--------------------------------------------
......................................40 40 42
[12] (+04) 08 (-04) 04 1° Ambo armonizzato 12.08
07 (+44) 53 (-44) [09] 2° Ambo armonizzato 53.09
scusa ho sbagliato ed è partito il post, prima di finire il discorso,
continuo con un'altro post
Ultima modifica:
salvo50
Advanced Member >PLATINUM PLUS<
.....................................Or.Vr.Dg.
08 04.............................04 01 45
07.53.............................44 41 03
--------------------------------------------
......................................40 40 42
[12] (+04) 08 (-04) 04 1° Ambo armonizzato 12.08
07 (+44) 53 (-44) [09] 2° Ambo armonizzato 53.09
riprendo di dove avevo interrotto, quindi adesso abbiamo
.....................................Or.Vr.Dg.
08 12.............................04 01 45
09.53.............................44 41 03
--------------------------------------------
......................................40 40 42
non è venuta l'armonia quadratica, sempre se ho fatto i calcoli giusti.
Io lo script lo fatto così, dopo aver applicato l'algoritmo e trovato i nuovi numeri, gli faccio rifare di nuovo i conteggi per vedere se si è raggiunta l'armonia quadratica, se non si è raggiunta l'armonia quadratica lo script non la conteggia e passa ad un altra combinazione di 4 numeri.
Comunque quello di usare i numeri ottenuti senza fare la verifica, può essere un idea, magari faccio un altro script e vediamo cosa succede.
08 04.............................04 01 45
07.53.............................44 41 03
--------------------------------------------
......................................40 40 42
[12] (+04) 08 (-04) 04 1° Ambo armonizzato 12.08
07 (+44) 53 (-44) [09] 2° Ambo armonizzato 53.09
riprendo di dove avevo interrotto, quindi adesso abbiamo
.....................................Or.Vr.Dg.
08 12.............................04 01 45
09.53.............................44 41 03
--------------------------------------------
......................................40 40 42
non è venuta l'armonia quadratica, sempre se ho fatto i calcoli giusti.
Io lo script lo fatto così, dopo aver applicato l'algoritmo e trovato i nuovi numeri, gli faccio rifare di nuovo i conteggi per vedere se si è raggiunta l'armonia quadratica, se non si è raggiunta l'armonia quadratica lo script non la conteggia e passa ad un altra combinazione di 4 numeri.
Comunque quello di usare i numeri ottenuti senza fare la verifica, può essere un idea, magari faccio un altro script e vediamo cosa succede.
Enplein
Super Member >PLATINUM<
salvo50;n2060494 ha scritto:
...scusa salvo, l'armonizzazione viene applicata usando i due ambi trovati una alla volta.
[12] (+04) 08 (-04) 04 1° Ambo armonizzato 12.08
07 (+44) 53 (-44) [09] 2° Ambo armonizzato 53.09
1° Quadrato
..............Or.Vr.Dg.
08.12.....04 01 45
07.53.....44 41 05
-----------------------
..............40 40 40
2° Quadrato
..............Or.Vr.Dg.
08.04.....04 01 45
09.53.....44 41 05
-----------------------
..............40 40 40
Ciao, Enplein.
salvo50
Advanced Member >PLATINUM PLUS<
L'ho fatto, la prima parte dei calcoli con le distanze e la seconda parte con le differenze, perchè con solo le differenze, su 308 estrazioni venivano fuori solo 17 casi possibili di armonia quadratica, invece adesso su 308 estrazioni son venute fuori 1533 casi di armonia quadratica, lo posto, però ha un difetto che non riesco a togliere, i risultati sulle distanze diametrali con differenza 45 negli estratti 1 e 4 li fa, invece con la distanza 45 sugli estratti 2 e 3 i calcoli e visualizzazioni non li fà, non è un errore di calcoli perche ho preso tutta la parte che riguardava la distanza 45 sugli estratti 2 e 3 e messo in un'altro script nuovo e funziona.
Codice:
'Progetto - ARMONIA QUADRATICA - by FABARRI
'Script - by Salvo50 con la collaborazione di Enplein
Option Explicit
Dim r1,p1,p2,es,r2,clp,esq,caso,casi
Dim fin,Ini,ru(2),poste(5)
Dim idestr,col,esqcol
Dim dist13ve,dist24ve,dist12or,dist34or,dist14in,dist23in
Dim estr1,estr2,estr3,estr4,findiffor,findiffve,findiffin
Dim pestr1,mestr1,pestr2,mestr2,pestr3,mestr3,pestr4,mestr4
Dim e1,e2,nn1(2),nn2(2),nn3(2),nn4(2),nn5(2),nn6(2),nn7(2),nn8(2)
Sub Main
Scrivi
Scrivi
'poste(1) = 1
poste(2) = 1
fin = EstrazioneFin
esq = InputBox("Inserisci l'estrazione che vuoi iniziare",idestr,9000)
clp = CInt(InputBox("Per quanti colpi vuoi fare la ricerca",,1))
col = CInt(InputBox(" Quante estrazioni vuoi controllare ",,30))
esqcol = esq + col
If esqcol > fin Then esqcol = fin
For es = esq To esqcol
AvanzamentoElab esq,esqcol,es
ColoreTesto 2
Scrivi String(99,"*") & " Estraz. " & Format2(es)
ColoreTesto 0
Scrivi
caso = 0
For r1 = 1 To 10
For r2 = r1 + 1 To 11
If r2 = 11 Then r2 = 12
For p1 = 1 To 4
For p2 = p1 + 1 To 5
estr1 = Estratto(es,r1,p1)
estr2 = Estratto(es,r1,p2)
estr3 = Estratto(es,r2,p1)
estr4 = Estratto(es,r2,p2)
e1 = estr1
e2 = estr2
ru(1) = r1
ru(2) = r2
If Differenza(estr1,estr4) = 45 Then
If estr1 <> estr2 And estr1 <> estr3 And estr1 <> estr4 Then
If estr2 <> estr3 And estr2 <> estr4 And estr3 <> estr4 Then
If Differenza(estr2,estr3) <> 45 Then
quadratura ' calcoli per differenze
If findiffor = findiffve And findiffor <> findiffin Or findiffor = findiffin And findiffor <> findiffve Or findiffve = findiffin And findiffve <> findiffor Then
pestr2 = Fuori90((estr1) + dist12or)
mestr2 = Fuori90((estr1) - dist12or)
If pestr2 = estr2 Then estr2 = mestr2
Else
estr2 = pestr2
End If
quadratura ' calcoli per differenze
If findiffor = findiffve And findiffor = findiffin And findiffve = findiffin Then
If Differenza(estr1,estr4) = 45 Then
scriv
nn1(1) = estr1
nn1(2) = estr2
ImpostaGiocata 1,nn1,ru,poste,clp
nn2(1) = estr3
nn2(2) = estr4
ImpostaGiocata 2,nn2,ru,poste,clp
End If
Gioca es
estr2 = e2
quadratura
pestr3 = Fuori90((estr4) + dist34or)
mestr3 = Fuori90((estr4) - dist34or)
If pestr3 = estr3 Then estr3 = mestr3
Else
estr3 = pestr3
End If
quadratura ' calcoli per differenze
If findiffor = findiffve And findiffor = findiffin And findiffve = findiffin Then
scriv
If Differenza(estr1,estr4) = 45 Then
nn3(1) = estr1
nn3(2) = estr2
ImpostaGiocata 3,nn3,ru,poste,clp
nn4(1) = estr3
nn4(2) = estr4
ImpostaGiocata 4,nn4,ru,poste,clp
End If
Gioca es
End If
End If
End If
End If
End If
'Scrivi "***********************************************************************************************************"
If Differenza(estr2,estr3) = 45 Then
If estr1 <> estr2 And estr1 <> estr3 And estr1 <> estr4 Then
If estr2 <> estr3 And estr2 <> estr4 And estr3 <> estr4 Then
If Differenza(estr1,estr4) <> 45 Then
quadratura ' calcoli per differenze
If findiffor = findiffve And findiffor <> findiffin Or findiffor = findiffin And findiffor <> findiffve Or findiffve = findiffin And findiffve <> findiffor Then
pestr1 = Fuori90((estr2) + dist12or)
mestr1 = Fuori90((estr2) - dist12or)
If pestr1 = estr1 Then estr1 = mestr1
Else
estr1 = pestr1
End If
quadratura ' calcoli per differenze
If findiffor = findiffve And findiffor = findiffin And findiffve = findiffin Then
If Differenza(estr2,estr3) = 45 Then
scriv
nn5(1) = estr1
nn5(2) = estr2
ImpostaGiocata 5,nn5,ru,poste,clp
nn6(1) = estr3
nn6(2) = estr4
ImpostaGiocata 6,nn6,ru,poste,clp
End If
Gioca es
End If
End If
estr1 = e1
quadratura
pestr4 = Fuori90((estr3) + dist34or)
mestr4 = Fuori90((estr3) - dist34or)
If pestr4 = estr4 Then estr4 = mestr4
Else
estr4 = pestr4
End If
quadratura ' calcoli per differenze
If findiffor = findiffve And findiffor = findiffin And findiffve = findiffin Then
If Differenza(estr2,estr3) = 45 Then
scriv
nn7(1) = estr1
nn7(2) = estr2
ImpostaGiocata 7,nn7,ru,poste,clp
nn8(1) = estr3
nn8(2) = estr4
ImpostaGiocata 8,nn8,ru,poste,clp
End If
Gioca es
End If
End If
End If
Next
Next
Next
Next
Next
ScriviResoconto
End Sub
Function quadratura
'distanze orizzontali tra i due ambi
dist12or = Distanza(estr1,estr2)
dist34or = Distanza(estr3,estr4)
'distanze verticali tra i due ambi
dist13ve = Distanza(estr1,estr3)
dist24ve = Distanza(estr2,estr4)
'distanze incrociate tra i due ambi
dist14in = Distanza(estr1,estr4)
dist23in = Distanza(estr2,estr3)
'differenze finali
findiffor = Differenza(dist12or,dist34or)
findiffve = Differenza(dist13ve,dist24ve)
findiffin = Differenza(dist14in,dist23in)
End Function
Function scriv
caso = caso + 1
casi = casi + 1
ColoreTesto 1
Scrivi String(90,"*") & " Caso N" & Format2(caso) & " Estraz. " & Format2(es)
Scrivi String(90,"*") & " Casi Totali N" & Format2(casi)
Scrivi(" Estrazione n." & Format2(es) & " del " & DataEstrazione(es)),0,0
Scrivi " " & Left(NomeRuota(r1),2) & " " & StringaEstratti(es,r1) & " Seconda Ruota " & Left(NomeRuota(r2),2) & " " & StringaEstratti(es,r2),1
Scrivi " Ambi comp. " & Space(6) & " Diff. Oriz" & Space(10) & " Diff. Vert." & Space(10) & "Diff. incr. "
Scrivi " " & Format2(estr1) & Space(1) & Format2(estr2) & Space(16) & Format2(dist12or) & Space(19) & Format2(dist13ve) & Space(19) & Format2(dist14in)
Scrivi " " & Format2(estr3) & Space(1) & Format2(estr4) & Space(16) & Format2(dist34or) & Space(19) & Format2(dist24ve) & Space(19) & Format2(dist23in)
Scrivi "---------------------------------------------------------------------------------------"
Scrivi "Armonia Quadratica " & Format2(findiffor) & Space(19) & Format2(findiffve) & Space(19) & Format2(findiffin)
ColoreTesto 0
End Function
Ultima modifica:
salvo50
Advanced Member >PLATINUM PLUS<
Ciao a Tutti!
Posto l'altro script, quello con distanza 45 solo negli estratti 2 e 3.
Posto l'altro script, quello con distanza 45 solo negli estratti 2 e 3.
Codice:
'Progetto - ARMONIA QUADRATICA - by FABARRI
'Script - by Salvo50 con la collaborazione di Enplein
'Cerca le combinazioni che hanno la differenza 45 tra gli estratti 2 e 3
Dim r1,p1,p2,es,r2,clp,esq,caso,casi
Dim fin,Ini,ru(2),poste(5)
Dim idestr,col,esqcol
Dim dist13ve,dist24ve,dist12or,dist34or,dist14in,dist23in
Dim estr1,estr2,estr3,estr4,findiffor,findiffve,findiffin
Dim pestr1,mestr1,pestr2,mestr2,pestr3,mestr3,pestr4,mestr4
Dim e1,e2,nn1(2),nn2(2),nn3(2),nn4(2)
Sub Main
Scrivi
Scrivi
'poste(1) = 1
poste(2) = 1
fin = EstrazioneFin
esq = InputBox("Inserisci l'estrazione che vuoi iniziare",idestr,9000)
clp = CInt(InputBox("Per quanti colpi vuoi fare la ricerca",,1))
col = CInt(InputBox(" Quante estrazioni vuoi controllare ",,30))
esqcol = esq + col
If esqcol > fin Then esqcol = fin
For es = esq To esqcol
AvanzamentoElab esq,esqcol,es
ColoreTesto 2
Scrivi String(99,"*") & " Estraz. " & Format2(es)
ColoreTesto 0
Scrivi
caso = 0
For r1 = 1 To 10
For r2 = r1 + 1 To 11
If r2 = 11 Then r2 = 12
For p1 = 1 To 4
For p2 = p1 + 1 To 5
estr1 = Estratto(es,r1,p1)
estr2 = Estratto(es,r1,p2)
estr3 = Estratto(es,r2,p1)
estr4 = Estratto(es,r2,p2)
e1 = estr1
e2 = estr2
ru(1) = r1
ru(2) = r2
If Differenza(estr2,estr3) = 45 Then
If estr1 <> estr2 And estr1 <> estr3 And estr1 <> estr4 Then
If estr2 <> estr3 And estr2 <> estr4 And estr3 <> estr4 Then
If Differenza(estr1,estr4) <> 45 Then
quadratura ' calcoli per differenze
If findiffor = findiffve And findiffor <> findiffin Or findiffor = findiffin And findiffor <> findiffve Or findiffve = findiffin And findiffve <> findiffor Then
pestr1 = Fuori90((estr2) + dist12or)
mestr1 = Fuori90((estr2) - dist12or)
If pestr1 = estr1 Then estr1 = mestr1
Else
estr1 = pestr1
End If
quadratura ' calcoli per differenze
If findiffor = findiffve And findiffor = findiffin And findiffve = findiffin Then
If Differenza(estr2,estr3) = 45 Then
scriv
nn1(1) = estr1
nn1(2) = estr2
ImpostaGiocata 1,nn1,ru,poste,clp
nn2(1) = estr3
nn2(2) = estr4
ImpostaGiocata 2,nn2,ru,poste,clp
End If
Gioca es
End If
End If
estr1 = e1
quadratura
pestr4 = Fuori90((estr3) + dist34or)
mestr4 = Fuori90((estr3) - dist34or)
If pestr4 = estr4 Then estr4 = mestr4
Else
estr4 = pestr4
End If
quadratura ' calcoli per differenze
If findiffor = findiffve And findiffor = findiffin And findiffve = findiffin Then
If Differenza(estr2,estr3) = 45 Then
scriv
nn3(1) = estr1
nn3(2) = estr2
ImpostaGiocata 3,nn3,ru,poste,clp
nn4(1) = estr3
nn4(2) = estr4
ImpostaGiocata 4,nn4,ru,poste,clp
End If
Gioca es
End If
End If
End If
Next
Next
Next
Next
Next
ScriviResoconto
End Sub
Function quadratura
'distanze orizzontali tra i due ambi
dist12or = Distanza(estr1,estr2)
dist34or = Distanza(estr3,estr4)
'distanze verticali tra i due ambi
dist13ve = Distanza(estr1,estr3)
dist24ve = Distanza(estr2,estr4)
'distanze incrociate tra i due ambi
dist14in = Distanza(estr1,estr4)
dist23in = Distanza(estr2,estr3)
'differenze finali
findiffor = Differenza(dist12or,dist34or)
findiffve = Differenza(dist13ve,dist24ve)
findiffin = Differenza(dist14in,dist23in)
End Function
Function scriv
caso = caso + 1
casi = casi + 1
ColoreTesto 1
Scrivi String(90,"*") & " Caso N" & Format2(caso) & " Estraz. " & Format2(es)
Scrivi String(90,"*") & " Casi Totali N" & Format2(casi)
Scrivi(" Estrazione n." & Format2(es) & " del " & DataEstrazione(es)),0,0
Scrivi " " & Left(NomeRuota(r1),2) & " " & StringaEstratti(es,r1) & " Seconda Ruota " & Left(NomeRuota(r2),2) & " " & StringaEstratti(es,r2),1
Scrivi " Ambi comp. " & Space(6) & " Diff. Oriz" & Space(10) & " Diff. Vert." & Space(10) & "Diff. incr. "
Scrivi " " & Format2(estr1) & Space(1) & Format2(estr2) & Space(16) & Format2(dist12or) & Space(19) & Format2(dist13ve) & Space(19) & Format2(dist14in)
Scrivi " " & Format2(estr3) & Space(1) & Format2(estr4) & Space(16) & Format2(dist34or) & Space(19) & Format2(dist24ve) & Space(19) & Format2(dist23in)
Scrivi "---------------------------------------------------------------------------------------"
Scrivi "Armonia Quadratica " & Format2(findiffor) & Space(19) & Format2(findiffve) & Space(19) & Format2(findiffin)
ColoreTesto 0
End Function
Ultima modifica:
vincenzo4221
Advanced Member >PLATINUM<
Ciaon Salvo , l'ultimo sembra molto buono , mentre il penultimo sembra errato..
salvo50
Advanced Member >PLATINUM PLUS<
Ciao Vincenzo!
L'ultimo è la seconda parte del penultimo, nel penultimo faccio fare i calcoli della distanza 45 tra i numeri il primo della prima ruota ed il secondo della seconda ruota ed anche (sempre la distanza 45) tra il secondo della prima ruota ed il primo della seconda ruota, e mi ero accorto che la seconda parte non la faceva tutta, allora con la seconda parte ho fatto l'ultimo script, non ho fatto anche la prima parte perchè c'era già nel penultimo script. Però dato che mi dici che il secondo va bene adesso faccio uno script con solo la prima parte del penultimo script.
L'ultimo è la seconda parte del penultimo, nel penultimo faccio fare i calcoli della distanza 45 tra i numeri il primo della prima ruota ed il secondo della seconda ruota ed anche (sempre la distanza 45) tra il secondo della prima ruota ed il primo della seconda ruota, e mi ero accorto che la seconda parte non la faceva tutta, allora con la seconda parte ho fatto l'ultimo script, non ho fatto anche la prima parte perchè c'era già nel penultimo script. Però dato che mi dici che il secondo va bene adesso faccio uno script con solo la prima parte del penultimo script.
Ultima estrazione Lotto
-
Estrazione del lotto
sabato 18 gennaio 2025Bari2476027212Cagliari2108770417Firenze7484071272Genova1307334718Milano0134095548Napoli4623250306Palermo4407014684Roma8878647404Torino0787673853Venezia3125041802Nazionale4982596567Estrazione Simbolotto
Bari
0313312335
