| Ciao a tutti.
Vi riporto il list che molto gentilmente, ha realizzato Enplein che è "una specie" di rifacimento della tecnica "Quadratura Morenish". In effetti, non si tratta di rifacimento vero e proprio ma di una soluzione previsionale molto piu' selettiva che, va a porre in gioco, i calcoli della tecnica in questione, laddove si verifichi una previsione composta da numeri in tripla 3-6-9.
Sub main() Dim n(4),amb(2),ambo1(2),ambo2(2),ruote(3),ruota(2),posta(1),poste(2) posta(1)=1:poste(2)=1 ce=InputBox("da quale estrazione vuoi controllare? ","estrazione",8300) cl=InputBox ("per quanti colpi?","colpi di gioco",14) ini=ce fin=EstrazioneFin Scrivi String(73,"="),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) fa=Figura (a):fb=Figura (b) If fa=fb And (fa=3 Or fa=6 Or fa=9) Then If a=Diametrale(b) Then For r2=r1+1 To 11 If r2=11 Then r2=12' Nazionale For p3= 1 To 4 For p4= p3+1 To 5 c=Estratto(es,r2,p3)=Estratto(es,r2,p4) fc=Figura (c):fd=Figura (d) If fc=fd And fc=fa And (fc=3 Or fc=6 Or fc=9) Then If c=Diametrale(d) And a<>c And a<>d Then n(1)=a : n(2)=b : n(3)=c : n(4)=d OrdinaMatrice n '--------------------------------------------------------------------------------------------------------------------- 'Quadratura e1= Abs (n(4)-n(1)) : e2=90-e1 k=Abs (e1-e2) x1=Fuori90 (k+n(1)) : x2=Fuori90 (k+n(4)) x3=Fuori90 (k+n(2)) : x4=Fuori90 (k+n(3)) xx1=Fuori90 (x1+x2) : xx2=Fuori90 (x3+x4) If xx1=xx2 Then ab1=xx1 : ab2=Diametrale (xx1) If Figura (k)<>Figura (ab1) Then '---------------------------------------------------------------------------------------------------------------- 'Previsione amb(1)=k ambo1(1)=k : ambo1(2)=ab1 ambo2(1)=k : ambo2(2)=ab2 ruote(1)=r1:ruote(2)=r2:ruote(3)=11:ruota(1)=r1 : ruota(2)=r2 casi=casi+1:Scrivi String(65,"=")&" script by Enplein",1 Scrivi DataEstrazione(es,1)&" [ "&SiglaRuota(r1)&" - "&StringaEstratti(es,r1)&" ] [ "&_ Format2(a)&"."& Format2(b)&" ] in "&(p1)&"^/"&(p2)&"^ pos."& Chr (10) &_ DataEstrazione(es,1)&" [ "&SiglaRuota(r2)&" - "&StringaEstratti(es,r2)&" ] [ "&_ Format2(c)&"."&format2(d)&" ] in "&(p3)&"^/"&(p4)&"^ pos."& Chr (10)&_ String(60,"-")&" caso n° "&(casi) ImpostaGiocata 1,amb,ruota,posta,cl,1 ImpostaGiocata 2,ambo1,ruote,poste,cl,2 ImpostaGiocata 3,ambo2,ruote,poste,cl,2 Gioca es End If End If End If End If Next Next Next End If End If Next Next Next Next Scrivi Scrivi " LA QUADRATURA con le figure 3.6.9 di Morenish by_Enplein",1 ScriviResoconto End Sub
|