antonio65
Super Member >PLATINUM<
Ciao Mike come andiamo? spero bene....Io ho smanettato (per quel che posso) ho fatto qualcosa (ma sicuramente un pò di confusione)
Quando puoi ti allego lo script e dai un'occhiata...Dall'ultima mia idea ho sviluppato come trovare la "distanza " applicando la somma...sono disattivati gli ultimi numeri
perchè la ricerca è su ambo secco...per il momento a tutte le ruote....Tuttavia per mia incapacità ho dovuto o meglio non uso la funzione Nufr perchè non so come piazzarla....mi servirebbe qualche automazione: quando mi rispondi ti spiegherò meglio in dettagli....
Scrivi String(47,32) & "List. RANDHOUSE",1
ColoreTesto 0
Sub Main
Dim Nu(1),NuFr(90,5),NuAdd(1),aN(10),Num(5),DNA(10),MEN(5),sff(3),Nn(5),dg(4),Som(2),Nam(2)
Dim Ru(12),T
Dim poste(3),postee(3)
Dim posta(2)
posta(1) = 1
ini = 9350
fin = EstrazioneFin
r = InputBox("Quale Ruota",,5)
pos = CInt(InputBox("Quale posizione",,1))
'Ind = CInt(InputBox("Quale indiceMensile",,1))
clp = CInt(InputBox("Quanti Colpi di Gioco",,1))
smm = CInt(InputBox("Quante righe ",,5))
T = Array(T,"Estratto","SOMMATIVO","FREQ SU CASI","ESTR + SOMMATIVO","MEN","10 somme DNA","nu1","nu2","nu3","nu4","nu5","Esito","Verifica","Colpo","Ritardo x 1","K","F","E","AD","BD","dg1","dg2","dg3","dg4","AN1","AN2")
Call InitTabella(T,6)
For es = ini To fin
p1 = 1
p2 = 2
a = Estratto(es,r,p1)'''''1°estratto
b = Estratto(es,r,p2)'''''2°estratto
c = Estratto(es - 1,r,p1)''''1°estratto precedente
d = Estratto(es - 1,r,p2)'''2°estratto precedente
AD = Abs(a - b)''''distanza tra il 1°estratto ed il 2°estratto
BD = Abs(c - d)''''distanza tra il 1°estratto precedente ed il 2°estratto precedente
casi = casi + 1
For p1 = 1 To 5
Num(p1) = Estratto(es,r,p1)
Num(p2) = Estratto(es,r,p2)
Nn(1) = c
Nn(2) = d
AN1 =(AD + BD)'1°anello
AN2 = Abs(AD - BD)'2°anello
Nam(1) = AN1
Nam(2) = AN2
dg(1) = Abs(a - c)'''sottrazioni in verticale
dg(2) = Abs(a - d)'''sottrazioni in verticale
dg(3) = Abs(b - c)'''sottazioni in verticale
dg(4) = Abs(b - d)'''sottrazioni in verticale
Som(1) = E
Som(2) = F
E =(a + b)'''Somma 1
F =(c + d)'''Somma 2
K = Abs(E - F)
Somm = 91 'quale somma giocare
'metodo per ricavare la distanza
ALGE1 = Abs(Somm - E)
ALGE2 = Abs(ALGE1 + E)
ALGE3 =(ALGE1 + ALGE2)
ALGE4 = ALGE3/2
ALGE5 =(ALGE4 + Somm)/2
ALGE6 = Abs(ALGE4 - Somm)/2
'****************************
Next
'DNA(1) =(Num(1) + Num(2))
'DNA(2) =(Num(1) + Num(3))
'DNA(3) =(Num(1) + Num(4))
'DNA(4) =(Num(1) + Num(5))
'DNA(5) =(Num(2) + Num(3))
'DNA(6) =(Num(2) + Num(4))
'DNA(7) =(Num(2) + Num(5))
'DNA(8) =(Num(3) + Num(4))
'DNA(9) =(Num(3) + Num(5))
'DNA(10) =(Num(4) + Num(5))
stE = StringaEstratti(es,r)
casi = casi + 1
co = 0
Ru(1) = r
es1 = es + 1
es2 = es1 + clp
est = Estratto(es,r,pos) + Estratto(es,r,p2)
'------- calcolo sommativo ---------------
For sm = 1 To 90
co = co + 1
Nu(1) = Fuori90(est + sm)
NuFr(co,1) = sm
sf = SerieFreq(es1,es2,Nu,Ru,1)
If sf > 0 Then
NuFr(co,2) = NuFr(co,2) + 1
End If
Next
'End If
'Next
' scrivi testo ............................
Scrivi "Ruota di rilevamento : " & NomeRuota(r)
Scrivi "Stringa estratti : " & stE
Scrivi "Indice mensile : " & Ind
Scrivi "Colpi di Gioco : " & clp
Scrivi "Righe visualizzate : " & smm
'------------------------------------------
Scrivi "DISTAS" & "=" & Format2(DISTAS),1
Scrivi "DISTAM" & "=" & Format2(DISTAM),1
Scrivi "ALGE1" & "=" & Format2(ALGE1),1
Scrivi "ALGE2" & "=" & Format2(ALGE2),1
Scrivi "ALGE3" & "=" & Format2(ALGE3),1
Scrivi "ALGE4" & "=" & Format2(ALGE4),1
Scrivi "ALGE5" & "=" & Format2(ALGE5),1
Scrivi "ALGE6" & "=" & Format2(ALGE6),1
Call OrdinaMatrice(NuFr,- 1,2)
For i = 1 To smm
'NuAdd(1) =(Nu(1))
NuAdd(1) =(Nu(1) + NuFr(i,1))
ReDim V(26)
V(1) = pos & "°" & " di " & SiglaRuota(r) & " = " & est
V(2) = " + " & Format2(CStr(NuFr(i,1)))
V(3) = Format2(NuFr(i,2)) & " su " & casi & " Casi "
V(4) = NuAdd(1)
V(5) = NuAdd(1)
Next
MEN(1) = Fuori90(Abs(ALGE4 +Somm)/2)
MEN(2) = Fuori90(Abs(ALGE4 - Somm)/2)
'MEN(3) = Fuori90(Abs(V(5) - DNA(3)))
'MEN(4) = Fuori90(Abs(V(5) - DNA(4)))
'MEN(5) = Fuori90(Abs(V(5) - DNA(5)))
V(6) = StringaNumeri(DNA)
Ru(2) = 1
Ru(3) = 2
Ru(4) = 3
Ru(5) = 4
Ru(6) = 5
Ru(7) = 6
Ru(8) = 7
Ru(9) = 8
Ru(10) = 9
Ru(11) = 10
Ru(12) = 12
For x = 1 To 3
sff(x) = SerieFreqTurbo(Ini,fin,MEN,Ru,x)
Next
V(7) = MEN(1)
V(8) = MEN(2)
V(9) = MEN(3)
V(10) = MEN(4)
V(11) = MEN(5)
sr = SerieRitardo(Ini,fin,MEN,Ru,1)
Call VerificaEsito(MEN,Ru,es1,1,1,,Esito,colpi,estratti,id)
V(12) = Esito
V(13) = estratti
V(14) = colpi
V(15) = sr
V(16) = K
V(17) = F
V(18) = E
V(19) = AD
V(20) = BD
V(21) = dg(1)
V(22) = dg(2)
V(23) = dg(3)
V(24) = dg(4)
V(25) = AN1
V(26) = AN2
Call AddRigaTabella(V)
rr = 11
If EstrattoFrequenza(rr,MEN(1),es1,es2) > 0 Then Call SetColoreCella(7,0,5)' servono per colorare celle volute
If EstrattoFrequenza(rr,MEN(2),es1,es2) > 0 Then Call SetColoreCella(8,1,6)'idem
If EstrattoFrequenza(rr,MEN(3),es1,es2) > 0 Then Call SetColoreCella(9,6,7)
If EstrattoFrequenza(rr,MEN(4),es1,es2) > 0 Then Call SetColoreCella(10,7,9)
If EstrattoFrequenza(rr,MEN(5),es1,es2) > 0 Then Call SetColoreCella(11,4,7)
If EstrattoFrequenza(rr,dg(1),es1,es2) > 0 Then Call SetColoreCella(21,4,7)
If EstrattoFrequenza(rr,dg(2),es1,es2) > 0 Then Call SetColoreCella(22,4,7)
If EstrattoFrequenza(rr,dg(3),es1,es2) > 0 Then Call SetColoreCella(23,4,7)
If EstrattoFrequenza(rr,dg(4),es1,es2) > 0 Then Call SetColoreCella(24,4,7)
If V(12) = "Ambo" Then Call SetColoreCella(12,2,4)
If V(12) = "Estratto" Then Call SetColoreCella(12,3,1)
If V(12) = "Terno" Then Call SetColoreCella(12,7,4)
If V(12) = "Quaterna" Then Call SetColoreCella(12,8,5)
Scrivi "============================================= ==== ================="
Messaggio DataEstrazione(es,1) & " List.RANDHOUSE " ' < - - - - Numero estrazioni
ImpostaGiocata 1,MEN,Ru,posta,clp
Gioca es
'End If
Next
casi = 0
Call CreaTabella()
ScriviResoconto
ColoreTesto 2 :Scrivi String(37,32) & " Randhouse",1
Scrivi String(47,32) & "List. RANDHOUSE",1
ColoreTesto 0
End Sub
Quando puoi ti allego lo script e dai un'occhiata...Dall'ultima mia idea ho sviluppato come trovare la "distanza " applicando la somma...sono disattivati gli ultimi numeri
perchè la ricerca è su ambo secco...per il momento a tutte le ruote....Tuttavia per mia incapacità ho dovuto o meglio non uso la funzione Nufr perchè non so come piazzarla....mi servirebbe qualche automazione: quando mi rispondi ti spiegherò meglio in dettagli....
Scrivi String(47,32) & "List. RANDHOUSE",1
ColoreTesto 0
Sub Main
Dim Nu(1),NuFr(90,5),NuAdd(1),aN(10),Num(5),DNA(10),MEN(5),sff(3),Nn(5),dg(4),Som(2),Nam(2)
Dim Ru(12),T
Dim poste(3),postee(3)
Dim posta(2)
posta(1) = 1
ini = 9350
fin = EstrazioneFin
r = InputBox("Quale Ruota",,5)
pos = CInt(InputBox("Quale posizione",,1))
'Ind = CInt(InputBox("Quale indiceMensile",,1))
clp = CInt(InputBox("Quanti Colpi di Gioco",,1))
smm = CInt(InputBox("Quante righe ",,5))
T = Array(T,"Estratto","SOMMATIVO","FREQ SU CASI","ESTR + SOMMATIVO","MEN","10 somme DNA","nu1","nu2","nu3","nu4","nu5","Esito","Verifica","Colpo","Ritardo x 1","K","F","E","AD","BD","dg1","dg2","dg3","dg4","AN1","AN2")
Call InitTabella(T,6)
For es = ini To fin
p1 = 1
p2 = 2
a = Estratto(es,r,p1)'''''1°estratto
b = Estratto(es,r,p2)'''''2°estratto
c = Estratto(es - 1,r,p1)''''1°estratto precedente
d = Estratto(es - 1,r,p2)'''2°estratto precedente
AD = Abs(a - b)''''distanza tra il 1°estratto ed il 2°estratto
BD = Abs(c - d)''''distanza tra il 1°estratto precedente ed il 2°estratto precedente
casi = casi + 1
For p1 = 1 To 5
Num(p1) = Estratto(es,r,p1)
Num(p2) = Estratto(es,r,p2)
Nn(1) = c
Nn(2) = d
AN1 =(AD + BD)'1°anello
AN2 = Abs(AD - BD)'2°anello
Nam(1) = AN1
Nam(2) = AN2
dg(1) = Abs(a - c)'''sottrazioni in verticale
dg(2) = Abs(a - d)'''sottrazioni in verticale
dg(3) = Abs(b - c)'''sottazioni in verticale
dg(4) = Abs(b - d)'''sottrazioni in verticale
Som(1) = E
Som(2) = F
E =(a + b)'''Somma 1
F =(c + d)'''Somma 2
K = Abs(E - F)
Somm = 91 'quale somma giocare
'metodo per ricavare la distanza
ALGE1 = Abs(Somm - E)
ALGE2 = Abs(ALGE1 + E)
ALGE3 =(ALGE1 + ALGE2)
ALGE4 = ALGE3/2
ALGE5 =(ALGE4 + Somm)/2
ALGE6 = Abs(ALGE4 - Somm)/2
'****************************
Next
'DNA(1) =(Num(1) + Num(2))
'DNA(2) =(Num(1) + Num(3))
'DNA(3) =(Num(1) + Num(4))
'DNA(4) =(Num(1) + Num(5))
'DNA(5) =(Num(2) + Num(3))
'DNA(6) =(Num(2) + Num(4))
'DNA(7) =(Num(2) + Num(5))
'DNA(8) =(Num(3) + Num(4))
'DNA(9) =(Num(3) + Num(5))
'DNA(10) =(Num(4) + Num(5))
stE = StringaEstratti(es,r)
casi = casi + 1
co = 0
Ru(1) = r
es1 = es + 1
es2 = es1 + clp
est = Estratto(es,r,pos) + Estratto(es,r,p2)
'------- calcolo sommativo ---------------
For sm = 1 To 90
co = co + 1
Nu(1) = Fuori90(est + sm)
NuFr(co,1) = sm
sf = SerieFreq(es1,es2,Nu,Ru,1)
If sf > 0 Then
NuFr(co,2) = NuFr(co,2) + 1
End If
Next
'End If
'Next
' scrivi testo ............................
Scrivi "Ruota di rilevamento : " & NomeRuota(r)
Scrivi "Stringa estratti : " & stE
Scrivi "Indice mensile : " & Ind
Scrivi "Colpi di Gioco : " & clp
Scrivi "Righe visualizzate : " & smm
'------------------------------------------
Scrivi "DISTAS" & "=" & Format2(DISTAS),1
Scrivi "DISTAM" & "=" & Format2(DISTAM),1
Scrivi "ALGE1" & "=" & Format2(ALGE1),1
Scrivi "ALGE2" & "=" & Format2(ALGE2),1
Scrivi "ALGE3" & "=" & Format2(ALGE3),1
Scrivi "ALGE4" & "=" & Format2(ALGE4),1
Scrivi "ALGE5" & "=" & Format2(ALGE5),1
Scrivi "ALGE6" & "=" & Format2(ALGE6),1
Call OrdinaMatrice(NuFr,- 1,2)
For i = 1 To smm
'NuAdd(1) =(Nu(1))
NuAdd(1) =(Nu(1) + NuFr(i,1))
ReDim V(26)
V(1) = pos & "°" & " di " & SiglaRuota(r) & " = " & est
V(2) = " + " & Format2(CStr(NuFr(i,1)))
V(3) = Format2(NuFr(i,2)) & " su " & casi & " Casi "
V(4) = NuAdd(1)
V(5) = NuAdd(1)
Next
MEN(1) = Fuori90(Abs(ALGE4 +Somm)/2)
MEN(2) = Fuori90(Abs(ALGE4 - Somm)/2)
'MEN(3) = Fuori90(Abs(V(5) - DNA(3)))
'MEN(4) = Fuori90(Abs(V(5) - DNA(4)))
'MEN(5) = Fuori90(Abs(V(5) - DNA(5)))
V(6) = StringaNumeri(DNA)
Ru(2) = 1
Ru(3) = 2
Ru(4) = 3
Ru(5) = 4
Ru(6) = 5
Ru(7) = 6
Ru(8) = 7
Ru(9) = 8
Ru(10) = 9
Ru(11) = 10
Ru(12) = 12
For x = 1 To 3
sff(x) = SerieFreqTurbo(Ini,fin,MEN,Ru,x)
Next
V(7) = MEN(1)
V(8) = MEN(2)
V(9) = MEN(3)
V(10) = MEN(4)
V(11) = MEN(5)
sr = SerieRitardo(Ini,fin,MEN,Ru,1)
Call VerificaEsito(MEN,Ru,es1,1,1,,Esito,colpi,estratti,id)
V(12) = Esito
V(13) = estratti
V(14) = colpi
V(15) = sr
V(16) = K
V(17) = F
V(18) = E
V(19) = AD
V(20) = BD
V(21) = dg(1)
V(22) = dg(2)
V(23) = dg(3)
V(24) = dg(4)
V(25) = AN1
V(26) = AN2
Call AddRigaTabella(V)
rr = 11
If EstrattoFrequenza(rr,MEN(1),es1,es2) > 0 Then Call SetColoreCella(7,0,5)' servono per colorare celle volute
If EstrattoFrequenza(rr,MEN(2),es1,es2) > 0 Then Call SetColoreCella(8,1,6)'idem
If EstrattoFrequenza(rr,MEN(3),es1,es2) > 0 Then Call SetColoreCella(9,6,7)
If EstrattoFrequenza(rr,MEN(4),es1,es2) > 0 Then Call SetColoreCella(10,7,9)
If EstrattoFrequenza(rr,MEN(5),es1,es2) > 0 Then Call SetColoreCella(11,4,7)
If EstrattoFrequenza(rr,dg(1),es1,es2) > 0 Then Call SetColoreCella(21,4,7)
If EstrattoFrequenza(rr,dg(2),es1,es2) > 0 Then Call SetColoreCella(22,4,7)
If EstrattoFrequenza(rr,dg(3),es1,es2) > 0 Then Call SetColoreCella(23,4,7)
If EstrattoFrequenza(rr,dg(4),es1,es2) > 0 Then Call SetColoreCella(24,4,7)
If V(12) = "Ambo" Then Call SetColoreCella(12,2,4)
If V(12) = "Estratto" Then Call SetColoreCella(12,3,1)
If V(12) = "Terno" Then Call SetColoreCella(12,7,4)
If V(12) = "Quaterna" Then Call SetColoreCella(12,8,5)
Scrivi "============================================= ==== ================="
Messaggio DataEstrazione(es,1) & " List.RANDHOUSE " ' < - - - - Numero estrazioni
ImpostaGiocata 1,MEN,Ru,posta,clp
Gioca es
'End If
Next
casi = 0
Call CreaTabella()
ScriviResoconto
ColoreTesto 2 :Scrivi String(37,32) & " Randhouse",1
Scrivi String(47,32) & "List. RANDHOUSE",1
ColoreTesto 0
End Sub
