Listato del metodo per SpazioMetria
'https://image.forumfree.it/1/3/1/4/0/5/5/6/1661943983.jpg
'https://enzob-metodieprevisioni.forumfree.it/?t=79202328&st=75#newpost
' ANCHE NON ISOTOPI
'31-08-2022
ColoreTesto 2 :Scrivi String(17,32) & " IL SOGNO DEL TERNO aggiornato al 31-08-2022 by Enzob",1
ColoreTesto 0
Sub Main()
Dim nu1(10),nu2(10),nu3(3),nu4(10),am(5),am3(3),am4(5),amb(3),amb1(3),amb2(3)
Dim ruote(10),ruota(10)
Dim poste(5),posta(5),poste2(5),poste3(5)
posta(1) = 1
poste(2) = 1
poste2(2) = 1
poste2(3) = 1
poste3(2) = 1.20
poste3(3) = 1.40
poste3(4) = .40
'z=CInt(InputBox ("Quante estrazione controllare?","estrazioni",20))
k = CInt(InputBox("Quanti colpi di Gioco?","colpi di Gioco",9))
fin = EstrazioneFin
ini = 9972'fin-z
For es = ini To fin
Messaggio DataEstrazione(es,1) & " IL SOGNO DEL TERNO aggiornato al 02-08-2022 by Enzob "
For r1 = 1 To 10
If r1 = 11 Then r1 = 12
For p1 = 4 To 4
For p2 = p1 + 1 To 5
n1 = Estratto(es,r1,p1)
n2 = Estratto(es,r1,p2)
If Distanza(n1,n2) = 10 Then
For r2 = 1 To 10
If r2 = 11 Then r2 = 12
For p3 = 1 To 5
If r1 <> r2 Then
n3 = Estratto(es,r2,p3)
If(n3 = 10 And Distanza(n1,n2) = 10)Then
amb(1) = Fuori90(Estratto(es,9,3) + Estratto(es,12,3) + 82)'ambata
amb(2) = Fuori90(Estratto(es,1,2) + Estratto(es,2,4) + 61)'ambo
amb(3) = Fuori90(Estratto(es,8,1) + Estratto(es,8,5) + 4)'terno
Rem se uno o più numeri si ripetono si fa il + 1 (Formula By Thauk)
rip = 0
If NumeriRipetuti(amb) Then
rip = 1
While NumeriRipetuti(amb)
For x = 1 To 2
For y = x + 1 To 3
If amb(
= amb(y) Then amb(y) = Fuori90(amb(y) + 1)
Next
Next
Wend
End If
Rem fine formula
amb1(1) = Fuori90(Estratto(es,3,1) + Estratto(es,4,5) + 3)'ambata
amb1(2) = Fuori90(Estratto(es,3,5) + Estratto(es,12,5) + 25)'ambo
amb1(3) = Fuori90(Estratto(es,2,2) + Estratto(es,3,4) + 3)'terno
Rem se uno o più numeri si ripetono si fa il + 1 (Formula By Thauk)
rip = 0
If NumeriRipetuti(amb1) Then
rip = 1
While NumeriRipetuti(amb1)
For x = 1 To 2
For y = x + 1 To 3
If amb1(
= amb1(y) Then amb1(y) = Fuori90(amb1(y) + 1)
Next
Next
Wend
End If
Rem fine formula
amb2(1) = Fuori90(Estratto(es,2,2) + Estratto(es,5,5) + 1)'ambata
amb2(2) = Fuori90(Estratto(es,1,5) + Estratto(es,4,2) + 1)'ambo
amb2(3) = Fuori90(Estratto(es,1,1) + Estratto(es,12,4) + 1)'terno
Rem se uno o più numeri si ripetono si fa il + 1 (Formula By Thauk)
rip = 0
If NumeriRipetuti(amb2) Then
rip = 1
While NumeriRipetuti(amb2)
For x = 1 To 2
For y = x + 1 To 3
If amb2(
= amb2(y) Then amb2(y) = Fuori90(amb2(y) + 1)
Next
Next
Wend
End If
Rem fine formula
casi = casi + 1:Scrivi String(75,"="),1
Scrivi String(65,"-") & " caso n° " &(casi),1
Scrivi
Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & " " & Format2(n1) & " " & Format2(n2),1
Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & " " & Format2(n3),1
Scrivi
ColoreTesto 2
Scrivi
If p3 = p1 Or p3 = p2 Then Scrivi" ESTRATTI ISOTOPI",1
ColoreTesto 2
Scrivi
ruota(1) = r1:ruota(2) = r2:ruota(3) = 11
ruote(1) = r1:ruote(2) = r2:co = 0
am(1) = amb(1)
am(2) = amb1(1)
am(3) = amb2(1)
ImpostaGiocata 1,am,ruote,posta,k
am4(1) = amb(1)
am4(2) = amb(2)
am4(3) = amb(3)
ImpostaGiocata 2,am4,ruota,poste2,k
am4(1) = amb1(1)
am4(2) = amb1(2)
am4(3) = amb1(3)
ImpostaGiocata 3,am4,ruota,poste2,k
am4(1) = amb2(1)
am4(2) = amb2(2)
am4(3) = amb2(3)
ImpostaGiocata 4,am4,ruota,poste2,k
Gioca es
End If
End If
Next
Next
End If
Next
Next
Next
Next
ScriviResoconto
End Sub