void pcshft(a,b,d,n) float a,b,d[]; int n; { int k,j; float fac,cnst; cnst=2.0/(b-a); fac=cnst; for (j=1;j
Recipes 源代码
探索我们的recipes资源库,这里汇集了40个精选电路设计实例与项目指南,覆盖从基础到高级的电子技术应用。无论是初学者还是经验丰富的工程师,都能在这里找到适合自己的学习材料。通过这些详尽的技术文档和实战案例,您可以快速掌握单片机编程、传感器集成及物联网设备开发等核心技能。立即加…
void piksr2(n,arr,brr) float arr[],brr[]; int n; { int i,j; float a,b; for (j=2;j 0 && arr[i] > a) { arr[i+1]=arr[i…
void copy(aout,ain,n) double **ain,**aout; int n; { int i,j; for (i=1;i
void matsub(a,b,c,n) double **a,**b,**c; int n; { int i,j; for (j=1;j
void pccheb(d,c,n) float c[],d[]; int n; { int j,jm,jp,k; float fac,pow; pow=1.0; c[0]=2.0*d[0]; for (k=1;k=0;j-=2,…
#include #include "nrutil.h" float ellf(phi,ak) float ak,phi; { float rf(); float s; s=sin(phi); return s*rf(SQR(…
float fredin(x,n,a,b,t,f,w,g,ak) float (*ak)(),(*g)(),a,b,f[],t[],w[],x; int n; { int i; float sum=0.0; for (i=1;i
unsigned short icrc1(crc,onech) unsigned char onech; unsigned short crc; { int i; unsigned short ans=(crc ^ onech
void relax(u,rhs,n) double **rhs,**u; int n; { int i,ipass,isw,j,jsw=1; double h,h2; h=1.0/(n-1); h2=h*h; for (ipas…
void poldiv(u,n,v,nv,q,r) float q[],r[],u[],v[]; int n,nv; { int k,j; for (j=0;j=0;k--) { q[k]=r[nv+k]/v[nv]; for (…