| Autore |
 Discussione  |
|
|
pesciolina
Utente Sfegatato
Italy
5958 invii |
 Spedito - 15 novembre 2008 : 15:00:48
|
HO STUDIATO QUESTO METODINO SE QUALCUNO MI FA IL LISTATO.....GRAZIE.
QUANDO SU UNA RUOTA ESCE UN AMBO SIMMETRICO ( IN PRATICA GLI AMBI SIMMETRICI SONO QUELLI LA CUI SOMMA FA 91)
LA DIFFERENZA MATEMATICA DEI DUE NUMERI E IL SUO VERTIBILE SONO LE AMBATE.
GLI ABBINAMENTI SONO DATI DAL COMPLEMENTO A 91 DEGLI ALTRI 3 NUMERI.
ES: 28/8/08 SU CAGLIARI 17.74.33.85.26
17.74 = AMBO SIMMETRICO
74 - 17 = 57.75 AMBATE
91 - 33 = 58 ABBIN.
91 - 85 = 6 ABBIN.
91 - 26 = 65 ABBIN.
IL 16/9 USCITO A CAGLIARI 75.6
NON E' L'UNICO AMBO CHE HO TROVATO ....VEDIAMO SE VALE LA PENA. |
 |
Modificato da - pesciolina su 16 novembre 2008 14:38:20 |
|
|
pico2005
Utente Sfegatato
Italy
1653 invii |
Spedito - 16 novembre 2008 : 17:44:20
|
Sub main()
Dim numeri(10)
Dim ruote(10)
Dim poste(5)
Dim n
For n = EstrazioneFin -90 To EstrazioneFin
For r=1 To 10
For x=1 To 4
For y=x+1 To 5
a=Estratto (n,r,x)
b=Estratto (n,r,y)
If a+b=91 Then
numeri(1)=Abs(a-b)
numeri(2)=Vert (numeri(1))
a=0
b=0
For alfa =1 To 5
If (alfa=x) Or (alfa=y) Then
p=0
Else
z=z+1
numeri(z+2)=91-Estratto (n,r,alfa)
End If
Next
End If
z=0
Next
Next
ruote(1)=r
poste(1)=0
poste(2)=1
poste(3)=0
poste(4)=0
ImpostaGiocata 1,numeri,ruote,poste,9
Gioca n ,True
For x=1 To 5
numeri(x)=0
Next
Next
Next
ScriviResoconto
End Sub
gio 28.08.2008 [7953]
G 1: A 57.75.58.06.65 Ca 9/9
E: 06.75 su Ca 8° colpo [7961/16.09.2008]
gio 02.10.2008 [7968]
G 1: A 87.78.44.62.71 Ro 9/9
E: 71.44 su Ro 1° colpo [7969/04.10.2008]
mar 07.10.2008 [7970]
G 1: A 73.37.75.65.43 Fi 9/9
E: 75.65 su Fi 9° colpo [7979/28.10.2008]
gio 09.10.2008 [7971]
G 1: A 57.75.71.01.81 Ba 9/9
E: 75.81 su Ba 5° colpo [7976/21.10.2008]
sab 25.10.2008 [7978]
G 1: A 85.58.78.49.12 Na 9/9
E: 12.58 su Na 8° colpo [7986/13.11.2008]
Controlla un pochino se i risultati sono conformi alle richieste.
|
Migliaia di fili d'erba tengon fermo un elefante. |
Modificato da - pico2005 su 17 novembre 2008 10:11:17 |
 |
|
|
gibon
Utente Sfegatato
Italy
2515 invii |
Spedito - 16 novembre 2008 : 18:29:18
|
PER GLI AMBI SIMMETRICI... HO TROVATO QUESTO .... NON CHIEDETEMI DI CHI E' PERCHE' NON LO SO
Sub main()
Dim n(10), cg(10), aa(10),n1(2)
Dim ruote(3),rt(2)
Dim posta(5)
Dim poste(5)
posta(2)=1
poste(2)=1.5
poste(3)=0.4
poste(4)=0.1
fin=EstrazioneFin
ini=fin-100
For es=ini To fin
AvanzamentoElab ini,fin,es
For r=1 To 9
For p=1 To 4
For q=p+1 To 5
n(1)=Estratto (es,r,p)
n(2)=Estratto (es,r,q)
If Distanza(n(1),n(2))=30 Then
If Fuori90(n(1)+30)=n(2) Then n1(1)=Fuori90 (n(1)+60) Else n1(1)=Fuori90 (n(1)+30)
For r1=r+1 To 10
n(3)=Estratto (es,r1,p)
n(4)=Estratto (es,r1,q)
If Distanza(n(3),n(4))=30 Then
If Fuori90(n(3)+30)=n(4) Then n1(2)=Fuori90 (n(3)+60) Else n1(2)=Fuori90 (n(3)+30)
Scrivi String (65,"*")
Scrivi String (65,"-")
ColoreTesto 1
Scrivi "In data "& DataEstrazione (es)
Scrivi FormatSpace(NomeRuota(r), 10)&" "& Format2(n(1))&"."& Format2(n(2))&"..."& StringaEstratti (es,r) ,1
Scrivi FormatSpace(NomeRuota(r1),10)&" "& Format2(n(3))&"."& Format2(n(4))&"..."& StringaEstratti (es,r1) ,1
Scrivi "Mancante Prima coppia "& n1(1)&" Mancante seconda coppia "& n1(2)
ColoreTesto 0
Scrivi
ruote(1)=r
ruote(2)=r1
ruote(3)=11
cg(1)=n1(1)
cg(2)=n1(2)
ImpostaGiocata 1,cg,ruote,posta,12,2
rt(1)=r
rt(2)=r1
aa(1)=n1(1)
aa(2)=n1(2)
aa(3)=n(1)
aa(4)=n(2)
aa(5)=n(3)
aa(6)=n(4)
ImpostaGiocata 2,aa,rt,poste,12,2
Gioca es
End If
Next
End If
Next
Next
Next
Next
ScriviResoconto
End Sub
|
   VENTO IN POPPA  |
|
|
|
pesciolina
Utente Sfegatato
Italy
5958 invii |
Spedito - 17 novembre 2008 : 16:41:55
|
Per Pico....si grazie il listato va bene....purtroppo però ho visto che gli esiti per ambo non sono poi tanto frequenti....come dicevo sopra....mi sa che non ne vale la pena.
Cmq grazie....sei stato gentilissimo.
Per Gibon, quello da te postato non è lo script per gli ambi simmetrici ma per ambi delle terzine simmetriche...che sono una cosa diversa.
Cmq grazie anche a te per averlo postato gli darò un'occhiata ....magari si rivela meglio del mio ihihihih. |
|
|
|
|
pico2005
Utente Sfegatato
Italy
1653 invii |
Spedito - 17 novembre 2008 : 20:55:38
|
Comunque provalo per ambata (poste(1)=1) nelle nove estrazioni dà sempre esito positivo.
Non altrettanto per Ambo....però può essere usato per convergenze.
|
Migliaia di fili d'erba tengon fermo un elefante. |
|
|
|
pesciolina
Utente Sfegatato
Italy
5958 invii |
Spedito - 17 novembre 2008 : 21:01:40
|
|
|
| |
Discussione |
|
|
|
SCRIPT PER AMBI SIMMETRICI
