Tecnica della quadratura di Ida Maritan

[scarfacetony]

Buonasera a tutti,tempo tempo fa,ho trovato una raccolta in formato zip,dove ci sono solo metodi di Ida Maritanm,questa è la Tecnica della Quadratura,a chi interessa,e per chi ci vuole fare uno script


TECNICA DELLA QUADRATURA DELL'AMBO RIPETUTO DI IDA MARITAN



NEL QUADRO ESTRAZIONALE BISOGNA RILEVARE UN'AMBO RIPETUTO COME AD ESEMPIO IN DATA 19-04-07

RUOTA DI BARI 65-20 E RUOTA DI NAPOLI 65-20 SI PROCEDE IN QUESTO MODO:



LA PREVISIONE DIVENTA PIU' FORTE PERCHE' LE RUOTE SONO DIAMETRALI



65 - 20

SI SOMMANO IN VERTICALE I DUE AMBI

65 - 20

-----------

40 40



IN SEGUITO SI SOMMANO IN ORRIZZONTALE E IN DIAGONALE RICAVANDO QUATTRO NUMERI E DISPONENDOLI IN UN QUADRATO





85 85

SI SOMMANO 85+85 CHE DANNO LO STESSO NUMERO 80

85 85

-------------

80 80







IN EGUITO SI FA LA DIFFERENZA TRA 65 E 20 CHE PORTA COME RISULTATO 45

COME SI FA PER RICAVARE LA PREVISIONE COMPLETA:



SI METTE COME AMBATA IL NUMERO CHE RICAVI PIU' VOLTE QUINDI IL NUMERO 85 E IL SUO VERTIBILE 58 MENTRE I RESTANTI NUMERI SARANNO

GLI ABBINAMENTI, LA PREVISIONE COMPLETA ERA QUESTA.....



BARI-NAPOLI AMBATA 85 - 58 AMBI 85-40 85-80 85-45 58-40 58-80 58-45 E POI LA LUNGHETTA 85-58-40-80-45 E L'ESITO E' STATO STRABILIANTE

AL SECONDO COLPO DI GIOCO QUATERNA SULLA RUOTA DI BARI MA NON E' SEMPRE COSI'

 

[Sakti]

Io ci ho provato, l'ho testato alla data da Te indicata ed i risultati erano uguali.
Il rendimento ad oggi non è gran che, ma può essere una buona base per altre ricerche..

Anticipazione (Spoiler)

'Lstato per "scarfacetony" da Tecnica della quadratura di Ida Maritan
Sub Main()
Dim nu(2),num(10),ruote(12)
Dim poste(5),posta(2),post(5)
Dim amb1(2),amb2(2),amb3(2)
Dim amb5(2),amb6(2),amb4(2)
posta(1) = 1
post(2) = 1
poste(2) = 1
poste(3) = 0.50
fin = EstrazioneFin
ini = fin - 40
For es = ini To fin
AvanzamentoElab ini,fin,es
For r1 = 1 To 12
For p1 = 1 To 4
For p2 = p1 + 1 To 5
n1 = Estratto(es,r1,p1)
n2 = 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
n3 = Estratto(es,r2,p3)
n4 = Estratto(es,r2,p4)
If(n1 = n3 And n2 = n4) Then
If n2 = n3 And n1 = n4 Then nm1 = n2:nm2 = n1
If n1 = n3 And n2 = n4 Then nm1 = n1:nm2 = n2
ruote(1) = r1:ruote(2) = r2
k = 14 ' Colpi di gioco
co = 0
a = Fuori90((n1) +(n3))
a1 = Fuori90((n2) +(n4))
a2 = Fuori90((n1) +(n2))' Ambata Principale
b = Fuori90((n3) +(n4))
b1 = Fuori90(a2 + b)
b2 = Differenza((n1),(n2))
'---
casi = casi + 1:Scrivi String(65,"-") & " caso n° " &(casi),1
Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & _
" > ambo ripetuto < " & Format2(n1) & "." & Format2(n2) & " >",1
Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & _
" > ambo ripetuto < " & Format2(n3) & "." & Format2(n4) & " >",1
ColoreTesto 1
If Distanza(r1,r2) = 1 Then Scrivi" Ruote CONSECUTIVE",1
If Distanza(r1,r2) = 5 And r2 < 11 Then Scrivi" Ruote DIAMETRALI",1
If(r1 + r2) = 11 Then Scrivi" Ruote GEMELLARI",1
If p1 = p3 And p2 = p4 Then Scrivi "Numeri ISOTOPI ",1
ColoreTesto 1
Scrivi
'---
nu(1) = a2
nu(2) = Vert(a2)
ImpostaGiocata 1,nu,ruote,posta,k
amb1(1) = a2
amb1(2) = b2
ImpostaGiocata 2,amb1,ruote,post,k,1
amb2(1) = a2
amb2(2) = b1
ImpostaGiocata 3,amb2,ruote,post,k,1
amb3(1) = a2
amb3(2) = a
ImpostaGiocata 4,amb1,ruote,post,k,1
amb1(1) = nu(2)
amb1(2) = b2
ImpostaGiocata 5,amb1,ruote,post,k,1
amb2(1) = nu(2)
amb2(2) = b1
ImpostaGiocata 6,amb2,ruote,post,k,1
amb3(1) = nu(2)
amb3(2) = a
ImpostaGiocata 7,amb1,ruote,post,k,1
num(1) = a2
num(2) = Vert(a2)
num(3) = b2
num(4) = b1
num(5) = a
ImpostaGiocata 8,num,ruote,poste,k,1
Gioca es,1
End If
Next
:Next
:Next:Next
Next:Next:Next
ScriviResoconto
End Sub

 

[scarfacetony]

Grazie mille fa parte di una cartella scaricata anni fa su emule dove ci sono solo metodi di Ida Maritan dal sapere1 in poi....