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

41
lib/nr/ansi/examples/xicrc.c Normal file
View File

@@ -0,0 +1,41 @@
/* Driver for routine icrc */
#include <stdio.h>
#define NRANSI
#include "nr.h"
#define LOBYTE(x) ((unsigned char)((x) & 0xFF))
#define HIBYTE(x) ((unsigned char)((x) >> 8))
int main(void)
{
unsigned char lin[256];
unsigned short i1,i2;
unsigned long n;
for (;;) {
printf("Enter length and string: \n");
if (scanf("%lu %s",&n,&lin[1]) == EOF) break;
lin[n+1]=0;
printf("%s\n",&lin[1]);
i1=icrc(0,lin,n,(short)0,1);
lin[n+1]=HIBYTE(i1);
lin[n+2]=LOBYTE(i1);
i2=icrc(i1,lin,n+2,(short)0,1);
printf(" XMODEM: String CRC, Packet CRC= 0x%x 0x%x\n",i1,i2);
i1=icrc(i2,lin,n,(short)0xff,-1);
lin[n+1] = ~LOBYTE(i1);
lin[n+2] = ~HIBYTE(i1);
i2=icrc(i1,lin,n+2,(short)0xff,-1);
printf(" X.25: String CRC, Packet CRC= 0x%x 0x%x\n",i1,i2);
i1=icrc(i2,lin,n,(short)0,-1);
lin[n+1]=LOBYTE(i1);
lin[n+2]=HIBYTE(i1);
i2=icrc(i1,lin,n+2,(short)0,-1);
printf(" CRC-CCITT: String CRC, Packet CRC= 0x%x 0x%x\n",i1,i2);
}
printf("Normal completion\n");
return 0;
}
#undef NRANSI