xMIKE58

[Zetrix]

salvo quindi si deve scrivere col fuori90 la divisione della somma..?

88755/90=986,16

in teoria come si deve scrivere fuori90.. 986,16 = ?
puoi scrivere un esempio che da il resto di 15

 

[salvo50]

salvo quindi si deve scrivere col fuori90 la divisione della somma..?

Secondo me si

 

[Zetrix]

e come si deve scrivere il fuori90 ----->88755/90=986,16
oppure il fuori90 ----->986,16
comunque il resto della divisione qua da il 16
a meno che non considera dopo la virgola 986,16666666
e avrà calcolato il resto di 15 per eccesso o per difetto..
comunque secondo me sono meglio le equazioni con l'algebra
questa teoria di prendere il resto della divisione di una somma
non mi piace tanto
se puoi scrivere un esempio cosi vedo come lo calcoli il resto di 15

 

[salvo50]

è solo un esempio poi puoi scriverlo come piace a te

Sub Main
   Dim ambata1(5),ruota(5),ruote(5),posta(5)
   Dim ambo1(2),ambo2(2),ambo3(2)
   Dim a,b,c,d,e,x,t,z,w
   Dim f,ff,g,h,i,l,j,y,v,q
   Dim s1,s2,s3,s4,s5
   Dim r,es,rs
   '
   'posta(1) = 1
   posta(2) = 1
   posta(3) = 1
   posta(4) = 1
   posta(5) = 1
   '
   ' formula diemme di domenico Manna
   '
   rs = InputBox("Quante estrazioni vuoi controllare?",,0)
   '
   k = 0
   For es = EstrazioneFin - rs To EstrazioneFin
      For r = 1 To 11
         If r = 11 Then r = 12 End If
         '
         a = Estratto(es,r,1)
         b = Estratto(es,r,2)
         c = Estratto(es,r,3)
         d = Estratto(es,r,4)
         e = Estratto(es,r,5)
         '---------------------------------------
         '------------------------------------------------
         s1 = 16*a
         s2 = 8*b
         s3 = 4*c
         s4 = 2*d
         s5 = 1*e
         '
         q = s1 + s2 + s3 + s4 + s5
         f =((16*a + 8*b + 4*c + 2*d + e)*61)
         g =(f / 90)
         j = Left((g),7)
         y = Right((j),2)
         '
         '
         z = Fuori90(y*2 - a)
         w = Fuori90(z*2 - b)
         v = Fuori90(w*2 - c)
         x = Fuori90(v*2 - d)
         t = Fuori90(x*2 - e)
         '------------------------------------------
         ambata1(1) = z
         ambata1(2) = w
         ambata1(3) = v
         ambata1(4) = x
         ambata1(5) = t
         '------------------------------------------------
         '---------------------------------------------
         ruota(1) = r
         '-------------------------------
         ruote(1) = r
         ruote(2) = 11
         ruote(3) = 12
         '------------------------------
         '-------------------------------
         '
         ReDim MatriceCaselleDaEvid(5,1)
         '
         MatriceCaselleDaEvid(1,0) = r
         MatriceCaselleDaEvid(1,1) = 1
         '
         MatriceCaselleDaEvid(2,0) = r
         MatriceCaselleDaEvid(2,1) = 2
         '
         MatriceCaselleDaEvid(3,0) = r
         MatriceCaselleDaEvid(3,1) = 3
         '
         MatriceCaselleDaEvid(4,0) = r
         MatriceCaselleDaEvid(4,1) = 4
         '
         MatriceCaselleDaEvid(5,0) = r
         MatriceCaselleDaEvid(5,1) = 5
         '
         Call DisegnaEstrazione(es,MatriceCaselleDaEvid)
         '
         Scrivi("" & "16 x " &(a) & " = " &(s1) & " + "),0,1,1,5
         Scrivi("" & "8 x " &(b) & " = " &(s2) & " + "),0,1,1,5
         Scrivi("" & "4 x " &(c) & " = " &(s3) & " + "),0,1,1,5
         Scrivi("" & "2 x " &(d) & " = " &(s4) & " + "),0,1,1,5
         Scrivi("" & "1 x " &(e) & " = " &(s5) & " = "),0,1,1,5
         '
         Scrivi("_________" & q & " x 61 = " & f & ""),0,1,4,1
         'Scrivi("" & f & " / 90 = " & g & ""),0,1,3,1
         ff = Fuori90(f)
         Scrivi("" & ff & " è il Fuori90 di "& f),0,1,1,3
         Scrivi("" & j & "")
         Scrivi("" & y & "")
         Scrivi
         ImpostaGiocata 1,ambata1,ruote,posta,k
         Gioca es,1,,1
         Scrivi
         Scrivi
         Scrivi
      Next
   Next
End Sub

 

[i legend]

Ciao a tutti , leggo solo ora.
Zerrix sto facendo l altro script.

Grazie Salvo

 

[salvo50]

comunque quando fai la divisione per 90 il resto della divisione NON E' IL FUORI90, per avere il fuori90 con il resto della divisione, devi moltiplicare il resto per 90, ma con tutti quei numeri decimali il risultato non sarà quasi mai preciso.

Ti faccio un esempio pratico, usa la calcolatrice di windows fai 95 / 90 da come risultato
1,055555555555556

ebbene a questo punto sattrai 1 per avere solo i numeri decimali ed ottieni

0,055555555555556

questo numero lo moltiplichi per 90 ed hai 5 il fuori 90 di 95

0,055555555555556*90 = 5

 

[Zetrix]

ok salvo ma adesso si pone un altro problema come si fa a scrivere
solo i numeri decimali dopo la virgola e dopo calcolare per 90 e fare il fuori90

scrivo un esempio la divisione della somma da quattro numeri e dopo la virgola
scrive i decimali

j = 1420.62222222222

ma un altra divisione della somma da tre numeri e dopo la virgola scrive i decimali

j = 798.422222222222

y = Right((j), ?)

oppure si deve sottrarre il numero intero e dopo calcolare i decimali per 90
ma come si scrive il codice nello script..

 

[Zetrix]

ok ilegend per l'altro script quanto vuoi mettilo cosi vediamo gli esiti
della piramida

 

[Zetrix]

Vedi l'allegato 2267982

ilegend ecco la formula diemme

il resto di 15 come a scritto deve essere nella cinquina ma i calcoli che ho fatto
sono diversi quindi si dovrà calcolare bene il resto della divisione e dopo fare
il fuori90
un po complicata questa formula diemme con il resto della divisione..

 

[salvo50]

Allora ti dico come farei io
La divisione la faccio con l'operatore della divisione \
in modo che il risultato è solo la parte intera
e poi farei il fuori 90 dal numero che mi interessa
senza fare il resto per 90
Io te l'ho detto della moltiplicazione per 90
perché te eri convinto che il resto della divisione
fosse il fuori 90

 

[joe]

Tutto bello !

Ma c'è il teorema di Joe: Se uno ha UN METODO per vincere al lotto, non ha bisogno di inventarne tre al giorno.

In Basic esiste Mod che restituisce il resto della divisione

Scrivi 18 Mod 4 ... restituisce 2

Perché 4 * 4 = 16 + 2 (di resto) = 18

 

[Zetrix]

ok salvo un po complicato il resto della divisione non so perche l'autore
a calcolato il resto della divisione

 

[Zetrix]

Tutto bello !

Ma c'è il teorema di Joe: Se uno ha UN METODO per vincere al lotto, non ha bisogno di inventarne tre al giorno.

In Basic esiste Mod che restituisce il resto della divisione

Scrivi 18 Mod 4 ... restituisce 2

Perché 4 * 4 = 16 + 2 (di resto) = 18

grazie Joe quindi dovrei scrivere Mod che restituisce il resto della divisione..

 

[Zetrix]

Joe questi sono i miei metodi ne invento tre al giorno..

l'85 a BA rit da 47 turni e non so se darà questa ambata...
e un numero ritardatario..per ambo si puo tentare il 10 85..

 

[salvo50]

Ciao Joe hai trovato una soluzione perfetta

 

[i legend]

Zetrix non mi sta riuscendo .
Negli ultimi 100 estrazioni
Con ruote consecutive
Imposto anche nz-Ba
Dum ar= array(0,12,1,2,3,4,5,6,7,8,9,10,12)
Ruote consecutive
Posizioni consecutive
Distanza orizzontale = tra le due coppie 1.2 e 3.4
Distanza diagonale = ta 1 e 4 e 2, 3
ho trovato 51 casi
In 18 colpi sono usciti 2 ambi sulla prima ruota
2 ambi sulla seconda
E 12 ambi secchi a tutte.

Sicuramente ho sbagliato qualcosa io.
Se a te funzionava.
Se qualcun altro vuole provare.
Vertice della piramide e numero più grande dei 4

Riprovo domani ora sono stanco.

 

[Zetrix]

ilegend non so cosa ai combinato con lo script ma che ti metti a fare
la stastistica su 100 estr ma non la devi proprio fare la statistica
nessuna tecnica ti darà il 100x100 poi perche tra le due coppie 1.2 e 3.4
avevo scritto ambo unito e ruote consecutive..
e il numero di abb il numero maggiore dei quattro numeri e non si deve fare altro..

 

[i legend]

Coppia 1: 1Ba;2Ba
Coppia 2: 1Ca; 2ca
Distanza orizzontale
[1BA;2BA]=[1CA;2CA]
DISTANZA OBLIQUA
[1BA;2CA]=[2BA;1CA]

RUOTE CONSECUTIVE
POSIZIONI COMSECUTIVE
DISTANZE UGUALI

Così è giusto?
Se è giusto
fatta la piramide e preso il numero più grande .
domani mattina ricontrollo.
Buona notte.

 

[Zetrix]

ilegend ma quanto scrivi Coppia 1: 1Ba;2Ba e un esempio oppure consideri
solo BA E CA ..
l'ambo unito e su tutte le ruote se ce la condizione della dist uguale ma
nello script non scrivere distanza tra gli ambi ma scrivi differenza con il vincolo =< 45

buonanotte

 

[Zetrix]

buongiorno.

Joe ho letto che l'operatore MOD restituisce il resto della divisione ma non so
come si scrive nello script..

L'operatore MOD acquisisce due espressioni numeriche e restituisce il resto della divisione. Per esempio, il risultato di 21 MOD 6 è 3 perché dopo aver diviso 21 per 6, il resto della divisione è 3. Se l'operazione MOD coinvolge valori non interi entrambi gli operandi vengono arrotondati ai valori interi più vicini.

21 : 6 = 3,5 ------> 3

Calocolo resto divisione con Operatore Mod

social.msdn.microsoft.com

scrivo un esempio

s1 = ((16*a + 8*b + 4*c + 2*d + 1*e)*61)
s2 = (s1 / 90)
s3 = s1 Mod s2 .... ?

se scrivo cosi lo script non da errore ma devo vedere se da i risultati esatti
con il resto della divisione..