Errore in Spaziometria 1.4.2

[Moro_80]

Salve a tutti,

ho una domanda che riguarda un'errore riscontrato in Spaziometria 1.4.2 by LuigiB. Lanciando il seguente semplice script d'esempio chiamato Test_SviluppoCombinazioni :

Sub Main
    
    Dim k
    Dim Classe
    Dim aCol
    ReDim aNum(10)
    Dim i
    
    For k = 1 To 10
        aNum(k) = k
    Next
    
    Classe = 2
    If InitSviluppoIntegrale(aNum,Classe) > 0 Then
    
    
        Do While GetCombSviluppo(aCol) = True
            i = i + 1
            Call Scrivi(FormattaStringa(i,"00000") & " " & StringaNumeri(aCol))
        Loop
    End If
    
End Sub

Dal risulatato che vi posto è evidente che non vengono sviluppate tutte le combinazioni ( In questo caso mi aspettavo 45 ambi sviluppati al posto dei 44 ) :

[FONT=Courier New][SIZE=2][COLOR=#000000]00001 1.2[/COLOR][/SIZE][/FONT] 
[FONT=Courier New][SIZE=2][COLOR=#000000]00002 1.3[/COLOR][/SIZE][/FONT] 
[FONT=Courier New][SIZE=2][COLOR=#000000]00003 1.4[/COLOR][/SIZE][/FONT] 
[FONT=Courier New][SIZE=2][COLOR=#000000]00004 1.5[/COLOR][/SIZE][/FONT] 
[FONT=Courier New][SIZE=2][COLOR=#000000]00005 1.6[/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#000000]
00006 1.7[/COLOR][/SIZE][/FONT] 
[FONT=Courier New][SIZE=2][COLOR=#000000]00007 1.8[/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#000000]
00008 1.9[/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#000000]
00009 1.10[/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#000000]
00010 2.3[/COLOR][/SIZE][/FONT] 
[FONT=Courier New][SIZE=2][COLOR=#000000]00011 2.4[/COLOR][/SIZE][/FONT] 
[FONT=Courier New][SIZE=2][COLOR=#000000]00012 2.5[/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#000000]
00013 2.6[/COLOR][/SIZE][/FONT] 
[FONT=Courier New][SIZE=2][COLOR=#000000]00014 2.7[/COLOR][/SIZE][/FONT] 
[FONT=Courier New][SIZE=2][COLOR=#000000]00015 2.8[/COLOR][/SIZE][/FONT] 
[FONT=Courier New][SIZE=2][COLOR=#000000]00016 2.9[/COLOR][/SIZE][/FONT] 
[FONT=Courier New][SIZE=2][COLOR=#000000]00017 2.10[/COLOR][/SIZE][/FONT] 
[FONT=Courier New][SIZE=2][COLOR=#000000]00018 3.4[/COLOR][/SIZE][/FONT] 
[FONT=Courier New][SIZE=2][COLOR=#000000]00019 3.5[/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#000000]
00020 3.6[/COLOR][/SIZE][/FONT] 
[FONT=Courier New][SIZE=2][COLOR=#000000]00021 3.7[/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#000000]
00022 3.8[/COLOR][/SIZE][/FONT] 
[FONT=Courier New][SIZE=2][COLOR=#000000]00023 3.9[/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#000000]
00024 3.10[/COLOR][/SIZE][/FONT] 
[FONT=Courier New][SIZE=2][COLOR=#000000]00025 4.5[/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#000000]
00026 4.6[/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#000000]
00027 4.7[/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#000000]
00028 4.8[/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#000000]
00029 4.9[/COLOR][/SIZE][/FONT] 
[FONT=Courier New][SIZE=2][COLOR=#000000]00030 4.10[/COLOR][/SIZE][/FONT] 
[FONT=Courier New][SIZE=2][COLOR=#000000]00031 5.6[/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#000000]
00032 5.7[/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#000000]
00033 5.8[/COLOR][/SIZE][/FONT] 
[FONT=Courier New][SIZE=2][COLOR=#000000]00034 5.9[/COLOR][/SIZE][/FONT] 
[FONT=Courier New][SIZE=2][COLOR=#000000]00035 5.10[/COLOR][/SIZE][/FONT] 
[FONT=Courier New][SIZE=2][COLOR=#000000]00036 6.7[/COLOR][/SIZE][/FONT] 
[FONT=Courier New][SIZE=2][COLOR=#000000]00037 6.8[/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#000000]
00038 6.9[/COLOR][/SIZE][/FONT] 
[FONT=Courier New][SIZE=2][COLOR=#000000]00039 6.10[/COLOR][/SIZE][/FONT] 
[FONT=Courier New][SIZE=2][COLOR=#000000]00040 7.8[/COLOR][/SIZE][/FONT] 
[FONT=Courier New][SIZE=2][COLOR=#000000]00041 7.9[/COLOR][/SIZE][/FONT] 
[FONT=Courier New][SIZE=2][COLOR=#000000]00042 7.10[/COLOR][/SIZE][/FONT] 
[FONT=Courier New][SIZE=2][COLOR=#000000]00043 8.9[/COLOR][/SIZE][/FONT] 
[FONT=Courier New][SIZE=2][COLOR=#000000]00044 8.10[/COLOR][/SIZE][/FONT]

sbaglio io un qualche cosa oppure negli ultimi aggiornamenti di LuigiB è successo qualche inghippo?


Ringrazio in anticipo per un'eventuale risposta o chiarimento in merito,

Saluti

 

[Mike58]

Ciao Confermo con 1.4.2 risultano 44 combinazioni


00001 1.2 00002 1.3 00003 1.4 00004 1.5 00005 1.6 00006 1.7 00007 1.8 00008 1.9 00009 1.10 00010 2.3 00011 2.4 00012 2.5 00013 2.6 00014 2.7 00015 2.8 00016 2.9 00017 2.10 00018 3.4 00019 3.5 00020 3.6 00021 3.7 00022 3.8 00023 3.9 00024 3.10 00025 4.5 00026 4.6 00027 4.7 00028 4.8 00029 4.9 00030 4.10 00031 5.6 00032 5.7 00033 5.8 00034 5.9 00035 5.10 00036 6.7 00037 6.8 00038 6.9 00039 6.10 00040 7.8 00041 7.9 00042 7.10 00043 8.9 00044 8.10

 

[keeper]

idem 1.4.2

 

[Roby]

Mi sembra molto più semplice messo così.
Ciao

Sub Main()
For x=1 To 10
For x1=x+1 To 10
i=i+1
Scrivi Format2(i)&" "&Format2(x)&"-"&Format2(x1)
Next
Next
End Sub

 

[Moro_80]

Io ho preso uno degli script d'esempio già presenti nella directory Test...

Col metodo di Daniel sembra darli tutti e 45...ma allora è un problema al software in se o allo script?

Ringrazio chi mi delucida

 

[Mike58]

Ciao Moro sembra sia un problema allo script perchè lo stesso modo di fare i calcoli è sullo script presente in test spaziometria " test_sviluppo integrale" da tutti i 45 ambi.



Sub Main
Dim k
Dim Colonne
Dim numeri(10)
Dim classe
Dim sColonna

classe = 2

For k = 1 To 10
numeri(k) = k
Next

Colonne = SviluppoIntegrale(numeri,classe)

For k = 1 To UBound(Colonne)
sColonna = ""
For j = 1 To classe
sColonna = sColonna & Format2(Colonne(k,j)) & " "
Next
Call Scrivi(Format2(k) & " <-> " & sColonna)
Next
End Sub

 

[LuigiB]

no era un errore in una funzione che avevo recentemente modificato.
orra con la versione 1.4.3 è corretto , inoltre hio implementato quella statistica chiestami da Lucio
ciao

 

[keeper]

sera luigib nella prossima non ti dimenticare della mia richiesta sulla frequenza relativa.grazie

 

[Moro_80]

Grazie mille LuigiB per aver risolto il problema nella funzione!
Come al solito ottimo lavoro!

p.s. Grazie ovviamente anche a tutti coloro che hanno risposto alla mia domanda...

Saluti