La Figura del TRIANGOLO per TRE TERZINE

Zetrix · 19 Agosto 2022

Imaging ho calcolato un numero con un algoritmo di 5 livello sai che vuol dire..e il massimo livello..
lo schema non lo posso mettere troppo complicato..

soltanto che ho visto che questa ambata rit da 61 estr a TO..

non lo so ma ci possiamo provare lo stesso..

Zetrix · 19 Agosto 2022

Imaging quante cose devo spiegarvi..a TO e uscito un ambo spia..
provo a scrivere nello spoiler non mettiamo troppe cose a vista..

1 numero 13 = somma 55
2 numero 42= differenza 29

previsione
ambata 13 TO in 3 Pos
ambo 13 42 TO

Imaging · 19 Agosto 2022

credo di SI .

Imaging · 19 Agosto 2022

Imaging ha scritto:
credo di SI .

Vedo che sei organizzato bene con il PC ........

Imaging · 19 Agosto 2022

Zetrix ha scritto:
Vedi l'allegato 2240234

Imaging quante cose devo spiegarvi..a TO e uscito un ambo spia..
provo a scrivere nello spoiler non mettiamo troppe cose a vista..

Queste lezioni a me mi fanno bene e non solo a me che faccio ricerche previsioni e metodi ma anche chi ci legge che sia Visibile o Invisibile ecc. mi servirebbe .....esco un attimo fuori argomento sto preparando una nuova ricerca metodo ...

Zetrix · 19 Agosto 2022

vediamo se l'ambo di TO lo calcoliamo sui cruciverba..facciamo una prova..

Zetrix · 19 Agosto 2022

Codice:

Sub Main()
   Dim ruota(5),ruote(5)
   Dim posta(5),poste(5)
   Dim r1,r2,r3
   Dim ambo1(2),ambo2(2),terzina(3)
   Dim caso
   '
   posta(2) = 1
   poste(2) = 1
   poste(3) = 1
   '
   rk = InputBox("Quale 1 numero vuoi controllare?",,0)
   rv = InputBox("Quale 2 numero vuoi controllare?",,0)
   '
   rs = InputBox("Quante estrazioni vuoi controllare?",,0)
   k = 0
   '
   caso = 0
   For es = EstrazioneFin - rs To EstrazioneFin
      AvanzamentoElab EstrazioneFin - rs,EstrazioneFin,es
      '
      For r1 = 1 To 8
         For p1 = 1 To 4
            For p2 = p1 + 1 To 5
               '
               n1 = Estratto(es,r1,p1)
               n2 = Estratto(es,r1,p2)
               '-----------------------------------
               For r2 = r1 + 1 To 9
                  '
                  n3 = Estratto(es,r2,p1)
                  n4 = Estratto(es,r2,p2)
                  '----------------------------------
                  For r3 = r2 + 1 To 10
                     '
                     n5 = Estratto(es,r3,p1)
                     n6 = Estratto(es,r3,p2)
                     '-----------------------------------
                     For rx = rk To rk
                        For rw = rv To rv
                           '--------------------------------
                           b1 = Fuori90(n1 + n5)
                           b2 = Fuori90(n4 + n6)
                           '
                           b3 = Fuori90(n2 + n6)
                           b4 = Fuori90(n3 + n5)
                           '
                           b5 = Fuori90(n3 + n5)
                           b6 = Fuori90(n2 + n4)
                           '
                           b7 = Fuori90(n1 + n3)
                           b8 = Fuori90(n4 + n6)
                           '
                           '--------------------------
                           n7 = Fuori90(b1 - n2)
                           n8 = Fuori90(b1 - n3)
                           n9 = Fuori90(b3 - n1)
                           n10 = Fuori90(b3 - n4)
                           '-------------------------
                           n11 = Fuori90(b5 - n1)
                           n12 = Fuori90(b5 - n6)
                           n13 = Fuori90(b7 - n2)
                           n14 = Fuori90(b7 - n5)
                           '-------------------------
                           '
                           If pari(Fuori90(n1 + n5)) And pari(Fuori90(n4 + n6)) And b1 = b2 _
                              Or pari(Fuori90(n2 + n6)) And pari(Fuori90(n3 + n5))And b3 = b4 _
                              Or pari(Fuori90(n3 + n5)) And pari(Fuori90(n2 + n4))And b5 = b6 _
                              Or pari(Fuori90(n1 + n3)) And pari(Fuori90(n4 + n6))And b7 = b8 Then
                              '
                              '
                              n15 = Fuori90(b1/2)
                              n16 = Fuori90(b3/2)
                              n17 = Fuori90(b5/2)
                              n18 = Fuori90(b7/2)
                              '
                              ruote(1) = r1
                              ruote(2) = r2
                              ruote(3) = r3
                              ruote(4) = TT_
                              ruote(5) = NZ_
                              '----------------------------
                              If b1 = b2 Then
                                 ambo1(1) = Fuori90(b1 - n2)
                                 ambo1(2) = Fuori90(b1 - n3)
                                 terzina(1) = ambo1(1)
                                 terzina(2) = ambo1(2)
                                 terzina(3) = n15
                              End If
                              '-------------------------------
                              If b3 = b4 Then
                                 ambo1(1) = Fuori90(b3 - n1)
                                 ambo1(2) = Fuori90(b3 - n4)
                                 terzina(1) = ambo1(1)
                                 terzina(2) = ambo1(2)
                                 terzina(3) = n16
                              End If
                              '----------------------------------
                              If b5 = b6 Then
                                 ambo1(1) = Fuori90(b5 - n1)
                                 ambo1(2) = Fuori90(b5 - n6)
                                 terzina(1) = ambo1(1)
                                 terzina(2) = ambo1(2)
                                 terzina(3) = n17
                              End If
                              '----------------------------------
                              If b7 = b8 Then
                                 ambo1(1) = Fuori90(b7 - n2)
                                 ambo1(2) = Fuori90(b7 - n5)
                                 terzina(1) = ambo1(1)
                                 terzina(2) = ambo1(2)
                                 terzina(3) = n18
                              End If
                              '
                              Scrivi String(99,"-") & " gioco n. " & caso
                              '---------------------------------
                              If rx = ambo1(1) And rw = ambo1(2) Or rw = ambo1(1) And rx = ambo1(2) Then
                                 '
                                 ReDim MatriceCaselleDaEvid(6,1)
                                 ' 1
                                 MatriceCaselleDaEvid(1,0) = r1 '
                                 MatriceCaselleDaEvid(1,1) = p1 '
                                 ' 2
                                 MatriceCaselleDaEvid(2,0) = r1 '
                                 MatriceCaselleDaEvid(2,1) = p2 '
                                 ' 3
                                 MatriceCaselleDaEvid(3,0) = r2 '
                                 MatriceCaselleDaEvid(3,1) = p1 '
                                 ' 4
                                 MatriceCaselleDaEvid(4,0) = r2 '
                                 MatriceCaselleDaEvid(4,1) = p2 '
                                 ' 5
                                 MatriceCaselleDaEvid(5,0) = r3 '
                                 MatriceCaselleDaEvid(5,1) = p1 '
                                 ' 6
                                 MatriceCaselleDaEvid(6,0) = r3 '
                                 MatriceCaselleDaEvid(6,1) = p2 '
                                 '
                                 Call DisegnaEstrazione(es,MatriceCaselleDaEvid)
                                 '
                                 '-------------------------------------------------------------
                                 If b1 = b2 Then
                                    Scrivi "" & n1 & "+" & n5 & Space(0) & " = " & b1 & " ",1,1,7,3,4
                                    Scrivi "" & n4 & "+" & n6 & Space(0) & " = " & b2 & " ",1,1,7,3,4
                                 End If
                                 '
                                 If b3 = b4 Then
                                    Scrivi "" & n2 & "+" & n6 & Space(0) & " = " & b3 & " ",1,1,7,3,4
                                    Scrivi "" & n3 & "+" & n5 & Space(0) & " = " & b4 & " ",1,1,7,3,4
                                 End If
                                 '--------------------------------------------------------------------
                                 If b5 = b6 Then
                                    Scrivi "" & n3 & "+" & n5 & Space(0) & " = " & b5 & " ",1,1,7,3,4
                                    Scrivi "" & n2 & "+" & n4 & Space(0) & " = " & b6 & " ",1,1,7,3,4
                                 End If
                                 '
                                 If b7 = b8 Then
                                    Scrivi "" & n1 & "+" & n3 & Space(0) & " = " & b7 & " ",1,1,7,3,4
                                    Scrivi "" & n4 & "+" & n6 & Space(0) & " = " & b8 & " ",1,1,7,3,4
                                 End If
                                 '-------------------------------------------------------------------
                                 Scrivi
                                 If b1 = b2 Then
                                    Scrivi("" & Format2(n8) & "____" & Format2(n7) & ""),0,0,2,3,6
                                    Scrivi("" & "____" & Format2(n5) & "") & " ",0,1,1,3,6
                                    Scrivi "|" & Space(6) & "|" & Space(5) & "|" & " ",0,1,1,3,6
                                    Scrivi "" & Format2(n4) & Space(4) & Format2(n15) & Space(4) & Format2(n6) & " ",0,1,1,3,6
                                    Scrivi "|" & Space(6) & "|" & Space(5) & "|" & " ",0,1,1,3,6
                                    Scrivi "" & Format2(n1) & "____" & Format2(n2) & "____" & Format2(n3) & " ",0,1,1,3,6
                                    Scrivi "" & Space(15) & "",0,1,1,3,6
                                 End If
                                 '-------------------------------------------
                                 If b3 = b4 Then
                                    Scrivi("" & Format2(n10) & "____" & Format2(n9) & ""),0,0,2,3,6
                                    Scrivi("" & "____" & Format2(n6) & "") & " ",0,1,1,3,6
                                    Scrivi "|" & Space(6) & "|" & Space(5) & "|" & " ",0,1,1,3,6
                                    Scrivi "" & Format2(n3) & Space(4) & Format2(n16) & Space(4) & Format2(n5) & " ",0,1,1,3,6
                                    Scrivi "|" & Space(6) & "|" & Space(5) & "|" & " ",0,1,1,3,6
                                    Scrivi "" & Format2(n2) & "____" & Format2(n1) & "____" & Format2(n4) & " ",0,1,1,3,6
                                    Scrivi "" & Space(15) & "",0,1,1,3,6
                                 End If
                                 '--------------------------------------------------------------------
                                 If b5 = b6 Then
                                    Scrivi("" & Format2(n12) & "____" & Format2(n11) & ""),0,0,2,3,6
                                    Scrivi("" & "____" & Format2(n5) & "") & " ",0,1,1,3,6
                                    Scrivi "|" & Space(6) & "|" & Space(5) & "|" & " ",0,1,1,3,6
                                    Scrivi "" & Format2(n2) & Space(4) & Format2(n17) & Space(4) & Format2(n4) & " ",0,1,1,3,6
                                    Scrivi "|" & Space(6) & "|" & Space(5) & "|" & " ",0,1,1,3,6
                                    Scrivi "" & Format2(n3) & "____" & Format2(n1) & "____" & Format2(n6) & " ",0,1,1,3,6
                                    Scrivi "" & Space(15) & "",0,1,1,3,6
                                 End If
                                 '-------------------------------------------------------------------
                                 If b7 = b8 Then
                                    Scrivi("" & Format2(n14) & "____" & Format2(n13) & ""),0,0,2,3,6
                                    Scrivi("" & "____" & Format2(n3) & "") & " ",0,1,1,3,6
                                    Scrivi "|" & Space(6) & "|" & Space(5) & "|" & " ",0,1,1,3,6
                                    Scrivi "" & Format2(n4) & Space(4) & Format2(n18) & Space(4) & Format2(n6) & " ",0,1,1,3,6
                                    Scrivi "|" & Space(6) & "|" & Space(5) & "|" & " ",0,1,1,3,6
                                    Scrivi "" & Format2(n1) & "____" & Format2(n2) & "____" & Format2(n5) & " ",0,1,1,3,6
                                    Scrivi "" & Space(15) & "",0,1,1,3,6
                                 End If
                                 '
                                 Scrivi
                                 ImpostaGiocata 1,ambo1,ruote,posta,k
                                 Gioca es,1,,1
                                 Scrivi
                                 Scrivi String(55,"-")
                                 Scrivi
                                 ImpostaGiocata 1,terzina,ruote,poste,k
                                 Gioca es,1,,1
                                 Scrivi
                              End If
                           End If
                        Next
                     Next
                  Next
               Next
            Next
         Next
      Next
   Next
   Scrivi "script di Zetrix",0,1,7,3,4,4,8
   Scrivi "sistema a cruciverba",0,1,7,3,4,4,8
End Sub

Imaging in questo listato ho aggiunto anche una opzione
si puo digitare i due numeri che calcolano il cruciverba..

Zetrix · 19 Agosto 2022

niente sui cruciverba con i numeri isotopi non a calcolato nessun cruciverba..
allora proviamo con il metodo RAMBO...............................................................................

Imaging · 19 Agosto 2022

Non è superiore ai listati precedenti......

Zetrix · 19 Agosto 2022

trovato tre cruciverba con l'ambo di TO...che dici vogliamo mettere un cruciverba nel forum
oppure no..

Imaging · 19 Agosto 2022

Si mettiamolo

Zetrix · 19 Agosto 2022

va bene però metto il cruciverba di Spaziometria..adesso non voglio fare un altro cruciverba..

Zetrix · 19 Agosto 2022

47+71 = 28
48+70 = 28

Numeri in gioco 13.42 su BA NA VE TT per Ambo

volendo si puo giocare una quartina su ruota si puo giocare

13 42 14 59 per ambo e terno

la somma 28 la genera sia il 14 (14+14=28) e sia il 59 (59+59=28)

Imaging · 19 Agosto 2022

Zetrix ha scritto:
Vedi l'allegato 2240235
47+71 = 28
48+70 = 28

Numeri in gioco 13.42 su BA NA VE TT per Ambo

Questo va meglio del precedente ...

Zetrix · 19 Agosto 2022

Imaging però con il cruciverba con le dist e tutt altra cosa..

comunque devo sistemare meglio le somme non devo mettere il fuori 90..

47+71 = 28 (fuori 90)
47+71 = 118/2 = 59

Imaging · 19 Agosto 2022

Zetrix ha scritto:
Imaging però con il cruciverba con le dist e tutt altra cosa..

Metti questo..........OK le distanze.....

Zetrix · 20 Agosto 2022

adesso provo a modificare il listato delle somme..

Imaging · 20 Agosto 2022

Zetrix ha scritto:
adesso provo a modificare il listato delle somme..

Metti il Listato con le Distanze è superiore a quello con le somme va be fai come ti PIACE...

Zetrix · 20 Agosto 2022

47+71 = 118
48+70 = 118

Numeri in gioco 13.42 su BA NA VE TT per Ambo
Numeri in gioco 13.42.59 su TT per Terno

Zetrix · 20 Agosto 2022

ho fatto la modifica sul listato delle somme ai visto come cambia la previsione
prima calcolava il 14 adesso calcola il 59..
la terzina genera tre ambi..

13 42
59 42
59 13
nel pronostico del listato ho messo solo l'ambo del cruciverba piu la terzina
comunque ognuno gioca come vuole..

La Figura del TRIANGOLO per TRE TERZINE

Advanced Premium Member

Advanced Premium Member

Advanced Member >PLATINUM<

Advanced Member >PLATINUM<

Advanced Member >PLATINUM<

Advanced Premium Member

Advanced Premium Member

Advanced Premium Member

Advanced Member >PLATINUM<

Advanced Premium Member

Advanced Member >PLATINUM<

Advanced Premium Member

Advanced Premium Member

Advanced Member >PLATINUM<

Advanced Premium Member

Advanced Member >PLATINUM<

Advanced Premium Member

Advanced Member >PLATINUM<

Advanced Premium Member

Advanced Premium Member