ga1.cpp

第二章 解线性方程组的直接法 第三章 解线性方程的迭代法 第四章 插值法 第五章 数据拟合 第六章 数值微分和积分 第七章 矩阵特征值问题 第八章 非线性方程数值解法 第九章 非线性方程

/*ga1.c: draw scatter mark & polygon, copy the screen by printer*/
#define MN 40      /* N= n+1, the number of base points */
#include "jplotscr.c"
extern far initscr( int xy0[2], float kxy[2], char name[8], int kp );
extern far scatter( int mark, int scale, float x, float y );
void main( void )
{
int i,j,k,xy0[2];
float kxy[2],xi,yi;
xy0[0]=60;     xy0[1]=420;
kxy[0]=50.0;  kxy[1]=50.0;
system("cls");
initscr(xy0, kxy, "ga1", 6 );
for(i=0;i<8;i++)
  {
  xi=1.5*i;
  k=2*(i+1);
  for(j=0;j<8;j++) { yi=1.0*j;  scatter( j, k, xi, yi ); }
  }
getch();
closegraph();
}