Novità

se possibile richiesta script

G

giorgio1960

Super Member >GOLD<
CICLOMETRIA: Pentagono Armonico Figurale
Autore: Noel


Tabella Figure
Figura 1: 01.10.19.28.37.46.55.64.73.82
Figura 2: 02.11.20.29.38.47.56.65.74.83
Figura 3: 03.12.21.30.39.48.57.66.75.84
Figura 4: 04.13.22.31.40.49.58.67.76.85
Figura 5: 05.14.23.32.41.50.59.68.77.86
Figura 6: 06.15.24.33.42.51.60.69.78.87
Figura 7: 07.16.25.34.43.52.61.70.79.88
Figura 8: 08.17.26.35.44.53.62.71.80.89
Figura 9: 09.18.27.36.45.54.63.72.81.90

Nella stessa estrazione o al massimo entro 4/5 sorteggi, dobbiamo rintracciare due ambi che appartengano alla medesima Figura aventi la somma o la distanza ciclometrica uguale. Successivamente, inscrivendo gli elementi nel cerchio ciclometrico, dovremo constatare che la Base Maggiore e Minore del Trapezio abbiano una distanza ciclometrica pari.

Estrazione del 11 Novembre 2008 Firenze 22 28 73 64 14
Estrazione del 15 Novembre 2008 Venezia 37 26 47 9 55

Nell'estrazione del 15 Novembre 2008, su Venezia, rintracciamo l'ambo 37-55 con somma ciclometrica 2 e sulla ruota di Firenze, due sorteggi precedenti, l'ambo 28-64 con medesima somma. Notiamo anche che tutti gli elementi appartengono alla stessa Figura 1 (condizione fondamentale).

Un'altra importante condizione viene soddisfatta poichè osserviamo dalla figura che la Base Maggiore (28-64 dist.36) e Minore (37-55 dist.18) del Trapezio sono entrambe di misura pari. Effettuiamo il calcolo dei Punti Medi di tali lati. Addizioniamo i numeri costituenti la Base Maggiore: 28+64=92 (Somma). Il risultato lo dividiamo per il fisso 2, 92:2=46 (1° Punto medio). Il Diametrale del 1° Punto Medio costituirà l'altro numero di chiusura: 46+45=1 (2° Punto Medio).

Dalle infinite prove effettuate l'ambata da porre in gioco tra i due Punti Medi è quella che corrisponde al numero maggiore (in questo caso il 46).

Pronostico:
FIRENZE-VENEZIA
46 Ambata
46-01 / 46-28 / 46-37 / 46-55 / 46-64 Ambi Secchi
01-28-37-55-64 per Ambo e Terno

Esito:
1°colpo Venezia 46 Ambata
6°colpo Firenze 46 / 46-01 Ambata ed Ambo Secco!
9°colpo Firenze 46 Ambata
9°colpo Venezia 46 Ambata


in attesa anticipatamente ringrazio Giorgio
 
Ciao a Tutti

Se alla terza domanda rispondi 1 disegna il cerchio ciclometrico.

Segnala eventuali errori o dimenticanze

Codice: 
 Option Explicit
Sub Main
   Dim FIn,Es2,Ini,A,B,C,D,Clp,Es1,Cer,Salvo50
   Dim R1,R2,P1,P2,P3,P4,P5,P6,E1,E2,Caso,Casi
   Dim SAB,SCD,DAB,DBD,DCD,DAC,FA,FB,FC,FD,XS1,S1,DS1,DAD,DBC
   Dim M1(2),Amba(1),Ambo1(2),Ambo2(2),Ambo3(2),L(4)
   Dim Ambo4(2),Penta(5),Ruo(2),Po1(1),Po2(2),Po5(5)
   FIn = EstrazioneFin
   Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9570))
   Clp = CInt(InputBox(" Per quanti colpi vuoi giocare?",Salvo50,5))
   Cer = CInt(InputBox(" Vuoi visualizzare il cerchio ciclometrico? SI = 1, NO un qualsiasi altro numero ",Salvo50,0))
   Call ScegliRange(EstrazioneIni,FIn,Ini,EstrazioneFin)
   Scrivi Space(12) & " PENTAGONO ARMONICO FIGURALE DI NOEL - SOMME UGUALI - SCRIPT SALVO50",1,,4,,3,,1
   Po1(1) = 1
   Po2(2) = 1
   Po5(2) = 1
   Po5(3) = 1
   'Po5(4) = 1
   'Po5(5) = 1
   For Es1 = Ini To FIn
      Messaggio Es1
      AvanzamentoElab Ini,FIn,Es1
      Caso = 0
      For R1 = 1 To 9
         For P1 = 1 To 4
            For P2 = P1 + 1 To 5
               A = Estratto(Es1,R1,P1)
               B = Estratto(Es1,R1,P2)
               For Es2 = Es1 To Es1 + 5
                  For R2 = R1 + 1 To 10
                     For P3 = 1 To 4
                        For P4 = P3 + 1 To 5
                           C = Estratto(Es2,R2,P3)
                           D = Estratto(Es2,R2,P4)
                           'A---B
                           '|   |
                           'C---D
                           If A <> C And A <> D And B <> C And B <> D Then
                              SAB = Fuori90(A + B) : SCD = Fuori90(C + D) : DAD = Distanza(A,D) : DBC = Distanza(B,C)
                              DAB = Distanza(A,B) : DCD = Distanza(C,D) : DAC = Distanza(A,C) : DBD = Distanza(B,D)
                              If(SAB = SCD)Then
                                 FA = Figura(A) : FB = Figura(B) : FC = Figura(C) : FD = Figura(D)
                                 If FA = FB And FA = FC And FA = FD Then
                                    If DAC <> DBD And DAC = 36 And DBD = 18 Or DAC = 18 And DBD = 36 _
                                       Or DAB <> DCD And DAB = 36 And DCD = 18 Or DAB = 18 And DCD = 36 _
                                       Or DAD <> DBC And DAD = 36 And DBC = 18 Or DAD = 18 And DBC = 36 Then

                                       '
                                       If(SAB = SCD) And(DAB <> DCD) And((DAB = 36 And DCD = 18)Or(DAB = 18 And DCD = 36)) Then
                                          If(DAB = 36 And DCD = 18) Then
                                             XS1 = A + B
                                             Call Calcolo1(XS1,S1,DS1,M1)
                                          Else
                                             If(DAB = 18 And DCD = 36)Then
                                                XS1 = C + D
                                                Call Calcolo1(XS1,S1,DS1,M1)
                                             End If
                                          End If
                                       End If
                                       '

                                       If(SAB = SCD) And(DAC <> DBD) And((DAC = 36 And DBD = 18) Or(DAC = 18 And DBD = 36)) Then
                                          If(DAC = 36 And DBD = 18) Then
                                             XS1 = A + C
                                             Call Calcolo1(XS1,S1,DS1,M1)
                                          Else
                                             If(DAC = 18 And DBD = 36)Then
                                                XS1 = B + D
                                                Call Calcolo1(XS1,S1,DS1,M1)
                                             End If
                                          End If
                                       End If
                                       '
                                       If(SAB = SCD) And(DAD <> DBC) And((DAD = 36 And DBC = 18) Or(DAD = 18 And DBC = 36)) Then
                                          If(DAD = 36 And DBC = 18) Then
                                             XS1 = A + D
                                             Call Calcolo1(XS1,S1,DS1,M1)
                                          Else
                                             If(DAD = 18 And DBC = 36)Then
                                                XS1 = B + C
                                                Call Calcolo1(XS1,S1,DS1,M1)
                                             End If
                                          End If
                                       End If
                                       '

                                       '
                                       Caso = Caso + 1
                                       Casi = Casi + 1
                                       Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
                                       Scrivi String(80,"*") & " Estrazione " &(Es1) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
                                       Scrivi(" Estrazione n." & Format2(Es1) & " del " & DataEstrazione(Es1)),1,0
                                       Scrivi "  " & SiglaRuota(R1) & " ",1,0
                                       For P5 = 1 To 5
                                          E1 = Estratto(Es1,R1,P5)
                                          If E1 = A Or E1 = B Then
                                             ColoreTesto 2
                                          Else
                                             ColoreTesto 0
                                          End If
                                          Scrivi Format2(E1) & " ",1,0
                                          ColoreTesto 0
                                       Next
                                       Scrivi
                                       Scrivi(" Estrazione n." & Format2(Es2) & " del " & DataEstrazione(Es2)),1,0
                                       Scrivi "  " & SiglaRuota(R2) & " ",1,0
                                       For P6 = 1 To 5
                                          E2 = Estratto(Es2,R2,P6)
                                          If E2 = C Or E2 = D Then
                                             ColoreTesto 2
                                          Else
                                             ColoreTesto 0
                                          End If
                                          Scrivi Format2(E2) & " ",1,0
                                          ColoreTesto 0
                                       Next
                                       Scrivi
                                       Scrivi
                                       Scrivi Space(7) & "Estratti " & Space(25) & "Somme " & Space(10) & " distanze",1
                                       Scrivi Space(7) & "Figura " & FA & Space(23) & "Orizzontali        Orizzontali ",1
                                       Scrivi Space(8) & Format2(A) & " " & Format2(B),1,0
                                       Scrivi Space(29) & Format2(SAB) & Space(17) & Format2(DAB),1
                                       Scrivi Space(8) & Format2(C) & " " & Format2(D),1,0
                                       Scrivi Space(29) & Format2(SCD) & Space(17) & Format2(DCD),1
                                       Scrivi

                                       'Scrivi Format2(M1(1)) & " " & Format2(M1(2))
                                       If Cer = 1 Then
                                          L(1) = A : L(2) = B : L(3) = C : L(4) = D
                                          DisegnaCerchioCiclometrico L,1,,,,1
                                       End If
                                       Scrivi
                                       Ruo(1) = R1
                                       Ruo(2) = R2
                                       Amba(1) = M1(1)
                                       ImpostaGiocata 1,Amba,Ruo,Po1,Clp,1
                                       Ambo1(1) = M1(1) : Ambo1(2) = A
                                       ImpostaGiocata 2,Ambo1,Ruo,Po2,Clp,2
                                       Ambo2(1) = M1(1) : Ambo2(2) = B
                                       ImpostaGiocata 3,Ambo2,Ruo,Po2,Clp,2
                                       Ambo3(1) = M1(1) : Ambo3(2) = C
                                       ImpostaGiocata 4,Ambo3,Ruo,Po2,Clp,2
                                       Ambo4(1) = M1(1): Ambo4(2) = D
                                       ImpostaGiocata 5,Ambo4,Ruo,Po2,Clp,2
                                       Penta(1) = FA : Penta(2) = A : Penta(3) = B : Penta(4) = C : Penta(5) = D
                                       ImpostaGiocata 6,Penta,Ruo,Po5,Clp
                                       Gioca Es2
                                    End If
                                 End If
                              End If
                           End If
                        Next
                     Next
                  Next
               Next
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub
Function Calcolo1(XS1,S1,DS1,M1)
   S1 = XS1 / 2
   DS1 = Diametrale(S1)
   M1(1) = S1 : M1(2) = DS1
   Call OrdinaMatrice(M1,- 1)
End Function
 
Ultima modifica:
ciao salvo, buona sera
ti ringrazio per l'attenzione prestata
ti volevo segnalare
29 gennaio PA 17 80 distanza 27
26 gennaio MI 71 08 distanza 27
due ambi figura 8
disposti sul cerchio abbiamo le due basi con valore pari
condizioni rispettate
come mai lo script non le rileva?
anticipatamente ringrazio Giorgio
 
giorgio1960;n2152413 ha scritto:
Un'altra importante condizione viene soddisfatta poichè osserviamo dalla figura che la Base Maggiore (28-64 dist.36) e Minore (37-55 dist.18) del Trapezio sono entrambe di MISURA PARI.
Clicca per espandere...

Ciao, nello script postato, dato che l'esempio è fatto solo con la somma uguale, con la distanza uguale non l'ho fatto, ma non è questo il punto, anche se l'avessi fatto quell'estrazione citata da te, non sarebbe venuta lo stesso, perchè una delle condizioni è che sia la base maggiore che la base minore devono essere pari e nell'esempio citato da te non sono pari, quindi lo script l'avrebbe esclusa, ti posto un altro script dove prende le coppie di ambi con le distanze uguali, allora ricapitoliamo, quello già postato prende le coppie con le somme uguali, questo prende le coppie con le distanze uguali, ma ripeto l'estrazione segnalata da te non ci sarà perche base maggiore e base minore non sono pari, il metodo chiede che siano pari perche dopo li divide per 2.

Ho fatto la prova di togliere la condizione che le due basi devono essere pari e l'estrazione citata da te c'è, ma i calcoli vengono sballati.

Proverò ad unificare i 2 script, ma per il momento non ho idea di come fare.


Codice: 
 Option Explicit
Sub Main
   Dim FIn,Es2,Ini,A,B,C,D,Clp,Es1,Cer,Salvo50
   Dim R1,R2,P1,P2,P3,P4,P5,P6,E1,E2,Caso,Casi
   Dim SAB,SCD,DAB,DBD,DCD,DAC,FA,FB,FC,FD,XS1,S1,DS1,DAD,DBC
   Dim M1(2),Amba(1),Ambo1(2),Ambo2(2),Ambo3(2),L(4)
   Dim Ambo4(2),Penta(5),Ruo(2),Po1(1),Po2(2),Po5(5)
   FIn = EstrazioneFin
   Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9580))
   Clp = CInt(InputBox(" Per quanti colpi vuoi giocare?",Salvo50,5))
   Cer = CInt(InputBox(" Vuoi visualizzare il cerchio ciclometrico? SI = 1, NO un qualsiasi altro numero ",Salvo50,1))
   Call ScegliRange(EstrazioneIni,FIn,Ini,EstrazioneFin)
   Scrivi Space(12) & " PENTAGONO ARMONICO FIGURALE DI NOEL - DISTANZE UGUALI - SCRIPT SALVO50",1,,4,,3,,1
   Po1(1) = 1
   Po2(2) = 1
   Po5(2) = 1
   Po5(3) = 1
   'Po5(4) = 1
   'Po5(5) = 1
   For Es1 = Ini To FIn
      Messaggio Es1
      AvanzamentoElab Ini,FIn,Es1
      Caso = 0
      For R1 = 1 To 9
         For P1 = 1 To 4
            For P2 = P1 + 1 To 5
               A = Estratto(Es1,R1,P1)
               B = Estratto(Es1,R1,P2)
               For Es2 = Es1 To Es1 + 5
                  For R2 = R1 + 1 To 10
                     For P3 = 1 To 4
                        For P4 = P3 + 1 To 5
                           C = Estratto(Es2,R2,P3)
                           D = Estratto(Es2,R2,P4)
                           'A---B
                           '|   |
                           'C---D
                           If A <> C And A <> D And B <> C And B <> D Then
                              SAB = Fuori90(A + B) : SCD = Fuori90(C + D) : DAD = Distanza(A,D) : DBC = Distanza(B,C)
                              DAB = Distanza(A,B) : DCD = Distanza(C,D) : DAC = Distanza(A,C) : DBD = Distanza(B,D)
                              If(SAB = SCD)Or(DAB = DCD)Or(DAC = DBD) Or(DAD = DBC)Then
                                 FA = Figura(A) : FB = Figura(B) : FC = Figura(C) : FD = Figura(D)
                                 If FA = FB And FA = FC And FA = FD Then
                                    If(DAB = DCD And DAC <> DBD) And((DAC = 36 And DBD = 18) Or(DAC = 18 And DBD = 36)) _
                                       Or(DAB = DCD And DAD <> DBC) And((DAD = 36 And DBC = 18) Or(DAD = 18 And DBC = 36)) Then
                                       '
                                       If(DAB = DCD) And(DAC <> DBD) And((DAC = 36 And DBD = 18) Or(DAC = 18 And DBD = 36)) Then
                                          If(DAC = 36 And DBD = 18) Then
                                             XS1 = A + C
                                             Call Calcolo1(XS1,S1,DS1,M1)
                                          Else
                                             If(DAC = 18 And DBD = 36)Then
                                                XS1 = B + D
                                                Call Calcolo1(XS1,S1,DS1,M1)
                                             End If
                                          End If
                                       End If
                                       If(DAB = DCD) And(DAD <> DBC) And((DAD = 36 And DBC = 18) Or(DAD = 18 And DBC = 36)) Then
                                          If(DAD = 36 And DBC = 18) Then
                                             XS1 = A + D
                                             Call Calcolo1(XS1,S1,DS1,M1)
                                          Else
                                             If(DAC = 18 And DBD = 36)Then
                                                XS1 = B + C
                                                Call Calcolo1(XS1,S1,DS1,M1)
                                             End If
                                          End If
                                       End If
                                       '
                                       Caso = Caso + 1
                                       Casi = Casi + 1
                                       Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
                                       Scrivi String(80,"*") & " Estrazione " &(Es1) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
                                       Scrivi(" Estrazione n." & Format2(Es1) & " del " & DataEstrazione(Es1)),1,0
                                       Scrivi "  " & SiglaRuota(R1) & " ",1,0
                                       For P5 = 1 To 5
                                          E1 = Estratto(Es1,R1,P5)
                                          If E1 = A Or E1 = B Then
                                             ColoreTesto 2
                                          Else
                                             ColoreTesto 0
                                          End If
                                          Scrivi Format2(E1) & " ",1,0
                                          ColoreTesto 0
                                       Next
                                       Scrivi
                                       Scrivi(" Estrazione n." & Format2(Es2) & " del " & DataEstrazione(Es2)),1,0
                                       Scrivi "  " & SiglaRuota(R2) & " ",1,0
                                       For P6 = 1 To 5
                                          E2 = Estratto(Es2,R2,P6)
                                          If E2 = C Or E2 = D Then
                                             ColoreTesto 2
                                          Else
                                             ColoreTesto 0
                                          End If
                                          Scrivi Format2(E2) & " ",1,0
                                          ColoreTesto 0
                                       Next
                                       Scrivi
                                       Scrivi
                                       Scrivi Space(7) & "Estratti " & Space(25) & "Somme " & Space(10) & " distanze",1
                                       Scrivi Space(7) & "Figura " & FA & Space(23) & "Orizzontali        Orizzontali ",1
                                       Scrivi Space(8) & Format2(A) & " " & Format2(B),1,0
                                       Scrivi Space(29) & Format2(SAB) & Space(17) & Format2(DAB),1
                                       Scrivi Space(8) & Format2(C) & " " & Format2(D),1,0
                                       Scrivi Space(29) & Format2(SCD) & Space(17) & Format2(DCD),1
                                       Scrivi
                                       'Scrivi Format2(M1(1)) & " " & Format2(M1(2))
                                       If Cer = 1 Then
                                          L(1) = A : L(2) = B : L(3) = C : L(4) = D
                                          DisegnaCerchioCiclometrico L,1,,,,1
                                       End If
                                       Scrivi
                                       Ruo(1) = R1
                                       Ruo(2) = R2
                                       Amba(1) = M1(1)
                                       ImpostaGiocata 1,Amba,Ruo,Po1,Clp,1
                                       Ambo1(1) = M1(1) : Ambo1(2) = A
                                       ImpostaGiocata 2,Ambo1,Ruo,Po2,Clp,2
                                       Ambo2(1) = M1(1) : Ambo2(2) = B
                                       ImpostaGiocata 3,Ambo2,Ruo,Po2,Clp,2
                                       Ambo3(1) = M1(1) : Ambo3(2) = C
                                       ImpostaGiocata 4,Ambo3,Ruo,Po2,Clp,2
                                       Ambo4(1) = M1(1): Ambo4(2) = D
                                       ImpostaGiocata 5,Ambo4,Ruo,Po2,Clp,2
                                       Penta(1) = FA : Penta(2) = A : Penta(3) = B : Penta(4) = C : Penta(5) = D
                                       ImpostaGiocata 6,Penta,Ruo,Po5,Clp
                                       Gioca Es2
                                    End If
                                 End If
                              End If
                           End If
                        Next
                     Next
                  Next
               Next
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub
Function Calcolo1(XS1,S1,DS1,M1)
   S1 = XS1 / 2
   DS1 = Diametrale(S1)
   M1(1) = S1 : M1(2) = DS1
   Call OrdinaMatrice(M1,- 1)
End Function
 
Ultima modifica:
ciao, ti ringrazio per la pazienza e la disponibilità
ritornando all'esempio (reale)
29 gennaio PA 17 80 distanza 27
26 gennaio MI 71 08 distanza 27
due ambi figura 8
disposti sul cerchio abbiamo le due basi con valore pari
base minore 80-8 distanza 18
base maggiore 71-17 distanza 36
quindi le condizioni sono rispettate
ancora grazie e buona serata
 
Ciao a Tutti.

Nei 2 script ho tolto la condizione che eliminava le basi dispari e nel primo dove controlla la somma uguale

ho predisposto che le basi le cerca come da esempio in orizzontali, nel secondo script dove controllo le

distanze uguali, le due basi maggiore e minore li cerco in verticale come l'esempio (reale) trovato da te,

per il momento non posso fare di più, in seguito vedrò se riesco a unificarli.
 
Ciao a Tutti

Ho unificato i 2 script precedenti e fatto in modo di selezionare solo le estrazioni con le basi maggiore e minore pari, segnalatemi se ci sono altre anomalie.

Codice: 
 Option Explicit
Sub Main
   Dim FIn,Es2,Ini,A,B,C,D,Clp,Es1,Cer,Salvo50
   Dim R1,R2,P1,P2,P3,P4,P5,P6,E1,E2,Caso,Casi
   Dim SAB,SCD,DAB,DBD,DCD,DAC,FA,FB,FC,FD,XS1,S1,DS1,DAD,DBC
   Dim M1(2),Amba(1),Ambo1(2),Ambo2(2),Ambo3(2),L(4)
   Dim Ambo4(2),Penta(5),Ruo(2),Po1(1),Po2(2),Po5(5)
   FIn = EstrazioneFin
   Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9580))
   Clp = CInt(InputBox(" Per quanti colpi vuoi giocare?",Salvo50,5))
   Cer = CInt(InputBox(" Vuoi visualizzare il cerchio ciclometrico? SI = 1, NO un qualsiasi altro numero ",Salvo50,0))
   Call ScegliRange(EstrazioneIni,FIn,Ini,EstrazioneFin)
   Scrivi Space(12) & " PENTAGONO ARMONICO FIGURALE DI NOEL - SCRIPT SALVO50",1,,4,,3,,1
   Po1(1) = 1
   Po2(2) = 1
   Po5(2) = 1
   Po5(3) = 1
   'Po5(4) = 1
   'Po5(5) = 1
   For Es1 = Ini To FIn
      Messaggio Es1
      AvanzamentoElab Ini,FIn,Es1
      Caso = 0
      For R1 = 1 To 9
         For P1 = 1 To 4
            For P2 = P1 + 1 To 5
               A = Estratto(Es1,R1,P1)
               B = Estratto(Es1,R1,P2)
               For Es2 = Es1 To Es1 + 5
                  For R2 = R1 + 1 To 10
                     For P3 = 1 To 4
                        For P4 = P3 + 1 To 5
                           C = Estratto(Es2,R2,P3)
                           D = Estratto(Es2,R2,P4)
                           'A---B
                           '|   |
                           'C---D
                           If A <> C And A <> D And B <> C And B <> D Then
                              SAB = Fuori90(A + B) : SCD = Fuori90(C + D) : DAD = Distanza(A,D) : DBC = Distanza(B,C)
                              DAB = Distanza(A,B) : DCD = Distanza(C,D) : DAC = Distanza(A,C) : DBD = Distanza(B,D)
                              If(SAB = SCD)Or(DAB = DCD)Or(DAC = DBD) Or(DAD = DBC)Then
                                 FA = Figura(A) : FB = Figura(B) : FC = Figura(C) : FD = Figura(D)
                                 If FA = FB And FA = FC And FA = FD Then
                                    If DAC <> DBD And DAC = 36 And DBD = 18 Or DAC = 18 And DBD = 36 _
                                       Or DAB <> DCD And DAB = 36 And DCD = 18 Or DAB = 18 And DCD = 36 _
                                       Or DAD <> DBC And DAD = 36 And DBC = 18 Or DAD = 18 And DBC = 36 Then

                                       '
                                       If(SAB = SCD) And(DAB <> DCD) And((DAB = 36 And DCD = 18)Or(DAB = 18 And DCD = 36)) Then
                                          If(DAB = 36 And DCD = 18) Then
                                             XS1 = A + B
                                             Call Calcolo1(XS1,S1,DS1,M1)
                                          Else
                                             If(DAB = 18 And DCD = 36)Then
                                                XS1 = C + D
                                                Call Calcolo1(XS1,S1,DS1,M1)
                                             End If
                                          End If
                                       End If
                                       '

                                       If(SAB = SCD) And(DAC <> DBD) And((DAC = 36 And DBD = 18) Or(DAC = 18 And DBD = 36)) Then
                                          If(DAC = 36 And DBD = 18) Then
                                             XS1 = A + C
                                             Call Calcolo1(XS1,S1,DS1,M1)
                                          Else
                                             If(DAC = 18 And DBD = 36)Then
                                                XS1 = B + D
                                                Call Calcolo1(XS1,S1,DS1,M1)
                                             End If
                                          End If
                                       End If
                                       '
                                       If(SAB = SCD) And(DAD <> DBC) And((DAD = 36 And DBC = 18) Or(DAD = 18 And DBC = 36)) Then
                                          If(DAD = 36 And DBC = 18) Then
                                             XS1 = A + D
                                             Call Calcolo1(XS1,S1,DS1,M1)
                                          Else
                                             If(DAD = 18 And DBC = 36)Then
                                                XS1 = B + C
                                                Call Calcolo1(XS1,S1,DS1,M1)
                                             End If
                                          End If
                                       End If
                                       '
                                       If(DAB = DCD) And(DAC <> DBD) And((DAC = 36 And DBD = 18) Or(DAC = 18 And DBD = 36)) Then
                                          If(DAC = 36 And DBD = 18) Then
                                             XS1 = A + C
                                             Call Calcolo1(XS1,S1,DS1,M1)
                                          Else
                                             If(DAC = 18 And DBD = 36)Then
                                                XS1 = B + D
                                                Call Calcolo1(XS1,S1,DS1,M1)
                                             End If
                                          End If
                                       End If


                                       If(DAB = DCD) And(DAD <> DBC) And((DAD = 36 And DBC = 18) Or(DAD = 18 And DBC = 36)) Then
                                         If(DAD = 36 And DBC = 18) Then
                                             XS1 = A + D
                                             Call Calcolo1(XS1,S1,DS1,M1)
                                          Else
                                             If(DAC = 18 And DBD = 36)Then
                                                XS1 = B + C
                                                Call Calcolo1(XS1,S1,DS1,M1)
                                             End If
                                          End If

                                       End If
                                       '
                                       Caso = Caso + 1
                                       Casi = Casi + 1
                                       Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
                                       Scrivi String(80,"*") & " Estrazione " &(Es1) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
                                       Scrivi(" Estrazione n." & Format2(Es1) & " del " & DataEstrazione(Es1)),1,0
                                       Scrivi "  " & SiglaRuota(R1) & " ",1,0
                                       For P5 = 1 To 5
                                          E1 = Estratto(Es1,R1,P5)
                                          If E1 = A Or E1 = B Then
                                             ColoreTesto 2
                                          Else
                                             ColoreTesto 0
                                          End If
                                          Scrivi Format2(E1) & " ",1,0
                                          ColoreTesto 0
                                       Next
                                       Scrivi
                                       Scrivi(" Estrazione n." & Format2(Es2) & " del " & DataEstrazione(Es2)),1,0
                                       Scrivi "  " & SiglaRuota(R2) & " ",1,0
                                       For P6 = 1 To 5
                                          E2 = Estratto(Es2,R2,P6)
                                          If E2 = C Or E2 = D Then
                                             ColoreTesto 2
                                          Else
                                             ColoreTesto 0
                                          End If
                                          Scrivi Format2(E2) & " ",1,0
                                          ColoreTesto 0
                                       Next
                                       Scrivi
                                       Scrivi
                                       Scrivi Space(7) & "Estratti " & Space(25) & "Somme " & Space(10) & " distanze",1
                                       Scrivi Space(7) & "Figura " & FA & Space(23) & "Orizzontali        Orizzontali ",1
                                       Scrivi Space(8) & Format2(A) & " " & Format2(B),1,0
                                       Scrivi Space(29) & Format2(SAB) & Space(17) & Format2(DAB),1
                                       Scrivi Space(8) & Format2(C) & " " & Format2(D),1,0
                                       Scrivi Space(29) & Format2(SCD) & Space(17) & Format2(DCD),1
                                       Scrivi

                                       'Scrivi Format2(M1(1)) & " " & Format2(M1(2))
                                       If Cer = 1 Then
                                          L(1) = A : L(2) = B : L(3) = C : L(4) = D
                                          DisegnaCerchioCiclometrico L,1,,,,1
                                       End If
                                       Scrivi
                                       Ruo(1) = R1
                                       Ruo(2) = R2
                                       Amba(1) = M1(1)
                                       ImpostaGiocata 1,Amba,Ruo,Po1,Clp,1
                                       Ambo1(1) = M1(1) : Ambo1(2) = A
                                       ImpostaGiocata 2,Ambo1,Ruo,Po2,Clp,2
                                       Ambo2(1) = M1(1) : Ambo2(2) = B
                                       ImpostaGiocata 3,Ambo2,Ruo,Po2,Clp,2
                                       Ambo3(1) = M1(1) : Ambo3(2) = C
                                       ImpostaGiocata 4,Ambo3,Ruo,Po2,Clp,2
                                       Ambo4(1) = M1(1): Ambo4(2) = D
                                       ImpostaGiocata 5,Ambo4,Ruo,Po2,Clp,2
                                       Penta(1) = FA : Penta(2) = A : Penta(3) = B : Penta(4) = C : Penta(5) = D
                                       ImpostaGiocata 6,Penta,Ruo,Po5,Clp
                                       Gioca Es2
                                    End If
                                 End If
                              End If
                           End If
                        Next
                     Next
                  Next
               Next
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub
Function Calcolo1(XS1,S1,DS1,M1)
   S1 = XS1 / 2
   DS1 = Diametrale(S1)
   M1(1) = S1 : M1(2) = DS1
   Call OrdinaMatrice(M1,- 1)
End Function
 
Ultima modifica:
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 28 gennaio 2025
    Bari
    32
    56
    11
    49
    52
    Cagliari
    90
    42
    39
    30
    13
    Firenze
    21
    60
    31
    05
    14
    Genova
    42
    80
    86
    57
    36
    Milano
    31
    88
    28
    12
    66
    Napoli
    27
    22
    44
    30
    77
    Palermo
    54
    56
    36
    06
    43
    Roma
    31
    70
    27
    11
    22
    Torino
    85
    08
    70
    49
    07
    Venezia
    16
    13
    81
    18
    03
    Nazionale
    35
    01
    67
    44
    14
    Estrazione Simbolotto
    Bari
    35
    40
    32
    28
    30
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto