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

15
lib/nr/ansi/recipes/interp.c Normal file
View File

@@ -0,0 +1,15 @@
void interp(double **uf, double **uc, int nf)
{
int ic,iif,jc,jf,nc;
nc=nf/2+1;
for (jc=1,jf=1;jc<=nc;jc++,jf+=2)
for (ic=1;ic<=nc;ic++) uf[2*ic-1][jf]=uc[ic][jc];
for (jf=1;jf<=nf;jf+=2)
for (iif=2;iif<nf;iif+=2)
uf[iif][jf]=0.5*(uf[iif+1][jf]+uf[iif-1][jf]);
for (jf=2;jf<nf;jf+=2)
for (iif=1;iif <= nf;iif++)
uf[iif][jf]=0.5*(uf[iif][jf+1]+uf[iif][jf-1]);
}