unstable-commit

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

diff --git a/trunk/noumerov/noumerov.plt b/trunk/noumerov/noumerov.plt
index 05ca9dc..ba89700 100644 (file)
--- a/trunk/noumerov/noumerov.plt
+++ b/trunk/noumerov/noumerov.plt
@@ -26,6 +26,7 @@ plot  "tmp/gsl_test.stdout"   using 1:2,\
        "tmp/gsl_test.stdout"   using 1:(j0($1)),\
        "tmp/gsl_test.stdout"   using 1:(sin($1)/$1)
 pause -1
+exit;
 #b = sqrt(2*m*E)/hbar;
 #A               = 2.73547e+31      +/- 9.502e+27    (0.03474%)
 #delta           = 0.138346         +/- 0.0004599    (0.3324%)

diff --git a/trunk/test/gsl_test b/trunk/test/gsl_test
index 886576b..77fd06d 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 4e9e334..d4cb85e 100644 (file)
--- a/trunk/test/gsl_test.c
+++ b/trunk/test/gsl_test.c
@@ -27,13 +27,13 @@ void test(void);
 void test()
 {
        int i = 0;
-       int l = 0;
+       int l = 1;
        double x = 0.0;
        for(i=0;i<1000;i++){
                x += 0.1;
                printf("% e\t", x);
                printf("% e\t", gsl_sf_bessel_jl(l, x));
-               printf("% e\t", sin(x)/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 8b17b0f..cc74939 100644 (file)
Binary files a/trunk/test/gsl_test.o and b/trunk/test/gsl_test.o differ