源码文件
void crank(n,w,s) float *s,w[]; unsigned long n; { unsigned long j=1,ji,jt; float t,rank; *s=0.0; while (j < n) { …
Recipes 源代码
探索我们的recipes资源库，这里汇集了40个精选电路设计实例与项目指南，覆盖从基础到高级的电子技术应用。无论是初学者还是经验丰富的工程师，都能在这里找到适合自己的学习材料。通过这些详尽的技术文档和实战案例，您可以快速掌握单片机编程、传感器集成及物联网设备开发等核心技能。立即加…
收录资源 289 份
全站深度检索
共匹配 289 份工程资源
· 第 5 / 29 页
源码文件
extern long idum; void ranpt(pt,regn,n) float pt[],regn[]; int n; { float ran1(); int j; for (j=1;j
源码文件
#include int metrop(de,t) float de,t; { float ran3(); static long gljdum=1; return de < 0.0 || ran3(&gljdum) < exp(-…
源码文件
float erff(x) float x; { float gammp(); return x < 0.0 ? -gammp(0.5,x*x) : gammp(0.5,x*x); } /* (C) Copr. 1986-92 Numeri…
源码文件
void slvsml(u,rhs) double **rhs,**u; { void fill0(); double h=0.5; fill0(u,3); u[2][2] = -h*h*rhs[2][2]/4.0; } /* (C…
源码文件
void lop(out,u,n) double **out,**u; int n; { int i,j; double h,h2i; h=1.0/(n-1); h2i=1.0/(h*h); for (j=2;j
源码文件
void fill0(u,n) double **u; int n; { int i,j; for (j=1;j
源码文件
extern unsigned long ija[]; extern double sa[]; void asolve(n,b,x,itrnsp) double b[],x[]; int itrnsp; unsigned long n; { …
源码文件
void piksrt(n,arr) float arr[]; int n; { int i,j; float a; for (j=2;j 0 && arr[i] > a) { arr[i+1]=arr[i]; i--; …
源码文件
#include #include "nrutil.h" float elle(phi,ak) float ak,phi; { float rd(),rf(); float cc,q,s; s=sin(phi); cc=SQR…