东南大学高等数学(下)实验报告

高等数学(下)实验报告姓名：洪彬龙学号：03A12219实验习题71.利用参数方程作图，作出由下列曲面所围成的立体：(2)：z=xy,x+y-1=0及z=0.解：s1=ParametricPlot3D[{u,v,u*v},{u,-1,1},{v,-1,1},PlotPoints30];s2=ParametricPlot3D[{u,1-u,v},{u,-1,1},{v,-1,1},PlotPoints30];s3=ParametricPlot3D[{u,v,0},{u,-1,1},{v,-1,1},PlotPoints30];Show[s1,s2,s3]运行结果：实验习题8观察级数的部分和序列的变化趋势，并求和.s[n_]:=Sum[,{k,1,n}];data=Table[s[n],{n,1,50}];ListPlot[data]s[n_]:=Sum[,{k,1,n}];data=Table[s[n],{n,1,100}];ListPlot[data]运行结果：

用求和后，运行结果为1.87985.实验习题92.一种合金在某种添加剂的不同浓度下进行试验，得到如下数据：12345浓度x10.015.020.025.030.0抗压强度y27.026.826.526.326.1已知函数y与x的关系适合模型：y=a+bx+c，试用最小二乘法确定系数a，b，c，并求出拟合曲线。解：此问题为灰箱问题，已知x与y之间满足函数关系式y==a+bx+c，其中n=(a，b，c)为待定参数。考虑拟合函数在处的值与实验数值的偏差平方和最小，即取得最小值。令函数，则由上叙述可知，令此函数对各个参数的偏导等于0，解一个3元方程组即可求得最小二乘解即a，b，c。为了比较得到的拟合函数和已知的数据点，在同一坐标下绘出数据点的散点图及拟合函数的图形。输入以下命令：x=Table[10+i*5,{i,0,4}];y={27.0,26.8,26.5,26.3,26.1};xy=Table[{x[[i]],y[[i]]},{i,1,5}];ListPlot[xy,PlotStylePointSize[0.015]];Q[a_,b_,c_]:=Sum[(a+b*x[[i]]+c*x[[i]]^2-y[[i]])^2,{i,1,5}];Solve[{D[Q[a,b,c],a]==0,D[Q[a,b,c],b]==0,D[Q[a,b,c],c]==0},{a,b,c}]A={a,b,c}/.%;l=A[[1,1]];m=A[[1,2]];n=A[[1,3]];f[x_]:=l+m*x+n*x^2;t1=ListPlot[xy,PlotStylePointSize[0.015],DisplayFunctionIdentity];t2=Plot[f[x],{x,5,35},AxesOrigin{5,25},DisplayFunctionIdentity];Show[t1,t2,DisplayFunction$DisplayFunction]运行后得到：{{a27.56,b-0.0574286