Per rabberto script postato il 25/7/2011

[fillotto]

Ciao rabberto ho provato questo script postato da te in data 25/7/2011, siccome lo trovo molto bello e potente vorrei sapere
se conosci l'autore per chiedere a lui (o a chi ne è in grado) dei commenti che farebbero capire il tutto.
Ad esempio cambiando l'indice mensile la ricerca si fa sempre sull'1 (prima del mese) e quindi bisogna agire direttamente sullo script e funziona!!!
Non riesco a capire completamente lo script : in quanti colpi si dispiega la ricerca??? e in genere tutte le variabili a che cosa si riferiscono, chi mi può dare delle spiegazioni???
Ecco lo script:
Sub main()
Dim som(5,90)
Dim estr(5)
Dim val(5,90)
es=InputBox("inserisci 0 per l'ultima estrazione, 1 per la prima del mese.",,1)
For r2=1 To 10
For r=1 To 10
z=0
For i=1 To 5
For j=1 To 90
som(i,j)=0
val(i,j)=True
Next
Next
For i=1 To 5
estr(i)=0
Next
valido=False
For n=EstrazioneFin-180 To EstrazioneFin 'Modificando il 180 si cambia il n° di estrazioni esaminate
If valido=True Then
For i=1 To 5
For j=1 To 5
k=Estratto(n,r2,j)-estr(i)
If k<=0 Then
k=k+90
End If
If val(i,k)=True Then
som(i,k)=som(i,k)+1
End If
Next
Next
For i=1 To 5
For j=1 To 5
k=Estratto(n,r2,j)-estr(i)
If k<=0 Then
k=k+90
End If
If val(i,k)=True Then
val(i,k)=False
End If
Next
Next
End If
If es=0 Then m=n+1 Else m=n End If
If IndiceMensile(m)=1 Then
z=z+1
valido=True
For i=1 To 5
estr(i)=Estratto(n,r,i)
Next
For i=1 To 5
For j=1 To 90
val(i,j)=True
Next
Next
End If
Next
For i=1 To 5
For j=1 To 90
zz=Int((z/100)*90)
s=CStr(eval(i)) +" estratto di "+NomeRuota(r) +" + " +CStr(eval(j))+ " sulla ruota di "
s=s+NomeRuota(r2) +" è uscito " +CStr(som(i,j))+ " volte su "+CStr(eval(z))
If som(i,j)>zz Then
Scrivi s
End If
Next
Next
Next
Next
End Sub

 

[firefox]

Ciao
se ricordo bene questo è unos script di DaniloCS1 di qualche annetto fa (penso 2005-2006) quando lui gestiva un suo forum. Di spiegazioni all'epoca non ne furono date anche perchè fu suo figlio a programmarlo.
Questo script nn fa altro che addizionare dei numeri fissi credo in maniera random a determinati estratti estrapolandone il migliore e controllandone l'evoluzione nel corso delle estrazioni.
Insomma si tratta di matematica sommativa.
Spero di averti aiutato in qualche modo.
Ciao da Francesco

 

[fillotto]

quote:Originally posted by firefox

Ciao
se ricordo bene questo è unos script di DaniloCS1 di qualche annetto fa (penso 2005-2006) quando lui gestiva un suo forum. Di spiegazioni all'epoca non ne furono date anche perchè fu suo figlio a programmarlo.
Questo script nn fa altro che addizionare dei numeri fissi credo in maniera random a determinati estratti estrapolandone il migliore e controllandone l'evoluzione nel corso delle estrazioni.
Insomma si tratta di matematica sommativa.
Spero di averti aiutato in qualche modo.
Ciao da Francesco

ti ringrazio Francesco, quello che non capisco è a che serve questa
riga di codice:
es=InputBox("inserisci 0 per l'ultima estrazione, 1 per la prima del mese.",,1)
infatti se si mette 2 mi aspetterei che i riferimenti si spostassero alla 2^ estrazione mensile invece bisogna agire direttamente sullo script su l'istruzione "
If IndiceMensile(m)=1 Then" mettendo 2 cosi da ottenere lo scopo
e poi dove si trova l'istruzione mediante la quale si evince in quanti colpi deve uscire l'estratto?
Un'altra curiosità ... ma adesso Danilo è ancora attivo ? in tutti i post si parla di lui sempre al passato.

 

[rabberto]

Ciao fillotto mi dispiace tanto io di script purtroppo non ne capisco a me li passa un mio amico che li trova su internet pero' non si ricorda dove l'ha preso , se mi fa sapere qualcosa ti faccio sapere , ok , ciao .

 

[pfca]

Ciao se vuoi cambiare l'estrazione devi fare questa modifica:
'If es=0 Then m=n+1 Else m=n End If questa riga va remmata
'If IndiceMensile(m)=1 Then questa riga va remmata
If(((eval(es)=0)) Or ((IndiceMensile = eval(es) And (eval(es) > 0)) Or ((IndiceMensile(n+1) = 1) And (eval(es) = 0)))) Then

Le righe presenti nell'originale ti davano la possibilità solo per
l'ultima o la prima estrazione


Francesco

 

[fillotto]

quote:Originally posted by pfca

Ciao se vuoi cambiare l'estrazione devi fare questa modifica:
'If es=0 Then m=n+1 Else m=n End If questa riga va remmata
'If IndiceMensile(m)=1 Then questa riga va remmata
If(((eval(es)=0)) Or ((IndiceMensile = eval(es) And (eval(es) > 0)) Or ((IndiceMensile(n+1) = 1) And (eval(es) = 0)))) Then

Le righe presenti nell'originale ti davano la possibilità solo per
l'ultima o la prima estrazione


Francesco

Grazie per la sipiegazione in effetti leggendo attentamente mi son reso conto che c'erano 2 possibili scelte la 1^ o l'ultima,mi rimane
un ultima perplessità " dove si trova l'istruzione mediante la quale si evince in quanti colpi deve uscire l'estratto?" dico questo
perchè da controlli ho trovato le uscite anche dopo di 12 estrazioni
quando nell'output dice che è uscito 14 volte su 14 si ma quale è il limite utile 10 es 15 es....perchè è chiaro che prima o poi esce insomma dove si trova la riga di codice che dice in quanti colpi
deve uscire affinche sia considerato positivo?

 

[firefox]

Ciao fillotto,
scusa se ti rispondo in ritardo ma ho cercato purtroppo invano di trovare la pagina che all'epoca mi salvai dove spiegava il funzionamento dello script.
Di DaniloCS1 si son perse le tracce, il suo forum idem. Spero solo che stia bene.
Ciao

 

[pfca]

Se non sbaglio dovrebbe essere estr(5), ma valuta tu.
Se ti interessa la stessa tipologia di script, te ne posso postare alcuni più chiari nelle loro richieste di input.

Francesco

 

[pfca]

' by Danilo
' Cerca Ambate con parametro di ricerca in percentuale di sortita
' ATTENZIONE ! ---> Analizza tutte le ruote in una sola scansione
Sub Main()
ColoreTesto 2
Scrivi "ATTENZIONE !!!",1
Scrivi "Ricerca per Ambata eseguita in tutte le ruote contemporaneamente",1
Dim som(5,90)
Dim estr(5)
Dim Val(5,90)
Dim amb(90)
perc = InputBox("Imposta la percentuale esiti (10% - 100%)",,99)
es = InputBox("Inserisci 0 ultima, 1 prima, ....:",,0)
nmc = InputBox("Quanti mesi da analizzare ?",,4)
ncg = InputBox("Quanti colpi di gioco ?",,1)
ultest = 8300'7404
n = EstrazioneFin
z = 0
trovato = False
While z < eval(nmc)
If(((eval(es) = 0)And(n = ultest))Or((IndiceMensile = eval(es)And(eval(es) > 0))Or((IndiceMensile(n + 1) = 1)And(eval(es) = 0)))) Then
z = z + 1
End If
n = n - 1
Wend
nn = n + 1
For r2 = 1 To 10 ' Ricerca gli abbinamenti validi per la ruota scelta. es: R2 = 2 per Cagliari
For i = 1 To 90
amb(i) = 0
Next
ColoreTesto 0
Scrivi
Scrivi "***********************************************************",1
ColoreTesto 0
Scrivi "IMPOSTAZIONI:",1
If eval(es) = 0 Then
s = "(All'ultima"
Else
s = "Alla (" + es
End If
s = s + "°) estrazione del mese per ("
If eval(ncg) = 0 Then
s = s + "un mese:"
Else
If eval(ncg) = 1 Then
s = s + ncg + ") colpo:"
Else
s = s + ncg + ") colpi:"
End If
End If
ColoreTesto 0
Scrivi s
ColoreTesto 1
Scrivi "Quantità mesi Impostati: (" & nmc & ")",1
ColoreTesto 0
Scrivi "Statistica dal: " + DataEstrazione(nn) + " al: " + DataEstrazione(EstrazioneFin),1
ColoreTesto 2
Scrivi "Percentuale Impostata: " & perc & "%",1
Scrivi
For r = 1 To 10 'Ricerca su tutte le ruote, se si mette 2 ricerca estratti su ruota CA per tutte le ruote
z = 0
For i = 1 To 5
For j = 1 To 90
som(i,j) = 0
Val(i,j) = True
Next
Next
For i = 1 To 5
estr(i) = 0
Next
valido = False
For n = nn To EstrazioneFin
If eval(es) = 0 Then m = n + 1 Else m = n End If
If(((eval(es) = 0)And(n = ultest))Or((IndiceMensile = eval(es)And(eval(es) > 0))Or((IndiceMensile(n + 1) = 1)And(eval(es) = 0)))) Then
z = z + 1
For i = 1 To 5
estr(i) = Estratto(n,r,i)
Next
For i = 1 To 5
For j = 1 To 90
Val(i,j) = True
Next
Next
k2 = eval(ncg)
k3 = n + k2
If k3 > EstrazioneFin Then k3 = EstrazioneFin End If
For nv = n + 1 To k3
For i = 1 To 5
For j = 1 To 5
k = Estratto(nv,r2,j) - estr(i)
While k <= 0
k = k + 90
Wend
If Val(i,k) = True Then
som(i,k) = som(i,k) + 1
Val(i,k) = False
End If
Next
Next
Next
End If
Next
For i = 1 To 5
For j = 1 To 90
zz = Int((z/100)*perc)
s = CStr(eval(i)) + "° di " + FormatSpace(NomeRuota(r),8) + " + " + Format2(CStr(eval(j))) + " su "
ColoreTesto 1
s = s + FormatSpace(NomeRuota(r2),8) + " è uscito " + CStr(som(i,j)) + "/" + CStr(eval(z))
s = s + " : " + FormatSpace(CStr(Fuori90(eval(estr(i) + j))),3)
If(Val(i,j) = True) Then s = s + " in corso" Else s = s + "----> sfaldato" End If
If som(i,j) >= zz Then
Scrivi s
amb(Fuori90(eval(estr(i) + j))) = amb(Fuori90(eval(estr(i) + j))) + 1
End If
Next
Next
Next
ColoreTesto 2
Scrivi
Scrivi "***** NUMERI - CONVERGENTI *****",1
For i = 1 To 90
If(amb(i) > 1) Then
ColoreTesto 1
Scrivi CStr(eval(i)) + ": Convergente in (" + CStr(eval(amb(i))) + " sistemi)",1
End If
Next
Next
End Sub


Francesco

 

[pfca]

Questo è di Ramco, io ho solo aggiunto l'opportunità di scegliere la ruota.

'Ramco ricerca sommativi.
'Aggiunto scelta ruota pfca.
Sub Main()
ColoreTesto 2
Scrivi "ATTENZIONE !!!",1
Scrivi "Ricerca per Ambata eseguita in tutte le ruote contemporaneamente",1
Scrivi "Ricerca per Ambata condizionata a STEP(salti) nel periodo selezionato",1
Dim som(5,90)
Dim estr(5)
Dim Val(5,90)
Dim amb(90)
r2 = ScegliRuota
perc = InputBox("Imposta la percentuale esiti (10% - 100%)","PERCENTUALE",99)
nmc = CInt(InputBox("Quanti cicli(STEP) da analizzare ?","STEP",4))
esq = CInt(InputBox("La Lunghezza in estrazioni di uno STEP?","LUNGHEZZA STEP",18))
ncg = InputBox("Quanti colpi di gioco ?","COLPI DI GIOCO-ANALISI",3)
tes = CInt(InputBox("Quante estrazioni vuoi indietreggiare dall'ultima in archivio?","SOLO per ANALISI",1))
'la riga sopra serve solo per staccare l'analisi dall'ultima estrazione in archivio, potremmo così vedere
'nelle estrazioni che decidiamo di mettere nel limbo(valore tes), quali numeri sono già sortiti...
fin = EstrazioneFin - tes
ini = Fin -(nmc*esq)
'For r2 = 1 To 10 ' Ruota esito ricerca
For i = 1 To 90
amb(i) = 0
Next
ColoreTesto 0
Scrivi
Scrivi String(50,"*")
ColoreTesto 0
Scrivi "IMPOSTAZIONI:",1
s = "Cicli analizzati " & nmc & " da " & esq & " estrazioni cad. per "
If eval(ncg) = 1 Then
s = s + ncg + ") colpo:"
Else
s = s + ncg + ") colpi:"
End If
ColoreTesto 0
Scrivi s
ColoreTesto 1
Scrivi "Quantità cicli Impostati: (" & nmc & ") tot. (" &(nmc*esq) & ") Estr.",1
ColoreTesto 0
Scrivi "Statistica dal: " + DataEstrazione(ini) + " al: " + DataEstrazione(Fin),1
ColoreTesto 2
Scrivi "Percentuale Impostata: " & perc & "%",1
Scrivi
For r = 1 To 10 ' Ruote di Ricerca
z = 0
For i = 1 To 5
For j = 1 To 90
som(i,j) = 0
Val(i,j) = True
Next
Next
For i = 1 To 5
estr(i) = 0
Next
valido = False
For n = ini To fin Step esq
If eval(esq) = 0 Then m = n + 1 Else m = n End If
z = z + 1
For i = 1 To 5
estr(i) = Estratto(n,r,i)
Next
For i = 1 To 5
For j = 1 To 90
Val(i,j) = True
Next
Next
k3 = n + ncg
If k3 > EstrazioniArchivio Then k3 = EstrazioniArchivio End If
For nv = n + 1 To k3
For i = 1 To 5
For j = 1 To 5
k = Estratto(nv,r2,j) - estr(i)
While k <= 0
k = k + 90
Wend
If Val(i,k) = True Then
som(i,k) = som(i,k) + 1
Val(i,k) = False
End If
Next
Next
Next
Next
For i = 1 To 5
For j = 1 To 90
zz = Int((z/100)*perc)
s = CStr(eval(i)) + "° di " + FormatSpace(NomeRuota(r),8) + " + " + Format2(CStr(eval(j))) + " su "
ColoreTesto 1
s = s + FormatSpace(NomeRuota(r2),8) + " è uscito " + CStr(som(i,j)) + "/" + CStr(eval(z))
s = s + " : " + FormatSpace(CStr(Fuori90(eval(estr(i) + j))),3)
If(Val(i,j) = True) Then s = s + " in corso" Else s = s + "----> sfaldato" End If
If som(i,j) >= zz Then
Scrivi s
amb(Fuori90(eval(estr(i) + j))) = amb(Fuori90(eval(estr(i) + j))) + 1
End If
Next
Next
Next
ColoreTesto 2
Scrivi
Scrivi "***** NUMERI - CONVERGENTI *****",1
For i = 1 To 90
If(amb(i) > 1) Then
ColoreTesto 1
Scrivi CStr(eval(i)) + ": Convergente in (" + CStr(eval(amb(i))) + " sistemi)",1
End If
Next
'Next
End Sub



Francesco

 

[firefox]

Ciao e scusami ma ho trovato questi tra i molteplici.
Potrebbero esserti utili per un raffronto. Te l'invio.

Sub main()
Dim ambi(135000,5),nn(10),ruota(10)
nes=InputBox("Inserisci 0 ultima, 1 prima, ....",,0)
ne=InputBox("Numero estrazioni:",,480)
perc=InputBox("Percentuale minima (60-90%):",,95)
ncg=InputBox("Numero colpi di gioco",,8)
ruota(1)=1

casi=0
ini=EstrazioneFin-ne
fin=EstrazioneFin
For x=1 To 135000
ambi(x,1)=0 : ambi(x,2)=0 : ambi(x,3)=0 : ambi(x,4)=0 : ambi(x,5)=0
Next
For es=ini To fin
AvanzamentoElab ini,fin,es
If eval(nes)=0 Then
If IndiceMensile(es+1)=1 Then
casi=casi+1 : co=0
For r=1 To 88
For p=r+1 To 89
For v=p+1 To 90
co=co+1 : c=0
nn(1)=r : nn(2)=p : nn(3)=v
esncg=es+eval(ncg)
If esncg>EstrazioneFin Then esncg=EstrazioneFin End If
c=SerieFreq(es+1,esncg,nn,ruota,1)
If c>0 Or d>0 Then
ambi(co,1)=co
ambi(co,2)=r
ambi(co,3)=p
ambi(co,4)=v
ambi(co,5)=ambi(co,5)+1

End If
Next
Next
Next
End If
Else
If IndiceMensile(es)=eval(nes) Then
casi=casi+1 : co=0
For r=1 To 88
For p=r+1 To 89
For v=p+1 To 90
co=co+1 : c=0
nn(1)=r : nn(2)=p : nn(3)=v
esncg=es+eval(ncg)
If esncg>EstrazioneFin Then esncg=EstrazioneFin End If
c=SerieFreq(es+1,esncg,nn,ruota,1)

If c>0 Or d>0 Then
ambi(co,1)=co
ambi(co,2)=r
ambi(co,3)=p
ambi(co,4)=v
ambi(co,5)=ambi(co,5)+1

End If
Next
Next
Next
End If
End If
Next
ca=0
ColoreTesto 1 : Scrivi : Scrivi "************************************************************"
Scrivi "ANALISI Dal "& DataEstrazione(ini)&" al "& DataEstrazione(fin),1
Scrivi
If eval(nes)=0 Then
Scrivi "METTERE IN GIOCO DALLA : "& "Prima del mese",1
Else
Scrivi "METTERE IN GIOCO DALLA : "& eval(nes+1)&"° del mese",1
End If
Scrivi "RUOTE DI GIOCO : "& NomeRuota(ruota(1)),1
Scrivi "COLPI DI GIOCO : "& ncg,1
Scrivi "CASI ANALIZZATI : "& casi,1
Scrivi : ColoreTesto 0
per=Int((casi/100)*perc)
For ca=1 To 135000
If eval(ambi(ca,5))=>per Then
Scrivi Format2(eval(ambi(ca,2)))& "-" & Format2(eval(ambi(ca,3)))& "-" & Format2(eval(ambi(ca,4)))&" su "&_
NomeRuota(ruota(1))&"-"& " è uscito "& FormatSpace(ambi(ca,5),2)&" su "& FormatSpace(casi,2)
End If
Next
End Sub

__________________________________________________________

Sub main()
Dim som(5,90)
Dim estr(4,5)
Dim val(5,90)
Dim amb(90)
r2=InputBox("Inserisci la ruota su cui effettuare la ricerca(1-10):",,8)
r3=InputBox("Inserisci la ruota su cui effettuare la ricerca(1-10):",,9)
es=InputBox("Inserisci 0 per l'ultima, 1 la prima, 2 la seconda, ecc. (0-8):",,0)
nmc=InputBox("Numero di mesi da considerare:",,59)
perc=InputBox("Inserisci la percentuale (10-90):",,98)
k2=InputBox("Numero colpi ( 2-9 ): ",,9)
ultest=7387
n=EstrazioneFin
z=0
trovato=False
While z<eval(nmc)
If (((eval(es)=0) And (n=ultest)) Or ((IndiceMensile=eval(es) And (eval(es)>0)) Or ((IndiceMensile(n+1)=1) And (eval(es)=0)))) Then
z=z+1
End If
n=n-1
Wend
nn=n+1
For i=1 To 90
amb(i)=0
Next
If eval(es)=0 Then
Scrivi "All'ultima del mese giocando per n° "+k2+" colpi"
Else
Scrivi "Alla "+es+"° del mese giocando per n° "+k2+" colpi"
End If
Scrivi "Statistica dal "+DataEstrazione(nn)+" al "+DataEstrazione(EstrazioneFin)
For ru1=1 To 10
For ru2=ru1 To 10
z=0
For i=1 To 5
For j=1 To 90
som(i,j)=0
val(i,j)=True
Next
Next
For j=1 To 2
For i=1 To 5
estr(j,i)=0
Next
Next
For n=nn To EstrazioneFin
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
For i=1 To 5
estr(1,i)=Estratto(n,ru1,i)
estr(2,i)=Estratto(n,ru2,i)
estr(3,i)=Vert(estr(1,i))
estr(4,i)=Vert(estr(2,i))
Next

 

[rabberto]

Ottimo lavoro ragazzi ho visto che vi siete dati da fare , bravi , volevo chiedervi due cose
1) se qualcuno sarebbe cosi gentile da farmi capire qualcosa anche a me , io vedo tati numeri ma non capisco cosa giocare .
2) Se vi fa piacere potete postare i vostri script in MEGA RACCOLTA "SCRIPT" in modo da avere un post con tanti script a disposizione di tutti .
Grazie , ciao .

 

[Roby]

SCRIPT MOLTO INTERESSANTI...GRAZIE RAGAZZI!!!!!

SUERTE !!!!