| R E V I S I O N E D E L L A D I S C U S S I O N E |
| franca46 |
Posted - 16 marzo 2021 : 18:29:06
L’ambo ripetuto “PARI O DISPARI” di Osvaldo Manara
Tra i nostri archivi abbiamo scovato una tecnica di Osvaldo Manara
che sono in pochi a conoscere.
La pubblichiamo così come noi la pubblicammo a suo tempo sul nostro settimanale.
Il procedimento che vi presento questa settimana ricava
una sola ambata su due ruote più quattro ambi secchi;
la validità è da uno a dieci colpi.
Sono tanti lo so, ma se la previsione la poniamo in gioco dopo quattro settimane,
i tempi d’attesa si ridurranno di molto.
Veniamo al metodo.
Si tratta di rintracciare nelle stesse posizioni un ambo ripetuto,
detto ambo deve necessariamente essere pari o dispari
in modo che la somma sia divisibile per due; chiaro?
Veniamo ad un esempio
in data 9.3.96 si rileva nelle ruote di Milano e Torino l’ambo ripetuto:
24.2, esso ha i requisiti richiesti per la nostra tecnica,
quindi possiamo ricavare la previsione, calcolo:
24+2 = 26, il 26 va ora diviso per due ed otteniamo: 26:2 = 13.
Al 13 addizioneremo il fisso 45 ed avremo: 13+45 = 58.
Ora con il 58 si deve trovare la distanza ciclometrica con l’ambo base e
quindi si farà:
58-24 = 34,
poi 58-2 = 56,
siccome supera il limite 45, si farà il completamento a 90,
quindi:
90-56 = 34, il 34 sarà la futura ambata.
Per gli ambi abbineremo: il 24, il 2(l’ambo base) + la somma e la differenza,
quindi gli ambi saranno: 34.24/34.2/34.26/34.22.
Vediamo quale fu l’esito: al 4° colpo 34.24 ambata più ambo secco a Milano!
Da come avete constatato, il metodo è molto semplice,
è logico che non sempre ci saranno risultati così clamorosi,
ma le soddisfazioni non mancheranno di certo.
Come sempre vi raccomando la massima cautela.
Alcune regole fondamentali:
una volta ricavata la previsione controllate eventuali esiti anticipati,
alla prima vincita sospendere il gioco,
tanto in un anno se ne ricavano in abbondanza di previsioni.
Vi auguro numerose vincite come al solito ed in attesa del prossimo metodo
vi saluto cordialmente.
ciao giorgio ho dimenticato troppe cose , puoi aiutarmi? |
| 9 U L T I M E R E P L I C H E (Newest First) |
| franca46 |
Posted - 18 marzo 2021 : 18:39:24
 |
| giorgio60 |
Posted - 18 marzo 2021 : 18:35:29
Ciao Franca non l ho ancora testato
stavo comunque pensando di farne un uso alternativo
Ti aggiorno |
| franca46 |
Posted - 18 marzo 2021 : 16:28:40
illuminazione
Sub main()
Dim rt(2),ruot(1),nu(3),nu1(5),pt(1),pos(3)
pt(1)=1
pos(2)=1 :pos(3)=1
clp=12
ini=EstrazioneFin -50
fin=EstrazioneFin
co=0
For es=ini To fin
Messaggio es
For r=1 To 10
rt(1)=r
For p=1 To 4
For pp=p+1 To 5
a=Estratto (es,r,p) : b=Estratto (es,r,pp)
For rr=r+1 To 11
If rr=11 Then rr=12
rt(2)=rr
For q=1 To 4
For qq=q+1 To 5
c=Estratto (es,rr,q) : d=Estratto (es,rr,qq)
If (a=c And b=d) Or (a=d And b=c) Then
If(Pari(a) And Pari(b) And Pari(c) And Pari(d)) Or(Not Pari(a) And Not Pari(b) And Not Pari(c) And Not Pari(d)) Then
co=co+1
Scrivi String (65,"=")&" Caso n° "& co
Scrivi DataEstrazione (es)&" "& SiglaRuota (r)&" "& StringaEstratti (es,r)&" Ambo "&a&"-"&b&" in pos. "&p&"^ e "&pp&"^"
Scrivi DataEstrazione (es)&" "& SiglaRuota (rr)&" "& StringaEstratti (es,rr)&" Ambo "&a&"-"&b&" in pos. "&q&"^ e "&qq&"^"
If p=q And pp=qq Then ColoreTesto 2 : txx=" Condizione ISOTOPA " Else ColoreTesto 1 : txx=" Condizione non Isotopa"
'ColoreTesto 2
Scrivi "Gli Ambi sono in "& txx
ColoreTesto 0
s1=(Fuori90(a+b)) : s2=s1/2 : s3=Diametrale(s2)
s4=Distanza(s3,a) : s5=Distanza(s3,b)
nu(1)=s4
nu(2)=s5
ImpostaGiocata 1,nu,rt,pt,clp,0
nu1(1)=s4
nu1(2)=a
nu1(3)=b
nu1(4)=Fuori90(a+b)
nu1(5)=Abs(a-b)
ImpostaGiocata 2,nu1,rt,pos,clp,0
ruot(1)=11
ImpostaGiocata 3,nu1,ruot,pos,clp,0
Gioca es
End If
End If
Next
Next
Next
Next
Next
Next
Next
'ScriviResoconto
End Sub
giorgio come lo vedi? |
| franca46 |
Posted - 18 marzo 2021 : 15:59:54
Speravo fosse per L8
Option Explicit
Sub Main
Dim FIn,Ini,A,B,C,D,E,xX,X,Clp,Es,Salvo50
Dim R1,R2,P1,P2,P3,P4,P5,P6,E1,E2,Caso,Casi
Dim Abb3,Abb4,Amba1,Amba2
Dim Ruo(2),Po1(1),Po2(2),Ambo4(2)
Dim Amba(1),Ambo1(2),Ambo2(2),Ambo3(2)
FIn = EstrazioneFin
Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9850))'6531 esempio nelle spiegazioni
Clp = CInt(InputBox(" Per quanti colpi vuoi giocare?",Salvo50,10))
Call ScegliRange(Ini,FIn,Ini,FIn)
Scrivi Space(10) & "Ambo Ripetuto Pari O Dispari di Osvaldo Manara - Script Salvo50"& Space(10),1,,4,,3,,1
Po1(1) = 1
Po2(2) = 1
For Es = Ini To FIn
Messaggio Es
AvanzamentoElab Ini,FIn,Es
Caso = 0
For R1 = 1 To 9
For P1 = 1 To 4
For P2 = P1 + 1 To 5
A = Estratto(Es,R1,P1)
B = Estratto(Es,R1,P2)
If(pari(A) And pari(B))Or(dispari(A) And dispari(B))Then
For R2 = R1 + 1 To 10
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
xX =(A + B) : X = xX / 2
E = Fuori90(X + 45)
Amba1 = Distanza(A,E)
Amba2 = Distanza(B,E)
Abb3 = Fuori90(A + B)
Abb4 = Differenza(A,B)
'A---B
'| |
'C---D
Amba(1) = Amba1
Ambo1(1) = Amba1 : Ambo1(2) = A
Ambo2(1) = Amba1 : Ambo2(2) = B
Ambo3(1) = Amba1 : Ambo3(2) = Abb3
Ambo4(1) = Amba1 : Ambo4(2) = Abb4
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(" 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(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R2) & " ",1,0
For P6 = 1 To 5
E2 = Estratto(Es,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) & Format2(A) & " + " & Format2(B) & " = " & Format2(xX) & " / 2 = ",1,0
Scrivi Format2(X) & " + Il Fisso 45 = " & Format2(E),1
Scrivi
Scrivi Space(14) & " Distanza Ciclometrica Tra " & Format2(E) & " e " & Format2(A) & " = " & Format2(Amba1),1
Scrivi Space(14) & " Distanza Ciclometrica Tra " & Format2(E) & " e " & Format2(B) & " = " & Format2(Amba2) & " Ambata",1
Scrivi Space(25) & " Abbinamenti Per Ambo ",1,,,1
Scrivi Space(23) & "Estratto " & Format2(A) & " Abbinamento 1 ",1
Scrivi Space(23) & "Estratto " & Format2(B) & " Abbinamento 2 ",1
Scrivi Space(23) & Format2(A) & " + " & Format2(B) & " = " & Format2(Abb3) & " Abbinamento 3",1
Scrivi Space(23) & Format2(A) & " - " & Format2(B) & " = " & Format2(Abb4) & " Abbinamento 4",1
Scrivi
Ruo(1) = R1 : Ruo(2) = R2
ImpostaGiocata 1,Amba,Ruo,Po1,Clp,1
ImpostaGiocata 2,Ambo1,Ruo,Po2,Clp
ImpostaGiocata 3,Ambo2,Ruo,Po2,Clp
ImpostaGiocata 4,Ambo3,Ruo,Po2,Clp
ImpostaGiocata 5,Ambo4,Ruo,Po2,Clp
Gioca Es,1
End If
Next
Next
Next
End If
Next
Next
Next
If ScriptInterrotto Then Exit Sub
Next
ScriviResoconto
End Sub |
| franca46 |
Posted - 17 marzo 2021 : 20:21:19
Ciao Giorgio, ormai domani mattina, ho già spento il PC.
Grazie |
| giorgio60 |
Posted - 17 marzo 2021 : 19:13:37
buona sera a tutti
Franca lo posti tu? |
| giorgio60 |
Posted - 16 marzo 2021 : 22:52:50
ciao Franca ci provo |
| franca46 |
Posted - 16 marzo 2021 : 20:47:53
Ciao Giorgio riesci a fare questo listato? |
| giorgio60 |
Posted - 16 marzo 2021 : 20:23:04
come posso aiutarti? |
|
|
