Per salvo50

[Matematico]

Ciao salvo50, esiste già uno script x calcolare in automatico i punti ignoti del Byron di una qualsisi cinquina ?

Grazie , un salutone a te e a tutto il forum

 

[EVERITA]

Io ho un listato che calcola la cinquina sotto di una qualsiasi cinquina ed estrazione.

 

[EVERITA]

Un postulato del piu' grande in assoluto fatto scriptare.

 

[Matematico]

Ciao EVERITA, ti sarei grato se tu potessi postarlo il tuo listato .

A buon rendere

 

[Matematico]

Attendo EVERITA e grazie

 

[salvo50]

Ciao salvo50, esiste già uno script x calcolare in automatico i punti ignoti del Byron di una qualsisi cinquina ?

Grazie , un salutone a te e a tutto il forum

Ciao Matematico, il Byron che conosco io e che ho fatto uno script, è quello che trova una ambata da una qualsiasi cinquina, che tu sicuramente conosci, perche su quello script ricordo che mi avevi chiesto la modifica di trovare l'ambata senza l'equazione perfetta.
Poi che ci siano script che calcolano i punti ignoti di una qualsiasi cinquina non lo so,
anche perchè non so cosa intendi per punti ignoti

Buona Pasqua

 

[Matematico]

Ciao salvo50, si ricordo che me ne avevi fatto più di uno di script su mia richiesta , ti riporto un esempio di una condizione postata del bravo antonio 70 , i punti ignoti sono numeri calcolati ma non presenti nell'estrazione per questo motivo sono chiamati ignoti , io non conosco la formula del calcolo...conosco altre cose ma questa no.

RUOTA FIRENZE
__1^_Estrazione___83_77_79_27_89__=__85

__2^_Estrazione___35_27_78_75_62__=__07 sono i punti ignoti
__________________________________________________________________________
__________________________________________________________________________
___________La Matrice__5x7_____

________06____88____52____28____54____08______
_____83____77____79____27____89____35____27_____
_____77____79____27____89____35____27____78_____
_____79____27____89____35____27____78____75_____
_____27____89____35____27____78____75____62_____
_____89____35____27____78____75____62___[79]___[32]
__________________________________________________________________________
_____85____37____77____76____34____07___[51]____<-- Som. 7^ Col.
________48____50____01____42____27___[46]______<-- Somma Col.

previsione 79-32

Buona Pasqua a te e famiglia

 

[EVERITA]

Scambio il mio listato con altro listato purche' sia attendibile e vincente in pochi colpi.

 

[Matematico]

Ciao EVERITA , io ho molti listati attendibili ma sai benissimo che nulla è certo nel lotto , che tipo di listato ti serve?

 

[EVERITA]

A me serve un listato che mi dia un ambo certo ( anche a tutte le ruote ) nei primi 3 / 5 colpi.

Chiaro che il mio listato e' vincente solo con la cinquina giusta.

Cosa che io non so.

Se e' possibile tutto questo ne possiamo parlare in privato ( facebook ).

 

[Matematico]

A me serve un listato che mi dia un ambo certo ( anche a tutte le ruote ) nei primi 3 / 5 colpi.

Chiaro che il mio listato e' vincente solo con la cinquina giusta.

Cosa che io non so.

Se e' possibile tutto questo ne possiamo parlare in privato ( facebook ).

Si, è possibile ma come ti trovo su facebook? ....lo sò che i ltuo listato risulta vincente solo con la cinquina giusta ma a me serve solo il calcolo dei punti ignoti e basta.

 

[EVERITA]

Se mi dai il tuo nome ti chiedo l'amicizia.

 

[Matematico]

Se mi dai il tuo nome ti chiedo l'amicizia.

Fai prima a scrivermi il tuo e te la chiedo io

 

[EVERITA]

C'e' un problema con il mio account ( me l'hanno rubato e bloccato )

Posso darti il nome di mio padre.

 

[Matematico]

C'e' un problema con il mio account ( me l'hanno rubato e bloccato )

Posso darti il nome di mio padre.

ok basta che ti trovo

 

[EVERITA]

Ok. Pasqualino ( senza foto ).

 

[Matematico]

Ok. Pasqualino ( senza foto ).

​

​

 

[mgrruggiu]

Che paure a pubblicare uno script.

 

[Mr.Byron]

Buona Pasqua a tutti,

ciao Matematico,io ho questi due listati. Uno calcola la cinquina ignota di sopra e l'altro quella di sotto.
Se poi volessi postare anche tu qualche listato mi farebbe piacere.

Sub Main()
Dim poste(5),posta(1)
Dim ruote(2),ruota(1)
Dim nr1(7),nr2(7),nr3(7),nr4(7),nr5(6)
Dim num(11),amb(2),lg(4),lg1(5),ambo1(2),ambo2(2)
Dim so(6)
Dim di(11)
Dim df1(6),df2(5)
Dim nume(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))
If Fuori90(num(7) + num(8) + num(9)) = 90 And Fuori90(num(6) + num(10)) = se2 Then
a = 90 - se2 : num(1) = a
b = Fuori90(270 -(a*2)):num(2) = b
sv1 = Fuori90((90 + num(6) + b) - num(7)):se1 = sv1
e = Fuori90(num(7) + num(10)):num(5) = e
sv2 = Fuori90((90 + sv1 + num(6)) - a)
sv3 = Fuori90((90 + sv2 + num(7)) - b)
sv5 = Fuori90((90 + num(7)) - a)
sd = Fuori90((se2 + 90) - sv1)
sv6 = Fuori90(sv5 + sd)
sdf = Fuori90(180 - sv6)
ssv = Fuori90(sv1 + sv2 + sv3 + sv5 + se2)
sv4 = Fuori90((sv6 + 90) - ssv)
c = Fuori90((sv3 + num(8) + 90) - sv4):num(3) = c
d = Fuori90((sv4 + num(9) + 90) - sv5):num(4) = d
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

'2a Equazione
'If se2+num(1)=90 Then
'6a Equazione
eq6 = Fuori90(num(2) + num(4) + num(6) + num(8) + num(10))
'If eq6=90 Then
'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)
'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
'4a Equazione
sx = Fuori90(so(4) + so(5) + so(6))
'If sx=90 Then
'3a e 5a Equazione
x1 = Fuori90(num(1) + so7) : x2 = Fuori90(so(1) + so(2) + so(3))
'If x1+x2=90 Then
'Calcoli per gli ambi
ax1 = Fuori90((se1 + 90) - se2)
ab1 = Fuori90((ax1 + num(1) + num(6) + 90) - num(7))
ax2 = Fuori90((se1 + se2 + num(1) + 90) - num(7))
ab2 = Fuori90(180 - ax2)
ax3 = Fuori90((ab2 + 90) - num(6))
ab3 = Fuori90((df2(4) + 90) - ax3)
ax4 = Fuori90((numeri + 90) - ab2)
ab4 = Fuori90(180 - ax4)
ambo1(1) = ab1 : ambo1(2) = ab2
ambo2(1) = ab3 : ambo2(2) = ab4
posta(1) = 1
poste(2) = 1
poste(3) = 1
ruota(1) = r1
ruote(1) = r1 : ruote(2) = 11
t = t + 1
Scrivi "-----------------------------------"
Scrivi "Punti Ignoti " & 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) & " ]",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 " & " Somma col. o = " & Format2(sm2) & " Somma Dif. col. h&o = " & Format2(sm1) & " + " & Format2(sm2) & Chr(10) & _
"2a Equaz. =90 " & " Somma 2a cinquina = " & Format2(se2) & " 1° Estr. 1a cinquina = " & Format2(num(1)) & Chr(10) & _
"3a Equaz. =90 " & " Somma 7a col. o = " & Format2(so7) & " 1° Estr. 1a cinquina = " & Format2(num(1)) & " = " & Format2(x1) & Chr(10) & _
"5a Equaz. =90 " & " Somma col. o so1+so2+so3 = " & Format2(x2) & " 3a 5a Equaz. = " & Format2(x1) & " = " & Format2(x1 + x2) & Chr(10) & _
"4a Equaz. =90 " & " Somma 4° 5° 6° col. o = " & Format2(sx) & Chr(10) & _
"6a Equaz. =90 " & " Somma diag. 2° 4° 6° 8° 10° = " & Format2(eq6),1
Scrivi "------------------------------------------------------"
ImpostaGiocata 1,ambo1,ruote,poste,24
ImpostaGiocata 2,ambo2,ruote,poste,24
Gioca(es)
'End If
'End If
End If
'End If
'End If
End If
Next
Next
ScriviResoconto
End Sub


Sub Main()
Dim nu(10),n(6),Amb(2),lg(6),lg1(2),lg2(2),lg3(2)
Dim ruote(10),ruota(10),ru(3),nr(5),nnu(5),nnr(5)
Dim posta(5),poste(5)
rs = InputBox("quante estrazioni vuoi controllare? ","controllo estrazioni",100)
Clp = InputBox("Per quanti colpi vuoi giocare le ambate?",,6)
ini = EstrazioneFin - rs
fin = EstrazioneFin
For es = ini To EstrazioneFin
Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
Caso = 0

For R1 = 1 To 12
If R1 = 11 Then R1 = 12

A = Estratto(Es,R1,1)
B = Estratto(Es,R1,2)
C = Estratto(Es,R1,3)
D = Estratto(Es,R1,4)
F = Estratto(Es,R1,5)

SE = Fuori90(A + B + C + D + F)
A1 = 90 - A 'Somma dei 5 punti Ignoti
DF = A1 - SE' Somma punti Ignoti meno Somma Estratti
If A1 < SE Then DF =(A1 + 90) - SE
SD = SE - DF ' Somma Estratti meno differenza
If SE < DF Then SD =(SE + 90) - DF
TE = C - SD ' Centro di Simmetria da mettere sotto il 3° Estratto
If C < SD Then TE =(C + 90) - SD
CP = TE - D' Punto di proiezione Intero Postulato
If TE < D Then CP =(TE + 90) - D
PVI = CP - F' Primo Valore Ignoto da mettere sotto il 1° Estratto
If CP < F Then PVI =(CP + 90) - F
SVI = Fuori90(A + CP)' Secondo Valore Ignoto da mettere sotto il 2° Estratto
PS = Fuori90(CP + DF):SM = 90 - PS
PSS1 = SE - A
If SE < A Then PSS1 =(SE + 90) - A
PS1 = Fuori90(PSS1 + PVI)
PSS2 = PS1 - B
If PSS2 < B Then PSS2 =(PS1 + 90) - B
PS2 = Fuori90(PSS2 + SVI)
PSS3 = PS2 - C
If PSS3 < C Then PSS3 =(PS2 + 90) - C
PS3 = Fuori90(PSS3 + TE)
PS4 = Fuori90(SE + A1 + PS1 + PS2 + PS3)
PS5 = PS - PS4
If PS < PS4 Then PS5 =(PS + 90) - PS4
PS7 = Fuori90(SE + PS1 + PS2 + PS3 + PS5 + A1)
X1 = PS3 - PS5:If PS3 < PS5 Then X1 =(PS3 + 90) - PS5
X3 = D - X1:If D < X1 Then X3 =(D + 90) - X1
X2 = PS5 - A1:If PS5 < A1 Then X2 =(PS5 + 90) - A1
X4 = F - X2:If F < X2 Then X4 =(F + 90) - X2
PS8 = Fuori90(PVI + SVI + TE + X3 + X4)
' Amb(1) = mx1
' Amb(2) = mx2
' lg(1) = mx1:lg(2)=mx2:lg(3)=A:lg(4)=B:lg(5)=C:lg(6)=D
posta(1) = 1
posta(2) = 1
poste(2) = 1
poste(3) = 1
poste(4) = 1
ruote(1) = R1
ruote(2) = R2
ruota(1) = 11
Caso = Caso + 1
Casi = Casi + 1
ColoreTesto 1
Scrivi String(74,"-") & " Casi Totali " & FormattaStringa(Casi,"0000")
ColoreTesto 2
Scrivi String(65,"-") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
ColoreTesto 1
Scrivi"CHIUDIAMO LA TRIPLA FIGURALE",1
Scrivi" Listato by Federico53",1
Scrivi
ColoreTesto 0
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R1) & " ",1,0
For PP1 = 1 To 5
E1 = Estratto(Es,R1,PP1)
If E1 = A Or E1 = B Or E1 = C Or E1 = D Or E1 = F Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E1) & " ",1,0
ColoreTesto 0
Next

ColoreTesto 0
Scrivi
Scrivi" CINQUINA IGNOTA " & Space(21) & Format2(PVI) & " " & Format2(SVI) & " " & Format2(TE) & " " & Format2(X3) & " " & Format2(X4) & " = SOMMA " & Format2(PS8),1
Scrivi
ColoreTesto 1
Scrivi" SOMMA ESTRATTI " & Format2(A) & " + " & Format2(B) & " + " & Format2(C) & " + " & Format2(D) & " + " & Format2(F) & " = " & Format2(SE),1
Scrivi" SOMMA DEI CINQUE PUNTI IGNOTI " & Format2(90) & " - " & Format2(A) & " = " & Format2(A1),1
Scrivi" DIFFERENZA " & Format2(SE) & " - " & Format2(A1) & " = " & Format2(DF),1
Scrivi" SOMMA ESTRATTI - DIFFERENZA " & Format2(SE) & " - " & Format2(DF) & " = " & Format2(SD),1
Scrivi" CENTRO DI SIMMETRIA DA INSERIRE SOTTO IL 3° ESTR." & Format2(C) & " - " & Format2(SD) & " = " & Format2(TE),1
Scrivi" PUNTO DI PROIEZIONE " & Format2(TE) & " - " & Format2(D) & " = " & Format2(CP),1
Scrivi" 1° VALORE IGNOTO DA INSERIRE SOTTO IL 1° ESTR. " & Format2(CP) & " - " & Format2(F) & " = " & Format2(PVI),1
Scrivi" 2° VALORE IGNOTO DA INSERIRE SOTTO IL 2° ESTR. " & Format2(A) & " - " & Format2(CP) & " = " & Format2(SVI),1
Scrivi" PUNTO SOMMA DELLE 6 FUTURE COLONNE " & Format2(CP) & " + " & Format2(DF) & " = " & Format2(PS),1
Scrivi" SOMMA DI TUTTE LE DIFFERENZE DELLA MATRICE " & Format2(90) & " - " & Format2(PS) & " = " & Format2(SM),1
Scrivi" 1° PUNTO SOMMA " & Format2(SE) & " - " & Format2(A) & " + " & Format2(PVI) & " = " & Format2(PS1),1
Scrivi" 2° PUNTO SOMMA " & Format2(PS1) & " - " & Format2(B) & " + " & Format2(SVI) & " = " & Format2(PS2),1
Scrivi" 3° PUNTO SOMMA " & Format2(PS2) & " - " & Format2(C) & " + " & Format2(TE) & " = " & Format2(PS3),1
Scrivi" 6° SOMMA " & Format2(SE) & " + " & Format2(A1) & " + " & Format2(PS1) & " + " & Format2(PS2) & " + " & Format2(PS3) & " = " & Format2(PS4),1
Scrivi" 5° PUNTO SOMMA " & Format2(PS) & " - " & Format2(PS4) & " = " & Format2(PS5),1
Scrivi" 7° PUNTO SOMMA " & Format2(SE) & " + " & Format2(PS1) & " + " & Format2(PS2) & " + " & Format2(PS3) & " + " & Format2(PS4) & " + " & Format2(A1) & " = " & Format2(PS7),1
Scrivi" 8° PUNTO SOMMA " & Format2(PS3) & " - " & Format2(PS5) & " = " & Format2(X1),1
Scrivi" 9° PUNTO SOMMA " & Format2(PS5) & " - " & Format2(A1) & " = " & Format2(X2),1
Scrivi" 10° PUNTO SOMMA " & Format2(D) & " - " & Format2(X1) & " = " & Format2(X3),1
Scrivi" 11° PUNTO SOMMA " & Format2(F) & " - " & Format2(X2) & " = " & Format2(X4),1

ColoreTesto 0
Scrivi
Scrivi

ImpostaGiocata 1,Amb,ruote,posta,Clp
ImpostaGiocata 2,lg,ruote,poste,Clp
ImpostaGiocata 3,lg,ruota,poste,Clp

'Gioca Es
'End If
Next
Next
ScriviResoconto
End Sub

 

[Matematico]

Una buona e serena Pasqua a tutti
Ciao Mr.Byron, ti ringrazio di cuore è proprio quello che cercavo
Intanto ti metto questo di Robbe sul Byron :
Scrivi "==================== il BYRON di ROBBE ================================================================="
Sub Main()
Dim ruota(1),ruote(1),numeri(2),posta(10),poste(2),n1(1),n2(1)
posta(1)=1 : posta(2)=1 : colpiambate=18 : colpiambo=18 : poste(1)=0 : poste(2)=1
numero=CInt(InputBox("Numero dell'estrazione che si vuole analizzare ?","ESTRAZIONE",8500))
ruotascelta=CInt(InputBox("La ruota che si vuole analizzare [01..11] ?","RUOTA",11))
EQ1=CInt(InputBox("Introduci il 1°estr.della 1^cinquina [1..90] ?","",90))
EQ2=CInt(InputBox("Introduci il 2°estr.della 1^cinquina [1..90] ?","",90))
EQ3=CInt(InputBox("Introduci il 3°estr.della 1^cinquina [1..90] ?","",90))
EQ4=CInt(InputBox("Introduci il 4°estr.della 1^cinquina [1..90] ?","",90))
EQ5=CInt(InputBox("Introduci il 5°estr.della 1^cinquina [1..90] ?","",90))
EQ6=CInt(InputBox("Introduci il 1°estr.della 2^cinquina[1..90] ?","",90))
EQ7=CInt(InputBox("Introduci il 2°estr.della 2^cinquina [1..90] ?","",90))
EQ8=CInt(InputBox("Introduci il 3°estr.della 2^cinquina [1..90] ?","",90))
EQ9=CInt(InputBox("Introduci il 4°estr.della 2^cinquina [1..90] ?","",90))
EQ10=CInt(InputBox("Introduci il 5°estr.della 2^cinquina [1..90] ?","",90))
estraz=numero
conta=0
Messaggio estraz
If ruotascelta=11 Then ruotascelta=12
r=ruotascelta
ruota(1)=ruotascelta
ruote(1)=11
a1=EQ1
a2=EQ2
a3=EQ3
a4=EQ4
a5=EQ5
b1=EQ6
b2=EQ7
b3=EQ8
b4=EQ9
b5=EQ10
ColoreTesto 0
Scrivi
Scrivi DataEstrazione (estraz)&" "& SiglaRuota (r)&" "& StringaEstratti (estraz,r)
Scrivi
Scrivi Format2(a1)& Space(4)& Format2(a2)& Space(4)& Format2(a3)& Space(4)& Format2(a4)& Space(4)&_
Format2(a5)
Scrivi Format2(b1)& Space(4)& Format2(b2)& Space(4)& Format2(b3)& Space(4)& Format2(b4)& Space(4)&_
Format2(b5)
conta=conta+1
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)
sc=Fuori90(s1+s2+s3+s4+s5+s6)
nc=90-sc
xx=Fuori90(b1+nc)
numeri(1)=xx
n1(1)=xx
s7=Fuori90(b2+b3+b4+b5+xx)
sp=Fuori90(s4+s5+s6)
st=Fuori90(s6+s7)
yy=sp-st
If sp<st Then yy=(sp+90)-st
If yy=0 Then yy=90
numeri(2)=yy
n2(1)=yy
ColoreTesto 1
Scrivi
Scrivi "Somma delle somme delle prime sei colonne = "& sc
ColoreTesto 2
Scrivi
Scrivi "Primo Futuro Estratto = "& Format2(xx)
ColoreTesto 2
Scrivi
Scrivi "Quinto Futuro Estratto = "& Format2(yy)
Scrivi
ImpostaGiocata 1,numeri,ruota,posta,colpiambate,2
ImpostaGiocata 2,numeri,ruote,poste,colpiambo,2
Gioca estraz
Scrivi
ColoreTesto 2
Scrivi "==================== il BYRON di ROBBE ==============================================================="
Scrivi
ColoreTesto 0
ScriviResoconto
End Sub


Dovrei avere ancora qualcosa sempre riguardo il Byron appena lo trovo lo posto ...

​