Novità

X ROSANNA,LUIGGIONE MACROSOFT,SCRIPTER DI PASSAGGIO E NON......

  • Creatore Discussione Creatore Discussione codicebinario
  • Data di inizio Data di inizio
C

codicebinario

Guest
Ciao a tutti,questo script di DANILOCS1 analizza la BASEF di SCARAVETTI.solo che in imput box chiede da che ruota partire e poi analizza le cinque ruote consecutive.Io vorrei invece(ove fosse possibile) fare la stessa analisi ma divisa per VENUS.
Mi spiego,secondo me,con l'avvento delle venus,molti aspetti di statistica sono cambiati(e' una mia opinione personale)quindi perche' ricercare in ordine di ruote consecutive se ora i posti estrazionali sono accorpati in 3 siti? In imput box ci dovrebbe essere la possibilita' di scegliere fra VENUS1nord ( per milano, genova, torino e venezia) VENUS2 centro (per firenze, roma, cagliari e nazionale) e VENUS3 sud (Napoli, palermo e Bari)



Dim nu(1)
Dim posta(1), poste(2), ruote(5), numerissimi(10), nlot(20)
Dim ruotes1(1), ruotes2(1), ruotes3(1), ruotes4(1), ruotes5(1)
Dim numeri(90), pc(25), nnnn(1), nnn(1), nnl(1), pp(1)
Dim ruota1(1), ruota2(1), ruota3(1), ruota4(1), ruota5(1)
Dim lotr1(10), lotr2(10), lotr3(10), lotr4(10), lotr5(10)
Dim nr1(1), nr2(1), nr3(1), nr4(1), nr5(1)
Dim v(3), ritardo(1), crmass(5)
Dim nnc(1), nncp(1), amborit(2), tt(1), postes(2)
Dim nmed1(10), nmed2(10), nmed3(10), nmed4(10), nmed5(10)
ini = EstrazioneFin-10
fin = EstrazioneFin
posta(1) =1
poste(1) = 1
poste(2) = 1
postes(1)=0
postes(2)=1
nec=4 'numero estrazioni di controllo
piuvolte=3
colpi=12
mmediasup=23
For est = ini To fin
AvanzamentoElab ini, fin, est
For rt1 = 1 To 1
ruote(1) = rt1
ruota1(1)=rt1
nr1(1)=PiuRitardatario (est,rt1)
cr1=SerieRitardo(est-250,est,nr1,ruota1,1)
For rt2 = rt1 + 1 To 2
ruote(2) = rt2
ruota2(1)=rt2
nr2(1)=PiuRitardatario (est,rt2)
cr2=SerieRitardo(est-250,est,nr2,ruota2,1)
For rt3 = rt2 + 1 To 3
ruote(3) = rt3
ruota3(1)=rt3
nr3(1)=PiuRitardatario (est,rt3)
cr3=SerieRitardo(est-250,est,nr3,ruota3,1)
For rt4 = rt3 + 1 To 4
ruote(4) = rt4
ruota4(1)=rt4
nr4(1)=PiuRitardatario (est,rt4)
cr4=SerieRitardo(est-250,est,nr4,ruota4,1)
For rt5 = rt4 + 1 To 5
ruote(5) = rt5
ruota5(1)=rt5
nr5(1)=PiuRitardatario (est,rt5)
cr5=SerieRitardo(est-250,est,nr5,ruota5,1)
crmass(1)=cr1
crmass(2)=cr2
crmass(3)=cr3
crmass(4)=cr4
crmass(5)=cr5
OrdinaMatrice crmass,-1
crmas=crmass(1)
For n = 1 To 90 step 1
nu(1)=n
If SerieFreq(est-(nec-1),est,nu,ruote,1) => piuvolte Then 'condizione
If SerieRitardo(est-crmas,est,nu,ruote,1) <=40 Then
If SerieFreq(est-crmas,est,nu,ruote,1) <= 40 Then
numeri(n)=CInt(nu(1))
End If
End If
End If
Next
OrdinaMatrice numeri,-1
EliminaRipetuti numeri
For k = 1 To 10
If numeri(k)>0 Then
numerissimi(k) = CInt(numeri(k))
End If
Next
contanumeri=0
For k = 1 To 20
If numeri(k)>0 Then
nlot(k) = CInt(numeri(k))
contanumeri=contanumeri+1
End If
Next
If contanumeri => 2 And contanumeri <= 10 Then
Scrivi DataEstrazione(est)&" Analisi Frequenza su "&NomeRuota(rt1)&" "&NomeRuota(rt2)&" "&NomeRuota(rt3)&" "&NomeRuota(rt4)&" "&NomeRuota(rt5)
Scrivi
riga=""
presr=0
For e=est-(nec-1) To est step 1
For rr=rt1 To rt5 step 1
For ppp=1 To 5
nn = Estratto(e, rr, ppp)
riga=riga+FormatSpace(nn,3,True)
If nn = numerissimi(1) Or nn = numerissimi(2) Or nn = numerissimi(3) Or nn = numerissimi(4) Or nn = numerissimi(5) Or nn = numerissimi(6) Or nn = numerissimi(7) Or nn = numerissimi(8) Or nn = numerissimi(9) Or nn = numerissimi(10) Then
presr = presr + 1
End If
Next
If rr<rt5 Then
riga=riga+" - "
End If
Next
Scrivi riga+" pres. di riga "+FormatSpace(presr,3,True)
riga=""
presr=0
Next
Scrivi
rigacol=""
presc=0
tot=0
For rr=rt1 To rt5 step 1
For ppp=1 To 5 step 1
For e=est-(nec-1) To est step 1
nn = Estratto(e, rr, ppp)
If nn = numerissimi(1) Or nn = numerissimi(2) Or nn = numerissimi(3) Or nn = numerissimi(4) Or nn = numerissimi(5) Or nn = numerissimi(6) Or nn = numerissimi(7) Or nn = numerissimi(8) Or nn = numerissimi(9) Or nn = numerissimi(10) Then
presc = presc + 1
tot=tot+1
End If
Next
rigacol=rigacol+FormatSpace(presc,3,True)
presc=0
If ppp=5 And rr<rt5 Then
rigacol=rigacol+" - "
End If
Next
Next
Scrivi rigacol++" pres. di col. "+FormatSpace(tot,3,True)+" tot"
Scrivi
rigaruota1=""
ruota1(1)=rt1
For k = 1 To 10
If numerissimi(k)>0 Then
nnnn(1)=numerissimi(k)
If SerieFreq(est-(nec-1),est,nnnn,ruota1,1) > 0 Then
rigaruota1=rigaruota1&"."&nnnn(1)
lotr1(k)=numerissimi(k)
End If
End If
Next
Scrivi FormatSpace(NomeRuota(rt1),9)+" "+rigaruota1
rigaruota2=""
ruota2(1)=rt2
For k = 1 To 10
If numerissimi(k)>0 Then
nnnn(1)=numerissimi(k)
If SerieFreq(est-(nec-1),est,nnnn,ruota2,1) > 0 Then
rigaruota2=rigaruota2&"."&nnnn(1)
lotr2(k)=numerissimi(k)
End If
End If
Next
Scrivi FormatSpace(NomeRuota(rt2),9)+" "+rigaruota2
rigaruota3=""
ruota3(1)=rt3
For k = 1 To 10
If numerissimi(k)>0 Then
nnnn(1)=numerissimi(k)
If SerieFreq(est-(nec-1),est,nnnn,ruota3,1) > 0 Then
rigaruota3=rigaruota3&"."&nnnn(1)
lotr3(k)=numerissimi(k)
End If
End If
Next
Scrivi FormatSpace(NomeRuota(rt3),9)+" "+rigaruota3
rigaruota4=""
ruota4(1)=rt4
For k = 1 To 10
If numerissimi(k)>0 Then
nnnn(1)=numerissimi(k)
If SerieFreq(est-(nec-1),est,nnnn,ruota4,1) > 0 Then
rigaruota4=rigaruota4&"."&nnnn(1)
lotr4(k)=numerissimi(k)
End If
End If
Next
Scrivi FormatSpace(NomeRuota(rt4),9)+" "+rigaruota4
rigaruota5=""
ruota5(1)=rt5
For k = 1 To 10
If numerissimi(k)>0 Then
nnnn(1)=numerissimi(k)
If SerieFreq(est-(nec-1),est,nnnn,ruota5,1) > 0 Then
rigaruota5=rigaruota5&"."&nnnn(1)
lotr5(k)=numerissimi(k)
End If
End If
Next
Scrivi FormatSpace(NomeRuota(rt5),9)+" "+rigaruota5
Scrivi
OrdinaMatrice lotr1,-1
OrdinaMatrice lotr2,-1
OrdinaMatrice lotr3,-1
OrdinaMatrice lotr4,-1
OrdinaMatrice lotr5,-1
'-----------
rigapp=" Numeri "
rigapp1=FormatSpace(NomeRuota(rt1),9)+" -> "
rigapp2=FormatSpace(NomeRuota(rt2),9)+" -> "
rigapp3=FormatSpace(NomeRuota(rt3),9)+" -> "
rigapp4=FormatSpace(NomeRuota(rt4),9)+" -> "
rigapp5=FormatSpace(NomeRuota(rt5),9)+" -> "
For k = 1 To 10
If numerissimi(k)>0 Then
pp(1)=numerissimi(k)
rigapp=rigapp+"--"+Format2(pp(1))
pp1=SerieFreq(est-(cr1),est,pp,ruota1,1)
pp2=SerieFreq(est-(cr2),est,pp,ruota2,1)
pp3=SerieFreq(est-(cr3),est,pp,ruota3,1)
pp4=SerieFreq(est-(cr4),est,pp,ruota4,1)
pp5=SerieFreq(est-(cr5),est,pp,ruota5,1)
rigapp1=rigapp1&" "&FormatSpace(pp1,3,True)
rigapp2=rigapp2&" "&FormatSpace(pp2,3,True)
rigapp3=rigapp3&" "&FormatSpace(pp3,3,True)
rigapp4=rigapp4&" "&FormatSpace(pp4,3,True)
rigapp5=rigapp5&" "&FormatSpace(pp5,3,True)
End If
Next
Scrivi rigapp
Scrivi "Rel.Presenze ------------------------------------------------"
Scrivi rigapp1+" Ciclo Reale "+FormatSpace(cr1+1,3,True)+" estr."
Scrivi rigapp2+" Ciclo Reale "+FormatSpace(cr2+1,3,True)+" estr."
Scrivi rigapp3+" Ciclo Reale "+FormatSpace(cr3+1,3,True)+" estr."
Scrivi rigapp4+" Ciclo Reale "+FormatSpace(cr4+1,3,True)+" estr."
Scrivi rigapp5+" Ciclo Reale "+FormatSpace(cr5+1,3,True)+" estr."
Scrivi
'---------------
ciclotot=cr1+cr2+cr3+cr4+cr5+4
rigacc=" Numeri "
rigacc1=FormatSpace(NomeRuota(rt1),9)+" -> "
rigacc2=FormatSpace(NomeRuota(rt2),9)+" -> "
rigacc3=FormatSpace(NomeRuota(rt3),9)+" -> "
rigacc4=FormatSpace(NomeRuota(rt4),9)+" -> "
rigacc5=FormatSpace(NomeRuota(rt5),9)+" -> "
For k = 1 To 10
If numerissimi(k)>0 Then
nnc(1)=numerissimi(k)
rigacc=rigacc+"--"+Format2(nnc(1))
pc1=SerieFreq(est-(ciclotot),est,nnc,ruota1,1)
pc2=SerieFreq(est-(ciclotot),est,nnc,ruota2,1)
pc3=SerieFreq(est-(ciclotot),est,nnc,ruota3,1)
pc4=SerieFreq(est-(ciclotot),est,nnc,ruota4,1)
pc5=SerieFreq(est-(ciclotot),est,nnc,ruota5,1)
rigacc1=rigacc1&" "&FormatSpace(pc1,3,True)
rigacc2=rigacc2&" "&FormatSpace(pc2,3,True)
rigacc3=rigacc3&" "&FormatSpace(pc3,3,True)
rigacc4=rigacc4&" "&FormatSpace(pc4,3,True)
rigacc5=rigacc5&" "&FormatSpace(pc5,3,True)
End If
Next
Scrivi rigacc+" CTot "+FormatSpace(ciclotot+1,4,True)+" estr."
Scrivi "Rel.Presenze ------------------------------------------------"
Scrivi rigacc1
Scrivi rigacc2
Scrivi rigacc3
Scrivi rigacc4
Scrivi rigacc5
'-----------
rigaccp="Totali 5R -> "
For k = 1 To 10
If numerissimi(k)>0 Then
nncp(1)=numerissimi(k)
rigacc=rigacc+" - "+Format2(nncp(1))
pcp=SerieFreq(est-(ciclotot),est,nncp,ruote,1)
rigaccp=rigaccp&" "&FormatSpace(pcp,3,True)
End If
Next
Scrivi " ------------------------------------------------"
Scrivi rigaccp
Scrivi
'-----------
rigacc=" Numeri "
rigacc1=FormatSpace(NomeRuota(rt1),9)+" -> "
rigacc2=FormatSpace(NomeRuota(rt2),9)+" -> "
rigacc3=FormatSpace(NomeRuota(rt3),9)+" -> "
rigacc4=FormatSpace(NomeRuota(rt4),9)+" -> "
rigacc5=FormatSpace(NomeRuota(rt5),9)+" -> "
For k = 1 To 10
If numerissimi(k)>0 Then
nnc(1)=numerissimi(k)
rigacc=rigacc+"--"+Format2(nnc(1))
pc1=SerieFreq(est-(ciclotot),est,nnc,ruota1,1)
media1=(ciclotot+1)/pc1
If media1<=20 And media1=>16 Then
nmed1(k)=nnc(1)
End If
pc2=SerieFreq(est-(ciclotot),est,nnc,ruota2,1)
media2=(ciclotot+1)/pc2
If media2<=20 And media2=>16 Then
nmed2(k)=nnc(1)
End If
pc3=SerieFreq(est-(ciclotot),est,nnc,ruota3,1)
media3=(ciclotot+1)/pc3
If media3<=20 And media3=>16 Then
nmed3(k)=nnc(1)
End If
pc4=SerieFreq(est-(ciclotot),est,nnc,ruota4,1)
media4=(ciclotot+1)/pc4
If media4<=20 And media4=>16 Then
nmed4(k)=nnc(1)
End If
pc5=SerieFreq(est-(ciclotot),est,nnc,ruota5,1)
media5=(ciclotot+1)/pc5
If media5<=20 And media5=>16 Then
nmed5(k)=nnc(1)
End If
rigacc1=rigacc1&" "&FormatSpace(FormatNumber(media1,1),4,True)
rigacc2=rigacc2&" "&FormatSpace(FormatNumber(media2,1),4,True)
rigacc3=rigacc3&" "&FormatSpace(FormatNumber(media3,1),4,True)
rigacc4=rigacc4&" "&FormatSpace(FormatNumber(media4,1),4,True)
rigacc5=rigacc5&" "&FormatSpace(FormatNumber(media5,1),4,True)
End If
Next
Scrivi rigacc+" CR Tot "+FormatSpace(ciclotot+1,4,True)+" estr."
Scrivi "Rel. Medie --------------------------------------------------------------"
Scrivi rigacc1
Scrivi rigacc2
Scrivi rigacc3
Scrivi rigacc4
Scrivi rigacc5
Scrivi
OrdinaMatrice nmed1,-1
OrdinaMatrice nmed2,-1
OrdinaMatrice nmed3,-1
OrdinaMatrice nmed4,-1
OrdinaMatrice nmed5,-1
'------------
rigacc=" Numeri "
rigacc1=FormatSpace(NomeRuota(rt1),9)+" -> "
rigacc2=FormatSpace(NomeRuota(rt2),9)+" -> "
rigacc3=FormatSpace(NomeRuota(rt3),9)+" -> "
rigacc4=FormatSpace(NomeRuota(rt4),9)+" -> "
rigacc5=FormatSpace(NomeRuota(rt5),9)+" -> "
For k = 1 To 10
If numerissimi(k)>0 Then
nnc(1)=numerissimi(k)
rigacc=rigacc+"--"+Format2(nnc(1))
pc1=SerieFreq(est-(crmas-1),est,nnc,ruota1,1)
pc2=SerieFreq(est-(crmas-1),est,nnc,ruota2,1)
pc3=SerieFreq(est-(crmas-1),est,nnc,ruota3,1)
pc4=SerieFreq(est-(crmas-1),est,nnc,ruota4,1)
pc5=SerieFreq(est-(crmas-1),est,nnc,ruota5,1)
rigacc1=rigacc1&" "&FormatSpace(pc1,3,True)
rigacc2=rigacc2&" "&FormatSpace(pc2,3,True)
rigacc3=rigacc3&" "&FormatSpace(pc3,3,True)
rigacc4=rigacc4&" "&FormatSpace(pc4,3,True)
rigacc5=rigacc5&" "&FormatSpace(pc5,3,True)
End If
Next
Scrivi rigacc+" CR Mass "+FormatSpace(crmas+1,4,True)+" estraz."
Scrivi "Rel.Presenze ------------------------------------------------"
Scrivi rigacc1
Scrivi rigacc2
Scrivi rigacc3
Scrivi rigacc4
Scrivi rigacc5
Scrivi
'-----------
rigann=" Numeri "
rigarrr1=FormatSpace(NomeRuota(rt1),9)+" -> "
rigarrr2=FormatSpace(NomeRuota(rt2),9)+" -> "
rigarrr3=FormatSpace(NomeRuota(rt3),9)+" -> "
rigarrr4=FormatSpace(NomeRuota(rt4),9)+" -> "
rigarrr5=FormatSpace(NomeRuota(rt5),9)+" -> "
For k = 1 To 10
If numerissimi(k)>0 Then
nnl(1)=numerissimi(k)
rigann=rigann+"--"+Format2(nnl(1))
rrr1=SerieRitardo(est-250,est,nnl,ruota1,1)
rrr2=SerieRitardo(est-250,est,nnl,ruota2,1)
rrr3=SerieRitardo(est-250,est,nnl,ruota3,1)
rrr4=SerieRitardo(est-250,est,nnl,ruota4,1)
rrr5=SerieRitardo(est-250,est,nnl,ruota5,1)
rigarrr1=rigarrr1&" "&FormatSpace(rrr1,3,True)
rigarrr2=rigarrr2&" "&FormatSpace(rrr2,3,True)
rigarrr3=rigarrr3&" "&FormatSpace(rrr3,3,True)
rigarrr4=rigarrr4&" "&FormatSpace(rrr4,3,True)
rigarrr5=rigarrr5&" "&FormatSpace(rrr5,3,True)
End If
Next
Scrivi rigann
Scrivi "Rel. Ritardi -------------------------------------------------"
Scrivi rigarrr1+" Ciclo Reale "+FormatSpace(cr1+1,3,True)+" estr."
Scrivi rigarrr2+" Ciclo Reale "+FormatSpace(cr2+1,3,True)+" estr."
Scrivi rigarrr3+" Ciclo Reale "+FormatSpace(cr3+1,3,True)+" estr."
Scrivi rigarrr4+" Ciclo Reale "+FormatSpace(cr4+1,3,True)+" estr."
Scrivi rigarrr5+" Ciclo Reale "+FormatSpace(cr5+1,3,True)+" estr."
Scrivi
'---------------
rigann=" Numeri "
rigarrr1=FormatSpace(NomeRuota(rt1),9)+" -> "
rigarrr2=FormatSpace(NomeRuota(rt2),9)+" -> "
rigarrr3=FormatSpace(NomeRuota(rt3),9)+" -> "
rigarrr4=FormatSpace(NomeRuota(rt4),9)+" -> "
rigarrr5=FormatSpace(NomeRuota(rt5),9)+" -> "
For k = 1 To 10
If numerissimi(k)>0 Then
nnl(1)=numerissimi(k)
rigann=rigann+"--"+Format2(nnl(1))
rrr1=SerieStorico(4123,est,nnl,ruota1,1)
rrr2=SerieStorico(4123,est,nnl,ruota2,1)
rrr3=SerieStorico(4123,est,nnl,ruota3,1)
rrr4=SerieStorico(4123,est,nnl,ruota4,1)
rrr5=SerieStorico(4123,est,nnl,ruota5,1)
rigarrr1=rigarrr1&" "&FormatSpace(rrr1,3,True)
rigarrr2=rigarrr2&" "&FormatSpace(rrr2,3,True)
rigarrr3=rigarrr3&" "&FormatSpace(rrr3,3,True)
rigarrr4=rigarrr4&" "&FormatSpace(rrr4,3,True)
rigarrr5=rigarrr5&" "&FormatSpace(rrr5,3,True)
End If
Next
Scrivi rigann
Scrivi "Rel. Ritardi -------------------------------------------------"+" Storici dal 1950"
Scrivi rigarrr1'+" Ciclo Reale "+FormatSpace(cr1,3,True)+" estr."
Scrivi rigarrr2'+" Ciclo Reale "+FormatSpace(cr2,3,True)+" estr."
Scrivi rigarrr3'+" Ciclo Reale "+FormatSpace(cr3,3,True)+" estr."
Scrivi rigarrr4'+" Ciclo Reale "+FormatSpace(cr4,3,True)+" estr."
Scrivi rigarrr5'+" Ciclo Reale "+FormatSpace(cr5,3,True)+" estr."
Scrivi
'---------------
riga1 = ""
ritmassimo=0
For j = 1 To 9
For k = j + 1 To 10
v(1) = 0
v(1) = CInt(numerissimi(j))
v(2) = 0
v(2) = CInt(numerissimi(k))
If v(1)<>0 And v(2)<>0 Then
ritardo(1) = 0
ritardo(1) = SerieRitardo(EstrazioneIni, est, v, ruote,2)
If ritardo(1)>ritmassimo Then
ritmassimo=ritardo(1)
amborit(1)=v(1)
amborit(2)=v(2)
End If
If ritardo(1) => 100 Then
rts=SerieStorico(4123,est,v,ruote,2)
riga1 = "Ritardo dell'ambo "&Format2(v(1))&"."&Format2(v(2))&" con "&FormatSpace(ritardo(1),5,True)+" estrazioni Rit. Storico "+FormatSpace(rts,5,True)
Scrivi riga1
End If
End If
Next
Next
Scrivi
ImpostaGiocata 1, numerissimi, ruote, poste, colpi', 2
Gioca est
Scrivi String(80,"*")
End If

Next
Next
Next
Next
Next
Next
ScriviResoconto
End Sub




Inoltre oltre ove possibile togliere le giocate e costituire una statistica ,magari in tabella di questo tipo:








Ricerca ed Analisi della
Combinazione basef del 10.12.2003(esempio) B-C-F-G-M- 12 16 33 36 58 65 76 88 90





Distribuzione Ambi della combinazione in esame

N1 N2 R.TT....... N1 N2 R.TT
12.16....31 .................................
12.33....37 .................................
12.36....3 .................................
....................12.58....45 .............
12.65....34 .................................
....................12.76....53 .............
12.88....2 .................................
....................12.90....72 .............
....................16.33....54 .............
16.36....10 .................................
16.58....3 .................................
16.65....1 .................................
16.76....27 .................................
....................16.88....86 .............
16.90....29 .................................
33.36....2 .................................
....................33.58....313.............
33.65....11 .................................
33.76....5 .................................
....................33.88....57 .............
33.90....0 .................................
36.58....0 .................................
36.65....21 .................................
36.76....33 .................................
36.88....3 .................................
....................36.90....91 .............
58.65....16 .................................
58.76....1 .................................
....................58.88....43 .............
58.90....1 .................................
....................65.76....132.............
65.88....5 .................................
....................65.90....55 .............
76.88....14 .................................
76.90....1 .................................
88.90....7 .................................


riepilogo numeri e presenze..................
12...3
16...2
33...3
36...1
58...3
65...2
76...2
88...3
90...3

I numeri con maggiori presenza negli ambi sono i migliori da porre in gioco.


SINTESI FINALE

ANALISI della ruote dove porre in gioco la basef in esame risultano essere FI- CA-GE in quanto negli ultimi 48 concorsi hanno fornito pochi ambi rispetto alle altre ruote B-C-F-G-M-ANALISI della distribuzione degli ambi
prendendo in esame i 36 ambi contenuti nella combinazione primaria, i migliori risultano essere quelli evidenziati a dx del prospetto

ANALISI dei numeri singoli
dall'analisi della distribuzione degli ambi risultano evidenziati e migliori i numeri con più presenze nelle combinazioni di ambo secco.
in particolare i nr. con 3 presenze 12 33 58 88 90




RUOTE DI FIRENZE - CAGLIARI - GENOVA in totale 11 ambi secchi

12 58 * 12 76 * 12 90 *
16 33 * 16 88 *
33 58 * 33 88 *
36 90 * 58 88 *
65 76 * 65 90 *


GRAZIE SIN D'ORA A CHI VORRA' CIMENTARSI.GRAZIE.
 
Grazie disaronno...e' un buon passo, pero' lo script dovrebbe prendere in considerazione 5 estrazioni a ritroso.la parte statistica per la scelta dei numeri:
questa:
"Ricerca ed Analisi della
Combinazione basef del 10.12.2003(esempio) B-C-F-G-M- 12 16 33 36 58 65 76 88 90
Distribuzione Ambi della combinazione in esame

N1 N2 R.TT....... N1 N2 R.TT
12.16....31 .................................
12.33....37 .................................
12.36....3 .................................
....................12.58....45 .............
12.65....34 .................................
....................12.76....53 .............
12.88....2 .................................
....................12.90....72 .............
....................16.33....54 .............
16.36....10 .................................
16.58....3 .................................
16.65....1 .................................
16.76....27 .................................
....................16.88....86 .............
16.90....29 .................................
33.36....2 .................................
....................33.58....313.............
33.65....11 .................................
33.76....5 .................................
....................33.88....57 .............
33.90....0 .................................
36.58....0 .................................
36.65....21 .................................
36.76....33 .................................
36.88....3 .................................
....................36.90....91 .............
58.65....16 .................................
58.76....1 .................................
....................58.88....43 .............
58.90....1 .................................
....................65.76....132.............
65.88....5 .................................
....................65.90....55 .............
76.88....14 .................................
76.90....1 .................................
88.90....7 .................................


riepilogo numeri e presenze..................
12...3
16...2
33...3
36...1
58...3
65...2
76...2
88...3
90...3

I numeri con maggiori presenza negli ambi sono i migliori da porre in gioco.


SINTESI FINALE

ANALISI della ruote dove porre in gioco la basef in esame risultano essere FI- CA-GE in quanto negli ultimi 48 concorsi hanno fornito pochi ambi rispetto alle altre ruote B-C-F-G-M-ANALISI della distribuzione degli ambi
prendendo in esame i 36 ambi contenuti nella combinazione primaria, i migliori risultano essere quelli evidenziati a dx del prospetto

ANALISI dei numeri singoli
dall'analisi della distribuzione degli ambi risultano evidenziati e migliori i numeri con più presenze nelle combinazioni di ambo secco.
in particolare i nr. con 3 presenze 12 33 58 88 90"

la potremmo sistemare poi.Grazie.
 
Ultima modifica di un moderatore:
ciao , ho sempre cercato di insegnare a programmare proprio perche non essendo io interessato a questo tipo di rcerche non sempre ho voglia di mettermi a fare script sicche l'unico modo per la gente di analizzare le proprie ideee è farselo da soli ...naturalmente da parte mia non ho mai preteso che la gente nasca "imparata" .. e ho fatto il possibile.

Ciao
 
LuigiB ha scritto:
ciao , ho sempre cercato di insegnare a programmare proprio perche non essendo io interessato a questo tipo di rcerche non sempre ho voglia di mettermi a fare script sicche l'unico modo per la gente di analizzare le proprie ideee è farselo da soli ...naturalmente da parte mia non ho mai preteso che la gente nasca "imparata" .. e ho fatto il possibile.

Ciao
Clicca per espandere...

Vai tranquillo Luigi,non e' un problema,io so' mozzarella negli script,non mi entrano in testa...ci ho' provato credimi...anzi scusatemi tutti. La traccia io l'ho' lasciata,non ritornero' piu' sull'argomento,se qualcuno ha' voglia e capacita' prosiegua pure...io mi arrangio .(tanto perdo o vinco nello stesso modo...) Ciao a tutti i lettori del post e ..scusatemi ancora.Ciao.
 
disaronno ha scritto:
buonasera,
p:s il listato da lei proposto non funziona( per lo meno a me)
Clicca per espandere...

Io l'ho provato aggiungendo Sub Main() all'inizio e gira...

Purtroppo non conoscendo la BaseF di Scaravetti e non avendo voglia di studiarmi il suo listatone... nonchè di riordinarlo con l'indentazione per poterlo almeno leggere e tentare di seguire... non sono di alcun aiuto.

Ciao
 
Grazie Rosanna anche a te ,ripeto NON e' un problema...l'indentazione...cosa e'? Scusa,io i listati li uso,non sno capace costruirne...uso quelli che la rete offre,se trovo qualche cosa che riguarda uno studio interessante lo copio,lo faccio girare e ci ragiono su' quello che sviscera....a volte mi vengono idee nuove rispetto al tutto...mi metto carta e penna sull'idea e cerco vie nuove....e qui' casca l'asino (io)...la suffragazione dell'idea abbisogna di statistica di medio/lungo corso...carta e penna e' dura,o quanto meno suscettibile di sviste o errori.Ecco la richiesta d'aiuto,in tanti anni bene o male ho' avuto un sacco di aiuti,ma capisco che la voglia ,la verve,possa scemare in tutti quelli che per anni hanno insegnato(o quanto meno cercato di farlo) ad arrangiarsi .Sono un caso cronico....SI.....Grazie lo stesso.Senza diatriba alcuna e nulla togliendo,anzi,a chi come te e tanti altri si sono adoperati ad aiutare in tutti i sensi gli altri.Grazie.
 
Ciao codice.....mi puoi spiegare come funziona questo metodo.....prendi 5 estrazioni e metti in gioco le massime frequenze ?.........credo che per delle statistiche sia buono prendere solo le ruote che sono per ogni venus.
grazie Ciao ALIEN
 
Ultima modifica:
codicebinario ha scritto:
...l'indentazione...cosa e'?
Clicca per espandere...

Sono i rientri posti a sinistra.. e sono molto importanti perchè facilitano la "lettura" e comprensione del codice...
Ovviamente si possono rimettere quando a furia di copia incolla vanno persi.....

Il resto della tua risposta non fa una piega... e ovviamente non c'è nessun problema nemmeno da parte mia.
 
Ciao Rosanna.

Spaziometria ... la esegue in automatico.

Per indentare usi il pulsante sul quale sono disegnate delle linee

e una freccia verso destra. Quello sotto il martello.

Autoformattazione codice.

:)
 
Ultima modifica:
Ciao codicebinario, ho letto la tua rikiesta. è lò rigirata a SCARAVETTI che ha realizzato lo script però su altro sito..

L'Autore, sempre all'avanguardia, aveva predisposto la BaseF per le Venus.
Trattasi di BaseF 4R per le Venur delle Ruote del Nord, in questo caso.
Visto che queste idee stanno arrivando da piu' parti, l'Autore vuole dare un contributo tangibile con lo script relativo per L8+.
Ne parleremo in seguito.

Spero di esserti stato d'aiuto ciao.. :)


 
pigreko73.. ha scritto:
Ciao codicebinario, ho letto la tua rikiesta. è lò rigirata a SCARAVETTI che ha realizzato lo script però su altro sito..

L'Autore, sempre all'avanguardia, aveva predisposto la BaseF per le Venus.
Trattasi di BaseF 4R per le Venur delle Ruote del Nord, in questo caso.
Visto che queste idee stanno arrivando da piu' parti, l'Autore vuole dare un contributo tangibile con lo script relativo per L8+.
Ne parleremo in seguito.

Spero di esserti stato d'aiuto ciao.. :)
Clicca per espandere...

Pikopi'...conviene rimetterlo fra i TAG ....cosi' non va'....Ciao.
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 31 gennaio 2025
    Bari
    49
    28
    64
    42
    46
    Cagliari
    53
    76
    89
    26
    13
    Firenze
    38
    51
    15
    50
    56
    Genova
    87
    09
    35
    30
    04
    Milano
    53
    25
    23
    09
    37
    Napoli
    01
    65
    38
    06
    15
    Palermo
    05
    07
    10
    26
    58
    Roma
    32
    31
    09
    46
    80
    Torino
    68
    20
    44
    51
    11
    Venezia
    90
    24
    62
    54
    61
    Nazionale
    20
    79
    07
    45
    60
    Estrazione Simbolotto
    Bari
    45
    37
    01
    41
    17
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto