10elotto

[Zetrix]

 

[Zetrix]

nadin dopo vi spiegherò come si deve fare questa quadratura
a volte si fa confusione con le dist e le differenze e sai perche
perche altri considerano solo il cerchio ciclometrico di Fabarri con le dist ciclom.
ma ce un altro cerchio ciclometrico con le cadenze ed e qui che vi devo spiegare
le differenze..
le quadrature dei numeri si possono fare su (riga) o in (colonna) oppure a (x)
ma a determinate condizioni..

 

[Zetrix]

Option Explicit
Class clsCerchioCiclometrico
   Dim aPos(90,2) ' memorizza le coordinate relative ai 90 numeri
   Private CollCorde
   Sub DisegnaCerchioCiclometricoX(aNumeri,aCorde)
      Dim nRaggio ' raggio ddel cerchio
      Dim cX,cY ' centro del cerchio x e y
      Dim Base,Altezza ' dimensioni area disegno
      Dim Angolo ' gestisce il ciclo per disegnare il cerchio
      Dim pi ' pigreco
      Dim x1,y1,x2,y2 ' coordinate generiche pr i segmenti
      Dim cLung ' distanza per stampare i gradi
      Dim k ' ciclo generico
      Dim n
      Dim z
      Call PicClear
      Set CollCorde = GetNewCollection
      cLung = 2.2
      pi = 3.14
      Base = 150
      Altezza = 150
      nRaggio = 60
      ' preimposto le dimensioni dell'area
      Call PicSetDimensioni(Base,Altezza,Base,Altezza)
      ' calcolo il centro del cerchio
      cX = Base / 2
      cY = Altezza / 2
      Call PicCerchio(cX,cY,nRaggio)
      Angolo = 360
      n = 1   '<----------------------------------------
      ' ciclo per disegnare i semiraggi
      For z = 90 To 540 Step 10
         Angolo = FuoriX(z,360)
         ' calcolo cordinate per il segmento raggio
         x1 = cX +((nRaggio) * Cos(- Angolo *(pi / 180)))
         y1 = cY +((nRaggio) * Sin(- Angolo *(pi / 180)))
         ' memorizzo nell'array globale le coordinate appena calcolate
         ' cosi potranno essere riusate per disegnare le corde
         'n = 10
         aPos(n,1) = x1
         aPos(n,2) = y1
         If n Mod 10 Then '<----------------------------------
            ' ogni 5 gradi disegno un semiraggio un po' piu lungo
            ' e stampo i gradi in corripondenza
            x2 = cX +((nRaggio + cLung*3) * Cos(- Angolo *(pi / 180)))
            y2 = cY +((nRaggio + cLung*3) * Sin(- Angolo *(pi / 180)))
            Call PicLinea(x1,y1,x2,y2)
            x2 = cX +((nRaggio + cLung*4) * Cos(-(Angolo + 2) *(pi / 180)))
            y2 = cY +((nRaggio + cLung*4) * Sin(-(Angolo + 2) *(pi / 180)))
            Call PicStampaTestoRT(x2,y2,n,Angolo)
         Else
            ' disegno il semiraggio
            x2 = cX +((nRaggio + cLung) * Cos(- Angolo *(pi / 180)))
            y2 = cY +((nRaggio + cLung) * Sin(- Angolo *(pi / 180)))
            Call PicLinea(x1,y1,x2,y2)
            x2 = cX +((nRaggio + cLung) * Cos(-(Angolo + 2) *(pi / 180)))
            y2 = cY +((nRaggio + cLung) * Sin(-(Angolo + 2) *(pi / 180)))
            Call PicStampaTestoRT(x2,y2,n,Angolo)
         End If
         If n = 0 Then Exit For
         'Next
      Next
      Call DisegnaFigura(aNumeri)
      Call DisegnaDistanze(aCorde)
      ' mostro la figura in output
      Call PicEsegui
   End Sub
   Private Sub DisegnaFigura(aNum)
      Dim k
      For k = 1 To UBound(aNum)
         Call DisegnaCorda(aNum(k),aNum(FuoriX(k + 1,UBound(aNum))),vbRed,True,False)
      Next
   End Sub
   Private Sub DisegnaDistanze(aCorde)
      Dim k
      For k = 1 To UBound(aCorde)
         Call DisegnaCorda(aCorde(k,1),aCorde(k,2),vbBlue,True,True)
      Next
   End Sub
   Private Sub DisegnaCorda(p1,p2,colore,bDisegnaDist,bLineaTratt)
      Dim nX,nY,sDist
      ' p1 e p2 sono i gradi a cui si riferiscono inizio e fine della corda
      'Call PicLineaTratteggiata(aPos(p1,1),aPos(p1,2),aPos(p2,1),aPos(p2,2),colore)
      If AddCorda(p1,p2) Then
         If bLineaTratt Then
            Call PicLineaTratteggiata(aPos(p1,1),aPos(p1,2),aPos(p2,1),aPos(p2,2),colore)
         Else
            Call PicLinea(aPos(p1,1),aPos(p1,2),aPos(p2,1),aPos(p2,2),colore)
         End If
         Call PicPunto(aPos(p1,1),aPos(p1,2),6,colore)
         Call PicPunto(aPos(p2,1),aPos(p2,2),6,colore)
         If bDisegnaDist Then
            If aPos(p1,1) > aPos(p2,1) Then
               nX =(aPos(p1,1) - aPos(p2,1)) / 2 + aPos(p2,1)
            Else
               nX =(aPos(p2,1) - aPos(p1,1)) / 2 + aPos(p1,1)
            End If
            If aPos(p1,2) > aPos(p2,2)Then
               nY =(aPos(p1,2) - aPos(p2,2)) / 2 + aPos(p2,2)
            Else
               nY =(aPos(p2,2) - aPos(p1,2)) / 2 + aPos(p1,2)
            End If
            Call PicCerchio(nX,nY,3,vbWhite,,True,vbWhite)
            nX = nX - 1.5
            nY = nY - 1.5
            sDist = Format2(Distanza(p1,p2))
            Call PicStampaTesto(nX,nY,sDist)
         End If
      End If
   End Sub
   Private Function AddCorda(n1,n2)
      Dim sKey
      If n1 <= n2 Then
         sKey = "k" & Format2(n1) & Format2(n2)
      Else
         sKey = "k" & Format2(n2) & Format2(n1)
      End If
      On Error Resume Next
      CollCorde.Add sKey,sKey
      If Err = 0 Then
         AddCorda = True
      End If
   End Function
End Class
Sub Main
   Dim clsCerchio
   Dim k,v,x,qt
   Dim aCorde
   ReDim aNum(0)
   qt = ScegliNumeri(aNum)
   Call OrdinaMatrice(aNum,1)
   qt = UBound(aNum)
   '
   aCorde = SviluppoIntegrale(aNum,2)
   Set clsCerchio = New clsCerchioCiclometrico
   Call clsCerchio.DisegnaCerchioCiclometricoX(aNum,aCorde)
   Scrivi StringaNumeri(aNum)
   '
End Sub

toon riesci a modificare questo script dovremmo fare un cerchio con le cadenze
mi spiego meglio 1.11.21.31.41.51.61.71.81 a seguire 2.12.22.32.42.52.62.72.82...
e continuare con gli altri numeri mi sembra che spaziometria non a il cerchio con
le cadenze..
ho scritto con gli script piu di 50 cerchi anche con 10 numeri ma non riesco a
disegnare un cerchio con le cadenze dei 90 numeri..

 

[Zetrix]

ho scritto questi script che disegna ogni figura su ogni pacchetto di numeri in decina
questi script sono facile da fare con 10 numeri ma con le cadenze per 90 numeri
e molto difficile da fare..

 

[Armaus]

buongiorno a tutti...

ho studiato un algoritmo per venezia..

ragazzi ma il 9 a bari quale prospetto la calcolato..

Ciao l'avevi postato con condizione di gioco (a+b)=c da estrazione 3.12.22 per ambata 9 e ambo 9.66 Ba.Ca.Nz.TT, si deve continuare oppure no? Grazie e saluti

 

[Zetrix]

allora nadin e difficile spiegare queste cose perche bisogna vedere come sono
disposte le dist nel quadrato..
se vediamo le quadrature la (a) la (b) e la (c) la quadratura (a) e la migliore
perche abbiamo le dist 23 53 83 che sono simmetriche quindi la scelta e per il 59
adesso per farvi capire le differenze con il disegno del cerchio di Fabarri
e l'altro cerchio con le cadenze dovrei mettere i disegni ma proverò a mettere
un altra tabella per farvi comprendere meglio le differenze della scelta del 59
e non del 29..

per me le dist sono quelle espresse tra i numeri tra loro quindi non considero
le dist ciclometriche di Fabarri perche il Fabarri lavorava sui numeri nel cerchio ciclometrico
ideato da lui quindi consideriamo le dist come espressione di una differenza tra i numeri stessi..

 

[Zetrix]

Ciao l'avevi postato con condizione di gioco (a+b)=c da estrazione 3.12.22 per ambata 9 e ambo 9.66 Ba.Ca.Nz.TT, si deve continuare oppure no? Grazie e saluti

grazie Armaus adesso sto spiegando una tabella con il 59 dopo vedrò la condizione del gioco..

 

[Zetrix]

nadin ecco la tabella adesso dovrei spiegare oppure no perche ho scritto
gia nella tabella
comunque vi spiego meglio di quello che e descritto nella tabella..
allora nel quadrato abbiamo il 36 e 6 scriviamo la tabellina del 6
6x6=36
adesso quanto si fa questo calcolo bisogna scalare di una unità
sul moltiplicatore 6 ( 6-1=5)
6x5=30 (dist)
se sommiamo 30+89 ci da il 29 ma dobbiamo tener presente
che la dist a (x) e 30 e tra 89 e 29 la dist e 60 e questa differenza la si puo
vedere nel cerchio delle cadenze..
quindi la scelta del 29 non va bene e allora che si fa in questi casi
usiamo le distanze inverse 6x5=30 (dist)
30 (dist) dist inversa 60
60+89=59
la dist tra 59 e 89 e (30) a questo punto le dist a (x) sono equilibrate a dist 30
tra 36 06 e 59 89

 

[Zetrix]

grazie Alien comunque e piu facile scrivere nella tabella
che spiegare nel forum

l'ambo in gioco e 59 5 se consideriamo la somma del quadrato..
ma se vogliamo calcolare il numero 30 ci darà altri abb con il 59..
ma ci aggiorniamo meglio stasera..

 

[Zetrix]

Alien con il 10elotto ai vinto qualche 8 o 9 o 10 ..
una volta ho giocato una combinazione di numeri ho
indovinato 3 numeri ma e difficile indovinare 4 numeri
figurati indovinare 10 numeri..

 

[Zetrix]

 

[nadin]

Ciao Zetrix, grazie per gli spiegazioni. Ho una domanda come hai calcolato somma 5, 35, 43 nel quadrato questo

 

[Zetrix]

ciao nadin le somme 5 ,35, 42, sono le somme del quadrato ma per motivi di spazio
non le potevo mettere le quadrature delle somme nella tabella..

comunque le posso scrivere qua ho una calcolatrice che fa questo lavoro..
se no le scrivo nella tabella..

 

[Zetrix]

nadin le somme delle quadrature sono il 5 35 42
vedi nella tabella..

somma 5 su riga (89+6)
somma 35 in colonna (36+89)
somma 42 a (x) (36+6)

Anticipazione (Spoiler)

ho inserito in tabella anche alcuni abb che si possono abbinare con il 59
se il 59 calcola il numero 30 (spia) con uno di quei abb si deve abbinare..
mi sono dimenticato di mettere un altro abb con i numeretti a 11

 

[nadin]

Grazie Zetrix

 

[Zetrix]

nadin ho calcolato con la calcolatrice questa tabella con i numeretti a 11
con la calcolatrice posso calcolare qualsiasi tabella con i numeretti a 9
con i numeretti a 10 e i numeretti a 11..e molte altre tabelle..
vedi a milano che numero calcola con i numeretti a 11 con il numero 30

 

[Zetrix]

Vedi l'allegato 2248508

nadin per domani proviamo questa combinazione di gioco

Anticipazione (Spoiler)

MI TO 59 01 E a tutte per recupero

 

[Zetrix]

Vedi l'allegato 2248457
condizione gioco (a+b)=c
(63+18)=81
x = 81+18=09 (ambata)
y = 21+45=66

Numeri in gioco 09 su BA CA per Estratto
In corso

.................................................................

Numeri in gioco 09.66 su BA CA TT NZ per Ambo
In corso

SuperAmbo
considerate che il superambo e calcolato solo con il diametrale

[BA][09 .. .. 70 ..] C.4 Ambo 02056 [13/12/2022] [09.43.57.70.80]

ho visto gli abb che sono usciti con il 9 a BA e a TT

il 21 invece del 66 (diam) a calcolato il 91 (91-21=70)

invece sulla NZ e uscito 9 12 a calcolato il vert (21-12)
[NZ] [.. .. .. 09 12] C.4 Ambo 02056 [13/12/2022] [88.15.75.09.12]

comunque non la seguite piu questa condizione di gioco
anche se i numeri possono ripetersi e uscire di nuovo il 9 con il 66
dopo vedo se ce un altra condizione con a+b=c

 

[Zetrix]

x Armaus provate a bari

 

[nadin]

Buona mattina a tutti. Grazie Zetrix