Ciao Lottosenior giusto per fare delle verifiche e magari per ricarvarne delle buone convergenze, ho preparato uno script della tua tabella dei numeri primi.
Ho inserito come gioco di ambata anche il numero fibonacci, giusto per avere delle indicazioni.
Se magari riuscissi ad ampliare qualche altro numero per sorte di ambo vediamo di simularne gli esiti.
Spero di fare cosa gradita mettendo a disposizione lo script.
Ciao Mike58
'------------------------------------
Sub Main
Dim amb(3),pt(1),ruote(1)
pt(1) = 1
rt = CInt(InputBox("Quale ruota analizzare ? "," Mike58 ",1))
clp = 10
ini = EstrazioneFin - 100
fin = EstrazioneFin
co = 0
For es = ini To fin
Messaggio es
ruote(1) = rt
For p = 1 To 5
a = Estratto(es,rt,p)
'-------------------------------------------------------------------
ok = 0
If a = 1 Then b = 2
k = 1
If a = 2 Then b = 3
k = 1
If a = 3 Then b = 5
k = 1
If a = 7 Then b = 8
k = 1
If a = 11 Then b = 13
k = 1
If a = 13 Then b = 21
k = 1
If a = 17 Then b = 21
k = 1
If a = 19 Then b = 21
k = 1
If a = 23 Then b = 34
k = 1
If a = 29 Then b = 34
k = 1
If a = 31 Then b = 34
k = 1
If a = 37 Then b = 55
k = 1
If a = 41 Then b = 55
k = 1
If a = 43 Then b = 55
k = 1
If a = 47 Then b = 55
k = 1
If a = 53 Then b = 55
k = 1
If a = 59 Then b = 89
k = 1
If a = 61 Then b = 89
k = 1
If a = 67 Then b = 89
k = 1
If a = 71 Then b = 89
k = 1
If a = 73 Then b = 89
k = 1
If a = 79 Then b = 89
k = 1
If a = 83 Then b = 89
k = 1
If a = 89 Then b = 89
k = 1
c = Differenza(a,b)
d = Vert(c)
amb(1) = c
amb(2) = d
amb(3) = b
'-------------------------------------------------------------------
If ok = 1 Then
'-------------------------------------------------------------------
co = co + 1
Scrivi String(65,"=") & " numeri primi spia di fibonacci-lottosenior",1
Scrivi String(100,"=") & " Caso n°" & co
Scrivi DataEstrazione(es) & " " & SiglaRuota(rt) & " " & StringaEstratti(es,rt) & " ---> SPIA " & a & " - Posiz. " & P,0,0
Scrivi " - Spia fibonacci " & b
Scrivi String(75,"-")
cg = cg + 1
ImpostaGiocata 1,amb,ruote,pt,clp,1
Gioca es
End If
Next:Next
ScriviResoconto
ColoreTesto 2 :Scrivi String(57,22) & "Numeri Spia di Fibonacci - Tabella di Lottosenior ",1
Scrivi
Scrivi String(58,32) & "Listed by Mike58",1
ColoreTesto 0
End Sub
