gsl, The GNU Scientific Library
Обеспечивает широкий спектр математических процедур, таких как генераторы
случайных чисел, специальные функции и методы наименьших квадратов.
Вебсайт: http://www.gnu.org/software/gsl/, Windows port: http://gnuwin32.sourceforge.net/packages/gsl.htm
Поддерживаемые платформы: Win32, Linux
Заголовки: gsl/*.bi
Версия заголовков: 1.6
Примеры: в examples/math/GSL/
Вебсайт: http://www.gnu.org/software/gsl/, Windows port: http://gnuwin32.sourceforge.net/packages/gsl.htm
Поддерживаемые платформы: Win32, Linux
Заголовки: gsl/*.bi
Версия заголовков: 1.6
Примеры: в examples/math/GSL/
Пример
'' Пример элементарной математики
#include "gsl/gsl_math.bi"
'' Возведение значения 3,141 в четвертую степень
? "3.141 ^ 4 = "; gsl_pow_4(3.141)
?
'' Поиск гипотенузы прямоугольного треугольника со сторонами 3 и 4
? "The hypotenuse of a right triangle with sides of length 3 and 4 is"; gsl_hypot(3,4)
?
Sleep
#include "gsl/gsl_math.bi"
'' Возведение значения 3,141 в четвертую степень
? "3.141 ^ 4 = "; gsl_pow_4(3.141)
?
'' Поиск гипотенузы прямоугольного треугольника со сторонами 3 и 4
? "The hypotenuse of a right triangle with sides of length 3 and 4 is"; gsl_hypot(3,4)
?
Sleep
'' Пример матрицы
#include "gsl/gsl_matrix.bi"
'' gsl использует C-стиль для рядов высокого порядка, в отличии от VB или Fortran
? "A 3x3 matrix"
Dim As gsl_matrix Ptr m = gsl_matrix_alloc(3, 3)
For i As Integer = 0 To 2
For j As Integer = 0 To 2
gsl_matrix_set (m, i, j, 0.23 + 100*i + j)
Next
Next
For i As Integer = 0 To 2
For j As Integer = 0 To 2
Print "m(";i;",";j;") = "; gsl_matrix_get (m, i, j)
Next
Next
?
gsl_matrix_transpose(m)
? "And its transpose"
For i As Integer = 0 To 2
For j As Integer = 0 To 2
Print "m(";i;",";j;") = "; gsl_matrix_get (m, i, j)
Next
Next
Sleep
#include "gsl/gsl_matrix.bi"
'' gsl использует C-стиль для рядов высокого порядка, в отличии от VB или Fortran
? "A 3x3 matrix"
Dim As gsl_matrix Ptr m = gsl_matrix_alloc(3, 3)
For i As Integer = 0 To 2
For j As Integer = 0 To 2
gsl_matrix_set (m, i, j, 0.23 + 100*i + j)
Next
Next
For i As Integer = 0 To 2
For j As Integer = 0 To 2
Print "m(";i;",";j;") = "; gsl_matrix_get (m, i, j)
Next
Next
?
gsl_matrix_transpose(m)
? "And its transpose"
For i As Integer = 0 To 2
For j As Integer = 0 To 2
Print "m(";i;",";j;") = "; gsl_matrix_get (m, i, j)
Next
Next
Sleep