annuncio

Comprimi
Ancora nessun annuncio.

Script su Metodi Antichi e di Grandi Autori

Comprimi
X
  • Filtro
  • Ora
  • Visualizza
Elimina tutto
nuovi messaggi

  • Script su Metodi Antichi e di Grandi Autori

    IL QUADRATO NUMERICO DI URAZIO






    codice:
    'Progetto - IL QUADRATO NUMERICO - AUTORE URAZIO
    'Script by Salvo50
    Option Explicit
    Sub Main
        Dim Fin,Clp,Col,Esqcol,Esq,Es,R1,K,Caso,Casi,K1
        Dim A(5),B(5),C(5),D(5),E(5),AB(5),BC(5),CD(5),DE(5)
        Dim S1,S2,S3,S4,S5,D12,D23,D34,D45,Rs12,Rs34
        Dim D1,D2,D3,D4,D5,D6,D7,D8,Rs1,Rs2,Rs3,Rs4
        Dim Num(2),Ru(1),Poste(2)
        Poste(1) = 1
        Poste(2) = 1
        Fin = EstrazioneFin
        Esq = InputBox("Inserisci l'estrazione che vuoi iniziare",,1048)'1048 l'esempio nell'articolo, Ruota Napoli
        Clp = CInt(InputBox("Per quanti colpi vuoi fare la ricerca?",,13))
        Col = CInt(InputBox(" Quante estrazioni vuoi controllare?",,10))
        Esqcol = Esq + Col
        If Esqcol > Fin Then Esqcol = Fin
        For Es = Esq To Esqcol
            Caso = 0
            AvanzamentoElab Esq,Esqcol,Es
            For R1 = 1 To 10
                'Le 5 estrazioni
                A(1) = Estratto((Es - 4),R1,1):If A(1) > 0 Then
                A(2) = Estratto((Es - 4),R1,2):A(3) = Estratto((Es - 4),R1,3)
                A(4) = Estratto((Es - 4),R1,4):A(5) = Estratto((Es - 4),R1,5):B(1) = Estratto((Es - 3),R1,1)
                B(2) = Estratto((Es - 3),R1,2):B(3) = Estratto((Es - 3),R1,3):B(4) = Estratto((Es - 3),R1,4)
                B(5) = Estratto((Es - 3),R1,5):C(1) = Estratto((Es - 2),R1,1):C(2) = Estratto((Es - 2),R1,2)
                C(3) = Estratto((Es - 2),R1,3):C(4) = Estratto((Es - 2),R1,4):C(5) = Estratto((Es - 2),R1,5)
                D(1) = Estratto((Es - 1),R1,1):D(2) = Estratto((Es - 1),R1,2):D(3) = Estratto((Es - 1),R1,3)
                D(4) = Estratto((Es - 1),R1,4):D(5) = Estratto((Es - 1),R1,5):E(1) = Estratto(Es,R1,1)
                E(2) = Estratto(Es,R1,2):E(3) = Estratto(Es,R1,3):E(4) = Estratto(Es,R1,4):E(5) = Estratto(Es,R1,5)
                'I 4 Risultati centrali ogni 2 estrazioni
                AB(1) = Fuori90(90 +(B(1) - A(1))):AB(2) = Fuori90(90 +(B(2) - A(2))):AB(3) = Fuori90(90 +(B(3) - A(3)))
                AB(4) = Fuori90(90 +(B(4) - A(4))):AB(5) = Fuori90(90 +(B(5) - A(5))):BC(1) = Fuori90(90 +(C(1) - B(1)))
                BC(2) = Fuori90(90 +(C(2) - B(2))):BC(3) = Fuori90(90 +(C(3) - B(3))):BC(4) = Fuori90(90 +(C(4) - B(4)))
                BC(5) = Fuori90(90 +(C(5) - B(5))):CD(1) = Fuori90(90 +(D(1) - C(1))):CD(2) = Fuori90(90 +(D(2) - C(2)))
                CD(3) = Fuori90(90 +(D(3) - C(3))):CD(4) = Fuori90(90 +(D(4) - C(4))):CD(5) = Fuori90(90 +(D(5) - C(5)))
                DE(1) = Fuori90(90 +(E(1) - D(1))):DE(2) = Fuori90(90 +(E(2) - D(2))):DE(3) = Fuori90(90 +(E(3) - D(3)))
                DE(4) = Fuori90(90 +(E(4) - D(4))):DE(5) = Fuori90(90 +(E(5) - D(5)))
                'Le somme delle estrazioni
                S1 = Fuori90(A(1) + A(2) + A(3) + A(4) + A(5)):S2 = Fuori90(B(1) + B(2) + B(3) + B(4) + B(5))
                S3 = Fuori90(C(1) + C(2) + C(3) + C(4) + C(5)):S4 = Fuori90(D(1) + D(2) + D(3) + D(4) + D(5))
                S5 = Fuori90(E(1) + E(2) + E(3) + E(4) + E(5))
                'Le differenze delle somme
                D12 = Fuori90(90 +(S2 - S1)):D23 = Fuori90(90 +(S3 - S2)):D34 = Fuori90(90 +(S4 - S3)):D45 = Fuori90(90 +(S5 - S4))
                D1 = Fuori90(90 +(D12 - S1)):D2 = Fuori90(90 +(S2 - D12)):D3 = Fuori90(90 +(D23 - S2)):D4 = Fuori90(90 +(S3 - D23))
                D5 = Fuori90(90 +(D34 - S3)):D6 = Fuori90(90 +(S4 - D34)):D7 = Fuori90(90 +(D45 - S4)):D8 = Fuori90(90 +(S5 - D45))
                Rs1 = Fuori90(90 +(D2 - D1)):Rs2 = Fuori90(90 +(D4 - D3)):Rs3 = Fuori90(90 +(D6 - D5)):Rs4 = Fuori90(90 +(D8 - D7))
                Rs12 = Fuori90(90 +(Rs2 - Rs1)):Rs34 = Fuori90(90 +(Rs4 - Rs3))
                'Fine calcoli--------------------------------------------------
                Ru(1) = R1
                Num(1) = Rs12
                Num(2) = Rs34
                Caso = Caso + 1
                Casi = Casi + 1
                ColoreTesto 1
                Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000")
                ColoreTesto 2
                Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
                ColoreTesto 0
                For K = 4 To 0 Step - 1
                    Scrivi Space(23) &(" Estrazione n." & Format2(Es - K) & " del " & DataEstrazione(Es - K)),1,0
                    Scrivi "  " & SiglaRuota(R1) & " " & StringaEstratti((Es - K),R1),1
                Next
                Scrivi
                For K1 = 1 To 5
                    Scrivi Space(20) & Format2(A(K1)) & "  " & Format2(AB(K1)) & "  " & Format2(B(K1)),0,0
                    Scrivi "  --  " & Format2(B(K1)) & "  " & Format2(BC(K1)) & "  " & Format2(C(K1)),0,0
                    Scrivi "  --  " & Format2(C(K1)) & "  " & Format2(CD(K1)) & "  " & Format2(D(K1)),0,0
                    Scrivi "  --  " & Format2(D(K1)) & "  " & Format2(DE(K1)) & "  " & Format2(E(K1))
                Next
                ColoreTesto 2
                Scrivi Space(20) & Format2(S1) & "  " & Format2(D12) & "  " & Format2(S2),0,0
                Scrivi "  --  " & Format2(S2) & "  " & Format2(D23) & "  " & Format2(S3),0,0
                Scrivi "  --  " & Format2(S3) & "  " & Format2(D34) & "  " & Format2(S4),0,0
                Scrivi "  --  " & Format2(S4) & "  " & Format2(D45) & "  " & Format2(S5)
                ColoreTesto 1
                Scrivi Space(22) & Format2(D1) & "  " & Format2(D2) & Space(10) & Format2(D3),0,0
                Scrivi "  " & Format2(D4) & Space(10) & Format2(D5) & "  " & Format2(D6),0,0
                Scrivi Space(10) & Format2(D7) & "  " & Format2(D8) : ColoreTesto 0
                Scrivi Space(24) & Format2(Rs1) & Space(14) & Format2(Rs2) & Space(14) & Format2(Rs3) & Space(14) & Format2(Rs4)
                ColoreTesto 2
                Scrivi Space(32) & Format2(Rs12) & Space(30) & Format2(Rs34)
                ColoreTesto 0
                Scrivi
                ImpostaGiocata 1,Num,Ru,Poste,Clp
                Gioca Es
            End If
        Next
    Next
    ScriviResoconto
    End Sub
    Ultima modifica di salvo50; 04-12-2017, 23:07.
    Perdonando troppo chi falla, si fa ingiustizia a chi non falla.

    (B. Castiglione, - Il cortegiano)

  • #2
    Grazie salvo50, non male x ambate :-)
    Ecco una tecnica interessante di Pasquale Robbe : Clicca sull'immagine per ingrandirla. 

Nome:   1.jpg 
Visite: 1 
Dimensione: 66.9 KB 
ID: 2089730



    Commenta


    • #3
      Clicca sull'immagine per ingrandirla. 

Nome:   2.jpg 
Visite: 1 
Dimensione: 89.0 KB 
ID: 2089732

      Commenta


      • #4
        Clicca sull'immagine per ingrandirla. 

Nome:   3.jpg 
Visite: 1 
Dimensione: 86.0 KB 
ID: 2089734Clicca sull'immagine per ingrandirla. 

Nome:   4.jpg 
Visite: 1 
Dimensione: 84.4 KB 
ID: 2089735Clicca sull'immagine per ingrandirla. 

Nome:   5.jpg 
Visite: 1 
Dimensione: 69.1 KB 
ID: 2089736Clicca sull'immagine per ingrandirla. 

Nome:   6.jpg 
Visite: 1 
Dimensione: 68.9 KB 
ID: 2089737

        Commenta


        • #5
          Ciao a Tutti!
          Ciao Matematico, mi butto.

          Perdonando troppo chi falla, si fa ingiustizia a chi non falla.

          (B. Castiglione, - Il cortegiano)

          Commenta


          • #6
            Buttati tranquillo salvo50, ciao ciao

            Commenta


            • #7
              Due Somme 45 Per Un Quadrato Perfetto di Pasquale Robbe

              codice:
               'Progetto - Due Somme 45 Per Un Quadrato Perfetto - by Pasquale Robbe
              'Script   - by Salvo50
              Option Explicit
              Sub Main
                  Dim R1,R2,P1,P2,Es,CLP1,Esq,Caso,Casi
                  Dim FIn,Ini,Ruote(2),Posta(2),poste(2),posts(3)
                  Dim Idestr,Col,Esqcol,E1,E2,E3,E4
                  Dim Num1(2),Num2(2),Num3(2),Num4(2),Num5(2),Num6(4)
                  Dim S1,S2,S3,D1,D2,D3,Diam1,Diam2,Diam12,Abb1,Abb2
                  Posta(1) = 1
                  Posta(2) = 1
                  poste(2) = 1
                  posts(2) = 1
                  posts(3) = 1
                  FIn = EstrazioneFin
                  Esq = InputBox("Inserisci l'estrazione che vuoi iniziare",Idestr,7818)'7818 esempio 2, 7935 esempio 1
                  CLP1 = CInt(InputBox("Per quanti colpi vuoi fare la ricerca?",,6))
                  Col = CInt(InputBox(" Quante estrazioni vuoi controllare ",,2500))
                  Esqcol = Esq + Col
                  If Esqcol > FIn Then Esqcol = FIn
                  For Es = Esq To Esqcol
                      Caso = 0
                      AvanzamentoElab Esq,Esqcol,Es
                      For R1 = 1 To 10
                          For P1 = 1 To 4
                              P2 = P1 + 1
                              E1 = Estratto(Es,R1,P1)
                              E2 = Estratto(Es,R1,P2)
                              For R2 = R1 + 1 To 11
                                  If R2 = 11 Then R2 = 12
                                  E3 = Estratto(Es,R2,P1)
                                  E4 = Estratto(Es,R2,P2)
                                  'E1---E2
                                  '|     |
                                  '|     |
                                  'E3---E4
                                  If E1 > 0 Then
                                      S1 = Fuori90(E1 + E2)
                                      S2 = Fuori90(E3 + E4)
                                      If S1 = 45 And S2 = 45 Then
                                          S3 = 90
                                          D1 = Differenza(E1,E2)
                                          D2 = Differenza(E3,E4)
                                          D3 = Differenza(D1,D2)
                                          Diam1 = Diametrale(D3)
                                          Diam12 = Fuori90(Diam1 + 2)
                                          Abb1 = S3 - Diam12
                                          Abb2 = Diametrale(Abb1)
                                          Caso = Caso + 1
                                          Casi = Casi + 1
                                          ColoreTesto 1
                                          Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000")
                                          ColoreTesto 2
                                          Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
                                          ColoreTesto 0
                                          Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                                          Scrivi "  " & SiglaRuota(R1) & " " & StringaEstratti(Es,R1),1
                                          Scrivi Space(20) & " Seconda Ruota " & SiglaRuota(R2) & " " & StringaEstratti(Es,R2),1
                                          Scrivi
                                          Scrivi " Ambi Base  " & Space(6) & " Somme Oriz. " & Space(3) & " Differenze Oriz.",0,0
                                          Scrivi "   Diff. delle Diff."
                                          Scrivi "  " & Format2(E1) & Space(1) & Format2(E2) & Space(16) & Format2(S1),0,0
                                          Scrivi Space(17) &     Format2(D1) & Space(17) & Format2(D3)
                                          '---------------------------------------------------------------------------------------------------
                                          Scrivi "  " & Format2(E3) & Space(1) & Format2(E4) & Space(16) & Format2(S2),0,0
                                          Scrivi Space(17) & Format2(D2)
                                          Scrivi String(105,"-")
                                          Ruote(1) = R1
                                          Ruote(2) = R2
                                          Num1(1) = S1
                                          Num1(2) = S3
                                          Num2(1) = S1
                                          Num2(2) = Abb1
                                          Num3(1) = S1
                                          Num3(2) = Abb2
                                          Num4(1) = S3
                                          Num4(2) = Abb1
                                          Num5(1) = S3
                                          Num5(2) = Abb2
                                          Num6(1) = S1
                                          Num6(2) = S3
                                          Num6(3) = Abb1
                                          Num6(4) = Abb2
                                          ImpostaGiocata 1,Num1,Ruote,Posta,CLP1
                                          ImpostaGiocata 2,Num2,Ruote,Posta,CLP1
                                          ImpostaGiocata 3,Num3,Ruote,Posta,CLP1
                                          ImpostaGiocata 4,Num4,Ruote,Posta,CLP1
                                          ImpostaGiocata 5,Num5,Ruote,Posta,CLP1
                                          ImpostaGiocata 6,Num6,Ruote,posts,CLP1
                                          Gioca Es
                                      End If
                                  End If
                              Next
                          Next
                      Next
                      If ScriptInterrotto Then Exit Sub
                  Next
                  ScriviResoconto
                  Scrivi Space(46) & "Progetto - Due Somme 45 Per Un Quadrato Perfetto - by Paquale Robbe"
                  Scrivi Space(46) & "Script   - by Salvo50"
              End Sub
              Ultima modifica di salvo50; 06-12-2017, 07:44.
              Perdonando troppo chi falla, si fa ingiustizia a chi non falla.

              (B. Castiglione, - Il cortegiano)

              Commenta


              • #8
                Ciao salvo50, grazie 1000...ottimo listato ,sinceramente pensavo fosse pių potente questo metodo comunque no nč da buttare

                Commenta


                • #9
                  Ti allego un'altro metodo interessante a mio avviso:

                  Clicca sull'immagine per ingrandirla. 

Nome:   IL QUADRATO DIAMETRALE.jpg 
Visite: 1 
Dimensione: 60.9 KB 
ID: 2090017

                  Commenta


                  • #10
                    Originariamente inviato da Matematico Visualizza il messaggio
                    Ti allego un'altro metodo interessante a mio avviso:

                    Clicca sull'immagine per ingrandirla. 

Nome:   IL QUADRATO DIAMETRALE.jpg 
Visite: 1 
Dimensione: 60.9 KB 
ID: 2090017
                    Ciao a Tutti!

                    Questo non riesco proprio a farlo, se qualche esperto si vuole cimentare, č ben accetto.

                    Perdonando troppo chi falla, si fa ingiustizia a chi non falla.

                    (B. Castiglione, - Il cortegiano)

                    Commenta

                    Unconfigured Ad Widget

                    Comprimi

                    Ultima estrazione del lotto

                    Comprimi

                    Estrazione del lotto
                    sabato 16 dicembre 2017
                    Bari
                    17
                    37
                    42
                    54
                    48
                    Cagliari
                    01
                    34
                    05
                    61
                    72
                    Firenze
                    06
                    52
                    13
                    53
                    42
                    Genova
                    32
                    13
                    73
                    14
                    21
                    Milano
                    63
                    50
                    76
                    84
                    43
                    Napoli
                    76
                    47
                    73
                    33
                    36
                    Palermo
                    55
                    68
                    81
                    20
                    59
                    Roma
                    48
                    32
                    53
                    28
                    19
                    Torino
                    05
                    68
                    01
                    41
                    66
                    Venezia
                    57
                    28
                    44
                    10
                    32
                    Nazionale
                    40
                    85
                    75
                    56
                    14
                    Sto operando...
                    X