Omaggio a Joe91

[Joe91]

Il seguente script genererà e selezionerà, controllando tra tutti gli ambi possibili ...

quelli che, per ogni distanza immessa, vi appartengono.

90 per ognuna delle distanze possibili da 1 a 44 ...

e 45 per la diametrale.

'AMBI IN DISTANZA CICLOMETRICA V.3.0.  By Joe91 Alba -04-04-2010-
Sub Main()
D = CInt (InputBox ("Inserisci la distanza","DISTANZA CICLOMETRICA",1)) ' Distanza Ciclometrica con cui raggruppare gli AMBI
For a = 1 To 90
   For b = a+1 To 90
       Dc = Distanza (a,b)
       If Dc=D Then
       k=k+1
       Scrivi Format2 (K) & ") Ambo: " & Format2(a) & "." & Format2(b)
       End If
   Next
Next
Scrivi ("")
Scrivi ("***  Trovati " & CInt(k) & " Ambi in Distanza Ciclometrica " & D & " ***")
End Sub

permettendo di catalogare in funzione della loro distanza ciclometrica tutti i 4005 Ambi.

 

[stefania1972]

Ciao Joe91 grazie , ciao.

 

[Joe91]

Accennato brevemente all'aspetto ciclometrico ... ed all'istruzione apposita: DISTANZA,

c'è complementare e che FORNISCE ALTRI RISULTATI: DIFFERENZA.

L'operatore aritmentico che la riassume è il segno "MENO".

In informatica "MENO" ha un compito più esteso, venendo ad assumere quello di operatore algebrico.

Restituisce anche valori negativi di cui si deve tenere conto.

Passiamo subito ad un esempio tra il pratico, il didattico, un mio metodo, ... il gioco, lo script.

Napoli 20/06/2013 Estratti: 42.06.50.58.18 e ... e, per chi li ritiene numeri

è possibile SOTTRARLI e SOMMARLI ... fino ad ottenere tante SOMME e altrettante DIFFERENZE. (10+10)

(sottolineo DIFFERENZE E DISTANZE sono realtà DIVERSE anche se, in parte, uguali).

Di queste tante DIFFERENZE si ha:

42-18 = 24

50-18 = 32

58-18 = 40

Di 24.32.40 si nota il "passo 8" e la divisibilità per questo numero ...

Dividendoli per 8 diventano 3.4.5

Tre "lunghezze" in DIFFERENZA e distanza unitaria, tra loro, ed allo stesso tempo...

la lunghezza dei lati di un Triangolo Rettangolo.

Una Figura-Geometrica che "a caso" è venuta a formarsi tra gli estratti partenopei.

Verifichiamo l'affermazione: 3^2=9 ; 4^2=16 ; 5^2=25.

La somma dei quadrati costruiti sui cateti 9+16 = 25,

è equivalente al quadrato 25 costruito sull' Ipotenusa.

Come recita il Teorema di Pitagora. Vero Matematico.

Possiamo dimostrare vero, che sono lati di un triangolo rettangolo

anche le lunghezze originali. Quelle 8 volte maggiori. Ovvero 24.32.40

Questi 3 lati, s'è scritto, sono generati "PER DIFFERENZA"

da altrettanti Ambi "18.42" / "18.50" / "18.58"

Ambi, che PER SOMMA, avranno rispettivamente 60.68.76.

SOMME che potranno essere utilizzate come abbinamenti classici,

O come riferimenti di Ambi caduti in Distanza (o se si preferisce in archivio virtuale) e sono in elenco completo:

18.42 / 22.46 / 26.50 / 14.46 / 18.50 / 22.54 / 10.50 / 14.54 / 18.58 (Reali /Virtuali (in SOMMA e DIFFERENZA)).

Naturalmente le "ragioni" della Spaziometria si radicano sulla presenza estratti recenti

(qui si parla dell'ultima estrazione) ed i grandi lottologi del passato hanno ritenuto riferirci che le

"figure geometriche" rintracciabili, abbiano ad abbandonare in breve tempo ... il quadro delle estrazioni,

con la caduta di alcuni qualcuno degli elementi di cui si compongono.

Dunque senza volere che sia una proposta di gioco si monitoreranno gli eventuali risultati,

nell' affrontare, le problematiche dello script e di questo metodo difficilissimo, che,

a parer mio, permette di dimostrare come, con lo script, si possa andare ... oltre ...

il realizzabile "a mano" ed anche a quello che oggi, è l'essere piuttosto lontani

e peggio fermi attorno all' "uno più uno", al primo di Bari + il primo di Cagliari ...

lungi dal raggiungere ... i risultati, dei metodi, ampi, in ogni accezione dei lottologi del passato.

 

[Joe91]

Lo script è quasi sempre uguale nella struttura portante.

Un ciclo For-Next per scorrere le Estrazioni

con all'interno un ciclo For-Next per scorrere le ruote,

con all' interno un ciclo For-Next per leggere e memorizzare gli estratti ... su cui operare.

Quindi si inizia Con il DIM_ensionare la Variabile E per contenere i 5 Estratti ...

[B]Sub Main   
[/B]  

[B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Dim [/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]E[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](5)[/SIZE]
[SIZE=2] 

   
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]For[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] Es [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 8706 [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]To[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 8706[/SIZE]
[SIZE=2] 

       
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]For[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] R [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]= [/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]NA_ [/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]To [/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]NA_[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[SIZE=2] 

           
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]For[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] P [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 1 [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]To[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 5 : [/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]E[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](P) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]= [/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Estratto[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](Es,R,P) : [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Next[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] : [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Scrivi [/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]StringaNumeri[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2]([/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]E[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2])        


[B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Next[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2]        
[/SIZE] 

[B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Next[/COLOR][/SIZE][/COLOR][/SIZE][/B]


[B]End Sub[/B]
[/SIZE]

E .... con le ruote e le estrazioni bloccate lo script restituisce gli estratti (E).

 

[rabberto]

Ciao Joe91 complimenti per la bellissima spiegazione e dimostrazione del Triangolo Rettangolo , sei davvero un grande , per caso hai qualcosa pure sui quadrati e sugli aquiloni ?
Grazie ancora , ciao .

 

[Joe91]

Ciao Joe91 complimenti per la bellissima spiegazione e dimostrazione del Triangolo Rettangolo , sei davvero un grande , per caso hai qualcosa pure sui quadrati e sugli aquiloni ?
Grazie ancora , ciao .

Ciao Rabberto,

si ... ed allora vi do, una versione differente da quella che avevo pensato e che, tutto sommato, è anche, molto più semplice.

Il cerchio ciclometrico "deforma" la realtà numerica e quindi il "triangolo rettangolo" sul piano, non sarà "rettangolo", sul cerchio.

Questo può far si che, mentre il nostro ingenio e la mente-matematica, percepiscono la presenza di un "triangolo rettangolo" ...

sul cerchio i nostri occhi vedono "un triangolo-ISOSCELE" ovvero ... una parte, la metà di un aquilone.

E' quanto sfrutta ...questo mio metodo, "Pitagorino", che è un cercatore e costruttore di "aquiloni-rettangoli"

al quale (per non fargli mancare nulla), anni fa, avevo previsto una chiusura cabalistica,

in "Complemento a 91" e poi il Diametrale di quest'ultimo. Scelta, che ai tempi, diede buoni risultati.

Script alla mano ... si potranno introdurre tutte le considerazioni che ognuno preferisce. Testare altre chiusure.

In esso, alla struttura portante già descritta ... ho aggiunto

3 cicli For-Next nidificati per generare 10 terne di estratti (10 triangoli).

Si ottengono indicizzando gli stessi estratti in funzione delle loro rispettive posizioni (P1,P2,P3)

FOR P1 = 1 To 3
FOR P2 = P1+1 To 4
FOR P3 = P2+1 To 5
.
. ... IF ...
.
Next : Next : Next

Ed all'interno di questi il Controllo (IF) della presenza di un Triangolo Rettangolo (tra gli estratti).

OrdinaMatrice E(1),1

A=E(1) : B=E(2) : C=E(3)

If A^2 + B^2 = C^2 Then

Ordinamatrice è necessaria per evitare che i lati siano Casualmente-Disordinati nelle loro lunghezze.

Questo perchè, è noto che, l'ipotenusa, DEVE essere sempre più lunga dei 2 lati ... con ordine.

Il Triangolo sarà Rettangolo in "B" e quindi la giocata si forma con :

Nu(1) Complemento a 91 di "B" in coppia per Ambo con il relativo Diametrale.

Nu(1) = (91 - B) : Nu(2) =Diametrale(Nu(1))

'Pitagorino By Joe V.2.0. Per Spaziometria del 26/06/2013
Sub Main()
 Dim Nu(2),E(3),Po(2),Ru(1)
 Po(1) = 1 : Po(2) = 1
 For Es = 8000 To EstrazioneFin : Messaggio Es
  For R = 1 To 10 : Ru(1) = R
   For P1 = 1 To 3
    For P2 = P1 + 1 To 4
     For P3 = P2 + 1 To 5
      E(1) = Estratto(Es,R,P1) : E(2) = Estratto(Es,R,P2) : E(3) = Estratto(Es,R,P3)
      OrdinaMatrice(E),1
      A = E(1) : B = E(2) : C = E(3)
      If A^2 + B^2 = C^2 Then
       If Distanza(A,B) = Distanza(B,C) Then
        DisegnaCerchioCiclometrico E,True,True
        K = K + 1 : Scrivi String(105,"=") & " " & K,1
        Nu(1) =(91 - B) : Nu(2) = Diametrale(Nu(1))
        ImpostaGiocata 1,Nu,Ru,Po,10,2
        Gioca Es
       End If
      End If
     Next
    Next
   Next
  Next
 Next
 ScriviResoconto
End Sub

 

[rabberto]

Ciao Joe91 grazie sia per la spiegazione che per lo script , a buon rendere , ciao.

 

[rabberto]

Ciao a tutti quelli interessati a questo post volevo avvisare che ho trovato un'altra piccola spiegazione di Joe91 ed e' stata pubblicata la numero 3 come promesso se ce ne saranno delle altre saranno pubblicate in questo post , ciao.

 

[stefania1972]

Ciao Domenico grazie per il tuo impegno sei sempre alla ricerca di spiegazioni nelle pagine piu' vecchie e poi il tuo tempo lo dedichi a tutti pubblicando le guide , sei veramente una persona speciale , ciao e grazie .

 

[rabberto]

Ciao stefania sempre molto gentile , ciao.

 

[rabberto]

Pubblicata la guida numero 4 , spero possa servire a qualcuno , ciao.

 

[Joe91]

Ciao Rabberto, BuonGiorno a tutte/i.

Voglio ringraziarti ... pubblicamente per il molto impegno che dedichi al rendere fruibili ed accessibili,

molti programmi, macchine, tecniche ... ecc.

Impegno veramente lodevole.

Ti confermo di aver potuto (finalmente) mettere in funzione il tuo PC-Virtuale

con il quale, qui, ora, sto provando a scrivere sul Forum.

Grazie e complimenti.

Giorgio.

PS: A dimostrazione del vero ... una partita a Flipper.

 

[Alien.]

Ciao,complimenti per i nostri "professori",spero che l'allievo super il maestro.....la trovo un po dura ...ma ci provo....grazie.

ALIEN

 

[rabberto]

Ciao Joe per me e' un onore ricevere i tuoi ringraziamenti come lo e'stato in un altro post ricevere quelli del Sig. Luigi , spero che si continui cosi e che ognuno di noi metta a disposizione di tutti il proprio sapere che sia lezioni di script , programmazione , aiuto nel risolvere problemi , o altro , come lo avete sempre fatto voi magnifici di questo forum , LuigiB , Joe91 , Mike58 , Blackmore , e adesso si e' aggiunta anche Rosanna , e sono veramente fiero di far parte di questo gruppo di persone eccezionali , grazie anche a voi per tutto quello che state dando a tutti noi , ciao .

 

[stefania1972]

Ciao Domenico confermo in pieno tutto quello espresso da Joe91 sei veramente una persona fantastica , grazie di tutto quello che fai , ciao.

 

[gamberorosso]

Grazie rabberto sei molto gentile e sempre disposto a dare una mano agli altri buona domenica

 

[rabberto]

gamberorosso
Grazie rabberto sei molto gentile e sempre disposto a dare una mano agli altri buona domenica

Ciao gamberorosso e' un piacere

 

[franchinoss]

Ciao ragazzi un grazie anche da parte mia bellissime lezioni veramente fatte bene , grazie a Joe91 per le sue spiegazioni e grazie a rabberto per aver reso questo post disponibile a tutti , di nuovo grazie , ciao.

 

[franchinoss]

Ciao rabberto ciao Joe91 volevo chiedervi per favore se esiste un modo per far si che queste quattro guide le possa aprire direttamente dentro il programma spaziometria senza ogni volta andarle a prendere separatamente , anche se non e possibile vi ringrazio lo stesso per quello che state facendo , ciao.

 

[rabberto]

Ciao franchinoss sicuramente LuigiB sarebbe piu' indicato per darti una risposte e se esiste un modo , io sinceramente in questo momento non ho niente in mente ci penso se tiro qualcosa fuori ti faccio sapere , grazie dei complimenti , ciao.