txt1 = "diagramma differenziale su tre numeri" txt2 = "b y m a s" txt3 = "(basato sugli scritti di A. Scaravetti)" txt4 = "no condizioni, rilevamento e calcoli al conc. n° " txt5 = "analisi terminata" Sub main() Scrivi String (115,"_") Scrivi String (115,"¯") Scrivi Space ((115 - Len (txt1)) / 2) & txt1,1 Scrivi Space ((115 - Len (txt2)) / 2) & txt2,1 Scrivi Chr(10) & Space ((115 - Len (txt3)) / 2) & txt3,1 Scrivi String (115,"_") Scrivi String (115,"¯") Dim n Dim rt(2), rtt(1) Dim mbt(1), nr(3), nr2(3), nr3(3), xnr4(1), nr4(5), xnr5(1), nr5(5), xnr6(1), nr6(5) Dim pr1(6) Dim posta(1), poste(10) fin = CInt (InputBox ("estrazione finale","ultimo concorso che si desidera esaminare",EstrazioneFin )) ini = CInt (InputBox ("estrazioni pregresse","disamina pregressa rispetto all'estrazione " & fin, 0 )) r1 = CInt (InputBox ("ruota di ricerca","comparto principale",1 )) k = CInt (InputBox ("tentativi di gioco","numero di concorsi",9)) posta(1) = 1 poste(2) = 1 rtt(1) = 11 For n = fin - ini To fin ok1 = 0 : ok2 = 0 : ok3 = 0 gct = 0 For i1 = 1 To 3 For i2 = i1 + 1 To 4 For i3 = i2 + 1 To 5 a1 = Estratto (n,r1,i1) a2 = Estratto (n,r1,i2) a3 = Estratto (n,r1,i3) ds1 = Abs (a1 - a2) ds2 = Abs (a1 - a3) ds3 = Abs (a2 - a3) If a1 > a2 Then df1 = Fuori90 (a1 + ds1) Else df1 = a1 - ds1 : If df1 < 1 Then df1 = df1 + 90 If a1 > a3 Then df2 = Fuori90 (a1 + ds2) Else df2 = a1 - ds2 : If df2 < 1 Then df2 = df2 + 90 If a2 > a1 Then df3 = Fuori90 (a2 + ds1) Else df3 = a2 - ds1 : If df3 < 1 Then df3 = df3 + 90 If a2 > a3 Then df4 = Fuori90 (a2 + ds3) Else df4 = a2 - ds3 : If df4 < 1 Then df4 = df4 + 90 If a3 > a1 Then df5 = Fuori90 (a3 + ds2) Else df5 = a3 - ds2 : If df5 < 1 Then df5 = df5 + 90 If a3 > a2 Then df6 = Fuori90 (a3 + ds3) Else df6 = a3 - ds3 : If df6 < 1 Then df6 = df6 + 90 nr(2) = df1 : nr(3) = df2 nr2(2) = df3 : nr2(3) = df4 nr3(2) = df5 : nr3(3) = df6 ColoreTesto (0) Erase nr4 su1 = SerieUltima (n,n,nr,rtt,2) If su1 > 0 Then For j1 = 1 To 10 For y1 = 1 To 4 For y2 = y1 + 1 To 5 If r1 <> j1 Then If Estratto (su1,j1,y1) = nr(1) Or Estratto (su1,j1,y1) = nr(2) Or Estratto (su1,j1,y1) = nr(3) Then If Estratto (su1,j1,y2) = nr(1) Or Estratto (su1,j1,y2) = nr(2) Or Estratto (su1,j1,y2) = nr(3) Then q1 = Estratto (su1,j1,y1) : q2 = Estratto (su1,j1,y2) If q1 = a1 Then q3 = df1 : q4 = df2 If q1 = df1 Then q3 = a1 : q4 = df2 If q1 = df2 Then q3 = a1 : q4 = df1 If Fuori90 (q1 + a2) = Fuori90 (q2 + a3) Then mbt(1) = Fuori90 (q1 + a2) xnr4(1) = mbt(1) : nr4(2) = Fuori90 (a2 + q2) : nr4(3) = Fuori90 (q1 + a3) Else mbt(1) = Fuori90 (a2 + q2) xnr4(1) = mbt(1) : nr4(2) = Fuori90 (q1 + a2) : nr4(3) = Fuori90 (q2 + a3) End If nr4(4) = Fuori90 (Estratto (su1,j1,y1) + Estratto (su1,j1,y2)) : nr4(5) = Fuori90 (a2 + a3) If NumeriRipetuti (nr4) = False Then OrdinaMatrice nr4 nr4(1) = xnr4(1) ok1 = ok1 + 1 Scrivi "[" & n & "] " & SiglaRuota (r1) & " " & StringaEstratti (n,r1) & FormatSpace (rg,18,1) & " ril. pos. " & i1 & " " & i2 & " " & i3 & _ " direzionalità" & FormatSpace (ds1,3,1) & FormatSpace (ds2,3,1) & FormatSpace (ds3,3,1) & " diff.li (" & _ Format2 (a1) & ") " & Format2 (df1) & "." & Format2 (df2) & " (" & _ Format2 (a2) & ") " & Format2 (df3) & "." & Format2 (df4) & " (" & _ Format2 (a3) & ") " & Format2 (df5) & "." & Format2 (df6) & Chr(10) & Chr(10) & _ Space (7) & SiglaRuota (j1) & " " & Format2 (Estratto (su1,j1,y1)) & "." & Format2 (Estratto (su1,j1,y2)) & _ " = " & Format2 (Fuori90 (Estratto (su1,j1,y1) + Estratto (su1,j1,y2))) Scrivi Space (10) & Format2 (a2) & "." & Format2 (a3) & " = " & Format2 (Fuori90 (a2 + a3)) Scrivi Space (10) & String (10,"-") Scrivi Space (10) & Format2 (Fuori90 (q1 + a2)) & " " & Format2 (Fuori90 (q2 + a3)) Scrivi Space (10) & Format2 (Fuori90 (a2 + q2)) & " " & Format2 (Fuori90 (q1 + a3)) Scrivi gct = gct + 1 rt(1) = r1 : rt(2) = j1 ImpostaGiocata gct,mbt,rt,posta,k gct = gct + 1 ImpostaGiocata gct,nr4,rt,poste,k Gioca n Scrivi Chr(10) & String (115,"-") End If End If End If End If Next Next Next End If Erase nr5 su1 = SerieUltima (n,n,nr2,rtt,2) If su1 > 0 Then For j1 = 1 To 10 For y1 = 1 To 4 For y2 = y1 + 1 To 5 If r1 <> j1 Then If Estratto (su1,j1,y1) = nr2(1) Or Estratto (su1,j1,y1) = nr2(2) Or Estratto (su1,j1,y1) = nr2(3) Then If Estratto (su1,j1,y2) = nr2(1) Or Estratto (su1,j1,y2) = nr2(2) Or Estratto (su1,j1,y2) = nr2(3) Then q5 = Estratto (su1,j1,y1) : q6 = Estratto (su1,j1,y2) If q5 = a2 Then q7 = df3 : q8 = df4 If q5 = df3 Then q7 = a2 : q8 = df4 If q5 = df4 Then q7 = a2 : q8 = df3 If Fuori90 (q5 + a1) = Fuori90 (q6 + a3) Then mbt(1) = Fuori90 (q5 + a1) xnr5(1) = mbt(1) : nr5(2) = Fuori90 (a1 + q6) : nr5(3) = Fuori90 (q5 + a3) Else mbt(1) = Fuori90 (a1 + q6) xnr5(1) = mbt(1) : nr5(2) = Fuori90 (q5 + a1) : nr5(3) = Fuori90 (q6 + a3) End If nr5(4) = Fuori90 (Estratto (su1,j1,y1) + Estratto (su1,j1,y2)) : nr5(5) = Fuori90 (a1 + a3) If NumeriRipetuti (nr5) = False Then OrdinaMatrice nr5 nr5(1) = xnr5(1) ok2 = ok2 + 1 Scrivi "[" & n & "] " & SiglaRuota (r1) & " " & StringaEstratti (n,r1) & FormatSpace (rg,18,1) & " ril. pos. " & i1 & " " & i2 & " " & i3 & _ " direzionalità" & FormatSpace (ds1,3,1) & FormatSpace (ds2,3,1) & FormatSpace (ds3,3,1) & " diff.li (" & _ Format2 (a1) & ") " & Format2 (df1) & "." & Format2 (df2) & " (" & _ Format2 (a2) & ") " & Format2 (df3) & "." & Format2 (df4) & " (" & _ Format2 (a3) & ") " & Format2 (df5) & "." & Format2 (df6) & Chr(10) Scrivi ColoreTesto (1) & Space (7) & SiglaRuota (j1) & " " & Format2 (Estratto (su1,j1,y1)) & "." & Format2 (Estratto (su1,j1,y2)) & _ " = " & Format2 (Fuori90 (Estratto (su1,j1,y1) + Estratto (su1,j1,y2))) Scrivi Space (10) & Format2 (a1) & "." & Format2 (a3) & " = " & Format2 (Fuori90 (a1 + a3)) Scrivi Space (10) & String (10,"-") Scrivi Space (10) & Format2 (Fuori90 (q5 + a1)) & " " & Format2 (Fuori90 (q6 + a3)) Scrivi Space (10) & Format2 (Fuori90 (a1 + q6)) & " " & Format2 (Fuori90 (q5 + a3)) Scrivi gct = gct + 1 rt(1) = r1 : rt(2) = j1 ImpostaGiocata gct,mbt,rt,posta,k gct = gct + 1 ImpostaGiocata gct,nr5,rt,poste,k Gioca n Scrivi Chr(10) & String (115,"-") End If End If End If End If Next Next Next End If Erase nr6 su1 = SerieUltima (n,n,nr3,rtt,2) If su1 > 0 Then For j1 = 1 To 10 For y1 = 1 To 4 For y2 = y1 + 1 To 5 If r1 <> j1 Then If Estratto (su1,j1,y1) = nr3(1) Or Estratto (su1,j1,y1) = nr3(2) Or Estratto (su1,j1,y1) = nr3(3) Then If Estratto (su1,j1,y2) = nr3(1) Or Estratto (su1,j1,y2) = nr3(2) Or Estratto (su1,j1,y2) = nr3(3) Then q9 = Estratto (su1,j1,y1) : q10 = Estratto (su1,j1,y2) If q9 = a3 Then q11 = df5 : q12 = df6 If q9 = df5 Then q11 = a3 : q12 = df6 If q9 = df6 Then q11 = a3 : q12 = df5 If Fuori90 (q9 + a1) = Fuori90 (q10 + a2) Then mbt(1) = Fuori90 (q10 + a2) xnr6(1) = mbt(1) : nr6(2) = Fuori90 (a1 + q10) : nr6(3) = Fuori90 (q9 + a2) Else mbt(1) = Fuori90 (a1 + q10) xnr6(1) = mbt(1) : nr6(2) = Fuori90 (q9 + a1) : nr6(3) = Fuori90 (q10 + a2) End If nr6(4) = Fuori90 (Estratto (su1,j1,y1) + Estratto (su1,j1,y2)) :nr6(5) = Fuori90 (a1 + a2) OrdinaMatrice (nr6) nr6(1) = xnr6(1) If NumeriRipetuti (nr6) = False Then ok3 = ok3 + 1 Scrivi "[" & n & "] " & SiglaRuota (r1) & " " & StringaEstratti (n,r1) & FormatSpace (rg,18,1) & " ril. pos. " & i1 & " " & i2 & " " & i3 & _ " direzionalità" & FormatSpace (ds1,3,1) & FormatSpace (ds2,3,1) & FormatSpace (ds3,3,1) & " diff.li (" & _ Format2 (a1) & ") " & Format2 (df1) & "." & Format2 (df2) & " (" & _ Format2 (a2) & ") " & Format2 (df3) & "." & Format2 (df4) & " (" & _ Format2 (a3) & ") " & Format2 (df5) & "." & Format2 (df6) & Chr(10) Scrivi ColoreTesto (2) & Space (7) & SiglaRuota (j1) & " " & Format2 (Estratto (su1,j1,y1)) & "." & Format2 (Estratto (su1,j1,y2)) & _ " = " & Format2 (Fuori90 (Estratto (su1,j1,y1) + Estratto (su1,j1,y2))) Scrivi Space (10) & Format2 (a1) & "." & Format2 (a2) & " = " & Format2 (Fuori90 (a1 + a2)) Scrivi Space (10) & String (10,"-") Scrivi Space (10) & Format2 (Fuori90 (q9 + a1)) & " " & Format2 (Fuori90 (q10 + a2)) Scrivi Space (10) & Format2 (Fuori90 (a1 + q10)) & " " & Format2 (Fuori90 (q9 + a2)) Scrivi gct = gct + 1 rt(1) = r1 : rt(2) = j1 ImpostaGiocata gct,mbt,rt,posta,k gct = gct + 1 ImpostaGiocata gct,nr6,rt,poste,k Gioca n Scrivi Chr(10) & String (115,"-") End If End If End If End If Next Next Next End If Next Next Next If ok1 > 0 Or ok2 > 0 Or ok3 > 0 Then Scrivi Space (72) & "validità previsioni dal concorso n° " & n + 1 & ": " & ok1 + ok2 + ok3,1 Scrivi String (115,"_") Scrivi String (115,"¯") End If If ok1 = 0 And ok2 = 0 And ok3 = 0 Then Scrivi ColoreTesto (2) & Space ((115 - Len (txt4)) / 2) & txt4 & n,1 Scrivi ColoreTesto (0) & String (115,"_") Scrivi String (115,"¯") End If Next Scrivi Space ((115 - Len (txt5)) / 2) & txt5,1 ScriviResoconto dmd = InputBox ("vuoi vedere le linee guida del metodo?"," m e m o r a n d u m","n") If dmd <> "n" Then Scrivi String (120,"_") Scrivi String (120,"¯") Scrivi Chr(10) & " Sintesi del metodo ""diagramma differenziale su tre numeri""",1 Scrivi Scrivi " A B C",1 Scrivi " [8916] Ba 75.73.09.04.28 ril. pos. 1 2 3 direzionalità 2 66 64 diff.li (75) 77.51 (73) 71.47 (09) 33.35" Scrivi Scrivi " Ve 71.47 = 28 ^ ^ ^ ^ ^ ^ ^ ^" Scrivi " 75.09 = 84 | | | | | | | |" Scrivi " ---------- | x z y | | | |" Scrivi " 56 56 | | | | |" Scrivi " 32 80 + - - posizione in griglia degli estratti +-----------+-----------+" Scrivi " | |" Scrivi " ^ | |" Scrivi " | | |" Scrivi " | +--> partendo da x,z,e y le nuove coppie si ricavano" Scrivi " | procedendo in senso orario e antiorario di tanti" Scrivi " + --> quadratura da cui evincere l'ambata posti quanti se ne evincono dalla direzionalità" Scrivi " | (corrisponde al numero ripetuto) (se < 1 allora + 90 se > 90 allora - 90)" Scrivi " | |" Scrivi " | |" Scrivi " | |" Scrivi " | ricerca di uno o più ambi nell'estrazione in essere <--+" Scrivi " | ma su altra ruota |" Scrivi " | |" Scrivi " | |" Scrivi " +---------------------------------------------------------------------------------------+" Scrivi " |" Scrivi " |" Scrivi " +--> se il quadrato è di colore nero allora il riferimento è A" Scrivi " +--> se il quadrato è di colore blu allora il riferimento è B" Scrivi " +--> se il quadrato è di colore rosso allora il riferimento è C" Scrivi " |" Scrivi " +--> nella fattispecie, si è rintracciato l'ambo 71.47 sulla ruota di Venezia appartenente al gruppo B" Scrivi " +--> dalla quadratura si ricava l'ambata 56 (numero ripetuto)" Scrivi " +--> l'ambata e gli abbinamenti per ambo o sorte superiore sono 56.28.32.80.84" Scrivi " |" Scrivi " | ^ ^ ^ ^ ^" Scrivi " | | | | | |" Scrivi " | | | | | |" Scrivi " | | +--+--+--+---> ordinamento crescente" Scrivi " | +---> ambata" Scrivi " |" Scrivi " |" Scrivi " +--> quadrato: ambo rilevato su altra ruota con gli estratti esclusi (quelli tra parentesi in A B C)" Scrivi " | ossia le coppie del ""diagramma differenziale su tre numeri"" con gli estratti esclusi" Scrivi " |" Scrivi " +--> ruote in gioco: Bari (principale) e Venezia" Scrivi Scrivi Scrivi Scrivi Scrivi Scrivi " approfondimenti qui: http://superlotto.blogfree.net/?t=5069382&st=0#entry20462072",1 End If End Sub