?? quadmx.c
字號:
#include <math.h>
#include "nrutil.h"
#define PI 3.14159265
double x;
void quadmx(a,n)
float **a;
int n;
{
void kermom(),wwghts();
int j,k;
float h,*wt,xx,cx;
wt=vector(1,n);
h=PI/(n-1);
for (j=1;j<=n;j++) {
x=xx=(j-1)*h;
wwghts(wt,n,h,kermom);
cx=cos(xx);
for (k=1;k<=n;k++) a[j][k]=wt[k]*cx*cos((k-1)*h);
++a[j][j];
}
free_vector(wt,1,n);
}
#undef PI
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -