caro rob
non ho fatto nomi perche non mi sembrava giusto ma per chiarire meglio
gente come matrix lo stesso vecchione che a suo dire usano programmi (generatori ecc ecc)di cosa non si sa in relta usano solo per l appunto
matemarica somm, e o numeri spia e anche male...
postano 4000 prev
per quanto riguarda la matamatica somm
Sub main()
Dim som(5,5,90)
Dim estr(2,5)
Dim val(5,5,90)
Dim amb(90)
'Richiede l'inserimento della ruota
r2=InputBox("Inserisci la ruota su cui effettuare la ricerca(1-10):",,1)
'Richiede l'estrazione da considerare
es=InputBox("Inserisci 0 per l'ultima, 1 la prima, 2 la seconda, ecc. (0-8):",,0)
'Richiede il numero di estrazioni da considerare
numes=InputBox("Numero di estrazioni da considerare:",,139)
'Richiede la percentuale minima di risultati dell'ambata
perc=InputBox("Inserisci la percentuale minima di risultati che deve dare l'ambata(0-100):",,90)
'Nota Bene
er come è fatto il programma è impossibile che un'ambata fornisca il 100% di risultati e
'sia in corso perchè il numero di volte su cui è impostata la percentuale comprende anche la giocata
'in corso, per cui ad esempio se all'ultima del mese Es. 28/4/01 facciamo una ricerca sulle ultime
'140 estrazioni all'ultima del mese (quindi 17 casi), il programma ne troverà al più 16 su 17 giusti
'comprendendo nel 17 anche la giocata in corso che non ha ancora avuto successo. Solitamente valori
'significativi sono nell'ordine dell'80% (es. 13/16 quindi su 15 tentativi ce ne sono 2 negativi ed
'uno in corso)
'
'SOLUZIONE AL PROBLEMA DELL'ULTIMA DEL MESE
'
ultest=7596
'
'Ad ogni ultima estrazione del mese, ad esempio 28/04/01, dopo aver aggiornato l'archivio, dovremo aprire il
'programma L8 ed annotarci il numero dell'ultima estrazione (nel caso del 28/04/01 è 7015) ed assegnarlo
'al valore della variabile ultest gui sopra riportata.
For i=1 To 90
amb(i)=0
Next
If eval(es)=0 Then
Scrivi "All'ultima del mese:"
Else
Scrivi "Alla "+es+"° del mese:"
End If
Scrivi "Statistica dal "+DataEstrazione(EstrazioneFin-numes)+" al "+DataEstrazione(EstrazioneFin)
For ru1=1 To 10
For ru2=ru1 To 10
z=0
For i=1 To 5
For l=1 To 5
For j=1 To 90
som(i,l,j)=0
val(i,l,j)=True
Next
Next
Next
For j=1 To 2
For i=1 To 5
estr(j,i)=0
Next
Next
valido=False
For n=EstrazioneFin-numes To EstrazioneFin
If valido=True Then
For i=1 To 5
For j=1 To 5
For l=1 To 5
k=Estratto(n,r2,i)-estr(1,j)-estr(2,l)
While k<=0
k=k+90
Wend
If val(j,l,k)=True Then
som(j,l,k)=som(j,l,k)+1
val(j,l,k)=False
End If
Next
Next
Next
End If
If eval(es)=0 Then m=n+1 Else m=n End If
If (((es=0) And (n=ultest)) Or ((IndiceMensile(m)=eval(es) And (eval(es)>0)) Or ((IndiceMensile(m)=1) And (eval(es)=0)))) Then
z=z+1
Valido=True
For i=1 To 5
estr(1,i)=Estratto(n,ru1,i)
estr(2,i)=Estratto(n,ru2,i)
Next
For i=1 To 5
For l=1 To 5
For j=1 To 90
val(i,l,j)=True
Next
Next
Next
End If
Next
For i=1 To 5
For l=1 To 5
For j=1 To 90
zz=(z/100)*perc
s=CStr(eval(i))+"° di "+FormatSpace(NomeRuota(ru1),8)+" + "+CStr(eval(l))+"° di "+FormatSpace(NomeRuota(ru2),8)+" + "+FormatSpace(CStr(eval(j)),2)
s=s+" su "+NomeRuota(r2)+" "+CStr(som(i,l,j))+" su "+CStr(eval(z))+": "+FormatSpace(CStr(Fuori90(eval(estr(1,i)+estr(2,l)+j))),2)
If val(i,l,j)=True Then s=s+" in corso" Else s=s+" già uscito"
If som(i,l,j)>=zz Then
If (Not(ru1=ru2) Or ((ru1=ru2) And (i<l))) Then
Scrivi s
amb(Fuori90(eval(estr(1,i)+estr(2,l)+j)))=amb(Fuori90(eval(estr(1,i)+estr(2,l)+j)))+1
End If
End If
Next
Next
Next
Next
Next
'Il seguente ciclo mostra in output in ordine numerico quali sono i numeri previsti da almeno un sistema ed
'eventualmente se ci sono numeri previsti da più sistemi.
For i=1 To 90
If (amb(i)>0) Then Scrivi CStr(eval(i))+": previsto da "+CStr(eval(amb(i)))+" sistemi"
Next
End Sub
uso un listato cosi per te puo andar bene
e su i numeri spia
Const COLPI=9
Public Ruota(2)
Public Numer
