Script ambo in cadenza e figure

[kubes]

Trovare in due ruote 2 ambi che abbiano la stessa distanza,
non importa se gli ambi sono uniti o meno,
è importante che abbiano le stesse cadenze.

Bari l’ambo in prima e seconda posizione è :54-14, distanza 40, stessa cadenza
Genova ambo in prima e quinta posizione è :17-57 distanza 40 stessa cadenza

Calcoliamo le figure degli ambi tovati partendo dal piu piccolo:

14 54
fig di 14 è 5, la figura di 54 è 9
la fig di 59 è 5

17 57
fig di 17 è 8 , la figura di 57 è 3
la fig di 83 è 2

unendo le figure avremo 59 – 83 ( AMBO)
unendo poi la fig di 59 e di 83 averemo 52 (AmBATA)

 

[salvo50]

Ciao a Tutti.

Option Explicit
Sub Main
   Dim FIn,Ini,A,B,C,D,Clp1,Es,Salvo50,Clp2
   Dim R1,R2,P1,P2,P3,P4,P5,P6,E1,E2,Caso,Casi
   Dim CaA,CaB,CaC,CaD,DAB,DCD
   Dim Num1,Num2,Fg1,Fg2,FgA,FgB,FgC,FgD
   Dim Ruo(2),Po1(1),Po2(2),M1(2),M2(2),M3(2)
   Dim Amba(1),Ambo(2)
   FIn = EstrazioneFin
   Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9600))
   Clp1 = CInt(InputBox(" Per quanti colpi vuoi giocare l'ambata?",Salvo50,5))
   Clp2 = CInt(InputBox(" Per quanti colpi vuoi giocare l'ambo?",Salvo50,10))
   Call ScegliRange(EstrazioneIni,FIn,Ini,EstrazioneFin)
   Scrivi Space(12) & " L'AMBO IN CADENZA E FIGURE - CHIESTO DA KUBES - SCRIPT SALVO50",1,,4,,3,,1
   Po1(1) = 1
   Po2(2) = 1
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = 1 To 10
         For P1 = 1 To 4
            For P2 = P1 + 1 To 5
               A = Estratto(Es,R1,P1)
               B = Estratto(Es,R1,P2)
               CaA = Cadenza(A) : CaB = Cadenza(B)
               If CaA = CaB Then
                  For R2 = R1 + 1 To 11
                     If R2 = 11 Then R2 = 12
                     For P3 = 1 To 4
                        For P4 = P3 + 1 To 5
                           C = Estratto(Es,R2,P3)
                           D = Estratto(Es,R2,P4)
                           If(A <> C And A <> D) Or(B <> C And B <> D) Then
                              CaC = Cadenza(C) : CaD = Cadenza(D)
                              If CaC = CaD Then
                                 DAB = Distanza(A,B) : DCD = Distanza(C,D)
                                 If DAB = DCD Then
                                    M1(1) = A : M1(2) = B : M2(1) = C : M2(2) = D
                                    OrdinaMatrice M1,1
                                    OrdinaMatrice M2,1
                                    FgA = Figura(M1(1)) : FgB = Figura(M1(2))
                                    FgC = Figura(M2(1)) : FgD = Figura(M2(2))
                                    Num1 = Fuori90(FgA & FgB) : Num2 = Fuori90(FgC & FgD)
                                    M3(1) = Num1 : M3(2) = Num2
                                    OrdinaMatrice M3,1
                                    Fg1 = Figura(M3(1)) : Fg2 = Figura(M3(2))
                                    Amba(1) = Fuori90(Fg1 & Fg2)
                                    Caso = Caso + 1
                                    Casi = Casi + 1
                                    Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
                                    Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
                                    Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                                    Scrivi "  " & SiglaRuota(R1) & " ",1,0
                                    For P5 = 1 To 5
                                       E1 = Estratto(Es,R1,P5)
                                       If E1 = A Or E1 = B Then
                                          ColoreTesto 2
                                       Else
                                          ColoreTesto 0
                                       End If
                                       Scrivi Format2(E1) & " ",1,0
                                       ColoreTesto 0
                                    Next
                                    Scrivi
                                    Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                                    Scrivi "  " & SiglaRuota(R2) & " ",1,0
                                    For P6 = 1 To 5
                                       E2 = Estratto(Es,R2,P6)
                                       If E2 = C Or E2 = D Then
                                          ColoreTesto 2
                                       Else
                                          ColoreTesto 0
                                       End If
                                       Scrivi Format2(E2) & " ",1,0
                                       ColoreTesto 0
                                    Next
                                    Scrivi
                                    Scrivi
                                    Scrivi Space(7) & "Estratti " & Space(7) & "Distanze " & Space(4) & " Figure Unite",1
                                    Scrivi Space(8) & Format2(M1(1)) & " " & Format2(M1(2)) & Space(13) & Format2(DAB),1,0
                                    Scrivi Space(14) & Format2(Num1),1
                                    Scrivi Space(8) & Format2(M2(1)) & " " & Format2(M2(2)) & Space(13) & Format2(DCD),1,0
                                    Scrivi Space(14) & Format2(Num2),1
                                    Scrivi
                                    Scrivi
                                    Scrivi Space(14) & "Ambo " & Format2(M3(1)) & " " & Format2(M3(2)) & " e Ambata " & Format2(Amba(1)),1,,,2
                                    Ruo(1) = R1
                                    Ruo(2) = R2
                                    ImpostaGiocata 1,Amba,Ruo,Po1,Clp1,1
                                    Ambo(1) = Num1 : Ambo(2) = Num2
                                    ImpostaGiocata 2,Ambo,Ruo,Po2,Clp2,2
                                    Gioca Es
                                 End If
                              End If
                           End If
                        Next
                     Next
                  Next
               End If
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub

 

[kubes]

SEI SEMPLICEMENTE FANTASTICO salvo50 ...GRAZIE

 

[claudio8]

Kubes... ho fatto girare lo script, in 13 estrazioni 161 casi ... come farai a scegliere quello da giocare?

 

[kubes]

Kubes... ho fatto girare lo script, in 13 estrazioni 161 casi ... come farai a scegliere quello da giocare?

CONVERGO CON ALTRI METODI , NE PRENDO AL MAX 2 DA GIOCARE SE CI SON LE CONVERGENZE .... TRA NUMERI E RUOTE.....

 

[salvo50]

A volte può capitare anche con numeri diversi che alla fine risultano 2 numeri uguali per ambo, in questi casi come ci comportiamo?

Si potrebbe cambiare uno dei due con vertibile, diametrale, o aggiungere un valore qualsiasi o eliminare la previsione o altro, fammi sapere

[IMG2=JSON]{"data-align":"none","data-size":"full","src":"https:\/\/i.postimg.cc\/yxxWJ8nT\/uguali.png"}[/IMG2]

 

[kubes]

salvo50 io trovandone due uguali o gioco 56-22 TO VE TUTTE OPPURE 90-56 =34 E gioco 56-22-34 TO VE TUTTE

PERO RIPETO PER claudio8 ATTUALMENTE STO MIXANDO I 2 METODI CHE HO CHIESTO IN SCRIPT A salvo50
E NE AVREI UN ALTRO DA FARE PER CHIUDERE IL TRITTICO ......
e chiedo a salvo50

si deve rintracciare in forma isotopa un ambo in figura e su un’altra ruota un altro ambo, sempre in figura, ma con le relative distanze uguali.
Firenze ambo unito: (52 – 34) fig 7 nella stessa posizione a
Torino ambo unito : (26 – 8) fig 8 entrambi gli ambi sono con distanza 18.

La somma in orizzontale:

52 + 34 = 86

26 + 8 = 34

La somma in verticale:

52 + 26 = 78

34 + 8 = 42

La somma in diagonale:

52 + 8 = 60
34 + 26 = 60

ambata = 86+34 =30
ambata = 78+42= 30
ambata= 60*2 = 30

ambo tern e quat e cinq= 30--86--78--42-34

NB . se vuoi lo apro in un nuovo post

 

[salvo50]

[
La somma in diagonale:

queste 2 somme devono risultare sempre uguali o è un caso?

52 + 8 = 60
34 + 26 = 60

'----------------------------------------------------------------------------------------


queste 3 risultati devono risultare sempre uguali o è un caso?

ambata = 86+34 =30
ambata = 78+42= 30
ambata= 60*2 = 30

 

[kubes]

MI =80-71 (1° E 4°) FIG.8
NA=57-66 (1°E 4°) FIG 3

LA DISTANZA è 9 x ENTRAMBI .... DEVONO AVER SEMPRE STESSA DISTANZA E ISOTOPI

80+71=61
57+66=33 (ORIZZ)

80+57=47
71+66= 47 (VERT)

80+66=56
71+57=38 (DIAG)

AMBATA=61+33= 4
AMBATA=47+47=4
AMBATA=56+38=4

 

[salvo50]

Visto

 

[salvo50]

Ciao a Tutti.

Option Explicit
Sub Main
   Dim FIn,Ini,A,B,C,D,Clp,Es1
   Dim R1,R2,P1,P2,P5,P6,E1,E2
   Dim SAB,SCD,SAC,SBD,SAD,SBC,DAB,DCD
   Dim Salvo50,Caso,Casi,FA,FB,FC,FD
   Dim Ruo(2),Po1(5),Penta(5),S1,S2,S3
   FIn = EstrazioneFin
   Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9000))
   Clp = CInt(InputBox(" Per quanti colpi vuoi giocare?",Salvo50,9))
   Call ScegliRange(EstrazioneIni,FIn,Ini,EstrazioneFin)
   Scrivi Space(12) & " AMBI STESSA DISTANZA E ISOTOPI - CHIESTO DA KUBES - SCRIPT SALVO50",1,,4,,3,,1
   Po1(2) = 1
   Po1(3) = 1
   Po1(4) = 1
   Po1(5) = 1
   For Es1 = Ini To FIn
      Messaggio Es1
      AvanzamentoElab Ini,FIn,Es1
      Caso = 0
      For R1 = 1 To 9
         For P1 = 1 To 4
            For P2 = P1 + 1 To 5
               A = Estratto(Es1,R1,P1)
               B = Estratto(Es1,R1,P2)
               FA = Figura(A) : FB = Figura(B)
               If FA = FB Then
                  For R2 = R1 + 1 To 10
                     C = Estratto(Es1,R2,P1)
                     D = Estratto(Es1,R2,P2)
                     FC = Figura(C) : FD = Figura(D)
                     If FC = FD Then
                        'A---B
                        '|   |
                        'C---D
                        If A <> C And A <> D And B <> C And B <> D Then
                           DAB = Distanza(A,B) : DCD = Distanza(C,D) : SAB = Fuori90(A + B) : SCD = Fuori90(C + D)
                           SAC = Fuori90(A + C) : SBD = Fuori90(B + D) : SAD = Fuori90(A + D) : SBC = Fuori90(B + C)
                           If SAB = SCD Xor SAC = SBD Xor SAD = SBC Then
                              S1 = Fuori90(SAB + SCD) : S2 = Fuori90(SAC + SBD) : S3 = Fuori90(SAD + SBC)
                              If SAB = SCD Then Penta(1) = S1 : Penta(2) = SAC : Penta(3) = SBD : Penta(4) = SAD : Penta(5) = SBC
                              If SAC = SBD Then Penta(1) = S1 : Penta(2) = SAB : Penta(3) = SCD : Penta(4) = SAD : Penta(5) = SBC
                              If SAD = SBC Then Penta(1) = S1 : Penta(2) = SAB : Penta(3) = SCD : Penta(4) = SAC : Penta(5) = SBD
                              Caso = Caso + 1
                              Casi = Casi + 1
                              Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
                              Scrivi String(80,"*") & " Estrazione " &(Es1) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
                              Scrivi(" Estrazione n." & Format2(Es1) & " del " & DataEstrazione(Es1)),1,0
                              Scrivi "  " & SiglaRuota(R1) & " ",1,0
                              For P5 = 1 To 5
                                 E1 = Estratto(Es1,R1,P5)
                                 If E1 = A Or E1 = B Then
                                    ColoreTesto 2
                                 Else
                                    ColoreTesto 0
                                 End If
                                 Scrivi Format2(E1) & " ",1,0
                                 ColoreTesto 0
                              Next
                              Scrivi
                              Scrivi(" Estrazione n." & Format2(Es1) & " del " & DataEstrazione(Es1)),1,0
                              Scrivi "  " & SiglaRuota(R2) & " ",1,0
                              For P6 = 1 To 5
                                 E2 = Estratto(Es1,R2,P6)
                                 If E2 = C Or E2 = D Then
                                    ColoreTesto 2
                                 Else
                                    ColoreTesto 0
                                 End If
                                 Scrivi Format2(E2) & " ",1,0
                                 ColoreTesto 0
                              Next
                              Scrivi
                              Scrivi
                              Scrivi Space(24) & "Solo un gruppo con somme uguali",1,,,2
                              Scrivi Space(7) & "Estratti " & Space(7) & "Somme " & Space(7) & " Somme",1,0
                              Scrivi Space(8) & " Somme" & Space(7) & " Distanze ",1
                              Scrivi Space(7) & "Figure " & FA & "." & FC & Space(3) & "Orizzontali" & Space(4),1,0
                              Scrivi "Verticali     Diagonali     Orizzontali",1
                              Scrivi Space(8) & Format2(A) & " " & Format2(B) & Space(11) & Format2(SAB),1,0
                              Scrivi Space(12) & Format2(SAC) & Space(12) & Format2(SAD) & Space(13) & Format2(DAB),1
                              Scrivi Space(8) & Format2(C) & " " & Format2(D) & Space(11) & Format2(SCD),1,0
                              Scrivi Space(12) & Format2(SBD) & Space(12) & Format2(SBC) & Space(13) & Format2(DCD),1
                              Scrivi Space(24) & "--" & Space(12) & "--" & Space(12) & "--",1
                              Scrivi Space(5) & "Somma delle somme  " & Format2(S1) & Space(12) & Format2(S2) & Space(12) & Format2(S3),1,,,2
                              Scrivi
                              Ruo(1) = R1
                              Ruo(2) = R2
                              ImpostaGiocata 1,Penta,Ruo,Po1,Clp
                              Gioca Es1
                           End If
                        End If
                     End If
                  Next
               End If
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub

 

[kubes]

GRAZIE salvo50 SEI PREZIOSO !!!

 

[adeleadele]

Ciao cerco uno script con ambi stessa figura ! GRazie

 

[Cinzia27]

Con il benestare del bravissimo Salvo50, posto
lo script per Adeleadele

' Ambi in figura; ritardi - frequenze
Sub main()
Dim ambi(4005,6),nn(2), ru(1)
ini=1'500
fin=EstrazioneFin
r=11' ruota tutte
Scrivi
ru(1)=r
co=0

For x=1 To 89
    For y=x+1 To 90
    If Figura(x)=Figura(y) Then
    co=co+1
    nn(1)=x
    nn(2)=y
    fr=SerieFreq(ini,fin,nn,ru,2)
    rt=SerieRitardo(ini,fin,nn,ru,2)
        ambi(co,1)=co
            ambi(co,2)=x
        ambi(co,3)=y 
        ambi(co,4)=r
          ambi(co,5)=fr
        ambi(co,6)=rt
        End if
        Next
        Next
        OrdinaMatrice ambi,-1,5'5 ordinato per frequenza, 6 per ritardo
For x=1 To 30 ' quantità di ambi da visualizzare
Scrivi FormatSpace(x,4,1)&" )"& Format2(ambi(x,2))&"."& Format2(ambi(x,3))&" "& _
SiglaRuota(ambi(x,4))&" fr "&FormatSpace(ambi(x,5),4,1) &" rt "&FormatSpace(ambi(x,6),4,1)
Next
End Sub

 

[adeleadele]

Grazie

 

[adeleadele]

Io ho fatto delle ricerche manuali ed ho trovato un terno ripetuto con il 79.......87 53 79 io aggiungerei poi 8