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

23
lib/nr/ansi/recipes/sort3.c Normal file
View File

@@ -0,0 +1,23 @@
#define NRANSI
#include "nrutil.h"
void sort3(unsigned long n, float ra[], float rb[], float rc[])
{
void indexx(unsigned long n, float arr[], unsigned long indx[]);
unsigned long j,*iwksp;
float *wksp;
iwksp=lvector(1,n);
wksp=vector(1,n);
indexx(n,ra,iwksp);
for (j=1;j<=n;j++) wksp[j]=ra[j];
for (j=1;j<=n;j++) ra[j]=wksp[iwksp[j]];
for (j=1;j<=n;j++) wksp[j]=rb[j];
for (j=1;j<=n;j++) rb[j]=wksp[iwksp[j]];
for (j=1;j<=n;j++) wksp[j]=rc[j];
for (j=1;j<=n;j++) rc[j]=wksp[iwksp[j]];
free_vector(wksp,1,n);
free_lvector(iwksp,1,n);
}
#undef NRANSI