Ciao, Luana.
Ecco lo script senza condizione 90.
apici per disattivare la condizione 90.
Attendo un tuo commento sui risultati di entrambe le versioni.
Sub main()
'Metodo Byron proposto da Luana
'Script di Cinzia
Dim n(1),ru(1),estr(7),estr1(7),estr2(7),estr3(7),estr4(7),ps(1)
ps(1)=1
For r=1 To 11
If r=11 Then r=12
ru(1)=r
For es=1 To EstrazioneFin-1
If Estratto(es,r,1)>0 Then
e1=Estratto(es,r,1):e2=Estratto(es,r,2):e3=Estratto(es,r,3):e4=Estratto(es,r,4):e5=Estratto(es,r,5):ee1=Estratto(es+1,r,1):ee2=Estratto(es+1,r,2)
e2=Estratto(es,r,2):e3=Estratto(es,r,3):e4=Estratto(es,r,4):e5=Estratto(es,r,5):ee1=Estratto(es+1,r,1):ee2=Estratto(es+1,r,2):ee3=Estratto(es+1,r,3)
e3=Estratto(es,r,3):e4=Estratto(es,r,4):e5=Estratto(es,r,5):ee1=Estratto(es+1,r,1):ee2=Estratto(es+1,r,2):ee3=Estratto(es+1,r,3):ee4=Estratto(es+1,r,4)
e4=Estratto(es,r,4):e5=Estratto(es,r,5):ee1=Estratto(es+1,r,1):ee2=Estratto(es+1,r,2):ee3=Estratto(es+1,r,3):ee4=Estratto(es+1,r,4):ee5=Estratto(es+1,r,5)
e5=Estratto(es,r,5):ee1=Estratto(es+1,r,1):ee2=Estratto(es+1,r,2):ee3=Estratto(es+1,r,3):ee4=Estratto(es+1,r,4):ee5=Estratto(es+1,r,5)
estr(1)=e1:estr(2)=e2:estr(3)=e3:estr(4)=e4:estr(5)=e5:estr(6)=ee1:estr(7)=ee2
estr1(1)=e2:estr1(2)=e3:estr1(3)=e4:estr1(4)=e5:estr1(5)=ee1:estr1(6)=ee2:estr1(7)=ee3
estr2(1)=e3:estr2(2)=e4:estr2(3)=e5:estr2(4)=ee1:estr2(5)=ee2:estr2(6)=ee3:estr2(7)=ee4
estr3(1)=e4:estr3(2)=e5:estr3(3)=ee1:estr3(4)=ee2:estr3(5)=ee3:estr3(6)=ee4:estr3(7)=ee5
estr4(1)=e5:estr4(2)=ee1:estr4(3)=ee2:estr4(4)=ee3:estr4(5)=ee4:estr4(6)=ee5
sv1=Fuori90(e1+e2+e3+e4+e5)
If sv1<10 Then sv1=sv1+90
sv2=Fuori90(e2+e3+e4+e5+ee1)
If sv2<10 Then sv2=sv2+90
sv3=Fuori90(e3+e4+e5+ee1+ee2)
If sv3<10 Then sv3=sv3+90
sv4=Fuori90(e4+e5+ee1+ee2+ee3)
If sv4<10 Then sv4=sv4+90
sv5=Fuori90(e5+ee1+ee2+ee3+ee4)
If sv5<10 Then sv5=sv5+90
sv6=Fuori90(ee1+ee2+ee3+ee4+ee5)
If sv6<10 Then sv6=sv6+90
d1=Abs(e1-e2):d2=Abs(e2-e3):d3=Abs(e3-e4):d4=Abs(e4-e5):d5=Abs(e5-ee1):d6=Abs(ee1-ee2)
dd1=Abs(sv1-sv2):dd2=Abs(sv2-sv3):dd3=Abs(sv3-sv4):dd4=Abs(sv4-sv5):dd5=Abs(sv5-sv6)
sd=Fuori90(d1+d2+d3+d4+d5+d6)
sd1=Fuori90(dd1+dd2+dd3+dd4+dd5)
ssdd=Fuori90(sd+sd1)
ssvv=Fuori90(sv1+sv2+sv3+sv4+sv5+sv6)
x=Fuori90(ssdd+ssvv)
'If x=90 Then
casi=casi+1
Scrivi
Scrivi "Caso "&casi&" "& String(40,"="),1
Scrivi " Riga h=differenze numeri 1° riga"
Scrivi " Riga o=differenze somme colonne "
Scrivi
Scrivi " "&siglaruota(r)
Scrivi " "&FormatSpace(es,4,1)&" "&StringaEstratti(es,r)
Scrivi " "&FormatSpace(es+1,4,1)&" "&StringaEstratti(es+1,r)
Scrivi
Scrivi " a b c d e f g h"
Scrivi " "&StringaNumeri(estr)&" "&d1&" "&d2&" "&d3&" "&d4&" "&d5&" "&d6
Scrivi " "&StringaNumeri(estr1)
Scrivi " "&StringaNumeri(estr2)
Scrivi " "&StringaNumeri(estr3)
Scrivi " "&StringaNumeri(estr4)&" o"
Scrivi " "&sv1&" "&sv2&" "&sv3&" "&sv4&" "&sv5&" "&sv6&" "&dd1&" "&dd2&" "&dd3&" "&dd4&" "&dd5
Scrivi
Scrivi "somma differenze riga superiore "&sd
Scrivi "somma differenze riga inferiore "&sd1
Scrivi "somma differenze righe superiore + inferiore "&ssdd
Scrivi "somma delle somme delle colonne "&ssvv
'ColoreTesto 2
'Scrivi "Si è realizzata l' equazione perfetta - il 1° futuro estratto è "&ee1&" ( 1° Estratto 2 estrazione ) + "&ssdd&" (somma differenze ) = ",0,0
n(1)=Fuori90(ee1 + ssdd)
Scrivi Format2(n(1)),1
ImpostaGiocata 1,n,ru,ps,150,1
Gioca es
'ColoreTesto 0
End If
'End If
Next
Next
ScriviResoconto
End Sub
