mathematica实验报告5(数值计算一)张西西.docVIP

新疆财经大学《数学软件》实验报告 实验5 Mathematics数值计算 班级专业： 数学 姓名： 张凝曦 学号： 2008101428 日期： 11.25 成绩： 一、实验目的 1．了解各种数值计算命令； 2. 掌握导数、积分、求根、求解规划问题等数值计算方法； 二、实验准备 命令：/.x-x0、NIntegrate、FindRoot、NDSolve、LinearProgramming、FindMinimum等命令 三、实验内容 1.计算下列函数值 （1），求当时的值； （2），求当时与的值； 2.计算下列定积分. （1）；（2）；（3）；（4）； 3.求下列方程的近似根 （1）（有唯一实根）； （2）（有三实根）. 4. 求线性规划（先写标准型，再求解） ； 5.求解非线性规划 （1）min 四、程序、命令与结果 1. x={0,Pi/6,Pi/4,Pi/3,Pi/2}; N[Sin[x]/(1+Cos[x])] {0.,0.267949,0.414214,0.57735,1.} 2. Clear[x]; y=x*Sqrt[1+x^2]+ArcSin[x/2]; yx=D[y,x] N[yx/.x?{0,1,2}] {1.5,2.69867,ComplexInfinity} yxx=N[D[y,{x,2}]/.x?{0,1,2}] {0.,1.96022,ComplexInfinity} 2(1) Clear[x]; NIntegrate[Exp[x]/x,{x,1,5}] 38.2902 (2) Clear[x]; NIntegrate[1/Log[x],{x,2,10}] 5.12044 (3) Clear[x]; NIntegrate[Sqrt[9-r^2],{r,0,3},{t,0,Pi/2}] 11.1033(4) Clear[x,y]; u=Integrate[Sqrt[9-x^2-y^2],{y,0,Sqrt[9-x^2]}] v=Integrate[u,{x,0,3}] N[v] 14.1372 4.min f1=-3x1-5x2-7x3 c={-3,-5,-7};b={-18,-16,10,-10}; A={{-1,-2,-1},{-2,-1,-3},{1,1,1},{-1,-1,-1}}; LinearProgramming[c,A,b] {0,7,3} 5. Clear[x]; Plot[x^4-5*x^3+7*x^2-3*x,{x,-1,4}] ?Graphics? 3.(1) Clear[x,y]; Plot[x^5+5*x+1,{x,-4,4}]; FindRoot[x^5+5*x+1?0,{x,-0.25}] {x?-0.199936} (2) Clear[x,y]; Plot[x^5-5*x+1,{x,-4,4}] ?Graphics? FindRoot[x^5-5*x+1?0,{x,-1.5}] {x?-1.54165} FindRoot[x^5-5*x+1?0,{x,0.25}] {x?0.200064} FindRoot[x^5-5*x+1?0,{x,1.5}] {x?1.4405} 成绩评定：1.程序、命令（ ）A准确、简洁、效率高；B命令基本准确，但有少量问题；C部分命令有问题； D许多命令都有问题或错误. 2.运行结果（ ）A准确，表现效果好；B正确；C部分结果不准确；D有较严重错误. 3.其它问题______________________________________________________________________. 4.综合评定（ ）A优秀；B良好；C合格；D不合格；E有明显抄袭或雷同现象. 17