PROCEDIMENTO SUMMIT
Con questo metodo ho avuto qualche difficoltà a capire qualche regola, la regola n1, dice che tra i due ambi deve sussistere un rapporto frontale, avevo pensato che il rapporto frontale volesse dire che almeno un numero dovesse essere isotopo, infatti nel primo esempio c'è un numero isotopo, ma nel secondo esempio nessuno dei due numeri è isotopo, quindi non ho capito cosa vuol dire, se qualcuno lo sà e me lo dice modificherò lo script, nella regola n7 dice che la somma degli ambi è di 24, ma io con il procedimento che dice di fare ne ho calcolati solo 18 e negli esempi che fà lui sono 18, forse il Fabarri si è sbagliato, oppure io non riesco a calcolarli, quindi anche con questa regola, se qualcuno riesce a calcolare gli ambi mancanti, modificherò lo script.
Lo script è molto lento, ma dipende dal fatto che ci sono molte giocate, infatti ho fatto un altro script dove ho raccolto tutti i numeri calcolati e giocati in blocco, in 2 giocate una per tutte e l'altra per le due ruote ed è risultato decisamente più veloce.
Primo script, come da articolo'Progetto - PROCEDIMENTO SUMMIT - by FABARRI
'Script - by Salvo50
Option Explicit
Sub Main
Dim R1,R2,P1,P2,P3,P4,Es,CLP1,CLP2,Esq,Caso,Casi
Dim FIn,Ini,Ruote(2),Tutte(1),Poste(2)
Dim Idestr,Col,Esqcol,Amb1,Amb2,Amb3,E1,E2,E3,E4
Dim Num1(2),Num2(2),Num3(2),Num4(2),Num5(2),Num6(2),Num7(2),Num8(2),Num9(2)
Dim Num10(2),Num11(2),Num12(2),Num13(2),Num14(2),Num15(2),Num16(2),Num17(2),Num18(2)
Dim Sor12,Sve13,Sin14,Sin23,Sve24,Sor34,Dor12,Dve13,Din14,Din23,Dve24,Dor34
Dim Sor1234,Sve1324,Sin1423,Dor1234,Dve1324,Din1423
'poste(1) = 1
Poste(2) = 1
FIn = EstrazioneFin
Esq = InputBox("Inserisci l'estrazione che vuoi iniziare",Idestr,5395)'5395 caso 11, primo esempio nell'articolo
CLP1 = CInt(InputBox("Per quanti colpi vuoi fare la ricerca per tutte le ruote?",,7))
CLP2 = CInt(InputBox("Per quanti colpi vuoi fare la ricerca per due ruote?",,7))
Col = CInt(InputBox(" Quante estrazioni vuoi controllare ",,0))
Esqcol = Esq + Col
If Esqcol > FIn Then Esqcol = FIn
For Es = Esq To Esqcol
Caso = 0
AvanzamentoElab Esq,Esqcol,Es
Scrivi
For R1 = 1 To 10
For R2 = R1 + 1 To 12 : Messaggio Es & " " & R1 & " " & R2
If R2 = 11 Then R2 = 12
For P1 = 1 To 2
P2 = P1 + 1
For P3 = P1 + 1 To 4
P4 = P3 + 1
E1 = Estratto(Es,R1,P1)
E2 = Estratto(Es,R1,P2)
E3 = Estratto(Es,R2,P3)
E4 = Estratto(Es,R2,P4)
'E1---E2
'| |
'| |
'E3---E4
If E3 > 0 Then
Sor12 = Fuori90(E1 + E2) : Sor34 = Fuori90(E3 + E4)
Sve13 = Fuori90(E1 + E3) : Sve24 = Fuori90(E2 + E4)
Sin14 = Fuori90(E1 + E4) : Sin23 = Fuori90(E2 + E3)
Sor1234 = Fuori90(Sor12 + Sor34)
Sve1324 = Fuori90(Sve13 + Sve24)
Sin1423 = Fuori90(Sin14 + Sin23)
If Sor1234 = Sve1324 And Sor1234 = Sin1423 Then
'-------------------------------------------------
Dor12 = Distanza(E1,E2) : If Dor12 = 90 Then Dor12 = 45
Dor34 = Distanza(E3,E4) : If Dor34 = 90 Then Dor34 = 45
Dve13 = Distanza(E1,E3) : If Dve13 = 90 Then Dve13 = 45
Dve24 = Distanza(E2,E4) : If Dve24 = 90 Then Dve24 = 45
Din14 = Distanza(E1,E4) : If Din14 = 90 Then Din14 = 45
Din23 = Distanza(E2,E3) : If Din23 = 90 Then Din23 = 45
Dor1234 = Distanza(Dor12,Dor34) : If Dor1234 = 90 Then Dor1234 = 45
Dve1324 = Distanza(Dve13,Dve24) : If Dve1324 = 90 Then Dve1324 = 45
Din1423 = Distanza(Din14,Din23) : If Din1423 = 90 Then Din1423 = 45
If Dor1234 = Dve1324 And Dor1234 = Din1423 Then
Amb1 = Sor1234 + Dor1234 : Amb2 = Amb1 / 2 : Amb3 = Sor1234 - Amb2
Caso = Caso + 1
Casi = Casi + 1
ColoreTesto 1
Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000")
ColoreTesto 2
Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
ColoreTesto 0
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R1) & " " & StringaEstratti(Es,R1),1
Scrivi Space(20) & " Seconda Ruota " & SiglaRuota(R2) & " " & StringaEstratti(Es,R2),1
Scrivi
Scrivi " Ambi Base " & Space(6) & " Somme Oriz." & Space(3) & " Somme Vert." & Space(3) & "Somme Incr. ",0,0
Scrivi Space(10) & "Dist. oriz." & Space(3) & " Dist. Vert." & Space(3) & " Dist. Incr."
Scrivi " " & Format2(E1) & Space(1) & Format2(E2) & Space(16) & Format2(Sor12),0,0
Scrivi Space(12) & Format2(Sve13) & Space(12) & Format2(Sin14) & Space(21),0,0
Scrivi Format2(Dor12) & Space(12) & Format2(Dve13) & Space(12) & Format2(Din14)
'---------------------------------------------------------------------------------------------------
Scrivi " " & Format2(E3) & Space(1) & Format2(E4) & Space(16) & Format2(Sor34),0,0
Scrivi Space(12) & Format2(Sve24) & Space(12) & Format2(Sin23) & Space(21),0,0
Scrivi Format2(Dor34) & Space(12) & Format2(Dve24) & Space(12) & Format2(Din23)
Scrivi String(105,"-")
Scrivi Space(23) & Format2(Sor1234) & Space(12) & Format2(Sve1324),0,0
Scrivi Space(12) & Format2(Sin1423) & Space(21) & Format2(Dor1234) & Space(12),0,0
Scrivi Format2(Dve1324) & Space(12) & Format2(Din1423)
Scrivi
ColoreTesto 1
Scrivi " Ambi Per Tutte Le Ruote (" & Format2(E4) & " " & Format2(Sor1234) & ")-(" & Format2(E4),0,0
Scrivi " " & Format2(Dor1234) & ")-(" & Format2(E4) & " " & Format2(Amb2) & ")-(" & Format2(E4),0,0
Scrivi " " & Format2(Amb3) & ") Sussidiario (" & Format2(Amb2) & " " & Format2(Amb3) & ")"
Scrivi
ColoreTesto 7
Scrivi " Ambi Per Due Ruote (" & Format2(E4) & " " & Format2(Sor1234) & ")-(" & Format2(Sor1234),0,0
Scrivi " " & Format2(E3) & ")-(" & Format2(Sor1234) & " " & Format2(E2) & ")-(" & Format2(Sor1234),0,0
Scrivi " " & Format2(E1) & ")-(" & Format2(Dor1234) & " " & Format2(E1) & ")-(" & Format2(Dor1234),0,0
Scrivi " " & Format2(E4) & ")-(" & Format2(Dor1234) & " " & Format2(E3) & ")-(" & Format2(Dor1234),0,0
Scrivi " " & Format2(E2) & ")"
Scrivi
Scrivi " Sussidiari (" & Format2(Amb2) & " " & Format2(Amb3) & ")-(" & Format2(Amb3),0,0
Scrivi " " & Format2(E3) & ")-(" & Format2(Amb3) & " " & Format2(E4) & ")-(" & Format2(Amb2),0,0
Scrivi " " & Format2(E3) & ")-(" & Format2(Amb2) & " " & Format2(E4) & ")"
Scrivi
ColoreTesto 0
Ruote(1) = R1
Ruote(2) = R2
Tutte(1) = TU_
'Ambi per tutte le ruote
Num1(1) = E4
Num1(2) = Sor1234
Num2(1) = E4
Num2(2) = Dor1234
Num3(1) = E4
Num3(2) = Amb2
Num4(1) = E4
Num4(2) = Amb3
ImpostaGiocata 1,Num1,Tutte,Poste,CLP1,2
ImpostaGiocata 2,Num2,Tutte,Poste,CLP1,2
ImpostaGiocata 3,Num3,Tutte,Poste,CLP1,2
ImpostaGiocata 4,Num4,Tutte,Poste,CLP1,2
'Ambo sussidiario per tutte le ruote
Num5(1) = Amb2
Num5(2) = Amb3
ImpostaGiocata 5,Num5,Tutte,Poste,CLP1,2
'Ambi per due ruote
Num6(1) = Sor1234
Num6(2) = E4
Num7(1) = Sor1234
Num7(2) = E3
Num8(1) = Sor1234
Num8(2) = E2
Num9(1) = Sor1234
Num9(2) = E1
Num10(1) = Dor1234
Num10(2) = E1
Num11(1) = Dor1234
Num11(2) = E4
Num12(1) = Dor1234
Num12(2) = E3
Num13(1) = Dor1234
Num13(2) = E2
ImpostaGiocata 6,Num6,Ruote,Poste,CLP2,2
ImpostaGiocata 7,Num7,Ruote,Poste,CLP2,2
ImpostaGiocata 8,Num8,Ruote,Poste,CLP2,2
ImpostaGiocata 9,Num9,Ruote,Poste,CLP2,2
ImpostaGiocata 10,Num10,Ruote,Poste,CLP2,2
ImpostaGiocata 11,Num11,Ruote,Poste,CLP2,2
ImpostaGiocata 12,Num12,Ruote,Poste,CLP2,2
ImpostaGiocata 13,Num13,Ruote,Poste,CLP2,2
'Ambi sussidiari per due ruote
Num14(1) = Amb3
Num14(2) = Amb2
Num15(1) = Amb3
Num15(2) = E3
Num16(1) = Amb3
Num16(2) = E4
Num17(1) = Amb2
Num17(2) = E3
Num18(1) = Amb2
Num18(2) = E4
ImpostaGiocata 14,Num14,Ruote,Poste,CLP2,2
ImpostaGiocata 15,Num15,Ruote,Poste,CLP2,2
ImpostaGiocata 16,Num16,Ruote,Poste,CLP2,2
ImpostaGiocata 17,Num17,Ruote,Poste,CLP2,2
ImpostaGiocata 18,Num18,Ruote,Poste,CLP2,2
Gioca Es
End If
End If
End If
Next
Next
Next
Next
If ScriptInterrotto Then Exit Sub
Next
ScriviResoconto
Scrivi Space(50) & "Progetto - PROCEDIMENTO SUMMIT - by FABARRI"
Scrivi Space(50) & "Script - by Salvo50"
End Sub
Secondo script, con i numeri raggruppati, in blocco'Progetto - PROCEDIMENTO SUMMIT - by FABARRI
'Modifica sulle ricerche e Script - by Salvo50
Sub Main
Dim R1,R2,P1,P2,P3,P4,Es,Esq,Caso,Casi
Dim FIn,Ini,Ruote(2),Tutte(1),Poste(2)
Dim Idestr,Col,Esqcol,Amb1,Amb2,Amb3
Dim E1,E2,E3,E4,Clp,Clpt
Dim Num1(5),Num2(8),Num3(2),Num4(2),Num5(2)
Dim Sor12,Sve13,Sin14,Sin23,Sve24,Sor34
Dim Dor12,Dve13,Din14,Din23,Dve24,Dor34
Dim Sor1234,Sve1324,Sin1423,Dor1234,Dve1324,Din1423
'poste(1) = 1
Poste(2) = 1
FIn = EstrazioneFin
Esq = InputBox("Inserisci l'estrazione che vuoi iniziare",Idestr,5395)
Clpt = CInt(InputBox("Per quanti colpi vuoi fare la ricerca per tutte le ruote?",,7))
Clp = CInt(InputBox("Per quanti colpi vuoi fare la ricerca su 2 ruote?",,7))
Col = CInt(InputBox(" Quante estrazioni vuoi controllare ",,5))
Esqcol = Esq + Col
If Esqcol > FIn Then Esqcol = FIn
For Es = Esq To Esqcol : Messaggio Es
Caso = 0
AvanzamentoElab Esq,Esqcol,Es
Scrivi
For R1 = 1 To 10
For R2 = R1 + 1 To 12
If R2 = 11 Then R2 = 12
For P1 = 1 To 3
P2 = P1 + 1
For P3 = P1 + 1 To 4
P4 = P3 + 1
E1 = Estratto(Es,R1,P1)
E2 = Estratto(Es,R1,P2)
E3 = Estratto(Es,R2,P3)
E4 = Estratto(Es,R2,P4)
'E1---E2
'| |
'| |
'E3---E4
If E3 > 0 Then
Sor12 = Fuori90(E1 + E2) : Sor34 = Fuori90(E3 + E4)
Sve13 = Fuori90(E1 + E3) : Sve24 = Fuori90(E2 + E4)
Sin14 = Fuori90(E1 + E4) : Sin23 = Fuori90(E2 + E3)
Sor1234 = Fuori90(Sor12 + Sor34)
Sve1324 = Fuori90(Sve13 + Sve24)
Sin1423 = Fuori90(Sin14 + Sin23)
If Sor1234 = Sve1324 And Sor1234 = Sin1423 Then
'-------------------------------------------------
Dor12 = Distanza(E1,E2) : If Dor12 = 90 Then Dor12 = 45
Dor34 = Distanza(E3,E4) : If Dor34 = 90 Then Dor34 = 45
Dve13 = Distanza(E1,E3) : If Dve13 = 90 Then Dve13 = 45
Dve24 = Distanza(E2,E4) : If Dve24 = 90 Then Dve24 = 45
Din14 = Distanza(E1,E4) : If Din14 = 90 Then Din14 = 45
Din23 = Distanza(E2,E3) : If Din23 = 90 Then Din23 = 45
Dor1234 = Distanza(Dor12,Dor34) : If Dor1234 = 90 Then Dor1234 = 45
Dve1324 = Distanza(Dve13,Dve24) : If Dve1324 = 90 Then Dve1324 = 45
Din1423 = Distanza(Din14,Din23) : If Din1423 = 90 Then Din1423 = 45
If Dor1234 = Dve1324 And Dor1234 = Din1423 Then
Amb1 = Sor1234 + Dor1234 : Amb2 = Amb1 / 2 : Amb3 = Sor1234 - Amb2
Caso = Caso + 1
Casi = Casi + 1
ColoreTesto 1
Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000")
ColoreTesto 2
Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
ColoreTesto 0
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & Left(NomeRuota(R1),2) & " " & StringaEstratti(Es,R1),1
Scrivi Space(20) & " Seconda Ruota " & Left(NomeRuota(R2),2) & " " & StringaEstratti(Es,R2),1
Scrivi
Scrivi " Ambi Base " & Space(6) & " Somme Oriz." & Space(3) & " Somme Vert." & Space(3) & "Somme Incr. ",0,0
Scrivi Space(10) & "Dist. oriz." & Space(3) & " Dist. Vert." & Space(3) & " Dist. Incr."
Scrivi " " & Format2(E1) & Space(1) & Format2(E2) & Space(16) & Format2(Sor12),0,0
Scrivi Space(12) & Format2(Sve13) & Space(12) & Format2(Sin14) & Space(21),0,0
Scrivi Format2(Dor12) & Space(12) & Format2(Dve13) & Space(12) & Format2(Din14)
'---------------------------------------------------------------------------------------------------
Scrivi " " & Format2(E3) & Space(1) & Format2(E4) & Space(16) & Format2(Sor34),0,0
Scrivi Space(12) & Format2(Sve24) & Space(12) & Format2(Sin23) & Space(21),0,0
Scrivi Format2(Dor34) & Space(12) & Format2(Dve24) & Space(12) & Format2(Din23)
Scrivi String(105,"-")
Scrivi " Somma delle Somme " & Format2(Sor1234) & Space(12) & Format2(Sve1324),0,0
Scrivi Space(12) & Format2(Sin1423) & " Dist. delle Dist. " & Format2(Dor1234) & Space(12),0,0
Scrivi Format2(Dve1324) & Space(12) & Format2(Din1423)
Scrivi
ColoreTesto 1
Scrivi " Ambi Per Tutte Le Ruote (" & Format2(E4) & " " & Format2(Sor1234) & ")-(" & Format2(E4),0,0
Scrivi " " & Format2(Dor1234) & ")-(" & Format2(E4) & " " & Format2(Amb2) & ")-(" & Format2(E4),0,0
Scrivi " " & Format2(Amb3) & ") Sussidiario (" & Format2(Amb2) & " " & Format2(Amb3) & ")"
Scrivi
ColoreTesto 7
Scrivi " Ambi Per Due Ruote (" & Format2(E4) & " " & Format2(Sor1234) & ")-(" & Format2(Sor1234),0,0
Scrivi " " & Format2(E3) & ")-(" & Format2(Sor1234) & " " & Format2(E2) & ")-(" & Format2(Sor1234),0,0
Scrivi " " & Format2(E1) & ")-(" & Format2(Dor1234) & " " & Format2(E1) & ")-(" & Format2(Dor1234),0,0
Scrivi " " & Format2(E4) & ")-(" & Format2(Dor1234) & " " & Format2(E3) & ")-(" & Format2(Dor1234),0,0
Scrivi " " & Format2(E2) & ")"
Scrivi
Scrivi " Sussidiari (" & Format2(Amb2) & " " & Format2(Amb3) & ")-(" & Format2(Amb3),0,0
Scrivi " " & Format2(E3) & ")-(" & Format2(Amb3) & " " & Format2(E4) & ")-(" & Format2(Amb2),0,0
Scrivi " " & Format2(E3) & ")-(" & Format2(Amb2) & " " & Format2(E4) & ")"
Scrivi
ColoreTesto 0
Ruote(1) = R1
Ruote(2) = R2
Tutte(1) = TU_
Num1(1) = E4
Num1(2) = Sor1234
Num1(3) = Dor1234
Num1(4) = Amb2
Num1(5) = Amb3
EliminaRipetuti Num1
ImpostaGiocata 1,Num1,Tutte,Poste,Clpt,2
Num2(1) = Sor1234
Num2(2) = Dor1234
Num2(3) = E4
Num2(4) = E3
Num2(5) = E2
Num2(6) = E1
Num2(7) = Amb2
Num2(8) = Amb3
EliminaRipetuti Num2
ImpostaGiocata 2,Num2,Ruote,Poste,Clp,2
Gioca Es
End If
End If
End If
Next
Next
Next
Next
Next
ScriviResoconto
End Sub
