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

[pigreko73..]

Venus-Nord

Lo script, che gentilmente l'Autore ci ha messo a disposizione, simula una BaseF a 4 Ruote che sono le ruote della sede di Milano o Nord: Genova, Milano, Torino e Venezia.

Calcola tutte le BasiF che vengono a trovarsi in queste 4 ruote.

Per una migliore approssimazione con la BaseF 5R sarebbe necessario aggiustare la ricerca della condizione 3 o piu' volte sortiti ad un intervallo di 5 estrazioni: 5 estrazioni per 4 Ruote uguale 20 estrazioni come la BaseF 5R. Non all'intervallo di 4 estrazioni come impostato.

Basta cambiare la:

nec=4 'numero estrazioni di controllo

in:

nec=5 'numero estrazioni di controllo

Lo script cosi' procedera' ad analizzare 5 estrazioni su 4 Ruote.


Ecco un esempio di una BaseF 4R-Venus Nord

15.10.2013 Analisi Frequenza su Genova Milano Torino Venezia

Genova Milano Torino Venezia
6 73 14 11 87 - 46 10 43 86 33 - 10 45 48 34 50 - 63 29 24 1 68 pres. di riga 6
53 68 65 58 4 - 89 13 35 65 66 - 22 54 79 41 90 - 13 63 87 53 42 pres. di riga 8
27 74 6 61 43 - 50 47 85 32 64 - 44 78 8 34 46 - 9 14 64 21 70 pres. di riga 2
50 65 13 68 78 - 36 73 11 23 33 - 6 71 67 55 60 - 55 88 9 56 53 pres. di riga 8
63 65 39 8 31 - 17 86 73 84 30 - 81 17 16 11 2 - 58 3 68 69 25 pres. di riga 5
----------------------------------------------------------------------------------------
4 4 3 2 0 - 1 2 2 1 0 - 1 0 0 1 1 - 2 1 1 1 2 pres. di col. 29 tot

Rilevati 9 numeri: 73.68.65.63.53.50.13.11.06
Genova .73.68.65.63.53.50.13.11.6
Milano .73.65.50.13.11
Torino .50.11.6
Venezia .68.63.53.13


Numeri --73--68--65--63--53--50--13--11--06
Rel. Ritardi -------------------------------------------------
Genova -> 4 1 0 0 3 1 1 4 2 Ciclo Reale 64 estr.
Milano -> 0 8 3 6 52 2 3 1 10 Ciclo Reale 162 estr.
Torino -> 13 28 24 21 7 4 32 0 1 Ciclo Reale 97 estr.
Venezia -> 5 0 49 3 1 11 3 12 10 Ciclo Reale 74 estr.

Numeri --73--68--65--63--53--50--13--11--06
Rel. Ritardi ------------------------------------------------- Storici dal 1950
Genova -> 105 90 73 96 116 88 111 101 125
Milano -> 77 99 95 92 117 80 105 94 69
Torino -> 96 121 104 141 89 87 161 110 82
Venezia -> 93 140 82 156 182 82 114 103 104

Ritardo dell'ambo 73.68 con 197 estrazioni Rit. Storico 304
Ritardo dell'ambo 73.53 con 146 estrazioni Rit. Storico 594
Ritardo dell'ambo 73.13 con 117 estrazioni Rit. Storico 512
Ritardo dell'ambo 68.11 con 243 estrazioni Rit. Storico 348
Ritardo dell'ambo 65.11 con 169 estrazioni Rit. Storico 626
Ritardo dell'ambo 65.06 con 298 estrazioni Rit. Storico 250
Ritardo dell'ambo 53.50 con 162 estrazioni Rit. Storico 306
Ritardo dell'ambo 53.06 con 399 estrazioni Rit. Storico 671
Ritardo dell'ambo 50.06 con 128 estrazioni Rit. Storico 456

mar 15.10.2013 [8756]
G 1: MA 73.68.65.63.53.50.13.11.06 Ge Mi To Ve 3/12
M 50 su To 1° colpo [8757/17.10.2013]
M 13 su Ve 1° colpo [8757/17.10.2013]
M 13 su Ge 2° colpo [8758/19.10.2013]
M 65 su Mi 2° colpo [8758/19.10.2013]
M 06 su To 2° colpo [8758/19.10.2013]
M 50 su Ve 2° colpo [8758/19.10.2013]
M 11 su Mi 3° colpo [8759/22.10.2013]
M 11 su To 3° colpo [8759/22.10.2013]
M 11 su Ve 3° colpo [8759/22.10.2013]
in corso (3° su 12)
********************************************************************************
Vedremo cosa succede di questi 9 numeri.

In futuro possiamo tentare uno studio di come la BaseF 4R-Venus Nord, ma anche per le altre, possa misurare la sintonia delle macchinette Venus ed il loro grado di casualita' non sincronica.

 

[Rosanna]

Grazie codicebinario... mi è parso di capire però che lui non interviene (più) direttamente... ciao

 

[pigreko73..]

ciao Rosanna..
si trova soluzione per tutto.....

 

[Rosanna]

ciao Pigreko

 

[pigreko73..]

..per codicebinario.. ora dovrebbe funzionare..

Scrivi "La BaseF di Adriano Scaravetti per le Venus-Nord"
Sub main()
Dim nu(1)
Dim posta(1), poste(2), ruote(4), numerissimi(10), nlot(20)
Dim ruotes1(1), ruotes2(1), ruotes3(1), ruotes4(1)
Dim numeri(90), pc(25), nnnn(1), nnn(1), nnl(1), pp(1)
Dim ruota1(1), ruota2(1), ruota3(1), ruota4(1)
Dim lotr1(10), lotr2(10), lotr3(10), lotr4(10)
Dim nr1(1), nr2(1), nr3(1), nr4(1)
Dim v(3), ritardo(1), crmass(5)
Dim nnc(1), nncp(1), amborit(2), tt(1), postes(2)
posta(1) =1
poste(1) = 1
poste(2) = 1
postes(1)=0
postes(2)=1

ini = EstrazioneFin-10
fin = EstrazioneFin-0
nec=5 'numero estrazioni di controllo
piuvolte=3
colpi=12
ritambo=100 'ritardo dell'ambo

For est = ini To fin
AvanzamentoElab ini, fin, est
rt1 = 4
ruote(1) = rt1
ruota1(1)=rt1
nr1(1)=PiuRitardatario (est,rt1)
cr1=SerieRitardo(est-250,est,nr1,ruota1,1)
rt2 = 5
ruote(2) = rt2
ruota2(1)=rt2
nr2(1)=PiuRitardatario (est,rt2)
cr2=SerieRitardo(est-250,est,nr2,ruota2,1)
rt3 = 9
ruote(3) = rt3
ruota3(1)=rt3
nr3(1)=PiuRitardatario (est,rt3)
cr3=SerieRitardo(est-250,est,nr3,ruota3,1)
rt4 = 10
ruote(4) = rt4
ruota4(1)=rt4
nr4(1)=PiuRitardatario (est,rt4)
cr4=SerieRitardo(est-250,est,nr4,ruota4,1)
crmass(1)=cr1
crmass(2)=cr2
crmass(3)=cr3
crmass(4)=cr4
OrdinaMatrice crmass,-1
crmas=crmass(1)
Erase numeri
For n = 1 To 90 step 1
nu(1)=n
If SerieFreq(est-(nec-1),est,nu,ruote,1) => piuvolte Then 'condizione
numeri=CInt(nu(1))
End If
Next
OrdinaMatrice numeri,-1
EliminaRipetuti numeri
Erase numerissimi
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)
Scrivi
Scrivi " "&FormatSpace(NomeRuota(rt1),14)&" "&FormatSpace(NomeRuota(rt2),14)&_
" "&FormatSpace(NomeRuota(rt3),14)& " " &FormatSpace(NomeRuota(rt4),14),1
riga=""
presr=0
For e=est-(nec-1) To est step 1
For rr=1 To 10
If rr=rt1 Or rr=rt2 Or rr=rt3 Or rr=rt4 Then
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<rt4 Then
riga=riga+" - "
End If
End If
Next
Scrivi riga+" pres. di riga "+FormatSpace(presr,3,True)
riga=""
presr=0
Next
rigacol=""
presc=0
tot=0
For rr=1 To 10
If rr=rt1 Or rr=rt2 Or rr=rt3 Or rr=rt4 Then
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<rt4 Then
rigacol=rigacol+" - "
End If
Next
End If
Next
Scrivi String(88,"-")
Scrivi rigacol++" pres. di col. "+FormatSpace(tot,3,True)+" tot"
Scrivi
Scrivi "Rilevati "&contanumeri&" numeri: "& StringaNumeri(numerissimi),1
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
Scrivi
OrdinaMatrice lotr1,-1
OrdinaMatrice lotr2,-1
OrdinaMatrice lotr3,-1
OrdinaMatrice lotr4,-1
Scrivi
rigann=" Numeri "
rigarrr1=FormatSpace(NomeRuota(rt1),9)+" -> "
rigarrr2=FormatSpace(NomeRuota(rt2),9)+" -> "
rigarrr3=FormatSpace(NomeRuota(rt3),9)+" -> "
rigarrr4=FormatSpace(NomeRuota(rt4),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)
rigarrr1=rigarrr1&" "&FormatSpace(rrr1,3,True)
rigarrr2=rigarrr2&" "&FormatSpace(rrr2,3,True)
rigarrr3=rigarrr3&" "&FormatSpace(rrr3,3,True)
rigarrr4=rigarrr4&" "&FormatSpace(rrr4,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
'---------------
rigann=" Numeri "
rigarrr1=FormatSpace(NomeRuota(rt1),9)+" -> "
rigarrr2=FormatSpace(NomeRuota(rt2),9)+" -> "
rigarrr3=FormatSpace(NomeRuota(rt3),9)+" -> "
rigarrr4=FormatSpace(NomeRuota(rt4),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)
rigarrr1=rigarrr1&" "&FormatSpace(rrr1,3,True)
rigarrr2=rigarrr2&" "&FormatSpace(rrr2,3,True)
rigarrr3=rigarrr3&" "&FormatSpace(rrr3,3,True)
rigarrr4=rigarrr4&" "&FormatSpace(rrr4,3,True)
End If
Next
Scrivi rigann
Scrivi "Rel. Ritardi -------------------------------------------------"+" Storici dal 1950"
Scrivi rigarrr1
Scrivi rigarrr2
Scrivi rigarrr3
Scrivi rigarrr4
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) => ritambo 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
ScriviResoconto
End Sub

 

[codicebinario]

GRAZIE A TUTTI.Ora non ci resta che studiarci su.....grazie.

 

[codicebinario]

Grazie DISARONNO,e' possibile far partire la parte statistica dal 15 /09/2009 invece che dal 1950? Grazie.

 

[codicebinario]

Grazie DISARONNO,tutto ok,ora step successivo........bisognerebbe controllare le sortite in un dato range di estrazioni.Lo script dovrebbe essere cosi' strutturato :

in input box dovrei avere:
1 la possibilità di scegliere le ruote,almeno 5.
2 la possibilita' di scegliere da che estrazione partire( con data ,oppure - 10-20-30 etc...,oppure N° estrazione)lo script deve elaborare fino alla estrazione ultima
3 la possibilita' di inserire 10 numeri a mio piacimento

Immessi i dati,lo script deve depennare estrazione dopo estrazione facendomi vedere dove sono sortiti, i vari numeri immessi. ed arrestarsi quando rimangono gli ultimi 2 e su quali ruote.

Spero di essere stato chiaro ed esaustivo. Grazie a chiunque voglia aiutare.Grazie.