Script su Metodi Cabalistici, Ciclometrici & C.

[filippo1963]

Ciao a Tutti

Matematico
Grazie

Per Filippo

E se il numero dopo la divisione per 4 è inferiore a 45 è non ha decimali che si fa?

Per Everita

Si può fare, però devo capire a quale Byron ti riferisci, perchè ognuno sto Byron se lo modifica a piacere suo, sicuramente la parte finale per come ricava l'ambo da giocare è uguale all'ultimo Byron che ho postato nel post 884, ma la parte iniziale non corrisponde perché in questo si deve avere la somma delle differenze e in quello del post 884 non c'era, quindi lo devo fare con calma altrimenti non ci capisco niente.

se la divisione per 4 da numeri interi inferiori a 91 rimane quel numero se ha decimali con il numero intero sotto 46 si somma la parte decimale alla parte intera se la somma supera 90 si toglie 90; se il numero decimale ha la parte intera superiore a 45 si sottrae la parte decimale se il numero esce per esempio negativo dopo la sottrazione si cambia segno al numero e si gioca quello

 

[salvo50]

Ciao a Tutti

Filippo in tutto quello che hai risposto non mi hai dato la risposta all'unica domanda che ti avevo fatto

Se il numero dopo la divisione per 4 è inferiore a 46 e NON HA DECIMALI cosa si fa?



nei casi dove c'è il numero 25 e 39 cosa si fa, dato che dici che se il numero è inferiore a 46 si deve fare la somma con i decimali

ma ripeto se il numero dopo la divisione per 4 è inferiore a 46 e non ha decimali cosa bisogna fare

 

[salvo50]

Provvisoriamente ho messo che quando il numero è inferiore a 46 e non ci sono decimali aggiungere 45
modificato non si aggiunge niente

Option Explicit
Sub Main
   Dim FIn,Es,Ini,Salvo50,Som4,Som4_4
   Dim R1,R2,A,B,C,D,E1,E2,S,Clp
   Dim Caso,Casi,P1,P2,P3,P4,P5,P6
   Dim F_A,F_B,F_C,F_D,C_A,C_B,C_C,C_D
   Dim D_A,D_B,D_C,D_D,Decm
   Dim Amba(1),Ruo(2),Posta(1)
   FIn = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10000)
   Clp = InputBox("Quanti colpi di gioco?",Salvo50,10)
   '  Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi " Somma Estratti No Zerati, No Cadenza 0 - proposto da Filippo1963 - Script Salvo50",1,,4,,3,,1
   Posta(1) = 1
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = 1 To 9
         For P1 = 1 To 4
            P2 = P1 + 1
            A = Estratto(Es,R1,P1)
            B = Estratto(Es,R1,P2)
            If A > 9 And Cadenza(A) <> 0 And B > 9 And Cadenza(B) <> 0 Then
               R2 = R1 + 1
               C = Estratto(Es,R2,P1)
               D = Estratto(Es,R2,P2)
               If C > 9 And Cadenza(C) <> 0 And D > 9 And Cadenza(D) <> 0 Then
                  F_A = Figura(A) : F_B = Figura(B) : F_C = Figura(C) : F_D = Figura(D)
                  C_A = Cadenza(A) : C_B = Cadenza(B) : C_C = Cadenza(C) : C_D = Cadenza(D)
                  D_A = Decina(A) : D_B = Decina(B) : D_C = Decina(C) : D_D = Decina(D)
                  If(F_A = F_B And F_C = F_D And F_B = F_C)_
                     Or(C_A = C_B And C_C = C_D And C_B = C_C)_
                     Or(D_A = D_B And D_C = D_D And D_B = D_C) Then
                     If(F_A = F_B And F_C = F_D And F_B = F_C) Then S = " Figura Uguale"
                     If(C_A = C_B And C_C = C_D And C_B = C_C) Then S = " Cadenza Uguale"
                     If(D_A = D_B And D_C = D_D And D_B = D_C) Then S = " Decina Uguale"
                     Som4 =(A + B + C + D)
                     Som4_4 = Som4 / 4
                     Decm = Som4_4 - Int(Som4_4)
                     If Som4_4 > 45 Then Amba(1) = Int(Som4_4)
                     If Decm > 0 Then Decm = Decm * 100
                     If Som4_4 < 46 And Decm > 0 Then Amba(1) = Fuori90(Som4_4 + Decm)
                     If Som4_4 < 46 And Decm = 0 Then Amba(1) = Som4_4
                     Caso = Caso + 1
                     Casi = Casi + 1
                     Scrivi String(100,"o") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
                     Scrivi String(90,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
                     Scrivi(" Estrazione n." & FormattaStringa(Es,"00000") & " del " & DataEstrazione(Es)),1,0
                     Scrivi "  " & SiglaRuota(R1) & "  ",1,0
                     For P5 = 1 To 5
                        E1 = Estratto(Es,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." & FormattaStringa(Es,"00000") & " del " & DataEstrazione(Es)),1,0
                     Scrivi "  " & SiglaRuota(R2) & "  ",1,0
                     For P6 = 1 To 5
                        E2 = Estratto(Es,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 Space(39) & S,1,,,1
                     Scrivi " Somma dei 4 estratti             " & Som4,1
                     Scrivi " Somma dei 4 estratti diviso 4    " & Som4_4 & Space(7) & "Decimali " & Format2(Decm),1
                     Ruo(1) = R1 : Ruo(2) = R2
                     Scrivi
                     ImpostaGiocata 1,Amba,Ruo,Posta,Clp
                     Gioca Es,1
                  End If
               End If
            End If
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
   Scrivi " Tempo Trascorso   " & TempoTrascorso
End Sub

 

[filippo1963]

Ciao a Tutti

Filippo in tutto quello che hai risposto non mi hai dato la risposta all'unica domanda che ti avevo fatto

Se il numero dopo la divisione per 4 è inferiore a 46 e NON HA DECIMALI cosa si fa?

Vedi l'allegato 2299832

nei casi dove c'è il numero 25 e 39 cosa si fa, dato che dici che se il numero è inferiore a 46 si deve fare la somma con i decimali

ma ripeto se il numero dopo la divisione per 4 è inferiore a 46 e non ha decimali cosa bisogna fare

Se la divisione per 4 da numeri interi senza decimali inferiori ed è inferiore a 91 si lascia il numero intero senza decimali, si ci sono i decimali sotto 46 si somma alla parte intera con la parte decimale, se la parte intera del numero decimale è superiore a 45 si sottrae dal numero intero del numero decimale la parte decimale

 

[salvo50]

Ciao Filippo
ho messo che quando dopo la divisione per 4 il numero risultante è inferiore a 46 e non ha decimali resta quello che è
se ci sono anomalie fammelo sapere

 

[filippo1963]

Ciao Filippo
ho messo che quando dopo la divisione per 4 il numero risultante è inferiore a 46 e non ha decimali resta quello che è
se ci sono anomalie fammelo sapere

Ho Testato lo Script ed ho visto che se la divisione ad esempio la N.10003 del 13-11-2021 su NA-PA la somma 87+84+88+87=346/4=86,5 86 intero e 50 decimale si deve fare 86-50=36 e non lasciare 86, mese se la parte intera del numero decimale è inferiore a 46 la somma viene fatta

 

[salvo50]

Facciamo così perchè non ci sto capendo più niente

fai degli esempi anche con numeri inventati

 

[filippo1963]

Facciamo così perchè non ci sto capendo più niente

fai degli esempi anche con numeri inventati

ad esempio la N.10003 del 13-11-2021 su NA-PA la somma 87+84+88+87=346/4=86,50, 86 intero e 50 decimale si deve fare 86-50=36 Questo è un esempio Pratico

 

[salvo50]

Ciao ragazzi, facciamo quest'altro esempio. Poi passerò a farvi vedere come ricavare la prima estrazione conoscendo solo la seconda e viceversa, conoscendo la prima ricaveremo la seconda.

E tutte le altri varianti svelando così i segreti di pulcinella sciogliendoli come ghiaccio al sole....

Estrazione del 08 - 02 - 2011, Ruota Nazionale : 62 - 19 - 46 - 59 - 83

Estrazione del 10 - 02 - 2011, Ruota Nazionale : 10 - 74 - 29 - 39 - 72

La somma della prima estrazione fuori 90 è : 89

La somma della seconda estrazione fuori 90 è : 44

Come si può notare, se la prima equazione fosse 90 la terza dovrebbe essere Somma2+A=90, ma 44 + 62 = 16

Invece il terzo estratto della prima estrazione è proprio il 46 che ci manca : Somma2=44 + 46 = 90.

Allora vediamo cosa succede invertendo il primo ed il terzo estratto della prima estrazione.

Nazionale : 46 - 19 - 62 - 59 - 83

Nazionale : 10 - 74 - 29 - 39 - 72

Se la prima equazione fosse soddisfatta, ora la terza automaticamente sarebbe : Somma2+A= 44+46 = 90, OK!

Quadriamo!

27 47 03 66 73 26
-------------------------------------------------
46 19 62 59 83 10 74

19 62 59 83 10 74 29

62 59 83 10 74 29 39

59 83 10 74 29 39 72

83 10 74 29 39 72 X
-------------------------------------------------
89 53 18 75 55 44
36 35 33 20 11


Somma delle differenze superiori = 27+47+03+66+73+26=62

Somma delle differenze inferiori = 36+35+33+20+11=45

Somma delle differenze = 17

Somma delle somme = 64

Prima Equazione = 64+17=81, a 90 mancano 9 unità...

Cosa facciamo allora? Semplice! Variamo sempre i valori del 4° e del 5° della seconda estrazione, ma stavolta lasciamo inalterata la somma della seconda estrazione.

Come? Guardate!

39 + 09 = 48 Nuovo Quarto Estratto

72 - 09 = 63 Nuovo Quinto Estratto

Somma della seconda estrazione = 44.

Somma2+A= 44+46 = 90 ....OK!

Quadrando...

27 47 03 66 73 26
-------------------------------------------------
46 19 62 59 83 10 74

19 62 59 83 10 74 29

62 59 83 10 74 29 48

59 83 10 74 29 48 63

83 10 74 29 48 63 X
-------------------------------------------------
89 53 18 75 64 44
36 35 33 11 20


Somma delle differenze superiori = 27+47+03+66+73+26=62

Somma delle differenze inferiori = 36+35+33+11+20=45

Somma delle differenze = 17

Somma delle somme = 89+53+18+75+64+44= 73

Prima Equazione = 73+17=90 PERFETTO!

Potete verificare che le tre equazioni sono entrambe a 90!!!!

Il primo futuro pronosticato è : 17 + 10 = 27

Il quinto futuro pronosticato è : 90-(64+44) = 72

Allora ambate ed ambo secco : 27 - 72.

Solo che come a volte capita, ed è capitato anche stavolta, che il 1° o il 5° pronosticato coincide con uno degli estratti di partenza.

Il 27 invece ha solo un ritardo di 7 estrazioni...

Seguendo il consiglio del mio amico giannifox io giocherei con MOLTA MODERAZIONE questa quartina : 27 - 72 - 48 - 63

L'esempio l'ho riportato per fare vedere la differenza di interpretazione con il mio esempio precedente.

In quell'esempio si modificavano il quarto ed il quinto estratto compresa la somma della seconda estrazione, qui invece di lascia inalterata la somma della seconda estrazione

e si modificano solo i valori del quarto e del quinto estratto. Ma si cambia la posizione del primo estratto della prima estrazione.

La soluzione migliore sarebbe quello di trovare il primo estratto bello e buono come complemento a 90!

Questa era la variante che il Longo preferiva, e che usava per fare le previsioni di ambi secchi a tutte, che raramente ai tempi dell'estrazione singola settimanale fallivano...

Per questo l'ambo 27 - 72 lo giocherò su Tutte, in ricordo del mio MAESTRO ED AMICO ANTONIO LONGO.

E come mi diceva al telefono Osvaldo Manara...e staremo a vedere!!!

Vi ringrazio per i complimenti...Buona fortuna a TUTTI...

Ciao a Tutti

Bubù
Grazie

Anche questa modifica al Byron ha 2 quadri, però ho visualizzato solo il secondo

Option Explicit
Sub Main
   Dim D1,D2,D3,D4,D5,D6,D7,D8,D9,D10,D11
   Dim A1,A2,A3,A4,A5,B1,B2,B3,B4,B5,MIn
   Dim R1,Es1,Es2,Casi,SoC1,SoC2,Max
   Dim S1,S2,S3,S4,S5,S6,S7,S10,S11,S12
   Dim FIn,Ini,Equ2,Equ3,S11a
   Dim Salvo50,FInx,Equ1,Clp
   Dim Ins1,Ins2,Ins3,X,X2,X3
   Dim Ambo(2),Ruo(2),Poste(2)
   Poste(2) = 1
   FIn = EstrazioneFin
   FInx = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,FIn)
   Ini = InputBox("Inserisci l'estrazione che vuoi finire",Salvo50,10300)
   Ins1 = InputBox("Se vuoi includere la prima equazione metti 1 altrimenti un'altro numero qualsiasi ",Salvo50,1)
   Ins2 = InputBox("Se vuoi includere la seconda equazione metti 1 altrimenti un'altro numero qualsiasi ",Salvo50,1)
   Ins3 = InputBox("Se vuoi includere la terza equazione metti 1 altrimenti un'altro numero qualsiasi ",Salvo50,1)
   Clp = InputBox("Quanti colpi di gioco? ",Salvo50,13)
   Scrivi Space(8) & " Modifica al Metodo Byron Chiesto da Everita C  - SCRIPT SALVO50",1,,4,,3,,1
   For Es1 = FInx To Ini Step - 1
      AvanzamentoElab FIn,Ini,Es1
      For Es2 = FInx To Ini Step - 1
         Messaggio " Prima Estrazione " & Es1 & "  Seconda Estrazione " & Es2 & " Tempo Trascorso " & TempoTrascorso
         If(Es1 <> Es2) And(Es2 < Es1) Then
            For R1 = 1 To 12
               If R1 = 11 Then R1 = 12
               B1 = Estratto(Es1,R1,1)
               If B1 > 0 Then
                  B2 = Estratto(Es1,R1,2)
                  B3 = Estratto(Es1,R1,3)
                  B4 = Estratto(Es1,R1,4)
                  B5 = Estratto(Es1,R1,5)
                  SoC1 = Fuori90(B1 + B2 + B3 + B4 + B5)
                  A1 = Estratto(Es2,R1,3)
                  If A1 > 0 Then
                     A2 = Estratto(Es2,R1,2)
                     A3 = Estratto(Es2,R1,1)
                     A4 = Estratto(Es2,R1,4)
                     A5 = Estratto(Es2,R1,5)
                     SoC2 = Fuori90(A1 + A2 + A3 + A4 + A5)
                     '-----------------------------------------
                     If SoC1 = Diametrale(SoC2) Then
                        S1 = Fuori90(A1 + A2 + A3 + A4 + A5)
                        S2 = Fuori90(A2 + A3 + A4 + A5 + B1)
                        S3 = Fuori90(A3 + A4 + A5 + B1 + B2)
                        S4 = Fuori90(A4 + A5 + B1 + B2 + B3)
                        S5 = Fuori90(A5 + B1 + B2 + B3 + B4)
                        S6 = Fuori90(B1 + B2 + B3 + B4 + B5)
                        D1 = Fuori90(90 +(A1 - A2))
                        D2 = Fuori90(90 +(A2 - A3))
                        D3 = Fuori90(90 +(A3 - A4))
                        D4 = Fuori90(90 +(A4 - A5))
                        D5 = Fuori90(90 +(A5 - B1))
                        D6 = Fuori90(90 +(B1 - B2))
                        '----------------------------
                        D7 = Fuori90(90 +(S1 - S2))
                        D8 = Fuori90(90 +(S2 - S3))
                        D9 = Fuori90(90 +(S3 - S4))
                        D10 = Fuori90(90 +(S4 - S5))
                        D11 = Fuori90(90 +(S5 - S6))
                        S10 = Fuori90(D1 + D2 + D3 + D4 + D5 + D6 + D7 + D8 + D9 + D10 + D11) 'somma distanze
                        ' Ambata = Fuori90(S10 + B1)
                        S7 = Fuori90(B2 + B3 + B4 + B5)'SOMMA della settima colonna
                        S11 = Fuori90(S1 + S2 + S3 + S4 + S5 + S6)'somma delle 6 colonne
                        S11a = Fuori90(S11 + S7) 'somma delle 7 colonne
                        S12 = Fuori90(S11 + S10)'somma delle differenze + le 6 somme
                        Equ1 = S12 'equazione 1
                        Equ2 = Fuori90(SoC1 + A1)
                        Equ3 = Fuori90(A1 + SoC1)
                        MIn = Minimo(B4,B5)
                        Max = Massimo(B4,B5)
                        If S12 <> 90 Then
                           X = 90 - S12
                           B4 = Fuori90(MIn + X)
                           B5 = Fuori90((90 + Max) - X)
                           S5 = Fuori90(A5 + B1 + B2 + B3 + B4)
                           S6 = Fuori90(B1 + B2 + B3 + B4 + B5)
                           S11 = Fuori90(S1 + S2 + S3 + S4 + S5 + S6)'somma delle 6 colonne
                           S12 = Fuori90(S11 + S10)'somma delle differenze + le 6 somme
                           Equ1 = S12 'equazione 1
                        End If
                        Ambo(1) = Fuori90(S10 + B1)
                        X3 = Fuori90(S5 + S6)
                        Ambo(2) = 90 - X3
                        If((Ins1 = 1 And Equ1 = 90)Or(Ins1 <> 1))And((Ins2 = 1 And Equ2 = 90)Or(Ins2 <> 1)) _
                           And((Ins3 = 1 And Equ3 = 90)Or(Ins3 <> 1)) Then
                           If Ambo(1) <> Ambo(2) Then
                              Casi = Casi + 1
                              Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
                              Scrivi(" Estrazione n." & FormattaStringa(Es2,"0000") & " del " & DataEstrazione(Es2)),1,0
                              Scrivi "  " & SiglaRuota(R1) & " " & StringaEstratti(Es2,R1) & "  Somma = " & Format2(SoC2),1
                              Scrivi(" Estrazione n." & FormattaStringa(Es1,"0000") & " del " & DataEstrazione(Es1)),1,0
                              Scrivi "  " & SiglaRuota(R1) & " " & StringaEstratti(Es1,R1) & "  Somma = " & Format2(SoC1),1
                              Scrivi
                              Scrivi Space(11) & "Distanze " & Format2(D1) & " " & Format2(D2) & " " & Format2(D3) & " " & Format2(D4),1,0
                              Scrivi " " & Format2(D5) & " " & Format2(D6),1
                              Scrivi Space(20) & String(20,"-")
                              Scrivi Space(20) & Format2(A1) & " " & Format2(A2) & " " & Format2(A3) & " " & Format2(A4),1,0
                              Scrivi " " & Format2(A5) & " " & Format2(B1) & " " & Format2(B2),1
                              Scrivi Space(20) & Format2(A2) & " " & Format2(A3) & " " & Format2(A4) & " " & Format2(A5),1,0
                              Scrivi " " & Format2(B1) & " " & Format2(B2) & " " & Format2(B3),1
                              Scrivi Space(20) & Format2(A3) & " " & Format2(A4) & " " & Format2(A5) & " " & Format2(B1),1,0
                              Scrivi " " & Format2(B2) & " " & Format2(B3) & " " & Format2(B4) & Space(33) & "Somma Distanze = ",1,0
                              Scrivi Format2(S10),1,,,1
                              Scrivi Space(20) & Format2(A4) & " " & Format2(A5) & " " & Format2(B1) & " " & Format2(B2),1,0
                              Scrivi " " & Format2(B3) & " " & Format2(B4) & " " & Format2(B5),1
                              Scrivi Space(20) & Format2(A5) & " " & Format2(B1) & " " & Format2(B2) & " " & Format2(B3),1,0
                              Scrivi " " & Format2(B4) & " " & Format2(B5),1
                              Scrivi Space(20) & String(20,"-")
                              Scrivi Space(13) & " Somme " & Format2(S1) & " " & Format2(S2) & " " & Format2(S3) & " " & Format2(S4),1,0
                              Scrivi " " & Format2(S5) & " " & Format2(S6) & "    -  Somma delle somme ",1,0
                              Scrivi Format2(S11),1,,,1
                              Scrivi Space(20) & String(20,"-")
                              Scrivi Space(7) & " -  Distanze " & Format2(D7) & " " & Format2(D8) & " " & Format2(D9) & " " & Format2(D10) & " " & Format2(D11),1' & " -  Somma 7ª colonna ",1
                              Scrivi
                              Scrivi Space(20) & Format2(S10) & " + " & Format2(S11) & " = " & Format2(Equ1) & " 1ª Equazione ",1
                              Scrivi Space(20) & Format2(SoC1) & " + " & Format2(A1) & " = " & Format2(Equ2) & " 2ª Equazione ",1
                              Scrivi Space(20) & Format2(A1) & " + " & Format2(SoC1) & " = " & Format2(Equ3) & " 3ª Equazione ",1
                              Scrivi
                              Scrivi Space(20) & Format2(S10) & " + " & Format2(B1) & " = " & Format2(Ambo(1)),1,0
                              Scrivi Space(2) & " Primo futuro pronosticato",1
                              Scrivi Space(20) & Format2(S5) & " + " & Format2(S6) & " = " & Format2(X3),1
                              Scrivi Space(20) & 90 & " - " & Format2(X3) & " = " & Format2(Ambo(2)),1,0
                              Scrivi Space(2) & " Secondo futuro pronosticato",1
                              Scrivi
                              Ruo(1) = R1 : Ruo(2) = TT_
                              ImpostaGiocata 1,Ambo,Ruo,Poste,Clp
                              Gioca Es1,1
                              '---------------------------------------------------------------------------------------------------
                              '  If Ok = 1 Then Exit Sub
                           End If
                        End If
                     End If
                  End If
               End If
               If ScriptInterrotto Then Exit Sub
            Next
         End If
         If ScriptInterrotto Then Exit Sub
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
   Scrivi TempoTrascorso
End Sub

 

[EVERITA C]

Ciao Salvo buongiorno solo per dirti di aggiustare un'errore.

E' tutto giusto tranne che la somma della cinquina sopra deve essere il diametrale della somma della cinquina sotto.

Grazie.

 

[salvo50]

Ciao Salvo buongiorno solo per dirti di aggiustare un'errore.

E' tutto giusto tranne che la somma della cinquina sopra deve essere il diametrale della somma della cinquina sotto.

Grazie.

Ciao Everita non era specificato nelle spiegazioni, comunque appena posso lo correggo

 

[salvo50]

Lo script è da riprendere, modificato come da te richiesto le due somme delle estrazioni devono essere diametrali.

 

[EVERITA C]

Ok grazie mille.