Per Joe o Salvo 50

[trivellatomariotretre33]

Ciao
Mi serve un listato che mi visualizzi tutti gli ambi di distanza ciclometrica 45
Che abbiano la stessa figura da me indicata.




Sub Main
Dim Nu(2),Ru(1),T,V
Ini = EstrazioneIni
fin = EstrazioneFin
dist = CInt(InputBox("Quale distanza",,18))
r = InputBox("Quale ruota analizzo",,1)
Scrivi "Ambi in distanza... " & dist & " con analisi su Ruota : " & NomeRuota(r),1,,,1,3,,1
T = Array(T,"N","Ambi","Rit","Max","Incr","Freq")
Call InitTabella(T)
For x = 1 To 89
For y = x + 1 To 90
If Distanza(x,y) = dist Then
k = k + 1
Nu(1) = x
Nu(2) = y
Ru(1) = r
Call StatisticaFormazione(Nu,Ru,2,rit,max,Incr,fre,Ini,fin)
'Scrivi FormatSpace(k,3) & vbTab,0,0
'Scrivi StringaNumeri(Nu,,1) & vbTab,0,0
'Scrivi rit & vbTab & max & vbTab & fre
V = Array(V,k,StringaNumeri(Nu),rit,max,Incr,fre)
Call AddRigaTabella(V)
End If
Next
Next
CreaTabellaOrdinabile
End Sub

 

[BaffoBlù]

eccoti uno script che ti riporta tutti gli ambi di distanza ciclometrica 45
sulla ruota da te scelta.

ma quando scrivi :

"Che abbiano la stessa figura da Te indicata."

la figura di cosa?

del primo numero che compone l'ambo?

del secondo numero?

della somma dei due numeri?


spiega il tipo di figura che deve cercare


per il momento non ho capito cosa intendi per la figura di un ambo di distanza ciclometrica 45...

se me lo spieghi te lo inserisco

Option Explicit
Sub Main()
   Dim Ini,fin,es,r1,p1,p2,a,b,Di,tm,co
   Di = 45
   r1 = InputBox("Quale ruota analizzo",,1)
   tm = CInt(InputBox(" Quando inizio l'analisi ? ",,"4121")) ' inizio 1950
   Ini = tm
   fin = EstrazioneFin
   co = 0
   For es = Ini To fin
      Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
      Call AvanzamentoElab(Ini,fin,es)
      'For r1 = 1 To 11
      'If r1 = 11 Then r1 = 12
      For p1 = 1 To 4
         For p2 = p1 + 1 To 5
            a = Estratto(es,r1,p1)
            b = Estratto(es,r1,p2)
            If Distanza(a,b) = Di Then
               co = co + 1
               Scrivi String(100,"°") & " Caso n°" & co,1
               Scrivi
               Scrivi DataEstrazione(es) & " " & Left(NomeRuota(r1),2) & " " & Format2(a) & " " & Format2(b)
            End If
         Next
      Next
      'Next
   Next
   Scrivi String(100,"*")
   ColoreTesto 2
   Scrivi" casi totali trovati : " & co,1
   ColoreTesto 0
   Scrivi String(100," * ")
End Sub

 

[joe]

Se la Distanza Ciclometrica è 45 ...

Option Explicit
Sub Main
   Dim A,B,F
   For F = 1 To 9
      Scrivi "Figura " & F,1
      For A = 1 To 89
         For B = A + 1 To 90
            If Distanza(A,B) = 45 Then
               If Figura(A) = F Then
                  Scrivi Format2(A) & "." & Format2(B) & " fA " & Figura(A) & " = fB " & Figura(B)
               End If
            End If
         Next
      Next
      Scrivi String(17,"-")
   Next
End Sub

 

[trivellatomariotretre33]

Grazie Joe va bene cosi ottimo
grazie anche a te

BaffoBlù​

 

[BaffoBlù]

prego

con questo scegli la figura

Option Explicit
Sub Main()
   Dim Ini,fin,es,r1,p1,p2,a,b,c,d,Di,f,tm,co
   Di = 45
   r1 = InputBox("Quale ruota analizzo",,1)
   f = InputBox("scegli la Figura * 1-9 ",,1)
   tm = CInt(InputBox(" Quando inizio l'analisi ? ",,"4121")) ' inizio 1950
   Ini = tm
   fin = EstrazioneFin
   co = 0
   For es = Ini To fin
      Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
      Call AvanzamentoElab(Ini,fin,es)
      'For r1 = 1 To 11
      'If r1 = 11 Then r1 = 12
      For p1 = 1 To 4
         For p2 = p1 + 1 To 5
            a = Estratto(es,r1,p1)
            b = Estratto(es,r1,p2)
            c = Figura(a)
            d = Figura(b)
            If Distanza(a,b) = Di And c Or d = f Then
               co = co + 1
               Scrivi String(100,"°") & " Caso n°" & co,1
               Scrivi
               Scrivi DataEstrazione(es) & " " & Left(NomeRuota(r1),2) & " " & Format2(a) & "." & Format2(b) & " *  Ambo distansa : " & Di & " * Figura : " & f,1,,,1,2
            End If
         Next
      Next
      'Next
   Next
   Scrivi String(100,"*")
   ColoreTesto 2
   Scrivi" casi totali trovati : " & co,1
   ColoreTesto 0
   Scrivi String(100," * ")
End Sub