Quadrature con figure diametrali

lino63

Posted on 24/12/2010, 11:18

Volevo chiedere agli esperti se era possibile fare lo script di questo metodo, vi ringrazio in anticipo:

(figure diametrali)
figura 1 con figura 6
figura 2 con figura 7
figura 3 con figura 8
figura 4 con figura 9

Bisogna rilevare 2 ambi su 2 ruote con figura diametrale e quindi fare le somme diagonali dei 2 ambi.

ES:Estrazione 11/12
GE 11-47 (ambo in figura 2)
TO 70-79 (ambo in figura 7)
condizione rispettata
somme diagonali 11+79=90
somme diagonali 47+70=27

Previsione:
(i 2 numeri più i vertibili)
90-27/90-72/9-27/9-72
oppure la quartina 9-90-27-72
a volte esce l'ambo vertibile
Esito al 3° colpo TO 72-90

maxma.62

Posted on 27/12/2010, 11:33

Lo script per lino63.
Ho inserito solo la lunghetta.
Spero sia esatto:

CODICE

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

ce=InputBox("da quale estrazione vuoi controllare? ","estrazione",8300)
k=InputBox ("per quanti colpi?","colpi di gioco",14)
ini=ce
fin=EstrazioneFin
Scrivi "quadrature con figure diametrali (scritp by maxma62)",1
Scrivi String(79,"="),1
Scrivi "Resoconto da "&DataEstrazione(ini,1)&" a "&_
DataEstrazione(fin,1)&" ("&(fin-ce)&" estr.)",1
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)
f1=Figura(a):f2=Figura(b)
If f1=f2 Then

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)
f3=Figura(c):f4=Figura(d)
If f3=f4 Then
If Distanza(f2,f4)=5 Then

casi=casi+1:Scrivi String(68,"=")&" by maxma62",1
Scrivi DataEstrazione(es,1)&" [ "&siglaRuota(r1)& " - "&StringaEstratti(es,r1)&_
" ] [ "&format2(a)&"."&format2(b)&" ] fig. "&(f1)&"/"&(f2)&" in "&(p1)&"^/"&(p2)&"^ pos."
Scrivi DataEstrazione(es,1)&" [ "&siglaRuota(r2)& " - "&StringaEstratti(es,r2)&_
" ] [ "&format2(c)&"."&format2(d)&" ] fig. "&(f3)&"/"&(f4)&" in "&(p3)&"^/"&(p4)&"^ pos."
Scrivi String(68,"-")&" caso n° " & casi
ruote(1)=r1:ruote(2)=r2:ruota(1)=11:co=0

n1=Fuori90(a+d)
n2=Fuori90(b+c)
n3=Vert(n1)
n4=Vert(n2)

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

End If
End If
Next:Next:Next
End If
Next:Next:Next:Next
Scrivi String(68,"=")&" by maxma62",1
ScriviResoconto
Scrivi "quadrature con figure diametrali (scritp by maxma62)",1
End Sub

ciao,
max

pigreko73..

Posted on 27/12/2010, 14:15

Group:: Administrator

Posts:: 8,319

Location:: Pescara

Status:

Grazieeeeeeee..maxma.62..!!!

Web Contacts

lino63

Posted on 27/12/2010, 16:24

Grazie max sei gentilissimo come al solito, lo script è perfetto solo che mi aspettavo che il metodo rispondesse meglio.
Un saluto

3 replies since 24/12/2010, 11:18 473 views