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

33
lib/nr/ansi/recipes/mpdiv.c Normal file
View File

@@ -0,0 +1,33 @@
#define NRANSI
#include "nrutil.h"
#define MACC 6
void mpdiv(unsigned char q[], unsigned char r[], unsigned char u[],
unsigned char v[], int n, int m)
{
void mpinv(unsigned char u[], unsigned char v[], int n, int m);
void mpmov(unsigned char u[], unsigned char v[], int n);
void mpmul(unsigned char w[], unsigned char u[], unsigned char v[], int n,
int m);
void mpsad(unsigned char w[], unsigned char u[], int n, int iv);
void mpsub(int *is, unsigned char w[], unsigned char u[], unsigned char v[],
int n);
int is;
unsigned char *rr,*s;
rr=cvector(1,(n+MACC)<<1);
s=cvector(1,(n+MACC)<<1);
mpinv(s,v,n+MACC,m);
mpmul(rr,s,u,n+MACC,n);
mpsad(s,rr,n+MACC-1,1);
mpmov(q,&s[2],n-m+1);
mpmul(rr,q,v,n-m+1,m);
mpsub(&is,&rr[1],u,&rr[1],n);
if (is) nrerror("MACC too small in mpdiv");
mpmov(r,&rr[n-m+1],m);
free_cvector(s,1,(n+MACC)<<1);
free_cvector(rr,1,(n+MACC)<<1);
}
#undef MACC
#undef NRANSI