d4r24.cpp

此代码为VC++常用数值算法这本书中附赠的光D部分的源代码

#include <iostream.h>
#include <math.h>
#include <iomanip.h>
#include <stdlib.h>
#include <fstream.h>
#include <string>
#include <process.h>

void main()
{
    //program d4r24
    //driver for routine bessk
    int i,n;
	char text[20];
    double nval,value,x; 
    const double pi = 3.1415926;
    fstream fin;
    fin.open("d:\\vc常用数值算法集\\data\\fncval.dat",ios::in);
    while ( strcmp(text,"Kn,")!=0) 
	{
      fin>>text;
	}
	fin>>text;
    fin>>nval; 
    fin>>text;
	cout<<"Modified Bessel Function Kn "<<endl;
    cout<<endl;
    cout<<"     n     x            actual          bessk(n,x)"<<endl;
    for( i = 1; i<=nval; i++)
	{
		fin>>n;
        fin>>x;
		fin>>value;  
		cout<<setprecision(2)<<setw(6)<<n;
		cout<<setprecision(2)<<setw(7)<<x;
        cout<<setprecision(6)<<setw(18)<<value;
		cout<<setprecision(6)<<setw(18)<<bessk(n,x)<<endl;			          
    }
}