yenru0/2025-02-Numerical
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

add numerical recipes library

Browse Source
This commit is contained in:
yenru0
2025-09-12 18:55:25 +09:00
parent d4dff245bd
commit 2c75620ec9
1344 changed files with 63869 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
lib/nr/cpp/recipes/jacobn.cpp Normal file
View File

@@ -0,0 +1,25 @@
#include "nr.h"
void NR::jacobn_s(const DP x, Vec_I_DP &y, Vec_O_DP &dfdx, Mat_O_DP &dfdy)
{
int i;
int n=y.size();
for (i=0;i<n;i++) dfdx[i]=0.0;
dfdy[0][0] = -0.013-1000.0*y[2];
dfdy[0][1] = 0.0;
dfdy[0][2] = -1000.0*y[0];
dfdy[1][0] = 0.0;
dfdy[1][1] = -2500.0*y[2];
dfdy[1][2] = -2500.0*y[1];
dfdy[2][0] = -0.013-1000.0*y[2];
dfdy[2][1] = -2500.0*y[2];
dfdy[2][2] = -1000.0*y[0]-2500.0*y[1];
}
void NR::derivs_s(const DP x, Vec_I_DP &y, Vec_O_DP &dydx)
{
dydx[0] = -0.013*y[0]-1000.0*y[0]*y[2];
dydx[1] = -2500.0*y[1]*y[2];
dydx[2] = -0.013*y[0]-1000.0*y[0]*y[2]-2500.0*y[1]*y[2];
}