Script su Metodi Cabalistici, Ciclometrici & C.

[capthegamer]

14 + 25 = 39

90 - 39 = 51

 

[salvo50]

Allora ricapitoliamo
Quel 75 che dice che è la somma della cinquina sotto, lo ricaviamo da calcoli fatti prima
ma comunque deve corrispondere alla somma della cinquina sotto, oppure è un caso
Se non è un caso ma deve essere uguale alla somma della cinquina sotto, e se non
corrispondere cosa facciamo, si procede lo stesso oppure si salta l'estrazione?

Adesso è tutto più chiaro, resta solo il dubbio del rigo sopra

Ma riguardo al Byron, ce ne ho almeno una ventina di versioni tutte diverse
perchè con questo metodo ognuno si fa le sue regole, anche adesso questi
calcoli che stai proponendo, non ricordo bene ma mi sembra, di non averli
mai fatti, e ne deduco che è un'altra versione del metodo Byron.

Dovresti postare lo script del Byron che hai, e io le applicherò le modifiche
che hai chiesto.

 

[capthegamer]

Ciao Salvo dovresti riprendere uno dei script del byron che hai fatto tu e apportare le modifiche.

Grazie.

 

[salvo50]

Ciao Everita, Ok

 

[salvo50]

Ciao a Tutti.
Ciao Everita

La cinquina sotto risulta essere 63 - 89 - 82 - 06 -15.

Con questa cinquina cosa ci faccio, cioè a cosa mi serve nel Byron.
---------------------------------------------------------------------------------------------------------

In questo caso le due cinquine con la matrice 7 x 5 del byron danno le tre equazioni a 90.

Qui proprio non ho la più pallida idea di cosa sia questa matrice 7x5 , può darsi che come
dici tu, io l'abbia già fatto, ma non mi ricordo niente.
--------------------------------------------------------------------------------------------------------------------------------------


Le due ambate sono 24 - 69.
Il 24 e' il numero che chiude il quadrato a destra in basso.

A destra e in basso non vedo nessun 24,
--------------------------------------------------------------------
Per il numero 69 le spiegazioni sono chiare

 

[capthegamer]

	9	54	9	19	41	64
	15	6	42	33	14	63	89
	6	42	33	14	63	89	82
	42	33	14	63	89	82	6
	33	14	63	89	82	6	15
	14	63	89	82	6	15	24
	20	68	61	11	74	75	36	somma delle colonne
	42	7	50	27	89	39		differenza delle somme

 

[capthegamer]

Ciao Salvo la matrice viene cosi.

 

[salvo50]

	9	54	9	19	41	64
	15	6	42	33	14	63	89
	6	42	33	14	63	89	82
	42	33	14	63	89	82	6
	33	14	63	89	82	6	15
	14	63	89	82	6	15	24
	20	68	61	11	74	75	36	somma delle colonne
	42	7	50	27	89	39		differenza delle somme

Ciao a Tutti

Da questo quadrato deduco che quella cinquina che ti ho chiesto a cosa serve.
Serve a compilare il quadrato sopra, ma nei primi post che hai chiesto questo
script, non l'avevi detto, quindi come facevo io a capire questo procedimento.

 

[capthegamer]

Ciao Salvo dovevo postarla prima.

Ok quando puoi.

 

[salvo50]

Ciao a Tutti
Ciao Everita

In questo periodo ho molto da fare di mio per motivi personali
non ho molto tempo per dedicarmi agli script, quindi prima di
procedere volevo avere le idee chiare.

Avevo espresso dei dubbi, ma ci ho ripensato, lo faccio a modo mio

 

[salvo50]

	9	54	9	19	41	64
	15	6	42	33	14	63	89
	6	42	33	14	63	89	82
	42	33	14	63	89	82	6
	33	14	63	89	82	6	15
	14	63	89	82	6	15	24
	20	68	61	11	74	75	36	somma delle colonne
	42	7	50	27	89	39		differenza delle somme

Quel 24 in basso a destra, come lo hai ottenuto, perché nello script
che sto usando io c'è 78,
nello script che sto usando io probabilmente si calcola diversamente
dallo script che hai preso il quadro
Per questo ti avevo scritto di mettere il tuo script.

 

[salvo50]

Nello script che sto usando io, quel numero in basso a destra è calcolato così:

somma delle distanze, più il primo numero della seconda cinquina, cioè
quella calcolata.

Nel quadro che hai postato, sicuramente si calcola diversamente

 

[capthegamer]

Ciao Salvo quel 24 inserito in basso a destra facendo la somma dell'ultima colonna a destra = 36 + 15 ( primo estratto cinquina sopra ) = 51

Che sarebbe la somma delle differenze superiori e inferiori.

Che sommandolo ( 51 ) alla somma delle colonne ( 20 + 68 + 61 + 11 + 74 + 75 ) = 309 fuori 90 = 39 ( escluso il 36 )

51 + 39 = 90

Poi sommando cinquina sotto ( 75 ) + 36 = 111 fuori 90 = 21.

90 - 21 = 69.

Ecco le due ambate 24 - 69.

 

[salvo50]

Scusa Everita, sarò orbo ma io il calcolo per il numero 24 non lo vedo

 

[EVERITA C]

Ciao Salvo il 24 viene inserito per avere la prima e la terza equazione.

Se trovi difficolta' a proseguire interrompi tutto.

Provo a inserire uno script trovato in rete per farti capire il procedimento delle tre equazioni.

Sub main()
Dim poste(5),posta(1)
Dim ruote(3),ruota(2)
Dim nr1(7),nr2(7),nr3(7),nr4(7),nr5(6)
Dim num(11),amb(2),lg(3)
Dim so(6)
Dim di(11)
Dim df1(6),df2(5)
Dim nume(90)
ColoreTesto 1
Scrivi : Scrivi
Scrivi " Lord Byron 5x7 cinquine a somma 90 su due ruote X Luana Forum LottoGam",1
Scrivi
Scrivi " Sviluppato e Programmato da Enplein.",1
Scrivi : Scrivi
ColoreTesto 0
qt=CInt (InputBox ("Quante estrazioni retroattive vuoi controllare?",,90))
t=0
fine=EstrazioneFin
ini=fine-500
For es=ini To fine
For r1=1 To 11
If r1=11 Then r1=12
Erase num
For i=1 To 5
num(i+5)=Estratto (es,r1,i)
Next
se2=Fuori90 (SommaEstratti (es,r1))
'1a condizione
If Fuori90 (num(7)+num(8)+num(9))=90 And Fuori90 (num(6)+num(10))=se2 Then

For r2=1 To 11
If r2=11 Then r2=12
'Ciclo per estrazioni retroattive
ok=0
For w=0 To qt
For i=1 To 5
num(i)=Estratto (es-w,r2,i)
Next
se1=Fuori90 (SommaEstratti (es-w,r2))
'2a condizione
If num(1)=(90-se2) Then
'3a condizione
If se2+num(1)=90 Then
'Matrice 5x7 Byron
For i=1 To 7:nr1(i)=num(i):Next
h=0
For i=2 To 8:h=h+1:nr2(h)=num(i):Next
h=0
For i=3 To 9:h=h+1:nr3(h)=num(i):Next
h=0
For i=4 To 10:h=h+1:nr4(h)=num(i):Next
h=0
For i=5 To 10:h=h+1:nr5(h)=num(i):Next
'Somma colonne con relativa somma
'Somma delle somme col.oriz.o
sm3=0
For i= 1 To 6
so(i)=Fuori90(num(i)+num(i+1)+num(i+2)+num(i+3)+num(i+4))
sm3=Fuori90 (sm3+so(i))
Next
For i=1 To 6
If so(i)<10 Then so(i)=90+so(i)
Next
'Somma delle differenzi col. oriz, h&o = codice
g=0 : sm1=0
For j= 1 To 6
g=g+1
di(j)=Fuori90 ((num(j)+90)-num(j+1))
df1(g)=di(j)
sm1=Fuori90 (sm1+di(j))
Next
g=0 : sm2=0
For y= 7 To 11
g=g+1
di=Fuori90 ((so(y-6)+90)-so(y-5))
df2(g)=di
sm2=Fuori90 (sm2+di)
Next

sm=Fuori90 (sm1+sm2)
'1a Equazione sm1+sm2+sm3=90
If Fuori90 (sm1+sm2+sm3)=90 Then
so7=Fuori90 ((so(6)+90)-sm3)
di12=sm3
numeri=0
snr=Fuori90 (nr1(7)+nr2(7)+nr3(7)+nr4(7))
numeri=Fuori90 ((90+so7)-snr)
num(11)=numeri
ok=1
'Previsione
sy=Fuori90 (so(6)+so7)
amb(1)=numeri : amb(2)=Fuori90 (180-sy)
lg(1)=amb(1):lg(2)=amb(2):lg(3)=sy

posta(1)=1
poste(2)=1
poste(3)=1
ruota(1)=r1 : ruota(2)=r2
ruote(1)=r1 : ruote(2)=r2 : ruote(3)=11
t=t+1
Scrivi "-----------------------------------"
Scrivi DataEstrazione (es-w)&" "& SiglaRuota(r2)&" "& Format2 (num(1))&"."& Format2 (num(2))&"."& Format2 (num(3))&"."& Format2 (num(4))&"."&_
Format2 (num(5)) &" [ S.E.1 "& Format2 (se1)&" ]"& Chr (10)&_
DataEstrazione (es)&" "& SiglaRuota(r1)&" "& Format2 (num(6))&"."& Format2 (num(7))&"."& Format2 (num(8))&"."& Format2 (num(9))&"."&_
Format2 (num(10))&" [ S.E.2 "& Format2 (se2)&" ] Range "&w&" Estraz.",1
Scrivi "----------------------------------------------------------Caso n°"&t& Chr (10)&_
"Dif. Rig. h "& StringaNumeri (df1)&" S.Dif.Sup."& Format2 (sm1)& Chr(10)&_
Space (13)&" a"&" b"&" c"&" d"&" e"&" f"&" g"& Chr (10) &_
Space (13)& StringaNumeri (nr1)&" h"& Chr (10)&_
Space (13)& StringaNumeri (nr2)&" i"& Chr (10)&_
Space (13)& StringaNumeri (nr3)&" l"& Chr (10)&_
Space (13)& StringaNumeri (nr4)&" m"& Chr (10)&_
Space (13)& StringaNumeri (nr5)&"("& Format2 (numeri)&")"&" n somma col. g "& Format2 (snr)& Chr (10)&_
"-----------------------------------"& Chr (10)&_
"Som. Col. V. "& StringaNumeri (so)&"("& Format2 (so7)&")"&" o"&" S.Somme = "& Format2 (sm3)& Chr (10)&_
"Dif. Rig. o "& StringaNumeri (df2)&"("& Format2 (di12)&")"&" S.Dif.Inf. = "& Format2 (sm2)&"+"& Format2 (sm1)&"="& Format2 (sm)& Chr (10)& Chr (10)&_
"1a Equaz. =90 "& " S.Dif.1+S.Dif.2+S. Somme "& Format2 (sm1)& " + "& Format2 (sm2)& " + "& Format2 (sm3)& Chr (10)&_
"1a Cond. =90 "& " 7° Estr.= "& Format2 (num(7))& " + 8° Estr. = "& Format2 (num(8))& " + 9° Estr. = "& Format2 (num(9))& Chr (10)&_
"2a Equaz. =90 "& " 1° Estr. = "& Format2 (num(1))&" + Somma cinquina Se2 = "& Format2 (se2),1
Scrivi "------------------------------------------------------"
ImpostaGiocata 1,amb,ruota,posta,12
ImpostaGiocata 2,lg,ruote,poste,12
Gioca (es)

End If
End If
End If
If ok=0 Then Exit For
Next
Next
End If
Next
Next

ScriviResoconto
End Sub

 

[salvo50]

Ciao Everita

Nello script che hai postato c'è il procedimento di come ricavare
quel numero in basso a destra, quindi se dovessi trovare altri
intoppi mi basterà guardare lo script, proseguo quando posso.

Un salutone a Enplein, l'autore dello script

 

[salvo50]

Ciao a Tutti
Ciao Everita

Ho fatto partire lo script anche dall'estrazione 1 per vedere quanti riscontri c'erano,
ma in tutto l'archivio c'è solo quella dell'esempio.
Se c'è qualcosa che non corrisponde fammelo sapere

Option Explicit
Sub Main
   Dim D1,D2,D3,D4,D5,D6,D7,D8,D9,D10,D11
   Dim D12,D13,D14,D15,D16,D17
   Dim A1,A2,A3,A4,A5,B1,B2,B3,B4,B5,XB3
   Dim R1,Es,Casi,SoC1,SoC2,SoMe,Clp
   Dim So1,So2,So3,So4,S7_4,X,S13,S14
   Dim S1,S2,S3,S4,S5,S6,S7,S10,S11,S12
   Dim FIn,Ini,Equ1,Equ2,Equ3,S11a
   Dim Salvo50,Met,Dop,Ins1,Ins2,Ins3
   Dim Posta(2),Ambo(2),Ruo(2)
   Posta(2) = 1
   Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,7943))
   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 = CInt(InputBox(" Quanti colpi di gioco? ",Salvo50,12))
   FIn = EstrazioneFin
   Scrivi Space(8) & " Modifica al Metodo Byron di EveritaC   - Script Salvo50" & Space(8),1,,4,,3,,1
   For Es = Ini To FIn
      AvanzamentoElab Ini,FIn,Es
      Messaggio Es & " Tempo Trascorso " & TempoTrascorso
      For R1 = 1 To 12
         If R1 = 11 Then R1 = 12
         A1 = Estratto(Es,R1,1)
         If isNumeroValidoLotto(A1) Then
            A2 = Estratto(Es,R1,2)
            A3 = Estratto(Es,R1,3)
            A4 = Estratto(Es,R1,4)
            A5 = Estratto(Es,R1,5)
            SoC1 = SommaEstratti(Es,R1)
            Met = 0 : Dop = 0
            If pari(A3) Then
               Met = A3\2
               Dop = Fuori90(A3 * 2)
            End If
            If dispari(A3) Then Dop = Fuori90(A3 * 2)
            So1 = Fuori90(A1 + A2)
            If So1 = Met Or So1 = Dop Then
               B1 = Fuori90(A1 + A2 + A3)
               B2 = Fuori90(A3 + A4 + A5) '
               So2 = Fuori90(A3 + A4)
               So3 = Fuori90(So2 + A1)
               So4 = Fuori90(B1 + B2 + A2 + A1)
               XB3 = So2 + 90 + 90
               B3 = Fuori90(XB3 - B1 - B2 - A2 - A1)
               B4 = A2
               B5 = A1
               SoC2 = Fuori90(B1 + B2 + B3 + B4 + B5)
               '-----------------------------------------
               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 +(A5 - B1))
               '      D8 = Fuori90(90 +(B1 - B2))
               '     D9 = Fuori90(90 +(B2 - B3))
               '    D10 = Fuori90(90 +(B3 - B4))
               '   D11 = Fuori90(90 +(B4 - B5))
               '
               D12 = Fuori90(90 +(S1 - S2))
               D13 = Fuori90(90 +(S2 - S3))
               D14 = Fuori90(90 +(S3 - S4))
               D15 = Fuori90(90 +(S4 - S5))
               D16 = Fuori90(90 +(S5 - S6))
               S10 = Fuori90(D1 + D2 + D3 + D4 + D5 + D6 + D12 + D13 + D14 + D15 + D16) 
               S11 = Fuori90(S1 + S2 + S3 + S4 + S5 + S6) ' Somma delle somme delle prime 6 colonne
               S12 = Fuori90(S10 + S11)
               S7_4 = Fuori90(B2 + B3 + B4 + B5) 'Somma della settima colonna
               X = Fuori90(((S6 + 90) - S11) - S7_4)
               S7 = Fuori90(X + B2 + B3 + B4 + B5) ' Somma della settima colonna più incognita
               S11a = Fuori90(S11 + S7) ' Somma delle somme delle 7 colonne
               S13 = Fuori90(SoC2 + A1)
               S14 = Fuori90(S11a + A1)
               D17 = Fuori90((90 + S6) - S7)'distanza tra somma 6a colonna e somma 7a colonna
               SoMe = Fuori90(SoC2 + S7)
               SoMe = ComplAdX(SoMe)
               Equ1 = S12
               Equ2 = S13
               Equ3 = S14
               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
                  Ambo(1) = X : Ambo(2) = SoMe
                  Casi = Casi + 1
                  Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
                  Scrivi(" Estrazione n." & FormattaStringa(Es,"0000") & " del " & DataEstrazione(Es)),1,0
                  Scrivi "  " & SiglaRuota(R1) & " " & StringaEstratti(Es,R1),1' & "  Somma = " & Format2(SoC1),1
                  Scrivi
                  Scrivi Space(11) & Format2(A1) & " + " & Format2(A2) & " = " & Format2(So1),1,0
                  Scrivi " Metà o doppio del terzo estratto " & Format2(A3),1
                  Scrivi Space(11) & Format2(A1) & " + " & Format2(A2) & " + " & Format2(A3) & " = ",1,0
                  Scrivi Format2(B1) & " Primo numero seconda cinquina",1,,,1
                  Scrivi Space(11) & Format2(A3) & " + " & Format2(A4) & " + " & Format2(A5) & " = ",1,0
                  Scrivi Format2(B2) & " Secondo numero seconda cinquina",1,,,1
                  Scrivi Space(11) & Format2(A3) & " + " & Format2(A4) & " = " & Format2(So2),1,0
                  Scrivi " + " & Format2(A1) & " = " & Format2(So3),1 '" Secondo numero seconda cinquina",1
                  Scrivi Space(11) & Format2(So2) & " + " & 90 & " + " & 90,1,0
                  Scrivi " - " & Format2(B1) & " - " & Format2(B2) & " - " & Format2(A2),1,0 '" Terzo numero seconda cinquina",1
                  Scrivi " - " & Format2(A1) & " = ",1,0
                  Scrivi Format2(B3) & " Terzo numero seconda cinquina",1,,,1
                  Scrivi Space(11) & "Il 2° numero prima cinquina è ",1,0
                  Scrivi Format2(A2) & " = al 4° numero seconda cinquina",1,,,1
                  Scrivi Space(11) & "Il 1° numero prima cinquina è ",1,0
                  Scrivi Format2(A1) & " = al 5° numero seconda cinquina",1,,,1
                  Scrivi Space(23) & "Seconda Cinquina ",1,,,2
                  Scrivi Space(21) & Format2(B1) & " " & Format2(B2) & " " & Format2(B3) & " " & Format2(B4) & " ",1,0
                  Scrivi Format2(B5) & "  somma " & Format2(SoC2),1
                  Scrivi
                  Scrivi Space(20) & Format2(D1) & " " & Format2(D2) & " " & Format2(D3) & " " & Format2(D4),1,0
                  Scrivi " " & Format2(D5) & " " & Format2(D6) & Space(9) & " Differenze dei numeri della prima riga ",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(19) & "Somma delle Differenze = ",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,0
                  Scrivi " " & Format2(X),1,,,2
                  Scrivi Space(20) & String(20,"-")
                  Scrivi Space(20) & Format2(S1) & " " & Format2(S2) & " " & Format2(S3) & " " & Format2(S4),1,0
                  Scrivi " " & Format2(S5) & " " & Format2(S6) & " " & Format2(S7),1,0
                  Scrivi Space(3) & "(" & Format2(S11) & " = Somma delle somme delle prime 6 colonne)",1,0
                  Scrivi "  " & Format2(S11) & " + " & "somma settima colonna " & Format2(S7) & " = " & Format2(S11a),1
                  Scrivi
                  Scrivi Space(20) & Format2(D12) & " " & Format2(D13) & " " & Format2(D14),1,0
                  Scrivi " " & Format2(D15) & " " & Format2(D16) & " (" & Format2(D17) & ")" & Space(9) & "Differenze delle somme",1
                  Scrivi Space(20) & String(20,"-")
                  Scrivi
                  Scrivi Space(20) & Format2(S10) & " + " & Format2(S11) & " = " & Format2(Equ1) & " 1ª Equazione ",1
                  Scrivi Space(20) & Format2(SoC2) & " + " & Format2(A1) & " = " & Format2(Equ2) & " 2ª Equazione ",1
                  Scrivi Space(20) & Format2(A1) & " + " & Format2(S11a) & " = " & Format2(Equ3) & " 3ª Equazione ",1
                  Scrivi
                  '---------------------------------------------------------------------------------------------------
                  Ruo(1) = R1
                  ImpostaGiocata 1,Ambo,Ruo,Posta,Clp
                  Gioca Es
               End If
            End If
         End If
         If ScriptInterrotto Then Exit For
      Next
      If ScriptInterrotto Then Exit For
   Next
   ScriviResoconto
   Scrivi TempoTrascorso
End Sub

 

[capthegamer]

Ciao Salvo grazie infinite ottimo lavoro.

Una soluzione potrebbe essere ad ogni cinquina estratta con i primi due numeri estratti lo script trova a ritroso i restanti tre numeri

( terzo - quarto e quinto) idonei al calcolo.

Ma se non riesci non importa grazie ugualmente.

 

[salvo50]

Ciao Salvo grazie infinite ottimo lavoro.

Una soluzione potrebbe essere ad ogni cinquina estratta con i primi due numeri estratti lo script trova a ritroso i restanti tre numeri

( terzo - quarto e quinto) idonei al calcolo.

Ma se non riesci non importa grazie ugualmente.

Troppo complicato per me