Per Salvo uno script

[chicco3]

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

 

[salvo50]

Ciao a Tutti.

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?

 

[chicco3]

Vedi l'allegato TRIPLO DIFF.E SOMM-11.7.2018.txt

 

[chicco3]

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

 

[rudivall]

Ciao Chicco, buona giornata, questo metodo è sempre della stessa persona?

 

[salvo50]

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?

 

[salvo50]

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

 '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

 

[ciccioriccio]

(Untitled)

in breve? 5 37? Venezia nazionale?

 

[chicco3]

Ciao Salvo x il momento non posso che ringraziarti tanto sei impeccabile adesso lo provo e poi ti dico,er 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]

No 33 e 77

 

[chicco3]

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

 

[salvo50]

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

 

[chicco3]

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]

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]

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.

 

[chicco3]

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]

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.

 '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

 

[chicco3]

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]

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.

 

[chicco3]

ok grazie