Ottenere il numero più piccolo e quello più grande fra tre o più numeri mediante le funzioni esterne del API di libgsl

La libreria GSL (GNU Scientific Library) fornisce risorse di alto livello per il calcolo numerico.

Per fruire delle risorse della libreria GSL è necessario richiamare nell'applicazione Gambas la libreria dinamica condivisa: libgsl.so.0.17.0

Mostriamo un semplice esempio per conoscere da un insieme di 6 numeri interi il valore più piccolo e quello più grande:

Library "libgsl:0.17.0"

' int gsl_stats_int_max (const int data[], const size_t stride, const size_t n)  
' Returns the maximum value in data, a dataset of length n with stride stride.
Private Extern gsl_stats_int_max(int_data As Integer[], stride As Integer, n As Integer) As Integer
  
' int gsl_stats_int_min(const int data[], const size_t stride, const size_t n)
' Returns the minimum value in data, a dataset of length n with stride stride.
Private Extern gsl_stats_int_min(int_data As Integer[], stride As Integer, n As Integer) As Integer


Public Sub Main()
 
 Dim dati As Integer[] = [12, 18, 26, 39, 52, 77]
 Dim gr, pc As Integer
 
  gr = gsl_stats_int_max(dati, 1, 6)
  pc = gsl_stats_int_min(dati, 1, 6)
  
  Print "Il valore più grande è: ";; gr
  Print "Il valore più piccolo è: ";; pc
  
End

Riferimenti

• http://www.gnu.org/software/gsl/
• https://fossies.org/dox/gsl-1.16/index.html