数学实验大作业.docx

2016-2017学年第一学期《数学实验-大作业》 专业班级 测绘工程1502 姓 名 闻小玖 学 号 1501060212 开课系室 计算数学系 完成日期 2016年11月6日 一、(基本题目，每题10分，共8题)用mathematica求解下面问题，写出程序和结果。1. 求隐函数的导数解：代码：In[1]=Out[1]=解题过程：结果：=2. 求在处的切线和法线方程。解：代码：In[1]=Out[1]=所以切线方程为（y-Sin）=Cos[]/(2)*(x-2)因为切线斜率与法线斜率乘积为-1输入：-1/Cos[()/(2)得-2Sec[()]所以法线方程为（y-Sin）=-2Sec[()]*(x-2)解题过程：结果：切线方程为（y-Sin）=Cos[]/(2)*(x-2)法线方程（y-Sin）=-2Sec[()]*(x-2)3. 求的近似值.In[2]=Out[2]=解题过程：结果：4. 计算解：代码ln[4]:=Limit[x^2*lnx, x - 0, Direction - -1]Out[4]=解题过程：结果：05. 作出柱面和圆柱面相交的图形解：代码In[9]=解题过程：6. 求的极值.解：代码In[50]=Clear[f];f[x_,y_]=x^4+2*y^4-2*x^2-12*y^2+6;fx=D[f[x,y],x]fy=D[f[x,y],y]-4 x+4 x3-24 y+8 y3(-4+12 x2) (-24+24 y2)data={x,y,fxx,disc,f[x,y]}/.critpts;TableForm[data,TableHeadings?{None,{x,y,fxx,disc,f}}]Out[52]=所以：当x=-1,y=-Sqrt[3]时判别式judge=3840,A=fxx=80,函数有极小值-13;当x=-1,y=Sqrt[3]时判别式judge=3840,A=fxx=80,函数有极小值-13;当x=0,y=0时判别式judge=960,A=fxx=-40,函数有极大值6;当x=1,y=-Sqrt[3]时判别式judge=3840,A=fxx=80,函数有极小值-13;当x=1,y=-Sqrt[3]时判别式judge=3840,A=fxx=80,函数有极小值-13;当x=-1,y=0或x=0,y=-Sqrt[3]或x=0,y=Sqrt[3]或x=1,y=0时判别式judge0,函数无极值。解题过程：结果：当x=-1,y=-Sqrt[3]时判别式judge=3840,A=fxx=80,函数有极小值-13;当x=-1,y=Sqrt[3]时判别式judge=3840,A=fxx=80,函数有极小值-13;当x=0,y=0时判别式judge=960,A=fxx=-40,函数有极大值6;当x=1,y=-Sqrt[3]时判别式judge=3840,A=fxx=80,函数有极小值-13;当x=1,y=-Sqrt[3]时判别式judge=3840,A=fxx=80,函数有极小值-13;当x=-1,y=0或x=0,y=-Sqrt[3]或x=0,y=Sqrt[3]或x=1,y=0时判别式judge0,函数无极值。7. 求曲面积分其中为球面的下半部分的外侧.解：代码In[3]= Clear[A, fa, ds];A = {0, 0, z*x^2*y^2};fa = {x, y, z}/a;ds = a^2*Sin[u];Integrate[(A.fa /. {x - a*Sin[u]*Cos[v], y - a*Sin[u]*Sin[v], z - a*Cos[u]})*ds // Simplify, {u, Pi/2, Pi}, {v, 0, 2*Pi}]Out[7]=解题过程：结果：8. 数列的递推公式为： ，。试求出数列充分多的项，观察它的极限是否存在；解：代码1__1.414213562372__1.542210825413__1.575980845114__1.584538265255__1.586684870766__1.587221976377__1.587356281178__1.587389859159__1.5873982537610__1.5874003524111__1.5874008770812__1.5874010082513__1.5874010410414__1.5874010492415__1.5874010512916__1.5874010518017__1.5874010519318__1.5874010519619__1.5874010519720__1.5874010519721__1.5874010519722__1.5874010