unstable-commit

git-svn-id: svn+ssh://svn.sourceforge.jp/svnroot/applied-gslp@173 0e905424-1750-4201-adbd-bf076348bc1c

diff --git a/trunk/noumerov/noumerov.plt b/trunk/noumerov/noumerov.plt
index ba89700..d7dcf4d 100644 (file)
--- a/trunk/noumerov/noumerov.plt
+++ b/trunk/noumerov/noumerov.plt
@@ -23,8 +23,7 @@ y1_(x) = -(cos(x)+sin(x));
 
 plot   "tmp/gsl_test.stdout"   using 1:2,\
        "tmp/gsl_test.stdout"   using 1:3,\
-       "tmp/gsl_test.stdout"   using 1:(j0($1)),\
-       "tmp/gsl_test.stdout"   using 1:(sin($1)/$1)
+       "tmp/gsl_test.stdout"   using 1:(j1($1))
 pause -1
 exit;
 #b = sqrt(2*m*E)/hbar;

diff --git a/trunk/test/gsl_test b/trunk/test/gsl_test
index 77fd06d..5cb5192 100755 (executable)
Binary files a/trunk/test/gsl_test and b/trunk/test/gsl_test differ

diff --git a/trunk/test/gsl_test.c b/trunk/test/gsl_test.c
index d4cb85e..dbca57c 100644 (file)
--- a/trunk/test/gsl_test.c
+++ b/trunk/test/gsl_test.c
@@ -33,6 +33,7 @@ void test()
                x += 0.1;
                printf("% e\t", x);
                printf("% e\t", gsl_sf_bessel_jl(l, x));
+               printf("% e\t", gsl_sf_bessel_j1(x));
                printf("% e\t", (sin(x)-cos(x))/x);
                printf("% e\t", gsl_sf_bessel_yl(l, x));
                printf("% d\n", i);

diff --git a/trunk/test/gsl_test.o b/trunk/test/gsl_test.o
index cc74939..8cc00a8 100644 (file)
Binary files a/trunk/test/gsl_test.o and b/trunk/test/gsl_test.o differ