mithos

MITHOS

Nell'estrazione del 08-04-2010 sulle ruote consecutive di Genova - Milano abbiamo la sortita in posizione isotopa e uniti di due ambi della stessa distanza precisamente : 52-48 e 46-42 ricaviamo la previsione:
N.B. Il quarto elemento in ordine di sortita designerą il 1° abbinamento per il gioco dell'ambo secco principale.

Calcoliamo l'ambata:
Posizioniamo i due ambi nel loro ordine di sortita su un ipotetico quadrato:

52-------48

46-------42

Operiamo con la differenza in verticale oppure in diagonale o in orizzontale dove rileviamo una uguale distanza essa stessa sarą la nostra ambata, in questo caso notiamo in verticale la distanza 6:

Il nostro ambo principale sarą 06-42 che giocheremo sulle due ruote e tutte per un tempo massimo di 5 -6 colpi.

Calcoliamo ora altri due abbinamenti operando con il +1 e -1 del primo abbinamento (42): In questo saranno 41 e 43
Ambi secondari 06-41 e 06-43
Previsione: RUOTE GENOVA - MILANO E TUTTE
AMBATA 06
AMBO PRINCIPALE 06-42
AMBI SECONDARI: 06-41 E 06-43

Sub main()
Dim nu1(1),nu2(4),ruote(2),ruota(1),posta(1),poste(4)
posta(1)=1:poste(2)=1:poste(3)=1:poste(4)=1

ce=InputBox("da quale estrazione vuoi controllare? ","estrazione",8290) '8164 inizio 2010
k=InputBox ("per quanti colpi?","colpi di gioco",14)
ini=ce
fin=EstrazioneFin
Scrivi "mithos di f_mongillo (script by maxma62)",1
Scrivi String(83,"="),1
Scrivi "Resoconto da "&DataEstrazione(ini,1)&" a "&_
DataEstrazione(fin,1)&" ("&(rs)&" estr.)"
For es=ini To EstrazioneFin
Messaggio "elab. estr. ["&(es)&"] di "&_
DataEstrazione (es,1)

'For r1= 1 To 9
For r1= 1 To 10 '<<< x ruote consec.

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 10
r2=r1+1 '<<< x ruote consec.
If r1=10 Then r2=1 End If '<<< x ruote consec.

For p3= 1 To 4
For p4= p3+1 To 5
c=Estratto(es,r2,p3):d=Estratto(es,r2,p4)
If p1=p3 And p2=p4 Then 'iso
'-----------------------
do1=Distanza(a,b):do2=Distanza(c,d)'dist orr
'-----------------------
'dfo1=Abs(a-b):dfo2=Abs(c-d)'diff orr
'dfv1=Abs(a-c):dfv2=Abs(b-d)'diff ver
'dfd1=Abs(a-d):dfd2=Abs(b-c)'diff dia
'-----------------------
dfo1=Distanza(a,b):dfo2=Distanza(c,d)'dist orr
dfv1=Distanza(a,c):dfv2=Distanza(b,d)'dist ver
dfd1=Distanza(a,d):dfd2=Distanza(b,c)'dist dia
'-----------------------
If do1=do2 And (dfo1=dfo2 Or dfv1=dfv2 Or dfd1=dfd2) Then

casi=casi+1:Scrivi String(65,"=")&" script by maxma62",1
Scrivi DataEstrazione(es,1)&" [ "&SiglaRuota(r1)&" - "&StringaEstratti(es,r1)&" ] [ "&_
Format2(a)&"."&format2(b)&" ] in "&(p1)&"^/"&(p2)&"^ pos. dist. [ "&format2(do1)&" ]"
Scrivi DataEstrazione(es,1)&" [ "&SiglaRuota(r2)&" - "&StringaEstratti(es,r2)&" ] [ "&_
Format2(c)&"."&format2(d)&" ] in "&(p3)&"^/"&(p4)&"^ pos. dist. [ "&format2(do2)&" ]"
Scrivi String(71,"-")&" caso n° "&(casi)
Scrivi "[ "&format2(a)&"."&format2(b)&" ] diff. orr. "&format2(dfo1)&_
" / [ "&format2(c)&"."&format2(d)&" ] diff. orr. "&format2(dfo2)
Scrivi "[ "&format2(a)&"."&format2(c)&" ] diff. ver. "&format2(dfv1)&_
" / [ "&format2(b)&"."&format2(d)&" ] diff. ver. "&format2(dfv2)
Scrivi "[ "&format2(a)&"."&format2(d)&" ] diff. dia. "&format2(dfd1)&_
" / [ "&format2(b)&"."&format2(c)&" ] diff. dia. "&format2(dfd2)
Scrivi String(83,"-")
ruote(1)=r1:ruote(2)=r2:ruota(1)=11:co=0

If dfo1=dfo2 Then n1=dfo2
If dfv1=dfv2 Then n1=dfv2
If dfd1=dfd2 Then n1=dfd2
n2=d
n3=Fuori90(d+1)
n4=Abs(d-1)

nu1(1)=n1
co=co+1
ImpostaGiocata co,nu1,ruote,posta,k,0
nu2(1)=n1:nu2(2)=n2:nu2(3)=n3:nu2(4)=n4
co=co+1
ImpostaGiocata co,nu2,ruote,poste,k,0
co=co+1
ImpostaGiocata co,nu2,ruota,poste,k,0
Gioca es

End If
End If 'iso
Next:Next:Next:Next
Next:Next:
'Next '<<< x ruote consec.
Scrivi String(65,"=")&" script by maxma62",1
ScriviResoconto
Scrivi "mithos di f_mongillo (script by maxma62)",1
End Sub