gsl 1.14.7 → 1.15.3

data/ext/vector_double.c

@@ -499,13 +499,16 @@ VALUE rb_gsl_vector_to_i(VALUE obj)
 }
 
 /* singleton */
+#ifdef HAVE_GNU_GRAPH
 static void draw_hist(VALUE obj, FILE *fp);
 static void draw_vector(VALUE obj, FILE *fp);
 static void draw_vector2(VALUE xx, VALUE yy, FILE *fp);
 static void draw_vector_array(VALUE ary, FILE *fp);
 #ifdef HAVE_NARRAY_H
 static void draw_narray(VALUE obj, FILE *fp);
-#endif
+#endif // HAVE_NARRAY_H
+#endif // HAVE_GNU_GRAPH
+
 static VALUE rb_gsl_vector_graph2(int argc, VALUE *argv, VALUE obj)
 {
 #ifdef HAVE_GNU_GRAPH
@@ -621,6 +624,7 @@ static VALUE rb_gsl_vector_graph2(int argc, VALUE *argv, VALUE obj)
 #endif
 }
 
+#ifdef HAVE_GNU_GRAPH
 static void draw_vector(VALUE obj, FILE *fp)
 {
   gsl_vector *x = NULL;
@@ -635,7 +639,7 @@ static void draw_vector2(VALUE xx, VALUE yy, FILE *fp)
 {
 #ifdef HAVE_NARRAY_H
   struct NARRAY *nax, *nay;
-#endif
+#endif // HAVE_NARRAY_H
   double *ptr1 = NULL, *ptr2 = NULL;
   gsl_vector *vx, *vy;
   size_t j, n, stridex = 1, stridey = 1;
@@ -650,7 +654,7 @@ static void draw_vector2(VALUE xx, VALUE yy, FILE *fp)
     ptr1 = (double *) nax->ptr;
     n = nax->total;
     stridex = 1;
-#endif
+#endif // HAVE_NARRAY_H
   } else {
     rb_raise(rb_eTypeError, "wrong argument type %s (Vector expected)",
 	     rb_class2name(CLASS_OF(xx)));
@@ -665,7 +669,7 @@ static void draw_vector2(VALUE xx, VALUE yy, FILE *fp)
     GetNArray(yy, nay);
     ptr2 = (double *) nay->ptr;
     stridey = 1;
-#endif
+#endif // HAVE_NARRAY_H
   } else {
     rb_raise(rb_eTypeError, "wrong argument type %s (Vector expected)",
 	     rb_class2name(CLASS_OF(yy)));
@@ -687,7 +691,7 @@ static void draw_narray(VALUE obj, FILE *fp)
     fprintf(fp, "%d %g\n", (int) j, ptr[j]);
   fflush(fp);
 }
-#endif
+#endif // HAVE_NARRAY_H
 
 static void draw_hist(VALUE obj, FILE *fp)
 {
@@ -757,6 +761,7 @@ static void draw_vector_array(VALUE ary, FILE *fp)
   }
   fflush(fp);
 }
+#endif // HAVE_GNU_GRAPH
 
 /* singleton */
 static VALUE rb_gsl_vector_plot2(int argc, VALUE *argv, VALUE obj)
@@ -869,7 +874,7 @@ static VALUE rb_gsl_vector_normalize(int argc, VALUE *argv, VALUE obj)
 static VALUE rb_gsl_vector_normalize_bang(int argc, VALUE *argv, VALUE obj)
 {
   gsl_vector *v = NULL;
-  double mean;  
+  //  double mean;
   double nrm;
   double factor;
   switch (argc) {
@@ -885,8 +890,8 @@ static VALUE rb_gsl_vector_normalize_bang(int argc, VALUE *argv, VALUE obj)
     break;
   }
   Data_Get_Vector(obj, v);
-  mean = gsl_stats_mean(v->data, v->stride, v->size);
-  /*  gsl_vector_add_constant(v, -mean);  
+  /*  mean = gsl_stats_mean(v->data, v->stride, v->size);
+  gsl_vector_add_constant(v, -mean);
   sd = gsl_stats_sd(v->data, v->stride, v->size);  
   gsl_vector_scale(v, sqrt(nrm)/sd);*/
   factor = nrm/gsl_blas_dnrm2(v);

data/ext/vector_source.c

@@ -1299,18 +1299,19 @@ VALUE FUNCTION(rb_gsl_vector,to_s)(VALUE obj)
   char buf[32], format[32], format2[32];
   size_t i;
   VALUE str;
-  BASE x, min;
+  BASE x;
   int dig = 8;
 #ifdef BASE_INT
+  BASE min;
   BASE max;
   dig = 1;
 #endif
   Data_Get_Struct(obj, GSL_TYPE(gsl_vector), v);
   if (v->size == 0) return rb_str_new2("[ ]");
-  min = FUNCTION(gsl_vector,min)(v);
   str = rb_str_new2("[ ");
   if (VEC_COL_P(obj)) {
 #ifdef BASE_INT
+    min = FUNCTION(gsl_vector,min)(v);
     max = gsl_vector_int_max(v);
     dig = (int) GSL_MAX(fabs(max),fabs(min));
     if (dig > 0) dig = ceil(log10(dig+1e-10));
@@ -2559,7 +2560,7 @@ static VALUE FUNCTION(rb_gsl_vector,compare)(VALUE aa, VALUE bb,
   GSL_TYPE(gsl_vector) *a, *b;
   /*  gsl_vector_int *c;*/
   gsl_block_uchar *c;
-  int status;
+  //int status;
   Data_Get_Struct(aa, GSL_TYPE(gsl_vector), a);
   c = gsl_block_uchar_alloc(a->size);
   if (VEC_P(bb)) {
@@ -2567,9 +2568,9 @@ static VALUE FUNCTION(rb_gsl_vector,compare)(VALUE aa, VALUE bb,
     if (a->size != b->size) 
       rb_raise(rb_eRuntimeError, "Vector size mismatch, %d and %d", (int) a->size, 
 	       (int) b->size);
-    status = (*cmp)(a, b, c);
+    /*status =*/ (*cmp)(a, b, c);
   } else {
-    status = (*cmp2)(a, NUMCONV(bb), c);
+    /*status =*/ (*cmp2)(a, NUMCONV(bb), c);
   }
   return Data_Wrap_Struct(cgsl_block_uchar, 0, gsl_block_uchar_free, c);
 }

data/ext/wavelet.c

@@ -193,7 +193,9 @@ static VALUE rb_gsl_wavelet_transform0(int argc, VALUE *argv, VALUE obj,
   gsl_vector *v = NULL, *vnew;
   gsl_wavelet_direction dir = forward;
   gsl_wavelet_workspace *work = NULL;
-  int itmp, flag = 0, status;
+  int itmp, flag = 0;
+  // local variable "status" declared and set, but never used
+  //int status;
   double *ptr1, *ptr2;
   size_t n, stride;
   int naflag = 0;
@@ -332,7 +334,7 @@ static VALUE rb_gsl_wavelet_transform0(int argc, VALUE *argv, VALUE obj,
     }
 #endif
   }
-  status = gsl_wavelet_transform(w, ptr2, stride, n, dir, work);
+  /*status =*/ gsl_wavelet_transform(w, ptr2, stride, n, dir, work);
   if (flag) gsl_wavelet_workspace_free(work);
   return ary;
 }
@@ -356,7 +358,9 @@ static VALUE rb_gsl_wavelet_trans(int argc, VALUE *argv, VALUE obj,
   gsl_wavelet *w = NULL;
   gsl_vector *v = NULL, *vnew;
   gsl_wavelet_workspace *work = NULL;
-  int itmp, flag = 0, status, naflag = 0;
+  int itmp, flag = 0, naflag = 0;
+  // local variable "status" declared and set, but never used
+  //int status;
   double *ptr1 = NULL, *ptr2 = NULL;
   size_t n, stride;
   VALUE ary, ret;
@@ -489,7 +493,7 @@ static VALUE rb_gsl_wavelet_trans(int argc, VALUE *argv, VALUE obj,
     }
 #endif
   }
-  status = (*trans)(w, ptr2, stride, n, work);
+  /*status =*/ (*trans)(w, ptr2, stride, n, work);
   if (flag) gsl_wavelet_workspace_free(work);
   return ary;
 }
@@ -530,7 +534,9 @@ static VALUE rb_gsl_wavelet2d(int argc, VALUE *argv, VALUE obj,
   gsl_wavelet_direction dir = forward;
   gsl_wavelet_workspace *work = NULL;
   VALUE ary, ret;
-  int itmp, flag = 0, status;
+  int itmp, flag = 0;
+  // local variable "status" declared and set, but never used
+  //int status;
   switch (TYPE(obj)) {
   case T_MODULE:
   case T_CLASS:
@@ -592,7 +598,7 @@ static VALUE rb_gsl_wavelet2d(int argc, VALUE *argv, VALUE obj,
     mnew = m;
     ary = ret;
   }
-  status = (*trans)(w, mnew, dir, work);
+  /*status =*/ (*trans)(w, mnew, dir, work);
   if (flag) gsl_wavelet_workspace_free(work);
   return ary;
 }
@@ -619,7 +625,9 @@ static VALUE rb_gsl_wavelet2d_trans(int argc, VALUE *argv, VALUE obj,
   gsl_matrix *m = NULL, *mnew;
   gsl_wavelet_workspace *work = NULL;
   VALUE ary, ret;
-  int itmp, flag = 0, status;
+  int itmp, flag = 0;
+  // local variable "status" declared and set, but never used
+  //int status;
   switch (TYPE(obj)) {
   case T_MODULE:
   case T_CLASS:
@@ -668,7 +676,7 @@ static VALUE rb_gsl_wavelet2d_trans(int argc, VALUE *argv, VALUE obj,
     mnew = m;
     ary = ret;
   }
-  status = (*trans)(w, mnew, work);
+  /*status =*/ (*trans)(w, mnew, work);
   if (flag) gsl_wavelet_workspace_free(work);
   return ary;
 }

data/include/rb_gsl_common.h

@@ -25,6 +25,7 @@
 #include <gsl/gsl_ieee_utils.h>
 #ifdef HAVE_NARRAY_H
 #include "narray.h"
+#include "rb_gsl_with_narray.h"
 #endif
 
 EXTERN ID rb_gsl_id_beg, rb_gsl_id_end, rb_gsl_id_excl, rb_gsl_id_to_a;
@@ -135,13 +136,11 @@ EXTERN ID rb_gsl_id_beg, rb_gsl_id_end, rb_gsl_id_excl, rb_gsl_id_to_a;
 #ifdef HAVE_NARRAY_H
 #define Data_Get_Vector(obj,sval) do {\
     if (NA_IsNArray(obj)) {\
-      (sval)->data = NA_PTR_TYPE(obj,double*);\
-      (sval)->size = NA_TOTAL(obj);\
-      (sval)->stride = 1;\
-    } else {\
-      CHECK_VECTOR(obj);\
-      Data_Get_Struct(obj,gsl_vector,sval);\
+      /* Convert obj to GSL::Vector::View */\
+      obj = rb_gsl_na_to_gsl_vector_view_method(obj);\
     }\
+    CHECK_VECTOR(obj);\
+    Data_Get_Struct(obj,gsl_vector,sval);\
 } while (0)
 #else
 #define Data_Get_Vector(obj,sval) do {\

data/include/rb_gsl_config.h

@@ -0,0 +1,62 @@
+#ifndef ___RB_GSL_CONFIG_H___
+#define ___RB_GSL_CONFIG_H___
+
+#ifndef GSL_VERSION
+#define GSL_VERSION "1.15"
+#endif
+#ifndef GSL_0_9_4_LATER
+#define GSL_0_9_4_LATER
+#endif
+#ifndef GSL_1_0_LATER
+#define GSL_1_0_LATER
+#endif
+#ifndef GSL_1_1_LATER
+#define GSL_1_1_LATER
+#endif
+#ifndef GSL_1_1_1_LATER
+#define GSL_1_1_1_LATER
+#endif
+#ifndef GSL_1_2_LATER
+#define GSL_1_2_LATER
+#endif
+#ifndef GSL_1_3_LATER
+#define GSL_1_3_LATER
+#endif
+#ifndef GSL_1_4_LATER
+#define GSL_1_4_LATER
+#endif
+#ifndef GSL_1_4_9_LATER
+#define GSL_1_4_9_LATER
+#endif
+#ifndef GSL_1_6_LATER
+#define GSL_1_6_LATER
+#endif
+#ifndef GSL_1_8_LATER
+#define GSL_1_8_LATER
+#endif
+#ifndef GSL_1_9_LATER
+#define GSL_1_9_LATER
+#endif
+#ifndef GSL_1_10_LATER
+#define GSL_1_10_LATER
+#endif
+#ifndef GSL_1_11_LATER
+#define GSL_1_11_LATER
+#endif
+#ifndef GSL_1_13_LATER
+#define GSL_1_13_LATER
+#endif
+#ifndef GSL_1_14_LATER
+#define GSL_1_14_LATER
+#endif
+#ifndef GSL_1_15_LATER
+#define GSL_1_15_LATER
+#endif
+#ifndef RUBY_GSL_VERSION
+#define RUBY_GSL_VERSION "1.15.0"
+#endif
+#ifndef RUBY_1_8_LATER
+#define RUBY_1_8_LATER
+#endif
+
+#endif

data/include/rb_gsl_with_narray.h

@@ -1,3 +1,6 @@
+#ifndef RB_GSL_WITH_NARRAY_H
+#define RB_GSL_WITH_NARRAY_H
+
 #ifdef HAVE_NARRAY_H
 
 #include "narray.h"
@@ -7,6 +10,7 @@ gsl_vector* make_cvector_from_narray(VALUE);
 void cvector_set_from_narray(gsl_vector*, VALUE);
 void carray_set_from_narray(double*, VALUE);
 
+VALUE rb_gsl_na_to_gsl_vector_view_method(VALUE na);
 VALUE rb_gsl_na_to_gsl_matrix(VALUE obj, VALUE nna);
 gsl_vector_view* na_to_gv_view(VALUE na);
 gsl_matrix_view* na_to_gm_view(VALUE nna);
@@ -21,4 +25,5 @@ extern VALUE cNVector, cNMatrix;
 
 gsl_vector_complex* na_to_gv_complex(VALUE na);
 gsl_vector_complex_view* na_to_gv_complex_view(VALUE na);
-#endif
+#endif // HAVE_NARRAY_H
+#endif // RB_GSL_WITH_NARRAY_H

data/lib/gsl.rb

@@ -0,0 +1,3 @@
+require('narray')
+require('rb_gsl')
+require('gsl/oper.rb')

data/lib/rbgsl.rb

@@ -0,0 +1,3 @@
+require('narray')
+require('rb_gsl')
+require('gsl/oper.rb')

data/rdoc/fit.rdoc

@@ -28,11 +28,11 @@
 # == {}[link:index.html"name="1] Overview
 # Least-squares fits are found by minimizing \chi^2 (chi-squared), the weighted 
 # sum of squared residuals over n experimental datapoints (x_i, y_i) for the 
-# model Y(c,x), The p parameters of the model are c = {c_0, c_1, �c}. The weight 
-# factors w_i are given by w_i = 1/\sigma_i^2, where \sigma_i is the 
-# experimental error on the data-point y_i. The errors are assumed to be 
-# gaussian and uncorrelated. For unweighted data the chi-squared sum is computed 
-# without any weight factors. 
+# model Y(c,x), The p parameters of the model are c = {c_0, c_1, ...}. The
+# weight factors w_i are given by w_i = 1/\sigma_i^2, where \sigma_i is the
+# experimental error on the data-point y_i. The errors are assumed to be
+# gaussian and uncorrelated. For unweighted data the chi-squared sum is
+# computed without any weight factors.
 #
 # The fitting routines return the best-fit parameters c and their p \times p 
 # covariance matrix. The covariance matrix measures the statistical errors on 

data/rdoc/ndlinear.rdoc

@@ -19,7 +19,7 @@
 # design matrix X_{ij = F_j(x_i) in the special case that the basis functions 
 # separate: Here the superscript value j indicates the basis function 
 # corresponding to the independent variable x_j. The subscripts (i_1, i_2, i_3, 
-# �c) refer to which basis function to use from the complete set. These 
+# ...) refer to which basis function to use from the complete set. These
 # subscripts are related to the index i in a complex way, which is the main 
 # problem this extension addresses. The model then becomes where n is the 
 # dimension of the fit and N_i is the number of basis functions for the variable 
@@ -111,7 +111,10 @@
 # * GSL::MultiFit::Ndlinear.calc(x, c, w)
 # * GSL::MultiFit::Ndlinear::Workspace#calc(x, c)
 #
-#   This method is similar to <tt>GSL::MultiFit::Ndlinear.est</tt>, but does not compute the model error. It computes the model value at the data point <tt>x</tt>  using the coefficient vector <tt>c</tt> and returns the model value.
+#   This method is similar to <tt>GSL::MultiFit::Ndlinear.est</tt>, but does
+#   not compute the model error. It computes the model value at the data point
+#   <tt>x</tt>  using the coefficient vector <tt>c</tt> and returns the model
+#   value.
 #
 # == {}[link:index.html"name="3] Examples
 # This example program generates data from the 3D isotropic harmonic oscillator 

data/tests/gsl_test2.rb

@@ -23,9 +23,12 @@ module GSL
 
 # PASS if status == true, FAIL otherwise
     def test2(status, desc)
+      $tests += 1
       if status == true
+        $passed += 1
         printf("PASS: #{desc}\n")
       else
+        $failed += 1
         printf("FAIL: #{desc}\n")
       end
     end

data/tests/matrix/matrix_complex_test.rb

@@ -0,0 +1,36 @@
+require 'minitest/autorun'
+require 'minitest/unit'
+
+require 'gsl'
+
+class MatrixComplex < MiniTest::Unit::TestCase
+
+  def test_eye
+    z = GSL::Complex[1,0]
+    m = GSL::Matrix::Complex.eye(2, z)
+    assert_equal(z, m[0,0])
+    assert_equal(GSL::Complex[0,0], m[0,1])
+    assert_equal(GSL::Complex[0,0], m[1,0])
+    assert_equal(z, m[1,1])
+  end
+
+  def test_set_row
+    z0 = GSL::Complex[1,0]
+    z1 = GSL::Complex[2,0]
+    m = GSL::Matrix::Complex[2,2]
+    m.set_row(0,z0,z1)
+    assert_equal(z0, m[0,0])
+    assert_equal(z1, m[0,1])
+  end
+
+  def test_set_col
+    z0 = GSL::Complex[1,0]
+    z1 = GSL::Complex[2,0]
+    m = GSL::Matrix::Complex[2,2]
+    m.set_col(0,z0,z1)
+    assert_equal(z0, m[0,0])
+    assert_equal(z1, m[1,0])
+  end
+
+end
+

data/tests/narray/blas_dnrm2.rb

@@ -0,0 +1,20 @@
+#!/usr/bin/env ruby
+
+require 'rubygems'
+require 'narray'
+require 'gsl'
+require '../gsl_test.rb'
+include GSL::Test
+
+dbleps = 1e-6
+expected = Math.sqrt((0..4).inject {|m,x| m+=x*x})
+
+v = GSL::Vector.indgen(5)
+v_dnrm2 = GSL::Blas.dnrm2(v)
+GSL::Test.test_rel(v_dnrm2, expected, dbleps, "GSL::Blas.dnrm2(GSL::Vector)")
+
+na = NArray.float(5).indgen!
+na_dnrm2 = GSL::Blas.dnrm2(na)
+GSL::Test.test_rel(na_dnrm2, expected, dbleps, "GSL::Blas.dnrm2(NArray)")
+
+GSL::Test.test_rel(na_dnrm2, v_dnrm2, 0, "GSL::Blas.dnrm2(NArray) == GSL::Blas.dnrm2(GSL::Vector)")

data/tests/poly/poly.rb

@@ -33,14 +33,26 @@ x0, x1 = GSL::Poly.solve_quadratic(5.0, 0.0, -20.0).to_a
 test_rel(x0, -2.0, 1e-9, "x0, 5 x^2 = 20")
 test_rel(x1, 2.0, 1e-9, "x1, 5 x^2 = 20")
 
+# Quadratic single real root (technically not a quadratic)
+x0, x1 = GSL::Poly.solve_quadratic(0.0, 1.0, 0.0).to_a
+test_rel(x0, 0.0, 0, "x0, x = 0")
+test2(x1.nil?, "x1, x = 0 is nil")
+
+# Quadratic no real root
+x0, x1 = GSL::Poly.solve_quadratic(1.0, 0.0, 1.0).to_a
+test2(x0.nil?, "x0, x^2 = -1 is nil")
+test2(x1.nil?, "x1, x^2 = -1 is nil")
+
 x0, x1, x2 = GSL::Poly.solve_cubic(0.0, 0.0, -27.0).to_a
 test_rel(x0, 3.0, 1e-9, "x0, x^3 = 27")
 
+# Cubic triple real root
 x0, x1, x2 = GSL::Poly.solve_cubic(-51.0, 867.0, -4913.0).to_a
 test_rel(x0, 17.0, 1e-9, "x0, (x-17)^3=0")
 test_rel(x1, 17.0, 1e-9, "x1, (x-17)^3=0")
 test_rel(x2, 17.0, 1e-9, "x2, (x-17)^3=0")
 
+# Cubic double real root plus single real root
 x0, x1, x2 = GSL::Poly.solve_cubic(-57.0, 1071.0, -6647.0).to_a
 test_rel(x0, 17.0, 1e-9, "x0, (x-17)(x-17)(x-23)=0")
 test_rel(x1, 17.0, 1e-9, "x1, (x-17)(x-17)(x-23)=0")
@@ -61,6 +73,16 @@ test_rel(x0, -17.0, 1e-9, "x0, (x+17)(x-31)(x-95)=0")
 test_rel(x1, 31.0, 1e-9, "x1, (x+17)(x-31)(x-95)=0")
 test_rel(x2, 95.0, 1e-9, "x2, (x+17)(x-31)(x-95)=0")
 
+# Cubic double real root only is impossible
+
+# Cubic single real root (and two complex roots, not returned)
+x0, x1, x2 = GSL::Poly.solve_cubic(0.0, 0.0, -1.0).to_a
+test_rel(x0, 1.0, 1e-9, "x0, x^3 = 1")
+test2(x1.nil?, "x1, x^3 = 1 is nil")
+test2(x2.nil?, "x2, x^3 = 1 is nil")
+
+# Cubic no real root is impossible
+
 #z0, z1 = GSL::Poly.complex_solve_quadratic(4.0, -20.0, 26.0).to_a
 r = GSL::Poly::Complex.solve_quadratic(4.0, -20.0, 26.0)
 z0 = r[0]
@@ -104,6 +126,18 @@ test_rel(z[0].im, -2.0, 1e-9, "z[0].imag, 5 x^2 = -20")
 test_rel(z[1].re, 0.0, 1e-9, "z[1].real, 5 x^2 = -20")
 test_rel(z[1].im, 2.0, 1e-9, "z[1].imag, 5 x^2 = -20")
 
+# Quadratic single complex root (technically not quadratic and root not
+# complex since imaginary component is 0, but the data type is complex)
+z = GSL::Poly.complex_solve_quadratic(0.0, 1.0, -1.0)
+test_rel(z[0].re, 1.0, 1e-9, "z[0].real, x = 1 (complex)")
+test_rel(z[0].im, 0.0, 0.0,  "z[0].imag, x = 1 (complex)")
+test2(x1.nil?, "z[1], x = 0 is nil")
+
+# Quadratic no complex root (technically not quadratic)
+z = GSL::Poly.complex_solve_quadratic(0.0, 0.0, 1.0)
+test2(z[0].nil?, "z[0], 1 = 0 is nil")
+test2(z[1].nil?, "z[1], 1 = 0 is nil")
+
 z = GSL::Poly.complex_solve_cubic(0.0, 0.0, -27.0)
 test_rel(z[0].re, -1.5, 1e-9, "z[0].real, x^3 = 27");
 test_rel(z[0].im, -1.5 * sqrt(3.0), 1e-9,
@@ -240,3 +274,17 @@ test_rel(dc[2], 2.0*c[2] + 3.0*2.0*c[3]*x + 4.0*3.0*c[4]*x*x + 5.0*4.0*c[5]*x*x*
 test_rel(dc[3], 3.0*2.0*c[3] + 4.0*3.0*2.0*c[4]*x + 5.0*4.0*3.0*c[5]*x*x , eps,"eval_derivs({+1, -2, +3, -4, +5, -6} deriv 3, -174.0)");
 test_rel(dc[4], 4.0*3.0*2.0*c[4] + 5.0*4.0*3.0*2.0*c[5]*x, eps, "eval_derivs({+1, -2, +3, -4, +5, -6} deriv 4, +480.0)");
 test_rel(dc[5], 5.0*4.0*3.0*2.0*c[5] , eps, "eval_derivs({+1, -2, +3, -4, +5, -6} deriv 5, -720.0)");
+
+# Test Poly::fit and Poly::wfit
+x = GSL::Vector[0, 2, 2]
+y = GSL::Vector[0, 1, -1]
+coef, cov, chisq, status = Poly.fit(x, y, 1)
+test_rel(coef[0], 0.0, 1e-9, "y intercept == 0")
+test_rel(coef[1], 0.0, 1e-9, "slope == 0")
+test_rel(chisq, 2.0, 1e-9, "chisq == 2")
+
+w = GSL::Vector[1, 1, 0]
+coef, cov, chisq, status = Poly.wfit(x, w, y, 1)
+test_rel(coef[0], 0.0, 1e-9, "y intercept == 0")
+test_rel(coef[1], 0.5, 1e-9, "slope == 0.5")
+test_rel(chisq, 0.0, 1e-9, "chisq == 0")