解线性方程组的直接方法实验 报告范文分享

解线性方程组的直接方法实验汇报JU9中文字网

  解线性方程组的直接方法实验汇报JU9中文字网

JU9中文字网

  一.实验目的`:JU9中文字网

  一、通过该课题的实验,体会模块化结构程序设计方法的优点;JU9中文字网

  二、运用所学的计算方法,解决各类线性方程组的直接算法;JU9中文字网

  三、提高分析和解决问题的能力,做到学以致用;JU9中文字网

  四、通过三对角形线性方程组的解法,体会稀疏线性方程组解法的特点。JU9中文字网

  二.实验过程:JU9中文字网

  实验代码:JU9中文字网

  #include "stdio.h"JU9中文字网

  #include "math.h"JU9中文字网

  #includeJU9中文字网

  using namespace std;JU9中文字网

  //Gauss法JU9中文字网

  void lzy(double **a,double *b,int n)JU9中文字网

  {JU9中文字网

  int i,j,k;JU9中文字网

  double l,x[一零],temp;JU9中文字网

  for(k=零;k<n-一;k++)JU9中文字网

  {JU9中文字网

  for(j=k,i=k;j<n;j++)JU9中文字网

  {JU9中文字网

  if(j==k)JU9中文字网

  temp=fabs(a[j][k]);JU9中文字网

  else if(temp<fabs(a[j][k]))JU9中文字网

  {JU9中文字网

  temp=fabs(a[j][k]);JU9中文字网

  i=j;JU9中文字网

  }JU9中文字网

  }JU9中文字网

  if(temp==零)JU9中文字网

  {JU9中文字网

  cout<<"无解 " ;JU9中文字网

  return;JU9中文字网

  }JU9中文字网

  elseJU9中文字网

  {JU9中文字网

  for(j=k;j<n;j++)JU9中文字网

  {JU9中文字网

  temp=a[k][j];JU9中文字网

  a[k][j]=a[i][j];JU9中文字网

  a[i][j]=temp;JU9中文字网

  }JU9中文字网

  temp=b[k];JU9中文字网

  b[k]=b[i];JU9中文字网

  b[i]=temp;JU9中文字网

  }JU9中文字网

  for(i=k+一;i<n;i++)JU9中文字网

  {JU9中文字网

  l=a[i][k]/a[k][k];JU9中文字网

  for(j=k;j<n;j++)JU9中文字网

  a[i][j]=a[i][j]-l*a[k][j];JU9中文字网

  b[i]=b[i]-l*b[k];JU9中文字网

  }JU9中文字网

  }JU9中文字网

  if(a[n-一][n-一]==零)JU9中文字网

  {JU9中文字网

  cout<<"无解 " ;JU9中文字网

  return;JU9中文字网

  }JU9中文字网

  x[n-一]=b[n-一]/a[n-一][n-一];JU9中文字网

  for(i=n-二;i>=零;i--)JU9中文字网

  {JU9中文字网

  temp=零;JU9中文字网

  for(j=i+一;j<n;j++)JU9中文字网

  temp=temp+a[i][j]*x[j];JU9中文字网

  x[i]=(b[i]-temp)/a[i][i];JU9中文字网

  }JU9中文字网

  for(i=零;i<n;i++)JU9中文字网

  {JU9中文字网

  printf("x%d=%lf ",i+一,x[i]);JU9中文字网

  printf(" ");JU9中文字网

  }JU9中文字网

  }JU9中文字网

  //平方根法JU9中文字网

  void pfg(double **a,double *b,int n)JU9中文字网

  {JU9中文字网

  int i,k,m;JU9中文字网

  double x[八],y[八],temp;JU9中文字网

  for(k=零;k<n;k++)JU9中文字网

  {JU9中文字网

  temp=零;JU9中文字网

  for(m=零;m<k;m++)JU9中文字网

  temp=temp+pow(a[k][m],二);JU9中文字网

  if(a[k][k]<temp)JU9中文字网

  return;JU9中文字网

  a[k][k]=pow((a[k][k]-temp),一.零/二.零);JU9中文字网

  for(i=k+一;i<n;i++)JU9中文字网

  {JU9中文字网

  temp=零;JU9中文字网

  for(m=零;m<k;m++)JU9中文字网

  temp=temp+a[i][m]*a[k][m]; a[i][k]=(a[i][k]-temp)/a[k][k];JU9中文字网

  }JU9中文字网

  temp=零;JU9中文字网

  for(m=零;m<k;m++)JU9中文字网

  temp=temp+a[k][m]*y[m];JU9中文字网

  y[k]=(b[k]-temp)/a[k][k];JU9中文字网

  }JU9中文字网

  x[n-一]=y[n-一]/a[n-一][n-一];JU9中文字网

  for(k=n-二;k>=零;k--)JU9中文字网

  {JU9中文字网

  temp=零;JU9中文字网

  for(m=k+一;m<n;m++)JU9中文字网

  temp=temp+a[m][k]*x[m];JU9中文字网

  x[k]=(y[k]-temp)/a[k][k];JU9中文字网

  }JU9中文字网

  for(i=零;i<n;i++)JU9中文字网

  {JU9中文字网

  printf("x%d=%lf ",i+一,x[i]);JU9中文字网

  printf(" ");JU9中文字网

  }JU9中文字网

  }JU9中文字网

  //追赶法JU9中文字网

  void zgf(double **a,double *b,int n)JU9中文字网

  {JU9中文字网

  int i;JU9中文字网

  double a零[一零],c[一零],d[一零],a一[一零],b一[一零],x[一零],y[一零]; for(i=零;i<n;i++)JU9中文字网

  {JU9中文字网

  a零[i]=a[i][i];JU9中文字网

  if(i<n-一)JU9中文字网

  c[i]=a[i][i+一];JU9中文字网

  if(i>零)JU9中文字网

  d[i-一]=a[i][i-一];JU9中文字网

  }JU9中文字网

  a一[零]=a零[零];JU9中文字网

  for(i=零;i<n-一;i++)JU9中文字网

  {JU9中文字网

  b一[i]=c[i]/a一[i];JU9中文字网

  a一[i+一]=a零[i+一]-d[i+一]*b一[i];JU9中文字网

  }JU9中文字网

  y[零]=b[零]/a一[零];JU9中文字网

  for(i=一;i<n;i++)JU9中文字网

  y[i]=(b[i]-d[i]*y[i-一])/a一[i];JU9中文字网

  x[n-一]=y[n-一];JU9中文字网

  for(i=n-二;i>=零;i--)JU9中文字网

  x[i]=y[i]-b一[i]*x[i+一];JU9中文字网

  for(i=零;i<n;i++)JU9中文字网

  {JU9中文字网

  printf("x%d=%lf ",i+一,x[i]);JU9中文字网

  printf(" ");JU9中文字网

  }JU9中文字网

  }JU9中文字网

  int main()JU9中文字网

  {JU9中文字网

  int n,i,j;JU9中文字网

  double **A,**B,**C,*B一,*B二,*B三;JU9中文字网

  A=(double **)malloc(n*sizeof(double)); B=(double **)malloc(n*sizeof(double));JU9中文字网

  C=(double **)malloc(n*sizeof(double));JU9中文字网

  B一=(double *)malloc(n*sizeof(double));JU9中文字网

  B二=(double *)malloc(n*sizeof(double));JU9中文字网

  B三=(double *)malloc(n*sizeof(double));JU9中文字网

  for(i=零;i<n;i++)JU9中文字网

  {JU9中文字网

  A[i]=(double *)malloc((n)*sizeof(double)); B[i]=(double *)malloc((n)*sizeof(double)); C[i]=(double *)malloc((n)*sizeof(double)); }JU9中文字网

  cout<<"第一题(Gauss列主元消去法):"<<endl<<endl; cout<<"请输入阶数 n:"<<endl;JU9中文字网

  cin>>n;JU9中文字网

  cout<<" 请输入系数矩阵 : ";JU9中文字网

  for(i=零;i<n;i++)JU9中文字网

  for(j=零;j<n;j++){JU9中文字网

推荐阅读: 直接 实验 汇报 JU9中文字网

JU9中文字网