SCARASCRIPT, Gli scripts di ScaraLab

« Older Newer »

scaralab

Posted on 4/7/2020, 03:09

Group:: Fan

Posts:: 3,533

Status:

Buongiorno.

Posterò quì, d'ora in avanti, tutti gli scripts utili.

Grazie.

ScaraLab

Buongiorno.

Sabato 04-07-2020

Il primo script che posto è quello della Analisi delle Decine Orologio, corretto e rivisto.

Ringrazio Aldo per avermi segnalato un paio di bugs (sempre possibili).

Controllate e fatemi sapere.

Un caro saluto.

ScaraLab

Togliete le emoticons o vi darà errore quando scaricate.

Scrivi "Analisi 10 Numeri Orologio-RR"

Scrivi "___________________________ by ScaraLab"

Sub Main

Dim nm(1), nn(2), num(10), nume(10), rut(1), tot(12), nmri(90), no(1)

Dim rrtt(2), posta(1), poste(2), ddn(45), ru(1), nmr1(91), tott(12), am(2)

Dim ru1(1), ruote(1), nr1(1), rcc(200), rc(200), nr(1), abc1(4), abc2(4), abc3(4)

Dim rcc1(200), rc1(200), rcc2(200), rc2(200), rcc3(200), rc3(200)

'1.2.3.4.5.6.7.8.9.10

fin=EstrazioneFin - 12

eg=12 'estrazioni di gioco e controllo

ep=12 'estrazioni precedenti per controllo

ni=InputBox("Inserisci i numeri da analizzare ","")

ni="0."&ni

nu=Split(ni,".")

EliminaRipetuti nu

nni=UBound(nu)

For j=1 To nni

num(j)=nu(j)

qn=nni

Scrivi

Scrivi " I "&qn&" Numeri analizzati sono: "& StringaNumeri(num),1

Scrivi " Alla data del "&dataestrazione(fin)&" ["&fin&"]"

Scrivi

For j=1 To qn

nume(j)=num(j)

OrdinaMatrice nume,1 : posta(1)=1 : poste(1)=0 : poste(2)=1

rrtt(1)=11 : rrtt(2)=12

Scrivi " "&format2(num(5))&" "&format2(num(6))&" "&_

Format2(nume(5))&" "&format2(nume(6))

Scrivi " "&format2(num(4))&" "&format2(num(7))&" "&_

Format2(nume(4))&" "&format2(nume(7))

Scrivi " "&format2(num(3))&" "&format2(num(8))&" "&_

Format2(nume(3))&" "&format2(nume(8))

Scrivi " "&format2(num(2))&" "&format2(num(9))&" "&_

Format2(nume(2))&" "&format2(nume(9))

Scrivi " "&format2(num(1))&" "&format2(num(10))&" "&_

Format2(nume(1))&" "&format2(nume(10))

Scrivi

Scrivi "Terne 1-4-7 : "&format2(num(1))&"."&format2(num(4))&"."&format2(num(7))

Scrivi "Terne 2-5-8 : "&format2(num(2))&"."&format2(num(5))&"."&format2(num(8))

Scrivi "Terne 3-6-9 : "&format2(num(3))&"."&format2(num(6))&"."&format2(num(9))

Scrivi "Numero aureo : "&format2(num(10))

Scrivi

abc1(1)=num(1) : abc1(2)=num(4) : abc1(3)=num(7) : abc1(4)=num(10)

abc2(1)=num(2) : abc2(2)=num(5) : abc2(3)=num(8) : abc2(4)=num(10)

abc3(1)=num(3) : abc3(2)=num(6) : abc3(3)=num(9) : abc3(4)=num(10)

Scrivi

Scrivi "Ambi sortiti nelle "&ep&" estrazioni precedenti con "&_

"inclusa la data ultima",1

ImpostaGiocata 10,num,rrtt,poste,ep

Gioca fin-ep

Scrivi

Scrivi "Ambi da mettere in gioco:",1

con=0

For j=1 To qn-1

For jk=j+1 To qn

jj=num(j) : jjj=num(jk) : am(1)=jj : am(2)=jjj

frep=SerieFreq(fin-(ep-1),fin,am,rrtt,2)

frss=SerieFreq(fin+1,fin+ep,am,rrtt,2)

ritr=SerieRitardo(fin-484,fin,am,rrtt,2)

If frep=0 And ritr=>25 And ritr<=48 Then

con=con+1

If frss=0 Then Scrivi Format2(con)&") Ambo "&format2(am(1))&_

"."&format2(am(2))&" con ritardo: "&ritr

If frss>0 Then Scrivi Format2(con)&") Ambo "&format2(am(1))&_

"."&format2(am(2))&" con ritardo: "&ritr&" sortito nei "&eg&_

" colpi di giocata"

End If

Scrivi

Scrivi "Ambi sortiti nelle "&ep&" estrazioni precedenti con "&_

"inclusa la data ultima ",1

For rr=1 To 12

If rr=11 Then rr=12

riga="" : cca=0

For h=fin-ep+1 To fin

If h<=EstrazioneFin Then

For j=1 To qn-1

For jk=j+1 To qn

jj=num(j) : jjj=num(jk)

If Posizione(h,rr,jj)>0 And Posizione(h,rr,jjj) Then

riga=riga&format2(jj)&"."&format2(jjj)&" - "

cca=cca+1

End If

Scrivi" -> Ruota: "&Formatspace(NomeRuota(rr),9)&" "&format2(cca)&_

" Ambi sortiti: "&riga

Scrivi

Scrivi "Ruote in cui è possibile mettere in gioco l'Ambo sulla "&_

"formazione (Osservazione Scaravetti) ",1

For rr=1 To 12

If rr=11 Then rr=12

riga="" : cca=0

For h=fin-ep+1 To fin

If h<=EstrazioneFin Then

For j=1 To qn-1

For jk=j+1 To qn

jj=num(j) : jjj=num(jk)

If Posizione(h,rr,jj)>0 And Posizione(h,rr,jjj)>0 Then

cca=cca+1

End If

If cca=>2 Then

ru(1)=rr : ss=EstrazioneFin-fin

ff=SerieFreq(fin+1,fin+(ss),num,ru,2)

If ff>0 Then

pres=0 : gio=0

For hh=fin+1 To fin+ss

If hh<=EstrazioneFin Then

For ja=1 To qn-1

For jb=ja+1 To qn

j1=num(ja) : j2=num(jb)

If Posizione(hh,rr,j1)>0 And Posizione(hh,rr,j2)>0 Then

pres=1 : gio=hh-fin

End If

If pres=1 Then Exit For

End If

If ff>0 Then riga="Sortito l'ambo sulla Decina alla "&gio&" estrazione"

Scrivi" -> Ruota: "&Formatspace(NomeRuota(rr),9)&_

" Gioco possibile di Ambo "&riga

End If

riga=""

Scrivi

Scrivi "Analisi dei Numeri sortiti 36 estrazioni precedenti con "&_

"iclusa la data ultima",1

For rr=1 To 12

If rr=11 Then rr=12

riga="" : cca=0

For h=fin-35 To fin

If h<=EstrazioneFin Then

For j=1 To qn

jj=num(j)

If Posizione(h,rr,jj)>0 Then

riga=riga&format2(jj)&"." : cca=cca+1

End If

Scrivi" -> Ruota: "&Formatspace(NomeRuota(rr),12)&" "&format2(cca)&_

" Numeri sortiti: "&riga

Scrivi

Erase nmri

For j=1 To qn

nmri(j)=num(j)

OrdinaMatrice(nmri),-1

Scrivi "Analisi dei Numeri sortiti 36 estrazioni precedenti con inclusa"&_

" la data ultima"&" (decrescenti - non ripetuti)",1

Erase tott

For rr=1 To 12

If rr=11 Then rr=12

Erase nmr1 : ru(1)=rr : riga="" : cca=0

For k=1 To qn

no(1)=nmri(k): xx=0

ff=SerieFreq(fin-35,fin,no,ru,1)

If ff>0 Then

riga=riga&format2(no(1))&" "

cca=cca+1 : nmr1(cca)=no(1) : xx=1

Else

riga=riga&"-- "

End If

If xx=1 Then tott(k)=tott(k)+1

Scrivi" -> Ruota: "&Formatspace(NomeRuota(rr),12)&" "&format2(cca)&_

" Numeri - non ripetuti: "&riga

riga2=""

For i=1 To qn

riga2=riga2&formatspace(Format2(tott(i)),3)

Scrivi " "&_

" ============================="

Scrivi " Totali: "&riga2

Scrivi

Scrivi "Analisi dei Numeri sortiti "&ep&" estrazioni precedenti con "&_

"inclusa la data ultima",1

For rr=1 To 12

If rr=11 Then rr=12

riga="" : cca=0

For h=fin-ep+1 To fin

If h<=EstrazioneFin Then

For j=1 To qn

jj=num(j)

If Posizione(h,rr,jj)>0 Then

riga=riga&format2(jj)&"." : cca=cca+1

End If

Scrivi" -> Ruota: "&Formatspace(NomeRuota(rr),12)&" "&format2(cca)&_

" Numeri sortiti: "& riga

Scrivi

Scrivi "Analisi dei Numeri sortiti 12 estrazioni precedenti con inclusa la "&_

"data ultima (decrescenti - non ripetuti)",1

Erase tott

For rr=1 To 12

If rr=11 Then rr=12

Erase nmr1 : ru(1)=rr : riga="" : cca=0

For k=1 To qn

no(1)=nmri(k): xx=0

ff=SerieFreq(fin-ep+1,fin,no,ru,1)

If ff>0 Then

riga=riga&format2(no(1))&" "

cca=cca+1 : nmr1(cca)=no(1) : xx=1

Else

riga=riga&"-- "

End If

If xx=1 Then tott(k)=tott(k)+1

Scrivi" -> Ruota: "&Formatspace(NomeRuota(rr),12)&" "&format2(cca)&_

" Numeri - non ripetuti: "&riga

riga2=""

For i=1 To qn

riga2=riga2&formatspace(Format2(tott(i)),3)

Scrivi " "&_

" ============================="

Scrivi " Totali: "&riga2

Scrivi

Scrivi "Ambate Possibili (Osservazione Scaravetti):",1

For rr=1 To 12

If rr=11 Then rr=12

dd=0 : ru(1)=rr : Erase ddn : a=0

For h=fin-ep+1 To fin

If h<=EstrazioneFin Then

For j=1 To qn

jj=num(j)

If Posizione(h,rr,jj)>0 Then

dd=dd+1 : ddn(dd)=jj

If dd=2 And ddn(1)<>ddn(2) Then

If SerieFreq(h+1,fin,ddn,ru,1)=0 Then

rg=EstrazioneFin-(fin)

If rg>0 Then

ff=SerieFreq(fin+1,fin+rg,ddn,ru,1)

ritd=0 : cont=0

For hh=fin+1 To fin+rg

cont=cont+1 : ww=0

For hhh=1 To 2

jjj=ddn(hhh)

If Posizione(hh,rr,jjj)>0 Then

ritd=cont : ww=1

End If

If ww=1 Then Exit For

End If

fft=0 : rtd=0 : rido=0

fft=SerieFreq(fin+1,EstrazioneFin,ddn,rrtt,2)

For hj=fin+1 To EstrazioneFin

rido=rido+1

fftt=SerieFreq(hj,hj,ddn,rrtt,2)

If fftt>0 Then

a=" Sortito ambo a TT+Nz al colpo: "&rido

Exit For

End If

If fftt=False Then a=" ambo non sortito"

Scrivi" -> Ruota: "&Formatspace(NomeRuota(rr),10)&" Ambate: "&_

StringaNumeri(ddn)& " Sortita al "&format2(ritd)&"^ colpo"&a

End If

Scrivi

Erase tot

For j=1 To qn

jj=num(j) : gg=0 : riga=""

For rr=1 To 12

aa=0

If rr=11 Then rr=12

For h=fin-ep+1 To fin

If h<=EstrazioneFin Then

If Posizione(h,rr,jj)>0 Then

gg=gg+1 : aa=aa+1

riga=riga&siglaRuota(rr)&" "

Exit For

End If

If aa=0 Then riga=riga&"-- "

If aa>0 Then tot(rr)=tot(rr)+1

If aa>0 And rr=12 Then tot(11)=tot(11)+1

Scrivi" -> Il Numero: "&format2(jj)&" è sortito su: "&format2(gg)&_

" Ruote: "&riga

riga1=""

For j=1 To 11

riga1=riga1&formatspace(Format2(tot(j)),3)

Scrivi " "&_

"================================"

Scrivi " Totali: "&riga1

Scrivi

ImpostaGiocata 1,num,rrtt,posta,eg

Gioca fin

Scrivi

For rr=1 To 12

If rr=11 Then rr=12

riga="" : cca=0

For h=fin+1 To fin+eg

If h<=EstrazioneFin Then

For j=1 To qn

jj=num(j)

If Posizione(h,rr,jj)>0 Then

riga=riga&format2(jj)&"." : cca=cca+1

End If

Scrivi" -> Ruota: "&Formatspace(NomeRuota(rr),12)&" "&format2(cca)&_

" Numeri sortiti: "&riga

Scrivi

Erase tot

For j=1 To qn

jj=num(j) : gg=0 : riga=""

For rr=1 To 12

aa=0

If rr=11 Then rr=12

For h=fin+1 To fin+eg

If h<=EstrazioneFin Then

If Posizione(h,rr,jj)>0 Then

gg=gg+1 : aa=aa+1

riga=riga&siglaRuota(rr)&" "

Exit For

End If

If aa=0 Then riga=riga&"-- "

If aa>0 Then tot(rr)=tot(rr)+1

If aa>0 And rr=12 Then tot(11)=tot(11)+1

Scrivi" -> Il Numero: "&format2(jj)&" è sortito su: "&format2(gg)&_

" Ruote: "&riga

riga1=""

For j=1 To 11

riga1=riga1&formatspace(Format2(tot(j)),3)

Scrivi " "&_

"================================"

Scrivi " Totali: "&riga1

Scrivi

Scrivi "Ambi sortiti nelle estrazioni di gioco",1

For rr=1 To 12

If rr=11 Then rr=12

riga="" : cca=0

For h=fin+1 To fin+eg

If h<=EstrazioneFin Then

For j=1 To qn-1

For jk=j+1 To qn

jj=num(j) : jjj=num(jk)

If Posizione(h,rr,jj)>0 And Posizione(h,rr,jjj) Then

riga=riga&format2(jj)&"."&format2(jjj)&" - "

cca=cca+1

End If

Scrivi" -> Ruota: "&Formatspace(NomeRuota(rr),9)&" "&format2(cca)&_

" Ambi sortiti: "&riga

Scrivi

Scrivi "Gioco sulle quartine derivate:"

ImpostaGiocata 2,abc1,rrtt,poste,eg

ImpostaGiocata 3,abc2,rrtt,poste,eg

ImpostaGiocata 4,abc3,rrtt,poste,eg

Gioca fin

Scrivi

ScriviResoconto

End Sub

scaralab

Posted on 4/7/2020, 05:32

Group:: Fan

Posts:: 3,533

Status:

Buongiorno.

Un metodino sugli ambi consecutivi.

Ecco lo script:

Scrivi "1R-AmbiConsecutivi ___________by ScaraLab",1

Scrivi

'Trova un ambo di consecutivi in una ruota e li rimette in gioco

'per ambata e per ambo a Tutte

'La condizione e' che l'ambo a tutte ritardi da piu' di 80 estrazioni

' e l'ambata a ruota 'sia gia' stata sortita entro 6 colpi precedenti

Sub main()

Dim ru1(1), ru2(1), ruota(1), poste(2), posta(1)

Dim rrtt(1), n(2), nn(1)

ini = EstrazioneFin - 157

fin = EstrazioneFin - 7

eg = 7 'estrazioni di gioco

rrtt(1)=TU_ : poste(1) = 0 : poste(2) = 1 : posta(1) = 1

For est=ini To fin

AvanzamentoElab ini, fin, est

For rt1 = 1 To 10

ru1(1) = rt1 : ruota(1) = rt1

For p1 = 1 To 4

n1 = Estratto(est,rt1,p1)

For p2 = p1+1 To 5

n2 = Estratto(est,rt1,p2)

n(1)=n1 : n(2)=n2

OrdinaMatrice n,1

If n(2)=n(1)+1 Then

If SerieRitardo(est-1000,est-1,n,rrtt,2)=>80 Then

If SerieRitardo(est-1000,est-1,n,ruota,1)<=6 Then

Scrivi "["+Format2(est)&"] "&DataEstrazione(est)&" "&_

NomeRuota(rt1)&" ambo "&Format2(n1)&"."&Format2(n2)

nn(1)=Fuori90(n1+n2)

ImpostaGiocata 1, n, ruota, posta, eg, 1

ImpostaGiocata 2, n, rrtt, poste, eg, 2

ImpostaGiocata 3, nn, ruota, posta, eg, 1

'ImpostaInterruzioni 1,2,2

'ImpostaInterruzioni 2,1,1

Gioca est

ColoreTesto 0

Scrivi String(89,"*")

End If

ScriviResoconto

End Sub

scaralab

Posted on 4/7/2020, 06:39

Group:: Fan

Posts:: 3,533

Status:

Buongiorno.

Altro Metodino.

Ecco lo script:

Scrivi "2R-Ambo e Estratto Somma"

Scrivi "Trova un ambo unito in una ruota e la somma dell'ambo in altra ruota"

Scrivi String(58,"=")&" by ScaraLab"

Sub Main()

Dim ruota(2),amb(3),posta(2)

ini=EstrazioneFin-20

fin=EstrazioneFin-13

eg=12

t=0 : posta(1)=1 : posta(2)=0

For es = ini To fin

AvanzamentoElab ini,fin,es

For r1=1 To 10

For p1=1 To 4 : p2=p1+1

a1=Estratto (es,r1,p1) : a2=Estratto (es,r1,p2)

r2=r1+1 : s=Fuori90(a1+a2)

If r2=11 Then r2=12

For p3=1 To 5

If p3=p1 Or p3=p2 Then

b=Estratto (es,r2,p3)

If b=s Then

ruota(1)=r1 : ruota(2)=r2 : t=t+1

amb(1)=a1 : amb(2)=a2 : amb(3)=b

Scrivi"--------------------------------------------------------------"

Scrivi DataEstrazione(es)&" "& SiglaRuota (r1)&" "& StringaEstratti (es,r1)&_

" ["& Format2(a1)&"."& Format2 (a2)&"]"&" Pos. "&p1&"^ "&p2&"^ "

Scrivi DataEstrazione(es)&" "& SiglaRuota (r2)&" "& StringaEstratti (es,r2)&_

" ["& Format2(b)&"]"&" Pos. "&p3&"^ ",1

Scrivi"---------------------------------------------------Giocata n°"& Format2(t)

ImpostaGiocata 1,amb,ruota,posta,eg

Gioca es

End If

ScriviResoconto

End Sub

scaralab

Posted on 4/7/2020, 07:20

Group:: Fan

Posts:: 3,533

Status:

LA CINQUINA ESTRATTA

Una Estrazione produce una Cinquina di Numeri.

In una Cinquina ci sono:

a- 5 Estratti;

b- 10 Ambi;

c- 10 Terni;

d- 5 Quaterne;

e- 1 Cinquina.

Nella Teoria degli Aggregati la cosa è ben spiegata.

Vedere la Cinquina tutta unita, composta da 10 Ambi o da 5 Quaterne, fa cambiare il punto di vista della analisi e delle ricerche che si posso fare.

Ecco uno script che, partendo da una Cinquina estratta, rileva quanti Estratti, Ambi e Terni ci sono stati in un intervallo di ricerca (escluso l'estrazione di partenza).

Scrivi "RICERCA per Onde-Estratti ed Altro A",1

Scrivi "______________________________________ by Scaralab",1

Sub main()

Dim n(5), ru(1)

ini=EstrazioneFin-22

fin=EstrazioneFin-22

gap=216 'gap di estrazioni di ricerca indietro

Scrivi

For est=ini To fin

AvanzamentoElab ini,fin,est

For rr=1 To 12

If rr=11 Then rr=12

For p=1 To 5

n(p)=Estratto(est,rr,p)

ea=0 : eb=0 : ec=0

For es=est-(gap-1) To est-1

For r=1 To 12

If r=11 Then r=12

ru(1)=r

a=SerieFreq(es,es,n,ru,1)

b=SerieFreq(es,es,n,ru,2)

c=SerieFreq(es,es,n,ru,3)

If a>0 Then ea=ea+a

If b>0 Then eb=eb+b

If c>0 Then ec=ec+c

Scrivi "Estrazione: ["&est&"] "&Dataestrazione(est)&" "&nomeruota(rr)&" Estratti: "&stringaestratti(est,rr)

Scrivi " Ricerca indietro "& gap&" estrazioni per Estratti-Ambi-Terni in Cinquina",1

Scrivi

Scrivi "Nel periodo analizzato abbiamo avuto:"

Scrivi "Estratti -> "&format2(ea)

Scrivi "Ambi -> "&format2(eb)

Scrivi "Terni -> "&format2(ec)

Scrivi

End Sub

scaralab

Posted on 5/7/2020, 04:52

Group:: Fan

Posts:: 3,533

Status:

'Dopo aver messo i risultati di un metodo con nuova concezione geometrica (e si può collegare a molte altre cose e si potrebbe anche ridurre i Numeri da giocare fino ad arrivare a due soli ambi secchi) ... posto anche lo script.

Scrivi " Nuove Geometrie - by Scaralab"

Sub main()

Dim posta(1), poste(2), ttn(2), ru(2), num(5), yy(1)

ini=EstrazioneFin-20

fin=EstrazioneFin-20

eg= 12 'estrazioni di giocata

ttn(1)=11 : ttn(2)=12 : posta(1)=1

poste(1)=0 : poste(2)=1 : cont=0

For est=ini To fin

AvanzamentoElab ini,fin,es

For r1=1 To 12

If r1=11 Then r1=12

ru(1)=r1

For p1=1 To 4

n1=Estratto(est,r1,p1)

For p2=p1+1 To 5

n2=Estratto(est,r1,p2)

xj=Distanza(n1,n2) : xs=Fuori90(n1+n2) : xx=Fuori90(xj+xs)

x1=90-xx : x2=45-xx : If x2<=0 Then x2=x2+90

For r2=r1+1 To 12

If r2=1 Then r2=12

If r1<>r2 Then

ru(2)=r2

For p3=1 To 4

n3=Estratto(est,r2,p3)

If n3=xj Or n3=xs Or n3=x1 Or n3=x2 Then

For p4=p3+1 To 5

n4=Estratto(est,r2,p4)

If n4=xj Or n4=xs Or n4=x1 Or n4=x2 Then

cont=cont+1

Scrivi DataEstrazione(es)&" Ruote base "&Nomeruota(r1)&": ambo "&n1&"."&n2&_

" "&Nomeruota(r2)&": ambo "&n3&"."&n4

Scrivi " ______________________________________________________Previsione n^ "&cont

Scrivi

Erase num

num(1)=xj : num(2)=xs : num(3)=xx : num(4)=x1 : num(5)=x2

yy(1)=xx

Scrivi Format2(xj)&" "&format2(xs)

Scrivi " "&format2(xx)

Scrivi Format2(x1)&" "&format2(x2)

Scrivi

ImpostaGiocata 1,yy,ru,posta,eg

'ImpostaGiocata 2,num,ru,poste,eg

ImpostaGiocata 3,num,ttn,poste,eg

Gioca est

Scrivi "===================================================================="

End If

ScriviResoconto

End Sub

'Chi fosse interessato potrà vedere di migliorare la cosa e divertirsi.

scaralab

Posted on 5/7/2020, 05:13

Group:: Fan

Posts:: 3,533

Status:

'Il Caotico di A. Longo 4

'E non potevo finire questa trattazione sul Caotico se non Vi postavo lo script.

Scrivi "Caotico-ScaraLab"

Scrivi "Caotico di A. Longo-versione Scaravetti"

Scrivi "________________by ScaraLab"

Sub main()

Dim ruote(2), rutt(2), poste(2), posta(1)

Dim amb1(2), amb2(2), amb3(2), num(4)

ini=EstrazioneFin-25

fin=EstrazioneFin-24

eg=24

poste(1)=0 : poste(2)=10 : posta(1)=1

cont=0 : rutt(1)=TU_ : rutt(2)=12

For es = ini To fin

AvanzamentoElab ini,fin,es

For r1 = 1 To 10

For p = 1 To 5

a = Estratto (es,r1,p)

For r2 = r1+1 To 12

If r2=11 Then r2=12

b = Estratto (es,r2,p)

If a+b=90 And (a>12 And b>12) And a<>40 And b<>40 And a<>20 And b<>20 And a<>45 Then

ns=a*b : n1=Left(ns,2) : n2=Right(ns,2)

If n1>90 Then n1=n1-90

If n2>90 Then n2=n2-90

If n1<>90-n2 Or n2<>90-n1 Then

ruote(1)=r1 : ruote(2)=r2

amb1(1)=n1 : amb1(2)=n2

amb2(1)=n1 : amb2(2)=90-n1

amb3(1)=n2 : amb3(2)=90-n2

num(1)=n1 : num(2)=n2

num(3)=amb2(2)

num(4)=amb3(2)

cont=cont+1

Scrivi DataEstrazione(es)&" "& Left(NomeRuota(r1),2) & " " & Format2(a)

Scrivi DataEstrazione(es)&" "& Left(NomeRuota(r2),2) & " " & Format2(b)

Scrivi "Moltiplicazione = "&formatspace(ns,5,True)

Scrivi "__________________________________________prev. n* "&cont

ImpostaGiocata 1,amb1,rutt,poste,eg

ImpostaGiocata 2,amb2,rutt,poste,eg

ImpostaGiocata 3,amb3,rutt,poste,eg

ImpostaGiocata 4,amb1,ruote,posta,12

ImpostaGiocata 5,num,rutt,poste,eg

Gioca es

Scrivi "======================================"

Scrivi

End If

ScriviResoconto

End Sub

'Se utilizzato, con preghiera di citarne la fonte 'Caotico di A. Longo-versione Scaravetti'

scaralab

Posted on 5/7/2020, 05:35

Group:: Fan

Posts:: 3,533

Status:

'Ecco uno script semplice che gira in L8+ e Spaziometria per calcolare le quantità:

Scrivi "Quantità Numeri Medi-Ritardo"

Scrivi "___________________by ScaraLab"

Scrivi

Sub main()

Dim ru(1), n(1)

ini = EstrazioneFin - 11

fin = EstrazioneFin - 0

r=1 'ruota di analisi

ru(1)=r

For est = ini To fin

AvanzamentoElab ini, fin, est

rit=0 : qninf=0 : qnsup=0 : n(1)=0

For j=1 To 90

n(1)=j

rit=SerieRitardo(est-300,est,n,ru,1)

If rit<=17 Then qninf=qninf+1

If rit>17 Then qnsup=qnsup+1

Scrivi "["+Format2(est)+"] "+DataEstrazione(est)+" Ruota Analizzata "+NomeRuota(r)

Scrivi "Q.tà Numeri 0--17 "&format2(qninf)

Scrivi "Q.tà Numeri 18--XX "&format2(qnsup)

Scrivi "====================================="

Scrivi

End Sub

scaralab

Posted on 6/7/2020, 03:48

Group:: Fan

Posts:: 3,533

Status:

ColoreTesto 1 : Scrivi " TRIDI_1R_SoloTabellone ",1

Scrivi " Analisi Globale Comparata o TRIDI sul Tabellone",1

Scrivi " ( Un esempio di Metodo Razionale di Adriano Scaravetti )"

Scrivi "_________________________________________________________by ScaraLab",1

ColoreTesto 0

Sub main()

Dim npr(1), ru(1), e, nn(1), cnum(216), nnr(1), nv(1)

Dim riga, rnum, cpres(216), rigap, rigac, nbl(90,90)

Dim ni(91), numeris(90,90), numerissimi(91), nup(90), nub(90)

ru(1)=1 'ruota da analizzare 1=Ba, 2=Ca, ..., 9=To, 10=Ve

'NO NAZIONALE

ini=EstrazioneFin -16

fin=EstrazioneFin -16

ritardomax=1 : ritardomin=250 : cge=0 : rr=ru(1)

For es=ini To fin

AvanzamentoElab ini, fin, es

Scrivi "-"&es& "- Estrazione del "&DataEstrazione (es)&" controllo su - "&_

NomeRuota (rr)&" - Tabellone Analitico"

npr(1)=PiuRitardatario(es,rr) : cr=SerieRitardo(es-215,es,npr,ru,1)

e=es

'-------------------------

Erase nbl : GeneraAnalitico(e)

contpv=0 : contr=0 : crighev=0 : cspazi=0 : crighep=0

rpres=1 : crit=0 : n=cr : cnum(n+1)=0

p1=0 : p2=0 : p3=0 : p4=0 : p5=0

pr=0 : ww=0 : bl=0 : wb=0

qnriga=0 : conteggionumeri=0

For n=cr To 0 step -1

riga=FormatSpace(n,3,True)+" > "

For i= 1 To 5

no=TabelloneAnalitico(n,rr,i)

If no>0 Then

wb=1 : crit=crit+n+1 : nnr(1)=no

pr=SerieFreq(es-cr,es,nnr,ru,1)

If pr=>0 Then

If i<5 Then rigap=rigap+Format2(pr)+"."

If i=5 Then rigap=rigap+Format2(pr)

riga=riga +Format2(no)+" "

If i<5 Then rnum=rnum+Format2(no)+"."

If i=5 Then rnum=rnum+Format2(no)

If i=1 Then p1=p1+1

If i=2 Then p2=p2+1

If i=3 Then p3=p3+1

If i=4 Then p4=p4+1

If i=5 Then p5=p5+1

Else '

riga=riga +"** " '

End If '

Else

wb=0 : rigap=rigap+"-- "

contpv=contpv+1 : cont=cont+1

riga=riga +"-- "

End If

If cont=5 Then

crighev=crighev+1 : cnum(n)=0

End If

If cont=0 Then crighep=crighep+1

If cont<5 Then

rpres=rpres+1 : cnum(n)=1 : cpres(rpres)=n

End If

If cnum(n)=1 And cnum(n+1)=0 Then

cspazi=cspazi+1 : ritbl=0

Scrivi : ritblocco=n+1

End If

If cont<5 Then

estraz=es-n : CMSo=0

For g=1 To 90

nv(1)=g

rtrt=SerieRitardo(estraz-250,estraz,nv,ru,1)

CMSo=CMSo+(rtrt+1)

qnriga=Round((90-(((17/18)^(n+1))*90)),0)

conteggion=0

For n1=0 To n

For ib= 1 To 5

no1=TabelloneAnalitico(n1,rr,ib)

If no1>0 Then conteggion=conteggion+1 '

If n=cr Then Scrivi FormatSpace(rpres-1,3,True)&" - "&riga&" CMS= "&_

FormatSpace(Round(CMSo/90,2),5)&" QNEFF= "&Format2(conteggion)&_

" QNT= "&Format2(qnriga)&" // Diff.: "&FormatSpace((qnriga-conteggion),3)

rdo=cpres(rpres-1)-cpres(rpres)

If n<>cr Then Scrivi FormatSpace(rpres-1,3,True)&" - "&riga &" -> rit. posiz."&_

FormatSpace(rdo,3,True)&" CMS= "&FormatSpace(Round(CMSo/90,2),5)&" QNEFF= "&_

Format2(conteggion)&" QNT= "&Format2(qnriga)&_

" // Diff.: "&FormatSpace((conteggion-qnriga),3,false)

End If

abc=0 : abc1=0

For ii= 1 To 5

nro=TabelloneAnalitico(n,rr,ii)

nro1=TabelloneAnalitico(n+1,rr,ii)

If n=cr Then nro1=0

If nro>0 Then abc=abc+1

If nro1>0 Then abc1=abc1+1

If abc>0 And abc1=0 Then bl=bl+1

For iii=1 To 5

nuro=TabelloneAnalitico(n,rr,iii)

If nuro>0 Then

ww=ww+1 : nbl(bl,ww)=nuro

End If

rnum="" : cont=0 : riga=riga+" " : rigap=""

cms=crit/90 : rnum="" : riga=FormatSpace(" ",5)

riga=riga+FormatSpace(NomeRuota(rr),16)

Scrivi : Scrivi String(60,"*") : Scrivi

End Sub

scaralab

Posted on 2/10/2020, 07:45

Group:: Fan

Posts:: 3,533

Status:

SCARASCRIPT

Ad una specifica richiesta di GiusepPino.

Scrivi " Analisi della PRESENZA su 4 Ruote _______by ScaraLab"

Scrivi

Sub main()

Dim ruota(4), a(1), npr(1), nn(90), ni(91), n(90)

Dim posta(1), poste(2), nm(1), nu(10), ttn(2)

ini=EstrazioneFin - 30 'estrazione iniziale

fin=EstrazioneFin - 30 'estrazione finale

r1=1 'imposta la prima ruota di analisi

r2=6 'imposta la seconda ruota di analisi

r3=7 'imposta la terza ruota di analisi

r4=9 'imposta la quarta ruota di analisi

eda=4 'numero di estrazioni analizzate

fq=3 'frequenza richiesta nell'intervallo di estrazioni eda

zz=1 '=0 sortiti fq volte; =1 sortiti fq e più volte

eg=12 'imposta le estrazioni di controllo giocata

ruota(1)=r1 : ruota(2)=r2 : ruota(3)=r3 : ruota(4)=r4

posta(1)=1 : poste(1)=0 : poste(2)=1 : ttn(1)=11 : ttn(2)=12

For es=ini To fin

AvanzamentoElab ini,fin,es

cf=0 : Erase nn : Erase n

For p=1 To 90

a(1)=p

If zz=1 And SerieFreq(es-(eda-1),es,a,ruota,1)=>fq Then

cf=cf+1 : n(cf)=p : nn(cf)=p : nu(cf)=p

End If

If zz=0 And SerieFreq(es-(eda-1),es,a,ruota,1)=fq Then

cf=cf+1 : n(cf)=p : nn(cf)=p : nu(cf)=p

End If

If zz=0 Then

Scrivi "["+Format2(es)+"] "+DataEstrazione(es)+" Ruote: "+NomeRuota(r1)+_

" "+NomeRuota(r2)+" "+NomeRuota(r3)+" "+NomeRuota(r4)

scrivi" "+Format2(cc)+" Numeri sortiti nelle "+Format2(eda)+_

" estr.ni analizzate con PRESENZA => "&fq

End If

If zz=1 Then

Scrivi "["+Format2(es)+"] "+DataEstrazione(es)+" Ruota di "+NomeRuota(r1)+_

" "+NomeRuota(r2)+" "+NomeRuota(r3)+" "+NomeRuota(r4)

Scrivi " "+Format2(cc)+" Numeri sortiti nelle "+Format2(eda)+_

" estr.ni analizzate con PRESENZA => "&fq&" e più volte"

End If

Scrivi

Scrivi "L'aggregato rilevato: "&StringaNumeri(nn),1

Scrivi

For j=1 To cf

nm(1)=nn(j) : ff=SerieFreq(es-(eda-1),es,nm,ruota,1)

Scrivi " Il Numero "&format2(nm(1))&" è sortito: "&format2(ff)&_

" volte nel Ciclo"

Scrivi

Scrivi Chr(13)&"["&es&"] "& DataEstrazione(es)&" - "&_

" - In gioco su "&siglaruota(r1)&"-"&siglaruota(r2)&"-"&siglaruota(r3)&_

"-"&siglaruota(r4),1

Scrivi StringaNumeri (nn),1

ca=0 : Erase ni : cn=cf

For ex=es+1 To es+eg

If ex<=EstrazioneFin Then

ca=ca+1

For rt=1 To 12

If rt=r1 Or rt=r2 Or rt=r3 Or rt=r4 Then

cc=0 : rigac=Left(SiglaRuota(rt),2)&" "

For pos=1 To 5 : nn(cn+1)=Estratto(ex,rt,pos)

If NumeriRipetuti(nn)=True Then

cc=cc+1 : ni(cc)=nn(cn+1)

End If

rigac=rigac&""&StringaNumeri(ni)

If cc>0 Then

Scrivi DataEstrazione(ex)&" - "&FormatSpace(rigac,20)&" "&_

Format2(ca)&"° colpo ["&ex&"]"

rigac="" : Erase ni

End If

nn(cn+1)=0

End If

Scrivi

Scrivi Chr(13)&"["&es&"] "& DataEstrazione(es)&_

" - Controllo Giocata a TUTTE + Nz - In gioco: ",1

Scrivi StringaNumeri (n),1

ca=0 : Erase ni : cnn=cf

For ex=es+1 To es+eg

If ex<=EstrazioneFin Then

ca=ca+1

For rt=1 To 12

If rt=11 Then rt=12

cc=0 : rigac=Left(SiglaRuota(rt),2)&" "

For pos=1 To 5 : n(cnn+1)=Estratto(ex,rt,pos)

If NumeriRipetuti(n)=True Then

cc=cc+1 : ni(cc)=n(cnn+1)

End If

rigac=rigac&""&StringaNumeri(ni)

If cc>1 Then

Scrivi DataEstrazione(ex)&" - "&FormatSpace(rigac,20)&" "&_

Format2(ca)&"° colpo ["&ex&"]"

rigac="" : Erase ni : n(cnn+1)=0

End If

n(cnn+1)=0

End If

Scrivi String(80,"*")

Scrivi

If cn<=10 Then

ImpostaGiocata 1,nu,ruota,posta,eg

ImpostaGiocata 2,nu,ttn,poste,eg

Gioca es

Scrivi

End If

ScriviResoconto

End Sub

ScaraLab

GiusepPino

Posted on 2/10/2020, 10:11

Group:: Fan

Posts:: 13

Status:

Buongiorno

Ottimo grazie. GiusepPino

GiusepPino

Posted on 2/10/2020, 17:11

Group:: Fan

Posts:: 13

Status:

Buonasera sigg Scaravetti

In riferimento alla mia precedente richiesta riguardante lo script
Analisi della PRESENZA su 4 Ruote
ho riscontrato un problemino dopo la modifica dei settaggi di
eda= 4 'numero di estrazioni analizzate e
fq= 3 'frequenza richiesta nell'intervallo di estrazioni eda
cambiando anche solo uno dei due parametri sopra mi da questo
errore : nu(cf) = p .
Dopo Vostra verifica rimango in attesa di una possibile correzione.
grazie ancora GiusepPino