Novità

se possibile richiesta script

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
 

salvo50

Advanced Member >PLATINUM PLUS<
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:

giorgio1960

Super Member >GOLD<
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
 

salvo50

Advanced Member >PLATINUM PLUS<
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.

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:

giorgio1960

Super Member >GOLD<
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
 

salvo50

Advanced Member >PLATINUM PLUS<
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.
 

salvo50

Advanced Member >PLATINUM PLUS<
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:

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 28 marzo 2024
    Bari
    49
    73
    67
    86
    19
    Cagliari
    64
    36
    37
    02
    04
    Firenze
    66
    27
    44
    90
    17
    Genova
    09
    44
    78
    85
    19
    Milano
    70
    14
    47
    38
    27
    Napoli
    80
    29
    28
    45
    39
    Palermo
    54
    59
    78
    47
    62
    Roma
    17
    22
    49
    52
    88
    Torino
    71
    35
    75
    74
    60
    Venezia
    40
    84
    02
    63
    29
    Nazionale
    08
    13
    44
    69
    85
    Estrazione Simbolotto
    Firenze
    06
    35
    16
    18
    05
Alto