牛頓迭代法高斯消元法拉格朗日插值公式 復(fù)化Simpson 二分法

數(shù)值分析實驗1實驗時間:2013/11/21實驗名稱:牛頓迭代法實驗?zāi)康?是一種在實數(shù)域和復(fù)數(shù)域上近似求解方程實驗內(nèi)容:計算x*x*x-x-1=0在[1,2]內(nèi)的近似根。實驗結(jié)果:精度達(dá)到0.00001時，程序運行結(jié)果如下圖：附件:實驗程序:#include<iostream>#include<cmath>doubles(doublet){returnt-(t*t*t-t-1)/(3*t*t-1);}usingnamespacestd;intmain(){ inti; doublex,x0,x1,x2,e; cout<<"請輸入迭代初始值x0"<<",和控制精度e"<<endl;cin>>x0>>e;i=0;x1=x0;while(fabs(s(x1)-x1)>e){ i++; x2=s(x1); x1=x2;}x=(x1+x2)/2;cout<<"近似根x="<<x<<endl; cout<<"所需迭代次數(shù)i="<<i<<endl; return0;}數(shù)值分析實驗2實驗時間:2013/11/21實驗名稱:Gauss消元法實驗?zāi)康?通過求解線性方程組，學(xué)會列主元Gauss消元法求解實驗內(nèi)容:2592A=367b=61588實驗結(jié)果:附件:實驗程序:#include<iostream>#include<math.h>usingnamespacestd;voidmain(){inti,j,k,n,l,h,flag;floata[100][100],b[100],m[100][100],x[100],y[100],z[100],c[100],d,t;cout<<"Inputn:"<<endl;cin>>n;cout<<"inputa[i][j]:"<<endl;for(i=0;i<n;i++){ for(j=0;j<n;j++) { cin>>a[i][j]; }}cout<<"inputb[i]:"<<endl;for(i=0;i<n;i++){ cin>>b[i];}/*******運算過程*******/flag=1;for(k=0;k<n;k++)/*---選主元素---*/{ d=a[k][k]; h=k; for(l=k;l<n;l++) { if(fabs(a[l][k])>fabs(d)) { d=a[l][k]; h=l; } } if(h!=k) { for(j=k;j<n;j++) { t=a[h][j];a[h][j]=a[k][j];a[k][j]=t; } t=b[k];b[k]=b[h];b[h]=t; } if(a[k][k]==0) flag=0; for(i=k+1;i<n;i++)/*---具體運算---*/ { if(flag==0)break; m[i][k]=a[i][k]/a[k][k]; for(j=k;j<n;j++) { a[i][j]=a[i][j]-m[i][k]*a[k][j]; } b[i]=b[i]-m[i][k]*b[k]; }}cout<<"Result:"<<endl;if(flag!=0)/*******回代過程*******/{ x[n-1]=b[n-1]/a[n-1][n-1]; for(i=n-2;(i>0)||(i==0);i--) { y[i]=0; for(j=i+1;j<n;j++) { y[j]=y[j-1]+a[i][j]*x[j]; } x[i]=(b[i]-y[j-1])/a[i][i]; } for(i=0;i<n;i++)/*******輸出結(jié)果*******/ { cout<<"x["<<i<<"]="<<x[i]<<endl; }}else cout<<"wrong!"<<endl;}include<iostream>#include<math.h>usingnamespacestd;voidmain(){inti,j,k,n,l,h,flag;floata[100][100],b[100],m[100][100],x[100],y[100],z[100],c[100],d,t;cout<<"Inputn:"<<endl;cin>>n;cout<<"inputa[i][j]:"<<endl;for(i=0;i<n;i++){ for(j=0;j<n;j++) { cin>>a[i][j]; }}cout<<"inputb[i]:"<<endl;for(i=0;i<n;i++){ cin>>b[i];}/*******運算過程*******/flag=1;for(k=0;k<n;k++)/*---選主元素---*/{ d=a[k][k]; h=k; for(l=k;l<n;l++) { if(fabs(a[l][k])>fabs(d)) { d=a[l][k]; h=l; } } if(h!=k) { for(j=k;j<n;j++) { t=a[h][j];a[h][j]=a[k][j];a[k][j]=t; } t=b[k];b[k]=b[h];b[h]=t; } if(a[k][k]==0) flag=0; for(i=k+1;i<n;i++)/*---具體運算---*/ { if(flag==0)break; m[i][k]=a[i][k]/a[k][k]; for(j=k;j<n;j++) { a[i][j]=a[i][j]-m[i][k]*a[k][j]; } b[i]=b[i]-m[i][k]*b[k]; }}cout<<"Result:"<<endl;if(flag!=0)/*******回代過程*******/{ x[n-1]=b[n-1]/a[n-1][n-1]; for(i=n-2;(i>0)||(i==0);i--) { y[i]=0; for(j=i+1;j<n;j++) { y[j]=y[j-1]+a[i][j]*x[j]; } x[i]=(b[i]-y[j-1])/a[i][i]; } for(i=0;i<n;i++)/*******輸出結(jié)果*******/ { cout<<"x["<<i<<"]="<<x[i]<<endl; }}elsecout<<"wrong!"<<endl;}數(shù)值分析實驗3實驗時間:2013/10/21實驗名稱:實驗?zāi)康?觀察拉格朗日插值的過程。實驗內(nèi)容:用拉格朗日插值公式計算f(x)=區(qū)間為[-5,5].用等距的實驗點.實驗結(jié)果:附件:實驗程序:#include"stdio.h"voidmain(){inti,j,k,n;doublex[100],y[100],L[100],X,p,Y=0.0,a,b,d;printf("請輸入結(jié)點數(shù)：\nn=");scanf("%d",&n);printf("請輸入?yún)^(qū)間[a,b]:");scanf("%lf,%lf",&a,&b);d=(b-a)/(n-1);printf("請輸入插值：\nX=");scanf("%lf",&X);for(i=0;i<n;i++){x[i]=a+i*d;y[i]=1/(1+x[i]*x[i]);}L[0]=0.0;for(k=0;k<n;k++){p=1.0;for(j=0;j<n;j++){if(j!=k)p=p*(X-x[j])/(x[k]-x[j]);}L[k+1]=L[k]+p*y[k];}printf("輸出結(jié)果：\n");printf("L[%d]=%lf\n",k-1,L[k]);}數(shù)值分析實驗4實驗時間:2013/11/21實驗名稱:復(fù)化Simpson實驗?zāi)康?利用線性組合來計算積分的近似值。實驗內(nèi)容:1/（x*x）在區(qū)間[0,1]上8等分實驗結(jié)果:附件:實驗程序:#include<iostream>#include<cmath>doublef(doublet){ return1/(1+t*t);}usingnamespacestd;intmain(){inti,n;doubleh,a,b,S1,S2,temp1,temp2,Sn; cout<<"請輸入求積區(qū)間:"<<endl; cin>>a>>b; cout<<"請輸入?yún)^(qū)間等分?jǐn)?shù):"<<endl; cin>>n; h=(b-a)/n; temp1=0;temp2=0; S1=0; S2=0; for(i=0;i<n;i++) { temp1=f(a+i*h);temp2=f(a+(i+0.5)*h); S1=S1+2*temp1;S2=S2+4*temp2; }Sn=(f(b)-f(a)+S1+S2)*h/6;cout<<"經(jīng)過復(fù)化Simpson求積所得積分值S"<<n<<"為:"<<Sn<<endl;return0;}數(shù)值分析實驗5實驗時間:2013/11/21實驗名稱:二分法實驗?zāi)康?求近似根。實驗內(nèi)容:計算x*x*x-x-1=0在[1,2]內(nèi)的近似根。實驗結(jié)果:精度達(dá)到0.0001時，程序運行結(jié)果如下圖：附件:實驗程序:#include<iostream>#include<cmath>#definef(x)(x*x*x-x-1)usingnamespacestd;intmain(){ inti; floatx,t,a,b,e; cou