?? xfredin.c
字號:
/* Driver for routine fredin */
#include <stdio.h>
#include <math.h>
#include "nr.h"
#include "nrutil.h"
#define N 8
#define PI 3.1415927
float g(t)
float t;
{
return sqrt(t)-pow(PI/2.0,2.25)*pow(t,0.75)/2.25;
}
float ak(t,s)
float s,t;
{
return pow(t*s,0.75);
}
main()
{
float a=0.0,ans,b=PI/2.0,x,*f;
float *t,*w;
t=vector(1,N);
f=vector(1,N);
w=vector(1,N);
fred2(N,a,b,t,f,w,g,ak);
for (;;) {
printf("Enter T between 0 and PI/2\n");
if (scanf("%f",&x) == EOF) break;
ans=fredin(x,N,a,b,t,f,w,g,ak);
printf("T, Calculated answer, True answer\n");
printf("%10.6f %10.6f %10.6f\n",x,ans,sqrt(x));
}
free_vector(w,1,N);
free_vector(f,1,N);
free_vector(t,1,N);
return 0;
}
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -