Questa mattina alla televisione

[morena59]

Metodino per BA-CA
ho cambiato le chiavi
originali 23-46
io ho messo 13-26
che sembrerebbero aumentare gli esiti.
Bah! Non dico niente,cmq utile per estrapolare convergenze.

Sub Main() Dim ruote(2)
Dim posta(1)
Dim poste(2)
Dim n(1)
Dim am(5)
ruote(1) = 1
ruote(2) = 2
posta(1) = 1
poste(2) = 1
clp = 9
ini = EstrazioneFin - 50
fin = EstrazioneFin


co = 0
For es = ini To fin

AvanzamentoElab ini,fin,es
a = Estratto(es,1,5)
b = Estratto(es,2,5)
c = (a + b)
d = Fuori90(c + 20)'1° numero x la quadratura
e = Fuori90(c - 20) '2° numero x la quadratura
f = Fuori90(d + e)
g = Fuori90( 90 + (f - 13)) '3° numero x la quadratura
h = Fuori90( 90 + (f - 26)) '4° numero x la quadratura
h1 = Fuori90(d + g) '1°numero In gioco
l = Fuori90(e + h) ' 2° numero in gioco
m = Fuori90(d + h) '3° numero in gioco
o = Fuori90(e + g) '4° numero in gioco
p = Fuori90(m + o) 'capogioco e 5° numero in gioco

n(1) = p
am(1) = h1
am(2) = l
am(3) = m
am(4) = o
am(5) = p



co = co + 1
ImpostaGiocata 1,n,ruote,posta,clp,1
posta(1) = n(1)
ImpostaGiocata 2,am,ruote,poste,clp,2
am(1) = h1
am(2) = l
am(3) = m
am(4) = o
am(5) = p
Gioca es
Next
Scrivi
Scrivi String(65,"•")
ColoreTesto 2
Scrivi "casi trovati : " & co,1
ColoreTesto 0
Scrivi String(65,"•")
TestoInBandaPassante " ***** Listato by Antelao ***** ",1,3,0
ScriviResoconto
End Sub

 

[janez57]

Buona sera Antelao

Ho provato lo script messo a disposizione però secondo me c'è un errore.
Ho provato i conteggi del 19-11-11.A lei dà ambata 3 con abbinamenti 28-65-15-78
invece a me fatto a mano mi viene ambata 6 con abbinamenti 18-78-28-68.
Gentilmente se può controllare eventualmente metta la modifica riportata.

Grazie
Janez57

 

[morena59]

Ciao Janez,
in effetti ho riscontrato anch'io alcuni errori.
Ora provo a vedere del perchè!
Sono alle prime armi con lo script e....
è già qualcosa che gira

 

[Mike58]

Ciao l'errore sicuramente sta nelle addizioni delle righe senza il fuori90


a = Estratto(es,1,5)
b = Estratto(es,2,5)
c =(a + b)
d = Fuori90(c + 20)'1° numero x la quadratura
e = Fuori90(c - 20) '2° numero x la quadratura
f =(d + e)
g = Fuori90(f - 13) '3° numero x la quadratura
h = Fuori90(f - 26) '4° numero x la quadratura
h1 = Fuori90(d + g) '1°numero In gioco
l = Fuori90(e + h) ' 2° numero in gioco
m = Fuori90(d + h) '3° numero in gioco
o = Fuori90(e + g) '4° numero in gioco
p = Fuori90(m + o) 'capogioco e 5° numero in gioco

 

[beppe401]

Sub Main() Dim ruote(2)
Dim posta(1)
Dim poste(2)
Dim n(1)
Dim am(5)
ruote(1) = 1
ruote(2) = 2
posta(1) = 1
poste(2) = 1
clp = 9
ini = EstrazioneFin - 50
fin = EstrazioneFin




co = 0
For es = ini To fin


AvanzamentoElab ini,fin,es
a = Estratto(es,1,5)
b = Estratto(es,2,5)
c =Fuori90(a + b)
d = Fuori90(c + 20)'1° numero x la quadratura
e = Abs(c - 20) '2° numero x la quadratura
f =Fuori90(d + e)
g = Abs(f - 13) '3° numero x la quadratura
h = Abs(f - 26) '4° numero x la quadratura
h1 = Fuori90(d + g) '1°numero In gioco
l = Fuori90(e + h) ' 2° numero in gioco
m = Fuori90(d + h) '3° numero in gioco
o = Fuori90(e + g) '4° numero in gioco
p = Fuori90(m + o) 'capogioco e 5° numero in gioco


n(1) = p
am(1) = h1
am(2) = l
am(3) = m
am(4) = o
am(5) = p






co = co + 1
ImpostaGiocata 1,n,ruote,posta,clp,1
posta(1) = n(1)
ImpostaGiocata 2,am,ruote,poste,clp,2
am(1) = h1
am(2) = l
am(3) = m
am(4) = o
am(5) = p
Gioca es
Next
Scrivi
Scrivi String(65,"•")
ColoreTesto 2
Scrivi "casi trovati : " & co,1
ColoreTesto 0
Scrivi String(65,"•")
TestoInBandaPassante " ***** Listato by Antelao ***** ",1,3,0
ScriviResoconto
End Sub

 

[morena59]

Grazie a tutti ma....
non ci siamo ancora non conosco
bene le funzioni e neppure abs è giusto.
Una domanda,
abs= assoluto?

 

[janez57]

X antelao
Chiedo venia.Ho trovato l'errore,ho sbagliato io ho riportato 23 al posto del 26 per cui lo script
è corretto.

Janez57

 

[Mike58]

Ciao Antaleo, ABS è un numero assoluto fa diventare positivo la sottrazione es 2-20 = -18 = 18 .
Per questa funzione è meglio usare il codice Differenza presente in spazioscript che calcola la reale diffrenza, e poi come dicevo sopra nei calcoli delle somme di 2 o più estratti va sempre usato il fuori90 per ottenere un numero valido giocabile.

 

[morena59]

Ciao Janez,
infatti anch'io avevo dei dubbi ma vedo che con l'aiuto di Mike 58 ho risolto
grazie a tutti

 

[morena59]

Ciao Antaleo, ABS è un numero assoluto fa diventare positivo la sottrazione es 2-20 = -18 = 18 .
Per questa funzione è meglio usare il codice Differenza presente in spazioscript che calcola la reale diffrenza, e poi come dicevo sopra nei calcoli delle somme di 2 o più estratti va sempre usato il fuori90 per ottenere un numero valido giocabile.

Grazie Mike e....
ovviamente anche a Beppe

 

[beppe401]

si da il numero assoluto

 

[morena59]

In questo caso allora abs non va bene.
Se devo fare la sottrazione 18-20 per ottenere 88
devo per forza usare il fuori90

 

[Mike58]

Antaleo prova e fai le tue verifiche

Sub Main
n1 = 88
n2 = 18
risultato1 = Distanza(n1,n2)
risultato2 = Differenza(n1,n2)
risultato3 = Abs(n1-n2)
Scrivi risultato1
Scrivi risultato2
Scrivi risultato3

End Sub

 

[morena59]

Grazie Mike per le dritte,
ma ho provato a usare la funzione distanza e mi risultano altri numeri.
Non penso sia necessario fare delle assegnazioni,dovrebbe riconoscermi
questa operazione:
Distanza(c,20)

 

[morena59]

Sub Main
n1 = 18
n2 = 20
risultato1 = Distanza(n1,n2)
risultato2 = Differenza(n1,n2)
risultato3 = Abs(n1-n2)
Scrivi risultato1
Scrivi risultato2
Scrivi risultato3

End Sub

Io,come risultato devo ottenere 88
invece tutte e 3 le funzioni mi danno 2

 

[Roby]

Ciao Antelao, non ho seguito la discussione, ne ho visto l'intero listato,
ma per far si che ti dia l'88......................

Sub Main
    n1 = 18
    n2 = 20
    risultato1 = 90 + n1 - n2
    risultato2 = 90 + n1 - n2
    Scrivi risultato1
    Scrivi risultato2
    Scrivi risultato3
End Sub

 

[cex69]

Ciao Antaleo, ABS è un numero assoluto fa diventare positivo la sottrazione es 2-20 = -18 = 18 .
Per questa funzione è meglio usare il codice Differenza presente in spazioscript che calcola la reale diffrenza, e poi come dicevo sopra nei calcoli delle somme di 2 o più estratti va sempre usato il fuori90 per ottenere un numero valido giocabile.

Ciao Mike58 mi potresti mettere la riga con la funzione differenza?

grazie

 

[morena59]

Ciao Antelao, non ho seguito la discussione, ne ho visto l'intero listato,
ma per far si che ti dia l'88......................

Sub Main
    n1 = 18
    n2 = 20
    risultato1 = 90 + n1 - n2
    risultato2 = 90 + n1 - n2
    Scrivi risultato1
    Scrivi risultato2
    Scrivi risultato3
End Sub

Ciao Black,
infatti è proprio così! Senz'altro ci sarà una funzione che fa lo stesso lavoro
intanto faccio un pò di operazioni che ottengo il medesimo risultato

 

[Mike58]

Ciao mi ero un pò assentato è ancora vedo che non ne veniamo a capo, anche perchè la soluzione di black non è quella più corretta perche se il risultato
supera il 90 non fa da un numero giocabile.
Si deve usare la funzione DISTANZA quando esempio la somma supera il 90 allora in questo caso fa la distanza nel cerchio ciclometrico.
Se invece la somma non supera il 90 vanno bene tutte le 3 soluzioni.


Sub Main
n1 = 88
n2 = 20
risultato1 = Distanza(n1,n2)
risultato2 = Differenza(n1,n2)
risultato3 = Abs(n1-n2)

Scrivi risultato1
Scrivi risultato2
Scrivi risultato3

Scrivi " black "

n1 = 88
n2 = 20
risultato11 = 90 + n1 - n2
risultato22 = 90 + n1 - n2
Scrivi risultato11
Scrivi risultato22

End Sub

 

[Mike58]

Altra soluzione X Antaleo giusto per materia di script.

Sub Main
n1 = 88
n2 = 20
risultato1 = Distanza(n1,n2)
risultato2 = Differenza(n1,n2)
risultato3 = Abs(n1 - n2)
Scrivi risultato1
Scrivi risultato2
Scrivi risultato3
Scrivi " black "
n1 = 88
n2 = 20
risultato11 = 90 + n1 - n2
risultato22 = 90 + n1 - n2
Scrivi risultato11
Scrivi risultato22
Scrivi "soluzione Antaleo"
n11 = 18
n12 = 20
If n11 < n12 Then
ris =(n11 - n12) + 90
If n12 < n11 Then
ris =(n12 - n11) + 90
End If
End If
Scrivi ris
End Sub