LottoGAM Forum

script, di noel

« Older   Newer »
  Share  
view post Posted on 10/4/2021, 09:53

impiegato

Group:
Member
Posts:
67
Location:
Rome

Status:


Cerco gentilmente qualcuno che riesca a elaborare questo script per spaziometria del metodo di noel :r ilevare, in un'unica estrazione o al massimo entro 7/8 estrazioni, due ambi (anche non isotopi) appartenenti alla stessa figura aventi medesima distanza o somma, inoltre bisogna rintracciare il primo punto medio su una delle due ruote di calcolo.




Estrazione del 21 Luglio 2004 Torino 20 17 66 30 71
Estrazione del 24 Luglio 2004 Palermo 05 57 72 39 03

Nell'estrazione del 21 Luglio 2004, su Torino, rintracciamo l'ambo 30-66 con distanza 36 e un sorteggio dopo (24/07/2004) sulla ruota di Palermo, rileviamo l'ambo 39-57 con la medesima distanza. Osserviamo anche su Palermo la presenza del numero 03 che corrisponde al Primo Punto Medio del "Trapezio" formato dai numeri 30-39-66-57 (tutti numeri di Figura 3).

Tracciamo gli elementi rilevati nel cerchio ciclometrico.




Per ricavare la "Chiusura Geometrica" della figura, calcoliamo il Punto Medio della Base Pentagono (39-57 distanza 18). Addizioniamo i due elementi: 39+57=96 (Somma). Il risultato lo dividiamo per il fisso 2, 96:2=48 (Chiusura Geometrica).

Graficamente otteniamo.




Pronostico:
PALERMO-TORINO
48 Ambata
48-03 / 48-30 / 48-39 / 48-57 / 48-66 Ambi Secchi
03-30-39-57-66 per Ambo e Terno

Esito:
9°colpo Torino 48 Ambata
11°colpo Torino 03-57-66 Terno
13°colpo Palermo 48 / 48-03 Ambata ed Ambo Secco!
 
Top
view post Posted on 11/4/2021, 00:13

Senior

Group:
Member
Posts:
188

Status:


Ciao,Dragonzf Zf
Vorrei provare a fare lo script, ma ho poca dimistichezza con la ciclometria.
Il punto medio come si ricava ?
 
Top
view post Posted on 11/4/2021, 02:06

impiegato

Group:
Member
Posts:
67
Location:
Rome

Status:


Esempio del calcolo del punto medio:

calcolo dei Punti Medi di una corda (due numeri).

Per comprendere al meglio tale operazione evidenziamo subito la condizione essenziale:



E’ necessario, per calcolare i Punti Medi tra due numeri, che il valore scaturito dalla loro distanza ciclometrica sia pari.



Dimostriamo il tutto con due esempi:



ESEMPIO “A”.



Verifichiamo se ci sono le condizioni per calcolare i Punti Medi tra i numeri 45 e 78.

Ricerchiamo dapprima la distanza ciclometrica:



78-45= 33 (Distanza Ciclometrica)



Il risultato della Distanza Ciclometria è un numero dispari, quindi non è possibile individuare i punti medi.





ESEMPIO “B”.



Prendiamo in considerazione, adesso, i numeri 26 e 48.

Calcoliamo la distanza ciclometrica:



48-26= 22 (Distanza Ciclometrica)



La distanza ciclometrica ricavata è un numero pari, quindi in questa circostanza è possibile rilevare i Punti Medi dei numeri di partenza.

Verifichiamo i passaggi per ottenere il 1° Punto Medio:



Eseguiamo la somma, senza il “fuori 90”, dei numeri base:



26+48= 74 (Somma)



Dividiamo tale valore per il fisso 2:



74:2= 37 (1° Punto Medio)





Graficamente abbiamo:



(22)

(11)

(11)

1° Punto Medio






Nota: I numeri in parentesi rappresentano le distanze dei lati.



Ricaviamo questa volta il 2° Punto Medio.



In che modo ?…



… calcolando semplicemente il Diametrale del 1° Punto Medio.



Come si ricerca il Diametrale di un numero ?



Il Diametrale di un numero si ottiene aggiungendo o sottraendo, all’elemento preso in considerazione, il fisso 45.



CASO “A”.



Il diametrale del numero 13 è 58, perché sommando 13 al fisso 45 otteniamo:



13+45= 58 (Diametrale)



CASO “B”.



Il diametrale del numero 70 è 25, perché sottraendo il fisso 45 al 70 otteniamo:



70-45= 25 (Diametrale)





Chiudiamo questa breve parentesi ritornando al nostro esempio.

Conoscendo il valore del 1° Punto Medio (37) ricaviamo il rispettivo diametrale in modo da calcolare il 2° Punto Medio:



37+45= 82 (2° Punto Medio)



Osserviamo il risultato nel cerchio ciclometrico:



(22)

(34)

(34)

2° Punto Medio


Ti ho inviato un messaggio in casella mail..Grazie
 
Top
view post Posted on 12/4/2021, 12:40
Avatar

Curioso

Group:
Member
Posts:
15

Status:


Ciao a Tutti.

Ho fatto 2 script, uno libero da filtri, senza rispettare tra i due ambi la stessa distanza oppure la somma, perchè ho notato che di riscontri vincenti anche con terni ce ne sono anche cosi.

Quindi nel primo ho impostato che i due ambi devono avere la somma uguale, come da esempio.

Poi nei due script alle domande:

1ª Inserire il numero dell'estrazione iniziale
2ª Inserire per quanti colpi giocare il pronostico
3ª Inserire quante estrazioni andare a ritroso per cercare il 2° ambo, se si imposta 0 (zero) la ricerca del secondo ambo viene fatta nella stessa estrazione del primo ambo
4ª Inserire il numero 1 se si vuole vedere nell'output la figura dei Cerchi Ciclometrici, altrimenti se non si vogliono vedere inserire un qualsiasi altro numero.

Ecco gli script salvo errori o dimenticanze

script con somme uguali

Option Explicit
Sub Main
Dim FIn,Ini,A,B,C,D,Clp,Es,Es2,Cer,E1,E2,G
Dim R1,R2,P1,P2,P3,P4,P5,P6,Unouno50,X,Ind
Dim DM12,DM23,DM34,DM41,SAB,SCD,Caso,Casi
Dim Amba(1),Ambo(2),Penta(5),L(6),M(4)
Dim Pos1(1),Pos2(2),Pos3(5),Ruote(2)
FIn = EstrazioneFin
Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Unouno50,9850))'Estrazione 7359 esempio nelle spiegazioni
Clp = CInt(InputBox(" Per quanti colpi vuoi giocare?",Unouno50,13))
Ind = CInt(InputBox(" Per quante Estrazioni a Ritroso Vuoi fare la Ricerca del Secondo Ambo?",Unouno50,7))
Cer = CInt(InputBox(" Vuoi visualizzare il cerchio ciclometrico? SI = 1, NO un qualsiasi altro numero ",Unouno50,1))
Call ScegliRange(Ini,FIn,Ini,FIn)
Scrivi Space(10) & "Per Dragonzf - Metodo di Noel - Script Unouno50 (Alias Salvo50)" & Space(10),1,,4,,3,,1
Scrivi Space(26) & " Con Somma Uguale Dei due Ambi " & Space(26),1,,4,,3,,1
Pos1(1) = 1
Pos2(2) = 1
Pos3(2) = 1
Pos3(3) = 1
For Es = Ini To FIn
Messaggio Es
AvanzamentoElab Ini,FIn,Es
Caso = 0
For R1 = 1 To 10
For P1 = 1 To 4
For P2 = P1 + 1 To 5
A = Estratto(Es,R1,P1)
B = Estratto(Es,R1,P2)
SAB = Fuori90(A + B)
For R2 = R1 + 1 To 12
If R2 = 11 Then R2 = 12
For P3 = 1 To 4
For P4 = P3 + 1 To 5
For Es2 = Es To Es - Ind Step - 1
C = Estratto(Es2,R2,P3)
D = Estratto(Es2,R2,P4)
SCD = Fuori90(C + D)
If A > 0 And C > 0 And(SAB = SCD) Then
If A <> C And A <> D And B <> C And B <> D Then
M(1) = A : M(2) = B : M(3) = C : M(4) = D
Call OrdinaMatrice(M,1)
DM12 = Distanza(M(1),M(2)) : DM23 = Distanza(M(2),M(3))
DM34 = Distanza(M(3),M(4)) : DM41 = Distanza(M(4),M(1))
If DM12 = 9 And DM23 = 18 And DM34 = 9 And DM41 = 36 _
Or DM23 = 9 And DM34 = 18 And DM41 = 9 And DM12 = 36 _
Or DM34 = 9 And DM41 = 18 And DM12 = 9 And DM23 = 36 _
Or DM41 = 9 And DM12 = 18 And DM23 = 9 And DM34 = 36 Then
'---------------------------------
If DM12 = 9 And DM23 = 18 And DM34 = 9 And DM41 = 36 Then
L(1) = M(1) : L(2) = M(2) : L(3) = M(3) : L(4) = M(4)
L(5) = Fuori90(M(2) + 9)
End If
If DM23 = 9 And DM34 = 18 And DM41 = 9 And DM12 = 36 Then
L(1) = M(2) : L(2) = M(3) : L(3) = M(4) : L(4) = M(1)
L(5) = Fuori90(M(3) + 9)
End If
If DM34 = 9 And DM41 = 18 And DM12 = 9 And DM23 = 36 Then
L(1) = M(3) : L(2) = M(4) : L(3) = M(1) : L(4) = M(2)
L(5) = Fuori90(M(4) + 9)
End If
If DM41 = 9 And DM12 = 18 And DM23 = 9 And DM34 = 36 Then
L(1) = M(4) : L(2) = M(1) : L(3) = M(2) : L(4) = M(3)
L(5) = Fuori90(M(1) + 9)
End If
L(6) = Diametrale(L(5))
Amba(1) = L(5)
Penta(1) = L(6) : Penta(2) = A : Penta(3) = B : Penta(4) = C : Penta(5) = D
Caso = Caso + 1
Casi = Casi + 1
Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
Scrivi
Scrivi(" Estrazione n." & Format2(Es) & " 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 " Evidenziati con Somma " & Format2(SAB),1,,,2
Scrivi(" Estrazione n." & Format2(Es2) & " del " & DataEstrazione(Es2)),1,0
Scrivi " " & SiglaRuota(R2) & " ",1,0
For P6 = 1 To 5
E2 = Estratto(Es2,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 " Evidenziati con Somma " & Format2(SCD),1,,,2
Scrivi
Scrivi Space(17) & " Punto Medio = ",1,0
Scrivi Format2(L(5)) & " Ambata",1,,,2
Scrivi Space(18) & " Abbinamenti Per Ambo ",1,,,1
Scrivi Space(23) & StringaNumeri(M," ",True),1
Scrivi Space(23) & " Cinquina ",1,,,1
Scrivi Space(21) & StringaNumeri(Penta," ",True),1
Scrivi
If Cer = 1 Then
DisegnaCerchioCiclometrico M,1,1,,,1,1
DisegnaCerchioCiclometrico L,1,1,,,1,1
End If
Scrivi
Ruote(1) = R1 : Ruote(2) = R2
G = 1
ImpostaGiocata G,Amba,Ruote,Pos1,Clp
For X = 1 To UBound(M)
Ambo(1) = Amba(1): Ambo(2) = M(X)
If Ambo(2) > 0 Then
G = G + 1
ImpostaGiocata G,Ambo,Ruote,Pos2,Clp
End If
Next
G = G + 1
ImpostaGiocata G,Penta,Ruote,Pos3,Clp
Gioca Es,1
End If
End If
End If
Next
Next
Next
Next
Next
Next
Next
If ScriptInterrotto Then Exit Sub
Next
ScriviResoconto
Scrivi " Tempo Trascorso" & TempoTrascorso
End Sub


script libero da filtri

Option Explicit
Sub Main
Dim FIn,Ini,A,B,C,D,Clp,Es,Es2,Cer,E1,E2,x
Dim R1,R2,P1,P2,P3,P4,P5,P6,Unouno50,g
Dim DM12,DM23,DM34,DM41,Caso,Casi,Ind
Dim Amba(1),Ambo(2),Penta(5),L(6),M(4)
Dim Pos1(1),Pos2(2),Pos3(5),Ruote(2)
FIn = EstrazioneFin
Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Unouno50,9860))
Clp = CInt(InputBox(" Per quanti colpi vuoi giocare?",Unouno50,13))
Ind = CInt(InputBox(" Per quante Estrazioni a Ritroso Vuoi fare la Ricerca del Secondo Ambo?",Unouno50,0))
Cer = CInt(InputBox(" Vuoi visualizzare il cerchio ciclometrico? SI = 1, NO un qualsiasi altro numero ",Unouno50,1))
Call ScegliRange(Ini,FIn,Ini,FIn)
Scrivi Space(9) & "Per Dragonzf - Metodo di Noel - Script Unouno50 (Alias Salvo50)" & Space(9),1,,4,,3,,1
Pos1(1) = 1
Pos2(2) = 1
Pos3(2) = 1
Pos3(3) = 1
For Es = Ini To FIn
Messaggio Es
AvanzamentoElab Ini,FIn,Es
Caso = 0
For R1 = 1 To 10
For P1 = 1 To 4
For P2 = P1 + 1 To 5
A = Estratto(Es,R1,P1)
B = Estratto(Es,R1,P2)
For R2 = R1 + 1 To 12
If R2 = 11 Then R2 = 12
For P3 = 1 To 4
For P4 = P3 + 1 To 5
For Es2 = Es To Es - Ind Step - 1
C = Estratto(Es2,R2,P3)
D = Estratto(Es2,R2,P4)
If A > 0 And D > 0 Then
If A <> C And A <> B And B <> C And B <> D Then
M(1) = A : M(2) = B : M(3) = C : M(4) = D
Call OrdinaMatrice(M,1)
DM12 = Distanza(M(1),M(2)) : DM23 = Distanza(M(2),M(3))
DM34 = Distanza(M(3),M(4)) : DM41 = Distanza(M(4),M(1))
If DM12 = 9 And DM23 = 18 And DM34 = 9 And DM41 = 36 _
Or DM23 = 9 And DM34 = 18 And DM41 = 9 And DM12 = 36 _
Or DM34 = 9 And DM41 = 18 And DM12 = 9 And DM23 = 36 _
Or DM41 = 9 And DM12 = 18 And DM23 = 9 And DM34 = 36 Then
'---------------------------------
If DM12 = 9 And DM23 = 18 And DM34 = 9 And DM41 = 36 Then
L(1) = M(1) : L(2) = M(2) : L(3) = M(3) : L(4) = M(4)
L(5) = Fuori90(M(2) + 9)
End If
If DM23 = 9 And DM34 = 18 And DM41 = 9 And DM12 = 36 Then
L(1) = M(2) : L(2) = M(3) : L(3) = M(4) : L(4) = M(1)
L(5) = Fuori90(M(3) + 9)
End If
If DM34 = 9 And DM41 = 18 And DM12 = 9 And DM23 = 36 Then
L(1) = M(3) : L(2) = M(4) : L(3) = M(1) : L(4) = M(2)
L(5) = Fuori90(M(4) + 9)
End If
If DM41 = 9 And DM12 = 18 And DM23 = 9 And DM34 = 36 Then
L(1) = M(4) : L(2) = M(1) : L(3) = M(2) : L(4) = M(3)
L(5) = Fuori90(M(1) + 9)
End If
L(6) = Diametrale(L(5))
Amba(1) = L(5)
Penta(1) = L(6) : Penta(2) = A : Penta(3) = B : Penta(4) = C : Penta(5) = D
Caso = Caso + 1
Casi = Casi + 1
Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1
Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,2
Scrivi
Scrivi(" Estrazione n." & Format2(Es) & " 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." & Format2(Es2) & " del " & DataEstrazione(Es2)),1,0
Scrivi " " & SiglaRuota(R2) & " ",1,0
For P6 = 1 To 5
E2 = Estratto(Es2,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
Scrivi Space(17) & " Punto Medio = ",1,0
Scrivi Format2(L(5)) & " Ambata",1,,,2
Scrivi Space(18) & " Abbinamenti Per Ambo ",1,,,1
Scrivi Space(23) & StringaNumeri(M," ",True),1
Scrivi Space(23) & " Cinquina ",1,,,1
Scrivi Space(21) & StringaNumeri(Penta," ",True),1
Scrivi
If Cer = 1 Then
DisegnaCerchioCiclometrico M,1,1,,,1,1
DisegnaCerchioCiclometrico L,1,1,,,1,1
End If
Scrivi
Ruote(1) = R1 : Ruote(2) = R2
g = 1
ImpostaGiocata g,Amba,Ruote,Pos1,Clp
For x = 1 To UBound(M)
Ambo(1) = Amba(1): Ambo(2) = M(X)
If Ambo(2) > 0 Then
g = g + 1
ImpostaGiocata g,Ambo,Ruote,Pos2,Clp
End If
Next
g = g + 1
ImpostaGiocata g,Penta,Ruote,Pos3,Clp
Gioca Es,1
End If
End If
End If
Next
Next
Next
Next
Next
Next
Next
If ScriptInterrotto Then Exit Sub
Next
ScriviResoconto
Scrivi " Tempo Trascorso" & TempoTrascorso
End Sub

 
Top
view post Posted on 12/4/2021, 19:42

impiegato

Group:
Member
Posts:
67
Location:
Rome

Status:


Grazie
 
Top
4 replies since 10/4/2021, 09:53   752 views
  Share