SUPER LOTTO

IL TRIANGOLO INSCRITTO FABARRI

« Older   Newer »
  Share  
CAT_IMG Posted on 21/1/2018, 16:02

Group:
Administrator
Posts:
8,316
Location:
Pescara

Status:


questi documenti sono gentilmente stati concessi da aretuseo

Il Triangolo Iscritto

Nell'articolo è uno solo il numero pronosticato, il vertice del triangolo, però secondo me non lo specifica bene quale deve essere, nel primo esempio che fà con il 59 e 09 dà come vertice il 34, infatti 59+09=68 diviso 2 = 34, nel secondo esempio con i numeri 62 e 22, allora 62+22=84 diviso 2 = 42, ma l'autore dice che il vertice è 87, praticamente il diametrale di 42, allora cosa metto il numero che viene come vertice o il suo diametrale? Io nello script li ho messi tutti e due, così ho pronosticato anche l'ambo, il numero vertice pronosticato l'ho fatto visualizzare in rosso.
aretuseo



'Progetto - IL TRIANGOLO ISCRITTO - by FABARRI
'Script - by Salvo50
Option Explicit
Sub Main
Dim r1,p1,es,r2,estr1,estr2,clp,esq
Dim fin,Ini,caso,a,b(3)
Dim idestr,col,esqcol,ru(3),posta(2)
Dim figestr1,figestr2,diffig,Vertic,figvertice,diffe1e2
Dim sommaestr,sommafig,semisomestr,figsemsomestr,semisomfig
Dim num1(2),diamve
TestoInBandaPassante "***** Progetto IL TRIANGOLO ISCRITTO by Fabarri, script by Salvo50 ****** ",1,5,0
Scrivi
Scrivi
fin = EstrazioneFin
esq = InputBox("Inserisci l'estrazione che vuoi iniziare",idestr,9300)
clp = InputBox("Per quanti colpi vuoi fare la ricerca",,5)
col = CInt(InputBox(" Quante estrazioni vuoi controllare ",,1))
posta(1) = 1
posta(2) = 1
esqcol = esq + col
If esqcol > fin Then esqcol = fin
For es = esq To esqcol
AvanzamentoElab esq,esqcol,es
For r1 = 1 To 10
For p1 = 1 To 5
estr1 = Estratto(es,r1,p1)
For r2 = r1 + 1 To 11
If r2 = 11 Then r2 = 12
estr2 = Estratto(es,r2,p1)
If Differenza(estr1,estr2) > 15 Then
sommaestr = Fuori90(90 +(estr1 + estr2))
If pari(sommaestr) Then
Vertic = sommaestr / 2
figvertice = Figura(Vertic)
figestr1 = Figura(estr1)
figestr2 = Figura(estr2)
diffig = Differenza(figestr1,figestr2)
If diffig = 90 Then diffig = 9
If pari(diffig) Then
sommafig = figestr1 + figestr2
If pari(sommafig) Then
semisomfig = sommafig / 2
If semisomfig = figvertice Then
diamve = Diametrale(Vertic)
Scrivi
Scrivi
Scrivi(" Estrazione n." & Format2(es) & " del " & DataEstrazione(es)),0,0
Scrivi " " & Left(NomeRuota(r1),2) & " " & StringaEstratti(es,r1),0,0
Scrivi " Seconda Ruota " & Left(NomeRuota(r2),2) & " " & StringaEstratti(es,r2)
Scrivi "(" &Format2(estr1) & Space(1) & Format2(estr2) &" Semifigura "& (semisomfig)&")",0,0
Scrivi " (Pronostico ",0,0
ColoreTesto 2
Scrivi Format2(Vertic),0,0
ColoreTesto 0
Scrivi " "& Format2(diamve)&" Figura " & figvertice &")"
b(1) = estr1
b(2) = estr2
b(3) = Vertic
DisegnaCerchioCiclometrico b,- 1
ru(1) = r1
ru(2) = r2
'ru(3) = 11
num1(1) = Vertic
num1(2) = diamve
ImpostaGiocata 1,num1,ru,posta,clp
Gioca es
End If
End If
End If
End If
End If
Next
Next
Next
Next
ScriviResoconto
End Sub

Edited by pigreko73.. - 21/1/2018, 20:09
 
Web  Contacts  Top
CAT_IMG Posted on 21/1/2018, 20:05
Avatar

Group:
Member
Posts:
207
Location:
Arcipelago de "La Maddalena" - 07024 Isola di Caprera (Olbia-Tempio), Italy

Status:


[QUOTE=pigreko73.. @ 21/1/2018, 16:02 ?t=5777582&st=0#entry24017361]
[size=7]Il Triangolo Iscritto
Nell'articolo è uno solo il numero pronosticato, il vertice del triangolo, però secondo me non lo specifica bene quale deve essere, nel primo esempio che fà con il 59 e 09 dà come vertice il 34, infatti 59+09=68 diviso 2 = 34, nel secondo esempio con i numeri 62 e 22, allora 62+22=84 diviso 2 = 42, ma l'autore dice che il vertice è 87, praticamente il diametrale di 42, allora cosa metto il numero che viene come vertice o il suo diametrale ? Io nello script li ho messi tutti e due, così ho pronosticato anche l'ambo, il numero vertice pronosticato l'ho fatto visualizzare in rosso.

pigreko73 buonasera.

La premessa alla risposta circa la domanda sta nel fatto che un "quadrilatero" per essere ciclometricamente apprezzabile ai fini di un pronostico credibile deve essere connotato da un valore somma dei suoi lati pari a 90.
In questi termini, tale "quadrilatero" risulta scomponibile in triangoli tra i quali vanno parimenti considerati quelli la cui somma dei lati restituisce anch'essa quella del "quadrilatero" d'origine, ossia 90 e tra questi quello connotato da maggior simmetria.
Fabarri, laddove ricorrono le circostanze da lui indicate, suggerisce di porre in gioco l'elemento che rappresenta la chiusura di uno dei predetti triangoli ovvero quello che rispetto agli altri appare maggiormente simmetrico.
In questo meccanismo, valutiamo gli esempi che l'autorevole studioso ha proposto:
1° esempio: 59 - 09:
- distanza ciclometrica: (59-09)=50; 50 è maggiore di 45, per cui (90-50)= 40;
- punto medio: distanza ciclometrica 40 : 2= 20 per cui, in questo caso nel quale siamo a "cavallo" del limite 45, (59+20)= 79 e (09-20)= (- 11+90)= 79;
- vertice del punto medio: (79-45)= 34.
Gli elementi 59 - 09 - 79 - 34 danno luogo a un "quadrilatero" la cui somma delle distanze che ne connotano i lati è pari a 90. Tale "quadrilatero" reca in sé 3 triangoli la cui somma dei lati/distanze mi restituisce 90: 79 - 09 - 34; 79 - 59 - 34 e infine 09 - 59 - 34, triangolo elettivo in quanto isoscele e quindi connotato da maggior simmetria. Ecco perchè Fabarri suggerisce di porre in gioco 34 e non 79;
2° esempio: 62 - 22:
- distanza ciclometrica: (62-22)= 40;
- punto medio: distanza ciclometrica 40 : 2= 20 per cui (62-20)= 42 e (22+20)= 42;
- vertice del punto medio: (42+45)= 87.
Gli elementi 62 -22 - 42 - 87 danno luogo a un "quadrilatero" la cui somma delle distanze che ne connotano i lati è pari a 90. Tale "quadrilatero" reca in sé 3 triangoli la cui somma dei lati/distanze mi restituisce 90: 62 - 87 - 42; 22 - 42 - 87 e infine 62 - 22 - 87 triangolo elettivo in quanto isoscele e quindi connotato da maggior simmetria. Ecco perchè Fabarri suggerisce di porre in gioco 87 e non 42.

A presto.

Arithmos :B):

Edited by Arithmos - 21/1/2018, 22:34
 
Top
CAT_IMG Posted on 21/1/2018, 20:10

Group:
Administrator
Posts:
8,316
Location:
Pescara

Status:


Grazie per il chiarimento...:)
 
Web  Contacts  Top
CAT_IMG Posted on 21/1/2018, 20:22
Avatar

Group:
Member
Posts:
207
Location:
Arcipelago de "La Maddalena" - 07024 Isola di Caprera (Olbia-Tempio), Italy

Status:


[QUOTE=pigreko73.. @ 21/1/2018, 20:10 ?t=5777582&st=0#entry24018360]
Grazie per il chiarimento...:)
[/QUOTE]

...figurati pigreko73. I nuovi script articolati saranno veramente utili alla comunità del forum.

Buon lavoro.

Arithmos :B):

Edited by Arithmos - 21/1/2018, 22:35
 
Top
CAT_IMG Posted on 21/1/2018, 20:56
Avatar

Group:
Fan
Posts:
48

Status:


Ringrazio anch'io per il chiarimento, dato che sono l' autore dello script, però tutte queste spiegazioni che hai fatto, io leggendo l'articolo non le capite, però adesso mi studio bene le tue spiegazioni e cercherò di migliorare lo script.

Grazie
 
Top
CAT_IMG Posted on 21/1/2018, 21:14
Avatar

Group:
Member
Posts:
207
Location:
Arcipelago de "La Maddalena" - 07024 Isola di Caprera (Olbia-Tempio), Italy

Status:


[QUOTE=aretuseo @ 21/1/2018, 20:56 ?t=5777582&st=0#entry24018484]
Ringrazio anch'io per il chiarimento, dato che sono l' autore dello script, però tutte queste spiegazioni che hai fatto, io leggendo l'articolo non le capite, però adesso mi studio bene le tue spiegazioni e cercherò di migliorare lo script. Grazie [/QUOTE]

aretuseo buonasera.

Negli "articoli" vengono per lo più rilasciati i c.d. "metodi" (nella norma accessibili a chiunque) piuttosto che la "tecnica" dalla quale si deduce il "metodo" (non interessa se non agli studiosi del settore ed è sovente ostica per il lettore privo delle nozioni di base e il cui unico desiderio è "vincere al Lotto" senza tanti perchè).

Pertanto, sappi che mi rendo conto delle difficoltà che incontri, soprattutto se non sei un cultore della materia e non hai chi è in grado di spiegarti il principio e il percorso di calcolo che porta al risultato in modo tale che tu possa tradurlo correttamente in script.

Buon lavoro.

Arithmos :B):
 
Top
CAT_IMG Posted on 21/1/2018, 21:26
Avatar

Group:
Utente
Posts:
3,010
Location:
avellino

Status:


CITAZIONE (pigreko73.. @ 21/1/2018, 16:02) 
questi documenti sono gentilmente stati concessi da aretuseo

Il Triangolo Iscritto

Nell'articolo è uno solo il numero pronosticato, il vertice del triangolo, però secondo me non lo specifica bene quale deve essere, nel primo esempio che fà con il 59 e 09 dà come vertice il 34, infatti 59+09=68 diviso 2 = 34, nel secondo esempio con i numeri 62 e 22, allora 62+22=84 diviso 2 = 42, ma l'autore dice che il vertice è 87, praticamente il diametrale di 42, allora cosa metto il numero che viene come vertice o il suo diametrale? Io nello script li ho messi tutti e due, così ho pronosticato anche l'ambo, il numero vertice pronosticato l'ho fatto visualizzare in rosso.
aretuseo



'Progetto - IL TRIANGOLO ISCRITTO - by FABARRI
'Script - by Salvo50
Option Explicit
Sub Main
Dim r1,p1,es,r2,estr1,estr2,clp,esq
Dim fin,Ini,caso,a,b(3)
Dim idestr,col,esqcol,ru(3),posta(2)
Dim figestr1,figestr2,diffig,Vertic,figvertice,diffe1e2
Dim sommaestr,sommafig,semisomestr,figsemsomestr,semisomfig
Dim num1(2),diamve
TestoInBandaPassante "***** Progetto IL TRIANGOLO ISCRITTO by Fabarri, script by Salvo50 ****** ",1,5,0
Scrivi
Scrivi
fin = EstrazioneFin
esq = InputBox("Inserisci l'estrazione che vuoi iniziare",idestr,9300)
clp = InputBox("Per quanti colpi vuoi fare la ricerca",,5)
col = CInt(InputBox(" Quante estrazioni vuoi controllare ",,1))
posta(1) = 1
posta(2) = 1
esqcol = esq + col
If esqcol > fin Then esqcol = fin
For es = esq To esqcol
AvanzamentoElab esq,esqcol,es
For r1 = 1 To 10
For p1 = 1 To 5
estr1 = Estratto(es,r1,p1)
For r2 = r1 + 1 To 11
If r2 = 11 Then r2 = 12
estr2 = Estratto(es,r2,p1)
If Differenza(estr1,estr2) > 15 Then
sommaestr = Fuori90(90 +(estr1 + estr2))
If pari(sommaestr) Then
Vertic = sommaestr / 2
figvertice = Figura(Vertic)
figestr1 = Figura(estr1)
figestr2 = Figura(estr2)
diffig = Differenza(figestr1,figestr2)
If diffig = 90 Then diffig = 9
If pari(diffig) Then
sommafig = figestr1 + figestr2
If pari(sommafig) Then
semisomfig = sommafig / 2
If semisomfig = figvertice Then
diamve = Diametrale(Vertic)
Scrivi
Scrivi
Scrivi(" Estrazione n." & Format2(es) & " del " & DataEstrazione(es)),0,0
Scrivi " " & Left(NomeRuota(r1),2) & " " & StringaEstratti(es,r1),0,0
Scrivi " Seconda Ruota " & Left(NomeRuota(r2),2) & " " & StringaEstratti(es,r2)
Scrivi "(" &Format2(estr1) & Space(1) & Format2(estr2) &" Semifigura "& (semisomfig)&")",0,0
Scrivi " (Pronostico ",0,0
ColoreTesto 2
Scrivi Format2(Vertic),0,0
ColoreTesto 0
Scrivi " "& Format2(diamve)&" Figura " & figvertice &")"
b(1) = estr1
b(2) = estr2
b(3) = Vertic
DisegnaCerchioCiclometrico b,- 1
ru(1) = r1
ru(2) = r2
'ru(3) = 11
num1(1) = Vertic
num1(2) = diamve
ImpostaGiocata 1,num1,ru,posta,clp
Gioca es
End If
End If
End If
End If
End If
Next
Next
Next
Next
ScriviResoconto
End Sub

Nello Spoiler script modificato per Lottodesk e L8
'Progetto - IL TRIANGOLO ISCRITTO - by FABARRI
'Script - by Salvo50
Option Explicit
Sub Main
Dim r1,p1,es,r2,estr1,estr2,clp,esq
Dim fin,Ini,caso,a,b(3)
Dim idestr,col,esqcol,ru(3),posta(2)
Dim figestr1,figestr2,diffig,Vertic,figvertice,diffe1e2
Dim sommaestr,sommafig,semisomestr,figsemsomestr,semisomfig
Dim num1(2),diamve
Scrivi
Scrivi
fin = EstrazioneFin
esq = InputBox("Inserisci l'estrazione che vuoi iniziare",idestr,9400)
clp = InputBox("Per quanti colpi vuoi fare la ricerca",,5)
col = CInt(InputBox(" Quante estrazioni vuoi controllare ",,fin))
posta(1) = 1
posta(2) = 1
esqcol = esq + col
If esqcol > fin Then esqcol = fin
For es = esq To esqcol
AvanzamentoElab esq,esqcol,es
For r1 = 1 To 10
For p1 = 1 To 5
estr1 = Estratto(es,r1,p1)
For r2 = r1 + 1 To 11
If r2 = 11 Then r2 = 12
estr2 = Estratto(es,r2,p1)
If Abs(estr1-estr2) > 15 Then
sommaestr = Fuori90(90 +(estr1 + estr2))
If pari(sommaestr) Then
Vertic = sommaestr / 2
figvertice = Figura(Vertic)
figestr1 = Figura(estr1)
figestr2 = Figura(estr2)
diffig = Abs(figestr1-figestr2)
If diffig = 90 Then diffig = 9
If pari(diffig) Then
sommafig = figestr1 + figestr2
If pari(sommafig) Then
semisomfig = sommafig / 2
If semisomfig = figvertice Then
diamve = Diametrale(Vertic)
Scrivi
Scrivi
Scrivi(" Estrazione n." & Format2(es) & " del " & DataEstrazione(es)),0,0
Scrivi " " & Left(NomeRuota(r1),2) & " " & StringaEstratti(es,r1),0,0
Scrivi " Seconda Ruota " & Left(NomeRuota(r2),2) & " " & StringaEstratti(es,r2)
Scrivi "(" &Format2(estr1) & Space(1) & Format2(estr2) &" Semifigura "& (semisomfig)&")",0,0
Scrivi " (Pronostico ",0,0
ColoreTesto 2
Scrivi Format2(Vertic),0,0
ColoreTesto 0
Scrivi " "& Format2(diamve)&" Figura " & figvertice &")"
b(1) = estr1
b(2) = estr2
b(3) = Vertic
ru(1) = r1
ru(2) = r2
'ru(3) = 11
num1(1) = Vertic
num1(2) = diamve
ImpostaGiocata 1,num1,ru,posta,clp
Gioca es
End If
End If
End If
End If
End If
Next
Next
Next
Next
ScriviResoconto
End Sub


Edited by federico53 - 22/1/2018, 16:00
 
Top
6 replies since 21/1/2018, 16:02   769 views
  Share