SCARAVETTI Script

Ricevo e volentieri posto.
mas


IL TRIANGOLO SCADRI (di Adriano Scaravetti)

Quando sono rilassato e rilasciato posso tranquillamente aprire gli archivi; i miei archivi e farvi partecipi di alcuni scripts che spero siano utili a tutti.

Il Triangolo scadri e' semplice: lo script ve lo spieghera' da se' stesso.

Il triangolo e' solamente condizionato alle seguenti:

cp = 18 'controllo esito dell'ambo precedente nele cp estrazioni 18
ca = 12 'controllo anche ambata 12

Queste sono le condizioni.

Ecco lo script:


'Triangolo Scadri Stessi Numeri
Sub main()
Dim ru1(1), ru2(1), ru3(1), n1(1), n2(1), n3(1)
Dim ruote(3), poste(2), posta(1), nua1(1), nua2(2)
Dim rrtt(1), xx(2), yy(2)
Dim ruotes1(1), ruotes2(1), ruotes3(1)

ini = EstrazioneFin - 449
fin = EstrazioneFin - 50

eg = 49 'estrazioni di gioco 49
cp = 18 'controllo esito dell'ambo precedente nele cp estrazioni 18
ca = 12 'controllo anche ambata 12

poste(1) = 0
poste(2) = 1
posta(1) = 1
rrtt(1)=TU_

For est = ini To fin
AvanzamentoElab ini, fin, est

For rt1 = 1 To 10
ru1(1) = rt1
ruote(1) = rt1
For p1 = 1 To 4
n1(1) = Estratto(est,rt1,p1)
For p2 = p1+1 To 5
n2(1) = Estratto(est,rt1,p2)

For rt2 = 1 To 10
If rt2<>rt1 Then
ru2(1) = rt2
ruote(2) = rt2
For q1 = 1 To 5
n3(1) = Estratto(est,rt2,q1)

If Distanza(n1(1),n3(1))=Distanza(n2(1),n3(1)) Then

'-------calcolo del Quadrato--------
x1=n3(1)
x2=n1(1)
x3=n2(1)

nua1(1)=x1

nua2(1)=x2
nua2(2)=x3

ruotes1(1) = rt1
ruotes2(1) = rt2

If SerieFreq(est-46,est,nua1,ruote,1)=1 Then
If SerieFreq(est-17,est,nua1,ruote,1)=1 Then
If SerieFreq(est-40,est,nua2,rrtt,2)=1 Then

Scrivi "["+Format2(est)+"] "+DataEstrazione(est)+" Ruota1 "+NomeRuota(rt1)+" ambo "+_
Format2(n1(1))+"."+Format2(n2(1))+" Ruota2 "+NomeRuota(rt2)+" estratto "+_
Format2(n3(1))
Scrivi " Elementi del Triangolo: "+Format2(x1)+"."+Format2(x2)+"."+Format2(x3)+" "

z=0:
For j=1 To 2
n=nua2(j)
For k=1 To 2
If nua2(k)<>n Then

xx(1)=n
xx(2)=nua2(k)+1 : If xx(2)=91 Then xx(2)=0

yy(1)=n
yy(2)=nua2(k)-1 : If yy(2)=0 Then yy(2)=0

z=z+1
ImpostaGiocata z, xx, rrtt, poste, eg, 2
z=z+1
ImpostaGiocata z, yy, rrtt, poste, eg, 2

End If
Next
Next

ImpostaGiocata 2, nua2, rrtt, poste, eg, 2

Gioca est

ColoreTesto 0
Scrivi String(89,"*")

End If
End If
End If

End If

Next

End If
Next
Next
Next
Next
Next
ScriviResoconto
End Sub


Questo e' l'output:

[8458] 19.11.2011 Ruota1 Cagliari ambo 55.69 Ruota2 Milano estratto 17
Elementi del Triangolo: 17.55.69
sab 19.11.2011 [8458]
G 1: A 55.70 Tu 4/49
A 70.55 su Tu (Mi) 4° colpo [8462/29.11.2011]
I4
G 2: A 55.69 Tu 25/49
A 69.55 su Tu (Fi) 25° colpo [8483/17.01.2012]
I25
G 3: A 69.56 Tu 33/49
A 69.56 su Tu (Pa) 33° colpo [8491/04.02.2012]
I33
G 4: A 69.54 Tu 25/49
A 69.54 su Tu (Na) 25° colpo [8483/17.01.2012]
I25
*****************************************************************************************


Ciclometricamente 55.17 distanza 38); 69.17 distanza 38). Il Triangolo.

C'e' un giochetto di + 1 e -1 alla ambetto.

A Voi i commenti.


Scaravetti Adriano, 21 Settembre 2014

Ricevo e volentieri posto
mas

2AMBI-DU-1R (di Adriano Scaravetti)

Quando in una Ruota ci sono nella stessa estrazione 2 ambi a distanza uguale o somma uguale, allora si puo' ricavare una certa previsione.


Ecco lo script:

Scrivi "2Ambi-DU-1R"
Scrivi "=================by ScaraLab"

Sub main()

Dim am(2),n(4),abb(6),nume(2)
Dim ruota(1),posta(1),post1(2),post2(4)
posta(1)=1 : post1(2)=1 : post2(2)=1

eg=48 'estrazioni della giocata

ini=EstrazioneFin-3049
fin=EstrazioneFin-50

For es=ini To fin
AvanzamentoElab ini,fin,es
For r=1 To 10
ca=0
For p=1 To 4
For q=p+1 To 5
a=Estratto (es,r,p)
b=Estratto (es,r,q)
For p1=1 To 4
For q1=p1+1 To 5
If p1=p Or p1=q Or q1=p Or q1=q Then
Else
If p1>p Then
c=Estratto (es,r,p1)
d=Estratto (es,r,q1)
If Distanza(a,b)=Distanza(c,d) Then
If a<b And c>d Then
n1=Fuori90 (a+c)
n2=Fuori90 (b+d)
End If
If a<b And c<d Then
n1=Fuori90 (a+d)
n2=Fuori90 (b+c)
End If
If a>b And c>d Then
n1=Fuori90 (a+d)
n2=Fuori90 (b+c)
End If
If a>b And c<d Then
n1=Fuori90 (a+c)
n2=Fuori90 (b+d)
End If
If n1=n2 Then
ca=ca+1
If ca=1 Then
ruota(1)=r
am(1)=n1
am(2)=Diametrale (n1)

If SerieRitardo(es-17,es-1,am,ruota,1)=0 Then

n(1)=a
n(2)=b
n(3)=c
n(4)=d
OrdinaMatrice n,+1
abb(1)=n(3)
abb(2)=n(4)-1
abb(3)=n(4)
abb(4)=Fuori90(n(4)+1)
Scrivi DataEstrazione (es)&" "& Left(NomeRuota (r),2)&_
" "&a&"."&b&"."&c&"."&d&" - "&" Somma Comune: "&n1&"/"&n2
Scrivi Join (am)&" "& Join (abb)
abb(5)=am(1)
abb(6)=am(2)
ImpostaGiocata 1,am,ruota,posta,eg,1
' ImpostaGiocata 2,am,ruota,post1,eg,2
co=3
For x=1 To 4
co=co+1
nume(1)=am(1)
nume(2)=abb(x)
' ImpostaGiocata co,nume,ruota,post1,eg,2
Next
' ImpostaGiocata co+1,abb,ruota,post2,eg,2
Gioca es
Scrivi
Erase abb
End If

End If

End If
End If
End If
End If
Next
Next
Next
Next
Next
Next
ScriviResoconto

End Sub


Ecco l'output:

2Ambi-DU-1R
=================by ScaraLab

24.09.1983 Ro 90.40.33.83 - Somma Comune: 33/33
33 78 83 89 90 1
sab 24.09.1983 [5881]
G 1: M 33.78 Ro 8/48
M 78 su Ro 8° colpo [5889/19.11.1983]

E' facile calcolare la previsione e lo script la fornira'.

Puo' essere utile giocare solo 6 colpi dove sortono piu' del 50 % delle previsioni, oppure aspettare quelle previsioni che vanno oltre un certo valore di ritardo e poi metterle in gioco.

Lo script fornisce previsioni che servono alle vostre conferme.


Scaravetti Adriano, 22, settembre 2014

Ricevo e volentieri posto.
mas

IL DOPPIO AMBO SCAR (di Adriano Scaravetti)

E' il solito metodo di ricerca di un ambo sortito doppio nel quadro estrazionale.
Lo script e' stato modificato su una base trovata in rete.
Si mette in gioco l'ambata somma dell'ambo e si gioca l'ambo a Tutte con il diametrale dell'ambata.
Troppo semplice ed efficace.

Ecco lo script:

Sub Main()
Scrivi "IL DOPPIO AMBO SCAR di ADRIANO SCARAVETTI"
Dim am(1),ab(4),j(2),ruota(2),ruote(1),posta(1),poste(2), abb(2)


ini=EstrazioneFin-400
fin=EstrazioneFin-300

ruote(1)=11
posta(1)=1 : poste(1)=0 : poste(2)=1

For es=ini To fin
Messaggio "Estrazione: [" & es & "]ª"

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
For p3=1 To 4
For p4=p3+1 To 5
c=Estratto(es,r2,p3) : d=Estratto(es,r2,p4)

If(a=c And b=d) Or (a=d And b=c)Then

ColoreTesto 2
Scrivi String(40,32)
ColoreTesto 0

Scrivi DataEstrazione(es,1) & "" & Space(2) & _
"[" & es & "]ª" & Space(3) & "" & Left(NomeRuota(r1),3) & _
"" & Space(3) & "" & StringaEstratti(es,r1) & "" & Space(6) & _
"" & Format2(a) & "" & Space(1) & "" & Format2(b) & _
"" & Space(4) & "(" & p1 & "-" & p2 & ")"
Scrivi DataEstrazione(es,1) & "" & Space(2) & _
"[" & es & "]ª" & Space(3) & "" & Left(NomeRuota(r2),3) & _
"" & Space(3) & "" & StringaEstratti(es,r2) & "" & Space(6) & _
"" & Format2(c) & "" & Space(1) & "" & Format2(d) & _
"" & Space(4) & "(" & p3 & "-" & p4 & ")" : Scrivi

a1=Fuori90(a+b) : b1=Fuori90(c+d)
dis1=Distanza(a1,a) : dis2=Distanza(a1,b)
am(1)=a1
abb(1)=(dis1+dis2) : abb(2)=Diametrale(abb(1))
ruota(1)=r1 : ruota(2)=r2

ImpostaGiocata 1,am,ruota,posta,99,1
ImpostaGiocata 5,abb,ruote,poste,99,2

ImpostaInterruzioni 1,5,2
ImpostaInterruzioni 5,1,1

Gioca es
Scrivi String(67,151)

End If
Next
Next
End If
Next
Next
Next
Next
Next
ScriviResoconto
ColoreTesto 1
Scrivi "",1
Scrivi "",1
ColoreTesto 2
Scrivi "",1
End Sub


Sono metodologie semplici che danno delle buone previsioni e si possono sfruttare con intelligenza sia per conferme sia per giocate.


Scaravetti Adriano, 23 Settembre 2014

LA SINTONIA FRA RUOTE (di Adriano Scaravetti)

Ne ho parlato tanti anni fa, circa una quindicina, ed ho scritto alcuni articoli per un

giornaletto.

Mi riferisco alla Sintonia fra le Ruote.

E' ora di far aprire gli occhi a quei pochissimi studiosi di Lotto che ancora ci provano.
Per gli altri, oramai c'e' solamente il buio.

In questo caso si analizzano 2 Ruote.

Definito un ciclo di analisi all'indietro, la Sintonia cerca tutti i numeri che sono presenti nelle 2 Ruote e nelle estrazioni di ricerca all'indietro.

Ilo dato fondamentale e' la quantita' dei numeri rilevati, che e' il parametro indicativo della Sintonia fra le due ruote.

Ecco lo script:


Scrivi "Sintony 2R-Semplice"
Scrivi "=================== by ScarLab"
Scrivi

Sub main()
Dim nu(1), ru1(1), ru2(1), nr(1), ruote(2)
Dim sinu(91)

ini = EstrazioneFin - 80
fin = EstrazioneFin - 80

ei = 15 'estrazioni indietro controllo rilevazione

Scrivi "Analisi fatta su 2 Ruote nelle ultime "&ei&" estrazioni",1
Scrivi
csm=0
For est = ini To fin
AvanzamentoElab ini, fin, est
csm=90
For r1 = 1 To 10
rt1=r1 : ru1(1)=rt1
For r2=r1+1 To 12
If r2<>11 Then
rt2=r2 : ru2(1)=rt2 : cs=0
For n = 1 To 90
nr(1)=n
fr1=SerieFreq(est-(ei-1),est,nr,ru1,1)
fr2=SerieFreq(est-(ei-1),est,nr,ru2,1)
If fr1>0 And fr2>0 Then
cs=cs+1 : sinu(cs)=n
End If
Next
Scrivi DataEstrazione(est)&" Ricerca della Sintonia sulle ruote di "&_
NomeRuota(rt1)&"."&Nomeruota(rt2)&" con "+Format2(cs)&" numeri", 1
Scrivi
OrdinaMatrice sinu, 1
Scrivi StringaNumeri(sinu)
Scrivi String((cs*3),"*")
Erase sinu
End If
Next
Next
Scrivi
Next
End Sub



Modificando il valore di:

ei = 15 'estrazioni indietro controllo rilevazione

si modificano anche le estrazioni di controllo all'indietro.

Ne vedrete delle belle e saprete quando due ruote sono in massima o minima sintonia.

A Voi le prove da fare e da capire.

Fatene con diversi valori di "ei" per 'capire' anche il comportamento delle Venus.


Scaravetti Adriano, 05 Ottobre 2014