gsl 1.12.109 → 1.14.5

Sign up to get free protection for your applications and to get access to all the features.
Files changed (511) hide show
  1. data/AUTHORS +6 -0
  2. data/COPYING +339 -0
  3. data/ChangeLog +556 -0
  4. data/{README.rdoc → README} +3 -0
  5. data/Rakefile +54 -10
  6. data/THANKS +17 -0
  7. data/VERSION +1 -2
  8. data/examples/alf/alf.gp +15 -0
  9. data/examples/alf/alf.rb +32 -0
  10. data/examples/blas/blas.rb +13 -0
  11. data/examples/blas/dnrm2.rb +16 -0
  12. data/examples/blas/level1.rb +81 -0
  13. data/examples/blas/level2.rb +11 -0
  14. data/examples/blas/level3.rb +12 -0
  15. data/examples/bspline.rb +57 -0
  16. data/examples/cdf.rb +16 -0
  17. data/examples/cheb.rb +21 -0
  18. data/examples/combination.rb +23 -0
  19. data/examples/complex/RC-lpf.rb +47 -0
  20. data/examples/complex/add.rb +36 -0
  21. data/examples/complex/coerce.rb +14 -0
  22. data/examples/complex/complex.rb +25 -0
  23. data/examples/complex/fpmi.rb +70 -0
  24. data/examples/complex/functions.rb +77 -0
  25. data/examples/complex/michelson.rb +36 -0
  26. data/examples/complex/mul.rb +28 -0
  27. data/examples/complex/oscillator.rb +17 -0
  28. data/examples/complex/set.rb +37 -0
  29. data/examples/const/physconst.rb +151 -0
  30. data/examples/const/travel.rb +45 -0
  31. data/examples/deriv/demo.rb +13 -0
  32. data/examples/deriv/deriv.rb +36 -0
  33. data/examples/deriv/diff.rb +35 -0
  34. data/examples/dht.rb +42 -0
  35. data/examples/dirac.rb +56 -0
  36. data/examples/eigen/eigen.rb +34 -0
  37. data/examples/eigen/herm.rb +22 -0
  38. data/examples/eigen/narray.rb +9 -0
  39. data/examples/eigen/nonsymm.rb +37 -0
  40. data/examples/eigen/nonsymmv.rb +43 -0
  41. data/examples/eigen/qhoscillator.gp +35 -0
  42. data/examples/eigen/qhoscillator.rb +90 -0
  43. data/examples/eigen/vander.rb +41 -0
  44. data/examples/fft/fft.rb +17 -0
  45. data/examples/fft/fft2.rb +17 -0
  46. data/examples/fft/forward.rb +25 -0
  47. data/examples/fft/forward2.rb +26 -0
  48. data/examples/fft/radix2.rb +18 -0
  49. data/examples/fft/real-halfcomplex.rb +33 -0
  50. data/examples/fft/real-halfcomplex2.rb +30 -0
  51. data/examples/fft/realradix2.rb +19 -0
  52. data/examples/fft/sunspot.dat +256 -0
  53. data/examples/fft/sunspot.rb +16 -0
  54. data/examples/fit/expdata.dat +20 -0
  55. data/examples/fit/expfit.rb +31 -0
  56. data/examples/fit/gaussfit.rb +29 -0
  57. data/examples/fit/gaussian_2peaks.rb +34 -0
  58. data/examples/fit/hillfit.rb +40 -0
  59. data/examples/fit/lognormal.rb +26 -0
  60. data/examples/fit/lorentzfit.rb +22 -0
  61. data/examples/fit/multifit.rb +72 -0
  62. data/examples/fit/ndlinear.rb +133 -0
  63. data/examples/fit/nonlinearfit.rb +89 -0
  64. data/examples/fit/plot.gp +36 -0
  65. data/examples/fit/polyfit.rb +9 -0
  66. data/examples/fit/powerfit.rb +21 -0
  67. data/examples/fit/sigmoidfit.rb +40 -0
  68. data/examples/fit/sinfit.rb +22 -0
  69. data/examples/fit/wlinear.rb +46 -0
  70. data/examples/fresnel.rb +11 -0
  71. data/examples/function/function.rb +36 -0
  72. data/examples/function/log.rb +7 -0
  73. data/examples/function/min.rb +33 -0
  74. data/examples/function/sin.rb +10 -0
  75. data/examples/function/synchrotron.rb +18 -0
  76. data/examples/gallery/butterfly.rb +7 -0
  77. data/examples/gallery/cayley.rb +12 -0
  78. data/examples/gallery/cornu.rb +23 -0
  79. data/examples/gallery/eight.rb +11 -0
  80. data/examples/gallery/koch.rb +40 -0
  81. data/examples/gallery/lemniscate.rb +11 -0
  82. data/examples/gallery/polar.rb +11 -0
  83. data/examples/gallery/rgplot/cossin.rb +35 -0
  84. data/examples/gallery/rgplot/rgplot.replaced +0 -0
  85. data/examples/gallery/rgplot/roesller.rb +55 -0
  86. data/examples/gallery/roesller.rb +39 -0
  87. data/examples/gallery/scarabaeus.rb +14 -0
  88. data/examples/histogram/cauchy.rb +27 -0
  89. data/examples/histogram/cauchy.sh +2 -0
  90. data/examples/histogram/exponential.rb +19 -0
  91. data/examples/histogram/gauss.rb +16 -0
  92. data/examples/histogram/gsl-histogram.rb +40 -0
  93. data/examples/histogram/histo2d.rb +31 -0
  94. data/examples/histogram/histo3d.rb +34 -0
  95. data/examples/histogram/histogram-pdf.rb +27 -0
  96. data/examples/histogram/histogram.rb +26 -0
  97. data/examples/histogram/integral.rb +28 -0
  98. data/examples/histogram/poisson.rb +27 -0
  99. data/examples/histogram/power.rb +25 -0
  100. data/examples/histogram/rebin.rb +17 -0
  101. data/examples/histogram/smp.dat +5 -0
  102. data/examples/histogram/xexp.rb +21 -0
  103. data/examples/integration/ahmed.rb +21 -0
  104. data/examples/integration/cosmology.rb +75 -0
  105. data/examples/integration/friedmann.gp +16 -0
  106. data/examples/integration/friedmann.rb +35 -0
  107. data/examples/integration/gamma-zeta.rb +35 -0
  108. data/examples/integration/integration.rb +22 -0
  109. data/examples/integration/qag.rb +8 -0
  110. data/examples/integration/qag2.rb +14 -0
  111. data/examples/integration/qag3.rb +8 -0
  112. data/examples/integration/qagi.rb +28 -0
  113. data/examples/integration/qagi2.rb +49 -0
  114. data/examples/integration/qagiu.rb +29 -0
  115. data/examples/integration/qagp.rb +20 -0
  116. data/examples/integration/qags.rb +14 -0
  117. data/examples/integration/qawc.rb +18 -0
  118. data/examples/integration/qawf.rb +41 -0
  119. data/examples/integration/qawo.rb +29 -0
  120. data/examples/integration/qaws.rb +30 -0
  121. data/examples/integration/qng.rb +17 -0
  122. data/examples/interp/demo.gp +20 -0
  123. data/examples/interp/demo.rb +45 -0
  124. data/examples/interp/interp.rb +37 -0
  125. data/examples/interp/points +10 -0
  126. data/examples/interp/spline.rb +20 -0
  127. data/examples/jacobi/deriv.rb +40 -0
  128. data/examples/jacobi/integrate.rb +34 -0
  129. data/examples/jacobi/interp.rb +43 -0
  130. data/examples/jacobi/jacobi.rb +11 -0
  131. data/examples/linalg/HH.rb +15 -0
  132. data/examples/linalg/HH_narray.rb +13 -0
  133. data/examples/linalg/LQ_solve.rb +73 -0
  134. data/examples/linalg/LU.rb +84 -0
  135. data/examples/linalg/LU2.rb +31 -0
  136. data/examples/linalg/LU_narray.rb +24 -0
  137. data/examples/linalg/PTLQ.rb +47 -0
  138. data/examples/linalg/QR.rb +18 -0
  139. data/examples/linalg/QRPT.rb +47 -0
  140. data/examples/linalg/QR_solve.rb +78 -0
  141. data/examples/linalg/QR_solve_narray.rb +13 -0
  142. data/examples/linalg/SV.rb +16 -0
  143. data/examples/linalg/SV_narray.rb +12 -0
  144. data/examples/linalg/SV_solve.rb +49 -0
  145. data/examples/linalg/chol.rb +29 -0
  146. data/examples/linalg/chol_narray.rb +15 -0
  147. data/examples/linalg/complex.rb +57 -0
  148. data/examples/linalg/invert_narray.rb +10 -0
  149. data/examples/math/const.rb +67 -0
  150. data/examples/math/elementary.rb +35 -0
  151. data/examples/math/functions.rb +41 -0
  152. data/examples/math/inf_nan.rb +34 -0
  153. data/examples/math/minmax.rb +22 -0
  154. data/examples/math/power.rb +18 -0
  155. data/examples/math/test.rb +31 -0
  156. data/examples/matrix/a.dat +0 -0
  157. data/examples/matrix/add.rb +45 -0
  158. data/examples/matrix/b.dat +4 -0
  159. data/examples/matrix/cat.rb +31 -0
  160. data/examples/matrix/colvectors.rb +24 -0
  161. data/examples/matrix/complex.rb +41 -0
  162. data/examples/matrix/det.rb +29 -0
  163. data/examples/matrix/diagonal.rb +23 -0
  164. data/examples/matrix/get_all.rb +159 -0
  165. data/examples/matrix/hilbert.rb +31 -0
  166. data/examples/matrix/iterator.rb +19 -0
  167. data/examples/matrix/matrix.rb +57 -0
  168. data/examples/matrix/minmax.rb +53 -0
  169. data/examples/matrix/mul.rb +39 -0
  170. data/examples/matrix/rand.rb +20 -0
  171. data/examples/matrix/read.rb +29 -0
  172. data/examples/matrix/rowcol.rb +47 -0
  173. data/examples/matrix/set.rb +41 -0
  174. data/examples/matrix/set_all.rb +100 -0
  175. data/examples/matrix/view.rb +32 -0
  176. data/examples/matrix/view_all.rb +148 -0
  177. data/examples/matrix/write.rb +23 -0
  178. data/examples/min.rb +29 -0
  179. data/examples/monte/miser.rb +47 -0
  180. data/examples/monte/monte.rb +47 -0
  181. data/examples/monte/plain.rb +47 -0
  182. data/examples/monte/vegas.rb +46 -0
  183. data/examples/multimin/bundle.rb +66 -0
  184. data/examples/multimin/cqp.rb +109 -0
  185. data/examples/multimin/fdfminimizer.rb +40 -0
  186. data/examples/multimin/fminimizer.rb +41 -0
  187. data/examples/multiroot/demo.rb +36 -0
  188. data/examples/multiroot/fdfsolver.rb +50 -0
  189. data/examples/multiroot/fsolver.rb +33 -0
  190. data/examples/multiroot/fsolver2.rb +32 -0
  191. data/examples/multiroot/fsolver3.rb +26 -0
  192. data/examples/narray/histogram.rb +14 -0
  193. data/examples/narray/mandel.rb +27 -0
  194. data/examples/narray/narray.rb +28 -0
  195. data/examples/narray/narray2.rb +44 -0
  196. data/examples/narray/sf.rb +26 -0
  197. data/examples/ntuple/create.rb +17 -0
  198. data/examples/ntuple/project.rb +31 -0
  199. data/examples/odeiv/binarysystem.gp +23 -0
  200. data/examples/odeiv/binarysystem.rb +104 -0
  201. data/examples/odeiv/demo.gp +24 -0
  202. data/examples/odeiv/demo.rb +69 -0
  203. data/examples/odeiv/demo2.gp +26 -0
  204. data/examples/odeiv/duffing.rb +45 -0
  205. data/examples/odeiv/frei1.rb +109 -0
  206. data/examples/odeiv/frei2.rb +76 -0
  207. data/examples/odeiv/legendre.rb +52 -0
  208. data/examples/odeiv/odeiv.rb +32 -0
  209. data/examples/odeiv/odeiv2.rb +45 -0
  210. data/examples/odeiv/oscillator.rb +42 -0
  211. data/examples/odeiv/sedov.rb +97 -0
  212. data/examples/odeiv/whitedwarf.gp +40 -0
  213. data/examples/odeiv/whitedwarf.rb +158 -0
  214. data/examples/ool/conmin.rb +100 -0
  215. data/examples/ool/gencan.rb +99 -0
  216. data/examples/ool/pgrad.rb +100 -0
  217. data/examples/ool/spg.rb +100 -0
  218. data/examples/pdf/bernoulli.rb +5 -0
  219. data/examples/pdf/beta.rb +7 -0
  220. data/examples/pdf/binomiral.rb +10 -0
  221. data/examples/pdf/cauchy.rb +6 -0
  222. data/examples/pdf/chisq.rb +8 -0
  223. data/examples/pdf/exponential.rb +7 -0
  224. data/examples/pdf/exppow.rb +6 -0
  225. data/examples/pdf/fdist.rb +7 -0
  226. data/examples/pdf/flat.rb +7 -0
  227. data/examples/pdf/gamma.rb +8 -0
  228. data/examples/pdf/gauss-tail.rb +5 -0
  229. data/examples/pdf/gauss.rb +6 -0
  230. data/examples/pdf/geometric.rb +5 -0
  231. data/examples/pdf/gumbel.rb +6 -0
  232. data/examples/pdf/hypergeometric.rb +11 -0
  233. data/examples/pdf/landau.rb +5 -0
  234. data/examples/pdf/laplace.rb +7 -0
  235. data/examples/pdf/logarithmic.rb +5 -0
  236. data/examples/pdf/logistic.rb +6 -0
  237. data/examples/pdf/lognormal.rb +6 -0
  238. data/examples/pdf/neg-binomiral.rb +10 -0
  239. data/examples/pdf/pareto.rb +7 -0
  240. data/examples/pdf/pascal.rb +10 -0
  241. data/examples/pdf/poisson.rb +5 -0
  242. data/examples/pdf/rayleigh-tail.rb +6 -0
  243. data/examples/pdf/rayleigh.rb +6 -0
  244. data/examples/pdf/tdist.rb +6 -0
  245. data/examples/pdf/weibull.rb +8 -0
  246. data/examples/permutation/ex1.rb +22 -0
  247. data/examples/permutation/permutation.rb +16 -0
  248. data/examples/poly/bell.rb +6 -0
  249. data/examples/poly/bessel.rb +6 -0
  250. data/examples/poly/cheb.rb +6 -0
  251. data/examples/poly/cheb_II.rb +6 -0
  252. data/examples/poly/cubic.rb +9 -0
  253. data/examples/poly/demo.rb +20 -0
  254. data/examples/poly/eval.rb +28 -0
  255. data/examples/poly/eval_derivs.rb +14 -0
  256. data/examples/poly/fit.rb +21 -0
  257. data/examples/poly/hermite.rb +6 -0
  258. data/examples/poly/poly.rb +13 -0
  259. data/examples/poly/quadratic.rb +25 -0
  260. data/examples/random/diffusion.rb +34 -0
  261. data/examples/random/gaussian.rb +9 -0
  262. data/examples/random/generator.rb +27 -0
  263. data/examples/random/hdsobol.rb +21 -0
  264. data/examples/random/poisson.rb +9 -0
  265. data/examples/random/qrng.rb +19 -0
  266. data/examples/random/randomwalk.rb +37 -0
  267. data/examples/random/randomwalk2d.rb +19 -0
  268. data/examples/random/rayleigh.rb +36 -0
  269. data/examples/random/rng.rb +33 -0
  270. data/examples/random/rngextra.rb +14 -0
  271. data/examples/roots/bisection.rb +25 -0
  272. data/examples/roots/brent.rb +43 -0
  273. data/examples/roots/demo.rb +30 -0
  274. data/examples/roots/newton.rb +46 -0
  275. data/examples/roots/recombination.gp +12 -0
  276. data/examples/roots/recombination.rb +61 -0
  277. data/examples/roots/steffenson.rb +48 -0
  278. data/examples/sf/ShiChi.rb +6 -0
  279. data/examples/sf/SiCi.rb +6 -0
  280. data/examples/sf/airy_Ai.rb +8 -0
  281. data/examples/sf/airy_Bi.rb +8 -0
  282. data/examples/sf/bessel_IK.rb +12 -0
  283. data/examples/sf/bessel_JY.rb +13 -0
  284. data/examples/sf/beta_inc.rb +9 -0
  285. data/examples/sf/clausen.rb +6 -0
  286. data/examples/sf/dawson.rb +5 -0
  287. data/examples/sf/debye.rb +9 -0
  288. data/examples/sf/dilog.rb +6 -0
  289. data/examples/sf/ellint.rb +6 -0
  290. data/examples/sf/expint.rb +8 -0
  291. data/examples/sf/fermi.rb +10 -0
  292. data/examples/sf/gamma_inc_P.rb +9 -0
  293. data/examples/sf/gegenbauer.rb +8 -0
  294. data/examples/sf/hyperg.rb +7 -0
  295. data/examples/sf/laguerre.rb +19 -0
  296. data/examples/sf/lambertW.rb +5 -0
  297. data/examples/sf/legendre_P.rb +10 -0
  298. data/examples/sf/lngamma.rb +5 -0
  299. data/examples/sf/psi.rb +54 -0
  300. data/examples/sf/sphbessel.gp +27 -0
  301. data/examples/sf/sphbessel.rb +30 -0
  302. data/examples/sf/synchrotron.rb +5 -0
  303. data/examples/sf/transport.rb +10 -0
  304. data/examples/sf/zetam1.rb +5 -0
  305. data/examples/siman.rb +44 -0
  306. data/examples/sort/heapsort.rb +23 -0
  307. data/examples/sort/heapsort_vector_complex.rb +21 -0
  308. data/examples/sort/sort.rb +23 -0
  309. data/examples/sort/sort2.rb +16 -0
  310. data/examples/stats/mean.rb +17 -0
  311. data/examples/stats/statistics.rb +18 -0
  312. data/examples/stats/test.rb +9 -0
  313. data/examples/sum.rb +34 -0
  314. data/examples/tamu_anova.rb +18 -0
  315. data/examples/vector/a.dat +0 -0
  316. data/examples/vector/add.rb +56 -0
  317. data/examples/vector/b.dat +4 -0
  318. data/examples/vector/c.dat +3 -0
  319. data/examples/vector/collect.rb +26 -0
  320. data/examples/vector/compare.rb +28 -0
  321. data/examples/vector/complex.rb +51 -0
  322. data/examples/vector/complex_get_all.rb +85 -0
  323. data/examples/vector/complex_set_all.rb +131 -0
  324. data/examples/vector/complex_view_all.rb +77 -0
  325. data/examples/vector/connect.rb +22 -0
  326. data/examples/vector/decimate.rb +38 -0
  327. data/examples/vector/diff.rb +31 -0
  328. data/examples/vector/filescan.rb +17 -0
  329. data/examples/vector/floor.rb +23 -0
  330. data/examples/vector/get_all.rb +82 -0
  331. data/examples/vector/gnuplot.rb +38 -0
  332. data/examples/vector/graph.rb +28 -0
  333. data/examples/vector/histogram.rb +22 -0
  334. data/examples/vector/linspace.rb +24 -0
  335. data/examples/vector/log.rb +17 -0
  336. data/examples/vector/logic.rb +33 -0
  337. data/examples/vector/logspace.rb +25 -0
  338. data/examples/vector/minmax.rb +47 -0
  339. data/examples/vector/mul.rb +49 -0
  340. data/examples/vector/narray.rb +46 -0
  341. data/examples/vector/read.rb +29 -0
  342. data/examples/vector/set.rb +35 -0
  343. data/examples/vector/set_all.rb +121 -0
  344. data/examples/vector/smpv.dat +15 -0
  345. data/examples/vector/test.rb +43 -0
  346. data/examples/vector/test_gslblock.rb +58 -0
  347. data/examples/vector/vector.rb +110 -0
  348. data/examples/vector/view.rb +35 -0
  349. data/examples/vector/view_all.rb +73 -0
  350. data/examples/vector/where.rb +29 -0
  351. data/examples/vector/write.rb +24 -0
  352. data/examples/vector/zip.rb +34 -0
  353. data/examples/wavelet/ecg.dat +256 -0
  354. data/examples/wavelet/wavelet1.rb +50 -0
  355. data/ext/extconf.rb +9 -0
  356. data/ext/gsl.c +10 -1
  357. data/ext/histogram.c +6 -2
  358. data/ext/integration.c +39 -0
  359. data/ext/matrix_complex.c +1 -1
  360. data/ext/multiset.c +214 -0
  361. data/ext/nmf.c +4 -0
  362. data/ext/nmf_wrap.c +3 -0
  363. data/ext/vector_complex.c +1 -1
  364. data/ext/vector_double.c +3 -3
  365. data/ext/vector_source.c +6 -6
  366. data/include/rb_gsl.h +7 -0
  367. data/include/rb_gsl_common.h +6 -0
  368. data/rdoc/alf.rdoc +77 -0
  369. data/rdoc/blas.rdoc +269 -0
  370. data/rdoc/bspline.rdoc +42 -0
  371. data/rdoc/changes.rdoc +164 -0
  372. data/rdoc/cheb.rdoc +99 -0
  373. data/rdoc/cholesky_complex.rdoc +46 -0
  374. data/rdoc/combi.rdoc +125 -0
  375. data/rdoc/complex.rdoc +210 -0
  376. data/rdoc/const.rdoc +546 -0
  377. data/rdoc/dht.rdoc +122 -0
  378. data/rdoc/diff.rdoc +133 -0
  379. data/rdoc/ehandling.rdoc +50 -0
  380. data/rdoc/eigen.rdoc +401 -0
  381. data/rdoc/fft.rdoc +535 -0
  382. data/rdoc/fit.rdoc +284 -0
  383. data/rdoc/function.rdoc +94 -0
  384. data/rdoc/graph.rdoc +137 -0
  385. data/rdoc/hist.rdoc +409 -0
  386. data/rdoc/hist2d.rdoc +279 -0
  387. data/rdoc/hist3d.rdoc +112 -0
  388. data/rdoc/index.rdoc +62 -0
  389. data/rdoc/integration.rdoc +398 -0
  390. data/rdoc/interp.rdoc +231 -0
  391. data/rdoc/intro.rdoc +27 -0
  392. data/rdoc/linalg.rdoc +681 -0
  393. data/rdoc/linalg_complex.rdoc +88 -0
  394. data/rdoc/math.rdoc +276 -0
  395. data/rdoc/matrix.rdoc +1093 -0
  396. data/rdoc/min.rdoc +189 -0
  397. data/rdoc/monte.rdoc +234 -0
  398. data/rdoc/multimin.rdoc +312 -0
  399. data/rdoc/multiroot.rdoc +293 -0
  400. data/rdoc/narray.rdoc +173 -0
  401. data/rdoc/ndlinear.rdoc +247 -0
  402. data/rdoc/nonlinearfit.rdoc +348 -0
  403. data/rdoc/ntuple.rdoc +88 -0
  404. data/rdoc/odeiv.rdoc +378 -0
  405. data/rdoc/perm.rdoc +221 -0
  406. data/rdoc/poly.rdoc +335 -0
  407. data/rdoc/qrng.rdoc +90 -0
  408. data/rdoc/randist.rdoc +233 -0
  409. data/rdoc/ref.rdoc +93 -0
  410. data/rdoc/rng.rdoc +203 -0
  411. data/rdoc/rngextra.rdoc +11 -0
  412. data/rdoc/roots.rdoc +305 -0
  413. data/rdoc/screenshot.rdoc +40 -0
  414. data/rdoc/sf.rdoc +1622 -0
  415. data/rdoc/siman.rdoc +89 -0
  416. data/rdoc/sort.rdoc +94 -0
  417. data/rdoc/start.rdoc +16 -0
  418. data/rdoc/stats.rdoc +219 -0
  419. data/rdoc/sum.rdoc +65 -0
  420. data/rdoc/tensor.rdoc +251 -0
  421. data/rdoc/tut.rdoc +5 -0
  422. data/rdoc/use.rdoc +177 -0
  423. data/rdoc/vector.rdoc +1243 -0
  424. data/rdoc/vector_complex.rdoc +347 -0
  425. data/rdoc/wavelet.rdoc +218 -0
  426. data/setup.rb +1585 -0
  427. data/tests/blas/amax.rb +14 -0
  428. data/tests/blas/asum.rb +16 -0
  429. data/tests/blas/axpy.rb +25 -0
  430. data/tests/blas/copy.rb +23 -0
  431. data/tests/blas/dot.rb +23 -0
  432. data/tests/bspline.rb +53 -0
  433. data/tests/cdf.rb +1388 -0
  434. data/tests/cheb.rb +112 -0
  435. data/tests/combination.rb +123 -0
  436. data/tests/complex.rb +17 -0
  437. data/tests/const.rb +24 -0
  438. data/tests/deriv.rb +85 -0
  439. data/tests/dht/dht1.rb +17 -0
  440. data/tests/dht/dht2.rb +23 -0
  441. data/tests/dht/dht3.rb +23 -0
  442. data/tests/dht/dht4.rb +23 -0
  443. data/tests/diff.rb +78 -0
  444. data/tests/eigen/eigen.rb +220 -0
  445. data/tests/eigen/gen.rb +105 -0
  446. data/tests/eigen/genherm.rb +66 -0
  447. data/tests/eigen/gensymm.rb +68 -0
  448. data/tests/eigen/nonsymm.rb +53 -0
  449. data/tests/eigen/nonsymmv.rb +53 -0
  450. data/tests/eigen/symm-herm.rb +74 -0
  451. data/tests/err.rb +58 -0
  452. data/tests/fit.rb +124 -0
  453. data/tests/gsl_test.rb +118 -0
  454. data/tests/gsl_test2.rb +107 -0
  455. data/tests/histo.rb +12 -0
  456. data/tests/integration/integration1.rb +72 -0
  457. data/tests/integration/integration2.rb +71 -0
  458. data/tests/integration/integration3.rb +71 -0
  459. data/tests/integration/integration4.rb +71 -0
  460. data/tests/interp.rb +45 -0
  461. data/tests/linalg/HH.rb +64 -0
  462. data/tests/linalg/LU.rb +47 -0
  463. data/tests/linalg/QR.rb +77 -0
  464. data/tests/linalg/SV.rb +24 -0
  465. data/tests/linalg/TDN.rb +116 -0
  466. data/tests/linalg/TDS.rb +122 -0
  467. data/tests/linalg/bidiag.rb +73 -0
  468. data/tests/linalg/cholesky.rb +20 -0
  469. data/tests/linalg/linalg.rb +158 -0
  470. data/tests/matrix/matrix_nmf_test.rb +39 -0
  471. data/tests/matrix/matrix_test.rb +48 -0
  472. data/tests/min.rb +99 -0
  473. data/tests/monte/miser.rb +31 -0
  474. data/tests/monte/vegas.rb +45 -0
  475. data/tests/multifit/test_2dgauss.rb +112 -0
  476. data/tests/multifit/test_brown.rb +90 -0
  477. data/tests/multifit/test_enso.rb +246 -0
  478. data/tests/multifit/test_filip.rb +155 -0
  479. data/tests/multifit/test_gauss.rb +97 -0
  480. data/tests/multifit/test_longley.rb +110 -0
  481. data/tests/multifit/test_multifit.rb +52 -0
  482. data/tests/multimin.rb +139 -0
  483. data/tests/multiroot.rb +131 -0
  484. data/tests/multiset.rb +52 -0
  485. data/tests/odeiv.rb +353 -0
  486. data/tests/poly/poly.rb +242 -0
  487. data/tests/poly/special.rb +65 -0
  488. data/tests/qrng.rb +131 -0
  489. data/tests/quartic.rb +29 -0
  490. data/tests/randist.rb +134 -0
  491. data/tests/rng.rb +305 -0
  492. data/tests/roots.rb +76 -0
  493. data/tests/run-test.sh +17 -0
  494. data/tests/sf/gsl_test_sf.rb +249 -0
  495. data/tests/sf/test_airy.rb +83 -0
  496. data/tests/sf/test_bessel.rb +306 -0
  497. data/tests/sf/test_coulomb.rb +17 -0
  498. data/tests/sf/test_dilog.rb +25 -0
  499. data/tests/sf/test_gamma.rb +209 -0
  500. data/tests/sf/test_hyperg.rb +356 -0
  501. data/tests/sf/test_legendre.rb +227 -0
  502. data/tests/sf/test_mathieu.rb +59 -0
  503. data/tests/sf/test_sf.rb +839 -0
  504. data/tests/stats.rb +174 -0
  505. data/tests/sum.rb +98 -0
  506. data/tests/sys.rb +323 -0
  507. data/tests/tensor.rb +419 -0
  508. data/tests/vector/vector_complex_test.rb +101 -0
  509. data/tests/vector/vector_test.rb +141 -0
  510. data/tests/wavelet.rb +142 -0
  511. metadata +596 -15
@@ -0,0 +1,16 @@
1
+ #!/usr/bin/env ruby
2
+ # Analysis of the solar activity of 11-years cycle
3
+ # from the number of sunspots.
4
+ # This example is taken from the MATLAB user's manual Chap 13.
5
+
6
+ require("gsl")
7
+
8
+ year, sunspot = GSL::Vector.filescan("sunspot.dat")
9
+ N = year.size
10
+ ffted = sunspot.fft
11
+
12
+ #power = GSL.sqrt(ffted[1..(N-2)].to_complex2.abs2)*2/N
13
+ power = GSL.sqrt(ffted.to_complex2.abs2)*2/N
14
+ freq = GSL::Vector.linspace(1, N/2, power.size)/N
15
+ period = 1.0/freq
16
+ GSL::graph(period, power, "-C -g 3 -x 0 40 -X 'Period [year]'")
@@ -0,0 +1,20 @@
1
+ 0 6.02678 0.2
2
+ 1 5.50657 0.2
3
+ 2 5.42854 0.2
4
+ 3 4.85082 0.2
5
+ 4 4.55111 0.2
6
+ 5 3.77715 0.2
7
+ 6 3.26472 0.2
8
+ 7 3.34707 0.2
9
+ 8 3.23883 0.2
10
+ 9 3.21156 0.2
11
+ 10 2.83587 0.2
12
+ 11 2.40504 0.2
13
+ 12 2.37237 0.2
14
+ 13 2.399 0.2
15
+ 14 2.39919 0.2
16
+ 15 2.006 0.2
17
+ 16 1.88188 0.2
18
+ 17 1.91484 0.2
19
+ 18 1.69252 0.2
20
+ 19 1.58229 0.2
@@ -0,0 +1,31 @@
1
+ #!/usr/bin/env ruby
2
+ require("gsl")
3
+
4
+ N = 40
5
+
6
+ amp0 = 5.0
7
+ b0 = 0.1
8
+ y0 = 1.0
9
+
10
+ r = GSL::Rng.alloc()
11
+ x = GSL::Vector[0...N]
12
+ sigma = GSL::Vector[N]
13
+ sigma.set_all(0.1)
14
+ y = y0 + amp0*GSL::Sf::exp(-b0*x) + 0.1*r.gaussian(1, N)
15
+
16
+ coef, err, chi2, dof = GSL::MultiFit::FdfSolver.fit(x, sigma, y, "exponential")
17
+ y0 = coef[0]
18
+ amp = coef[1]
19
+ b = coef[2]
20
+ p coef
21
+ p err
22
+ GSL::graph(x, y, y0+amp*GSL::Sf::exp(-b*x))
23
+
24
+ # This will result in
25
+ # [ 1.019e+00 5.045e+00 1.040e-01 ]
26
+ # [ 3.385e-02 5.395e-02 2.826e-03 ]
27
+
28
+ # GNUPLOT results:
29
+ # y0 = 1.01925 +/- 0.03383 (3.319%)
30
+ # A = 5.04536 +/- 0.05396 (1.069%)
31
+ # b = 0.104049 +/- 0.002826 (2.716%)
@@ -0,0 +1,29 @@
1
+ #!/usr/bin/env ruby
2
+ require("gsl")
3
+
4
+ # Create data
5
+ r = GSL::Rng.alloc("knuthran")
6
+ sigma = 1.5
7
+ x0 = 1.0
8
+ amp = 2.0
9
+ y0 = 3.0
10
+ N = 100
11
+ x = GSL::Vector.linspace(-4, 6, N)
12
+ y = y0 + amp*GSL::Ran::gaussian_pdf(x - x0, sigma) + 0.02*GSL::Ran::gaussian(r, 1.0, N)
13
+
14
+ coef, err, chi2, dof = GSL::MultiFit::FdfSolver.fit(x, y, "gaussian")
15
+ sigma2 = Math::sqrt(coef[3])
16
+ x02 = coef[2]
17
+ amp2 = coef[1]*Math::sqrt(2*Math::PI)*sigma
18
+ y02 = coef[0]
19
+ y2 = y02 + amp2*GSL::Ran::gaussian_pdf(x - x02, sigma2)
20
+
21
+ GSL::graph(x, y, y2, "-C -g 3 -x -4 6")
22
+
23
+ printf("Expect:\n")
24
+ printf("sigma = #{sigma}, x0 = #{x0}, amp = #{amp}, y0 = #{y0}\n")
25
+ printf("Result:\n")
26
+ printf("sigma = %5.4e +/- %5.4e\n", sigma2, err[3])
27
+ printf(" x0 = %5.4e +/- %5.4e\n", x02, err[2])
28
+ printf(" amp = %5.4e +/- %5.4e\n", amp2, err[1])
29
+ printf(" y0 = %5.4e +/- %5.4e\n", y02, err[0])
@@ -0,0 +1,34 @@
1
+ #!/usr/bin/env ruby
2
+ require("gsl")
3
+
4
+ # Create data
5
+ r = GSL::Rng.alloc("knuthran")
6
+ amp1 = 5.0
7
+ x01 = 1.0
8
+ sigma1 = 1.5
9
+
10
+ amp2 = 2.0
11
+ x02 = 5.0
12
+ sigma2 = 0.5
13
+
14
+ y0 = 2.0
15
+ N = 300
16
+ x = GSL::Vector.linspace(-4, 9, N)
17
+ y = y0 + amp1*GSL::Ran::gaussian_pdf(x - x01, sigma1) + amp2*GSL::Ran::gaussian_pdf(x - x02, sigma2) + 0.05*GSL::Ran::gaussian(r, 1.0, N)
18
+
19
+ coef, err, chi2, dof = GSL::MultiFit::FdfSolver.fit(x, y, "gaussian_2peak", [2, 4, 0.9, 1, 1, 4, 1])
20
+
21
+ p coef
22
+ y01 = coef[0]
23
+
24
+ amp1 = coef[1]*Math::sqrt(2*Math::PI)*sigma1
25
+ x01 = coef[2]
26
+ sigma1 = Math::sqrt(coef[3])
27
+
28
+ amp2 = coef[4]*Math::sqrt(2*Math::PI)*sigma2
29
+ x02 = coef[5]
30
+ sigma2 = Math::sqrt(coef[6])
31
+
32
+ y2 = y01 + amp1*GSL::Ran::gaussian_pdf(x - x01, sigma1) + amp2*GSL::Ran::gaussian_pdf(x - x02, sigma2)
33
+
34
+ GSL::graph(x, y, y2, "-C -g 3")
@@ -0,0 +1,40 @@
1
+ #!/usr/bin/env ruby
2
+ require("gsl")
3
+ include GSL::MultiFit
4
+
5
+ N = 100
6
+
7
+ y0 = 1
8
+ m = 2.0
9
+ xhalf = 5
10
+ rr = 4
11
+
12
+ r = GSL::Rng.alloc()
13
+ x = GSL::Vector.linspace(0.001, 10, N)
14
+ y = y0 + (m-y0)/(1.0 + GSL::pow(xhalf/x, rr)) + 0.02*r.gaussian(1, N)
15
+
16
+ coef, err, chi2, dof = GSL::MultiFit::FdfSolver.fit(x, y, "hill")
17
+ y0 = coef[0]
18
+ m = coef[1]
19
+ xhalf = coef[2]
20
+ rr = coef[3]
21
+ p coef
22
+ p err
23
+ GSL::graph(x, y, y0+(m-y0)/(1+GSL::pow(xhalf/x, rr)))
24
+
25
+ =begin
26
+ Result:
27
+ GSL::Vector
28
+ [ 9.959e-01 1.995e+00 4.936e+00 4.035e+00 ]
29
+ GSL::Vector
30
+ [ 4.676e-03 1.035e-02 3.779e-02 1.125e-01 ]
31
+
32
+ GNUPLOT result:
33
+ Final set of parameters Asymptotic Standard Error
34
+ ======================= ==========================
35
+
36
+ y0 = 0.995858 +/- 0.004676 (0.4695%)
37
+ m = 1.99465 +/- 0.01034 (0.5184%)
38
+ xhalf = 4.93605 +/- 0.0378 (0.7658%)
39
+ r = 4.0346 +/- 0.1124 (2.787%)
40
+ =end
@@ -0,0 +1,26 @@
1
+ #!/usr/bin/env ruby
2
+ require("gsl")
3
+
4
+ N = 100
5
+
6
+ y0 = 1.0
7
+ A = 2.0
8
+ x0 = 3.0
9
+ w = 0.5
10
+
11
+ r = GSL::Rng.alloc()
12
+ x = GSL::Vector.linspace(0.01, 10, N)
13
+ sig = 1
14
+ y = y0 + A*GSL::Sf::exp(-GSL::pow_2(GSL::Sf::log(x/x0)/w)) + 0.1*GSL::Ran::gaussian(r, sig, N)
15
+
16
+ coef, err, chi2, dof = GSL::MultiFit::FdfSolver.fit(x, y, "lognormal", [0, 3, 2, 1])
17
+ y0 = coef[0]
18
+ amp = coef[1]
19
+ x0 = coef[2]
20
+ w = coef[3]
21
+
22
+ p coef
23
+ p err
24
+
25
+ GSL::graph(x, y, y0+amp*GSL::Sf::exp(-GSL::pow_2(GSL::Sf::log(x/x0)/w)))
26
+
@@ -0,0 +1,22 @@
1
+ #!/usr/bin/env ruby
2
+ require("gsl")
3
+
4
+ N = 100
5
+
6
+ y0 = 1.0
7
+ A = 2.0
8
+ x0 = 3.0
9
+ B = 4.0
10
+
11
+ r = GSL::Rng.alloc()
12
+ x = GSL::Vector.linspace(-10, 20, N)
13
+ y = y0 + A/(GSL::pow_2(x-x0)+B) + 0.03*GSL::Ran::gaussian(r, 1, N)
14
+
15
+ coef, err, chi2, dof = GSL::MultiFit::FdfSolver.fit(x, y, "lorentzian")
16
+ y0 = coef[0]
17
+ amp = coef[1]
18
+ x0 = coef[2]
19
+ b = coef[3]
20
+ p coef
21
+ p err
22
+ GSL::graph(x, y, y0+amp/(GSL::pow_2(x-x0)+b))
@@ -0,0 +1,72 @@
1
+ #!/usr/bin/env ruby
2
+ require("gsl")
3
+
4
+ GSL::Rng.env_setup()
5
+
6
+ r = GSL::Rng.alloc(GSL::Rng::DEFAULT)
7
+
8
+ n = 19
9
+ dim = 3
10
+ X = GSL::Matrix.alloc(n, dim)
11
+ y = GSL::Vector.alloc(n)
12
+ w = GSL::Vector.alloc(n)
13
+
14
+ file0 = "data.dat"
15
+ file1 = "fit.dat"
16
+
17
+ a = 0.1
18
+ File.open(file0, "w") do |f|
19
+ for i in 0...n
20
+ y0 = Math::exp(a)
21
+ sigma = 0.1*y0
22
+ val = r.gaussian(sigma)
23
+ X[i,0] = 1.0
24
+ X[i,1] = a
25
+ X[i,2] = a*a
26
+ y[i] = y0 + val
27
+ w[i] = 1.0/(sigma*sigma)
28
+ f.printf("%g %g %g\n", a, y[i], sigma)
29
+ a += 0.1
30
+ end
31
+ end
32
+
33
+ c, cov, chisq, status = GSL::MultiFit.wlinear(X, w, y)
34
+
35
+ printf("# best fit: Y = %g + %g X + %g X^2\n", c[0], c[1], c[2])
36
+ printf("# covariance matrix:\n")
37
+ printf("[ %+.5e, %+.5e, %+.5e\n", cov[0,0], cov[0,1], cov[0,2])
38
+ printf(" %+.5e, %+.5e, %+.5e\n", cov[1,0], cov[1,1], cov[1,2])
39
+ printf(" %+.5e, %+.5e, %+.5e ]\n", cov[2,0], cov[2,1], cov[2,2])
40
+ printf("# chisq = %g\n", chisq)
41
+
42
+ str = sprintf("%4.3f", c[0])
43
+ if c[1] > 0.0
44
+ str += sprintf("+ %4.3f*x", c[1].abs)
45
+ else
46
+ str += sprintf("- %4.3f*x", c[1].abs)
47
+ end
48
+ if c[2] > 0.0
49
+ str += sprintf("+ %4.3f*x*x", c[2].abs)
50
+ else
51
+ str += sprintf("- %4.3f*x*x", c[2].abs)
52
+ end
53
+
54
+ func = GSL::Function.alloc { |x, params|
55
+ c0 = params[0]; c1 = params[1]; c2 = params[2]
56
+ c0 + x*(c1 + x*c2)
57
+ }
58
+
59
+ func.set_params(c)
60
+
61
+ File.open(file1, "w") do |f|
62
+ x = 0
63
+ while x < 2
64
+ f.printf("%e %e\n", x, func.eval(x))
65
+ x += 0.01
66
+ end
67
+ end
68
+
69
+ system("graph -T X -C -g 3 -y 0 7 -L '#{str}' -I e -m -1 -S 4 data.dat -I a -m 2 -S 0 fit.dat")
70
+
71
+ File.delete(file0)
72
+ File.delete(file1)
@@ -0,0 +1,133 @@
1
+ #!/usr/bin/env ruby
2
+ require("gsl")
3
+
4
+ unless GSL::MultiFit.const_defined?("Ndlinear")
5
+ puts("The extension library NDLINEAR is not installed.")
6
+ exit()
7
+ end
8
+
9
+ N_DIM = 3
10
+ N_SUM_R = 10
11
+ N_SUM_THETA = 11
12
+ N_SUM_PHI = 9
13
+ R_MAX = 3.0
14
+
15
+ def psi_real_exact(k, l, m, r, theta, phi)
16
+ rr = GSL::pow(r, l)*Math::exp(-r*r)*GSL::Sf::laguerre_n(k, l + 0.5, 2 * r * r)
17
+
18
+ tt = GSL::Sf::legendre_sphPlm(l, m, Math::cos(theta))
19
+
20
+ pp = Math::cos(m*phi)
21
+
22
+ rr*tt*pp
23
+ end
24
+
25
+ basis_r = Proc.new { |r, y, params|
26
+ params.eval(r, y)
27
+ }
28
+
29
+ basis_theta = Proc.new { |theta, y, params|
30
+ for i in 0...N_SUM_THETA do
31
+ y[i] = GSL::Sf::legendre_Pl(i, Math::cos(theta));
32
+ end
33
+ }
34
+
35
+ basis_phi = Proc.new { |phi, y, params|
36
+ for i in 0...N_SUM_PHI do
37
+ if i%2 == 0
38
+ y[i] = Math::cos(i*0.5*phi)
39
+ else
40
+ y[i] = Math::sin((i+1.0)*0.5*phi)
41
+ end
42
+ end
43
+ }
44
+
45
+
46
+ GSL::Rng::env_setup()
47
+
48
+ k = 5
49
+ l = 4
50
+ m = 2
51
+
52
+ NDATA = 3000
53
+
54
+ N = [N_SUM_R, N_SUM_THETA, N_SUM_PHI]
55
+ u = [basis_r, basis_theta, basis_phi]
56
+
57
+ rng = GSL::Rng.alloc()
58
+
59
+ bspline = GSL::BSpline.alloc(4, N_SUM_R - 2)
60
+ bspline.knots_uniform(0.0, R_MAX)
61
+
62
+ ndlinear = GSL::MultiFit::Ndlinear.alloc(N_DIM, N, u, bspline)
63
+ multifit = GSL::MultiFit.alloc(NDATA, ndlinear.n_coeffs)
64
+ vars = GSL::Matrix.alloc(NDATA, N_DIM)
65
+ data = GSL::Vector.alloc(NDATA)
66
+
67
+
68
+ for i in 0...NDATA do
69
+
70
+ r = rng.uniform()*R_MAX
71
+ theta = rng.uniform()*Math::PI
72
+ phi = rng.uniform()*2*Math::PI
73
+
74
+ psi = psi_real_exact(k, l, m, r, theta, phi)
75
+
76
+ dpsi = rng.gaussian(0.05*psi)
77
+
78
+ vars[i,0] = r
79
+ vars[i,1] = theta
80
+ vars[i,2] = phi
81
+
82
+ data[i] = psi + dpsi
83
+ end
84
+
85
+ #GSL::MultiFit::Ndlinear::design(vars, X, ndlinear)
86
+ X = GSL::MultiFit::Ndlinear::design(vars, ndlinear)
87
+
88
+ coeffs, cov, chisq, = GSL::MultiFit::linear(X, data, multifit)
89
+
90
+ rsq = GSL::MultiFit::linear_Rsq(data, chisq)
91
+ STDERR.printf("chisq = %e, Rsq = %f\n", chisq, rsq)
92
+
93
+ eps_rms = 0.0
94
+ volume = 0.0
95
+ dr = 0.05;
96
+ dtheta = 5.0 * Math::PI / 180.0
97
+ dphi = 5.0 * Math::PI / 180.0
98
+ x = GSL::Vector.alloc(N_DIM)
99
+
100
+ r = 0.01
101
+ while r < R_MAX do
102
+ theta = 0.0
103
+ while theta < Math::PI do
104
+ phi = 0.0
105
+ while phi < 2*Math::PI do
106
+ dV = r*r*Math::sin(theta)*dr*dtheta*dphi
107
+ x[0] = r
108
+ x[1] = theta
109
+ x[2] = phi
110
+
111
+ psi_model, err = GSL::MultiFit::Ndlinear.calc(x, coeffs, cov, ndlinear)
112
+ psi = psi_real_exact(k, l, m, r, theta, phi)
113
+ err = psi_model - psi
114
+ eps_rms += err * err * dV;
115
+ volume += dV;
116
+
117
+ if phi == 0.0
118
+ printf("%e %e %e %e\n", r, theta, psi, psi_model)
119
+ end
120
+
121
+ phi += dphi
122
+ end
123
+ theta += dtheta
124
+ end
125
+ printf("\n");
126
+
127
+ r += dr
128
+ end
129
+
130
+ eps_rms /= volume
131
+ eps_rms = Math::sqrt(eps_rms)
132
+ STDERR.printf("rms error over all parameter space = %e\n", eps_rms)
133
+
@@ -0,0 +1,89 @@
1
+ #!/usr/bin/env ruby
2
+ require("gsl")
3
+
4
+ FFF = GSL::Function.alloc { |t, params|
5
+ a = params[0]; lambda = params[1]; b = params[2]
6
+ a*Math::exp(-lambda*t) + b
7
+ }
8
+
9
+ procf = Proc.new { |x, t, y, sigma, f|
10
+ a = x[0]; lambda = x[1]; b = x[2]
11
+ FFF.set_params(x)
12
+ n = t.size
13
+ for i in 0...n do
14
+ yi = FFF.eval(t[i])
15
+ f[i] = (yi - y[i])/sigma[i]
16
+ end
17
+ }
18
+
19
+ procdf = Proc.new { |x, t, y, sigma, jac|
20
+ a = x[0]; lambda = x[1]
21
+ n = t.size
22
+ for i in 0...n do
23
+ ti = t[i]
24
+ si = sigma[i]
25
+ ei = Math::exp(-lambda*ti)
26
+ jac[i,0] = ei/si
27
+ jac[i,1] = -ti*a*ei/si
28
+ jac[i,2] = 1.0/si
29
+ end
30
+ }
31
+
32
+ n = 20
33
+ np = 3
34
+
35
+ f = GSL::MultiFit::Function_fdf.alloc(procf, procdf, np)
36
+
37
+ r = GSL::Rng.alloc()
38
+ t = GSL::Vector.alloc(n)
39
+ y = GSL::Vector.alloc(n)
40
+ sigma = GSL::Vector.alloc(n)
41
+ File.open("expdata.dat", "w") do |fp|
42
+ for i in 0...n do
43
+ t[i] = i
44
+ y[i] = 1.0 + 5*Math::exp(-0.1*t[i]) + r.gaussian(0.2)
45
+ sigma[i] = 0.2
46
+ fp.printf("%d %g %g\n", t[i], y[i], sigma[i])
47
+ # fp.printf("%d %g\n", t[i], y[i])
48
+ end
49
+ end
50
+
51
+ f.set_data(t, y, sigma)
52
+ x = GSL::Vector.alloc([1.0, 0.0, 0.0])
53
+
54
+ solver = GSL::MultiFit::FdfSolver.alloc(GSL::MultiFit::FdfSolver::LMSDER, n, np)
55
+ #solver = GSL::MultiFit::FdfSolver.alloc(GSL::MultiFit::FdfSolver::LMDER, n, np)
56
+ solver.set(f, x)
57
+
58
+ iter = 0
59
+ solver.print_state(iter)
60
+ begin
61
+ iter += 1
62
+ status = solver.iterate
63
+ solver.print_state(iter)
64
+ status = solver.test_delta(1e-4, 1e-4)
65
+ end while status == GSL::CONTINUE and iter < 500
66
+
67
+ covar = solver.covar(0.0)
68
+ position = solver.position
69
+
70
+ chi2 = GSL::pow_2(solver.f.dnrm2)
71
+ dof = n - np
72
+ printf("A = %.5f +/- %.5f\n", position[0], Math::sqrt(chi2/dof*covar[0,0]))
73
+ printf("lambda = %.5f +/- %.5f\n", position[1], Math::sqrt(chi2/dof*covar[1,1]))
74
+ printf("b = %.5f +/- %.5f\n", position[2], Math::sqrt(chi2/dof*covar[2,2]))
75
+
76
+ str = sprintf("%4.3f*exp(-%4.3f*x)+%4.3f", position[0], position[1], position[2])
77
+
78
+ FFF.set_params(position)
79
+ x = 0
80
+ File.open("fit.dat", "w") do |f|
81
+ while x < 40
82
+ f.printf("%e %e\n", x, FFF.eval(x))
83
+ x += 0.1
84
+ end
85
+ end
86
+
87
+ system("graph -T X -C -g 3 -L '#{str}' -X x -I e -m -1 -S 4 expdata.dat -I a -m 2 -S 0 fit.dat")
88
+ #File.delete("expdata.dat")
89
+ #File.delete("fit.dat")