实验1...梯子长度问题.pptVIP

实验1 梯子长度问题 一、实验目的 掌握求一元函数极值的驻点法，并会用它解决一些实际题；掌握Mathematica求极小值的命令FindMinimum。 二、实际问题 一幢楼房的后面是一个很大的花园。在花园中紧靠着楼房有一个温室，温室伸入花园宽2m，高3m，温室正上方是楼房的窗台。清洁工打扫窗台周围，他得用梯子越过温室，一头放在花园中，一头靠在楼房的墙上。因为温室是不能承受梯子压力的，所以梯子太短是不行的。现清洁工只有一架7m长的梯子，你认为它能达到要求吗？能满足要求的梯子的最小长度为多少？ 三、预备知识 1.一元函数的极值及最值的求法。 2.Mathematica求极小值命令提示 FindMinimum[f , {x,x0}] 在选取的初始点 x0附近求f(x)的极小值； FindMinimum[f , {x,x0,x1}] 在选取的两个不同的初始点x0与x1附近求f(x)的极小值，当f的微分符号形式求不出时，必须用这种命令形式。 四、实验任务 1. 动态观测梯子长度随倾角变化的变化。在Windows中启动Mathematica，输入下列程序（可跳过此步，直接从第（2）步开始）： In[1]:= peng=Graphics[{RGBColor[0,0,1],Rectangle[{0,0},{2,3}]}](*画温室棚*) For[x=0.67,x=1.1,x+=0.05, x0=2+3/Tan[x];y0=3+2*Tan[x]; ti=Graphics[{RGBColor[1,0,0],Line[{{0,y0},{x0,0}}]}];(*画梯子*) Show[peng , ti , Axes-True , PlotRange-{{0,7},{0,7}}]; ] 运行程序后，得到9个图形，选中所有图形（用鼠标单击最右边括号，使之变色），再单击胶卷图标，即可动画演示（想终止动画，单击空白处）。 2. 设温室宽为a，高为b，梯子倾斜的角度为x，当梯子与温室顶端A处恰好接触时，梯子的长度L只与x有关。试写出函数L(x)及定义域。 3. 在Mathematica环境，先用命令Clear[x]清除x的值，再定义函数L(x)，并求导。 4. 将a、b赋值，画出L(x)的图形。注意自变量x的范围选取。 5. 求驻点，即求方程L’(x)=0的根，用语句FindRoot（为什么？），并计算函数在驻点的值。驻点唯一吗？ 6. 观测图形，选取初始点，用FindMinimum直接求L(x)的极小值。并与（5）的结果比较。 7. 取a=2,b=2.8，重新运行程序，结果如何？ 五、思考问题 1. 取a=1.8，在只用6.5m长梯子的情况下，温室最多能修建多高？ 2. 查阅参考书籍，了解求极值的数值方法（如Newton切线法，0.618法），以大致了解FindMinimum命令的工作原理。 3. 一条1m宽的通道与另一条2m宽的通道相交成直角，一个梯子需要水平绕过拐角，试问梯子的最大长度是多少？ * * * * 数 学 实 验 南通大学信息与计算科学教研室 微 积 分 法 *