mathematica实验报告5(数值计算一)

班级专业. 应用数学 姓名 崔仁霞 学号. 2008101427 日期2010.11.25 成绩一、实验目的1•了解各种数值计算命令;掌握导数、积分、求根、求解规划问题等数值计算方法;二、实验准备命令：/.x->x0、NIntegrateFindRoot、NDSolve、LinearProgramming、FindMinimum等命令三、实验内容1.计算下列函数值sinx⑴y=1+cosx兀兀兀兀求当x=0,；,7,sinx⑴y=1+cosx⑵y⑵y=x\1+x2x+arcsin-2求当x=0,1,2时y'与y"的值;2.计算下列定积分5ex（15ex（1）fdx1x（2）f10dx；（3）2lnx 0 0一x2一y2dydx求下列方程的近似根（1）x5+5x+1=0（有唯一实根）;（2）x5一5x+1=°（有三实根）.求线性规划（先写标准型，再求解）maxf1=3x+5x+7xTOC\o"1-5"\h\z1 2 3s.t.x+2x+x<181 2 3\o"CurrentDocument"2x+x+3x<16 ；1 2 3 'x+x+x=101 2 3x,x,x>01 2 3求解非线性规划（1）11四、程序、命令与结果In[12]:=X={0,Pl/6/Pl/4/Pl/3,Pl/2}；f[x_]=Sin[x]/(1+Cos[x]).(1)命令：r1Out[13]=JO, 结果： ' 'ln[110]：=Clear[x]f=xwSqrt[1+xA2]+ArcSln[x/2];fx=D[f,x]/.x->仙1,2}(2)命令： fxx=D[f,{x,2}]/. {0,1,2}ln[14S]:=FiiuIRoot[xA5-5*x+ 1== 0^ {x, -1.5}]FindRoot[xA5-5wx+ 1== 0^ {x, 0.5}]FiiuJRoot[xA5-5*x+ 1== 0^ {xf 1.5}]命令：Out[143]={x->-1.54165}Out[149]={x->0.200064}Out[150]={X->1.4405}结果：四.命令：ln[157]:=C={-3f-5f-7}；A={{-1.-2.-1}.{-2f-lf-3}f{lf1「1}.{-1,b={-18,-16,10,-10};LinearProgramiilng[cf 1)]Out[112]=结果：—^―+V~2+ 1fComp1exInfinity|品 锁 」结果:Out[158]={0,7,3}五.命令：ln[160]:=Findl41iELiTniiii[xA4-5wxA3+1*xA2-3*x,{x,-10^113]=匕丄I2<2+V~2+—fCcimplexInfinityJOut[163]={-2.83342,{x->2.443}}结果：In[114]：=HIntegrate[E}<p[x]/x,{x,1,5}](1)命令：Out[114]=38.2902结果：ln[115]:=HInteyrate[1/Log[x]t{x,2f10}](2)命令：Out[115]=5.12044结果：( 3 ) 命 令：ln[116]:=HIntegrate[Sqrt[9-rA2],{r,0,3},{t,0,Pi/2}]Out[1161=11.1033结果：Integrate[Sqrt[9-xA2-yA2],{x,0,3},{y.0,Sort[9-x"2]}](4)命令：97TOut[134]=——，亠B 2结果：1叩41]：=FindRoot[xA5+5*x+1==0^{x,0}](1)命令：Out[141]={x->-0.199936}结果：成绩评定：1.程序、命令（）A准确、简洁、效率高；B命令基本准确，但有少量问题；C部