annuncio

Comprimi
Ancora nessun annuncio.

Per Salvo uno script

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

  • Per Salvo uno script

    Metodo triplo differenziale e sommativo rilevare in diagonale distanza 45 numeri isotopi quadrato perfetto, porto un esempio per semplificare il tutto:

    DATA 19.6.2018

    questo triplo diff.
    ORIZ VERT. DIAG.
    VE- 8 - 13 13-8= 5- 58-8= 50-90=40- 48-8= 40-
    58-48=10 = 48-13= 35 58-13=45=
    naz=58-48 -------- ----------- --------
    5 5 5


    Prima ambata 5
    =========================================

    TRIPLO SOMMATIVO:


    VE=8-13
    NAZ.58-48

    ORIZ. VERT. DIAG.

    13+8= 21+ 58+8= 66+ 58+13 =71+
    58+48=106-90=16= 48+13=61=127-90= 48+8 =56=127-90=37
    --------- --------- ---------
    37 37 37



    Seconda ambata 37

    Sulle ruote di VE E NAZ. x 7 o 8 colpi

    N.B. nel differenziale quando dalla somma un numero supera il 45, sottrarre al 90 come vedi sopra in verticale.

    Se Ŕ possibile nello script inserire lo schema di rilevamento,nonchŔ gioca x le convergenze.

    Altra cosa le ruote va bene anche qualsiasi, l'importante che ci sia un quadrato perfetto.

    Se c'Ŕ qualcosa che non quadra fammi sapere grazie e un caro saluto da
    Chicco




    Ultima modifica di chicco3; 11-07-2018, 13:34.

  • #2
    Ciao a Tutti.



    Originariamente inviato da chicco3 Visualizza il messaggio
    Metodo triplo differenziale e sommativo rilevare in diagonale distanza 45 numeri isotopi quadrato perfetto, porto un esempio per semplificare il tutto:

    DATA 19.6.2018

    questo triplo diff. ORIZ. VERT. DIAG.

    VE- 8 - 13 13-8= 5- 58-8= 50-90=40- 48-8= 40-
    58-48=10 = 48-13=35 35= 58-13=45=
    naz=58-48 -------- ----------- --------
    5 5 5

    Prima ambata 5
    ================================================== ===========================================
    Non capisco come si Ŕ arrivati ai tre 5, dovresti occupare un rigo per ogni operazione, perchŔ non riesco a capire quando finisce un'operazione ed inizia un'altra


    TRIPLO SOMMATIVO: ORIZ. VERT. DIAG.

    VE=8-13 13+8= 21+ 58+8= 66- 58+13 =71+
    58+48=106-90=16= 48+13=61=127-90=37 48+8 =56= 127-90=37
    ----------- --------- -------------
    NAZ.58-48 37 37 37

    Seconda ambata 37
    Idem qui, da quale calcolo Ŕ uscito quel (127), anche qui metti un operazione per ogni rigo, cioŔ dopo avere fatto un addizione, vai a capo in modo che io possa distinguere un'operazione da un'altra


    Se Ŕ possibile nello script inserire lo schema di rilevamento,nonchŔ gioca x le convergenze.
    Cosa intendi per schema di rilevamento?








    Ultima modifica di salvo50; 11-07-2018, 13:43.
    Perdonando troppo chi falla, si fa ingiustizia a chi non falla.

    (B. Castiglione, - Il cortegiano)

    Commenta


    • #3
      TRIPLO DIFF.E SOMM-11.7.2018.txt

      Commenta


      • rudivall
        rudivall commentata
        Modifica di un commento
        Ciao Chicco, buona giornata, questo metodo Ŕ sempre della stessa persona?

    • #4
      Ciao Salvo guarda il file txt, non riesco sopra a far quadrare i numeri grzie

      Commenta


      • #5
        Originariamente inviato da chicco3 Visualizza il messaggio
        Ciao Salvo guarda il file txt, non riesco sopra a far quadrare i numeri grzie
        Preso, grazie, adesso Ŕ chiarissimo per quanto riguarda i calcoli, per˛ continuo a non capire cos'Ŕ lo schema di rilevamento

        Forse devo evidenziare i 4 numeri?
        Ultima modifica di salvo50; 11-07-2018, 14:12.
        Perdonando troppo chi falla, si fa ingiustizia a chi non falla.

        (B. Castiglione, - Il cortegiano)

        Commenta


        • #6
          Oltre ad aver evidenziato i 4 estratti con le caratteristiche del metodo, ho anche posto nell'output tutte le somme e le distanze, le somme col Fuori90 e le Distanze Ciclometriche


          codice:
           'Metodo - Triplo Differenziale Sommativo - chiesto da Chicco3
          'Versione con ruote consecutive ed estratti consecutivi
          'script by Salvo50
          Option Explicit
          Sub Main
             Dim Fin,Es,Ini,R1,R2,P1,P2,P3,P4,E1,E2
             Dim A,B,C,D,Caso,Clp
             Dim DAB,DCD,DAC,DBD,DAD,DBC,Dor,Dve,Ddi
             Dim SAB,SCD,SAC,SBD,SAD,SBC,Sor,Sve,Sdi
             Dim Post(2),Ruote(2),Ambata(2)
             Post(1) = 1
             Clp = CInt(InputBox(" Per quanti colpi vuoi giocare le ambate ? ",,7))
             Call ScegliRange(Ini,Fin,9488,EstrazioneFin)'estrazione articolo 9488
             For Es = Ini To Fin
                Messaggio Es
                AvanzamentoElab Ini,Fin,Es
                For R1 = 1 To 10
                   For P1 = 1 To 4
                      P2 = P1 + 1
                      A = Estratto(Es,R1,P1)
                      B = Estratto(Es,R1,P2)
                      R2 = R1 + 1
                      If R2 = 11 Then R2 = 12
                      C = Estratto(Es,R2,P1)
                      D = Estratto(Es,R2,P2)
                      If Distanza(A,D) = 45 Xor Distanza(B,C) = 45 Then
                         'Distanze - Orizontali - Verticali e Diagonali
                         DAB = Distanza(A,B) : DCD = Distanza(C,D) : Dor = Distanza(DAB,DCD)
                         DAC = Distanza(A,C) : DBD = Distanza(B,D) : Dve = Distanza(DAC,DBD)
                         DAD = Distanza(A,D) : DBC = Distanza(B,C) : Ddi = Distanza(DAD,DBC)
                         If Dor = Dve And Dor = Ddi And Dve = Ddi Then
                            'Somme - Orizontali - Verticali e Diagonali
                            SAB = Fuori90(A + B) : SCD = Fuori90(C + D) : Sor = Fuori90(SAB + SCD)
                            SAC = Fuori90(A + C) : SBD = Fuori90(B + D) : Sve = Fuori90(SAC + SBD)
                            SBC = Fuori90(B + C) : SAD = Fuori90(A + D) : Sdi = Fuori90(SBC + SAD)
                            If Sor = Sve And Sor = Sdi And Sve = Sdi Then
                               Caso = Caso + 1
                               ColoreTesto 1
                               Scrivi String(89,"O") & " Caso  " & FormattaStringa(Caso,"0000")
                               ColoreTesto 0
                               Scrivi
                               Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                               Scrivi "  " & SiglaRuota(R1) & " ",1,0
                               For P3 = 1 To 5
                                  E1 = Estratto(Es,R1,P3)
                                  If E1 = A Or E1 = B Then
                                     Call ColoreTesto(2)
                                  Else
                                     Call ColoreTesto(0)
                                  End If
                                  Call Scrivi(Format2(E1) & " ",1,0)
                                  Call ColoreTesto(0)
                               Next
                               Scrivi
                               '
                               Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                               Scrivi "  " & SiglaRuota(R2) & " ",1,0
                               For P4 = 1 To 5
                                  E2 = Estratto(Es,R2,P4)
                                  If E2 = C Or E2 = D Then
                                     Call ColoreTesto(2)
                                  Else
                                     Call ColoreTesto(0)
                                  End If
                                  Call Scrivi(Format2(E2) & " ",1,0)
                                  Call ColoreTesto(0)
                               Next
                               Scrivi
                               Scrivi
                               Scrivi "   Ambi   " & Space(8) & " Dist. Oriz" & Space(10) & " Dist. Vert." & Space(10) & "Dist. Diag. "
                               Scrivi "  " & Format2(A) & Space(1) & Format2(B) & Space(16) & Format2(DAB),1,0
                               Scrivi Space(19) & Format2(DAC) & Space(19) & Format2(DAD),1
                               Scrivi "  " & Format2(C) & Space(1) & Format2(D) & Space(16) & Format2(DCD),1,0
                               Scrivi Space(19) & Format2(DBD) & Space(19) & Format2(DBC),1
                               Scrivi String(73,"-")
                               ColoreTesto 2
                               Scrivi " Riepilogo Distanze    " & Format2(Dor) & Space(19) & Format2(Dve) & Space(19) & Format2(Ddi),1
                               ColoreTesto 0
                               Scrivi String(73,"X")
                               Scrivi Space(18) & " Somme Oriz" & Space(10) & " Somme Vert." & Space(10) & "Somme Diag. "
                               Scrivi Space(23) & Format2(SAB) & Space(19) & Format2(SAC) & Space(19) & Format2(SAD),1
                               Scrivi Space(23) & Format2(SCD) & Space(19) & Format2(SBD) & Space(19) & Format2(SBC),1
                               Scrivi String(73,"-")
                               ColoreTesto 2
                               Scrivi " Riepilogo Somme       " & Format2(Sor) & Space(19) & Format2(Sve) & Space(19) & Format2(Sdi),1
                               ColoreTesto 0
                               Ruote(1) = R1 : Ruote(2) = R2
                               Ambata(1) = Dor : Ambata(2) = Sor
                               ImpostaGiocata 1,Ambata,Ruote,Post,Clp
                               Gioca Es
                            End If
                         End If
                      End If
                   Next
                Next
                If ScriptInterrotto Then Exit Sub
             Next
             ScriviResoconto
             Scrivi Space(50) & "Metodo - Triplo Differenziale Sommativo - chiesto da Chicco3"
             Scrivi Space(60) & " Versione con ruote consecutive ed estratti consecutivi"
             Scrivi Space(70) & "Script by Salvo50"
          End Sub
          Ultima modifica di salvo50; 13-07-2018, 19:07.
          Perdonando troppo chi falla, si fa ingiustizia a chi non falla.

          (B. Castiglione, - Il cortegiano)

          Commenta


          • #7
            in breve? 5 37? Venezia nazionale?

            Commenta


            • chicco3
              chicco3 commentata
              Modifica di un commento
              No 33 e 77

          • #8
            Ciao Salvo x il momento non posso che ringraziarti tanto sei impeccabile adesso lo provo e poi ti dico,:Per rudivall no Ŕ stato modificato da me e un'altro lo abbiamo fatto in modo che lavori sulla distanza diagonale 45 che per me Ŕ la migliore e quadrato perfetto con numeri ricercati isotopi. Grazie salvo dopo ti faccio saper e scusa se non ho potuto scrivere prima, ero impegnato ciao a tutti gli intervenuti a dopo buona serata
            chicco

            Commenta


            • #9
              Salvo cosi strutturato Ŕ perfetto pero ho notato che in diagonale 45 non ricerca bene prova a guardare il 5.7.2018:

              VE 15-5
              NAZ.50-7

              DIST.50-5=45 NON LO RILEVA controlla anche le altre ruote grazie

              N.B.se puoi metterci Quale Ŕ il triplo diff. e quello sommativo grazie
              Ultima modifica di chicco3; 11-07-2018, 21:37.

              Commenta


              • #10
                Originariamente inviato da chicco3 Visualizza il messaggio
                Salvo cosi strutturato Ŕ perfetto pero ho notato che in diagonale 45 non ricerca bene prova a guardare il 5.7.2018:

                VE 15-5
                NAZ.50-7

                DIST.50-5=45 NON LO RILEVA controlla anche le altre ruote grazie

                N.B.se puoi metterci Quale Ŕ il triplo diff. e quello sommativo grazie
                Se lo script li scarta Ŕ perchŔ non ci sono tutte le condizioni, (oppure io ho sbagliato i calcoli) le condizioni quali sono
                dagli esempi fatti deduco che sono 3
                1) In diagonale almeno una distanza ciclometrica deve essere di valore 45
                2) Tutte e tre le distanze finali devono avere lo stesso valore
                3) Tutte e tre le somme finali devono avere lo stesso valore

                se lo script ha scartato
                VE 15 - 05
                NZ 50 - 07

                vuol dire che una o pi¨ condizioni non ci sono
                vediamo quale manca

                1) il 45 in diagonale c'Ŕ

                50 - 05 = 45



                2) Distanze
                -------------------------------------------
                Orizontali

                15 - 05 = 10
                50 - 07 = 43
                43 - 10 = 33 <------------ Distanza finale 33
                ---------------------------------------------
                Verticali
                50 - 15 = 35
                07 - 05 = 02
                35 - 02 = 33 <------------ Distanza finale 33
                ---------------------------------------------
                Diagonali
                15 - 07 = 08
                50 - 05 = 45
                45 - 08 = 37 <------------ Distanza finale 37

                quindi come Distanze finali abbiamo
                Orizontale 33
                Verticale.. 33
                Diagonale 37

                la condizione non Ŕ rispettata perchŔ non ha tutte e 3 le Distanze finali uguali, quindi lo script la scarta

                a questo punto Ŕ inutile controllare la terza condizione delle somme

                A riguardo del triplo differenziale e sommativo, per me sono, le tre distanze e le tre somme e li ho messe
                se ho capito male e per te sono altri, dimmi quali sono ed io li metto
                Ultima modifica di salvo50; 12-07-2018, 18:06.
                Perdonando troppo chi falla, si fa ingiustizia a chi non falla.

                (B. Castiglione, - Il cortegiano)

                Commenta


                • chicco3
                  chicco3 commentata
                  Modifica di un commento
                  Scusa Salvo con tutti questi numeri non si capisce piu niente scusa.Pero manca quello del 7.7.2018
                  GE=72-31
                  VE=76-6

              • #11


                Clicca sull'immagine per ingrandirla. 

Nome:   Cattura.JPG 
Visite: 1 
Dimensione: 71.8 KB 
ID: 2123112


                orizzontale








                72-31 fa 41<< 76-6 fa 20








                41-20 fa 21








                verticale








                72-76 fa 4 << 31-6 fa 25








                25-4 fa 21








                76-31 fa 45<< 72-6 fa 24








                45-24 fa 21








                diagonale







                Commenta


                • #12
                  Originariamente inviato da chicco3 Visualizza il messaggio

                  Clicca sull'immagine per ingrandirla.Â*  Nome:   Cattura.JPGÂ* Visite: 1Â* Dimensione: 71.8 KBÂ* ID: 2123112


                  orizzontale








                  72-31 fa 41<< 76-6 fa 20








                  41-20 fa 21








                  verticale








                  72-76 fa 4 << 31-6 fa 25








                  25-4 fa 21








                  76-31 fa 45<< 72-6 fa 24








                  45-24 fa 21








                  diagonale






                  Ciao Chicco, questo non c'Ŕ bisogno che faccio i calcoli, non c'Ŕ perchŔ mi era sembrato di capire che le ruote dovevano essere consecutive, quindi lo correggo e ne posto un altro, cosý puoi usarli tutti e due per avere riscontri diversi.

                  Mi Ŕ venuto un dubbio, non Ŕ che anche gli estratti della stessa ruota possono essere non consecutivi? Aspetto una tua risposta prima di postare un'altro script.
                  Ultima modifica di salvo50; 13-07-2018, 13:47.
                  Perdonando troppo chi falla, si fa ingiustizia a chi non falla.

                  (B. Castiglione, - Il cortegiano)

                  Commenta


                  • #13
                    Ciao buongiorno salvo va bene a tutte le ruote non ha importanza delle ruote consecutive l'importante come nella figura che vedi ci sia una distanza in diagonale 45 e che i numeri siano isotopi ricavando un quadrato. Le ruote consecutive dopo ci guardo io a me serve a tutto campo per le convergenze.Spero di essermi spiegato bene grazie a te e buona giornata

                    Commenta


                    • #14
                      Originariamente inviato da chicco3 Visualizza il messaggio
                      Ciao buongiorno salvo va bene a tutte le ruote non ha importanza delle ruote consecutive l'importante come nella figura che vedi ci sia una distanza in diagonale 45 e che i numeri siano isotopi ricavando un quadrato. Le ruote consecutive dopo ci guardo io a me serve a tutto campo per le convergenze.Spero di essermi spiegato bene grazie a te e buona giornata
                      Non hai risposto alla domanda se gli estratti possono essere anche non consecutivi, quindi ne deduco che devono essere consecutivi, come da esempi.

                      codice:
                       'Metodo - Triplo Differenziale Sommativo - chiesto da Chicco3
                      'Versione Ruote consecutive e non consecutive, estratti consecutivi
                      'script by Salvo50
                      Option Explicit
                      Sub Main
                         Dim Fin,Es,Ini,R1,R2,P1,P2,P3,P4,E1,E2
                         Dim A,B,C,D,Caso,Clp,Salvo50,Casi
                         Dim DAB,DCD,DAC,DBD,DAD,DBC,Dor,Dve,Ddi
                         Dim SAB,SCD,SAC,SBD,SAD,SBC,Sor,Sve,Sdi
                         Dim Post(2),Ruote(2),Ambata(2)
                         Post(1) = 1
                         Clp = CInt(InputBox(" Per quanti colpi vuoi giocare le ambate ? ",Salvo50,7))
                         Call ScegliRange(Ini,Fin,9488,EstrazioneFin)'estrazione articolo 9488
                         For Es = Ini To Fin
                         Caso = 0
                            Messaggio Es
                            AvanzamentoElab Ini,Fin,Es
                            For R1 = 1 To 10
                               For P1 = 1 To 4
                                  P2 = P1 + 1
                                  A = Estratto(Es,R1,P1)
                                  B = Estratto(Es,R1,P2)
                                  For R2 = R1 + 1 To 12
                                  If R2 = 11 Then R2 = 12
                                  C = Estratto(Es,R2,P1)
                                  D = Estratto(Es,R2,P2)
                                  If Distanza(A,D) = 45 Xor Distanza(B,C) = 45 Then
                                     'Distanze - Orizontali - Verticali e Diagonali
                                     DAB = Distanza(A,B) : DCD = Distanza(C,D) : Dor = Distanza(DAB,DCD)
                                     DAC = Distanza(A,C) : DBD = Distanza(B,D) : Dve = Distanza(DAC,DBD)
                                     DAD = Distanza(A,D) : DBC = Distanza(B,C) : Ddi = Distanza(DAD,DBC)
                                     If Dor = Dve And Dor = Ddi And Dve = Ddi Then
                                        'Somme - Orizontali - Verticali e Diagonali
                                        SAB = Fuori90(A + B) : SCD = Fuori90(C + D) : Sor = Fuori90(SAB + SCD)
                                        SAC = Fuori90(A + C) : SBD = Fuori90(B + D) : Sve = Fuori90(SAC + SBD)
                                        SBC = Fuori90(B + C) : SAD = Fuori90(A + D) : Sdi = Fuori90(SBC + SAD)
                                        If Sor = Sve And Sor = Sdi And Sve = Sdi Then
                                          Caso = Caso + 1
                                     Casi = Casi + 1
                                     ColoreTesto 1
                                     Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000")
                                     ColoreTesto 2
                                     Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
                                     ColoreTesto 0
                      
                                           Scrivi
                                           Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                                           Scrivi "  " & SiglaRuota(R1) & " ",1,0
                                           For P3 = 1 To 5
                                              E1 = Estratto(Es,R1,P3)
                                              If E1 = A Or E1 = B Then
                                                 Call ColoreTesto(2)
                                              Else
                                                 Call ColoreTesto(0)
                                              End If
                                              Call Scrivi(Format2(E1) & " ",1,0)
                                              Call ColoreTesto(0)
                                           Next
                                           Scrivi
                                           '
                                           Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                                           Scrivi "  " & SiglaRuota(R2) & " ",1,0
                                           For P4 = 1 To 5
                                              E2 = Estratto(Es,R2,P4)
                                              If E2 = C Or E2 = D Then
                                                 Call ColoreTesto(2)
                                              Else
                                                 Call ColoreTesto(0)
                                              End If
                                              Call Scrivi(Format2(E2) & " ",1,0)
                                              Call ColoreTesto(0)
                                           Next
                                           Scrivi
                                           Scrivi
                                           Scrivi "   Ambi   " & Space(8) & " Dist. Oriz" & Space(10) & " Dist. Vert." & Space(10) & "Dist. Diag. "
                                           Scrivi "  " & Format2(A) & Space(1) & Format2(B) & Space(16) & Format2(DAB),1,0
                                           Scrivi Space(19) & Format2(DAC) & Space(19) & Format2(DAD),1
                                           Scrivi "  " & Format2(C) & Space(1) & Format2(D) & Space(16) & Format2(DCD),1,0
                                           Scrivi Space(19) & Format2(DBD) & Space(19) & Format2(DBC),1
                                           Scrivi String(73,"-")
                                           ColoreTesto 2
                                           Scrivi " Riepilogo Distanze    " & Format2(Dor) & Space(19) & Format2(Dve) & Space(19) & Format2(Ddi),1
                                           ColoreTesto 0
                                           Scrivi String(73,"X")
                                           Scrivi Space(18) & " Somme Oriz" & Space(10) & " Somme Vert." & Space(10) & "Somme Diag. "
                                           Scrivi Space(23) & Format2(SAB) & Space(19) & Format2(SAC) & Space(19) & Format2(SAD),1
                                           Scrivi Space(23) & Format2(SCD) & Space(19) & Format2(SBD) & Space(19) & Format2(SBC),1
                                           Scrivi String(73,"-")
                                           ColoreTesto 2
                                           Scrivi " Riepilogo Somme       " & Format2(Sor) & Space(19) & Format2(Sve) & Space(19) & Format2(Sdi),1
                                           ColoreTesto 0
                                           Scrivi
                                           Ruote(1) = R1 : Ruote(2) = R2
                                           Ambata(1) = Dor : Ambata(2) = Sor
                                           ImpostaGiocata 1,Ambata,Ruote,Post,Clp
                                           Gioca Es
                                        End If
                                     End If
                                  End If
                               Next
                               Next
                            Next
                            If ScriptInterrotto Then Exit Sub
                         Next
                         ScriviResoconto
                         Scrivi Space(50) & "Metodo - Triplo Differenziale Sommativo - chiesto da Chicco3",1
                         Scrivi Space(48) & "Versione Ruote consecutive e non consecutive, estratti consecutivi",1
                         Scrivi Space(70) & "Script by Salvo50",1
                      End Sub
                      Ultima modifica di salvo50; 13-07-2018, 19:10.
                      Perdonando troppo chi falla, si fa ingiustizia a chi non falla.

                      (B. Castiglione, - Il cortegiano)

                      Commenta


                      • #15
                        Ciao Salvo va benissimo sei stato velocissimo come tuo solito, ti chiedo solo con tuo comodo questi due non si possono riunire sia ruote consecutive e non? Intanto va bene mille grazie ciao buona giornata chicco

                        Commenta

                        Unconfigured Ad Widget

                        Comprimi

                        Ultima estrazione del lotto

                        Comprimi

                        Estrazione del lotto
                        martedý 25 settembre 2018
                        Bari
                        75
                        17
                        73
                        59
                        77
                        Cagliari
                        89
                        10
                        43
                        30
                        66
                        Firenze
                        01
                        56
                        51
                        55
                        84
                        Genova
                        72
                        33
                        70
                        58
                        79
                        Milano
                        89
                        12
                        76
                        43
                        13
                        Napoli
                        27
                        88
                        85
                        52
                        68
                        Palermo
                        80
                        05
                        17
                        81
                        90
                        Roma
                        48
                        64
                        11
                        34
                        21
                        Torino
                        67
                        42
                        46
                        52
                        20
                        Venezia
                        16
                        61
                        66
                        26
                        80
                        Nazionale
                        77
                        52
                        58
                        86
                        11
                        Sto operando...
                        X