R
Roby
Guest
questo metodo e' nato da una collaborazione con alisia e ramco che mi ha modificato il listato di damper...inutile dirvi tutta la pappardella che bisogna collaborare per vincere contro la lottomatica...ecco il metodo ...per chi deve fare i conti a mano c'e' la relativa tabella degli ambi distanza 45...gli ambi nn devono essere per forza isotopi(stesso posto estrazionale)
e relativo script per i fortunati che hanno l8+
metodo
In qualsiasi estrazione se abbiamo 2 numeri in una ruota
e 2 numeri su un'altra aventi in verticale distanza 45
sommare tra loro i numeri degli ambi
al risultato sommare 20
la distanza 45 di tale operazione sara’ la prima ambata.
Per la seconda ambata sommare 48 alla prima.
Per gli abbinamenti.
Sommare alla prima ambata i codici fissi 5.12.83
Giocare le ambate su ruota e le due quartine su ruota e a tutte per ambo(che terni nn ce ne sono stati)
Ecco la tabella degli ambi distanza 45 per rendere le ricerche piu’ facili per chi nn ha un programma
01 46 ; 02 47 ; 03 48 ; 04 49 ; 05 50 ; 06 51 ; 07 52 ; 08 53 ; 09 54
10 55 ; 11 56 ; 12 57 ; 13 58 ; 14 59 ; 15 60 ; 16 61 ; 17 62 ; 18 63
19 64 ; 20 65 ; 21 66 ; 22 67 ; 23 68 ; 24 69 ; 25 70 ; 26 71 ; 27 72
28 73 ; 29 74 ; 30 75 ; 31 76 ; 32 77 ; 33 78 ; 34 79 ; 35 80 ; 36 81
37 82 ; 38 83 ; 39 84 ; 40 85 ; 41 86 ; 42 87 ; 43 88 ; 44 89 ; 45 90
e relativo script per i fortunati che hanno l8+
metodo
In qualsiasi estrazione se abbiamo 2 numeri in una ruota
e 2 numeri su un'altra aventi in verticale distanza 45
sommare tra loro i numeri degli ambi
al risultato sommare 20
la distanza 45 di tale operazione sara’ la prima ambata.
Per la seconda ambata sommare 48 alla prima.
Per gli abbinamenti.
Sommare alla prima ambata i codici fissi 5.12.83
Giocare le ambate su ruota e le due quartine su ruota e a tutte per ambo(che terni nn ce ne sono stati)
Ecco la tabella degli ambi distanza 45 per rendere le ricerche piu’ facili per chi nn ha un programma
01 46 ; 02 47 ; 03 48 ; 04 49 ; 05 50 ; 06 51 ; 07 52 ; 08 53 ; 09 54
10 55 ; 11 56 ; 12 57 ; 13 58 ; 14 59 ; 15 60 ; 16 61 ; 17 62 ; 18 63
19 64 ; 20 65 ; 21 66 ; 22 67 ; 23 68 ; 24 69 ; 25 70 ; 26 71 ; 27 72
28 73 ; 29 74 ; 30 75 ; 31 76 ; 32 77 ; 33 78 ; 34 79 ; 35 80 ; 36 81
37 82 ; 38 83 ; 39 84 ; 40 85 ; 41 86 ; 42 87 ; 43 88 ; 44 89 ; 45 90
Codice:
sub main()
Dim num1(1),num2(2),num3(6),num4(4)
Dim ruote(2),rt(3)
Dim posta(1),poste(2),post(5)
posta(1)=5:poste(2)=2
post(2)=3:post(3)=1.5:post(4)=0.5
rs=InputBox("quante estrazioni vuoi controllare? ","controllo estrazioni",18)
k=InputBox ("per quanti colpi?","colpi di gioco",14)
ini=EstrazioneFin -rs
fin=EstrazioneFin
For es=ini To EstrazioneFin
Messaggio "elab. estr. ["&(es)&"] di " & DataEstrazione (es,1)
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
c=Estratto(es,r2,p3)
d=Estratto(es,r2,p4)
If Distanza (a,c)=45 And Distanza (b,d)=45 Then
Scrivi String(65,"="),1
Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r1)& " "& StringaEstratti(es,r1)&" > "
Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r2)& " "& StringaEstratti(es,r2)&" > "
Scrivi SiglaRuota(r1)& " < "& Format2(a) &" > "& SiglaRuota(r2)&" < "& Format2(c) &" > "
Scrivi SiglaRuota(r1)& " < "& Format2(b) &" > "& SiglaRuota(r2)&" < "& Format2(d) &" > "
Scrivi String(65,"-"),1
ruote(1)=r1 : ruote(2)=r2
n1=Fuori90(a+5) : n2=Fuori90(b+5)
n3=Fuori90(c+5) : n4=Fuori90(d+5)
n5=Fuori90(n1+n2+n3+n4)
n6=Diametrale(n5)'ambata
n7=Fuori90(n6+48)'abbin
n8=Fuori90(n6+12)'abbin
n9=Fuori90(n6+5)'abbin
n10=Fuori90(n6+83)'abbin
num1(1)=n6
ImpostaGiocata 1,num1,ruote,posta,k
num2(1)=n7
ImpostaGiocata 2,num2,ruote,posta,k
rt(1)=r1 : rt(2)=r2 : rt(3)=11
num3(1)=n6 : num3(2)=n8 : num3(3)=n9 : num3(4)=n10
ImpostaGiocata 3,num3,rt,post,k
num4(1)=n7 : num4(2)=n8 : num4(3)=n9 : num4(4)=n10
ImpostaGiocata 4,num4,rt,post,k
Gioca es
End If
Next
Next
Next
Next
Next
Next
Next
ScriviResoconto 'list damper modificato da ramco by occhidigiada
End Sub
]ecco il resoconto su 100 estrazioni
