Novità

Per Salvo uno script

chicco3

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

salvo50

Advanced Member >PLATINUM PLUS<
Ciao a Tutti.



chicco3;n2123010 ha scritto:
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:

salvo50

Advanced Member >PLATINUM PLUS<
chicco3;n2123020 ha scritto:
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:

salvo50

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

chicco3

Advanced Member
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
 

chicco3

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

salvo50

Advanced Member >PLATINUM PLUS<
chicco3;n2123074 ha scritto:
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:

chicco3

Advanced Member
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
 

chicco3

Advanced Member
Cattura.JPG


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
 

salvo50

Advanced Member >PLATINUM PLUS<
chicco3;n2123111 ha scritto:



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:

chicco3

Advanced Member
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
 

salvo50

Advanced Member >PLATINUM PLUS<
chicco3;n2123142 ha scritto:
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:

chicco3

Advanced Member
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
 

salvo50

Advanced Member >PLATINUM PLUS<
Mi sono spiegato male, il secondo script, ha anche le ruote consecutive oltre a quelle non consecutive, quindi il primo script cerca solo le ruote consecutive, il secondo script, cerca le ruote consecutive e non consecutive, scusami se sono prolisso, ma è per farmi capire meglio.
 
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