Metto qui uno script di Adriano Scaravetti ,a cura di SCARALAB....uno studio di molti anni fa',alcuni si ricordano,Passiflora ed altri che parteciparono alla scuola dello "Scaravetti pensiero"...usatelo ,settatelo come volete e poi ragionate.Buona serata a "TUTTI" anche al fenomeno.....lavora sulle frequenze....appena lo trovo avevo anche una versione modificata di RAMCO (che saluto con immensa stima e doveroso rispetto) dove si poteva scegliere sia per frequenze e presenze....che non sono la stessa cosa...appena lo trovo lo posto.
Scrivi "Spia-1R-Evento ___int ________ by ScaraLab "
Scrivi
Sub Main()
Dim ru(1), ttn(2), posta(1), poste(2)
Dim nu(10), suc(90,2), nn(1)
ini=EstrazioneFin -19
fin=EstrazioneFin -1
r=1 'Su quale ruota? 1=Ba; 2=Ca ...
cl=19 'Quante estrazioni di ciclo?
qc=5 'Quanti cicli da analizzare?
qn=2 'quantità numeri considerati da 1 a 10
eg=6 'estrazioni di gioco
ru(1)=r : posta(1)=1 : poste(1)=0 : poste(2)=1
ttn(1)=11 : ttn(2)=12
For est=ini To fin
Scrivi " Analisi del ["&est&"] "&DataEstrazione(est)&" Ruota di "&NomeRuota(r)&_
" Estratti: "&StringaEstratti(est,r)
Scrivi
For p=1 To 5
sp=Estratto(est,r,p)
For j=1 To 90
suc(j,1)=0 : suc(j,2)=0
Next
Erase nu : co=0
For es=est-eg-1 To est-1500 Step -1
If Posizione(es,r,sp)>0 Then
co=co+1
For n=1 To 90
nn(1)=n
ff=SerieFreq(es+1,es+cl,nn,ru,1)
If ff>0 Then
suc(n,1)=n : suc(n,2)=suc(n,2)+ff'
End If
Next
If co=qc Then Exit For
End If
If co=qc Then Exit For'
Next
OrdinaMatrice suc, -1, 2
Scrivi "Primi "&qn&" Numeri più frequenti usciti dopo il numero Spia entro i "&_
cl&" colpi",1
Scrivi "_____________________________________________________________________"
Scrivi "Numero spia: "&sp&" su "& FormatSpace(NomeRuota(r),10)&" casi = "&co&_
" in un ciclo di estrazioni "&cl
Scrivi
riga="Num. "
riga1="Freq. "
For i=1 To qn
riga=riga&FormatSpace(Format2(suc(i,1)),4,True)&" "
riga1=riga1&FormatSpace(Eval(suc(i,2)),4,True)&" "
Next
Scrivi riga,1 : ColoreTesto 2
Scrivi riga1 : ColoreTesto 0
Scrivi
For j=1 To qn
nu(j)=suc(j,1)
Next
ImpostaGiocata 1, nu, ru, posta, eg
ImpostaGiocata 2, nu, ttn, poste, eg
Gioca est,1
Scrivi "==============================================="
Scrivi
Next
Next
ScriviResoconto
End Sub